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

Validacion de saldo almacen

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2019-12-02 16:59:17 -07:00
parent 913b79b87c
commit 3ff288c628
1 changed files with 2 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Ventas/Ventas.aspx.vb
View File

@@ -15255,7 +15255,8 @@ Partial Class Ventas
DtMovimientosDetalles = ObjInventario.DtResultados.FiltraParametros("CvePS > 0") DtMovimientosDetalles = ObjInventario.DtResultados.FiltraParametros("CvePS > 0")
End If End If
If DtMovimientos.Rows.Count > 0 Then 'VALIDAR SI TIENE PRODUCTOS POR TRASPASAR
If DtMovimientos.Rows.Count > 0 AndAlso (DtMovimientosDetalles.Rows.Count > 0 AndAlso DtMovimientosDetalles.SUM("SaldoAlmacen") > 0) Then
Dim GeneroMovimientoAlmacen As Boolean = False Dim GeneroMovimientoAlmacen As Boolean = False
For Each dr As DataRow In DtMovimientos.Rows For Each dr As DataRow In DtMovimientos.Rows
'Obtenemos los Movimientos de salida 'Obtenemos los Movimientos de salida
@@ -15360,24 +15361,6 @@ Partial Class Ventas
End If End If
ElseIf ObjInventario.GetMovimientos(dr("CveMovimiento").ToString.ToEntero, 3, -1, UsuarioActual.CveEmpresa) Then ElseIf ObjInventario.GetMovimientos(dr("CveMovimiento").ToString.ToEntero, 3, -1, UsuarioActual.CveEmpresa) Then
'If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
' Dim CveTipoAlmacen As Integer = ObjInventario.DtResultados.Rows(0)("CveTipoAlmacen").ToString().ToEntero()
' If CveTipoAlmacen = 24 Then
' Dim RowMov As DataRow = ObjInventario.DtResultados.Rows(0)
' Dim CveMovimientoSalida As Integer = RowMov("CveMovimiento").ToString().ToEntero()
' Dim CveAlmacen As Integer = RowMov("CveAlmacen").ToString().ToEntero()
' Dim CveMoneda As Integer = RowMov("CveMoneda").ToString().ToEntero()
' GeneroMovimientoAlmacen = GenerarMovimientoAlmacenVirtual(ObjInventario, CveMovimientoSalida, CveAlmacen, CveMoneda) > 0
' If Not GeneroMovimientoAlmacen Then
' OcurrioError = True
' Exit For
' End If
' End If
'End If
'Esquema viejo, evitamos que aparezca por surtir 'Esquema viejo, evitamos que aparezca por surtir
If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then
OcurrioError = True OcurrioError = True