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

Formatos de Grids en Clientes

Browse Source
This commit is contained in:
janeth arvizu
2019-10-10 12:35:36 -07:00
parent d8391b6298
commit 009d9375fd
3 changed files with 91 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
Empresas/Grales/Formatos/RepProveedoresCtasBancarias.rdlc
View File

@@ -58,19 +58,19 @@
<Width>2.05941cm</Width> <Width>2.05941cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>1.81083cm</Width> <Width>2.54407cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>1.65333cm</Width> <Width>1.65333cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.15604cm</Width> <Width>1.82562cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>1.28417cm</Width> <Width>1.28417cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.19105cm</Width> <Width>1.97938cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>1.83854cm</Width> <Width>1.83854cm</Width>
@@ -79,7 +79,7 @@
<Width>1.54967cm</Width> <Width>1.54967cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>1.67385cm</Width> <Width>1.5151cm</Width>
</TablixColumn> </TablixColumn>
</TablixColumns> </TablixColumns>
<TablixRows> <TablixRows>
@@ -518,8 +518,7 @@
<rd:DefaultName>BancoNombre</rd:DefaultName> <rd:DefaultName>BancoNombre</rd:DefaultName>
<Style> <Style>
<Border> <Border>
<Color>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</Color> <Style>None</Style>
<Style>Solid</Style>
</Border> </Border>
<BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor> <BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
@@ -551,8 +550,7 @@
<rd:DefaultName>Sucursal</rd:DefaultName> <rd:DefaultName>Sucursal</rd:DefaultName>
<Style> <Style>
<Border> <Border>
<Color>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</Color> <Style>None</Style>
<Style>Solid</Style>
</Border> </Border>
<BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor> <BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
@@ -586,8 +584,7 @@
<rd:DefaultName>Cuenta</rd:DefaultName> <rd:DefaultName>Cuenta</rd:DefaultName>
<Style> <Style>
<Border> <Border>
<Color>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</Color> <Style>None</Style>
<Style>Solid</Style>
</Border> </Border>
<BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor> <BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
@@ -621,8 +618,7 @@
<rd:DefaultName>CLABE</rd:DefaultName> <rd:DefaultName>CLABE</rd:DefaultName>
<Style> <Style>
<Border> <Border>
<Color>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</Color> <Style>None</Style>
<Style>Solid</Style>
</Border> </Border>
<BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor> <BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
@@ -656,8 +652,7 @@
<rd:DefaultName>SWIFT</rd:DefaultName> <rd:DefaultName>SWIFT</rd:DefaultName>
<Style> <Style>
<Border> <Border>
<Color>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</Color> <Style>None</Style>
<Style>Solid</Style>
</Border> </Border>
<BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor> <BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
@@ -691,8 +686,7 @@
<rd:DefaultName>Plaza</rd:DefaultName> <rd:DefaultName>Plaza</rd:DefaultName>
<Style> <Style>
<Border> <Border>
<Color>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</Color> <Style>None</Style>
<Style>Solid</Style>
</Border> </Border>
<BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor> <BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
@@ -726,8 +720,7 @@
<rd:DefaultName>CIE</rd:DefaultName> <rd:DefaultName>CIE</rd:DefaultName>
<Style> <Style>
<Border> <Border>
<Color>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</Color> <Style>None</Style>
<Style>Solid</Style>
</Border> </Border>
<BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor> <BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
@@ -761,8 +754,7 @@
<rd:DefaultName>Referencia</rd:DefaultName> <rd:DefaultName>Referencia</rd:DefaultName>
<Style> <Style>
<Border> <Border>
<Color>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</Color> <Style>None</Style>
<Style>Solid</Style>
</Border> </Border>
<BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor> <BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
@@ -797,8 +789,7 @@
<rd:DefaultName>RefCrediProveedor</rd:DefaultName> <rd:DefaultName>RefCrediProveedor</rd:DefaultName>
<Style> <Style>
<Border> <Border>
<Color>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</Color> <Style>None</Style>
<Style>Solid</Style>
</Border> </Border>
<BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor> <BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
@@ -830,8 +821,7 @@
<rd:DefaultName>Moneda</rd:DefaultName> <rd:DefaultName>Moneda</rd:DefaultName>
<Style> <Style>
<Border> <Border>
<Color>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</Color> <Style>None</Style>
<Style>Solid</Style>
</Border> </Border>
<BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor> <BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
@@ -851,7 +841,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Fields!Estatus.Value</Value> <Value>=IIf(Fields!Estatus.Value = "True", "Activo", "Inactivo")</Value>
<Style> <Style>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
</Style> </Style>
@@ -865,8 +855,7 @@
<rd:DefaultName>Estatus</rd:DefaultName> <rd:DefaultName>Estatus</rd:DefaultName>
<Style> <Style>
<Border> <Border>
<Color>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</Color> <Style>None</Style>
<Style>Solid</Style>
</Border> </Border>
<BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor> <BackgroundColor>= IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
@@ -875,7 +864,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
</TablixCells> </TablixCells>
@@ -911,7 +899,7 @@
<Top>1.00112cm</Top> <Top>1.00112cm</Top>
<Left>0.12912cm</Left> <Left>0.12912cm</Left>
<Height>1.2cm</Height> <Height>1.2cm</Height>
<Width>19.86813cm</Width> <Width>19.90053cm</Width>
<ZIndex>2</ZIndex> <ZIndex>2</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -970,7 +958,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>REPORTE CUENTAS BANCARIAS</Value> <Value>REPORTE CUENTAS BANCARIAS DEL PROVEEDOR</Value>
<Style> <Style>
<FontSize>10.5pt</FontSize> <FontSize>10.5pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>

