Cambios en reportes

Empresas/Grales/ReportesProgramados/RPVelocidad.rdlc

@@ -1,5 +1,55 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+  <AutoRefresh>0</AutoRefresh>
+  <DataSources>
+    <DataSource Name="DsOC">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>06ae5329-8ff5-42b5-b7f4-6d68e5186420</rd:DataSourceID>
+    </DataSource>
+  </DataSources>
+  <DataSets>
+    <DataSet Name="DsOC">
+      <Query>
+        <DataSourceName>DsOC</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="Unidad">
+          <DataField>Unidad</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Fecha">
+          <DataField>Fecha</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Conductor">
+          <DataField>Conductor</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Direccion">
+          <DataField>Direccion</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Velocidad">
+          <DataField>Velocidad</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsOC</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Orlando Bojorquez\Documents\Visual Studio 2013\WebSites\WebSite1\App_Code\DsOC.xsd</rd:SchemaPath>
+        <rd:TableName>DtOCDetalle</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+  </DataSets>
+  <ReportSections>
+    <ReportSection>
       <Body>
         <ReportItems>
           <Textbox Name="Textbox15">
@@ -337,7 +387,7 @@
                                 </TextRun>
                               </TextRuns>
                               <Style>
-                            <TextAlign>Right</TextAlign>
+                                <TextAlign>Center</TextAlign>
                               </Style>
                             </Paragraph>
                           </Paragraphs>
@@ -387,21 +437,6 @@
               </Border>
             </Style>
           </Tablix>
-      <Image Name="Image2">
-        <Source>Embedded</Source>
-        <Value>LogoSinFondo</Value>
-        <Sizing>FitProportional</Sizing>
-        <Top>0.13104cm</Top>
-        <Left>1.07649cm</Left>
-        <Height>2.44264cm</Height>
-        <Width>2.74883cm</Width>
-        <ZIndex>2</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-        </Style>
-      </Image>
           <Textbox Name="Textbox1">
             <CanGrow>true</CanGrow>
             <KeepTogether>true</KeepTogether>
@@ -431,7 +466,7 @@
             <Left>2.51123cm</Left>
             <Height>0.6cm</Height>
             <Width>8.26727cm</Width>
-        <ZIndex>3</ZIndex>
+            <ZIndex>2</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -471,7 +506,56 @@
             <Left>10.88433cm</Left>
             <Height>0.6cm</Height>
             <Width>8.26727cm</Width>
+            <ZIndex>3</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Image Name="Logo">
+            <Source>External</Source>
+            <Value>=Parameters!LogoPath.Value</Value>
+            <Sizing>FitProportional</Sizing>
+            <Top>0.05159in</Top>
+            <Left>0.29332cm</Left>
+            <Height>2.09585cm</Height>
+            <Width>21.10052cm</Width>
             <ZIndex>4</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Image>
+          <Textbox Name="Textbox5">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!NombreEmpresa.Value</Value>
+                    <Style>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Center</TextAlign>
+                </Style>
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox1</rd:DefaultName>
+            <Top>1.97368cm</Top>
+            <Left>0.29332cm</Left>
+            <Height>0.6cm</Height>
+            <Width>21.10052cm</Width>
+            <ZIndex>5</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -489,7 +573,7 @@
       <Width>21.47166cm</Width>
       <Page>
         <PageFooter>
-      <Height>0.71437cm</Height>
+          <Height>0.75104cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>
@@ -550,6 +634,7 @@
                       <Style>
                         <FontFamily>Myriad Pro</FontFamily>
                         <FontSize>8pt</FontSize>
+                        <Format>g</Format>
                       </Style>
                     </TextRun>
                   </TextRuns>
@@ -558,7 +643,7 @@
               </Paragraphs>
               <rd:DefaultName>Textbox31</rd:DefaultName>
               <Top>0.17639cm</Top>
-          <Left>13.9056cm</Left>
+              <Left>10.14852cm</Left>
               <Height>0.41981cm</Height>
               <Width>6.02198cm</Width>
               <ZIndex>1</ZIndex>
@@ -572,6 +657,60 @@
                 <PaddingBottom>2pt</PaddingBottom>
               </Style>
             </Textbox>
+            <Textbox Name="Textbox32">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value xml:space="preserve"> </Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>8pt</FontSize>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value>=Globals!PageNumber</Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>8pt</FontSize>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value> de </Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>8pt</FontSize>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value>=Globals!TotalPages</Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>8pt</FontSize>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style />
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox31</rd:DefaultName>
+              <Top>0.17639cm</Top>
+              <Left>18.75852cm</Left>
+              <Height>0.41981cm</Height>
+              <Width>2.63532cm</Width>
+              <ZIndex>2</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
           </ReportItems>
           <Style>
             <Border>
@@ -588,54 +727,8 @@
         <ColumnSpacing>1.27cm</ColumnSpacing>
         <Style />
       </Page>
