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

-- limitar con transitorio

Browse Source
This commit is contained in:
rrene
2020-09-18 09:26:43 -07:00
parent e44f37216a
commit 8fcebf44d9
1 changed files with 29 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -1451,6 +1451,7 @@ Partial Class Inventarios_TraspasoAlmacen
Else Else
RegistraScript("$('#DivTransitorio').hide(500);$('#DivGastoIndirecto').hide(500);$('#DivDocChofer').hide(500);") RegistraScript("$('#DivTransitorio').hide(500);$('#DivGastoIndirecto').hide(500);$('#DivDocChofer').hide(500);")
End If End If
CargaAlmacenDestino()
SiguienteFolio(If(ChkTransitorio.Checked, 9, 8)) SiguienteFolio(If(ChkTransitorio.Checked, 9, 8))
End Sub End Sub
@@ -2846,6 +2847,13 @@ Partial Class Inventarios_TraspasoAlmacen
DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
UpDatos.Update() UpDatos.Update()
CargaAlmacenDestino()
End If
End Sub
Private Sub CargaAlmacenDestino()
Dim DrAlmO As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimero("") Dim DrAlmO As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimero("")
If DrAlmO("CveTipoAlmacen").ToString.ToEntero = 26 Then 'costeados If DrAlmO("CveTipoAlmacen").ToString.ToEntero = 26 Then 'costeados
@@ -2854,21 +2862,27 @@ Partial Class Inventarios_TraspasoAlmacen
DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
Else Else
DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,24) AND Estatus = 'Activo'") Dim Str As String
If ChkTransitorio.Checked Then
Str = "" ' String.Format(" AND CveSubProyecto <> {0} ", DrAlmO("CveSubProyecto")) 'RMF. pueden haber almacen que esten dentro de lamisma sucursal, pero que requeiren transitorio
Else
Str = String.Format(" AND CveSubProyecto = {0} ", DrAlmO("CveSubProyecto"))
End If
DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveTipoAlmacen NOT IN (3,4,9,10,11,24) AND Estatus = 'Activo' {0} ", Str))
DdlAlmacenDestino.DataBind() DdlAlmacenDestino.DataBind()
DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
End If
End If End If
End Sub End Sub
Protected Sub DdlAlmacenDestino_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacenDestino.SelectedIndexChanged Protected Sub DdlAlmacenDestino_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacenDestino.SelectedIndexChanged
If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").ToString.ToEntero = 21 Then 'If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").ToString.ToEntero = 21 Then
ChkTransitorio.Checked = False ' ChkTransitorio.Checked = False
ChkTransitorio.Enabled = False ' ChkTransitorio.Enabled = False
Else 'Else
ChkTransitorio.Enabled = True ' ChkTransitorio.Enabled = True
End If 'End If
If DdlAlmacenDestino.SelectedValue.ToEntero > 0 Then If DdlAlmacenDestino.SelectedValue.ToEntero > 0 Then
DdlSeccionAlmacenDestino.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestino.SelectedValue.ToEntero) DdlSeccionAlmacenDestino.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestino.SelectedValue.ToEntero)
DdlSeccionAlmacenDestino.DataBind() DdlSeccionAlmacenDestino.DataBind()