SELECT 'RECHAZADO' as Texto 
SELECT 'http://t2.mproerp.com/WSTimbrarCFD33/Timbrado.asmx' AS svrUrl 
SELECT '<?xml version="1.0" encoding="utf-8"?><cfdi:Comprobante xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:cfdi="http://www.sat.gob.mx/cfd/4" xmlns:pago20="http://www.sat.gob.mx/Pagos20" xsi:schemaLocation="http://www.sat.gob.mx/cfd/4 http://www.sat.gob.mx/sitio_internet/cfd/4/cfdv40.xsd http://www.sat.gob.mx/Pagos20 http://www.sat.gob.mx/sitio_internet/cfd/Pagos/Pagos20.xsd" Version="4.0" Serie="CP" Folio="20" Fecha="2025-07-16T15:01:04" Sello="EAnWW/nne09gFcP6pdER9z6kMIDLCV5caLjS3vI4jaASYlfcQei3Mxpra+9y9OVUU+SywDz+ZJ5Qm2lKGyxSAYXdxBDtRpZlc6ZJqwBqeaHSvX91GfgzFLwP1XnUghs47weOoAYbVjuE8XQbhoB7TFSqnKXXdaUv+K8zoltCXqL0OB+L1C9MbUDRfJh5bE0Oxl1Bj26akE2SfIlye8w4cIsC5LrRv+1yR0oD2J8nB8Y26gIiTTs8DFJlo2tXPDn5wUzQmjH1xTBhyQq9ILlSEchGOGQY/gZOVetnUuFuq4rTARwK5xiy5ENlRiJSTon+KrQjnSgRGT4Hbf1uOmnRRw==" NoCertificado="00001000000510664853" Certificado="MIIGFzCCA/+gAwIBAgIUMDAwMDEwMDAwMDA1MTA2NjQ4NTMwDQYJKoZIhvcNAQELBQAwggGEMSAwHgYDVQQDDBdBVVRPUklEQUQgQ0VSVElGSUNBRE9SQTEuMCwGA1UECgwlU0VSVklDSU8gREUgQURNSU5JU1RSQUNJT04gVFJJQlVUQVJJQTEaMBgGA1UECwwRU0FULUlFUyBBdXRob3JpdHkxKjAoBgkqhkiG9w0BCQEWG2NvbnRhY3RvLnRlY25pY29Ac2F0LmdvYi5teDEmMCQGA1UECQwdQVYuIEhJREFMR08gNzcsIENPTC4gR1VFUlJFUk8xDjAMBgNVBBEMBTA2MzAwMQswCQYDVQQGEwJNWDEZMBcGA1UECAwQQ0lVREFEIERFIE1FWElDTzETMBEGA1UEBwwKQ1VBVUhURU1PQzEVMBMGA1UELRMMU0FUOTcwNzAxTk4zMVwwWgYJKoZIhvcNAQkCE01yZXNwb25zYWJsZTogQURNSU5JU1RSQUNJT04gQ0VOVFJBTCBERSBTRVJWSUNJT1MgVFJJQlVUQVJJT1MgQUwgQ09OVFJJQlVZRU5URTAeFw0yMjAxMDQxOTI5MDFaFw0yNjAxMDQxOTI5MDFaMIHlMTMwMQYDVQQDEypIRVJOQU4gQUxGUkVETyBERSBKRVNVUyBDQVNURUxMQU5PUyBaT1JFREExMzAxBgNVBCkTKkhFUk5BTiBBTEZSRURPIERFIEpFU1VTIENBU1RFTExBTk9TIFpPUkVEQTEzMDEGA1UEChMqSEVSTkFOIEFMRlJFRE8gREUgSkVTVVMgQ0FTVEVMTEFOT1MgWk9SRURBMRYwFAYDVQQtEw1DQVpINDkxMjMxQ0szMRswGQYDVQQFExJDQVpINDkxMjMxSFlOU1JSMDcxDzANBgNVBAsTBk1BVFJJWjCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAIxhFb+c648cMPh+MFJeM2bTBy9pYCSKNaKQjiweKLM/YJ06J3brxThJ6Okv/gQ+j6Zkgz1l4ALlnu4kW9koHePUWBuEHjmHUotoIVI26JzjzrddGSQZTQWtjwK5XkRzpNENYUPb6L+EKeiRo7trlJ4EUesRra5uF1MdDy7UMEDwgrMDwJon4m+9TFcR4oj8JKRUyLQtE99dYnrJxYWPu1EtasjW//pusxR25O6deRe8hcYaoMdXySgghkf0XqIWf+sxyG6FcUam6HmuRYk1Ks4WfTbRD5+MGe3STZHJqS8cpxJg9swnGx5LgL2hOGy1ZQyNWXH6MlliaqC33uI9eNsCAwEAAaMdMBswDAYDVR0TAQH/BAIwADALBgNVHQ8EBAMCBsAwDQYJKoZIhvcNAQELBQADggIBAEZjqV9bsu+vEviBYcSgWlVNlEkAkbnqASpmlWrtqpd6l0CN8DlsWq9vEaV3+pRR2RDSIeyFuITJ17791xRck3EAiR1xHESQKpC0Kr/MxCwX+3Kmz1QWrb5F3NntbeeuFUvz5yDw/VXKBasmRM/gZhRuWmYJ3ZyVACsoi7B2EwOrwT+NKs/2+jzpCWxjhN1ltkxNzEYh0zDUaffSShQl1c8KNOek7gI4IygO84ABaNDUFcCfC2HpOOP5UTaHCbslnwfPVDOQXP6qGhzN9Mkg5/3FIaGrDnTizxSnx43M9FpUU2ViiK8RuG5jGOxRkrmFpJoMgjDgUPtEDAkmS0z6jrDA0o/HhKs5Ioe12xgcf6GwbmtgXK8P5AqYMyVLTlfPs3cyEBbJJEXfkkA1C7Aksgzc86EXxSnEANIcwd0UJvMovMNIbZWv4QhuMAuiOUfrjjXEShAVeAJwVUfkCxfAs+i8ihHCMIRRSeC8rAD2R2JlxzM04vcGUaf2MM8OMhpl6yJbXQHBT/vnIbbKRqFaxpCM+xKsqM0WNY7E8qmbD67Nvj4ffLQacekIcCQmP1BwEe+rj5JI++RdnSwd3Yf5wqXr2O1R23Z+Pj7D2DBLFPXXS6n9BBDaHBxsquQobJBtYiBGgNzk1xS4miV9rVy+Dl84AkOLpHP2HXq417mptdF7" SubTotal="0" Moneda="XXX" Total="0" TipoDeComprobante="P" Exportacion="01" LugarExpedicion="97310"><cfdi:Emisor Rfc="CAZH491231CK3" Nombre="HERNAN ALFREDO DE JESUS CASTELLANOS ZOREDA" RegimenFiscal="606"/><cfdi:Receptor Rfc="ARO010329B79" Nombre="AROD" DomicilioFiscalReceptor="97310" RegimenFiscalReceptor="601" UsoCFDI="CP01"/><cfdi:Conceptos><cfdi:Concepto ClaveProdServ="84111506" Cantidad="1" ClaveUnidad="ACT" Descripcion="Pago" ValorUnitario="0" Importe="0" ObjetoImp="01"/></cfdi:Conceptos><cfdi:Complemento><pago20:Pagos Version="2.0"><pago20:Totales TotalRetencionesIVA="5031.52" TotalRetencionesISR="4720.00" TotalTrasladosBaseIVA16="47200.00" TotalTrasladosImpuestoIVA16="7552.00" MontoTotalPagos="45000.48"/><pago20:Pago FechaPago="2020-09-02T12:00:00" FormaDePagoP="03" MonedaP="MXN" TipoCambioP="1" Monto="45000.48" NumOperacion="5456365563"><pago20:DoctoRelacionado IdDocumento="FAD48B66-8456-45FC-ADA6-C6D7174DE060" Serie="A" MonedaDR="MXN" EquivalenciaDR="1" NumParcialidad="1" ImpSaldoAnt="45000.48" ImpPagado="45000.48" ImpSaldoInsoluto="0.00" ObjetoImpDR="02"><pago20:ImpuestosDR><pago20:RetencionesDR><pago20:RetencionDR BaseDR="47200.00" ImpuestoDR="001" TipoFactorDR="Tasa" TasaOCuotaDR="0.100000" ImporteDR="4720.00"/><pago20:RetencionDR BaseDR="47170.49" ImpuestoDR="002" TipoFactorDR="Tasa" TasaOCuotaDR="0.106600" ImporteDR="5031.52"/></pago20:RetencionesDR><pago20:TrasladosDR><pago20:TrasladoDR BaseDR="47200.00" ImpuestoDR="002" TipoFactorDR="Tasa" TasaOCuotaDR="0.160000" ImporteDR="7552.00"/></pago20:TrasladosDR></pago20:ImpuestosDR></pago20:DoctoRelacionado><pago20:ImpuestosP><pago20:RetencionesP><pago20:RetencionP ImpuestoP="001" ImporteP="4720.00"/><pago20:RetencionP ImpuestoP="002" ImporteP="5031.52"/></pago20:RetencionesP><pago20:TrasladosP><pago20:TrasladoP BaseP="47200.000000" ImpuestoP="002" TipoFactorP="Tasa" TasaOCuotaP="0.160000" ImporteP="7552.000000"/></pago20:TrasladosP></pago20:ImpuestosP></pago20:Pago></pago20:Pagos></cfdi:Complemento></cfdi:Comprobante>' 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 * FROM Complemento_Fiscal_Nodo WHERE    Cfn_Padre = '0014' 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 = '0014' ORDER BY Cfnc_ID ASC 

