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

--Regresar inventario a factura global

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-04-10 20:00:10 -07:00
parent e14d0eb658
commit 1f848776c9
1 changed files with 24 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
App_Code/Modelos.vb
View File

@@ -4326,11 +4326,22 @@ Namespace Modelos
'TEMPORAL. PARA OPTIMIZAR LOS TIEMPOS PARA LA GENERACION DE LA FACTURA GLOBAL
If factura.EsFacturaGlobal Then
If Not ObjInventario.ActualizarEsDevolucionVenta(factura.CveVenta, 2) Then
OcurrioError = True
End If
Else
'If factura.EsFacturaGlobal Then
' If Not ObjInventario.ActualizarEsDevolucionVenta(factura.CveVenta, 2) Then
' OcurrioError = True
' End If
'Else
' If RemisionesLista IsNot Nothing AndAlso factura.TipoDocto = "Ing" AndAlso RemisionesLista.Count > 0 Then
' For Each CveRemision As Integer In RemisionesLista
' 'El almacen general es el Primer Almacen de Material en la Sucursal
' If Not TraspasoAlmacen(ObjInventario, ObjVentas, CveRemision, ObjConta, True, 9, factura.EsFacturaGlobal) Then
' OcurrioError = True
' Exit For
' End If
' Next
' End If
'End If
If RemisionesLista IsNot Nothing AndAlso factura.TipoDocto = "Ing" AndAlso RemisionesLista.Count > 0 Then
For Each CveRemision As Integer In RemisionesLista
'El almacen general es el Primer Almacen de Material en la Sucursal
@@ -4340,7 +4351,6 @@ Namespace Modelos
End If
Next
End If
End If
If factura.TipoDocto = "Rem" AndAlso factura.ServicioDomicilio Then
'debe de hacerse un traspaso entre almacenes, no contabilizable. .RMF pdte