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

RepPolizasVirtuales

Browse Source
This commit is contained in:
rakcsle
2022-02-28 09:34:36 -07:00
parent ff17857d83
commit 150ee16aab
5 changed files with 69 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
AC/Reportes/RepEstadoActividades.rdlc
View File

@@ -204,7 +204,7 @@
<Value>=Fields!ImporteAnterior.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<Format>#,0.00;(#,0.00)</Format>
<Format>#,0.00</Format>
<Color>=Iif(Fields!ImporteAnterior.Value&lt;0,"Red","Black")</Color>
<Language>es-MX</Language>
</Style>
@@ -576,7 +576,7 @@
<Value>=Fields!ImporteAnterior.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<Format>#,0.00;(#,0.00)</Format>
<Format>#,0.00</Format>
<Color>=Iif(Fields!ImporteAnterior.Value&lt;0,"Red","Black")</Color>
<Language>es-Mx</Language>
</Style>
@@ -857,7 +857,7 @@
<Width>20.24762cm</Width>
<Page>
<PageHeader>
<Height>1.66688cm</Height>
<Height>1.83445cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage>
<ReportItems>
@@ -920,11 +920,32 @@
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Centro de Costos: </Value>
<Style>
<FontSize>11pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!SubProyecto.Value</Value>
<Style>
<FontSize>11pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>0.71396cm</Top>
<Left>2.94324cm</Left>
<Height>0.6cm</Height>
<Height>1.12049cm</Height>
<Width>13.85838cm</Width>
<ZIndex>1</ZIndex>
<Style>
@@ -946,7 +967,7 @@
<TextRun>
<Value>=Parameters!pEmp.Value</Value>
<Style>
<FontSize>13pt</FontSize>
<FontSize>12pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -1292,6 +1313,12 @@
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SubProyecto">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>163d4464-e41c-42b9-8827-487ff815b059</rd:ReportID>

14
Acumuladores/RepPolizasVirtuales.aspx
View File

@@ -45,9 +45,17 @@
<div class="row">
<div class="col-md-1 truncate">
Fecha Inicio:
<asp:Label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</asp:Label>
<div runat="server" class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me Widthall" runat="server" Width="100%" ></asp:DropDownList>
</div>
<div class="col-md-1 truncate">
Fecha Inicio:
</div>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">

10
Acumuladores/RepPolizasVirtuales.aspx.vb
View File

@@ -7,14 +7,16 @@ Partial Class Acumuladores_RepPolizasVirtuales
Private Sub Acumuladores_RepPolizasVirtuales_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaCombos()
End If
End Sub
Private Sub CargaCombos()
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto:=LblSubProyecto)
End Sub
Public Sub CargaDatos()
@@ -25,7 +27,7 @@ Partial Class Acumuladores_RepPolizasVirtuales
Dim FI As Date = If(txtFechaI.Text.Length > 0, txtFechaI.Text.ToDate, MinFecha)
Dim FF As Date = If(txtFechaF.Text.Length > 0, txtFechaF.Text.ToDate, MaxFecha)
If ObjAcum.GetPolizaVirtualRep(FI, FF, DdlOpcion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
If ObjAcum.GetPolizaVirtualRep(FI, FF, DdlOpcion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.Toentero, UsuarioActual.CveUsuario) Then
GvDatos.DataSource = ObjAcum.DtResultados
If ObjAcum.DtResultados.Rows.Count > 0 Then

6
App_Code/ClsAcumuladores.vb
View File

@@ -1280,7 +1280,7 @@ Public Class ClsAcumuladores
End Function
Public Function GetPolizaVirtualRep(FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveEmpresa As Integer) As Boolean
Public Function GetPolizaVirtualRep(FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False
SqlDataAdapter("PA_Vta_PolizaVirtualRepGet")
@@ -1289,7 +1289,9 @@ Public Class ClsAcumuladores
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@Opcion", SqlDbType.Int).Value = Opcion
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With

17
Contabilidad2/RepEstadoActividades.aspx.vb
View File

@@ -319,10 +319,25 @@ Partial Class AC_RepEstadoActividades
params.Add(New ReportParameter("lbTotalActual", LbTotalActual.Text))
params.Add(New ReportParameter("lbTotalAnterior", LbTotalAnterior.Text))
params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
' params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
Dim LogoRuta As String = ""
LogoRuta = String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)
If IO.File.Exists(LogoRuta) Then
params.Add(New ReportParameter("pImg", $"file://{LogoRuta}"))
Else
params.Add(New ReportParameter("pImg", ""))
End If
params.Add(New ReportParameter("pFirma1", ""))
params.Add(New ReportParameter("pFirma2", ""))
params.Add(New ReportParameter("periodo", String.Format("de {0} {1}", DdlPeriodo.SelectedItem.Text, DdlEjercicio.SelectedItem.Text)))
params.Add(New ReportParameter("SubProyecto", DdlSubproyecto.SelectedItem.Text))
ImprimirPDF("AC/Reportes/RepEstadoActividades.rdlc", lrds, params, "EstadoActividades", Formato)
End Sub