DECLARE @MnLocal AS NVARCHAR(9)
SET @MnLocal = dbo.Get_Variable('FIN_MONEDA_DEFAULT', 'MXN')

SELECT
  dbo.Format_Decimal(SUM(ABS(
  CASE WHEN pp.Mn_Cve_Moneda = pp.Pp_Moneda_DR THEN ROUND(pci.Pci_Base,2) ELSE
  (CASE WHEN pp.Mn_Cve_Moneda <> @MnLocal AND pp.Pp_Moneda_DR = @MnLocal THEN ROUND(pci.Pci_Base,2) ELSE 0 end)+
  (CASE WHEN pp.Mn_Cve_Moneda <> @MnLocal AND pp.Pp_Moneda_DR <> @MnLocal THEN ROUND(pci.Pci_Base,2) * pp.Pp_Tipo_Cambio ELSE 0 end)+
  (CASE WHEN pp.Pp_Moneda_DR <> @MnLocal AND pp.Mn_Cve_Moneda = @MnLocal THEN ROUND(pci.Pci_Base,2) / ROUND(pp.Pp_Tipo_Cambio_DR,6) ELSE 0 end)+
  (CASE WHEN pp.Mn_Cve_Moneda = @MnLocal AND pp.Pp_Moneda_DR = @MnLocal THEN ROUND(pci.Pci_Base,2) ELSE 0 end) END
  )),6) AS BaseP,
