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

--FIX VSH. cancelacion de ingreso con aplicacion de anticipos

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-05-07 19:48:03 -07:00
parent 7856b11db1
commit 7dbf3d425b
1 changed files with 3 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
App_Code/Modelos.vb
View File

@@ -3619,22 +3619,10 @@ Namespace Modelos
CveIEAnticipo = -1
CveSubProyectoContabilizar = CveSubProyectoVenta
Dim CveVenta As Integer = ObjFactura.CveVenta
Dim CveVentaAmortizacion As Integer = row2("CveVenta").ToString().ToEntero
Dim CveVenta As Integer = row2("CveVenta").ToString().ToEntero
Dim CveVentaAmortizacion As Integer = ObjFactura.CveVenta
If row2("CveIE").ToString().ToEntero > 0 Then CveIEAnticipo = row2("CveIE").ToString().ToEntero
'FALTA LA MONEDA PAR ALA CUENTA .RMF Y MANDAR EL CVEIE
'SI ES FACTURA EN 0 Y TIENE ANTICIPOS
If (ObjFactura.Total = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(72) AndAlso ObjFactura.TipoDocto.Contiene("Ing")) AndAlso row2("TipoDocto").ToString() = "Ant" Then
CveVenta = row2("CveVenta").ToString().ToEntero
CveVentaAmortizacion = ObjFactura.CveVenta
End If
'SI ES EGRESO Y TIENE ANTICIPOS VINCULADOS
If (ObjFactura.TipoDocto.Contiene("Egs") AndAlso row2("TipoDocto").ToString() = "Ant" AndAlso EsNCAmortizacion) Then
CveVenta = row2("CveVenta").ToString().ToEntero
CveVentaAmortizacion = ObjFactura.CveVenta
End If
If importeMovimiento <> 0 Then
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMovimiento, ConceptoContable, Referencia, Concepto,