From 4a386095834150ddd2fd42ed30b02f39b3ece8d3 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 11 Aug 2020 17:57:07 -0700 Subject: [PATCH] - se quito cancelacion a 1 peso --- App_Code/ClsBancos.vb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 93abdad57..b9f29edb9 100644 --- a/App_Code/ClsBancos.vb +++ b/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 - Mensaje += " La cancelación debe de tener documento relacionado" - End If + 'If EsCancelacion AndAlso (CFDIRelacionado = "-1" OrElse CFDIRelacionado = "") Then + ' Mensaje += " La cancelación debe de tener documento relacionado" + '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