CASE WHEN   Impuesto.Im_Tipo_Factor='EXENTO' THEN  ''
  else
  dbo.Format_Decimal(SUM(ABS(
  CASE WHEN pp.Mn_Cve_Moneda = pp.Pp_Moneda_DR THEN ROUND(pci.Pci_Importe,2) else
  (CASE WHEN pp.Mn_Cve_Moneda <> @MnLocal AND pp.Pp_Moneda_DR = @MnLocal THEN ROUND(pci.Pci_Importe,2) ELSE 0 end)+
  (CASE WHEN pp.Mn_Cve_Moneda <> @MnLocal AND pp.Pp_Moneda_DR <> @MnLocal THEN ROUND(pci.Pci_Importe,2) * pp.Pp_Tipo_Cambio ELSE 0 end)+
  (CASE WHEN pp.Pp_Moneda_DR <> @MnLocal AND pp.Mn_Cve_Moneda = @MnLocal THEN ROUND(pci.Pci_Importe,2) / ROUND(pp.Pp_Tipo_Cambio_DR,6) ELSE 0 end)+
  (CASE WHEN pp.Mn_Cve_Moneda = @MnLocal AND pp.Pp_Moneda_DR = @MnLocal THEN ROUND(pci.Pci_Importe,2) ELSE 0 end) END
  )),6) END AS ImporteP,

  Impuesto.Im_Codigo_SAT AS ImpuestoP,
  Impuesto.Im_Tipo_Factor AS TipoFactorP,
    CASE WHEN  Impuesto.Im_Tipo_Factor='EXENTO' THEN  ''
  ELSE
 CAST(( ABS(Impuesto.Im_Tasa / 100)) as nvarchar(20) ) END  AS TasaOCuotaP,
  pp.Pp_Referencia--,pp.Mn_Cve_Moneda,pp.Pp_Moneda_DR
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-0000020'  AND pp.Pc_Id = pci.Pc_Id AND pp.Pp_Referencia = '5456365563'
      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
           )
      )