12
Ventas/Clientes.aspx
View File

@@ -1261,7 +1261,7 @@
<div class="actions"> <div class="actions">
<div class="btn-group"> <div class="btn-group">
<asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpRepProveedoresPagosBancos" Visible="false"> <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpRepProveedoresPagosBancos" >
<ContentTemplate> <ContentTemplate>
<asp:LinkButton ID="LnkCotizacionesPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton> <asp:LinkButton ID="LnkCotizacionesPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
<asp:LinkButton ID="LnkCotizacionesExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton> <asp:LinkButton ID="LnkCotizacionesExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
@@ -1758,7 +1758,7 @@
</div> </div>
<div class="actions"> <div class="actions">
<div class="btn-group"> <div class="btn-group">
<asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel2" Visible="false"> <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel2">
<ContentTemplate> <ContentTemplate>
<asp:LinkButton ID="LnkCxCActivasPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton> <asp:LinkButton ID="LnkCxCActivasPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
<asp:LinkButton ID="LnkCxCActivasExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton> <asp:LinkButton ID="LnkCxCActivasExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
@@ -1841,7 +1841,7 @@
</div> </div>
<div class="actions"> <div class="actions">
<div class="btn-group"> <div class="btn-group">
<asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel6" Visible="false"> <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel6">
<ContentTemplate> <ContentTemplate>
<asp:LinkButton ID="LnkHistorialCxCPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton> <asp:LinkButton ID="LnkHistorialCxCPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
<asp:LinkButton ID="LnkHistorialCxCExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton> <asp:LinkButton ID="LnkHistorialCxCExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
@@ -1935,7 +1935,7 @@
</div> </div>
<div class="actions"> <div class="actions">
<div class="btn-group"> <div class="btn-group">
<asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel7" Visible="false"> <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel7">
<ContentTemplate> <ContentTemplate>
<asp:LinkButton ID="LnkAnticipoClientePDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton> <asp:LinkButton ID="LnkAnticipoClientePDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
<asp:LinkButton ID="LnkAnticipoClienteExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton> <asp:LinkButton ID="LnkAnticipoClienteExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
@@ -1991,7 +1991,7 @@
</div> </div>
<div class="actions"> <div class="actions">
<div class="btn-group"> <div class="btn-group">
<asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel8" Visible="false"> <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel8">
<ContentTemplate> <ContentTemplate>
<asp:LinkButton ID="LnkAnticipoHistorialPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton> <asp:LinkButton ID="LnkAnticipoHistorialPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
<asp:LinkButton ID="LnkAnticipoHistorialExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton> <asp:LinkButton ID="LnkAnticipoHistorialExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
@@ -2069,7 +2069,7 @@
<div class="actions"> <div class="actions">
<div class="btn-group"> <div class="btn-group">
<asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel9" Visible="false"> <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel9">
<ContentTemplate> <ContentTemplate>
<asp:LinkButton ID="LnkCuentasBancariasPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton> <asp:LinkButton ID="LnkCuentasBancariasPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
<asp:LinkButton ID="LnkCuentasBancariasExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton> <asp:LinkButton ID="LnkCuentasBancariasExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>

