AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--Aplicacion de CveIE en concepto 251

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-02-07 11:55:39 -07:00
parent 8a837105c3
commit d5bdf07441
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/Modelos.vb
View File

@@ -3539,6 +3539,11 @@ Namespace Modelos
Pago.AplicaTraslado = False Pago.AplicaTraslado = False
Pago.Referencia = Concepto Pago.Referencia = Concepto
If DtVentasNC.Columns.Contains("CveIE") Then
Dim CveIEVenta As Integer = Dr("CveIE").ToString().ToEntero()
Pago.CveIE = CveIEVenta
End If
ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(ventaRef, Pago, ObjFactura.CvePrePoliza, ObjConta) ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(ventaRef, Pago, ObjFactura.CvePrePoliza, ObjConta)
If Not ErrorPrepoliza AndAlso ObjFactura.CveTipoAmortizacionAnticipo = 2 AndAlso ObjFactura.EsNCAmortizacion AndAlso ObjFactura.TipoDocto.Contiene("Egs") AndAlso ObjFactura.DtAnticiposAplicados IsNot Nothing Then If Not ErrorPrepoliza AndAlso ObjFactura.CveTipoAmortizacionAnticipo = 2 AndAlso ObjFactura.EsNCAmortizacion AndAlso ObjFactura.TipoDocto.Contiene("Egs") AndAlso ObjFactura.DtAnticiposAplicados IsNot Nothing Then