GROUP BY pp.Pp_Referencia,--pp.Mn_Cve_Moneda,pp.Pp_Moneda_DR,
Impuesto.Im_Codigo_SAT, Impuesto.Im_Tipo_Factor, ABS(Impuesto.Im_Tasa / 100)
SELECT * FROM Complemento_Fiscal_Nodo WHERE    Cfn_Padre = '0013' 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 = '0013' ORDER BY Cfnc_ID ASC 
SELECT TOP 1
  0 AS ImporteDR,
  0 AS BaseDR,
  '' AS ImpuestoDR,
  '' AS TipoFactorDR,
  0 AS TasaOCuotaDR,
  pp.Pp_Referencia AS NumOperacion,
  Pp_Referencia
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-0000020'  AND pp.Pc_Id = pci.Pc_Id AND pp.Pp_Referencia = '5456365563'
      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 * FROM Complemento_Fiscal_Nodo WHERE    Cfn_Padre = '0012' 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 = '0012' ORDER BY Cfnc_ID ASC 
SELECT * FROM Complemento_Fiscal_Nodo WHERE    Cfn_Padre = '0012' 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 = '0012' ORDER BY Cfnc_ID ASC 

DECLARE @MnLocal AS NVARCHAR(6)
SET @MnLocal = dbo.Get_Variable('FIN_MONEDA_DEFAULT','MXN')


SELECT
  --dbo.Format_Decimal(SUM(ABS(pci.Pci_Importe)),2) AS ImporteP,

  dbo.Format_Decimal(SUM(ABS(
  CASE WHEN pp.Mn_Cve_Moneda = pp.Pp_Moneda_DR THEN ROUND(pci.Pci_Importe,2) else
  (CASE WHEN pp.Mn_Cve_Moneda <> @MnLocal THEN ROUND(pci.Pci_Importe,2) * pp.Pp_Tipo_Cambio ELSE 0 end)+
  (CASE WHEN pp.Mn_Cve_Moneda <> @MnLocal THEN ROUND(pci.Pci_Importe,2) * pp.Pp_Tipo_Cambio ELSE 0 end)+
  (CASE WHEN pp.Pp_Moneda_DR <> @MnLocal AND pp.Mn_Cve_Moneda = @MnLocal THEN ROUND(pci.Pci_Importe,2) / ROUND(pp.Pp_Tipo_Cambio_DR,6) ELSE 0 end)+
  (CASE WHEN pp.Mn_Cve_Moneda = @MnLocal AND pp.Pp_Moneda_DR = @MnLocal THEN ROUND(pci.Pci_Importe,2) ELSE 0 end) END
 
  )),2) AS ImporteP,
  Impuesto.Im_Codigo_SAT as ImpuestoP
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-0000020'  AND pp.Pc_Id = pci.Pc_Id AND pp.Pp_Referencia = '5456365563'
      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'), ',')
           )
      )
GROUP BY Impuesto.Im_Codigo_SAT, Impuesto.Im_Tipo_Factor, ABS(Impuesto.Im_Tasa / 100)

SELECT * FROM Complemento_Fiscal_Nodo WHERE    Cfn_Padre = '0011' 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 = '0011' ORDER BY Cfnc_ID ASC 
SELECT top 1
 0 AS ImporteP,
  0 AS BaseDR,
  pp.Pp_Referencia as NumOperacion,
  pp.Pp_Referencia
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-0000020'  AND pp.Pc_Id = pci.Pc_Id AND pp.Pp_Referencia = '5456365563'
      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 '5456365563' AS NumOperacion,'5456365563' as Pp_Referencia
