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

mejora en funcionalidad 132

Browse Source
This commit is contained in:
rrene
2022-08-29 12:11:29 -07:00
parent fc3b03eeb9
commit 6b8ce06103
4 changed files with 32 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -598,7 +598,7 @@ Partial Class Inventarios_EntregaAlmacen
CveContrato = drE("CveContrato").ToString().ToEntero()
CveVendedor = drE("CveVendedor").ToString().ToEntero()
CveCliente = drE("CveCliente").ToString().ToEntero()
ClienteEntregaPersonal(CveCliente)
'ClienteEntregaPersonal(CveCliente)
CveSubProyecto = drE("CveSubProyecto").ToString().ToEntero()
EsInterno = CBool(DtDatos.Rows(0)("EsInterno").ToString())
CveDireccionEnvio = drE("CveDireccionEnvio").ToString.ToEntero
@@ -1118,9 +1118,9 @@ Partial Class Inventarios_EntregaAlmacen
DtDatosDetalle.Columns.Add("FueTraspaso", GetType(Integer))
End If
End Sub
Private Sub CargaSerie(Optional CerrarCompletado As Boolean = False)
RegistraScript("$('#DivSerie').modal('show')", "show")
Private Sub CargaSerie(Optional CerrarCompletado As Boolean = False, Optional CargaMasivo As Boolean = False)
If Not CargaMasivo Then RegistraScript("$('#DivSerie').modal('show')", "show")
Dim AplicaCaducidad = False
If GlobalDTPS(UsuarioActual.CveEmpresa, ).FiltraParametros("").Rows(0) IsNot Nothing Then
@@ -1174,7 +1174,7 @@ Partial Class Inventarios_EntregaAlmacen
Dim Mensaje As New StringBuilder
Mensaje.AppendFormat("Serie Recomendado: <b>{0}</b>", DtSerie.Rows(0)("Serie"))
If AplicaCaducidad Then Mensaje.AppendFormat(", Caducicdad: <b>{0}</b>", DtSerie.Rows(0)("FechaCaducidad").ToString().ToDate.ToShortDateString)
If AplicaCaducidad Then Mensaje.AppendFormat(", Caducidad: <b>{0}</b>", DtSerie.Rows(0)("FechaCaducidad").ToString().ToDate.ToShortDateString)
LbSerieRecomendado.Text = Mensaje.ToString() 'String.Format("Serie / Lote Recomendado: <b>{0}</b>, Caducicdad: <b>{1}</b>", ObjInventarios.DtResultados.Rows(0)("SerieLote"), ObjInventarios.DtResultados.Rows(0)("FechaCaducidad").ToString().ToDate.ToShortDateString)
Else
LbSerieRecomendado.Text = "No se encontro ningun Serie/Lote."
@@ -1228,7 +1228,7 @@ Partial Class Inventarios_EntregaAlmacen
End If
End Sub
Private Sub AgregaSerie(Serie As String, Tipo As Integer)
Private Sub AgregaSerie(Serie As String, Tipo As Integer, Optional CargaMasivo As Boolean = False)
If Serie.Trim = "" Then
Alert("El campo Serie es obligatorio. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
@@ -1290,7 +1290,7 @@ Partial Class Inventarios_EntregaAlmacen
End If
If Tipo < 3 Then
CargaSerie(True)
CargaSerie(True, cargaMasivo)
End If
End Sub
@@ -1548,8 +1548,7 @@ Partial Class Inventarios_EntregaAlmacen
End If
End If
If Gvr.DataKey("AplicaSerieLote") = "True" Then
If Gvr.DataKey("AplicaSerie") = "True" Then
TdSeriePS.Visible = True
TxtSeriePS.Focus()
@@ -1560,7 +1559,6 @@ Partial Class Inventarios_EntregaAlmacen
Exit Sub
End If
Dim CantidadEspecial = Gvr.DataKey("CveClasificacion").ToString().ToEntero().Contiene(17601, 17881) OrElse Gvr.DataKey("CvePS").ToString().ToEntero().Contiene(343032, 343033)
If CantidadEspecial Then
@@ -1614,7 +1612,7 @@ Partial Class Inventarios_EntregaAlmacen
End If
End Sub
Protected Sub BtnSeriePS_Click(sender As Object, e As EventArgs)
AgregaSerie(TxtSeriePS.Text.Trim, 2)
AgregaSerie(TxtSeriePS.Text.Trim, 2, True)
TdSeriePS.Visible = False
TxtSeriePS.Text = ""