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

-- optmización para sacar info de ps

Browse Source
This commit is contained in:
rrene
2023-02-01 10:38:49 -07:00
parent 2a16eb2d68
commit c5e97bb891
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -1156,8 +1156,9 @@ Partial Class Inventarios_EntregaAlmacen
If Not CargaMasivo Then RegistraScript("$('#DivSerie').modal('show')", "show") If Not CargaMasivo Then RegistraScript("$('#DivSerie').modal('show')", "show")
Dim AplicaCaducidad = False Dim AplicaCaducidad = False
If GlobalDTPS(UsuarioActual.CveEmpresa, ).FiltraParametros("").Rows(0) IsNot Nothing Then Dim dttt As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie)
AplicaCaducidad = If(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltraParametros("").Rows(0)("AplicaCaducidad").ToString() = "True", True, False) If dttt IsNot Nothing AndAlso dttt.Rows.Count > 0 Then
AplicaCaducidad = If(dttt.FiltraParametros("").Rows(0)("AplicaCaducidad").ToString() = "True", True, False)
End If End If
GvSerie.Columns(1).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) GvSerie.Columns(1).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
@@ -1177,7 +1178,7 @@ Partial Class Inventarios_EntregaAlmacen
'SERIE LOTE RECOMENDADO 'SERIE LOTE RECOMENDADO
Dim DtSerie As New DataTable Dim DtSerie As New DataTable
If TipoMovimiento = 1 Then If TipoMovimiento = 1 AndAlso Not CargaMasivo Then
Dim ObjInventarios As New ClsInventarios Dim ObjInventarios As New ClsInventarios
If ObjInventarios.SerieRecomendadoGet(CvePSSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), CveSubProyecto:=CveSubProyecto, CveCliente:=CveCliente, CveVendedor:=CveVendedor) Then If ObjInventarios.SerieRecomendadoGet(CvePSSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), CveSubProyecto:=CveSubProyecto, CveCliente:=CveCliente, CveVendedor:=CveVendedor) Then
DtSerie = ObjInventarios.DtResultados DtSerie = ObjInventarios.DtResultados
@@ -1254,7 +1255,7 @@ Partial Class Inventarios_EntregaAlmacen
ArraySeries = Series.Trim.Split(","c) ArraySeries = Series.Trim.Split(","c)
For i As Integer = 0 To ArraySeries.Length - 1 For i As Integer = 0 To ArraySeries.Length - 1
If ArraySeries(i).Trim.Length > 1 Then AgregaSerie(ArraySeries(i).Trim, 1) If ArraySeries(i).Trim.Length > 1 Then AgregaSerie(ArraySeries(i).Trim, 1, True)
Next Next
Else Else
AgregaSerie(TxtSerie.Text.Trim, 1) AgregaSerie(TxtSerie.Text.Trim, 1)