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

-- que funcione la FNC 141 ó 105

Browse Source
This commit is contained in:
rrene
2023-12-09 09:03:23 -07:00
parent 0ae7bfc28d
commit 2de059a6e4
1 changed files with 3 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -518,12 +518,6 @@ Partial Class Inventarios_TraspasoAlmacen
DdlAlmacenOrigen.SelectedValueExist(UsuarioActual.CveAlmacen) DdlAlmacenOrigen.SelectedValueExist(UsuarioActual.CveAlmacen)
End Sub End Sub
Private Sub CargaPS() Private Sub CargaPS()
'DdlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
'If Not DdlProducto2.UsaWebService AndAlso CType(DdlProducto2.DataSource, DataTable) Is Nothing Then
' DdlProducto2.DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa)
' DdlProducto2.DataBind()
'End If
Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
DdlProducto2.setEsWebService(EsWS) DdlProducto2.setEsWebService(EsWS)
@@ -536,9 +530,9 @@ Partial Class Inventarios_TraspasoAlmacen
CargaExistenciasSucursal() CargaExistenciasSucursal()
DdlAlmacenOrigen.AutoPostBack = True DdlAlmacenOrigen.AutoPostBack = True
End If End If
'ElseIf Not DdlProducto2.UsaWebService AndAlso CType(DdlProducto2.DataSource, DataTable) Is Nothing Then Else
' DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero).FiltraParametros("CveTipoPS = 2") DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
' DdlProducto2.DataBind() DdlProducto2.DataBind()
End If End If
End Sub End Sub