SELECT * FROM Complemento_Fiscal_Nodo WHERE    Cfn_Padre = '0009' 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 = '0009' ORDER BY Cfnc_ID ASC 
SELECT
	CASE WHEN  Impuesto.Im_Tipo_Factor='EXENTO' THEN  ''
  ELSE  dbo.Format_Decimal(SUM(ABS(pci.Pci_Importe)),2) END AS ImporteDR,
  dbo.Format_Decimal(SUM(ABS(pci.Pci_Base)),2) AS BaseDR,
  Impuesto.Im_Codigo_SAT AS ImpuestoDR,
 Impuesto.Im_Tipo_Factor AS TipoFactorDR,
  --ABS(Impuesto.Im_Tasa / 100) AS TasaOCuotaDR
    CASE WHEN  Impuesto.Im_Tipo_Factor='EXENTO' THEN  ''
  ELSE
 CAST(( ABS(Impuesto.Im_Tasa / 100)) as nvarchar(20) ) END  AS TasaOCuotaDR
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
  INNER JOIN Cuenta_X_Cobrar ON Cuenta_X_Cobrar.Cxc_Folio = pp.Cxc_Folio
WHERE pp.Pp_Folio = '01-0000020'  AND Pp.Pc_Id = pci.Pc_Id AND pp.Pp_Referencia = '5456365563'  AND Pci.Cxc_Folio = '01-0000356' 
      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
           )
      )
GROUP BY Impuesto.Im_Codigo_SAT, Impuesto.Im_Tipo_Factor, ABS(Impuesto.Im_Tasa / 100)
SELECT * FROM Complemento_Fiscal_Nodo WHERE    Cfn_Padre = '0008' 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 = '0008' ORDER BY Cfnc_ID ASC 

SELECT TOP 1
       '002' AS ImpuestoDR, 'Tasa' AS TipoFactorDR, '0.040000' AS TasaOCuotaDr,'FAD48B66-8456-45FC-ADA6-C6D7174DE060' as IdDocumento,'01-0000356' as Cxc_Folio, 
       '5456365563' as NumOperacion, 
       '5456365563' as Pp_Referencia 
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
  INNER JOIN Cuenta_X_Cobrar ON Cuenta_X_Cobrar.Cxc_Folio = pp.Cxc_Folio
  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 pp.Pp_Folio = '01-0000020'  AND Pp.Pc_Id = pci.Pc_Id AND pp.Pp_Referencia = '5456365563'  AND (CASE WHEN Pp_UUID_Original = '' THEN Cd_Timbre_UUID ELSE pp.Pp_UUID_Original END) = 'FAD48B66-8456-45FC-ADA6-C6D7174DE060'
      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 * FROM Complemento_Fiscal_Nodo WHERE    Cfn_Padre = '0007' 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 = '0007' ORDER BY Cfnc_ID ASC 
SELECT * FROM Complemento_Fiscal_Nodo WHERE    Cfn_Padre = '0007' 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 = '0007' ORDER BY Cfnc_ID ASC 
SELECT
  dbo.Format_Decimal(SUM(ABS(pci.Pci_Importe)),2) AS ImporteDR,
  dbo.Format_Decimal(SUM(ABS(pci.Pci_Base)),2) AS BaseDR,
  Impuesto.Im_Codigo_SAT AS ImpuestoDR,
  Impuesto.Im_Tipo_Factor AS TipoFactorDR,
  ABS(Impuesto.Im_Tasa / 100) AS TasaOCuotaDR
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
  INNER JOIN Cuenta_X_Cobrar ON Cuenta_X_Cobrar.Cxc_Folio = pp.Cxc_Folio
  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 pp.Pp_Folio = '01-0000020'  AND Pp.Pc_Id = pci.Pc_Id AND pp.Pp_Referencia = '5456365563'  AND pci.Cxc_Folio = '01-0000356' AND (CASE WHEN Pp_UUID_Original = '' THEN Cd_Timbre_UUID ELSE pp.Pp_UUID_Original END) = 'FAD48B66-8456-45FC-ADA6-C6D7174DE060'
      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'), ',')
           )
      )
GROUP BY Impuesto.Im_Codigo_SAT, Impuesto.Im_Tipo_Factor, ABS(Impuesto.Im_Tasa / 100)

SELECT * FROM Complemento_Fiscal_Nodo WHERE    Cfn_Padre = '0006' 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 = '0006' ORDER BY Cfnc_ID ASC 

