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

--Cambios en reporte de cortes

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-04-10 17:12:30 -07:00
parent 5dba84d449
commit 4b735c52c3
3 changed files with 83 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
Bancos/RepCortes.aspx
View File

@@ -427,35 +427,52 @@
</div> </div>
</div> </div>
<asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun corte" DataKeyNames="CveVenta" ToolTip="Reporte de Cortes" CssClass="table table-striped table-advance table-hover Widthall" Style="position: static" UseAccessibleHeader="false" GridLines="None"> <div class="row">
<Columns> <div class="col-md-12">
<asp:TemplateField ItemStyle-HorizontalAlign="Left"> <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun corte" DataKeyNames="CveVenta" ToolTip="Reporte de Cortes" CssClass="table table-striped table-advance table-hover Widthall" Style="position: static" UseAccessibleHeader="false" GridLines="None">
<HeaderTemplate> <Columns>
Serie - Folio <asp:TemplateField ItemStyle-HorizontalAlign="Left">
<HeaderTemplate>
Serie - Folio
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="LBDescripcion" runat="server" Text='<%# Eval("SerieFolio") %>' NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")%>'></asp:HyperLink> <asp:HyperLink ID="LBDescripcion" runat="server" Text='<%# Eval("SerieFolio") %>' NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")%>'></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="Cliente" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Cliente" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField HeaderText="Fac.Rem.Anterior" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center"> <asp:TemplateField HeaderText="Fac.Rem.Anterior" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlFacRemisionAnterior" runat="server" Text='<%# Eval("FacturaRemisionAnteriorTexto") %>'></asp:Literal> <asp:Literal ID="LtlFacRemisionAnterior" runat="server" Text='<%# Eval("FacturaRemisionAnteriorTexto") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblTotal" Text='<%# Eval("ImportePagado", "{0:N2}") %>' runat="server"></asp:Label> <asp:Label ID="LblTotal" Text='<%# Eval("ImportePagado", "{0:N2}") %>' runat="server"></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%--<asp:BoundField HeaderText="Total" DataField="ImportePagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />--%> <%--<asp:BoundField HeaderText="Total" DataField="ImportePagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />--%>
<asp:BoundField HeaderText="Método Pago" DataField="MetodoPago" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Método Pago" DataField="MetodoPago" ItemStyle-HorizontalAlign="Left" />
</Columns> </Columns>
<HeaderStyle CssClass="Titulos" /> <HeaderStyle CssClass="Titulos" />
<RowStyle CssClass="Texto" /> <RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" /> <AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView> </asp:GridView>
</div>
</div>
<div class="row">
<div class="col-md-6">
<br />
<b>Ingresos/Retiros</b>
<asp:GridView ID="GvIngresosRetiros" runat="server" AutoGenerateColumns="False" GridLines="None" CssClass="table table-striped table-advance table-hover" Width="100%">
<Columns>
<asp:BoundField HeaderText="Tipo" DataField="TipoMovimiento" />
<asp:BoundField HeaderText="Descripción" DataField="Descripcion" />
<asp:BoundField HeaderText="Total" DataField="Importe" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
</div>
</div>
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>

38
Bancos/RepCortes.aspx.vb
View File

