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

cambios en formatos visual

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-01-02 15:39:35 -07:00
parent 5a3d97ed87
commit 2bb53c1b26
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Acumuladores/RepEntradasUsadosClientes.aspx
View File

@@ -75,7 +75,7 @@
<Columns> <Columns>
<asp:BoundField HeaderText="Tipo" DataField="Codigo"/> <asp:BoundField HeaderText="Tipo" DataField="Codigo"/>
<asp:BoundField HeaderText="Clientes/Grupos" DataField="Codigo_Clientes"/> <asp:BoundField HeaderText="Clientes/Grupos" DataField="Codigo_Clientes"/>
<asp:BoundField HeaderText="Cantidad" DataField="Total"/> <asp:BoundField HeaderText="Cantidad" DataField="Total" DataFormatString="{0:N0}"/>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>

4
Acumuladores/RepEntradasUsadosClientes.aspx.vb
View File

@@ -49,7 +49,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
Dim Acum As New ClsAcumuladores Dim Acum As New ClsAcumuladores
If Acum.EntradasUsadosClientesRep(CveAlmacen, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If Acum.EntradasUsadosClientesRep(CveAlmacen, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
GvDatos.DataSource = Acum.DtResultados GvDatos.DataSource = Acum.DtResultados.FiltraParametros("Codigo_Clientes <> 'Total:'")
DatosEntradasUsadosClientes = Acum.DtResultados.FiltraParametros("Codigo_Clientes <> 'Total:'") DatosEntradasUsadosClientes = Acum.DtResultados.FiltraParametros("Codigo_Clientes <> 'Total:'")
End If End If
@@ -61,7 +61,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("EsHeader").ToString = "-1" Then If e.Row.DBCampo("EsHeader").ToString = "-1" Or e.Row.DBCampo("Codigo").ToString = "" Then
e.Row.CssClass = "SubTotales2" e.Row.CssClass = "SubTotales2"
End If End If