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

Cambios en reportes

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-03-17 13:29:19 -07:00
parent 77d5f304ae
commit 2a3de0c64d
3 changed files with 720 additions and 600 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
Empresas/Grales/ReportesProgramados/RPTHistorico.rpt
View File

Binary file not shown.

241
Empresas/Grales/ReportesProgramados/RPVelocidad.rdlc
View File

@@ -1,5 +1,55 @@
<?xml version="1.0" encoding="utf-8"?> <?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> <Body>
<ReportItems> <ReportItems>
<Textbox Name="Textbox15"> <Textbox Name="Textbox15">
@@ -337,7 +387,7 @@
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style> <Style>
<TextAlign>Right</TextAlign> <TextAlign>Center</TextAlign>
</Style> </Style>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
@@ -387,21 +437,6 @@
</Border> </Border>
</Style> </Style>
</Tablix> </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"> <Textbox Name="Textbox1">
<CanGrow>true</CanGrow> <CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
@@ -431,7 +466,7 @@
<Left>2.51123cm</Left> <Left>2.51123cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>8.26727cm</Width> <Width>8.26727cm</Width>
<ZIndex>3</ZIndex> <ZIndex>2</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -471,7 +506,56 @@
<Left>10.88433cm</Left> <Left>10.88433cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>8.26727cm</Width> <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> <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> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -489,7 +573,7 @@
<Width>21.47166cm</Width> <Width>21.47166cm</Width>
<Page> <Page>
<PageFooter> <PageFooter>
<Height>0.71437cm</Height> <Height>0.75104cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage> <PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage> <PrintOnLastPage>true</PrintOnLastPage>
<ReportItems> <ReportItems>
@@ -550,6 +634,7 @@
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<Format>g</Format>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -558,7 +643,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox31</rd:DefaultName> <rd:DefaultName>Textbox31</rd:DefaultName>
<Top>0.17639cm</Top> <Top>0.17639cm</Top>
<Left>13.9056cm</Left> <Left>10.14852cm</Left>
<Height>0.41981cm</Height> <Height>0.41981cm</Height>
<Width>6.02198cm</Width> <Width>6.02198cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
@@ -572,6 +657,60 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </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> </ReportItems>
<Style> <Style>
<Border> <Border>
@@ -588,54 +727,8 @@
<ColumnSpacing>1.27cm</ColumnSpacing> <ColumnSpacing>1.27cm</ColumnSpacing>
<Style /> <Style />
</Page> </Page>
<AutoRefresh>0</AutoRefresh> </ReportSection>
<DataSources> </ReportSections>
<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>
<ReportParameters> <ReportParameters>
<ReportParameter Name="FechaInicio"> <ReportParameter Name="FechaInicio">
<DataType>String</DataType> <DataType>String</DataType>
@@ -673,6 +766,18 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </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> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="compuproveedores"> <EmbeddedImage Name="compuproveedores">

27
GPS/Rastreo.aspx.vb
View File

@@ -1586,7 +1586,7 @@ Partial Class GPS_Rastreo
RptParametro.Add(New ReportParameter("FechaInicio", FechaI.ToString)) RptParametro.Add(New ReportParameter("FechaInicio", FechaI.ToString))
RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString)) RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString))
RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) 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") 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 ElseIf Opcion = "Speed" Then
RutaReporte = "Empresas/Grales/ReportesProgramados/RPVelocidad.rdlc" RutaReporte = "Empresas/Grales/ReportesProgramados/RPVelocidad.rdlc"
NombreReporte = "ReporteExcesosVelocidad" 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 RptParametro As New List(Of ReportParameter)
Dim DtDatos As New DataTable() Dim DtDatos As New DataTable()
@@ -1628,9 +1630,14 @@ Partial Class GPS_Rastreo
RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString)) RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString))
RptParametro.Add(New ReportParameter("MapaURL", "")) RptParametro.Add(New ReportParameter("MapaURL", ""))
RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) 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("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 For Each row As GridViewRow In GvBarra.Rows
Dim DrNew = DtDatos.NewRow() Dim DrNew = DtDatos.NewRow()
@@ -1676,7 +1683,7 @@ Partial Class GPS_Rastreo
RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString)) RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString))
RptParametro.Add(New ReportParameter("MapaURL", "")) RptParametro.Add(New ReportParameter("MapaURL", ""))
RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) 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("UsuarioImprimio", UsuarioActual.Usuario))
If Opcion = "Idle" Then If Opcion = "Idle" Then
@@ -1825,12 +1832,20 @@ Partial Class GPS_Rastreo
Private Sub ImprimirCrystal(NombreReporte As String, Format As String) Private Sub ImprimirCrystal(NombreReporte As String, Format As String)
Dim RptParametro As New List(Of CrystalParametro) 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("FechaInicio", FechaI.ToString))
RptParametro.Add(New CrystalParametro("FechaFin", FechaF.ToString)) RptParametro.Add(New CrystalParametro("FechaFin", FechaF.ToString))
RptParametro.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Usuario)) 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("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() Dim DtDatos As New DataTable()
DtDatos.Columns.Add("Vehiculo", GetType(String)) DtDatos.Columns.Add("Vehiculo", GetType(String))