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

-

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-08-10 21:49:02 -07:00
parent cac6ee80a7
commit d35958755b
4 changed files with 15 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Contabilidad2/RepLibroDiario.aspx.vb
View File

@@ -94,10 +94,16 @@ Partial Class Contabilidad2_RepLibroDiario
If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then
e.Row.Font.Bold = True e.Row.Font.Bold = True
e.Row.Cells(4).Text = "" e.Row.Cells(4).Text = ""
e.Row.Cells(4).Visible = False
e.Row.Cells(5).Text = "" e.Row.Cells(5).Text = ""
e.Row.Cells(5).Visible = False
e.Row.Cells(6).Text = "" e.Row.Cells(6).Text = ""
e.Row.Cells(6).Visible = False
e.Row.Cells(7).Text = "" e.Row.Cells(7).Text = ""
e.Row.Cells(7).Visible = False
e.Row.Cells(8).Text = "" e.Row.Cells(8).Text = ""
e.Row.Cells(8).Visible = False
e.Row.Cells(3).ColumnSpan = 6
e.Row.CssClass = "SubTotales" ' e.Row.CssClass = "SubTotales" '
End If End If
@@ -107,6 +113,8 @@ Partial Class Contabilidad2_RepLibroDiario
e.Row.Cells(1).Text = "" e.Row.Cells(1).Text = ""
e.Row.Cells(2).Text = "" e.Row.Cells(2).Text = ""
e.Row.Cells(3).Text = "" e.Row.Cells(3).Text = ""
e.Row.Cells(7).Text = If(e.Row.Cells(7).Text.ToEntero() > 0, e.Row.Cells(7).Text, "")
e.Row.Cells(8).Text = If(e.Row.Cells(8).Text.ToEntero() > 0, e.Row.Cells(8).Text, "")
End If End If
'SUBTOTAL 'SUBTOTAL

BIN
Empresas/Grales/Formatos/LibroDiario.rpt
View File

Binary file not shown.

2
Inventarios/RepNotasSinAlmacen.aspx
View File

@@ -139,7 +139,7 @@
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div>--%> </div>--%>
<div class="col-md-1 truncate" id="DivSubProyecto" runat="server" style="text-align: right!important;">Proyecto:</div> <div class="col-md-1 truncate" id="DivSubProyecto" runat="server" style="text-align: right!important;"><asp:Label runat="server" ID="LblSubProyecto" text="Proyecto" /></div>
<div class="col-md-1" id="DivSubProyecto2" runat="server"> <div class="col-md-1" id="DivSubProyecto2" runat="server">
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="150px"> <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="150px">
<asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>

11
Inventarios/RepNotasSinAlmacen.aspx.vb
View File

@@ -93,12 +93,13 @@ Partial Class RepNotasSinAlmacen
'DdlSucursal.DataSource = GlobalDTSucursales(UsuarioActual.CveEmpresa) 'DdlSucursal.DataSource = GlobalDTSucursales(UsuarioActual.CveEmpresa)
'DdlSucursal.DataBind() 'DdlSucursal.DataBind()
DdlSubProyecto.Items.Clear() CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
DdlSubProyecto.SelectedValue = Nothing 'DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1) 'DdlSubProyecto.SelectedValue = Nothing
DdlSubProyecto.DataBind() 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
'DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1")) 'DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
End Sub End Sub
Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click