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

--FIX surtido E199

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-02-11 18:48:49 -07:00
parent 30fed375ef
commit fbc46bf676
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Ventas/Ventas.aspx.vb
View File

@@ -10910,7 +10910,7 @@ Partial Class Ventas
End If End If
'SI NO VIENE DE REMISION, MARCAR COMO SURTIDA 'SI NO VIENE DE REMISION, MARCAR COMO SURTIDA
If ErrorList.Count = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(199, 201) AndAlso (RemisionesLista Is Nothing OrElse (RemisionesLista IsNot Nothing AndAlso RemisionesLista.Count = 0)) Then If ErrorList.Count = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(199, 201) AndAlso ObjFactura.TipoDocto = "Ing" AndAlso (RemisionesLista Is Nothing OrElse (RemisionesLista IsNot Nothing AndAlso RemisionesLista.Count = 0)) Then
'MARCAR VENTA ANTERIOR 'MARCAR VENTA ANTERIOR
If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then
ErrorList.Add("No se pudo Cancelar el movimiento de almacen de la Factura") ErrorList.Add("No se pudo Cancelar el movimiento de almacen de la Factura")
@@ -14770,7 +14770,7 @@ Partial Class Ventas
End If End If
'SI NO VIENE DE REMISION, MARCAR COMO SURTIDA 'SI NO VIENE DE REMISION, MARCAR COMO SURTIDA
If ErrorList.Count = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(199, 201) AndAlso (RemisionesLista Is Nothing OrElse (RemisionesLista IsNot Nothing AndAlso RemisionesLista.Count = 0)) Then If ErrorList.Count = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(199, 201) AndAlso factura.TipoDocto = "Ing" AndAlso (RemisionesLista Is Nothing OrElse (RemisionesLista IsNot Nothing AndAlso RemisionesLista.Count = 0)) Then
If Not ObjInventario.UpdateEstatusAlmacen(ObjVentas.CveVentaDetalle, 1) Then If Not ObjInventario.UpdateEstatusAlmacen(ObjVentas.CveVentaDetalle, 1) Then
ErrorList.Add("No se pudo actualizar el movimiento de almacen de la factura") ErrorList.Add("No se pudo actualizar el movimiento de almacen de la factura")
End If End If