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

faltaba un dispose en una instancia de ClsVentas

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-09-02 12:10:49 -07:00
parent 9e7e01f81f
commit fe2567f24a
5 changed files with 18 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsPaginas.vb
View File

@@ -6990,7 +6990,7 @@ Public Class ClsPaginas
Dim rds5 As New ReportDataSource With {.Name = "DataSet5", .Value = If(Vta.DtNCVinculadas IsNot Nothing, Vta.DtNCVinculadas, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte
lrds.Add(rds5)
If UsuarioActual.CveEmpresa = 141 AndAlso (RutaFormato.Contains("Factura") Or RutaFormato.Contains("Cotizacion")) Then
If UsuarioActual.CveEmpresa.Contiene(141, 152) AndAlso (RutaFormato.Contains("Factura") Or RutaFormato.Contains("Cotizacion")) Then
params.Add(New ReportParameter("Kilometraje", Vta.Kilometraje.ToString))
End If
'Imprime los parametros

19
Bancos/RepCortes.aspx
View File

@@ -52,7 +52,7 @@
<asp:HyperLink Visible="false" NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i> Personalizar</asp:HyperLink>
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
<asp:Label ID="LblTitulo" runat="server" Text="Cortes"></asp:Label>
<asp:Label ID="LblTitulo" runat="server" Text="Reporte Cortes"></asp:Label>
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
@@ -72,7 +72,8 @@
<br />
<div class="row">
<div class="col-md-1">
SubProyecto
<asp:Label runat="server" ID="LblSubProyecto" Text="SubProyecto"/>
<%--SubProyecto--%>
</div>
<div class="col-md-2">
<asp:DropDownList runat="server" ID="DdlSubProyectos" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm">
@@ -160,7 +161,7 @@
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<HeaderTemplate>
<asp:Label Text="Ventas Credito" runat="server" CausesValidation="false"> </asp:Label>
<asp:Label Text="Ventas Crédito" runat="server" CausesValidation="false"> </asp:Label>
<asp:Literal runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</HeaderTemplate>
<ItemTemplate>
@@ -187,7 +188,7 @@
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<HeaderTemplate>
<asp:Label Text="Tarj. Debito" runat="server" CausesValidation="false"> </asp:Label>
<asp:Label Text="Tarj. Débito" runat="server" CausesValidation="false"> </asp:Label>
<asp:Literal runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</HeaderTemplate>
<ItemTemplate>
@@ -196,7 +197,7 @@
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<HeaderTemplate>
<asp:Label Text="Tarj. Credito" runat="server" CausesValidation="false"> </asp:Label>
<asp:Label Text="Tarj. Crédito" runat="server" CausesValidation="false"> </asp:Label>
<asp:Literal runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</HeaderTemplate>
<ItemTemplate>
@@ -298,7 +299,7 @@
<b>Detalles del Corte</b>
<asp:GridView ID="GvP" runat="server" AutoGenerateColumns="False" GridLines="None" Caption="Resumen" CssClass="table table-striped table-advance table-hover ScrollAD">
<Columns>
<asp:BoundField HeaderText="Metodo Pago" DataField="MetodoPago" />
<asp:BoundField HeaderText="Método Pago" DataField="MetodoPago" />
<asp:BoundField HeaderText="Total" DataField="Importe" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
@@ -306,15 +307,15 @@
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Left">
<HeaderTemplate>
SerieFolio
Serie - Folio
</HeaderTemplate>
<ItemTemplate>
<asp:HyperLink ID="LBDescripcion" runat="server" Text='<%# Eval("SerieFolio") %>' NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")%>' ></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="NombreComercial" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Cliente" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Total" DataField="ImportePagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Metodo Pago" DataField="MetodoPago" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Método Pago" DataField="MetodoPago" ItemStyle-HorizontalAlign="Left" />
</Columns>
<HeaderStyle CssClass="Titulos" />
<RowStyle CssClass="Texto" />

4
Bancos/RepCortes.aspx.vb
View File

@@ -61,9 +61,7 @@ Partial Class Bancos_RepCortes
txtFechaVI.Text = Now.ToShortDateString
txtFechaVF.Text = Now.ToShortDateString
Me.Form.DefaultButton = BtnConsultar.UniqueID
DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
DdlSubProyectos.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto)
End If
End Sub

2
Compras/PopUpVerFactura.aspx.vb
View File

@@ -518,7 +518,7 @@ Partial Class PopUpVerFactura
End If
ObjVenta.Dispose()
ObjPuntoVenta.Dispose()
Dim FechaCorte As String = $"&emsp;<b>Fecha Corte:</b> {Fecha}"
Dim FechaCorte As String = $"&emsp;<b>Fecha fin:</b> {Fecha}"
Dim Usuario As String = $"&emsp;<b>Usuario:</b> {Nombre}"
If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))

9
General/PopUpPaqueteriasGuias.aspx.cs
View File

@@ -864,17 +864,18 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
{
ClsVentas ObjVenta = new ClsVentas();
if (ObjVenta.GetVentaDetalle(CveVenta))
if (ObjVenta.GetVenta(CveVenta,UsuarioActual.CveEmpresa))
{
DataTable VentasDetalle = ObjVenta.DtResultados;
if (VentasDetalle.Rows.Count > 0)
if (ObjVenta.DtResultados.Rows.Count > 0)
{
double Total = VentasDetalle.SUM("Total");
DataRow VentasDetalle = ObjVenta.DtResultados.Rows[0];
double Total = VentasDetalle["Total"].ToString().ToDouble();
bool Mostrar = (Total >= 100000.00);
tdLblPolizaSeguro.Visible = Mostrar;
tdTxtPolizaSeguro.Visible = Mostrar;
}
}
ObjVenta.Dispose();
}
}