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

se hacen visibles los rengloes de serie y seccion almacén al abrir el modal de producto servicio

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-06-05 18:13:22 -07:00
parent 6350098f5d
commit 58aeb8b78a
2 changed files with 16 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -2165,6 +2165,10 @@ Partial Class Inventarios_EntradasSalidas
'TrLote2.Visible = True
End If
If CBool(dr("AplicaSeccion")) Then
divSeccionAlmacen.Visible = True
End If
End If
End If
@@ -2370,6 +2374,9 @@ Partial Class Inventarios_EntradasSalidas
TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
LkAgregarDetalle.Text = "Actualizar"
Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
divPrecio.Visible = Origen = 1
txtPrecio.Visible = Origen = 1
UpAgregar.Update()
RegistraScript("$('#ModalAgregar').modal()")
CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
@@ -2392,6 +2399,9 @@ Partial Class Inventarios_EntradasSalidas
TxtnSerie.Text = GvRow.DataKey("Serie")
TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
divPrecio.Visible = Origen = 1
txtPrecio.Visible = Origen = 1
LkAgregarDetalle.Text = "Actualizar"
UpAgregar.Update()
RegistraScript("$('#ModalAgregar').modal()")
@@ -4198,7 +4208,9 @@ Partial Class Inventarios_EntradasSalidas
Else
VisualizaPUExtranjero(False)
End If
Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
divPrecio.Visible = Origen = 1
txtPrecio.Visible = Origen = 1
UpAgregar.Update()
End Sub