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

- cambio en uso de global

Browse Source
This commit is contained in:
rrene
2024-01-10 08:21:39 -07:00
parent de2259056b
commit b740f2ad98
1 changed files with 15 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -2932,6 +2932,7 @@ Partial Class Inventarios_TraspasoAlmacen
Dim RowsCargados As Integer = 0 Dim RowsCargados As Integer = 0
Dim RowsNoCargados As Integer = 0 Dim RowsNoCargados As Integer = 0
Dim NoPSConSerie As Integer = 0 Dim NoPSConSerie As Integer = 0
DtMovimientos.Clear()
Try Try
Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
For Each RowExcel As DataRow In dt.Rows 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 Valido AndAlso (Cantidad > 0 AndAlso RowPS("VentaMinima").ToString.ToDecimal > 0) Then
If Cantidad Mod RowPS("VentaMinima").ToString.ToDecimal <> 0 Then If Cantidad Mod RowPS("VentaMinima").ToString.ToDecimal <> 0 Then
Valido = False Valido = False
ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString()) ProductosNoCargados.AppendFormat("{0},", RowPS("PSCodigo").ToString())
End If End If
End If End If
@@ -2985,7 +2986,7 @@ Partial Class Inventarios_TraspasoAlmacen
RowsCargados = RowsCargados + 1 RowsCargados = RowsCargados + 1
Else Else
RowsNoCargados = RowsNoCargados + 1 RowsNoCargados = RowsNoCargados + 1
ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString()) ProductosNoCargados.AppendFormat("{0},", RowPS("PSCodigo").ToString())
End If End If
Else Else