SELECT TOP 1
       '002' AS ImpuestoDR,
       'Tasa' AS TipoFactorDR,
       '0.040000' AS TasaOCuotaDr,
       'FAD48B66-8456-45FC-ADA6-C6D7174DE060' as IdDocumento,
       '01-0000356' as Cxc_Folio,
       '5456365563' as NumOperacion,
       '5456365563' as Pp_Referencia
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
  INNER JOIN Cuenta_X_Cobrar ON Cuenta_X_Cobrar.Cxc_Folio = pp.Cxc_Folio
  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 pp.Pp_Folio = '01-0000020'  AND Pp.Pc_Id = pci.Pc_Id AND pp.Pp_Referencia = '5456365563' 
      AND (CASE WHEN Pp_UUID_Original = '' THEN Cd_Timbre_UUID ELSE pp.Pp_UUID_Original END) = 'FAD48B66-8456-45FC-ADA6-C6D7174DE060'
      AND pci.Es_Cve_Estado <> 'CA'  AND pci.Cxc_Folio = '01-0000356' 
      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 = '0005' 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 = '0005' ORDER BY Cfnc_ID ASC 
SELECT 'FAD48B66-8456-45FC-ADA6-C6D7174DE060' as IdDocumento,
	'01-0000356' as Cxc_Folio,
	'5456365563' as NumOperacion,
	'5456365563' as Pp_Referencia,
	1 as EquivalenciaDR
WHERE
	02='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, Pp_Referencia,
	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, 6) 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_Anterior_DR - CAST( dbo.Format_Decimal(Pp_Pago_DR,Moneda.Mn_Decimales_SAT) AS DECIMAL(18,9)) ),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-0000020' AND
	Pago_Parcial.Pp_Referencia ='5456365563'
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 
DECLARE @MnLocal AS NVARCHAR(9)
SET @MnLocal = dbo.Get_Variable('FIN_MONEDA_DEFAULT', 'MXN')

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(ABS(
	CASE WHEN Pago_Parcial.Mn_Cve_Moneda = Pago_Parcial.Pp_Moneda_DR THEN Pago_Parcial.Pp_Total ELSE
	(CASE WHEN Pago_Parcial.Mn_Cve_Moneda <> @MnLocal AND Pago_Parcial.Pp_Moneda_DR = @MnLocal THEN Pago_Parcial.Pp_Total ELSE 0 end) +
		(CASE WHEN Pago_Parcial.Mn_Cve_Moneda <> @MnLocal AND Pago_Parcial.Pp_Moneda_DR <> @MnLocal THEN Pago_Parcial.Pp_Total * Pago_Parcial.Pp_Tipo_Cambio ELSE 0 end) +
			(CASE WHEN Pago_Parcial.Mn_Cve_Moneda = @MnLocal AND Pago_Parcial.Pp_Moneda_DR <> @MnLocal THEN ROUND(Pago_Parcial.Pp_Pago_DR,2) / ROUND(Pago_Parcial.Pp_Tipo_Cambio_DR,6) ELSE 0 end) +
				(CASE WHEN Pago_Parcial.Mn_Cve_Moneda = @MnLocal AND Pago_Parcial.Pp_Moneda_DR = @MnLocal THEN Pago_Parcial.Pp_Total ELSE 0 end) END
	)),Moneda.Mn_Decimales_SAT) AS Monto,
	
	--dbo.Format_Decimal(SUM(Pago_Parcial.Pp_Total),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
	Pago_Parcial.Pp_Referencia,
	'' 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-0000020'
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)

DECLARE @MnLocal AS NVARCHAR(9)
SET @MnLocal = dbo.Get_Variable('FIN_MONEDA_DEFAULT', 'MXN')

SELECT
  @Total = 
  --ISNULL(SUM(Pp_Total*Pp_Tipo_Cambio),0)
  	SUM(ABS(
	CASE WHEN pp.Mn_Cve_Moneda = pp.Pp_Moneda_DR THEN pp.Pp_Total  * pp.Pp_Tipo_Cambio ELSE
	(CASE WHEN pp.Mn_Cve_Moneda <> @MnLocal AND pp.Pp_Moneda_DR = @MnLocal THEN pp.Pp_Total  * pp.Pp_Tipo_Cambio ELSE 0 end) +
		(CASE WHEN pp.Mn_Cve_Moneda <> @MnLocal AND pp.Pp_Moneda_DR <> @MnLocal THEN pp.Pp_Total * pp.Pp_Tipo_Cambio ELSE 0 end) +
			(CASE WHEN pp.Mn_Cve_Moneda = @MnLocal AND pp.Pp_Moneda_DR <> @MnLocal THEN ROUND(pp.Pp_Pago_DR,2) / ROUND(pp.Pp_Tipo_Cambio_DR,6) ELSE 0 end) +
				(CASE WHEN pp.Mn_Cve_Moneda = @MnLocal AND pp.Pp_Moneda_DR = @MnLocal THEN pp.Pp_Total  * pp.Pp_Tipo_Cambio ELSE 0 end) END
	))
