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

-- mejora visual

Browse Source
This commit is contained in:
rrene
2023-01-16 08:16:19 -07:00
parent 236a5219e7
commit 1a91421084
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/Clientes.aspx
View File

@@ -1740,7 +1740,7 @@
<asp:ListItem Value="Efectivo" Text="Efectivo"></asp:ListItem> <asp:ListItem Value="Efectivo" Text="Efectivo"></asp:ListItem>
<asp:ListItem Value="Cheque" Text="Cheque"></asp:ListItem> <asp:ListItem Value="Cheque" Text="Cheque"></asp:ListItem>
<asp:ListItem Value="Tranferencia" Text="Transferencia"></asp:ListItem> <asp:ListItem Value="Tranferencia" Text="Transferencia"></asp:ListItem>
<asp:ListItem Value="-1" Text="Seleccione" Selected="True"></asp:ListItem> <asp:ListItem Value="-1" Text="-" Selected="True"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<label for="<%= DdlTipoPago.ClientID.ToString()%>">Tipo Pago:</label> <label for="<%= DdlTipoPago.ClientID.ToString()%>">Tipo Pago:</label>
</div> </div>

7
Ventas/Clientes.aspx.vb
View File

@@ -1050,7 +1050,7 @@ Partial Class Clientes
DdlEstadoSAT.DataSource = GlobalDTGralEstados(ClaveSATPais) DdlEstadoSAT.DataSource = GlobalDTGralEstados(ClaveSATPais)
DdlEstadoSAT.DataBind() DdlEstadoSAT.DataBind()
DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlEstadoSAT.Items.Insert(0, New ListItem("-", "-1"))
UpDatos.Update() UpDatos.Update()
End Sub End Sub
@@ -1059,11 +1059,11 @@ Partial Class Clientes
Dim Dt As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("True", "Nombre") Dim Dt As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("True", "Nombre")
DdlResponsable.DataSource = Dt.FiltraParametros("Estatus = 1", "", {"CveUsuario", "Nombre"}) DdlResponsable.DataSource = Dt.FiltraParametros("Estatus = 1", "", {"CveUsuario", "Nombre"})
DdlResponsable.DataBind() DdlResponsable.DataBind()
DdlResponsable.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlResponsable.Items.Insert(0, New ListItem("-", "-1"))
DdlResponsableSucursal.DataSource = Dt DdlResponsableSucursal.DataSource = Dt
DdlResponsableSucursal.DataBind() DdlResponsableSucursal.DataBind()
DdlResponsableSucursal.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlResponsableSucursal.Items.Insert(0, New ListItem("-", "-1"))
UpAgregarSucursal.Update() UpAgregarSucursal.Update()
UpDatos.Update() UpDatos.Update()
@@ -1975,6 +1975,7 @@ Partial Class Clientes
DtCxCActivas = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, OrdenVencimiento, FechaVencimiento") DtCxCActivas = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, OrdenVencimiento, FechaVencimiento")
GvCxC.DataSource = DtCxCActivas GvCxC.DataSource = DtCxCActivas
If DtCxCActivas.MAX("LineaAdicional") = "" Then GvCxC.Columns(6).Visible = False If DtCxCActivas.MAX("LineaAdicional") = "" Then GvCxC.Columns(6).Visible = False
If DtCxCActivas.MAX("CobranzaEstatus") = "" Then GvCxC.Columns(10).Visible = False
'solo tomo los 10 ultimos mas el totalizador general 'solo tomo los 10 ultimos mas el totalizador general
Dim dt As DataTable = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'") Dim dt As DataTable = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
DtHistorialCxC = dt DtHistorialCxC = dt