SELECT Cl_Cve_Cliente FROM Cuenta_x_Cobrar WHERE Cxc_Folio = '01-0000245' AND Es_Cve_Estado <> 'CA' SELECT Sc_Descripcion FROM Sucursal WHERE Sc_Cve_Sucursal = '0001' SELECT Cl_Razon_Social_1 + ' ' + Cl_Razon_Social_2 FROM Cliente WHERE Cl_Cve_Cliente = '0000000015' AND Es_Cve_Estado <> 'BA' SELECT Cuenta_x_Cobrar.Cxc_Folio, Cuenta_x_Cobrar.Cl_Cve_Cliente, Cuenta_x_Cobrar.Cxc_Precio_Neto_Importe, Cuenta_x_Cobrar.Cxc_Precio_Neto_Saldo, Cuenta_x_Cobrar.Cxc_Referencia, Cuenta_x_Cobrar.Sc_Cve_Sucursal, Cuenta_x_Cobrar.Mn_Cve_Moneda, Cuenta_x_Cobrar.Cxc_Tipo_Cambio, ISNULL(Pago_CXC.Pc_ID, '0000') as Pc_ID, ISNULL(Pago_Parcial.Cxc_Folio,'') AS Firmado, Pago_CXC.Pc_Tabla, Pago_CXC.Pc_Documento, Pago_CXC.Pc_Fecha, Pago_CXC.Pc_Referencia , Pago_CXC.Pc_Cuenta_Bancaria , Pago_CXC.Pc_Banco , Pago_CXC.Pc_Importe, Pago_CXC.Fp_Cve_Forma_Pago, Forma_Pago.Fp_Descripcion, Forma_Pago.Fp_Metodo_Pago_SAT, Pago_Cxc.Es_Cve_Estado FROM Cuenta_x_Cobrar INNER JOIN Pago_CXC ON Pago_CXC.Cxc_Folio = Cuenta_x_Cobrar.Cxc_Folio INNER JOIN Forma_Pago ON Pago_CXC.Fp_Cve_Forma_Pago = Forma_Pago.Fp_Cve_Forma_Pago LEFT JOIN Pago_Parcial ON Pago_Parcial.Cxc_Folio = Pago_Cxc.Cxc_Folio AND Pago_Parcial.Pc_ID = Pago_CXC.Pc_ID AND Pago_Parcial.Es_Cve_Estado <> 'CA' WHERE Pago_Cxc.Es_Cve_Estado <> 'CA' AND Cuenta_x_Cobrar.Es_Cve_Estado <> 'CA' AND Cuenta_x_Cobrar.Cxc_Folio = '01-0000245' AND Pago_Cxc.Fp_Cve_Forma_Pago IN ('0001','0002','0003','0004') ORDER BY Pago_CXC.Pc_ID ASC SELECT Cl_Razon_Social_1 + ' ' + Cl_Razon_Social_2 FROM Cliente WHERE Cl_Cve_Cliente = '0000000015' AND Es_Cve_Estado <> 'BA' SELECT Cl_Cve_Cliente FROM Cuenta_x_Cobrar WHERE Cxc_Folio = '01-0000245' AND Es_Cve_Estado <> 'CA' SELECT TOP 100 Cuenta_X_Cobrar.Cxc_Folio as [CUENTA X COBRAR], Cuenta_X_Cobrar.Cxc_Documento as DOCUMENTO, Cuenta_X_Cobrar.Cxc_Referencia as REFERENCIA, Cuenta_X_Cobrar.Cxc_Tabla as ORIGEN, Cuenta_X_Cobrar.Cxc_Fecha as FECHA, Cuenta_X_Cobrar.Cxc_Fecha_Vencimiento as VENCE, Cuenta_X_Cobrar.Cxc_Precio_Neto_Importe as IMPORTE, Cuenta_X_Cobrar.Cxc_Precio_Neto_Saldo as SALDO, Cuenta_X_Cobrar.Cl_Cve_Cliente as CLIENTE, Cliente.Cl_Descripcion as NOMBRE, Cliente.Cl_Razon_Social_1 + ' ' + Cliente.Cl_Razon_Social_2 as [RAZON SOCIAL] FROM Cuenta_X_Cobrar INNER JOIN Cliente ON Cuenta_X_Cobrar.Cl_Cve_Cliente = Cliente.Cl_Cve_Cliente INNER JOIN Sucursal ON Sucursal.Sc_Cve_Sucursal=Cuenta_X_Cobrar.Sc_Cve_Sucursal WHERE ( Cuenta_X_Cobrar.Es_Cve_Estado = 'AC' AND Cuenta_X_Cobrar.Cxc_Precio_Neto_Saldo <> Cuenta_X_Cobrar.Cxc_Precio_Neto_Importe AND (Cuenta_X_Cobrar.Cxc_Referencia LIKE '%cam %' OR Cliente.Cl_Descripcion LIKE '%cam %' OR Cliente.Cl_Razon_Social_1 LIKE '%cam %') AND 1=1 ) /*Date2 AND Cxc_Fecha BETWEEN #Date1 AND #Date2 */ /*Empresa AND Sucursal.Em_Cve_Empresa = #Empresa */ /*Sucursal AND Cuenta_x_Cobrar.Sc_Cve_sucursal = #Sucursal */ /*Cliente AND Cuenta_x_Cobrar.Cl_Cve_Cliente = #Cliente */ /*Deudor AND Cuenta_x_Cobrar.Cl_Cve_Cliente = #Deudor */ /*Concepto_Cxc AND Cuenta_x_Cobrar.Cxc_Concepto= #Concepto_Cxc */ SELECT SQL FROM EMPRESAS..Consultas WHERE Clave = 'PAGOS_APLICADOS' SELECT DISTINCT Texto,ID,Transaccion from Configuracion_Etiqueta where (Transaccion = '' or Transaccion = '%') ORDER BY Transaccion DESC SELECT Cf_Tipo, Cf_Descripcion, Cf_Valor FROM Configuracion WHERE Cf_Variable = 'GEN_FORMATO_MONEDA' SELECT FontSize FROM EMPRESAS..Operadores WHERE Operador = 'CONFIG' SELECT 'SI' EXISTE FROM EMPRESAS..sysobjects sysobjects INNER JOIN EMPRESAS..syscolumns syscolumns ON sysobjects.id = syscolumns.id WHERE sysobjects.name = 'Operadores' AND syscolumns.name = 'FontSize' SELECT Cf_Tipo, Cf_Descripcion, Cf_Valor FROM EMPRESAS..Configuracion WHERE Cf_Variable = 'GEN_MODO_CONSULTA' SELECT Cf_Tipo, Cf_Descripcion, Cf_Valor FROM EMPRESAS..Configuracion WHERE Cf_Variable = 'GEN_Max_RegistrosConsulta' SELECT Cf_Tipo, Cf_Descripcion, Cf_Valor FROM Configuracion WHERE Cf_Variable = 'CXC_CONSULTA_PAGOS_CARTERA' SELECT GetDate() as Fecha SELECT TOP 100 Pp_Folio AS FOLIO, Pp_Fecha AS FECHA, Pago_Parcial.Sc_Cve_Sucursal AS SUCURSAL, Sucursal.Sc_Descripcion as DESCRIPCION, Pago_Parcial.CL_Cve_Cliente AS CLIENTE, Cliente.Cl_Descripcion as DESCRIPCION, Pago_Parcial.Pp_Comentario as COMENTARIO, SUM(Pp_Total) AS IMPORTE, Pago_Parcial.Es_Cve_Estado as ESTADO FROM Pago_Parcial INNER JOIN Cliente ON Cliente.Cl_Cve_Cliente = Pago_Parcial.Cl_Cve_Cliente INNER JOIN Sucursal ON Sucursal.Sc_Cve_Sucursal = Pago_Parcial.Sc_Cve_Sucursal WHERE ( Pp_Comentario LIKE '%cam%' OR Pp_Folio LIKE '%cam%' OR Cliente.Cl_Descripcion LIKE '%cam%' OR Cliente.Cl_Razon_Social LIKE '%cam%' OR Sucursal.Sc_Descripcion LIKE '%cam%' ) /*Date2 AND Pp_Fecha BETWEEN #Date1 AND #Date2 */ /*Empresa AND Sucursal.Em_Cve_Empresa = #Empresa */ /*Sucursal AND Pago_Parcial.Sc_Cve_sucursal = #Sucursal */ /*Cliente AND Pago_Parcial.Cl_Cve_Cliente = #Cliente */ GROUP BY Pp_Folio, pp_Fecha, Pp_Comentario, Sucursal.Sc_Descripcion, Pago_Parcial.CL_Cve_Cliente, Pago_Parcial.Sc_Cve_Sucursal, Pago_Parcial.Es_Cve_Estado, Cliente.Cl_Descripcion ORDER BY Pp_Fecha DESC SELECT SQL FROM EMPRESAS..Consultas WHERE Clave = 'PAGO_PARCIAL' SELECT DISTINCT Texto,ID,Transaccion from Configuracion_Etiqueta where (Transaccion = '' or Transaccion = '%') ORDER BY Transaccion DESC SELECT Cf_Tipo, Cf_Descripcion, Cf_Valor FROM Configuracion WHERE Cf_Variable = 'GEN_FORMATO_MONEDA' SELECT FontSize FROM EMPRESAS..Operadores WHERE Operador = 'CONFIG' SELECT 'SI' EXISTE FROM EMPRESAS..sysobjects sysobjects INNER JOIN EMPRESAS..syscolumns syscolumns ON sysobjects.id = syscolumns.id WHERE sysobjects.name = 'Operadores' AND syscolumns.name = 'FontSize' SELECT Cf_Tipo, Cf_Descripcion, Cf_Valor FROM EMPRESAS..Configuracion WHERE Cf_Variable = 'GEN_MODO_CONSULTA' SELECT Cf_Tipo, Cf_Descripcion, Cf_Valor FROM EMPRESAS..Configuracion WHERE Cf_Variable = 'GEN_Max_RegistrosConsulta' SELECT GetDate() as Fecha SELECT GetDate() as Fecha INSERT INTO Transaccion_Documento_Log ( Tdl_Modulo, Tdl_Tabla, Tdl_Documento, Tdl_Tipo, Tdl_Transaccion, Tdl_Fecha, Tdl_Operador ) VALUES ( 'VENTAS', 'Pago_Parcial', '01-0000015', 'ALTA', 'CC021', GETDATE(), 'CONFIG') SELECT * FROM Transaccion_Documento_Log WHERE Tdl_Tabla= 'Pago_Parcial' AND Tdl_Documento = '01-0000015' AND Tdl_Tipo = 'ALTA' AND Tdl_Transaccion = 'CC021' SELECT Cf_Tipo, Cf_Descripcion, Cf_Valor FROM Configuracion WHERE Cf_Variable = 'GEN_REGISTRAR_ALTA_LOG' SELECT 'RECHAZADO' as Texto SELECT 'http://t2.mproerp.com/WSTimbrarCFD33/Timbrado.asmx' AS svrUrl SELECT '' AS XML SELECT St_ID, St_Servidor, St_Url, St_Url_33, St_Soap_Envio, St_Soap_Envio_Test, St_Namespace, Es_Cve_Estado FROM EMPRESAS..Servidor_Timbrado WHERE St_Ping >= 0 AND Es_Cve_Estado <> 'BA' ORDER BY St_Ping ASC SELECT Cf_Tipo, Cf_Descripcion, Cf_Valor FROM EMPRESAS..Configuracion WHERE Cf_Variable = 'GEN_URL' SELECT TOP 1 0 AS ImporteDR, 0 AS BaseDR, '' AS ImpuestoDR, '' AS TipoFactorDR, 0 AS TasaOCuotaDR, pp.Pp_Referencia AS NumOperacion FROM Impuesto INNER JOIN Pago_CXC_Impuesto pci ON pci.Im_Cve_Impuesto = Impuesto.Im_Cve_Impuesto INNER JOIN Pago_Parcial pp ON pp.Cxc_Folio = pci.Cxc_Folio WHERE pp.Pp_Folio = '01-0000015' AND pp.Pc_Id = pci.Pc_Id AND pp.Pp_Referencia = 'F.239' AND pci.Es_Cve_Estado <> 'CA' AND ( pci.Im_Cve_Impuesto IN ( SELECT TRows FROM dbo.Text_To_Table(dbo.Get_Variable('FIN_IMPUESTO_IVA_16', '0013'), ',') ) OR pci.Im_Cve_Impuesto IN ( SELECT TRows FROM dbo.Text_To_Table(dbo.Get_Variable('FIN_IMPUESTO_IVA_0', '0032'), ',') ) OR pci.Im_Cve_Impuesto IN ( SELECT TRows FROM dbo.Text_To_Table(dbo.Get_Variable('FIN_IMPUESTO_IVA_8', '0033'), ',') ) OR pci.Im_Cve_Impuesto IN ( SELECT TRows FROM dbo.Text_To_Table(dbo.Get_Variable('FIN_IMPUESTO_IVA_EXCENTO', '0034'), ',') ) OR pci.Im_Cve_Impuesto IN ( SELECT Im_Cve_Impuesto FROM Impuesto WHERE Im_Codigo_SAT = '003' AND Im_Tasa>0 ) ) SELECT top 1 0 AS ImporteP, 0 AS BaseDR, pp.Pp_Referencia as NumOperacion FROM Impuesto INNER JOIN Pago_CXC_Impuesto pci ON pci.Im_Cve_Impuesto = Impuesto.Im_Cve_Impuesto INNER JOIN Pago_Parcial pp ON pp.Cxc_Folio = pci.Cxc_Folio WHERE pp.Pp_Folio = '01-0000015' AND pp.Pc_Id = pci.Pc_Id AND pp.Pp_Referencia = 'F.239' AND pci.Es_Cve_Estado <> 'CA' AND ( pci.Im_Cve_Impuesto IN ( SELECT TRows FROM dbo.Text_To_Table(dbo.Get_Variable('FIN_IMPUESTO_RETENCION_IVA', '0014,0015'), ',') ) OR pci.Im_Cve_Impuesto IN ( SELECT TRows FROM dbo.Text_To_Table(dbo.Get_Variable('FIN_IMPUESTO_RETENCION_IEPS', '0030'), ',') ) OR pci.Im_Cve_Impuesto IN ( SELECT TRows FROM dbo.Text_To_Table(dbo.Get_Variable('FIN_IMPUESTO_RETENCION_ISR', '0031'), ',') ) ) SELECT * FROM Complemento_Fiscal_Nodo WHERE Cfn_Padre = '0010' AND Cf_Cve_Complemento_Fiscal = 'PG20' ORDER BY Cfn_ID ASC SELECT * FROM Complemento_Fiscal_Nodo_Campo WHERE Cf_Cve_Complemento_Fiscal = 'PG20' AND Cfn_ID = '0010' ORDER BY Cfnc_ID ASC SELECT 'F.239' AS NumOperacion SELECT 'BB7BC5C7-339D-43F3-AF5C-DEF59EB328F0' as IdDocumento, '01-0000245' as Cxc_Folio, 'F.239' as NumOperacion, 1 as EquivalenciaDR WHERE 01='02' SELECT * FROM Complemento_Fiscal_Nodo WHERE Cfn_Padre = '0004' AND Cf_Cve_Complemento_Fiscal = 'PG20' ORDER BY Cfn_ID ASC SELECT * FROM Complemento_Fiscal_Nodo_Campo WHERE Cf_Cve_Complemento_Fiscal = 'PG20' AND Cfn_ID = '0004' ORDER BY Cfnc_ID ASC SELECT Pago_Parcial.Cxc_Folio,Pago_Parcial.Pp_Referencia AS NumOperacion, CASE WHEN Pp_UUID_Original = '' THEN Cd_Timbre_UUID ELSE Pago_Parcial.Pp_UUID_Original END AS IdDocumento, CASE WHEN Pp_Serie_Original = '' THEN Cd_Serie ELSE Pago_Parcial.Pp_Serie_Original END AS Serie, CASE WHEN Pp_Serie_Folio_Original = '' THEN Cd_Serie_Folio ELSE Pp_Serie_Folio_Original END AS SerieFolio, CASE WHEN Pp_Moneda_DR = '' THEN Cd_Moneda ELSE Pago_Parcial.Pp_Moneda_DR END AS MonedaDr, CASE WHEN Pago_Parcial.Mn_Cve_Moneda = Cuenta_X_Cobrar.Mn_Cve_Moneda THEN '1' ELSE dbo.Format_Decimal(Pp_Tipo_Cambio_DR, 4) END AS EquivalenciaDR, --CASE Pago_Parcial.Mn_Cve_Moneda WHEN Cuenta_X_Cobrar.Mn_Cve_Moneda THEN '' ELSE dbo.Format_Decimal(Pp_Tipo_Cambio_DR, 6) END AS EquivalenciaDR, CASE WHEN Pp_Metodo_Pago_DR = '' THEN Cd_Metodo_Pago ELSE Pago_Parcial.Pp_Metodo_Pago_DR END AS MetodoPago, Pp_Parcialidad AS NumParcialidad, dbo.Format_Decimal(Pp_Saldo_Anterior_DR,Moneda.Mn_Decimales_SAT) AS SaldoAnterior, dbo.Format_Decimal(Pp_Pago_DR,Moneda.Mn_Decimales_SAT) AS Pagado, dbo.Format_Decimal(( Pp_Saldo_Insoluto_DR ),Moneda.Mn_Decimales_SAT) AS SaldoInsoluto, (CASE WHEN EXISTS(SELECT TOP 1 NULL FROM Cuenta_X_Cobrar_Impuesto cxci WHERE cxci.Cxc_Folio = Pago_Parcial.Cxc_Folio) THEN '02'ELSE '01' end) as ObjetoImpuesto FROM Pago_Parcial INNER JOIN Cuenta_X_Cobrar ON Cuenta_X_Cobrar.Cxc_Folio = Pago_Parcial.Cxc_Folio INNER JOIN Moneda ON Moneda.Mn_Cve_Moneda = Pago_Parcial.Mn_Cve_Moneda LEFT JOIN Adjunto ON Adjunto.Ad_Tabla = 'CUENTA_X_COBRAR' AND Adjunto.Ad_Documento = Cuenta_X_Cobrar.Cxc_Folio AND Adjunto.Ad_Comprobante <> '' LEFT JOIN Comprobante_Digital Cd ON Cd.Cd_Tabla = Adjunto.Ad_Tabla AND Cd.Cd_Documento = Cuenta_X_Cobrar.Cxc_Folio + Adjunto.Ad_ID WHERE Pago_Parcial.Pp_Folio = '01-0000015' AND Pago_Parcial.Pp_Referencia ='F.239' ORDER BY Pago_Parcial.Pp_Id ASC SELECT * FROM Complemento_Fiscal_Nodo WHERE Cfn_Padre = '0003' AND Cf_Cve_Complemento_Fiscal = 'PG20' ORDER BY Cfn_ID ASC SELECT * FROM Complemento_Fiscal_Nodo_Campo WHERE Cf_Cve_Complemento_Fiscal = 'PG20' AND Cfn_ID = '0003' ORDER BY Cfnc_ID ASC SELECT Pago_Parcial.Pp_Fecha + '12:00:00' as FechaPago, Forma_Pago.Fp_Metodo_Pago_SAT as FormaPago, Pago_Parcial.Mn_Cve_Moneda as Moneda, CASE WHEN Pago_Parcial.Mn_Cve_Moneda <> 'MXN' THEN dbo.Format_Decimal(Pago_Parcial.Pp_Tipo_Cambio,4) ELSE '1' END as TipoCambio, dbo.Format_Decimal(SUM(Pago_Parcial.Pp_Total),Moneda.Mn_Decimales_SAT) as Monto, --dbo.Format_Decimal(SUM(Pago_Parcial.Pp_Total)/Pago_Parcial.Pp_Tipo_Cambio,Moneda.Mn_Decimales_SAT) as Monto, CASE Forma_Pago.Fp_Tipo WHEN '01' THEN '' ELSE Pago_Parcial.Pp_Referencia END as NumOperacion, --Si es efectivo, pone el vacio '' as RfcEmisorOrdenante, '' as NombreBancoOrdenante, '' as CuentaOrdenante, '' as RfcEmisorBenef, '' as CuentaBenef, '' as TipoPago, '' as CertPago, '' as CadPago, '' as SelloPago FROM Pago_Parcial INNER JOIN Moneda ON Moneda.Mn_Cve_Moneda = Pago_Parcial.Mn_Cve_Moneda INNER JOIN Forma_Pago ON Forma_Pago.Fp_Cve_Forma_Pago = Pago_Parcial.Pp_Forma_Pago INNER JOIN Sucursal ON Pago_Parcial.Sc_Cve_Sucursal = Sucursal.Sc_Cve_Sucursal INNER JOIN Empresa ON Sucursal.Em_Cve_Empresa = Empresa.Em_Cve_Empresa WHERE Pago_Parcial.Pp_Folio = '01-0000015' GROUP BY Pago_Parcial.Pp_Fecha + '12:00:00', Forma_Pago.Fp_Metodo_Pago_SAT, Pago_Parcial.Mn_Cve_Moneda, Pago_Parcial.Pp_Tipo_Cambio, Moneda.Mn_Decimales_SAT, Pago_Parcial.Pp_Referencia, Forma_Pago.Fp_Tipo SELECT * FROM Complemento_Fiscal_Nodo WHERE Cfn_Padre = '0002' AND Cf_Cve_Complemento_Fiscal = 'PG20' ORDER BY Cfn_ID ASC SELECT * FROM Complemento_Fiscal_Nodo_Campo WHERE Cf_Cve_Complemento_Fiscal = 'PG20' AND Cfn_ID = '0002' ORDER BY Cfnc_ID ASC DECLARE @cxc_folio AS NVARCHAR(10) DECLARE @Pc_Id AS NVARCHAR(4) DECLARE @Mn_Cve_Moneda AS NVARCHAR(6) DECLARE @Tipo_Cambio AS DECIMAL(18, 4)--, 6) DECLARE @Pp_Moneda_DR AS NVARCHAR(6) DECLARE @Tipo_Cambio_DR AS DECIMAL(18, 9)--, 6) DECLARE @Total AS DECIMAL(18, 9)--, 2) DECLARE @iValor AS DECIMAL(18, 9)--, 2) DECLARE @iBase AS DECIMAL(18, 9)--, 2) /*TOTALES*/ DECLARE @Tiva16 AS DECIMAL(18, 9)--, 4) DECLARE @TBaseIva16 AS DECIMAL(18, 9)--, 4) DECLARE @TIvaRet AS DECIMAL(18, 9)--, 4) DECLARE @TBaseRetIva AS DECIMAL(18, 9)--, 4) DECLARE @TIepsRet AS DECIMAL(18, 9)--, 4) DECLARE @TBaseIepsRet AS DECIMAL(18, 9)--, 4) DECLARE @TIsrRet AS DECIMAL(18, 9)--, 4) DECLARE @TBaseIsrRet AS DECIMAL(18, 9)--, 4) DECLARE @TIva0 AS DECIMAL(18, 9)--, 4) DECLARE @TBaseIva0 AS DECIMAL(18, 9)--, 4) DECLARE @TIva8 AS DECIMAL(18, 9)--, 4) DECLARE @TBaseIva8 AS DECIMAL(18, 9)--, 4) DECLARE @TIvaEx AS DECIMAL(18, 9)--, 4) DECLARE @TBaseIvaEx AS DECIMAL(18, 9)--, 4) SELECT @Total = ISNULL(SUM(Pp_Total*Pp_Tipo_Cambio),0) FROM Pago_Parcial pp WHERE pp.Pp_Folio = '01-0000015' SET @Tiva16 = 0; SET @TBaseIva16 = 0 SET @TIvaRet = 0; SET @TBaseRetIva = 0 SET @TIepsRet = 0; SET @TBaseIepsRet = 0 SET @TIsrRet = 0; SET @TBaseIsrRet = 0 SET @TIva0 = 0; SET @TBaseIva0 = 0 SET @TIva8 = 0; SET @TBaseIva8 = 0 SET @TIvaEx = 0; SET @TBaseIvaEx = 0 DECLARE @iMode AS INTEGER DECLARE cCurImpuestos CURSOR LOCAL FAST_FORWARD READ_ONLY FOR( SELECT Cxc_Folio, Pc_ID, pp.Mn_Cve_Moneda, pp.Pp_Tipo_Cambio, pp.Pp_Moneda_DR, pp.Pp_Tipo_Cambio_DR FROM Pago_Parcial pp WHERE pp.Pp_Folio = '01-0000015'); OPEN cCurImpuestos; FETCH NEXT FROM cCurImpuestos INTO @cxc_folio,@Pc_Id,@Mn_Cve_Moneda,@Tipo_Cambio,@Pp_Moneda_DR,@Tipo_Cambio_DR; WHILE @@FETCH_STATUS = 0 BEGIN SET @iMode = -1 /*SI LA MONEDADR ES IGUAL AL MN_CVE_MONEDA SE PAGA */ --IF @Mn_Cve_Moneda = @Pp_Moneda_DR --BEGIN -- SET @iMode = 1 -- SET @Tipo_Cambio = 1 --END --ELSE --BEGIN /*VALIDA CONTRA LA MONEDA LOCAL PARA EVALUAR EL TIPO DE CAMBIO*/ IF @Mn_Cve_Moneda <> dbo.Get_Variable('FIN_MONEDA_DEFAULT','MXN') BEGIN --PRINT 'Moneda <> Moneda Default' SET @iMode = 1 END IF @Pp_Moneda_DR <> dbo.Get_Variable('FIN_MONEDA_DEFAULT','MXN') AND @iMode = -1 BEGIN --PRINT 'MonedaDR <> Moneda Default' SET @iMode = 2 END SET @Tipo_Cambio_DR = ROUND(@Tipo_Cambio_DR,4) --END /* ====================================================== 0013 - IVA TRASLADADO 16% ====================================================== */ SET @iValor = 0; SET @iBase = 0 SELECT @iValor = ISNULL(SUM(ROUND(Pci_Importe,2)),0), @iBase = ISNULL(SUM(ROUND(Pci_Base,2)),0) FROM Pago_CXC_Impuesto pci WHERE Cxc_Folio = @cxc_folio AND Pc_ID = @Pc_Id AND Es_Cve_Estado <> 'CA' AND pci.Im_Cve_Impuesto IN ( SELECT TRows FROM dbo.Text_To_Table(dbo.Get_Variable('FIN_IMPUESTO_IVA_16', '0013'),',') ) SET @Tiva16 = @Tiva16 + (CASE WHEN @iMode = 1 THEN (@iValor*@Tipo_Cambio) ELSE @iValor/@Tipo_Cambio_DR end) SET @TBaseIva16 = @TBaseIva16 + (CASE WHEN @iMode = 1 THEN (@iBase*@Tipo_Cambio) ELSE @iBase/@Tipo_Cambio_DR end) /* ====================================================== 0014 - IVA RETENIDO 4% ====================================================== */ SET @iValor = 0; SET @iBase = 0 SELECT @iValor = ISNULL(SUM(ROUND(Pci_Importe,2)),0), @iBase = ISNULL(SUM(ROUND(Pci_Base,2)),0) FROM Pago_CXC_Impuesto pci WHERE Cxc_Folio = @cxc_folio AND Pc_ID = @Pc_Id AND Es_Cve_Estado <> 'CA' AND pci.Im_Cve_Impuesto IN ( SELECT TRows FROM dbo.Text_To_Table(dbo.Get_Variable('FIN_IMPUESTO_RETENCION_IVA', '0014,0015'),',') ) SET @TIvaRet = @TIvaRet + (CASE WHEN @iMode = 1 THEN (@iValor*@Tipo_Cambio) ELSE @iValor/@Tipo_Cambio_DR end) SET @TBaseRetIva = @TBaseRetIva + (CASE WHEN @iMode = 1 THEN (@iBase*@Tipo_Cambio) ELSE @iBase/@Tipo_Cambio_DR end) /* ====================================================== 0030 - IEPS RETENIDO ====================================================== */ SET @iValor = 0; SET @iBase = 0 SELECT @iValor = ISNULL(SUM(ROUND(Pci_Importe,2)),0), @iBase = ISNULL(SUM(ROUND(Pci_Base,2)),0) FROM Pago_CXC_Impuesto pci WHERE Cxc_Folio = @cxc_folio AND Pc_ID = @Pc_Id AND Es_Cve_Estado <> 'CA' AND pci.Im_Cve_Impuesto IN ( SELECT TRows FROM dbo.Text_To_Table(dbo.Get_Variable('FIN_IMPUESTO_RETENCION_IEPS', '0030'),',') ) SET @TIepsRet = @TIepsRet + (CASE WHEN @iMode = 1 THEN (@iValor*@Tipo_Cambio) ELSE @iValor/@Tipo_Cambio_DR end) SET @TBaseIepsRet = @TBaseIepsRet + (CASE WHEN @iMode = 1 THEN (@iBase*@Tipo_Cambio) ELSE @iBase/@Tipo_Cambio_DR end) /* ====================================================== 0031 - ISR RETENIDO ====================================================== */ SET @iValor = 0; SET @iBase = 0 SELECT @iValor = ISNULL(SUM(ROUND(Pci_Importe,2)),0), @iBase = ISNULL(SUM(ROUND(Pci_Base,2)),0) FROM Pago_CXC_Impuesto pci WHERE Cxc_Folio = @cxc_folio AND Pc_ID = @Pc_Id AND Es_Cve_Estado <> 'CA' AND pci.Im_Cve_Impuesto IN ( SELECT TRows FROM dbo.Text_To_Table(dbo.Get_Variable('FIN_IMPUESTO_RETENCION_ISR', '0031'),',') ) SET @TIsrRet = @TIsrRet + (CASE WHEN @iMode = 1 THEN (@iValor*@Tipo_Cambio) ELSE @iValor/@Tipo_Cambio_DR end) SET @TBaseIsrRet = @TBaseIsrRet + (CASE WHEN @iMode = 1 THEN (@iBase*@Tipo_Cambio) ELSE @iBase/@Tipo_Cambio_DR end) /* ====================================================== 0032 - IVA 0% ====================================================== */ SET @iValor = 0; SET @iBase = 0 SELECT @iValor = ISNULL(SUM(ROUND(Pci_Importe,2)),0), @iBase = ISNULL(SUM(ROUND(Pci_Base,2)),0) FROM Pago_CXC_Impuesto pci WHERE Cxc_Folio = @cxc_folio AND Pc_ID = @Pc_Id AND Es_Cve_Estado <> 'CA' AND pci.Im_Cve_Impuesto IN ( SELECT TRows FROM dbo.Text_To_Table(dbo.Get_Variable('FIN_IMPUESTO_IVA_0', '0032'),',') ) SET @TIva0 = @TIva0 + (CASE WHEN @iMode = 1 THEN (@iValor*@Tipo_Cambio) ELSE @iValor/@Tipo_Cambio_DR end) SET @TBaseIva0 = @TBaseIva0 + (CASE WHEN @iMode = 1 THEN (@iBase*@Tipo_Cambio) ELSE @iBase/@Tipo_Cambio_DR end) /* ====================================================== 0033 - IVA 8% ====================================================== */ SET @iValor = 0; SET @iBase = 0 SELECT @iValor = ISNULL(SUM(ROUND(Pci_Importe,2)),0), @iBase = ISNULL(SUM(ROUND(Pci_Base,2)),0) FROM Pago_CXC_Impuesto pci WHERE Cxc_Folio = @cxc_folio AND Pc_ID = @Pc_Id AND Es_Cve_Estado <> 'CA' AND pci.Im_Cve_Impuesto IN ( SELECT TRows FROM dbo.Text_To_Table(dbo.Get_Variable('FIN_IMPUESTO_IVA_8', '0033'),',') ) SET @TIva8 = @TIva8 + (CASE WHEN @iMode = 1 THEN (@iValor*@Tipo_Cambio) ELSE @iValor/@Tipo_Cambio_DR end) SET @TBaseIva8 = @TBaseIva8 + (CASE WHEN @iMode = 1 THEN (@iBase*@Tipo_Cambio) ELSE @iBase/@Tipo_Cambio_DR end) /* ====================================================== 0034 - IVA Excento ====================================================== */ SET @iValor = 0; SET @iBase = 0 SELECT @iValor = ISNULL(SUM(ROUND(Pci_Importe,2)),0), @iBase = ISNULL(SUM(ROUND(Pci_Base,2)),0) FROM Pago_CXC_Impuesto pci WHERE Cxc_Folio = @cxc_folio AND Pc_ID = @Pc_Id AND Es_Cve_Estado <> 'CA' AND pci.Im_Cve_Impuesto IN ( SELECT TRows FROM dbo.Text_To_Table(dbo.Get_Variable('FIN_IMPUESTO_IVA_EXCENTO', '0034'),',') ) SET @TIvaEx = @TIvaEx + (CASE WHEN @iMode = 1 THEN (@iValor*@Tipo_Cambio) ELSE @iValor/@Tipo_Cambio_DR end) SET @TBaseIvaEx = @TBaseIvaEx + (CASE WHEN @iMode = 1 THEN (@iBase*@Tipo_Cambio) ELSE @iBase/@Tipo_Cambio_DR end) FETCH NEXT FROM cCurImpuestos INTO @cxc_folio,@Pc_Id,@Mn_Cve_Moneda,@Tipo_Cambio,@Pp_Moneda_DR,@Tipo_Cambio_DR; END; CLOSE cCurImpuestos; DEALLOCATE cCurImpuestos; SELECT dbo.Format_Decimal(@TBaseIva16,2) AS TotalTrasladosBaseIVA16, dbo.Format_Decimal(@Tiva16, 2) AS TotalTrasladosImpuestoIVA16, dbo.Format_Decimal(ABS(@TIvaRet), 2) AS TotalRetencionesIVA, dbo.Format_Decimal(ABS(@TBaseRetIva), 2) AS BaseIvaRet, dbo.Format_Decimal(ABS(@TIepsRet), 2) AS TotalRetencionesIEPS, dbo.Format_Decimal(ABS(@TBaseIepsRet), 2) AS BaseIepsRet, dbo.Format_Decimal(ABS(@TIsrRet), 2) AS TotalRetencionesISR, dbo.Format_Decimal(@TIva0, 2) AS TotalTrasladosImpuestoIVA0, dbo.Format_Decimal(@TBaseIva0, 2) AS TotalTrasladosBaseIVA0, dbo.Format_Decimal(@TIva8, 2) AS TotalTrasladosImpuestoIVA8, dbo.Format_Decimal(@TBaseIva8, 2) AS TotalTrasladosBaseIVA8, dbo.Format_Decimal(@TBaseIvaEx, 2) AS TotalTrasladosBaseIVAExento, dbo.Format_Decimal(@Total, 2) AS MontoTotalPagos -- SELECT * FROM Complemento_Fiscal_Nodo WHERE Cfn_Padre = '0001' AND Cf_Cve_Complemento_Fiscal = 'PG20' ORDER BY Cfn_ID ASC