FROM Pago_Parcial pp
WHERE pp.Pp_Folio = '01-0000020'

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-0000020');

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 <> @MnLocal
		BEGIN
			--PRINT 'Moneda <> Moneda Default'
			SET @iMode = 1
		END

		IF @Pp_Moneda_DR <> @MnLocal AND @iMode = -1
		BEGIN
			--PRINT 'MonedaDR <> Moneda Default'
			SET @iMode = 2
		END
	
		SET @Tipo_Cambio_DR = ROUND(@Tipo_Cambio_DR,6)
	--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 TotalTrasladosBaseIVA8,
  dbo.Format_Decimal(@TBaseIva8, 2) AS TotalTrasladosImpuestoIVA8,
  dbo.Format_Decimal(@TBaseIvaEx, 2) AS TotalTrasladosBaseIVAExento,
  dbo.Format_Decimal(@Total, 2) AS MontoTotalPagos
  */
  CASE @TBaseIva16 WHEN 0 THEN '' ELSE  dbo.Format_Decimal(@TBaseIva16,2) END AS TotalTrasladosBaseIVA16,
  CASE @Tiva16 WHEN 0 THEN '' ELSE  dbo.Format_Decimal(@Tiva16, 2) END AS TotalTrasladosImpuestoIVA16,
  CASE ABS(@TIvaRet)  WHEN 0 THEN '' ELSE  dbo.Format_Decimal(ABS(@TIvaRet), 2)   END AS TotalRetencionesIVA,
  CASE ABS(@TBaseRetIva) WHEN 0 THEN '' ELSE  dbo.Format_Decimal(ABS(@TBaseRetIva), 2) END AS BaseIvaRet,
  CASE ABS(@TIepsRet) WHEN 0 THEN '' ELSE  dbo.Format_Decimal(ABS(@TIepsRet), 2)  END AS TotalRetencionesIEPS,
  CASE ABS(@TBaseIepsRet) WHEN 0 THEN '' ELSE  dbo.Format_Decimal(ABS(@TBaseIepsRet), 2) END AS BaseIepsRet,
  CASE ABS(@TIsrRet) WHEN 0 THEN '' ELSE  dbo.Format_Decimal(ABS(@TIsrRet), 2) END AS TotalRetencionesISR,
  CASE WHEN @TBaseIva0 >0 THEN dbo.Format_Decimal(@TIva0, 2)
  ELSE
  CASE @TIva0 WHEN 0 THEN '' ELSE  dbo.Format_Decimal(@TIva0, 2) END END AS TotalTrasladosImpuestoIVA0,
  CASE @TBaseIva0 WHEN 0 THEN '' ELSE  dbo.Format_Decimal(@TBaseIva0, 2) END AS TotalTrasladosBaseIVA0,
  --  dbo.Format_Decimal(@TIva0, 2) AS TotalTrasladosImpuestoIVA0,
  --dbo.Format_Decimal(@TBaseIva0, 2) AS TotalTrasladosBaseIVA0,

  CASE @TIva8 WHEN 0 THEN '' ELSE  dbo.Format_Decimal(@TIva8, 2) END AS TotalTrasladosImpuestoIVA8,  
  CASE @TBaseIva8 WHEN 0THEN '' ELSE dbo.Format_Decimal(@TBaseIva8, 2) END AS TotalTrasladosBaseIVA8,
  CASE @TBaseIvaEx WHEN 0 THEN '' ELSE dbo.Format_Decimal(@TBaseIvaEx, 2) END 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 
SELECT * FROM Complemento_Fiscal_Nodo_Campo WHERE    Cf_Cve_Complemento_Fiscal = 'PG20' AND    Cfn_ID = '0001' ORDER BY Cfnc_ID ASC