@@ -167,31 +167,38 @@ Partial Class Bancos_RepCortes
Dim Finalizado As Integer = gvr.DataKey("Finalizado").ToString.ToEntero Dim Finalizado As Integer = gvr.DataKey("Finalizado").ToString.ToEntero
Fecha = gvr.DataKey("FechaInicial").ToString Fecha = gvr.DataKey("FechaInicial").ToString
Nombre = gvr.DataKey("Nombre").ToString Nombre = gvr.DataKey("Nombre").ToString
Dim Vent As New ClsPuntoVenta Dim ObjPuntoVenta As New ClsPuntoVenta
Dim Vn As New ClsVentas Dim ObjVentas As New ClsVentas
If Vn.GetCortesDetalleVentasResumen(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GvP.DataSource = Vn.DtResultados If ObjVentas.GetCortesDetalleVentasResumen(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
DtCortesVentasResumen = Vn.DtResultados GvP.DataSource = ObjVentas.DtResultados
DtCortesVentasResumen = ObjVentas.DtResultados
End If End If
If UsuarioActual.CveEmpresa.Contiene(190, 192) Then If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
DivIVA.Visible = True DivIVA.Visible = True
If Vn.GetCortesDetalleVentasResumenIVA(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then If ObjVentas.GetCortesDetalleVentasResumenIVA(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GvPorIVA.DataSource = Vn.DtResultados GvPorIVA.DataSource = ObjVentas.DtResultados
End If End If
End If End If
If Vn.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then If ObjVentas.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GvDep.DataSource = Vn.DtResultados GvDep.DataSource = ObjVentas.DtResultados
If Vn.DtResultados.Rows.Count > 0 Then If ObjVentas.DtResultados.Rows.Count > 0 Then
DivDep.Visible = True DivDep.Visible = True
End If End If
End If End If
If Vent.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then
GvD.DataSource = Vent.DtResultados GvD.DataSource = ObjPuntoVenta.DtResultados
DtCortesVentas = Vent.DtResultados DtCortesVentas = ObjPuntoVenta.DtResultados
divDetalle.Visible = True divDetalle.Visible = True
End If End If
If ObjPuntoVenta.GetVta_MovimientosCajas(CveCorte, -1) Then
GvIngresosRetiros.DataSource = ObjPuntoVenta.DtResultados.Copy()
End If
If (DtCortesVentasResumen IsNot Nothing AndAlso DtCortesVentasResumen.Rows.Count > 0) Or (DtCortesVentas IsNot Nothing AndAlso DtCortesVentas.Rows.Count > 0) Then If (DtCortesVentasResumen IsNot Nothing AndAlso DtCortesVentasResumen.Rows.Count > 0) Or (DtCortesVentas IsNot Nothing AndAlso DtCortesVentas.Rows.Count > 0) Then
HplDownPDF.Visible = True HplDownPDF.Visible = True
HplDownEXCEL.Visible = True HplDownEXCEL.Visible = True
@@ -201,14 +208,15 @@ Partial Class Bancos_RepCortes
HplDownPDF.Visible = False HplDownPDF.Visible = False
HplDownEXCEL.Visible = False HplDownEXCEL.Visible = False
End If End If
Vn.Dispose() ObjVentas.Dispose()
Vent.Dispose() ObjPuntoVenta.Dispose()
GvD.DataBind() GvD.DataBind()
GvP.DataBind() GvP.DataBind()
GvDep.DataBind() GvDep.DataBind()
GvPorIVA.DataBind() GvPorIVA.DataBind()
GvIngresosRetiros.DataBind()
If UsuarioActual.CveEmpresa = 193 AndAlso UsuarioActual.CveRol = 1 Then If UsuarioActual.CveEmpresa = 193 AndAlso UsuarioActual.CveRol = 1 Then
DivAnexo.Visible = True DivAnexo.Visible = True

25
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1653,23 +1653,28 @@ Partial Class PopUpVerFactura
TipoTabla = 2 TipoTabla = 2
Case "VentasCorte" Case "VentasCorte"
rowData("Columna") = "Total Ventas" rowData("Columna") = "Total Ventas"
Orden = 2 Orden = 1
TipoTabla = 1 TipoTabla = 1
Case "NotasCredito" Case "NotasCredito"
rowData("Columna") = "N.C." rowData("Columna") = "N.C."
Orden = 3 Orden = 2
TipoTabla = 1 TipoTabla = 1
Case "VentasCredito" Case "VentasCredito"
rowData("Columna") = "Ventas Crédito" rowData("Columna") = "Ventas Crédito"
Orden = 3
TipoTabla = 1
Case "VentasContado"
rowData("Columna") = "Ventas Contado"
Orden = 4 Orden = 4
TipoTabla = 1 TipoTabla = 1
Case "VentaTotalIngreso" Case "VentaTotalIngreso"
rowData("Columna") = "Ventas Ingreso" rowData("Columna") = "Ventas Ingreso"
Orden = 4 Orden = 5
TipoTabla = 1 TipoTabla = 1
Case "VentaTotalRemision" Case "VentaTotalRemision"
rowData("Columna") = "Ventas Remisiones" rowData("Columna") = "Ventas Remisiones"
Orden = 4 Orden = 6
TipoTabla = 1 TipoTabla = 1
'Case "TotalEfectivo" 'Case "TotalEfectivo"
' rowData("Columna") = "Total Efectivo" ' rowData("Columna") = "Total Efectivo"
@@ -1726,13 +1731,13 @@ Partial Class PopUpVerFactura
End If End If
Next Next
Dim TotalCredito As Decimal = DtCortesVentasResumen.SUMD("Importe", "MetodoPago = 'Crédito'") 'Dim TotalCredito As Decimal = DtCortesVentasResumen.SUMD("Importe", "MetodoPago = 'Crédito'")
Dim rowCredito = DtDatosVentas.NewRow() 'Dim rowCredito = DtDatosVentas.NewRow()
rowCredito("Columna") = "Crédito" 'rowCredito("Columna") = "Crédito"
rowCredito("Importe") = TotalCredito 'rowCredito("Importe") = TotalCredito
rowCredito("Orden") = 4 'rowCredito("Orden") = 4
DtDatosVentas.Rows.Add(rowCredito) 'DtDatosVentas.Rows.Add(rowCredito)
Dim rds3 As New ReportDataSource With {.Name = "DataSet3", .Value = DtDatosVentas.FiltraParametros("Orden > 0", "Orden")} Dim rds3 As New ReportDataSource With {.Name = "DataSet3", .Value = DtDatosVentas.FiltraParametros("Orden > 0", "Orden")}
lrds.Add(rds3) lrds.Add(rds3)