- se quito cancelacion a 1 peso

App_Code/ClsBancos.vb

@@ -943,7 +943,7 @@ Public Class ClsBancos
 
 #Region "Complemento Pagos"
 
-    Public Function GeneraTimbrePago(CveIE As Integer, CveVenta As Integer, UsuarioActual As Usuario, Optional CveCliente As Integer = -1, Optional CFDIRelacionado As String = "-1", Optional EsCancelacion As Boolean = False, Optional EsRegeneracion As Boolean = False, Optional CvePrePoliza As Integer = -1, Optional FechaTimbrado As DateTime = MinFecha) As Boolean
+    Public Function GeneraTimbrePago(CveIE As Integer, CveVenta As Integer, UsuarioActual As Usuario, Optional CveCliente As Integer = -1, Optional CFDIRelacionado As String = "-1", Optional EsRegeneracion As Boolean = False, Optional CvePrePoliza As Integer = -1, Optional FechaTimbrado As DateTime = MinFecha) As Boolean
 
         If FechaTimbrado = MinFecha Then FechaTimbrado = DateTime.Now
         Dim Serie As String = "Pag"
@@ -954,11 +954,11 @@ Public Class ClsBancos
         Dim dttpagos As DataTable = Nothing
         Dim dr As Data.DataRow = Nothing
 
-        If GetComplementoPagosRep(-1, Now.AddYears(-2), Now, If(CvePrePoliza > 0, -1, CveIE), CveVenta, If(EsCancelacion OrElse EsRegeneracion, 2, 1), UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then
+        If GetComplementoPagosRep(-1, Now.AddYears(-2), Now, If(CvePrePoliza > 0, -1, CveIE), CveVenta, If(EsRegeneracion, 2, 1), UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then
             dr = DtResultados.FiltroPrimero("CveVenta IS NULL")
             dttpagos = DtResultados.FiltraParametros("CveVenta > 0")
         End If
-        If EsCancelacion Then Estatus = 2
+        'If EsCancelacion Then Estatus = 2
         If EsRegeneracion Then Estatus = 3
 
 
@@ -1044,9 +1044,9 @@ Public Class ClsBancos
 
             End Select
 
-            If EsCancelacion AndAlso (CFDIRelacionado = "-1" OrElse CFDIRelacionado = "") Then
+            'If EsCancelacion AndAlso (CFDIRelacionado = "-1" OrElse CFDIRelacionado = "") Then
-                Mensaje += "  La cancelación debe de tener documento relacionado"
+            '    Mensaje += "  La cancelación debe de tener documento relacionado"
-            End If
+            'End If
 
             If Not Mensaje.Length = 0 Then
                 GuardaLog(Mensaje)
@@ -1061,7 +1061,7 @@ Public Class ClsBancos
             Timbre = Timbrado.PreparaTimbrePago(RFCEmpresa, UsuarioActual.Empresa.Empresa, UsuarioActual.Empresa.CodigoRegimenFiscal,
                                     RFCCliente, dr("NombreCliente").ToString, Serie, Folio.ToString, FechaTimbrado, Cuentapago,
                                      dr("FechaDocumento").ToString.ToDate, dr("ClaveFormaPagoSAT").ToString, dr("AbreviaturaSAT").ToString, dr("VentasTotalPagado").ToString.ToDouble,
-                                                UsuarioActual.Empresa.CP.ToString, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDouble, dttpagos, CFDIRelacionado:=CFDIRelacionado, EsCancelacion:=EsCancelacion)
+                                                UsuarioActual.Empresa.CP.ToString, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDouble, dttpagos, CFDIRelacionado:=CFDIRelacionado, EsCancelacion:=False)
 
             ''PREPARA PARA CANCELACION POR SUSTITUCION DE COMPLEMENTO DE PAGO 
             'If CFDIRelacionado <> "-1" And CFDIRelacionado <> "" Then