- cambio en uso de global
This commit is contained in:
@@ -2932,6 +2932,7 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
Dim RowsCargados As Integer = 0
|
||||
Dim RowsNoCargados As Integer = 0
|
||||
Dim NoPSConSerie As Integer = 0
|
||||
DtMovimientos.Clear()
|
||||
Try
|
||||
Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
|
||||
For Each RowExcel As DataRow In dt.Rows
|
||||
@@ -2972,7 +2973,7 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
If Valido AndAlso (Cantidad > 0 AndAlso RowPS("VentaMinima").ToString.ToDecimal > 0) Then
|
||||
If Cantidad Mod RowPS("VentaMinima").ToString.ToDecimal <> 0 Then
|
||||
Valido = False
|
||||
ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString())
|
||||
ProductosNoCargados.AppendFormat("{0},", RowPS("PSCodigo").ToString())
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -2985,7 +2986,7 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
RowsCargados = RowsCargados + 1
|
||||
Else
|
||||
RowsNoCargados = RowsNoCargados + 1
|
||||
ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString())
|
||||
ProductosNoCargados.AppendFormat("{0},", RowPS("PSCodigo").ToString())
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
Reference in New Issue
Block a user