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

Impresion Rep CxC

Browse Source
This commit is contained in:
JPerez
2025-06-27 18:09:33 -07:00
parent 901dfc8a97
commit aec9e54cc8
2 changed files with 1988 additions and 1981 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
CxC/RepCxCDetalle.aspx.vb
View File

@@ -481,7 +481,7 @@ Partial Class RepCxCDetalle
DdlContrato.DataBind()
End Sub
Private Function CargaDatos() As DataSet
Private Function CargaDatos(Optional Impresion As Boolean = True) As DataSet
Dim DSRespuesta As New DataSet
@@ -515,12 +515,12 @@ Partial Class RepCxCDetalle
CveContrato:=DdlContrato.SelectedValue.ToEntero, Aseguradora:=DdlAseguradora.SelectedValue.ToEntero, CveSubProyectoCobranza:=DdlSubProyectoCobranza.SelectedValue.ToEntero()) Then
Dim DTdatos As DataTable = ObjMovtos.DSResultados.Tables(0).Copy
DTGvSourcePersonalizaRangos(DTdatos)
DTGvSourcePersonalizaRangos(DTdatos, Impresion)
GvDatos.DataSource = DTdatos 'ObjMovtos.DSResultados.Tables(0)
'DTaDAtos = ObjMovtos.DSResultados.Tables(0)
'DTaDAtos.TableName = "DTaDAtos"
DSRespuesta.Tables.Add(ObjMovtos.DSResultados.Tables(0).Copy)
DSRespuesta.Tables.Add(DTdatos.Copy)
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
GvCartera.DataSource = ObjMovtos.DSResultados.Tables(1)
@@ -824,7 +824,7 @@ Partial Class RepCxCDetalle
Dim lrds As New List(Of ReportDataSource)
Dim DSDatos As DataSet = CargaDatos()
Dim DSDatos As DataSet = CargaDatos(Impresion:=True)
Dim dtt1 As DataTable = Nothing
Dim dtt2 As DataTable = Nothing
@@ -1262,7 +1262,7 @@ Partial Class RepCxCDetalle
End Sub
Private Sub DTGvSourcePersonalizaRangos(ByRef DtDatos As DataTable)
Private Sub DTGvSourcePersonalizaRangos(ByRef DtDatos As DataTable, Optional Impresion As Boolean = False)
DtDatos.Columns.Add("R1", GetType(Decimal))
DtDatos.Columns.Add("R2", GetType(Decimal))
@@ -1290,7 +1290,10 @@ Partial Class RepCxCDetalle
Dim chk As CheckBox = TryCast(TPersonalizar.FindControl(ChkID), CheckBox)
If chk.Checked Then
Impresion = True
End If
If Impresion Then
For Each dRowDT As DataRow In DtDatos.Rows
Dim DiasVencidos As Integer = dRowDT("DiasVencidos").ToString.ToEntero
@@ -1319,9 +1322,9 @@ Partial Class RepCxCDetalle
Next
NumColActual = NumColActual + 1
End If
Next

272
Empresas/Grales/Formatos/RepCxCDetalle.rdlc
View File

