From 47d830f8f9f489dbb539bc3843ea6866935dc7ae Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Mon, 21 Sep 2020 10:50:46 -0700 Subject: [PATCH 1/2] Esta de resultados y anexos, Links en deatalles --- Contabilidad2/RepAnexoCatalogoAnual.aspx | 5 +- Contabilidad2/RepAnexoCatalogoAnual.aspx.vb | 191 +- Contabilidad2/RepAnexoCatalogoCC.aspx | 133 +- Contabilidad2/RepAnexoCatalogoCC.aspx.vb | 175 +- Contabilidad2/RepAnexoCatalogoMensual.aspx | 1 + Contabilidad2/RepAnexoCatalogoMensual.aspx.vb | 126 +- .../RepEstadoResultadosHorizontal.aspx.vb | 12 +- Empresas/Grales/Formatos/CartaPorte.rdlc | 5145 +++++++++-------- 8 files changed, 3118 insertions(+), 2670 deletions(-) diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx b/Contabilidad2/RepAnexoCatalogoAnual.aspx index 4e64fa231..be6bb5dc2 100644 --- a/Contabilidad2/RepAnexoCatalogoAnual.aspx +++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx @@ -101,11 +101,12 @@ +<%-- CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true"--%> - + diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb index 300c3e6ff..3e4e49632 100644 --- a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb @@ -42,6 +42,63 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual End Set End Property + + Public Property DtHeadersCount As Integer + Get + If ViewState("DtHeadersCount") Is Nothing Then + Return -1 + Else + Return ViewState("DtHeadersCount").ToString.ToEntero + End If + + + End Get + Set(value As Integer) + ViewState("DtHeadersCount") = value + End Set + End Property + + + + + Private Property DTHeaders As DataTable + + Get + + If ViewState("DTHeaders") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("DTHeaders"), DataTable) + End If + + + End Get + Set(value As DataTable) + ViewState("DTHeaders") = value + End Set + + End Property + + + Private Property DTDatos As DataTable + + Get + + If ViewState("DTDatos") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("DTDatos"), DataTable) + End If + + + End Get + Set(value As DataTable) + ViewState("DTDatos") = value + End Set + + End Property + + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -121,20 +178,33 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual Protected Sub BtnCargaAsignados_Click(sender As Object, e As EventArgs) Handles BtnCargaAsignados.Click CargaDatos() End Sub - Private Sub CargaDatos() + Private Sub CargaDatos() + + + DTHeaders = New DataTable + DTDatos = New DataTable + Dim Conta As New ClsContabilidad + DtHeadersCount = 0 + If Conta.GetAnexoCatalogoAnual(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlEjercicio2.SelectedValue.ToEntero, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero) Then - Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0) + 'Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0) + DTHeaders = Conta.DSResultados.Tables(0) + DTDatos = Conta.DSResultados.Tables(1) + + + DtHeadersCount = DTHeaders.Rows.Count GvAnual.DataSource = Conta.DSResultados.Tables(1) Dim Index = 2 For Index = 2 To GvAnual.Columns.Count - 1 GvAnual.Columns(Index).Visible = False Next Index + listaCamposanios.Clear() Index = 2 - For Each Dr As DataRow In DtHeaders.Rows + For Each Dr As DataRow In DTHeaders.Rows GvAnual.Columns(Index).Visible = True CType(GvAnual.Columns(Index), BoundField).DataField = String.Format("Ejercicio{0}", Dr("Ejercicio")) GvAnual.Columns(Index).HeaderText = Dr("Ejercicio").ToString @@ -166,7 +236,9 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual UpAnual.Update() 'RegistraScript($"LimpiaCeros({DdlDivisor.SelectedValue});") - RegistraScript($"LimpiaCeros();") + + 'RegistraScript($"LimpiaCeros();") + Conta.Dispose() @@ -191,10 +263,61 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual setgraficaCC(e) If e.Row.RowIndex = 0 Then e.Row.Style.Add("font-weight", "bold") - End If - - e.Row.Cells(1).Style.Add("text-indent", $"{e.Row.DBCampo("Level").ToString.ToEntero * 2}em") - + End If + + + If e.Row.DataKey("Level").ToEntero = 0 Then + e.Row.CssClass = "Totales" + End If + + If e.Row.DataKey("Level").ToEntero = 1 Then + e.Row.CssClass = "SubTotales" + End If + + Dim CveCunetaRow As Integer = e.Row.DataKey("CveCuenta").ToEntero + + Dim inicial As Boolean = True + Dim Index As Integer = 2 + + For Each DRow As DataRow In DTHeaders.Rows + + Dim Importe As Decimal = e.Row.DBCampo($"Ejercicio{DRow("Ejercicio")}").ToDecimal + Dim Anio As Integer = DRow("Ejercicio").ToString.ToEntero + + If Importe <> 0 Then + e.Row.Cells(Index).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + + End If + + If e.Row.Cells(Index + 1).Text.ToDecimal = 0 Then + + e.Row.Cells(Index + 1).Text = "-" + + ElseIf e.Row.Cells(Index + 1).Text.ToDecimal < 0 Then + e.Row.Cells(Index + 1).ForeColor = Drawing.Color.Red + + End If + + If e.Row.Cells(Index + 2).Text.Replace("%", "").ToDecimal = 0 Then + e.Row.Cells(Index + 2).Text = "-" + ElseIf e.Row.Cells(Index + 2).Text.Replace("%", "").ToDecimal < 0 Then + e.Row.Cells(Index + 2).ForeColor = Drawing.Color.Red + End If + + + 'If inicial Then + ' Index = Indice + 1 + ' inicial = False + ' Continue For + 'End If + + Index += 3 + Next + + + + 'e.Row.Cells(1).Style.Add("text-indent", $"{e.Row.DBCampo("Level").ToString.ToEntero * 2}em") + End If End Sub @@ -231,4 +354,56 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual + Protected Sub GvAnual_DataBound(sender As Object, e As EventArgs) + + 'If DtHeadersCount > 0 Then + + + ' '96 32 + + ' Dim NColumns As Integer = GvAnual.Columns.Count + ' Dim row As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal) + + ' Dim cell1 As New TableHeaderCell() + ' cell1.Text = "" + ' cell1.ColumnSpan = 1 + ' row.Controls.Add(cell1) + + ' Dim cell2 As New TableHeaderCell() + ' cell2.Text = "" + ' cell2.ColumnSpan = 1 + ' row.Controls.Add(cell2) + + + ' Dim cell3 As New TableHeaderCell() + ' cell3.Text = "" + ' cell3.ColumnSpan = 1 + ' row.Controls.Add(cell3) + + ' Dim cell4 As New TableHeaderCell() + ' cell4.Text = "" + ' cell4.ColumnSpan = 1 + ' row.Controls.Add(cell4) + + ' For x = 0 To DtHeadersCount + + ' Dim cell As New TableHeaderCell() + ' cell.Text = "" + ' cell.ColumnSpan = 1 + ' row.Controls.Add(cell) + + ' Dim cellColspan2 = New TableHeaderCell() + ' cellColspan2.ColumnSpan = 2 + ' cellColspan2.Text = "Variación" + ' row.Controls.Add(cellColspan2) + + ' x = x + 1 + + ' Next + + ' GvAnual.HeaderRow.Parent.Controls.AddAt(0, row) + + 'End If + + End Sub End Class diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx b/Contabilidad2/RepAnexoCatalogoCC.aspx index 03e4cd9ec..4cdfdab67 100644 --- a/Contabilidad2/RepAnexoCatalogoCC.aspx +++ b/Contabilidad2/RepAnexoCatalogoCC.aspx @@ -103,7 +103,7 @@
+ DataKeyNames="Level,CveCuenta" CssClass="ADSCROLLER2 table table-striped table-advance table-hover" data-cols="2" data-heightmenos="300"> @@ -124,141 +124,144 @@ + + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + +
diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb index a41f8dcde..dbeabfa41 100644 --- a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb @@ -33,6 +33,39 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC End Set End Property + + Private Property DTHeaders As DataTable + Get + + If ViewState("DTHeaders") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("DTHeaders"), DataTable) + End If + + End Get + Set(value As DataTable) + ViewState("DTHeaders") = value + End Set + End Property + + + Private Property DTDatos As DataTable + Get + + If ViewState("DTDatos") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("DTDatos"), DataTable) + End If + + End Get + Set(value As DataTable) + ViewState("DTDatos") = value + End Set + End Property + + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -112,12 +145,16 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC CargaDatos() End Sub - Private Sub CargaDatos() + Private Sub CargaDatos() + + DTHeaders = New DataTable + DTDatos = New DataTable Dim Conta As New ClsContabilidad If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then - Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0) + DTHeaders = Conta.DSResultados.Tables(0) + DTDatos = Conta.DSResultados.Tables(1) GvCC.DataSource = Conta.DSResultados.Tables(1) Dim Index = 4 @@ -127,18 +164,19 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC listaCampos.Clear() Index = 4 - For Each Dr As DataRow In DtHeaders.Rows + For Each Dr As DataRow In DTHeaders.Rows GvCC.Columns(Index).Visible = True CType(GvCC.Columns(Index), BoundField).DataField = String.Format("SubProyecto{0}", Dr("SubProyecto")) GvCC.Columns(Index).HeaderText = Dr("SubProyecto").ToString() - listaCampos.Add(New String() {String.Format("SubProyecto{0}", Dr("SubProyecto")), Dr("SubProyecto").ToString()}) - - - GvCC.Columns(Index + 1).Visible = True - CType(GvCC.Columns(Index + 1), BoundField).DataField = String.Format("SubProyecto{0}Porcentaje", Dr("SubProyecto")) - GvCC.Columns(Index + 1).HeaderText = "%" - - Index += 2 + listaCampos.Add(New String() {String.Format("SubProyecto{0}", Dr("SubProyecto")), Dr("SubProyecto").ToString()}) + + + 'GvCC.Columns(Index + 1).Visible = True + 'CType(GvCC.Columns(Index + 1), BoundField).DataField = String.Format("SubProyecto{0}Porcentaje", Dr("SubProyecto")) + 'GvCC.Columns(Index + 1).HeaderText = "%" + 'Index += 2 + + Index += 1 Next GvCC.DataBind() @@ -156,7 +194,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC End If - RegistraScript($"LimpiaCeros({DdlDivisor.SelectedValue});") + 'RegistraScript($"LimpiaCeros({DdlDivisor.SelectedValue});") Conta.Dispose() End Sub @@ -164,16 +202,119 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC #Region " GV ROW DATABOUND " - Protected Sub GvCC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCC.RowDataBound + Protected Sub GvCC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCC.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowIndex = 0 Then e.Row.Style.Add("font-weight", "bold") End If - setgraficaCC(e) - e.Row.Cells(1).Style.Add("text-indent", $"{e.Row.DBCampo("Level").ToString.ToEntero * 2}em") - + setgraficaCC(e) + + If e.Row.DataKey("Level").ToEntero = 0 Then + e.Row.CssClass = "Totales" + End If + + If e.Row.DataKey("Level").ToEntero = 1 Then + e.Row.CssClass = "SubTotales" + End If + + + Dim Index As Integer = 2 + + For Each DRow As DataRow In DTHeaders.Rows + Dim Importe As Decimal = e.Row.DBCampo($"SubProyecto{DRow("SubProyecto")}").ToDecimal + 'Dim Anio As Integer = DRow("SubProyecto").ToString.ToEntero + + If e.Row.CssClass = "Totales" And Index = 2 Then + e.Row.Cells(Index).ForeColor = Drawing.ColorTranslator.FromHtml("#337ab7") + End If + + + If e.Row.Cells(Index).Text.Replace("%", "").ToDecimal = 0 Then + e.Row.Cells(Index).Text = "-" + ElseIf e.Row.Cells(Index).Text.Replace("%", "").ToDecimal < 0 Then + e.Row.Cells(Index).ForeColor = Drawing.Color.Red + End If + + + + Index += 1 + Next + + Dim CveCunetaRow As Integer = e.Row.DataKey("CveCuenta").ToEntero + Dim inicial As Boolean = True + Index = 4 + + For Each DRow As DataRow In DTHeaders.Rows + + Dim Importe As Decimal = e.Row.DBCampo($"SubProyecto{DRow("SubProyecto")}").ToDecimal + 'Dim Anio As Integer = DRow("SubProyecto").ToString.ToEntero + + + If e.Row.Cells(Index).Text.Replace("%", "").ToDecimal = 0 Then + e.Row.Cells(Index).Text = "-" + ElseIf e.Row.Cells(Index).Text.Replace("%", "").ToDecimal < 0 Then + e.Row.Cells(Index).ForeColor = Drawing.Color.Red + End If + + + If Importe <> 0 Then + e.Row.Cells(Index).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + End If + + 'If e.Row.Cells(Index + 1).Text.ToDecimal = 0 Then + ' e.Row.Cells(Index + 1).Text = "-" + 'ElseIf e.Row.Cells(Index + 1).Text.ToDecimal < 0 Then + ' e.Row.Cells(Index + 1).ForeColor = Drawing.Color.Red + + 'End If + + + + Index += 1 + + Next + + + 'Index = 4 + + 'For Each DRow As DataRow In DTHeaders.Rows + + ' Dim Importe As Decimal = e.Row.DBCampo($"SubProyecto{DRow("SubProyecto")}").ToDecimal + ' 'Dim Anio As Integer = DRow("SubProyecto").ToString.ToEntero + + ' If Importe > 0 Then + ' e.Row.Cells(Index).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + ' Else + ' e.Row.Cells(Index).Text = "-" + ' End If + + ' If e.Row.Cells(Index + 1).Text.ToDecimal = 0 Then + + ' e.Row.Cells(Index + 1).Text = "-" + + ' ElseIf e.Row.Cells(Index + 1).Text.ToDecimal < 0 Then + ' e.Row.Cells(Index + 1).ForeColor = Drawing.Color.Red + + ' End If + + ' If e.Row.Cells(Index + 2).Text.Replace("%", "").ToDecimal = 0 Then + ' e.Row.Cells(Index + 2).Text = "-" + ' ElseIf e.Row.Cells(Index + 2).Text.Replace("%", "").ToDecimal < 0 Then + ' e.Row.Cells(Index + 2).ForeColor = Drawing.Color.Red + ' End If + + ' Index += 1 + + 'Next + + + + ' e.Row.Cells(1).Style.Add("text-indent", $"{e.Row.DBCampo("Level").ToString.ToEntero * 2}em") + End If + End Sub Public Sub setgraficaCC(e As GridViewRowEventArgs) @@ -198,7 +339,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC SubProyecto = DdlSubProyecto.SelectedItem.Text End If - GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", "Anexo del Catálogo - Mensual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}") + GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}") End Sub diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx b/Contabilidad2/RepAnexoCatalogoMensual.aspx index b9ebaea72..6532bb631 100644 --- a/Contabilidad2/RepAnexoCatalogoMensual.aspx +++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx @@ -121,6 +121,7 @@
diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb index 9d860b712..eccd5ea9b 100644 --- a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb @@ -169,7 +169,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual End If - RegistraScript($"LimpiaCeros();") + 'RegistraScript($"LimpiaCeros();") Conta.Dispose() End Sub @@ -183,9 +183,127 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual If e.Row.RowIndex = 0 Then e.Row.Style.Add("font-weight", "bold") End If - setgrafica(e) - e.Row.Cells(1).Style.Add("text-indent", $"{e.Row.DBCampo("Level").ToString.ToEntero * 2}em") - + setgrafica(e) + + + If e.Row.DataKey("Level").ToEntero = 0 Then + e.Row.CssClass = "Totales" + End If + + If e.Row.DataKey("Level").ToEntero = 1 Then + e.Row.CssClass = "SubTotales" + End If + + + Dim Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre As Decimal + + + Enero = e.Row.DBCampo("Enero").ToDecimal() + Febrero = e.Row.DBCampo("Febrero").ToDecimal() + Marzo = e.Row.DBCampo("Marzo").ToDecimal() + Abril = e.Row.DBCampo("Abril").ToDecimal() + Mayo = e.Row.DBCampo("Mayo").ToDecimal() + Junio = e.Row.DBCampo("Junio").ToDecimal() + Julio = e.Row.DBCampo("Julio").ToDecimal() + Agosto = e.Row.DBCampo("Agosto").ToDecimal() + Septiembre = e.Row.DBCampo("Septiembre").ToDecimal() + Octubre = e.Row.DBCampo("Octubre").ToDecimal() + Noviembre = e.Row.DBCampo("Noviembre").ToDecimal() + Diciembre = e.Row.DBCampo("Diciembre").ToDecimal() + + + Dim CveCunetaRow As Integer = e.Row.DataKey("CveCuenta").ToEntero + + + + + For x = 2 To GvMensual2.Columns.Count - 1 + + If e.Row.Cells(x).Text.Replace("%", "").ToDecimal = 0 Then + e.Row.Cells(x).Text = "-" + ElseIf e.Row.Cells(x).Text.Replace("%", "").ToDecimal < 0 Then + e.Row.Cells(x).ForeColor = Drawing.Color.Red + End If + + + If x = 2 Then + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }" + End If + + If x = 3 Then + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Febrero.ToString("###,###,##0"), Febrero.ToString("###,###,###.00")) }" + End If + + If x = 6 Then + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Marzo.ToString("###,###,##0"), Marzo.ToString("###,###,###.00")) }" + End If + + If x = 10 Then + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Abril.ToString("###,###,##0"), Abril.ToString("###,###,###.00")) }" + End If + + If x = 14 Then + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Marzo.ToString("###,###,##0"), Marzo.ToString("###,###,###.00")) }" + End If + + + If x = 17 Then + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }" + End If + + + If x = 21 Then + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }" + End If + + If x = 24 Then + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }" + End If + + + + If x = 28 Then + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }" + End If + + + If x = 32 Then + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }" + End If + + If x = 35 Then + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }" + End If + + If x = 38 Then + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }" + End If + + + + + Next + + + + + If Enero = 0 Then + e.Row.Cells(2).Text = "-" + Else + + + End If + + + + + + + ' e.Row.Cells(1).Style.Add("text-indent", $"{e.Row.DBCampo("Level").ToString.ToEntero * 2}em") + + + + ' Level 0 Total 1 SubTotal 1 End If End Sub diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 39d6dcf25..3e138cf68 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -1955,7 +1955,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim CveSubProyectoIntermo As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal - e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + + If CveSubProyectoIntermo.ToEntero > 0 Then + e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + End If + Next IndiceInicio @@ -2062,8 +2066,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal ExportToExcelG(GvIngresosAnualH, GvGastosAnualH, TMesT1, "Reporte_Anual_Horizontal", UsuarioActual, "Anual Horizontal", Gv3:=GvTotalesAnualH) ElseIf Tab.ActiveTabIndex = 3 AndAlso GvIngresosSubProyectoH.Rows.Count > 0 Then - ExportToExcelG(GvIngresosSubProyectoH, GvGastosSubProyectoH, TMesT1, "Reporte_Proyecto_Horizontal", UsuarioActual, $"{LblSubProyecto.Text} Horizontal", Gv3:=GvTotalesSubProyectoH, EsPorSubProtyecto:=True) + + ExportToExcelG(GvIngresosSubProyectoH, GvGastosSubProyectoH, TMesT1, "Reporte_Proyecto_Horizontal", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", Gv3:=GvTotalesSubProyectoH, EsPorSubProtyecto:=True) + End If + + End Sub 'Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing, Optional Filtros As String = "", Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100) diff --git a/Empresas/Grales/Formatos/CartaPorte.rdlc b/Empresas/Grales/Formatos/CartaPorte.rdlc index 157b03620..cc431f41b 100644 --- a/Empresas/Grales/Formatos/CartaPorte.rdlc +++ b/Empresas/Grales/Formatos/CartaPorte.rdlc @@ -1,2573 +1,2574 @@ - - - - - - - - - - - - true - true - - - - - CANTIDAD - - - - - - - Textbox28 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - CODIGO - - - - - - - Textbox42 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 3.20728cm - - - 12.42242cm - - - - - 0.6cm - - - - - true - true - - - - - =Fields!UnidadMedida.Value - - - - - - - UnidadMedida - - 2pt - - - - - - Black - 1pt - - - Black - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!CodigoPS.Value - - - - - - - CodigoPS - - 5pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 0.54708cm - - - true - true - - - - - UNIDAD DE MEDIDA - - - - - - - Textbox40 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.54708cm - - - true - true - - - - - CONCEPTO O DESCRIPCIÓN DEL SERVICIO - - - - - - - Textbox44 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 2.01883cm - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad - - 2pt - - - - - - Black - 1pt - - - Black - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 1.46419cm - - - true - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - 2pt - - - - - - Black - 1pt - - - Black - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - true - true - DataSet1 - 5.46866cm - 0.21008cm - 1.14708cm - 19.11272cm - - - - - - true - true - - - - - LUGAR Y FECHA DE EXPEDICIÓN: - - - - =Parameters!LugarFecha.Value - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ORIGEN: - - - - =Parameters!Origen.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - REMITENTE O EXPEDIDOR: - - - - =Parameters!NombreEmpresa.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - DOMICILIO: - - - - =Parameters!DireccionOrigen.Value - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - DESTINO: - - - - =Parameters!Destino.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - DESTINATARIO: - - - - =Parameters!NombreEmpresa.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - DOMICILIO: - - - - =Parameters!DireccionDestino.Value - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - FECHA O PLAZO PREVISTO DE ENTREGA: - - - - =Parameters!FechaEntrega.Value - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - true - true - - - - - DESIGNACIÓN Y/O DESCRIPCIÓN DE LAS MERCANCIAS A TRANSPORTAR - - - - - - - Textbox28 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 3.00921cm - - - 3.29899cm - - - 2.03729cm - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - - UM - - 2pt - - - - - - Black - 1pt - - - Black - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox31 - - 5pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox65 - - 5pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 0.52062cm - - - true - true - - - - - PESO - - - - - - - Textbox40 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - METROS CUBICOS - - - - - - - Textbox30 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - LITROS - - - - - - - Textbox64 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 10.863cm - - - true - true - - - - - =Fields!CodigoPS.Value - - - - - - - Cantidad - - 2pt - - - - - - Black - 1pt - - - Black - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - DataSet1 - 4.17165cm - 0.21008cm - 1.12062cm - 19.20849cm - 10 - - - - - - true - true - - - - - INDEMIZACIÓN: (en su caso) - - - - - 2pt - - - 1pt - - - - - - 1pt - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - OBSERVACIONES: - - - - =Parameters!Observaciones.Value - - - - - 2pt - - - - - - Black - 1pt - - - Black - 1pt - - - Black - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ________________________________ - - - - - - - - - Nombre y Firma - - - - - - - Textbox21 - 13.69816cm - 2.20199cm - 1.2cm - 5.78664cm - 13 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Quién Envía - - - - - - - Textbox22 - 12.0345cm - 2.20199cm - 0.6cm - 5.78664cm - 14 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ________________________________ - - - - - - - - - Nombre y Firma - - - - - - - Textbox21 - 13.69816cm - 11.59464cm - 1.2cm - 5.78664cm - 15 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Quién recibe - - - - - - - Textbox22 - 12.0345cm - 11.59464cm - 0.6cm - 5.78664cm - 16 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ResponsableCarga.Value - - - - - - - Textbox22 - 13.3339cm - 2.20199cm - 0.52062cm - 5.78664cm - 17 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ResponsableRecibio.Value - - - - - - - Textbox22 - 13.3339cm - 11.59464cm - 0.52062cm - 5.78664cm - 18 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - IDENTIFICACIÓN: - - - - =Parameters!Identificacion.Value - - - - - - - =Parameters!Domicilio.Value - - - - - - - =Parameters!Telefono.Value - - - - - - - =Parameters!Ciudad.Value - - - - - - - =Parameters!Licencia.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - DOCUMENTACIÓN DEL CHOFER - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 5.06862cm - - - 3.10917cm - - - 10.93493cm - - - - - 0.6cm - - - - - true - true - - - - - CHOFER: - - - - =Parameters!ResponsableRecibio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - PLACA: - - - - =Parameters!Placa.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - ESPECIFICACION DE LA UNIDAD: - - - - =Parameters!EspecifUnidad.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - - 6.75685cm - 0.21008cm - 0.6cm - 19.11272cm - 21 - - - - - - 8.91698in - - - - - - - Textbox2 - 0.38703cm - 4.42689cm - 0.78571cm - 9.73471cm - - - - true - true - - - - - =Parameters!RFC.Value - - - - - - - true - true - - - - - Domicilio de la sucursal o establecimiento, en su caso: - - - - - - - - - - true - true - - - - - Domicilio Fiscal: - - - - =Parameters!DomicilioFiscal.Value - - - - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.46171in - 1.23522in - 4 - - - - - - true - true - - - - - CARTA DE PORTE TRASLADO - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SerieFolio.Value - - - - - - - Textbox1 - 1.17274cm - 14.51156cm - 0.85524cm - 4.91707cm - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 1.23526cm - true - true - - - 0.03526cm - 0.22015cm - 0cm - 19.22862cm - - - - - - true - true - - - - - Usuario: - - - - - - - Textbox13 - 0.14109cm - 0.22015cm - 0.54708cm - 1.55632cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - - Textbox14 - 0.14109cm - 1.77647cm - 0.54708cm - 4.96223cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - - Textbox13 - 0.14109cm - 6.84454cm - 0.54708cm - 2.84562cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Globals!ExecutionTime - - - - - - - Textbox14 - 0.14109cm - 9.69015cm - 0.54708cm - 4.68641cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox14 - 0.17637cm - 14.62633cm - 0.54708cm - 4.8023cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - IMPRESO EN SIG, Traspaso Almacén - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 29.7cm - 21cm - 0.5cm - 0.5cm - 1cm - 1cm - 0.13cm - + + + + + + Textbox28 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CODIGO + + + + + + + Textbox42 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 3.20728cm + + + 12.42242cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!UnidadMedida.Value + + + + + + + UnidadMedida + + 2pt + + + + + + Black + 1pt + + + Black + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CodigoPS.Value + + + + + + + CodigoPS + + 5pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.54708cm + + + true + true + + + + + UNIDAD DE MEDIDA + + + + + + + Textbox40 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.54708cm + + + true + true + + + + + CONCEPTO O DESCRIPCIÓN DEL SERVICIO + + + + + + + Textbox44 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 2.01883cm + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + 2pt + + + + + + Black + 1pt + + + Black + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.46419cm + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + 2pt + + + + + + Black + 1pt + + + Black + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + true + true + DataSet1 + 5.46866cm + 0.21008cm + 1.14708cm + 19.11272cm + + + + + + true + true + + + + + LUGAR Y FECHA DE EXPEDICIÓN: + + + + =Parameters!LugarFecha.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ORIGEN: + + + + =Parameters!Origen.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REMITENTE O EXPEDIDOR: + + + + =Parameters!NombreEmpresa.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DOMICILIO: + + + + =Parameters!DireccionOrigen.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DESTINO: + + + + =Parameters!Destino.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DESTINATARIO: + + + + =Parameters!NombreEmpresa.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DOMICILIO: + + + + =Parameters!DireccionDestino.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + FECHA O PLAZO PREVISTO DE ENTREGA: + + + + =Parameters!FechaEntrega.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + true + true + + + + + DESIGNACIÓN Y/O DESCRIPCIÓN DE LAS MERCANCIAS A TRANSPORTAR + + + + + + + Textbox28 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 3.00921cm + + + 3.29899cm + + + 2.03729cm + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + + UM + + 2pt + + + + + + Black + 1pt + + + Black + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox31 + + 5pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox65 + + 5pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.52062cm + + + true + true + + + + + PESO + + + + + + + Textbox40 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + METROS CUBICOS + + + + + + + Textbox30 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + LITROS + + + + + + + Textbox64 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 10.863cm + + + true + true + + + + + =Fields!CodigoPS.Value + + + + + + + Cantidad + + 2pt + + + + + + Black + 1pt + + + Black + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + DataSet1 + 4.17165cm + 0.21008cm + 1.12062cm + 19.20849cm + 10 + + + + + + true + true + + + + + INDEMIZACIÓN: (en su caso) + + + + + 2pt + + + 1pt + + + + + + 1pt + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + OBSERVACIONES: + + + + =Parameters!Observaciones.Value + + + + + 2pt + + + + + + Black + 1pt + + + Black + 1pt + + + Black + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ________________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 13.69816cm + 2.20199cm + 1.2cm + 5.78664cm + 13 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Quién Envía + + + + + + + Textbox22 + 12.0345cm + 2.20199cm + 0.6cm + 5.78664cm + 14 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ________________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 13.69816cm + 11.59464cm + 1.2cm + 5.78664cm + 15 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Quién recibe + + + + + + + Textbox22 + 12.0345cm + 11.59464cm + 0.6cm + 5.78664cm + 16 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ResponsableCarga.Value + + + + + + + Textbox22 + 13.3339cm + 2.20199cm + 0.52062cm + 5.78664cm + 17 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ResponsableRecibio.Value + + + + + + + Textbox22 + 13.3339cm + 11.59464cm + 0.52062cm + 5.78664cm + 18 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + IDENTIFICACIÓN: + + + + =Parameters!Identificacion.Value + + + + + + + =Parameters!Domicilio.Value + + + + + + + =Parameters!Telefono.Value + + + + + + + =Parameters!Ciudad.Value + + + + + + + =Parameters!Licencia.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DOCUMENTACIÓN DEL CHOFER + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 5.06862cm + + + 3.10917cm + + + 10.93493cm + + + + + 0.6cm + + + + + true + true + + + + + CHOFER: + + + + =Parameters!ResponsableRecibio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + PLACA: + + + + =Parameters!Placa.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + ESPECIFICACION DE LA UNIDAD: + + + + =Parameters!EspecifUnidad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + 6.75685cm + 0.21008cm + 0.6cm + 19.11272cm + 21 + + + + + + 8.91698in + + + + + + + Textbox2 + 0.38703cm + 4.42689cm + 0.78571cm + 9.73471cm + + + + true + true + + + + + =Parameters!RFC.Value + + + + + + + true + true + + + + + Domicilio de la sucursal o establecimiento, en su caso: + + + + + + + + + + true + true + + + + + Domicilio Fiscal: + + + + =Parameters!DomicilioFiscal.Value + + + + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.46171in + 1.23522in + 4 + + + + + + true + true + + + + + CARTA DE PORTE TRASLADO + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SerieFolio.Value + + + + + + + Textbox1 + 1.17274cm + 14.51156cm + 0.85524cm + 4.91707cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 1.23526cm + true + true + + + 0.03526cm + 0.22015cm + 0cm + 19.22862cm + + + + + + true + true + + + + + Usuario: + + + + + + + Textbox13 + 0.14109cm + 0.22015cm + 0.54708cm + 1.55632cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + + Textbox14 + 0.14109cm + 1.77647cm + 0.54708cm + 4.96223cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresion: + + + + + + + Textbox13 + 0.14109cm + 6.84454cm + 0.54708cm + 2.84562cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox14 + 0.14109cm + 9.69015cm + 0.54708cm + 4.68641cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox14 + 0.17637cm + 14.62633cm + 0.54708cm + 4.8023cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + IMPRESO EN SIG, Traspaso Almacén + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.5cm + 0.5cm + 1cm + 1cm + 0.13cm +