--Regresar inventario a factura global

This commit is contained in:
2024-04-10 20:00:10 -07:00
parent e14d0eb658
commit 1f848776c9

View File

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