- cambio en uso de global

This commit is contained in:
2024-01-10 08:21:39 -07:00
parent de2259056b
commit b740f2ad98

View File

@@ -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