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

filtro incluir los cancelaciones en proceso

Browse Source
This commit is contained in:
rrene
2022-01-08 12:02:29 -07:00
parent 8ec853cd18
commit 4f0478eea5
2 changed files with 45 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Bancos/RepCxCCliente.aspx.vb
View File

@@ -19,15 +19,17 @@ Partial Class Bancos_RepCxCCliente
DdlMoneda.DataSource = GlobalDTMonedas()
DdlMoneda.DataBind()
Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
If EsWS Then
DdlClientesWS.setEsWebService(True)
Else
DdlClientesWS.setEsWebService(False)
DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
DdlClientesWS.DataBind()
DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
End If
DdlClientesWS.setEsWebService(True)
'Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
'If EsWS Then
' DdlClientesWS.setEsWebService(True)
'Else
' DdlClientesWS.setEsWebService(False)
' DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
' DdlClientesWS.DataBind()
' DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
'End If
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind()
@@ -58,7 +60,8 @@ Partial Class Bancos_RepCxCCliente
Dim Cuenta As String = If(TxtCuenta.Text = "", "-1", TxtCuenta.Text)
If Mov.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Cuenta:=Cuenta) Then
If Mov.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1,
UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Cuenta:=Cuenta, EstatusFactura:=DdlEstatusFactura.SelectedValue.ToEntero) Then
GvCxC.DataSource = Mov.DtResultados
End If
UsuarioActual.Sesion("CobroCliente-Sucursal") = DdlSubProyecto.SelectedValue