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

Correcion Filtro Estatus Cliente

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-10-01 13:53:06 -07:00
parent d9cc0379e9
commit 6ef3ae0071
2 changed files with 53 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

100
Bancos/PolizaCheque.aspx.vb
View File

@@ -403,54 +403,58 @@ Partial Class Bancos_PolizaCheque
CodigoCuenta = "" CodigoCuenta = ""
NombreCuenta = "" NombreCuenta = ""
If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables If UsuarioActual.Empresa.UsaContabilidad Then
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString))
If drr IsNot Nothing Then
IdCuenta = drt("IdCtaContable").ToString.ToEntero If drr IsNot Nothing Then
CodigoCuenta = drr("CuentaFormato").ToString() IdCuenta = drt("IdCtaContable").ToString.ToEntero
NombreCuenta = drr("Nombre").ToString() CodigoCuenta = drr("CuentaFormato").ToString()
'Cuenta = drr("Nombre").ToString() NombreCuenta = drr("Nombre").ToString()
End If 'Cuenta = drr("Nombre").ToString()
EsComodin = 0 End If
EsComodin = 0
ElseIf drt("CveConcepto").ToString = "30" Then
'saco la clave de la cuenta bancaria seleccionada ElseIf drt("CveConcepto").ToString = "30" Then
If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables 'saco la clave de la cuenta bancaria seleccionada
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero))) If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables
If drr IsNot Nothing Then Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero)))
IdCuenta = drr("Id").ToString.ToEntero If drr IsNot Nothing Then
CodigoCuenta = drr("CuentaFormato").ToString() IdCuenta = drr("Id").ToString.ToEntero
NombreCuenta = drr("Nombre").ToString() CodigoCuenta = drr("CuentaFormato").ToString()
' Cuenta = drr("Nombre").ToString() NombreCuenta = drr("Nombre").ToString()
EsComodin = 1 ' Cuenta = drr("Nombre").ToString()
Else EsComodin = 1
Else
' Rad.Checked = False
If UsuarioActual.CveEmpresa <> 126 Then ' Rad.Checked = False
Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia) If UsuarioActual.CveEmpresa <> 126 Then
GvMov.DataBind() Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia)
UPMovs.Update() GvMov.DataBind()
Exit Sub UPMovs.Update()
End If Exit Sub
End If
End If
End If End If
ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then End If
ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia))
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia))
IdCuenta = IdCtaFondoGarantia
CodigoCuenta = drr("CuentaFormato").ToString() IdCuenta = IdCtaFondoGarantia
NombreCuenta = drr("Nombre").ToString() CodigoCuenta = drr("CuentaFormato").ToString()
'Cuenta = drr("Nombre").ToString() NombreCuenta = drr("Nombre").ToString()
'Cuenta = drr("Nombre").ToString()
EsComodin = 0
EsComodin = 0
End If
End If
End If
Dim dr As DataRow = DtMovimientos.NewRow Dim dr As DataRow = DtMovimientos.NewRow
dr("IdCuenta") = IdCuenta dr("IdCuenta") = IdCuenta
dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta

2
Ventas/CatClientes.aspx
View File

@@ -60,7 +60,7 @@
<asp:DropDownList ID="DdlEstatus" runat="server" CssClass=" form-control input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%"> <asp:DropDownList ID="DdlEstatus" runat="server" CssClass=" form-control input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
<asp:ListItem Value="-1">Todos</asp:ListItem> <asp:ListItem Value="-1">Todos</asp:ListItem>
<asp:ListItem Selected="True" Value="1">Activo</asp:ListItem> <asp:ListItem Selected="True" Value="1">Activo</asp:ListItem>
<asp:ListItem Value="2">Inactivo</asp:ListItem> <asp:ListItem Value="0">Inactivo</asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>