From 03a16df078b8d08d4e69184205f14420bba4bc17 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 14 May 2020 20:18:17 -0700
Subject: [PATCH] =?UTF-8?q?Se=20agreg=C3=B3=20informaci=C3=B3n=20a=20RepSa?=
 =?UTF-8?q?ldosDetalle=20al=20igual=20que=20en=20Clientes=20y=20su=20repor?=
 =?UTF-8?q?te=20de=20EquiposGPS?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/RepSaldosDetalle.aspx             |  18 ++-
 Bancos/RepSaldosDetalle.aspx.vb          |   1 +
 Empresas/Grales/Formatos/EquiposGPS.rdlc | 157 +++++++++++++++++++++--
 Ventas/Clientes.aspx                     |   4 +-
 Ventas/Clientes.aspx.vb                  |   1 +
 5 files changed, 163 insertions(+), 18 deletions(-)

diff --git a/Bancos/RepSaldosDetalle.aspx b/Bancos/RepSaldosDetalle.aspx
index 6c2f52af6..1fbcf81ae 100644
--- a/Bancos/RepSaldosDetalle.aspx
+++ b/Bancos/RepSaldosDetalle.aspx
@@ -9,7 +9,7 @@
     <asp:LinkButton ID="ImgExcel" runat="server"   ><img src="/Imagenes/IconoExcel.gif" /> Generar</asp:LinkButton></li>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
-    Reporte de Saldos Bancarios Detalle&nbsp;-&nbsp;<asp:Label ID="LblCuenta" runat="server" Text=""></asp:Label>
+    Reporte de Saldos Bancarios Detalle
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
       <li>
@@ -20,11 +20,23 @@
 
     <br />
     <div class="row">
-        <div class="col-md-11">
+        <div class="col-md-1" >
+            <asp:Label runat="server" Width="100%" Style="text-align: right;">Banco: </asp:Label>
+        </div>
+        <div class="col-md-2">
+            <asp:Label runat="server" Font-Bold="true" ID="lbBancoNombre"></asp:Label>
+        </div>
+        <div class="col-md-1">
+            <asp:Label runat="server" ID="lblBancoCuenta" Width="100%" Style="text-align: right;">Cuenta: </asp:Label>
+        </div>
+        <div class="col-md-2">
+            <asp:Label ID="LblCuenta" Font-Bold="true" runat="server" Text=""></asp:Label>
+        </div>
+        <div class="col-md-5">
             <asp:Label ID="LblTextoSaldoInicial" runat="server" Text="Saldo Inicial: $ " Width="100%" Style="text-align: right;"></asp:Label>
         </div>
         <div class="col-md-1">
-            <asp:Label ID="LblSaldoInicial" Font-Bold="true" runat="server" Text="" Width="100%" Style="text-align: right;"></asp:Label>
+            <asp:Label ID="LblSaldoInicial" Font-Bold="true" runat="server" Text="" Width="100%" ></asp:Label>
         </div>
     </div>
     <br />
diff --git a/Bancos/RepSaldosDetalle.aspx.vb b/Bancos/RepSaldosDetalle.aspx.vb
index 620ae912b..42f977f51 100644
--- a/Bancos/RepSaldosDetalle.aspx.vb
+++ b/Bancos/RepSaldosDetalle.aspx.vb
@@ -155,6 +155,7 @@ Partial Class Bancos_RepSaldosDetalle
                 Cuenta = dr("NumCuenta").ToString
                 CLABE = dr("CLABE").ToString
                 Banco = dr("Banco").ToString
+                lbBancoNombre.Text = Banco
                 If CveCuenta > 0 Then
                     LblCuenta.Text = dr("NumCuenta").ToString
                     LblSaldoInicial.Text = dr("SaldoInicial").ToString.ToDouble.FormatoNumero
diff --git a/Empresas/Grales/Formatos/EquiposGPS.rdlc b/Empresas/Grales/Formatos/EquiposGPS.rdlc
index fc62c6c0b..1903cd7ba 100644
--- a/Empresas/Grales/Formatos/EquiposGPS.rdlc
+++ b/Empresas/Grales/Formatos/EquiposGPS.rdlc
@@ -35,10 +35,10 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox9</rd:DefaultName>
-        <Top>0.0441cm</Top>
-        <Left>0.09671cm</Left>
+        <Top>0.66321cm</Top>
+        <Left>0.16285cm</Left>
         <Height>0.478cm</Height>
-        <Width>17.92498cm</Width>
+        <Width>11.30626cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -50,7 +50,7 @@
         </Style>
       </Textbox>
       <Line Name="Line1">