@@ -1,15 +1,121 @@
<?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:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="DataSet1">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="TipoDocto">
<DataField>TipoDocto</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Fecha">
<DataField>Fecha</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="SerieFolio">
<DataField>SerieFolio</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Total">
<DataField>Total</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="Saldo">
<DataField>Saldo</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="SubProyecto">
<DataField>SubProyecto</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="FechaVencimiento">
<DataField>FechaVencimiento</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="DiasVencidos">
<DataField>DiasVencidos</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="CveVenta">
<DataField>CveVenta</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="Codigo">
<DataField>Codigo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Nombre">
<DataField>Nombre</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DSCartera">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Rango">
<DataField>Rango</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Saldo">
<DataField>Saldo</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="Porcentaje">
<DataField>Porcentaje</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="Objetivo">
<DataField>Objetivo</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DSCartera.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
<ReportSections>
<ReportSection>
<Body>
<ReportItems>
<Tablix Name="Tablix1">
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>1.97083cm</Width>
<Width>0.75617cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.01211cm</Width>
<Width>1.68033cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.16822cm</Width>
@@ -49,9 +155,9 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Tipo Docto</Value>
<Value>Tipo</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -107,7 +213,7 @@
<TextRun>
<Value>Fecha</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -163,7 +269,7 @@
<TextRun>
<Value>Folio</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -219,7 +325,7 @@
<TextRun>
<Value>Total</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -275,7 +381,7 @@
<TextRun>
<Value>Saldo</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -331,7 +437,7 @@
<TextRun>
<Value>Sucursal Venta</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -387,7 +493,7 @@
<TextRun>
<Value>Fecha Venc.</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -441,7 +547,7 @@
<TextRun>
<Value>Dias Venc.</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -495,7 +601,7 @@
<TextRun>
<Value>Código</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -549,7 +655,7 @@
<TextRun>
<Value>Nombre</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -643,7 +749,7 @@
<TextRun>
<Value>=Microsoft.VisualBasic.Interaction.IIF(Fields!Fecha.Value Is Nothing, "Cantidad:", Fields!Fecha.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<Format>dd/MM/yyyy</Format>
<Color>=iif(Fields!SubProyecto.Value= "", "White" , "Black")</Color>
</Style>
@@ -679,7 +785,7 @@
<TextRun>
<Value>=Fields!SerieFolio.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<Color>=iif(Fields!SubProyecto.Value= "", "White" , "Black")</Color>
</Style>
</TextRun>
@@ -714,7 +820,7 @@
<TextRun>
<Value>=Fields!Total.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<Format>#,0.00;-#,0.00;'-'</Format>
<Color>=iif(Fields!SubProyecto.Value= "", "White" , "Black")</Color>
</Style>
@@ -750,7 +856,7 @@
<TextRun>
<Value>=Fields!Saldo.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<Format>#,0.00;-#,0.00;'-'</Format>
<Color>=iif(Fields!SubProyecto.Value= "", "White" , "Black")</Color>
</Style>
@@ -787,7 +893,7 @@
<Value>=Microsoft.VisualBasic.Interaction.IIF(Fields!SubProyecto.Value = "", "Total", Fields!SubProyecto.Value)</Value>
<Style>
<BackgroundColor>=iif(Fields!Sucursal.Value = "", "9CACC0","White")</BackgroundColor>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<FontWeight>=iif(Fields!CveVenta.Value = "", "Bold","Default")</FontWeight>
<Format>#,0.00;(#,0.00)</Format>
<Color>=iif(Fields!SubProyecto.Value= "", "White" , "Black")</Color>
@@ -832,7 +938,7 @@
<TextRun>
<Value>=Fields!TipoDocto.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
</TextRuns>
@@ -865,7 +971,7 @@
<TextRun>
<Value>=Fields!Fecha.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<Format>dd/MM/yyyy</Format>
</Style>
</TextRun>
@@ -899,7 +1005,7 @@
<TextRun>
<Value>=Fields!SerieFolio.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
</TextRuns>
@@ -932,7 +1038,7 @@
<TextRun>
<Value>=Fields!Total.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<Format>#,0.00;-#,0.00;'-'</Format>
</Style>
</TextRun>
@@ -966,7 +1072,7 @@
<TextRun>
<Value>=Fields!Saldo.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<Format>#,0.00;-#,0.00;'-'</Format>
</Style>
</TextRun>
@@ -1000,7 +1106,7 @@
<TextRun>
<Value>=Fields!SubProyecto.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
</TextRuns>
@@ -1031,7 +1137,7 @@
<TextRun>
<Value>=Fields!FechaVencimiento.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<Format>dd/MM/yyyy</Format>
</Style>
</TextRun>
@@ -1065,7 +1171,7 @@
<TextRun>
<Value>=Fields!DiasVencidos.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
<Format>#,0</Format>
</Style>
</TextRun>
@@ -1099,7 +1205,7 @@
<TextRun>
<Value>=Fields!Codigo.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
</TextRuns>
@@ -1129,7 +1235,7 @@
<TextRun>
<Value>=Fields!Nombre.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
</TextRuns>
@@ -1195,7 +1301,7 @@
<Top>0.15021cm</Top>
<Left>0.0635cm</Left>
<Height>1.27259cm</Height>
<Width>26.34825cm</Width>
<Width>24.80181cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -1973,110 +2079,8 @@
<ColumnSpacing>0.13cm</ColumnSpacing>
<Style />
</Page>
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="DataSet1">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="TipoDocto">
<DataField>TipoDocto</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Fecha">
<DataField>Fecha</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="SerieFolio">
<DataField>SerieFolio</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Total">
<DataField>Total</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="Saldo">
<DataField>Saldo</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="SubProyecto">
<DataField>SubProyecto</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="FechaVencimiento">
<DataField>FechaVencimiento</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="DiasVencidos">
<DataField>DiasVencidos</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="CveVenta">
<DataField>CveVenta</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="Codigo">
<DataField>Codigo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Nombre">
<DataField>Nombre</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DSCartera">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Rango">
<DataField>Rango</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Saldo">
<DataField>Saldo</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="Porcentaje">
<DataField>Porcentaje</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="Objetivo">
<DataField>Objetivo</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DSCartera.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
</ReportSection>
</ReportSections>
<ReportParameters>
<ReportParameter Name="NombreEmpresa">
<DataType>String</DataType>