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

-- carga excel, que no sea obligatorio, lote/cad/serie

Browse Source
This commit is contained in:
rrene
2023-12-02 12:42:16 -07:00
parent 5a9398a944
commit ac056390d0
1 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -5008,10 +5008,10 @@ Partial Class Inventarios_EntradasSalidas
'Dim CodigoBarras As String = Row("Codigo Barras").ToString.Trim.ToUpper 'Dim CodigoBarras As String = Row("Codigo Barras").ToString.Trim.ToUpper
Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper
Dim PrecioUnitario As Decimal = Row("Precio Unitario").ToString.ToDecimal Dim PrecioUnitario As Decimal = Row("Precio Unitario").ToString.ToDecimal
Dim Serie As String = Row("Serie").ToString Dim Serie As String = If(Row.Table.Columns.Contains("Serie"), Row("Serie").ToString().Trim, "")
Dim Lote As String = Row("Lote").ToString Dim Lote As String = If(Row.Table.Columns.Contains("Lote"), Row("Lote").ToString().Trim, "")
Dim Caducidad As String = Row("Caducidad").ToString Dim Caducidad As String = If(Row.Table.Columns.Contains("Caducidad"), Row("Caducidad").ToString().Trim, "")
Dim SeccionAlmacen As String = Row("SeccionAlmacen").ToString Dim SeccionAlmacen As String = If(Row.Table.Columns.Contains("SeccionAlmacen"), Row("SeccionAlmacen").ToString().Trim, "")
Dim CvePS As Integer = 0 Dim CvePS As Integer = 0
Dim CveUM As Integer = 0 Dim CveUM As Integer = 0
@@ -5024,8 +5024,6 @@ Partial Class Inventarios_EntradasSalidas
CveSeccionAlmacen = DTSeccionesAlmacen.FiltroPrimeroValor("CveSeccion", String.Format("SeccionAlmacen = '{0}'", SeccionAlmacen)).ToEntero CveSeccionAlmacen = DTSeccionesAlmacen.FiltroPrimeroValor("CveSeccion", String.Format("SeccionAlmacen = '{0}'", SeccionAlmacen)).ToEntero
End If End If
If Codigo <> "" Then If Codigo <> "" Then
DataTemp = PSTemp.FiltraParametros(String.Format("Codigo = '{0}'", Codigo)) DataTemp = PSTemp.FiltraParametros(String.Format("Codigo = '{0}'", Codigo))
CvePS = DataTemp.FiltroPrimeroValor("CvePS", "").ToEntero CvePS = DataTemp.FiltroPrimeroValor("CvePS", "").ToEntero