-        <Top>0.62012cm</Top>
+        <Top>1.25512cm</Top>
         <Left>0.22583cm</Left>
         <Height>0cm</Height>
         <Width>17.79586cm</Width>
@@ -65,16 +65,16 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>3.65719cm</Width>
+              <Width>2.95132cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>3.49856cm</Width>
+              <Width>2.94294cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.44923cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.99986cm</Width>
+              <Width>1.5894cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.68423cm</Width>
@@ -82,6 +82,9 @@
             <TablixColumn>
               <Width>2.54257cm</Width>
             </TablixColumn>
+            <TablixColumn>
+              <Width>1.5217cm</Width>
+            </TablixColumn>
             <TablixColumn>
               <Width>2.19006cm</Width>
             </TablixColumn>
@@ -288,6 +291,39 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox5">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Estatus</Value>
+                              <Style />
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox5</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox3">
@@ -531,6 +567,40 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Estatus">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=iif(Fields!Estatus.Value="1","Activo","Inactivo")</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Estatus</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>White</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="FechaIng">
@@ -578,6 +648,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -591,9 +662,9 @@
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet1</DataSetName>
-        <Top>0.79651cm</Top>
+        <Top>1.43151cm</Top>
         <Height>1.16648cm</Height>
-        <Width>18.02169cm</Width>
+        <Width>17.87145cm</Width>
         <ZIndex>2</ZIndex>
         <Style>
           <Border>
@@ -601,8 +672,56 @@
           </Border>
         </Style>
       </Tablix>
+      <Textbox Name="Textbox13">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Cliente: </Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!Cliente.Value</Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value xml:space="preserve"> </Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox13</rd:DefaultName>
+        <Top>0.0441cm</Top>
+        <Left>0.16285cm</Left>
+        <Height>0.478cm</Height>
+        <Width>11.30626cm</Width>
+        <ZIndex>3</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
     </ReportItems>
-    <Height>0.86559in</Height>
+    <Height>1.13642in</Height>
     <Style />
   </Body>
   <Width>7.09515in</Width>
@@ -652,7 +771,7 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value>REPORTE SERVICIOS</Value>
+                  <Value>RELACIÓN DE EQUIPOS GPS</Value>
                   <Style>
                     <FontSize>10.5pt</FontSize>
                     <FontWeight>Bold</FontWeight>
@@ -862,11 +981,13 @@
                   <Value>=Now</Value>
                   <Style>
                     <FontSize>9pt</FontSize>
-                    <Format>D</Format>
+                    <Format>dd/MM/yyyy</Format>
                   </Style>
                 </TextRun>
               </TextRuns>
-              <Style />
+              <Style>
+                <TextAlign>Left</TextAlign>
+              </Style>
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox11</rd:DefaultName>
@@ -958,6 +1079,10 @@
           <DataField>FechaIng</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="Estatus">
+          <DataField>Estatus</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DataSet</rd:DataSetName>
@@ -994,6 +1119,12 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Cliente">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 459603c9b..e9fc7d01e 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -283,7 +283,7 @@
     <asp:UpdatePanel runat="server" ID="UpReporteGpsButton" RenderMode="Inline" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="ReporteDispositivos" Visible="False" OnClick="GenerarReporte" data-toggle="tooltip" data-placement="left" runat="server" Text="<i class='fa fa-file-pdf-o'></i> Dispositivos GPS"></asp:LinkButton>
+                <asp:LinkButton ID="ReporteDispositivos" Visible="False" OnClick="GenerarReporte" data-toggle="tooltip" data-placement="left" runat="server" Text="<i class='fa fa-file-pdf-o'></i> PDF"></asp:LinkButton>
             </li>
         </ContentTemplate>
         <Triggers>
@@ -294,7 +294,7 @@
     <asp:UpdatePanel runat="server" ID="UpReporteGpsExcel" RenderMode="Inline" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="LnkReporteExcel" Visible="False" OnClick="GenerarReporteExcel" data-toggle="tooltip" data-placement="left" runat="server" Text="<i class='fa fa-file-excel-o'></i> Dispositivos GPS"></asp:LinkButton>
+                <asp:LinkButton ID="LnkReporteExcel" Visible="False" OnClick="GenerarReporteExcel" data-toggle="tooltip" data-placement="left" runat="server" Text="<i class='fa fa-file-excel-o'></i> Excel"></asp:LinkButton>
             </li>
         </ContentTemplate>
         <Triggers>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index e1d3732bd..e2dd42935 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -3758,6 +3758,7 @@ Partial Class Clientes
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("NombreUsuario", UsuarioActual.Usuario))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+        params.Add(New ReportParameter("Cliente", TxtNombre.Text))
 
         Dim ObjGPS As New ClsGPS
         Dim tablaReporte As DataTable