82
Ventas/Clientes.aspx.vb
View File

@@ -399,6 +399,47 @@ Partial Class Clientes
Set(value As DataTable) Set(value As DataTable)
ViewState("DtPagos") = value ViewState("DtPagos") = value
End Set End Set
End Property
Private Property DtCotizaciones As DataTable
Get
Return CType(ViewState("DtCotizaciones"), DataTable)
End Get
Set(value As DataTable)
ViewState("DtCotizaciones") = value
End Set
End Property
Private Property DtCxCActivas As DataTable
Get
Return CType(ViewState("DtCxCActivas"), DataTable)
End Get
Set(value As DataTable)
ViewState("DtCxCActivas") = value
End Set
End Property
Private Property DtHistorialCxC As DataTable
Get
Return CType(ViewState("DtHistorialCxC"), DataTable)
End Get
Set(value As DataTable)
ViewState("DtHistorialCxC") = value
End Set
End Property
Private Property DtClientesAnticipo As DataTable
Get
Return CType(ViewState("DtClientesAnticipo"), DataTable)
End Get
Set(value As DataTable)
ViewState("DtClientesAnticipo") = value
End Set
End Property
Private Property DtAnticipoHistorial As DataTable
Get
Return CType(ViewState("DtAnticipoHistorial"), DataTable)
End Get
Set(value As DataTable)
ViewState("DtAnticipoHistorial") = value
End Set
End Property End Property
'Private Property EstatusAnteriorCliente As Boolean 'Private Property EstatusAnteriorCliente As Boolean
' Get ' Get
@@ -1654,16 +1695,20 @@ Partial Class Clientes
'Dim ObjClientesVentas As New ClsMovimientos 'Dim ObjClientesVentas As New ClsMovimientos
'CxC Clientes 'CxC Clientes
If ObjMovtos.GetCxCClienteDetalle(CveCliente, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, DdlSucursalCliente.SelectedValue.ToEntero) Then If ObjMovtos.GetCxCClienteDetalle(CveCliente, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, DdlSucursalCliente.SelectedValue.ToEntero) Then
GvCxC.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, OrdenVencimiento, FechaVencimiento") DtCxCActivas = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, OrdenVencimiento, FechaVencimiento")
GvCxC.DataSource = DtCxCActivas
'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
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
GvCxCHistorial.DataSource = dt.AsEnumerable().Take(22).CopyToDataTable() GvCxCHistorial.DataSource = dt.AsEnumerable().Take(22).CopyToDataTable()
End If End If
Retorno = True Retorno = True
Else Else
GvCxC.DataSource = Nothing GvCxC.DataSource = Nothing
DtCxCActivas = Nothing
GvCxCHistorial.DataSource = Nothing GvCxCHistorial.DataSource = Nothing
DtHistorialCxC = Nothing
End If End If
@@ -1676,11 +1721,15 @@ Partial Class Clientes
Private Sub CargaAnticipos(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1) Private Sub CargaAnticipos(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1)
Dim ObjMovtos As New ClsMovimientos() Dim ObjMovtos As New ClsMovimientos()
If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
GVAnticipos.DataSource = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0 ") DtClientesAnticipo = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0 ")
GVAnticiposHistorial.DataSource = ObjMovtos.DtResultados.FiltraParametros("Saldo <= 0 ") GVAnticipos.DataSource = DtClientesAnticipo
DtAnticipoHistorial = ObjMovtos.DtResultados.FiltraParametros("Saldo <= 0 ")
GVAnticiposHistorial.DataSource = DtAnticipoHistorial
Else Else
GVAnticipos.DataSource = Nothing GVAnticipos.DataSource = Nothing
DtClientesAnticipo = Nothing
GVAnticiposHistorial.DataSource = Nothing GVAnticiposHistorial.DataSource = Nothing
DtAnticipoHistorial = Nothing
End If End If
ObjMovtos.Dispose() ObjMovtos.Dispose()
GVAnticipos.DataBind() GVAnticipos.DataBind()
@@ -4014,6 +4063,7 @@ Partial Class Clientes
LtlFactorCotVentas.Text = If(LtlCantidad.Text.ToEntero > 0, (LtlCantidadCotizaciones.Text.ToEntero / LtlCantidad.Text.ToEntero).FormatoNumero, "0.00") LtlFactorCotVentas.Text = If(LtlCantidad.Text.ToEntero > 0, (LtlCantidadCotizaciones.Text.ToEntero / LtlCantidad.Text.ToEntero).FormatoNumero, "0.00")
'Carga Grid 'Carga Grid
GvCot.DataSource = ObjClientes.DtResultados GvCot.DataSource = ObjClientes.DtResultados
DtCotizaciones = ObjClientes.DtResultados
If UsuarioActual.Empresa.UsaOS Then If UsuarioActual.Empresa.UsaOS Then
GvCot.Columns(9).Visible = True GvCot.Columns(9).Visible = True
@@ -4026,9 +4076,11 @@ Partial Class Clientes
LtlCantidadCotizaciones.Text = "0" LtlCantidadCotizaciones.Text = "0"
LtlFactorCotVentas.Text = "0.00" LtlFactorCotVentas.Text = "0.00"
GvCot.DataSource = Nothing GvCot.DataSource = Nothing
DtCotizaciones = Nothing
End If End If
Else Else
GvCot.DataSource = Nothing GvCot.DataSource = Nothing
DtCotizaciones = Nothing
End If End If
ObjClientes.Dispose() ObjClientes.Dispose()
GvCot.DataBind() GvCot.DataBind()
@@ -9793,45 +9845,45 @@ Partial Class Clientes
#Region "C L I E N T E S G R I D S I M P R I M I R P D F/Excel" #Region "C L I E N T E S G R I D S I M P R I M I R P D F/Excel"
Private Sub LnkCotizacionesPDF_Click(sender As Object, e As EventArgs) Handles LnkCotizacionesPDF.Click Private Sub LnkCotizacionesPDF_Click(sender As Object, e As EventArgs) Handles LnkCotizacionesPDF.Click
ImprimeGridsProveedores("PDF", DTCobrosRealizados, "RepClientesCotizaciones") ImprimeGridsProveedores("PDF", DtCotizaciones, "RepClientesCotizaciones")
End Sub End Sub
Private Sub LnkCotizacionesExcel_Click(sender As Object, e As EventArgs) Handles LnkCotizacionesExcel.Click Private Sub LnkCotizacionesExcel_Click(sender As Object, e As EventArgs) Handles LnkCotizacionesExcel.Click
ImprimeGridsProveedores("Excel", DTCobrosRealizados, "RepClientesCotizaciones") ImprimeGridsProveedores("Excel", DtCotizaciones, "RepClientesCotizaciones")
End Sub End Sub
Private Sub LnkCxCActivasPDF_Click(sender As Object, e As EventArgs) Handles LnkCxCActivasPDF.Click Private Sub LnkCxCActivasPDF_Click(sender As Object, e As EventArgs) Handles LnkCxCActivasPDF.Click
ImprimeGridsProveedores("PDF", DTCobrosRealizados, "RepClientesCotizaciones") ImprimeGridsProveedores("PDF", DtCxCActivas, "RepClientesCxCActivas")
End Sub End Sub
Private Sub LnkCxCActivasExcel_Click(sender As Object, e As EventArgs) Handles LnkCxCActivasExcel.Click Private Sub LnkCxCActivasExcel_Click(sender As Object, e As EventArgs) Handles LnkCxCActivasExcel.Click
ImprimeGridsProveedores("Excel", DTCobrosRealizados, "RepClientesCotizaciones") ImprimeGridsProveedores("Excel", DtCxCActivas, "RepClientesCxCActivas")
End Sub End Sub
Private Sub LnkHistorialCxCPDF_Click(sender As Object, e As EventArgs) Handles LnkHistorialCxCPDF.Click Private Sub LnkHistorialCxCPDF_Click(sender As Object, e As EventArgs) Handles LnkHistorialCxCPDF.Click
ImprimeGridsProveedores("PDF", DTCobrosRealizados, "RepClientesCotizaciones") ImprimeGridsProveedores("PDF", DtHistorialCxC, "RepClientesHistorialCxC")
End Sub End Sub
Private Sub LnkHistorialCxCExcel_Click(sender As Object, e As EventArgs) Handles LnkHistorialCxCExcel.Click Private Sub LnkHistorialCxCExcel_Click(sender As Object, e As EventArgs) Handles LnkHistorialCxCExcel.Click
ImprimeGridsProveedores("Excel", DTCobrosRealizados, "RepClientesCotizaciones") ImprimeGridsProveedores("Excel", DtHistorialCxC, "RepClientesHistorialCxC")
End Sub End Sub
Private Sub LnkAnticipoClientePDF_Click(sender As Object, e As EventArgs) Handles LnkAnticipoClientePDF.Click Private Sub LnkAnticipoClientePDF_Click(sender As Object, e As EventArgs) Handles LnkAnticipoClientePDF.Click
ImprimeGridsProveedores("PDF", DTCobrosRealizados, "RepClientesCotizaciones") ImprimeGridsProveedores("PDF", DtClientesAnticipo, "RepClientesAnticipos")
End Sub End Sub
Private Sub LnkAnticipoClienteExcel_Click(sender As Object, e As EventArgs) Handles LnkAnticipoClienteExcel.Click Private Sub LnkAnticipoClienteExcel_Click(sender As Object, e As EventArgs) Handles LnkAnticipoClienteExcel.Click
ImprimeGridsProveedores("Excel", DTCobrosRealizados, "RepClientesCotizaciones") ImprimeGridsProveedores("Excel", DtClientesAnticipo, "RepClientesAnticipos")
End Sub End Sub
Private Sub LnkAnticipoHistorialPDF_Click(sender As Object, e As EventArgs) Handles LnkAnticipoHistorialPDF.Click Private Sub LnkAnticipoHistorialPDF_Click(sender As Object, e As EventArgs) Handles LnkAnticipoHistorialPDF.Click
ImprimeGridsProveedores("PDF", DTCobrosRealizados, "RepClientesCotizaciones") ImprimeGridsProveedores("PDF", DtAnticipoHistorial, "RepClientesAnticipoHistorial")
End Sub End Sub
Private Sub LnkAnticipoHistorialExcel_Click(sender As Object, e As EventArgs) Handles LnkAnticipoHistorialExcel.Click Private Sub LnkAnticipoHistorialExcel_Click(sender As Object, e As EventArgs) Handles LnkAnticipoHistorialExcel.Click
ImprimeGridsProveedores("Excel", DTCobrosRealizados, "RepClientesCotizaciones") ImprimeGridsProveedores("Excel", DtAnticipoHistorial, "RepClientesAnticipoHistorial")
End Sub End Sub
Private Sub LnkCuentasBancariasPDF_Click(sender As Object, e As EventArgs) Handles LnkCuentasBancariasPDF.Click Private Sub LnkCuentasBancariasPDF_Click(sender As Object, e As EventArgs) Handles LnkCuentasBancariasPDF.Click
ImprimeGridsProveedores("PDF", DTCobrosRealizados, "RepClientesCotizaciones") ImprimeGridsProveedores("PDF", DTCuentasBancos, "RepClientesCuentasBancarias")
End Sub End Sub
Private Sub LnkCuentasBancariasExcel_Click(sender As Object, e As EventArgs) Handles LnkCuentasBancariasExcel.Click Private Sub LnkCuentasBancariasExcel_Click(sender As Object, e As EventArgs) Handles LnkCuentasBancariasExcel.Click
ImprimeGridsProveedores("Excel", DTCobrosRealizados, "RepClientesCotizaciones") ImprimeGridsProveedores("Excel", DTCuentasBancos, "RepClientesCuentasBancarias")
End Sub End Sub
Private Sub ImprimeGridsProveedores(Formato As String, DtTemp As DataTable, NombreFormato As String) Private Sub ImprimeGridsProveedores(Formato As String, DtTemp As DataTable, NombreFormato As String)