-  <AutoRefresh>0</AutoRefresh>
-  <DataSources>
-    <DataSource Name="DsOC">
-      <ConnectionProperties>
-        <DataProvider>System.Data.DataSet</DataProvider>
-        <ConnectString>/* Local Connection */</ConnectString>
-      </ConnectionProperties>
-      <rd:DataSourceID>06ae5329-8ff5-42b5-b7f4-6d68e5186420</rd:DataSourceID>
-    </DataSource>
-  </DataSources>
-  <DataSets>
-    <DataSet Name="DsOC">
-      <Query>
-        <DataSourceName>DsOC</DataSourceName>
-        <CommandText>/* Local Query */</CommandText>
-      </Query>
-      <Fields>
-        <Field Name="Unidad">
-          <DataField>Unidad</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Fecha">
-          <DataField>Fecha</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Conductor">
-          <DataField>Conductor</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Direccion">
-          <DataField>Direccion</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Velocidad">
-          <DataField>Velocidad</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-      </Fields>
-      <rd:DataSetInfo>
-        <rd:DataSetName>DsOC</rd:DataSetName>
-        <rd:SchemaPath>C:\Users\Orlando Bojorquez\Documents\Visual Studio 2013\WebSites\WebSite1\App_Code\DsOC.xsd</rd:SchemaPath>
-        <rd:TableName>DtOCDetalle</rd:TableName>
-        <rd:TableAdapterFillMethod />
-        <rd:TableAdapterGetDataMethod />
-        <rd:TableAdapterName />
-      </rd:DataSetInfo>
-    </DataSet>
-  </DataSets>
+    </ReportSection>
+  </ReportSections>
   <ReportParameters>
     <ReportParameter Name="FechaInicio">
       <DataType>String</DataType>
@@ -673,6 +766,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="LogoPath">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NombreEmpresa">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="compuproveedores">

GPS/Rastreo.aspx.vb

@@ -1586,7 +1586,7 @@ Partial Class GPS_Rastreo
                     RptParametro.Add(New ReportParameter("FechaInicio", FechaI.ToString))
                     RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString))
                     RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
-                    RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString))
+                    RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString))
 
                     retorno = StreamPDF(RutaReporte, DtDatos, RptParametro, $"{NombreReporte}{Date.Now.ToShortDateString}", Format, MR:=Nothing, RDSName:="DsOC")
 
@@ -1614,6 +1614,8 @@ Partial Class GPS_Rastreo
         ElseIf Opcion = "Speed" Then
             RutaReporte = "Empresas/Grales/ReportesProgramados/RPVelocidad.rdlc"
             NombreReporte = "ReporteExcesosVelocidad"
+            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
             Dim RptParametro As New List(Of ReportParameter)
             Dim DtDatos As New DataTable()
@@ -1628,9 +1630,14 @@ Partial Class GPS_Rastreo
                 RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString))
                 RptParametro.Add(New ReportParameter("MapaURL", ""))
                 RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
-                RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString))
+                RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString))
                 RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
-
+                RptParametro.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+                If Imagen.Exists Then
+                    RptParametro.Add(New ReportParameter("LogoPath", logouri))
+                Else
+                    RptParametro.Add(New ReportParameter("LogoPath", ""))
+                End If
                 For Each row As GridViewRow In GvBarra.Rows
                     Dim DrNew = DtDatos.NewRow()
 
@@ -1676,7 +1683,7 @@ Partial Class GPS_Rastreo
                     RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString))
                     RptParametro.Add(New ReportParameter("MapaURL", ""))
                     RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
-                    RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString))
+                    RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString))
                     RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
 
                     If Opcion = "Idle" Then
@@ -1825,12 +1832,20 @@ Partial Class GPS_Rastreo
 
     Private Sub ImprimirCrystal(NombreReporte As String, Format As String)
         Dim RptParametro As New List(Of CrystalParametro)
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
         RptParametro.Add(New CrystalParametro("FechaInicio", FechaI.ToString))
         RptParametro.Add(New CrystalParametro("FechaFin", FechaF.ToString))
         RptParametro.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Usuario))
-        RptParametro.Add(New CrystalParametro("FechaImpresion", DateTime.Now.ToShortDateString))
+        RptParametro.Add(New CrystalParametro("FechaImpresion", DateTime.Now.ToString))
         RptParametro.Add(New CrystalParametro("KMRecorridos", $"{DtPosiciones.SUM("KMRecorridos").ToString} KM"))
-
+        RptParametro.Add(New CrystalParametro("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        If Imagen.Exists Then
+            RptParametro.Add(New CrystalParametro("LogoPath", logouri))
+        Else
+            RptParametro.Add(New CrystalParametro("LogoPath", ""))
+        End If
         Dim DtDatos As New DataTable()
 
         DtDatos.Columns.Add("Vehiculo", GetType(String))