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

VYA Viajes

Browse Source
This commit is contained in:
rakcsle
2024-11-27 16:13:41 -07:00
parent 69ef75f22b
commit 816622b06b
16 changed files with 2855 additions and 356 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -69,7 +69,8 @@ Partial Class Inventarios_TrasladoSolicitud
Private Sub InicializaValores()
CreaDTTemporal()
CargaAlmacenes()
CargaPS()
'CargaPS()
CargaFuncionalidad105()
'CargaClientes()
' CargaUnidadMedida()
@@ -92,25 +93,70 @@ Partial Class Inventarios_TrasladoSolicitud
End Sub
#Region " FUNCIONALIDAD 105-141 "
Private Sub CargaFuncionalidad105()
Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
Private Sub CargaPS()
DdlProductoServicio.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
DdlProductoServicio.setEsWebService(EsWS)
If DdlProductoServicio.UsaWebService Then
'If isWithFamily() Then
' DdlP2.ddlWS.Attributes.Add("data-idSubFamilia", DdlClasificacion.ClientID)
'Else
' DdlP2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
'End If
DdlProductoServicio.IncluyeTodos = False
DdlProductoServicio.ddlWS.Attributes.Add("data-pagina", "inv/traspaso")
If UsuarioActual.Empresa.Funcionalidad(141) = "1" Or True Then
DdlProductoServicio.ddlWS.Attributes.Add("Data-onresult", "CargaExistenciaAlmacenes")
'CargaSucursal()
'DdlSubProyecto.AutoPostBack = True
End If
DdlProductoServicio.Attributes.Add("Data-usoclasificacion", "-1")
Else
CargaPS(-1, DdlProductoServicio)
'DdlP2.ddl.Items.Add(New ListItem("Seleccione", "-1"))
'DdlP2.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
End If
End Sub
Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost)
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlProductoServicio.ddlWS.Attributes.Add("data-cveclasificacion", "-1")
DdlProductoServicio.SelectedText = ""
DdlProductoServicio.SelectedValue = "-1"
Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString)
' Objeto.ddlWS.Attributes.Add("data-pagina", "oc/oc")
Objeto.SelectedText = ""
Objeto.SelectedValue = "-1"
Else
DdlProductoServicio.ddl.Items.Clear()
DdlProductoServicio.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1)
DdlProductoServicio.ddl.DataBind()
DdlProductoServicio.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
Objeto.ddl.Items.Clear()
Objeto.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion).FiltraParametros("", "PSCodigo")
Objeto.ddl.DataBind()
'Objeto.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
Objeto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
End If
'DdlProductoServicio.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
'DdlProductoServicio.DataBind()
'DdlProductoServicio.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
#End Region
'Private Sub CargaPS()
' DdlProductoServicio.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
' If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
' DdlProductoServicio.ddlWS.Attributes.Add("data-cveclasificacion", "-1")
' DdlProductoServicio.SelectedText = ""
' DdlProductoServicio.SelectedValue = "-1"
' Else
' DdlProductoServicio.ddl.Items.Clear()
' DdlProductoServicio.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1)
' DdlProductoServicio.ddl.DataBind()
' DdlProductoServicio.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
' End If
' 'DdlProductoServicio.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
' 'DdlProductoServicio.DataBind()
' 'DdlProductoServicio.Items.Insert(0, New ListItem("Seleccione", "-1"))
'End Sub
Private Sub CargaCombos()
DdlAlmacenOrigenFiltro.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9")
DdlAlmacenOrigenFiltro.DataBind()