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

.

Browse Source
This commit is contained in:
rrene
2023-01-05 08:56:08 -07:00
parent b5378ad727 0f31351535
commit c205dc75a1
22 changed files with 352 additions and 329 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -373,7 +373,7 @@ Partial Class Inventarios_EntradasSalidas
End If
If IfNull(Request("APOYO"), "").ToString = "1" Then
If IfNull(Request("AL"), "").ToString = "1" Then
DivEmitirTransitorio.Visible = True
EsApoyoLogistico = True
End If
@@ -643,7 +643,8 @@ Partial Class Inventarios_EntradasSalidas
End If
If EsApoyoLogistico Then
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (27)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
DdlAlmacen.Items.Clear()
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (27)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
End If
DdlAlmacenInventarioFisico.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
@@ -1435,7 +1436,7 @@ Partial Class Inventarios_EntradasSalidas
Private Sub AgregarPS()
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto2.SelectedValue.ToEntero).FiltroPrimero("")
If ChkEmitirTimbrado.Checked AndAlso ChkEmitirCartaPorte.Checked Then
If Not ValidaPSSAT(DrPS) Then
Exit Sub
@@ -2385,7 +2386,13 @@ Partial Class Inventarios_EntradasSalidas
If UsuarioActual.CveUsuario.Contiene(2185, 100) Then
DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32"))
DdlConcepto.Items.Add(New ListItem("Salida por Ajuste", "34"))
End If
If EsApoyoLogistico Then
DdlConcepto.Items.Clear()
DdlConcepto.Items.Add(New ListItem("Selecione Uno", "-1"))
DdlConcepto.Items.Add(New ListItem("Salida de Almacen", "3"))
End If
DdlConcepto.SelectedValue = "-1"