From c3fdfad4927c400cfcde3d70e99f20da87466853 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 6 Nov 2019 13:12:01 -0700 Subject: [PATCH 01/12] - --- Bancos/IE.aspx.vb | 2 ++ Bancos/PagoDeudor.aspx.cs | 2 +- Ventas/PV.aspx.vb | 2 +- Ventas/Ventas.aspx.vb | 30 +++++++++++++++--------------- 4 files changed, 19 insertions(+), 17 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 1eeb43303..6e73cd85f 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2457,6 +2457,8 @@ Partial Class Bancos_IE If CveIE > 0 Then If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = ObjIE.Folio.ToEntero 'cheque + If UsuarioActual.CveEmpresa = 119 Then FolioFijo = 0 + CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)) 'valida prepoliza diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index e837bbdfa..e2d5b27ef 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -844,7 +844,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas } } bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1"); - if (UsuarioActual.CveEmpresa == 119) AutoConta = false; + //if (UsuarioActual.CveEmpresa == 119) AutoConta = false; if (AutoConta && MsgError.Equals("")) { diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index e9d5dff51..1140a2b57 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -5095,7 +5095,7 @@ Partial Class PV 'Dim NoMesesTrascurridos = Math.Ceiling(MesesTranscurridos) - TxtMesesUso.Text = (DateDiff(DateInterval.Month, FechaI, FechaF) + 1).ToString() + TxtMesesUso.Text = (DateDiff(DateInterval.Month, FechaI, FechaF)).ToString() CalculaPorcentajeAjuste() End Sub diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 587fc5346..028985042 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -9572,24 +9572,24 @@ Partial Class Ventas TCFluctuacion = GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal End If - If DdlMoneda.SelectedValue.ToEntero = 2 AndAlso Not Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then - ImporteMN251 = Dr("Importe").ToString.ToDecimal * TCFluctuacion - ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then - ImporteMN251 = Dr("Importe").ToString.ToDecimal * TCFluctuacion - ElseIf DdlMoneda.SelectedValue.ToEntero = 1 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then - Importe251 = Dr("Importe").ToString.ToDecimal / TCFluctuacion - ImporteMN251 = Dr("Importe").ToString.ToDecimal - Else - ImporteMN251 = Dr("Importe").ToString.ToDecimal - End If + If DdlMoneda.SelectedValue.ToEntero = 2 AndAlso Not Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then + ImporteMN251 = Dr("Importe").ToString.ToDecimal * TCFluctuacion + ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then + ImporteMN251 = Dr("Importe").ToString.ToDecimal * TCFluctuacion + ElseIf DdlMoneda.SelectedValue.ToEntero = 1 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then + Importe251 = Dr("Importe").ToString.ToDecimal / TCFluctuacion + ImporteMN251 = Dr("Importe").ToString.ToDecimal + Else + ImporteMN251 = Dr("Importe").ToString.ToDecimal + End If - Importe251 = (Importe251 * Multiplicador).RoundSQL + Importe251 = Importe251.RoundSQL - Importe91 = (Importe91 * ValorMultiplicador).RoundSQL - ImporteMN91 = (ImporteMN91 * Multiplicador).RoundSQL - If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${Importe91.FormatoNumero(2)}" + Importe91 = (Importe91).RoundSQL + ImporteMN91 = (ImporteMN91 * Multiplicador).RoundSQL + If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${Importe91.FormatoNumero(2)}" - CveUltimaVenta = Dr("CveVenta").ToString.ToEntero + CveUltimaVenta = Dr("CveVenta").ToString.ToEntero Dim ImporteComplementarioIngreso As Decimal = 0 If UsaComplementariaClientes = True AndAlso tipoCambio > 1 Then From c583836e907772b968a3abc00a4462ddea2c7d34 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Wed, 6 Nov 2019 14:09:10 -0700 Subject: [PATCH 02/12] Cambios de BDH --- Ventas/PV.aspx | 37 +++++++++++++++++++++++++++++-------- Ventas/PV.aspx.vb | 7 +++++-- 2 files changed, 34 insertions(+), 10 deletions(-) diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index 266060f25..9fd8b00cc 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2729,7 +2729,16 @@ -
+
+
+ + + + + +
+
+
@@ -3115,15 +3124,27 @@ var Descuento = parseFloat($get("TxtPorDescP").value); $get("LblPrecioFinal").innerText = formato_numero(Monto - ((Monto * Descuento) / 100), 2, '.', ','); - $get("TxtPrecio").value = formato_numero(parseFloat($get("LblPrecioFinal").innerText.replace(",", "").replace(",", "")), 2, '.', ','); + $get("LblTotalPS").innerText = formato_numero(parseFloat($get("LblPrecioFinal").innerText.replace(",", "").replace(",", "")), 2, '.', ','); var Total = Monto - parseFloat($get("LblPrecioFinal").innerText.replace(",", "").replace(",", "")); - $get("LblDescuento").innerText = formato_numero(Total, 2, '.', ','); + $get("LblDescuento").innerText = formato_numero(Total, 2, '.', ','); + $get("TxtDescuento").value = formato_numero(Total, 2, '.', ','); + $get("TxtDescP").value = formato_numero(0, 2, '.', ','); $get("HdnDescuento").value = Total; if (TipoDescuento == 2) { $get("LblDescuentos").innerText = formato_numero(Total, 2, '.', ','); } } - else if ($get("TxtDescP").value != "0" && $get("TxtDescP").value) { + else { + $get("LblPrecioFinal").innerText = "0.00"; + $get("LblDescuento").innerText = "0.00"; + $get("HdnDescuento").value = "0.00"; + } + + } + + function CalculaDescuentoMonto() { + + if ($get("TxtDescP").value != "0" && $get("TxtDescP").value) { var Monto = 0; var TipoDescuento = $get("HdnTipoDescuento").value; @@ -3141,11 +3162,12 @@ } var Descuento = parseFloat($get("TxtDescP").value); - $get("TxtPorDescP").value = Descuento * 100 / Monto * 10 + $get("TxtPorDescP").value = formato_numero((Descuento * 100 / Monto), 2, '.', ','); $get("LblPrecioFinal").innerText = formato_numero(Monto - Descuento, 2, '.', ','); - $get("TxtPrecio").value = formato_numero(parseFloat($get("LblPrecioFinal").innerText.replace(",", "").replace(",", "")), 2, '.', ','); + $get("LblTotalPS").innerText = formato_numero(parseFloat($get("LblPrecioFinal").innerText.replace(",", "").replace(",", "")), 2, '.', ','); var Total = Monto - parseFloat($get("LblPrecioFinal").innerText.replace(",", "").replace(",", "")); - $get("LblDescuento").innerText = formato_numero(Total, 2, '.', ','); + $get("LblDescuento").innerText = formato_numero(Total, 2, '.', ','); + $get("TxtDescuento").value = formato_numero(Total, 2, '.', ','); $get("HdnDescuento").value = Total; if (TipoDescuento == 2) { Monto - parseFloat($get("LblPrecioFinal").innerText.replace(",", "").replace(",", "")); @@ -3156,7 +3178,6 @@ $get("LblDescuento").innerText = "0.00"; $get("HdnDescuento").value = "0.00"; } - } function BorraDescuentos() { diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 326d6100a..a76ce216c 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -1062,7 +1062,7 @@ Partial Class PV 'ImgCerrarIE.Attributes.Add("OnClick", "$('#DivIngresoEgreso').hide();") 'ImgCerrarEstadoCaja.Attributes.Add("OnClick", "$('#DivEstadoCaja').hide();") TxtPorDescP.Attributes.Add("onKeyUp", "CalculaDescuento();") - TxtDescP.Attributes.Add("onKeyUp", "CalculaDescuento();") + TxtDescP.Attributes.Add("onKeyUp", "CalculaDescuentoMonto();") TxtFechaAjuste.Attributes.Add("onchange", "CalculaMesesUso();") CreaDTmpC() @@ -2771,6 +2771,9 @@ Partial Class PV Exit Sub End If + TxtDescuento.Text = FormatoNumero(0, 2) + TxtPrecio.Text = "" + If CvePSParametro > 0 Then Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("") @@ -5102,7 +5105,7 @@ Partial Class PV Dim NoMesesTrascurridos2 = DateDiff(DateInterval.Month, FechaI, FechaF) 'TxtMesesUso.Text = If(Diff > 0.5, NoMesesTrascurridos, NoMesesTrascurridos2).ToString() - TxtMesesUso.Text = NoMesesTrascurridos2 + TxtMesesUso.Text = NoMesesTrascurridos2.ToString CalculaPorcentajeAjuste() End Sub From 365dc9210e1b34fab58224ae344c1e33519552f0 Mon Sep 17 00:00:00 2001 From: Raul Pimienta Date: Thu, 7 Nov 2019 00:07:26 -0700 Subject: [PATCH 03/12] En el reporte de utilidades cuando una factura no tiene un pago pondra de color la celda de rentabilidad En reembolsos comprobaciones se habilito la opcion otros ingresos para cuando se seleccione algun cheque --- Compras/ReembolsosComprobaciones.aspx | 13 ++++++--- Compras/ReembolsosComprobaciones.aspx.vb | 34 +++++++++++++++++++++--- Ventas/RepVentasUtilidad.aspx.vb | 4 ++- 3 files changed, 43 insertions(+), 8 deletions(-) diff --git a/Compras/ReembolsosComprobaciones.aspx b/Compras/ReembolsosComprobaciones.aspx index 4df62e5a9..b8d1aeefe 100644 --- a/Compras/ReembolsosComprobaciones.aspx +++ b/Compras/ReembolsosComprobaciones.aspx @@ -117,6 +117,8 @@ + +
@@ -420,7 +422,7 @@ Cheque - + @@ -511,7 +513,12 @@ } } - } + } + if (textBoxes[i].id.indexOf('C_GvCxP_TxtComision') >= 0) { + if (textBoxes[i].value != '') { + Comision = parseFloat(Comision) + parseFloat(textBoxes[i].value.split(',').join('')); + } + } } } @@ -544,7 +551,7 @@ } - $get('TxtImporteVinculado').value = FormatoNumero(Importe, 2); + $get('TxtImporteVinculado').value = FormatoNumero(Importe + Comision, 2); } else { $get('TxtImporte').value = FormatoNumero(Importe, 2); diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index bee517f36..59620eeb6 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -263,6 +263,26 @@ Partial Class Compras_ReembolsosComprobaciones UPCompras.Update() End Sub + Protected Sub ChkOtrosIngresosCheque_CheckedChanged(sender As Object, e As EventArgs) + + If ChkOtrosIngresosCheque.Checked Then + TxtOtrosImportes.Visible = True + TxtTotal.Visible = True + GvCxP.Columns(15).Visible = True + Else + TxtOtrosImportes.Visible = False + TxtTotal.Visible = False + GvCxP.Columns(15).Visible = False + TxtOtrosImportes.Text = "" + TxtTotal.Text = "" + RegistraScript("$get('TxtImporte').value = FormatoNumero(SumaValores(), 2);") + End If + + UpDatos.Update() + UPCompras.Update() + + End Sub + #End Region #Region " SELECTED INDEX CHANGED " @@ -301,6 +321,8 @@ Partial Class Compras_ReembolsosComprobaciones PnlChequeInfo.Visible = True + ChkOtrosIngresosCheque.Visible = True + If UsuarioActual.TienePermisoProceso(113) Then TrChequeExcedente.Visible = True CargaDatos(DDlCheques.SelectedValue.ToEntero) @@ -315,6 +337,8 @@ Partial Class Compras_ReembolsosComprobaciones HdnCheque.Value = "-1" + ChkOtrosIngresosCheque.Visible = False + If UsuarioActual.TienePermisoProceso(113) Then TableExpedirCheque.Visible = True LimpiaDatos() @@ -410,9 +434,9 @@ Partial Class Compras_ReembolsosComprobaciones End If End If Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString - CveIECajaChica = ObjIE.AddBancos_IE(CveCajaChica, 8, TxtFechaDocumento.Text.Trim.ToDate, FolioIENew, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), TxtImporte.Text.ToDecimal, CveMoneda, 0, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePolizaIERegistrado, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False)) + CveIECajaChica = ObjIE.AddBancos_IE(CveCajaChica, 8, TxtFechaDocumento.Text.Trim.ToDate, FolioIENew, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), TxtImporteVinculado.Text.ToDecimal, CveMoneda, 0, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePolizaIERegistrado, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False)) 'AGREGO PREPOLIZA IE BANCOS - If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaIERegistrado, True, TxtImporte.Text.ToDecimal, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), 30, TxtObservaciones.Text, TxtFechaDocumento.Text.ToDate, IdCuentaBancaria, -1, CveIE:=CveIECajaChica, ImporteME:=If(tipoCambio = 1, 0, TxtImporte.Text.ToDecimal), ImporteMX:=TxtImporte.Text.ToDecimal * tipoCambio) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaIERegistrado, True, TxtImporteVinculado.Text.ToDecimal, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), 30, TxtObservaciones.Text, TxtFechaDocumento.Text.ToDate, IdCuentaBancaria, -1, CveIE:=CveIECajaChica, ImporteME:=If(tipoCambio = 1, 0, TxtImporteVinculado.Text.ToDecimal), ImporteMX:=TxtImporteVinculado.Text.ToDecimal * tipoCambio) Then MsgError = "Error al registrar detalle de concepto bancario" End If Else @@ -620,11 +644,12 @@ Partial Class Compras_ReembolsosComprobaciones End If 'Otros Ingresos - If ChkAjusteOI.Checked AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal > 0 Then + If (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal > 0 Then If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 211, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor) Then MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos" End If - If CveCajaChica > 0 Then + If CveCajaChica > 0 AndAlso Not HdnCheque.Value.ToEntero > 0 Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 211, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor, Contabilizable:=False) Then MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos" End If @@ -1919,4 +1944,5 @@ Partial Class Compras_ReembolsosComprobaciones #End Region + End Class diff --git a/Ventas/RepVentasUtilidad.aspx.vb b/Ventas/RepVentasUtilidad.aspx.vb index 230979595..1d7fc16cd 100644 --- a/Ventas/RepVentasUtilidad.aspx.vb +++ b/Ventas/RepVentasUtilidad.aspx.vb @@ -216,7 +216,9 @@ Partial Class Ventas_RepVentasUtilidad e.Row.CssClass = "Totales" End If - + If e.Row.DBCampo("CveVenta").ToEntero > 0 AndAlso Not CBool(e.Row.DBCampo("TienePago")) Then + e.Row.Cells(15).BackColor = Drawing.Color.LightPink + End If Dim Liga As String = String.Format("/Ventas/RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}", From b1d4830ebc8703c8619a8fc6c06f8863554b590e Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 7 Nov 2019 11:02:39 -0700 Subject: [PATCH 04/12] =?UTF-8?q?alert=20de=20m=C3=A1s,=20se=20quit=C3=B3?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/PV.aspx.vb | 33 ++++++++++++++++++++++----------- 1 file changed, 22 insertions(+), 11 deletions(-) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index a76ce216c..da7da6193 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -4920,7 +4920,7 @@ Partial Class PV TmpDTAjustes.Columns.Add("CveUM", GetType(Integer)) TmpDTAjustes.Columns.Add("CveVentaDetalle", GetType(Integer)) TmpDTAjustes.Columns.Add("CveVenta", GetType(Integer)) - TmpDTAjustes.Columns.Add("PUFactura", GetType(Integer)) + TmpDTAjustes.Columns.Add("PUFactura", GetType(Double)) End Sub @@ -5094,18 +5094,21 @@ Partial Class PV End Sub Private Sub CalculaMesesUso() - Dim FechaI = TxtFechaAjuste.Text.ToDate.AddDays(1) - Dim FechaF = Now - 'Dim NumDiasAlMes As Double = (365 / 12) - 'Dim DiasTranscurridos = DateDiff(DateInterval.Day, FechaI, FechaF) - 'Dim MesesTranscurridos As Double = (DiasTranscurridos / NumDiasAlMes) - 'Dim Diff = Math.Round(MesesTranscurridos - Math.Truncate(MesesTranscurridos), 2) + Dim FechaI As Date = TxtFechaAjuste.Text.ToDate.AddDays(1) + Dim FechaF As Date = Now + Dim FechaT As Date = String.Format("{0}/{1}/{2}", FechaI.Day, FechaF.Month, FechaF.Year).ToDate 'armo la fecha con el día del mes actual - 'Dim NoMesesTrascurridos = Math.Ceiling(MesesTranscurridos) - Dim NoMesesTrascurridos2 = DateDiff(DateInterval.Month, FechaI, FechaF) + Dim MesesTrascurridos As Integer = Math.Round(DateDiff(DateInterval.Day, FechaI, FechaT) / 30.4, 2).ToEntero 'saco los meses y lo redondeo + + If FechaT > FechaF Then + 'todavía está en el mes actual. + MesesTrascurridos = MesesTrascurridos + Else + MesesTrascurridos = MesesTrascurridos + 1 + End If + + TxtMesesUso.Text = MesesTrascurridos.ToString - 'TxtMesesUso.Text = If(Diff > 0.5, NoMesesTrascurridos, NoMesesTrascurridos2).ToString() - TxtMesesUso.Text = NoMesesTrascurridos2.ToString CalculaPorcentajeAjuste() End Sub @@ -5177,6 +5180,13 @@ Partial Class PV End If End If + 'el ajuste no puede ser mayor al precio de lo vendido de nuevo + If (TxtPrecio.Text.ToDouble - ((TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoActual - CargoAnterior))) < 0 Then + TxtDescuentoAjuste.Text = TxtPrecio.Text + TxtImporteAjuste.Text = "0.00" + CargoAnterior = CargoActual + End If + TxtDescuentoAjuste.Text = ((TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoActual - CargoAnterior)).FormatoNumero TxtDescuentoAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoActual - CargoAnterior).FormatoNumero}." End If @@ -5294,6 +5304,7 @@ Partial Class PV End If Dr("Descuento") = Math.Round((TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoActual - CargoAnterior), NumeroDecimales) + If Dr("Descuento").ToString.ToDouble > TxtPrecio.Text.ToDouble Then Dr("Descuento") = TxtPrecio.Text.ToDouble Dim TotalCalculableImpuestos As Decimal = (Dr("Cantidad").ToString.ToDecimal * (Dr("PU").ToString.ToDecimal)) - Dr("Descuento").ToString.ToDecimal Dr("ImporteIVA") = Math.Round(Dr("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales) From b98f0362dda393e52904ae00098c952a49b82d6f Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Thu, 7 Nov 2019 12:43:23 -0700 Subject: [PATCH 05/12] Validacion de Recepcion de Usados --- Ventas/PV.aspx.vb | 41 +++++++++++++++++++++++++++++++++++++++-- 1 file changed, 39 insertions(+), 2 deletions(-) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index a76ce216c..da6b993e0 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -3482,13 +3482,50 @@ Partial Class PV Return False End If - Dim CantidadUsados As Decimal = 0 + + 'Validacion de Recepción de Usados + Dim Vendido As Decimal = 0 + Dim Entregado As Decimal = 0 + Dim UltimoEntregado As Decimal = 0 + For Each Gvr As GridViewRow In GvRecepcionUsados.Rows If Gvr.RowType = DataControlRowType.DataRow Then - CantidadUsados = CantidadUsados + Gvr.FCTextBox("TxtCantidad").Text.ToEntero() + If Gvr.FCTextBox("TxtCantidad").Text.ToEntero() > 0 Then + Entregado += (Gvr.FCTextBox("TxtCantidad").Text.ToEntero * Gvr.DataKey("Cargo").ToDecimal) + UltimoEntregado = Gvr.DataKey("Cargo").ToDecimal + End If End If Next + If Entregado > 0 Then + 'Calcular Vendido + Dim DTTamanios As New DataTable + Dim ObjAcum As New ClsAcumuladores + If ObjAcum.TamañoGet(-1, UsuarioActual.CveEmpresa) Then + DTTamanios = ObjAcum.DtResultados + End If + ObjAcum.Dispose() + Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") + + If DTTamanios.Rows.Count > 0 And DTTamanios IsNot Nothing And DrPS("CveTamaño").ToString.ToEntero > 0 Then + Vendido = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { DrPS("CveTamaño") }").ToDecimal + End If + + If Entregado > Vendido Then + If (Entregado - Vendido) >= UltimoEntregado Then + Alert("No puede entregar un cargo mayor a lo Vendido", TipoMensaje.MsgAdvertencia) + Return False + End If + End If + End If + + 'Dim CantidadUsados As Decimal = 0 + 'For Each Gvr As GridViewRow In GvRecepcionUsados.Rows + ' If Gvr.RowType = DataControlRowType.DataRow Then + ' CantidadUsados = CantidadUsados + Gvr.FCTextBox("TxtCantidad").Text.ToEntero() + ' End If + 'Next + 'If CantidadUsados > TxtCantidad.Text.ToEntero() Then ' Alert("No puede tener una cantidad mayor a la de los cargos", TipoMensaje.MsgAdvertencia) ' Return False From 159ba3b28a9b40e875fdcab85573fe59eadb7413 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 7 Nov 2019 13:50:18 -0700 Subject: [PATCH 06/12] =?UTF-8?q?se=20agreg=C3=B3=20columna=20de=20cleinte?= =?UTF-8?q?,=20y=20refrescar=20al=20recibir?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RecepcionUsados.aspx | 2 ++ Inventarios/RecepcionUsados.aspx.vb | 5 +++++ 2 files changed, 7 insertions(+) diff --git a/Inventarios/RecepcionUsados.aspx b/Inventarios/RecepcionUsados.aspx index cd25a6832..804c83873 100644 --- a/Inventarios/RecepcionUsados.aspx +++ b/Inventarios/RecepcionUsados.aspx @@ -324,6 +324,8 @@ + + diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 96262ce47..1b073987b 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -1096,6 +1096,7 @@ Partial Class Inventarios_RecepcionUsados EnvioCorreo() + CargaPendientesRecibir() UPDatos.Update() Else @@ -1923,6 +1924,10 @@ Partial Class Inventarios_RecepcionUsados End Sub Protected Sub BtnConsultarPendientes_Click(sender As Object, e As EventArgs) + CargaPendientesRecibir() + End Sub + + Private Sub CargaPendientesRecibir() Dim ObjVentas As New ClsVentas If ObjVentas.GetVentasUsados(-1, DdlSubProyectos.SelectedValue.ToEntero(), TxtFechaPendientes.Text.ToDateTime(), UsuarioActual.CveEmpresa) Then GVPendientes.DataSource = ObjVentas.DtResultados From 2945b20316dbcdbf5f7ba8ce4186f0b13d6a1889 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Thu, 7 Nov 2019 13:52:57 -0700 Subject: [PATCH 07/12] Formato de Reporte de Solicitudes de Anticipo --- .../Grales/Formatos/RepSolicitudAnticipo.rdlc | 969 ++++++++++++++++++ 1 file changed, 969 insertions(+) create mode 100644 Empresas/Grales/Formatos/RepSolicitudAnticipo.rdlc diff --git a/Empresas/Grales/Formatos/RepSolicitudAnticipo.rdlc b/Empresas/Grales/Formatos/RepSolicitudAnticipo.rdlc new file mode 100644 index 000000000..0a0262614 --- /dev/null +++ b/Empresas/Grales/Formatos/RepSolicitudAnticipo.rdlc @@ -0,0 +1,969 @@ + + + + + + + + + + + + true + true + + + + + OC + + + + + + + Textbox28 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 7.36287cm + + + 3.6966cm + + + 2.91394cm + + + 1.65333cm + + + 2.5cm + + + + + 0.46771cm + + + + + true + true + + + + + =Fields!RazonSocial.Value + + + + + + + RazonSocial + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Nombre.Value + + + + + + + Nombre + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteSol.Value + + + + + + + ImporteSol + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!FolioMov.Value + + + + + + + FolioMov + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + + + + + + 0.46771cm + + + true + true + + + + + Proveedor + + + + + + + Textbox6 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.46771cm + + + true + true + + + + + Usuario Solicitó + + + + + + + Textbox4 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.46771cm + + + true + true + + + + + Importe Solicitud + + + + + + + Textbox40 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.46771cm + + + true + true + + + + + Mov. Banc. + + + + + + + Textbox5 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + =IIf(Parameters!Estatus.Value = "3",False,True) + + + + + 0.46771cm + + + true + true + + + + + Importe + + + + + + + Textbox18 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + =IIf(Parameters!Estatus.Value = "3",False,True) + + + + + + + + + + 1.60042cm + + + true + true + + + + + =Fields!Folio.Value + + + + + + + Folio + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + DataSet1 + 0.82931cm + 0.06614cm + 0.93542cm + 19.72716cm + + + + + + true + true + + + + + =Parameters!AgrupadoPor.Value + HTML + + + + + + + Textbox1 + 0.07056cm + 0.06614cm + 0.58236cm + 19.58715cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.79506in + + + + + + + Textbox1 + 2.43857cm + 0.6cm + 14.68354cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE DE SOLICITUDES DE ANTICIPO + + + + + + + + + + + + + + + + Textbox2 + 0.63528cm + 2.40329cm + 0.52945cm + 14.68354cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 1.61043cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.40041cm + 16.97887cm + 0.68085cm + 2.06587cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + IMPRESO EN SIG, Rep. Solicitudes Anticipo + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.40041cm + 0.06614cm + 0cm + 19.58715cm + 6 + + + + + + + + + + 29.7cm + 21cm + 0.5cm + 0.5cm + 1cm + 1cm + 0.13cm + - 3.1764cm + 4.4023cm + 0.01325cm 0cm 20.90669cm 4 @@ -2107,6 +2108,7 @@ 0.127cm + 0cm 0cm 20.90669cm 5 diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 4b128eac3..115a6f2cf 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -373,16 +373,16 @@ Partial Class OS_OrdenesServicios End If UpDetalleOS.Update() End Sub - Protected Sub DdlCCEdit_SelectedIndexChanged(sender As Object, e As System.EventArgs) - Dim gvr As GridViewRow = DirectCast(DirectCast(sender, DropDownList).BindingContainer, GridViewRow) - Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue + 'Protected Sub DdlCCEdit_SelectedIndexChanged(sender As Object, e As System.EventArgs) + ' Dim gvr As GridViewRow = DirectCast(DirectCast(sender, DropDownList).BindingContainer, GridViewRow) + ' Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue - gvr.FCDropDownList("DDlSubProyecto").Items.Clear() - gvr.FCDropDownList("DDlSubProyecto").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero) - gvr.FCDropDownList("DDlSubProyecto").DataBind() - gvr.FCDropDownList("DDlSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1")) + ' gvr.FCDropDownList("DDlSubProyecto").Items.Clear() + ' gvr.FCDropDownList("DDlSubProyecto").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero) + ' gvr.FCDropDownList("DDlSubProyecto").DataBind() + ' gvr.FCDropDownList("DDlSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1")) - End Sub + 'End Sub Protected Sub DdlFR_SelectedIndexChanged(sender As Object, e As EventArgs) Dim DdlFR_Gv As DropDownList = CType(sender, DropDownList) Dim index As Integer = CType(DdlFR_Gv.NamingContainer, GridViewRow).FCLiteral("LtlConsecutivo").Text.ToString.ToEntero @@ -1303,6 +1303,7 @@ Partial Class OS_OrdenesServicios TmpDT.Rows(Row.RowIndex)("Estatus") = "False" Row.FCLinkButton("imgEstatus").CssClass = "btn btn-circle btn-sm red" End If + UpDetalleOS.Update() End Sub Private Sub BtnAddGvDetalle_Click(sender As Object, e As EventArgs) Handles BtnAddGvDetalle.Click Dim ObjOS As New ClsOS From 51c28b8448d1a6b114e6e39c2a5d4f17c27c4506 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Fri, 8 Nov 2019 09:59:32 -0700 Subject: [PATCH 10/12] Totales de Formato de Situacion Financiera --- AC/RepSituacionFinanciera.aspx.vb | 1311 ++--- AC/Reportes/RepSituacionFinanciera.rdlc | 6182 ++++++++++++----------- 2 files changed, 3753 insertions(+), 3740 deletions(-) diff --git a/AC/RepSituacionFinanciera.aspx.vb b/AC/RepSituacionFinanciera.aspx.vb index 9a029a39f..36109f21b 100644 --- a/AC/RepSituacionFinanciera.aspx.vb +++ b/AC/RepSituacionFinanciera.aspx.vb @@ -1,655 +1,656 @@ -Option Explicit On -Option Strict On - -Imports System.Data -Imports Extensiones -Imports Microsoft.Reporting.WebForms -Partial Class AC_SituacionFinanciera - Inherits ClsPaginas - -#Region "PROPIEDADES" - Private Property DtDatos As DataTable - Get - DtDatos = DirectCast(ViewState("DtDatos"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtDatos") = value - End Set - End Property - Private Property DtCuentasOrden As DataTable - Get - DtCuentasOrden = DirectCast(ViewState("DtCuentasOrden"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtCuentasOrden") = value - End Set - End Property - Private Property TotalActivoActual As Double - Get - TotalActivoActual = ViewState("TotalActivoActual").ToString.ToDouble - End Get - Set(value As Double) - ViewState("TotalActivoActual") = value - End Set - End Property - Private Property TotalActivoAnterior As Double - Get - TotalActivoAnterior = ViewState("TotalActivoAnterior").ToString.ToDouble - End Get - Set(value As Double) - ViewState("TotalActivoAnterior") = value - End Set - End Property - Private Property TotalPasivoActual As Double - Get - TotalPasivoActual = ViewState("TotalPasivoActual").ToString.ToDouble - End Get - Set(value As Double) - ViewState("TotalPasivoActual") = value - End Set - End Property - Private Property TotalPasivoAnterior As Double - Get - TotalPasivoAnterior = ViewState("TotalPasivoAnterior").ToString.ToDouble - End Get - Set(value As Double) - ViewState("TotalPasivoAnterior") = value - End Set - End Property - Private Property TotalPatrimonioActual As Double - Get - TotalPatrimonioActual = ViewState("TotalPatrimonioActual").ToString.ToDouble - End Get - Set(value As Double) - ViewState("TotalPatrimonioActual") = value - End Set - End Property - Private Property TotalPatrimonioAnterior As Double - Get - TotalPatrimonioAnterior = ViewState("TotalPatrimonioAnterior").ToString.ToDouble - End Get - Set(value As Double) - ViewState("TotalPatrimonioAnterior") = value - End Set - End Property - Private Property TotalPasivoPatrimonioActual As Double - Get - TotalPasivoPatrimonioActual = ViewState("TotalPasivoPatrimonioActual").ToString.ToDouble - End Get - Set(value As Double) - ViewState("TotalPasivoPatrimonioActual") = value - End Set - End Property - Private Property TotalPasivoPatrimonioAnterior As Double - Get - TotalPasivoPatrimonioAnterior = ViewState("TotalPasivoPatrimonioAnterior").ToString.ToDouble - End Get - Set(value As Double) - ViewState("TotalPasivoPatrimonioAnterior") = value - End Set - End Property - Private Property FechaInicioActual As Date - Get - FechaInicioActual = ViewState("FechaInicioActual").ToString.ToDate - End Get - Set(value As Date) - ViewState("FechaInicioActual") = value - End Set - End Property - Private Property FechaFinActual As Date - Get - FechaFinActual = ViewState("FechaFinActual").ToString.ToDate - End Get - Set(value As Date) - ViewState("FechaFinActual") = value - End Set - End Property - Private Property FechaInicioAnterior As Date - Get - FechaInicioAnterior = ViewState("FechaInicioAnterior").ToString.ToDate - End Get - Set(value As Date) - ViewState("FechaInicioAnterior") = value - End Set - End Property - Private Property FechaFinAnterior As Date - Get - FechaFinAnterior = ViewState("FechaFinAnterior").ToString.ToDate - End Get - Set(value As Date) - ViewState("FechaFinAnterior") = value - End Set - End Property - Private Property TipoReporte As Integer - Get - TipoReporte = ViewState("TipoReporte").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("TipoReporte") = value - End Set - End Property -#End Region - - Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load - If Not Page.IsPostBack Then - - If UsuarioActual.Empresa.UsaAC Then - TipoReporte = -1 - Else - TipoReporte = 1 - tdTipoReporte.Visible = True - LtTitulo.Text = "Balance General" - End If - - - TotalActivoActual = 0 - TotalActivoAnterior = 0 - TotalPasivoActual = 0 - TotalPasivoAnterior = 0 - TotalPatrimonioActual = 0 - TotalPatrimonioAnterior = 0 - TotalPasivoPatrimonioActual = 0 - TotalPasivoPatrimonioAnterior = 0 - - 'TxtFechaInicio.Text = DateSerial(Year(Date.Now), 1, 1).ToShortDateString - 'TxtFechaFin.Text = Date.Now.ToShortDateString - - CargaEjercicios() - - CargaDatos() - - - End If - End Sub - - Private Sub CargaEjercicios() - Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa) - If ClsConta.GetEjercicios() Then - DdlEjercicio.DataSource = ClsConta.DtResultados - Else - DdlEjercicio.DataSource = Nothing - End If - ClsConta.Dispose() - DdlEjercicio.DataBind() - - DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString) - DdlPeriodo.SelectedValue = Now.Month.ToString - End Sub - - Private Sub CargaDatos() - Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - - Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) - Dim FechaF = FechaI.ToDate.LastDayOfMonth.ToShortDateString - TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) - - GvActivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue - GvActivo.Columns(2).HeaderText = (DdlEjercicio.SelectedValue.ToEntero - 1).ToString - - GvPasivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue - GvPasivo.Columns(2).HeaderText = (DdlEjercicio.SelectedValue.ToEntero - 1).ToString - - Dim IdCuentaAhorroDesahorro = 9999 - - If UsuarioActual.CveEmpresa = 48 Then - IdCuentaAhorroDesahorro = 87 - End If - If UsuarioActual.CveEmpresa = 120 Then - IdCuentaAhorroDesahorro = 646 - End If - - If ObjConta.GetBalanceGeneral("01/01/1000".ToDate, FechaF.ToDate, UsuarioActual.CveEmpresa, TipoReporte, UsuarioActual.Empresa.UsaAC, IdCuentaAhorroDesahorro) Then - DtDatos = ObjConta.DtResultados - - CargaGrids() - SumaTotales() - Else - DtDatos = Nothing - Alert("Ocurrio un error al cargar los datos del estado de situación financiera", TipoMensaje.MsgError) - End If - - ObjConta.Dispose() - End Sub - Private Sub CargaGrids() - - If Not ChkNivel.Checked Then - DtDatos = DtDatos.FiltraParametros("Level < 2") - End If - Dim CuentaAhorroDesahorro As Integer = 87 - - Select Case UsuarioActual.CveEmpresa - Case 120 - CuentaAhorroDesahorro = 646 - Case Else - CuentaAhorroDesahorro = 87 - End Select - - 'Defino Variables para el Orden - Dim Orden1, Orden2, Orden3, Orden4, Orden5, Orden6, Orden7 As String - If UsuarioActual.CveEmpresa = 48 Then Orden1 = "00011%" Else Orden1 = "011%" - If UsuarioActual.CveEmpresa = 48 Then Orden2 = "00012%" Else Orden2 = "012%" - If UsuarioActual.CveEmpresa = 48 Then Orden3 = "00021%" Else Orden3 = "021%" - If UsuarioActual.CveEmpresa = 48 Then Orden4 = "00022%" Else Orden4 = "022%" - If UsuarioActual.CveEmpresa = 48 Then Orden5 = "00031%" Else If UsuarioActual.CveEmpresa = 120 Then Orden5 = "0321%" Else Orden5 = "031%" - If UsuarioActual.CveEmpresa = 48 Then Orden6 = "00032%" Else Orden6 = "032%" - If UsuarioActual.CveEmpresa = 48 Then Orden7 = "00033%" Else Orden7 = "033%" - - 'ACTIVO - Dim DtActivoCirculante = DtDatos.FiltraParametros($"Tipo in ('A','B','C') AND Orden LIKE '{Orden1}' ") - - Dim DtActivoNoCirculante As DataTable - - If UsuarioActual.CveEmpresa = 48 Then - DtActivoNoCirculante = DtDatos.FiltraParametros($"Tipo in ('A','B','C') AND Orden LIKE '{Orden2}' ") - Else - DtActivoNoCirculante = DtDatos.FiltraParametros($"Tipo in ('A','B','C') AND Orden LIKE '{Orden2}' ") - End If - - Dim Row As DataRow = DtActivoCirculante.NewRow - - If DtActivoCirculante.Rows.Count > 0 Then - Row.Item("Nombre") = "   TOTAL ACTIVO CIRCULANTE" - Row.Item("ImporteActual") = DtActivoCirculante.Rows(0)("ImporteActual").ToString - Row.Item("ImporteAnterior") = DtActivoCirculante.Rows(0)("ImporteAnterior").ToString - Row.Item("CtaMayor") = -1 - DtActivoCirculante.Rows.RemoveAt(0) - Else - Row.Item("Nombre") = "   TOTAL ACTIVO CIRCULANTE" - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAnterior") = "0.00" - Row.Item("CtaMayor") = -1 - End If - DtActivoCirculante.Rows.Add(Row) - - - Row = DtActivoNoCirculante.NewRow - If DtActivoNoCirculante.Rows.Count > 0 Then - Row.Item("Nombre") = "   TOTAL ACTIVO NO CIRCULANTE" - - If UsuarioActual.CveEmpresa = 48 Then - Row.Item("ImporteActual") = DtActivoNoCirculante.Rows(0)("ImporteActual").ToString - Row.Item("ImporteAnterior") = DtActivoNoCirculante.Rows(0)("ImporteAnterior").ToString - ElseIf UsuarioActual.CveEmpresa = 120 Then - Row.Item("ImporteActual") = DtActivoNoCirculante.SUM("ImporteActual", " Sup ='ACTIVO NO CIRCULANTE' ") - Row.Item("ImporteAnterior") = DtActivoNoCirculante.SUM("ImporteAnterior", " Sup ='ACTIVO NO CIRCULANTE' ") - Else - Row.Item("ImporteActual") = DtActivoNoCirculante.Rows(0)("ImporteActual").ToString - Row.Item("ImporteAnterior") = DtActivoNoCirculante.Rows(0)("ImporteAnterior").ToString - End If - - - Row.Item("CtaMayor") = -1 - DtActivoNoCirculante.Rows.RemoveAt(0) - Else - Row.Item("Nombre") = "   TOTAL ACTIVO NO CIRCULANTE" - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAnterior") = "0.00" - Row.Item("CtaMayor") = -1 - End If - DtActivoNoCirculante.Rows.Add(Row) - - GvActivo.DataSource = DtActivoCirculante - GvActivo.DataBind() - GvActivoNoCirculante.DataSource = DtActivoNoCirculante - GvActivoNoCirculante.DataBind() - UpActivo.Update() - - - 'PASIVO - Dim DtPasivoCirculante = DtDatos.FiltraParametros($"Tipo in ('D') AND Orden LIKE '{Orden3}' ") - Dim DtPasivoNoCirculante = DtDatos.FiltraParametros($"Tipo in ('D') AND Orden LIKE '{Orden4}' ") - - Row = DtPasivoCirculante.NewRow - If DtPasivoCirculante.Rows.Count > 0 Then - Row.Item("Nombre") = "   TOTAL PASIVO CIRCULANTE" - Row.Item("ImporteActual") = DtPasivoCirculante.Rows(0)("ImporteActual").ToString - Row.Item("ImporteAnterior") = DtPasivoCirculante.Rows(0)("ImporteAnterior").ToString - Row.Item("CtaMayor") = -1 - DtPasivoCirculante.Rows.RemoveAt(0) - Else - Row.Item("Nombre") = "   TOTAL PASIVO CIRCULANTE" - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAnterior") = "0.00" - Row.Item("CtaMayor") = -1 - End If - DtPasivoCirculante.Rows.Add(Row) - - Row = DtPasivoNoCirculante.NewRow - If DtPasivoNoCirculante.Rows.Count > 0 Then - Row.Item("Nombre") = "   TOTAL PASIVO NO CIRCULANTE" - Row.Item("ImporteActual") = DtPasivoNoCirculante.Rows(0)("ImporteActual").ToString - Row.Item("ImporteAnterior") = DtPasivoNoCirculante.Rows(0)("ImporteAnterior").ToString - Row.Item("CtaMayor") = -1 - DtPasivoNoCirculante.Rows.RemoveAt(0) - Else - Row.Item("Nombre") = "   TOTAL PASIVO NO CIRCULANTE" - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAnterior") = "0.00" - Row.Item("CtaMayor") = -1 - End If - DtPasivoNoCirculante.Rows.Add(Row) - - - GvPasivo.DataSource = DtPasivoCirculante - GvPasivo.DataBind() - GvPasivoNoCirculante.DataSource = DtPasivoNoCirculante - GvPasivoNoCirculante.DataBind() - UpPasivo.Update() - - - 'PATRIMONIO - Dim DtPatrimonioContribuido = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden5}' ") - Dim DtPatrimonioGenerado = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden6}' ") - Dim DtPatrimonioActualizacion = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden7}' ") - - Row = DtPatrimonioContribuido.NewRow - If DtPatrimonioContribuido.Rows.Count > 0 Then - Row.Item("Nombre") = "   TOTAL PATRIMONIO CONTRIBUIDO" - Row.Item("ImporteActual") = DtPatrimonioContribuido.Rows(0)("ImporteActual").ToString - Row.Item("ImporteAnterior") = DtPatrimonioContribuido.Rows(0)("ImporteAnterior").ToString - Row.Item("CtaMayor") = -1 - DtPatrimonioContribuido.Rows.RemoveAt(0) - Else - Row.Item("Nombre") = "   TOTAL PATRIMONIO CONTRIBUIDO" - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAnterior") = "0.00" - Row.Item("CtaMayor") = -1 - End If - DtPatrimonioContribuido.Rows.Add(Row) - - Row = DtPatrimonioGenerado.NewRow - If DtPatrimonioGenerado.Rows.Count > 0 Then - Row.Item("Nombre") = "   TOTAL PATRIMONIO GENERADO" - 'El id = 87 es el id de la cuenta "RESULTADOS DEL EJERCICIO:(AHORRO/DESAHORRO)" - If DtPatrimonioGenerado.FiltraParametros($"Id = {CuentaAhorroDesahorro}").Rows.Count > 0 Then - Row.Item("ImporteActual") = (DtPatrimonioGenerado.Rows(0)("ImporteActual").ToString.ToDouble + DtPatrimonioGenerado.FiltroPrimero($"Id = {CuentaAhorroDesahorro}")("ImporteActual").ToString.ToDouble).ToString - Row.Item("ImporteAnterior") = (DtPatrimonioGenerado.Rows(0)("ImporteAnterior").ToString.ToDouble + DtPatrimonioGenerado.FiltroPrimero($"Id = {CuentaAhorroDesahorro}")("ImporteAnterior").ToString.ToDouble).ToString - Else - Row.Item("ImporteActual") = DtPatrimonioGenerado.Rows(0)("ImporteActual").ToString - Row.Item("ImporteAnterior") = DtPatrimonioGenerado.Rows(0)("ImporteAnterior").ToString - End If - Row.Item("CtaMayor") = -1 - DtPatrimonioGenerado.Rows.RemoveAt(0) - Else - Row.Item("Nombre") = "   TOTAL PATRIMONIO GENERADO" - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAnterior") = "0.00" - Row.Item("CtaMayor") = -1 - End If - DtPatrimonioGenerado.Rows.Add(Row) - - Row = DtPatrimonioActualizacion.NewRow - If DtPatrimonioActualizacion.Rows.Count > 0 Then - Row.Item("Nombre") = "   TOTAL EXCESO O INSUFICIENCIA EN LA ACTUALIZACION" - Row.Item("ImporteActual") = DtPatrimonioActualizacion.Rows(0)("ImporteActual").ToString - Row.Item("ImporteAnterior") = DtPatrimonioActualizacion.Rows(0)("ImporteAnterior").ToString - Row.Item("CtaMayor") = -1 - DtPatrimonioActualizacion.Rows.RemoveAt(0) - Else - Row.Item("Nombre") = "   TOTAL EXCESO O INSUFICIENCIA EN LA ACTUALIZACION" - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAnterior") = "0.00" - Row.Item("CtaMayor") = -1 - End If - DtPatrimonioActualizacion.Rows.Add(Row) - - - GvPatrimonio.DataSource = DtPatrimonioContribuido - GvPatrimonio.DataBind() - GvPatrimonioGenerado.DataSource = DtPatrimonioGenerado - GvPatrimonioGenerado.DataBind() - GvPatrimonioActualizacion.DataSource = DtPatrimonioActualizacion - GvPatrimonioActualizacion.DataBind() - UpPatrimonio.Update() - End Sub - Private Sub SumaTotales() - TotalPasivoPatrimonioActual = TotalPasivoActual + TotalPatrimonioActual - TotalPasivoPatrimonioAnterior = TotalPasivoAnterior + TotalPatrimonioAnterior - - 'Llena Lb´s Totales - LbTotalActivoActual.Text = TotalActivoActual.ToString.FormatoNumero - LbTotalActivoAnterior.Text = TotalActivoAnterior.ToString.FormatoNumero - - LbTotalPasivoActual.Text = TotalPasivoActual.ToString.FormatoNumero - LbTotalPasivoAnterior.Text = TotalPasivoAnterior.ToString.FormatoNumero - - LbTotalPatrimonioActual.Text = TotalPatrimonioActual.ToString.FormatoNumero - LbTotalPatrimonioAnterior.Text = TotalPatrimonioAnterior.ToString.FormatoNumero - - LbTotalPasivoPatrimonioActual.Text = TotalPasivoPatrimonioActual.ToString.FormatoNumero - LbTotalPasivoPatrimonioAnterior.Text = TotalPasivoPatrimonioAnterior.ToString.FormatoNumero - - - Dim Descuadre = False - 'COLOREA ROJO SI NO CUADRAN TOTALES - If TotalActivoActual <> TotalPasivoPatrimonioActual Then - LbTotalActivoActual.ForeColor = Drawing.Color.Red - LbTotalPasivoPatrimonioActual.ForeColor = Drawing.Color.Red - Descuadre = True - Else - LbTotalActivoActual.ForeColor = Drawing.Color.Black - LbTotalPasivoPatrimonioActual.ForeColor = Drawing.Color.Black - End If - - If TotalActivoAnterior <> TotalPasivoPatrimonioAnterior Then - LbTotalActivoAnterior.ForeColor = Drawing.Color.Red - LbTotalPasivoPatrimonioAnterior.ForeColor = Drawing.Color.Red - Descuadre = True - Else - LbTotalActivoAnterior.ForeColor = Drawing.Color.Black - LbTotalPasivoPatrimonioAnterior.ForeColor = Drawing.Color.Black - End If - - If Descuadre Then - LbDescuadre.Text = "Las sumas de los totales están descuadradas." - Else - LbDescuadre.Text = "" - End If - - - End Sub - - Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click - 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - 'Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) - 'Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy") - - 'If ObjConta.GetSituacionFinanciera("01/01/2000".ToDate, FechaF.ToDate, DdlTipoReporte.SelectedValue.ToEntero) Then - ' DtDatos = ObjConta.DtResultados - ' 'If ChkFirma.Checked = True Then - - ' ' Dim Row As DataRow = DtDatos.NewRow - ' ' Row.Item("Nombre") = String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de contabilidad", "") - ' ' Row.Item("Sup") = String.Format("Lic. Juan Fortino Leon Robinson{0} Director General", "") - ' ' Row.Item("ImporteActual") = "0" - ' ' Row.Item("ImporteAnterior") = "0" - ' ' Row.Item("Tipo") = "Firma" - ' ' DtDatos.Rows.Add(Row) - ' 'End If - 'End If - 'ObjConta.Dispose() - - If Not IsNothing(DtDatos) Then - ImprimirReporte() - Else - Alert("No se econtró información para el reporte.", TipoMensaje.MsgAdvertencia) - End If - - End Sub - - - Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) - TotalActivoActual = 0 - TotalActivoAnterior = 0 - TotalPasivoActual = 0 - TotalPasivoAnterior = 0 - TotalPatrimonioActual = 0 - TotalPatrimonioAnterior = 0 - TotalPasivoPatrimonioActual = 0 - TotalPasivoPatrimonioAnterior = 0 - - CargaDatos() - End Sub - - -#Region "GV´S ROW DATA BOUND" - - Protected Sub GvActivo_RowDataBound(sender As Object, e As GridViewRowEventArgs) - If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActivoActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalActivoAnterior += e.Row.DBCampo("ImporteAnterior").ToString.ToDouble - e.Row.FCLabel("LbNombre").Font.Italic = True - e.Row.FCLabel("LbNombre").Font.Bold = True - e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;") - Else - e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}", e.Row.DBCampo("Id"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte) - e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}", e.Row.DBCampo("Id"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte) - End If - - If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red - End If - If e.Row.DBCampo("ImporteAnterior").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red - End If - - If e.Row.DBCampo("Level").ToString = "2" Then - e.Row.FCLabel("LbNombre").Text = String.Format("   {0}", e.Row.DBCampo("Nombre").ToString) - ElseIf e.Row.DBCampo("Level").ToString = "1" Then - e.Row.FCLabel("LbNombre").Font.Bold = True - End If - - End If - End Sub - - Protected Sub GvPasivo_RowDataBound(sender As Object, e As GridViewRowEventArgs) - If e.Row.RowType = DataControlRowType.DataRow Then - - 'Totales - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalPasivoActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalPasivoAnterior += e.Row.DBCampo("ImporteAnterior").ToString.ToDouble - e.Row.FCLabel("LbNombre").Font.Italic = True - e.Row.FCLabel("LbNombre").Font.Bold = True - e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;") - 'Cuentas - Else - e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("Id"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("Id"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString) - End If - - - 'Colorea NEGATIVOS - If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red - End If - If e.Row.DBCampo("ImporteAnterior").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red - End If - - If e.Row.DBCampo("Level").ToString = "2" Then - e.Row.FCLabel("LbNombre").Text = String.Format("   {0}", e.Row.DBCampo("Nombre").ToString) - ElseIf e.Row.DBCampo("Level").ToString = "1" Then - e.Row.FCLabel("LbNombre").Font.Bold = True - End If - - End If - End Sub - - Protected Sub GvPatrimonio_RowDataBound(sender As Object, e As GridViewRowEventArgs) - If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalPatrimonioActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalPatrimonioAnterior += e.Row.DBCampo("ImporteAnterior").ToString.ToDouble - e.Row.FCLabel("LbNombre").Font.Italic = True - e.Row.FCLabel("LbNombre").Font.Bold = True - e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;") - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White - 'e.Row.ControlStyle.Font.Bold = True - Else - e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("Id"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("Id"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString) - End If - - If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red - End If - If e.Row.DBCampo("ImporteAnterior").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red - End If - - If e.Row.DBCampo("Level").ToString = "2" Then - e.Row.FCLabel("LbNombre").Text = String.Format("   {0}", e.Row.DBCampo("Nombre").ToString) - ElseIf e.Row.DBCampo("Level").ToString = "1" Then - e.Row.FCLabel("LbNombre").Font.Bold = True - End If - - End If - End Sub - -#End Region - - Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click - If Not IsNothing(DtDatos) Then - ImprimirReporte("Excel") - Else - Alert("No se econtró información para el reporte.", TipoMensaje.MsgAdvertencia) - End If - End Sub - - - Private Sub ImprimirReporte(Optional Formato As String = "PDF") - Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) - Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy") - 'nombre del archivo a generar - Dim fileName As String = "EdoSituacionFinanciera" - 'ubicacion del rdlc - Dim reportpath As String = "AC/Reportes/RepSituacionFinanciera.rdlc" - - DtCuentasOrden = New DataTable - If Not DtCuentasOrden.Columns.Contains("Concepto") Then DtCuentasOrden.Columns.Add("Concepto", GetType(String)) - If Not DtCuentasOrden.Columns.Contains("Importe") Then DtCuentasOrden.Columns.Add("Importe", GetType(String)) - If Not DtCuentasOrden.Columns.Contains("Nivel") Then DtCuentasOrden.Columns.Add("Nivel", GetType(String)) - - Dim Dr = DtCuentasOrden.NewRow - Dr("Concepto") = "PRUEBA" - Dr("Importe") = "15236.85" - Dr("Nivel") = "1" - DtCuentasOrden.Rows.Add(Dr) - - Dim DDdr = DtCuentasOrden.NewRow - DDdr("Concepto") = "PRUEBA 2" - DDdr("Importe") = "15236.85" - DDdr("Nivel") = "2" - DtCuentasOrden.Rows.Add(DDdr) - - 'parametros a enviar al reporte - Dim lrds As New List(Of ReportDataSource) - Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = If(ChkNivel.Checked, DtDatos, DtDatos.FiltraParametros("Level < 2"))} - lrds.Add(rds) - - Dim rds1 As New ReportDataSource With {.Name = "DataSet2", .Value = If(DtCuentasOrden IsNot Nothing, DtCuentasOrden, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte - lrds.Add(rds1) - - Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("CveEmpresa", UsuarioActual.CveEmpresa.ToString)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) - If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then - params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf))) - params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf))) - ElseIf (ChkFirma.Checked) Then - params.Add(New ReportParameter("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf))) - params.Add(New ReportParameter("pFirma2", String.Format("ING. Soraida Mesinas Reyes{0} Director General", vbCrLf))) - Else - params.Add(New ReportParameter("pFirma1", "")) - params.Add(New ReportParameter("pFirma2", "")) - End If - params.Add(New ReportParameter("pFechaFin", FechaF)) - ImprimirPDF(reportpath, lrds, params, fileName, Formato) - End Sub -End Class +Option Explicit On +Option Strict On + +Imports System.Data +Imports Extensiones +Imports Microsoft.Reporting.WebForms +Partial Class AC_SituacionFinanciera + Inherits ClsPaginas + +#Region "PROPIEDADES" + Private Property DtDatos As DataTable + Get + DtDatos = DirectCast(ViewState("DtDatos"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtDatos") = value + End Set + End Property + Private Property DtCuentasOrden As DataTable + Get + DtCuentasOrden = DirectCast(ViewState("DtCuentasOrden"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtCuentasOrden") = value + End Set + End Property + Private Property TotalActivoActual As Double + Get + TotalActivoActual = ViewState("TotalActivoActual").ToString.ToDouble + End Get + Set(value As Double) + ViewState("TotalActivoActual") = value + End Set + End Property + Private Property TotalActivoAnterior As Double + Get + TotalActivoAnterior = ViewState("TotalActivoAnterior").ToString.ToDouble + End Get + Set(value As Double) + ViewState("TotalActivoAnterior") = value + End Set + End Property + Private Property TotalPasivoActual As Double + Get + TotalPasivoActual = ViewState("TotalPasivoActual").ToString.ToDouble + End Get + Set(value As Double) + ViewState("TotalPasivoActual") = value + End Set + End Property + Private Property TotalPasivoAnterior As Double + Get + TotalPasivoAnterior = ViewState("TotalPasivoAnterior").ToString.ToDouble + End Get + Set(value As Double) + ViewState("TotalPasivoAnterior") = value + End Set + End Property + Private Property TotalPatrimonioActual As Double + Get + TotalPatrimonioActual = ViewState("TotalPatrimonioActual").ToString.ToDouble + End Get + Set(value As Double) + ViewState("TotalPatrimonioActual") = value + End Set + End Property + Private Property TotalPatrimonioAnterior As Double + Get + TotalPatrimonioAnterior = ViewState("TotalPatrimonioAnterior").ToString.ToDouble + End Get + Set(value As Double) + ViewState("TotalPatrimonioAnterior") = value + End Set + End Property + Private Property TotalPasivoPatrimonioActual As Double + Get + TotalPasivoPatrimonioActual = ViewState("TotalPasivoPatrimonioActual").ToString.ToDouble + End Get + Set(value As Double) + ViewState("TotalPasivoPatrimonioActual") = value + End Set + End Property + Private Property TotalPasivoPatrimonioAnterior As Double + Get + TotalPasivoPatrimonioAnterior = ViewState("TotalPasivoPatrimonioAnterior").ToString.ToDouble + End Get + Set(value As Double) + ViewState("TotalPasivoPatrimonioAnterior") = value + End Set + End Property + Private Property FechaInicioActual As Date + Get + FechaInicioActual = ViewState("FechaInicioActual").ToString.ToDate + End Get + Set(value As Date) + ViewState("FechaInicioActual") = value + End Set + End Property + Private Property FechaFinActual As Date + Get + FechaFinActual = ViewState("FechaFinActual").ToString.ToDate + End Get + Set(value As Date) + ViewState("FechaFinActual") = value + End Set + End Property + Private Property FechaInicioAnterior As Date + Get + FechaInicioAnterior = ViewState("FechaInicioAnterior").ToString.ToDate + End Get + Set(value As Date) + ViewState("FechaInicioAnterior") = value + End Set + End Property + Private Property FechaFinAnterior As Date + Get + FechaFinAnterior = ViewState("FechaFinAnterior").ToString.ToDate + End Get + Set(value As Date) + ViewState("FechaFinAnterior") = value + End Set + End Property + Private Property TipoReporte As Integer + Get + TipoReporte = ViewState("TipoReporte").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("TipoReporte") = value + End Set + End Property +#End Region + + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + + If UsuarioActual.Empresa.UsaAC Then + TipoReporte = -1 + Else + TipoReporte = 1 + tdTipoReporte.Visible = True + LtTitulo.Text = "Balance General" + End If + + + TotalActivoActual = 0 + TotalActivoAnterior = 0 + TotalPasivoActual = 0 + TotalPasivoAnterior = 0 + TotalPatrimonioActual = 0 + TotalPatrimonioAnterior = 0 + TotalPasivoPatrimonioActual = 0 + TotalPasivoPatrimonioAnterior = 0 + + 'TxtFechaInicio.Text = DateSerial(Year(Date.Now), 1, 1).ToShortDateString + 'TxtFechaFin.Text = Date.Now.ToShortDateString + + CargaEjercicios() + + CargaDatos() + + + End If + End Sub + + Private Sub CargaEjercicios() + Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa) + If ClsConta.GetEjercicios() Then + DdlEjercicio.DataSource = ClsConta.DtResultados + Else + DdlEjercicio.DataSource = Nothing + End If + ClsConta.Dispose() + DdlEjercicio.DataBind() + + DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString) + DdlPeriodo.SelectedValue = Now.Month.ToString + End Sub + + Private Sub CargaDatos() + Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + + Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) + Dim FechaF = FechaI.ToDate.LastDayOfMonth.ToShortDateString + TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) + + GvActivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue + GvActivo.Columns(2).HeaderText = (DdlEjercicio.SelectedValue.ToEntero - 1).ToString + + GvPasivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue + GvPasivo.Columns(2).HeaderText = (DdlEjercicio.SelectedValue.ToEntero - 1).ToString + + Dim IdCuentaAhorroDesahorro = 9999 + + If UsuarioActual.CveEmpresa = 48 Then + IdCuentaAhorroDesahorro = 87 + End If + If UsuarioActual.CveEmpresa = 120 Then + IdCuentaAhorroDesahorro = 646 + End If + + If ObjConta.GetBalanceGeneral("01/01/1000".ToDate, FechaF.ToDate, UsuarioActual.CveEmpresa, TipoReporte, UsuarioActual.Empresa.UsaAC, IdCuentaAhorroDesahorro) Then + DtDatos = ObjConta.DtResultados + + CargaGrids() + SumaTotales() + Else + DtDatos = Nothing + Alert("Ocurrio un error al cargar los datos del estado de situación financiera", TipoMensaje.MsgError) + End If + + ObjConta.Dispose() + End Sub + Private Sub CargaGrids() + + If Not ChkNivel.Checked Then + DtDatos = DtDatos.FiltraParametros("Level < 2") + End If + Dim CuentaAhorroDesahorro As Integer = 87 + + Select Case UsuarioActual.CveEmpresa + Case 120 + CuentaAhorroDesahorro = 646 + Case Else + CuentaAhorroDesahorro = 87 + End Select + + 'Defino Variables para el Orden + Dim Orden1, Orden2, Orden3, Orden4, Orden5, Orden6, Orden7 As String + If UsuarioActual.CveEmpresa = 48 Then Orden1 = "00011%" Else Orden1 = "011%" + If UsuarioActual.CveEmpresa = 48 Then Orden2 = "00012%" Else Orden2 = "012%" + If UsuarioActual.CveEmpresa = 48 Then Orden3 = "00021%" Else Orden3 = "021%" + If UsuarioActual.CveEmpresa = 48 Then Orden4 = "00022%" Else Orden4 = "022%" + If UsuarioActual.CveEmpresa = 48 Then Orden5 = "00031%" Else If UsuarioActual.CveEmpresa = 120 Then Orden5 = "0321%" Else Orden5 = "031%" + If UsuarioActual.CveEmpresa = 48 Then Orden6 = "00032%" Else Orden6 = "032%" + If UsuarioActual.CveEmpresa = 48 Then Orden7 = "00033%" Else Orden7 = "033%" + + 'ACTIVO + Dim DtActivoCirculante = DtDatos.FiltraParametros($"Tipo in ('A','B','C') AND Orden LIKE '{Orden1}' ") + + Dim DtActivoNoCirculante As DataTable + + If UsuarioActual.CveEmpresa = 48 Then + DtActivoNoCirculante = DtDatos.FiltraParametros($"Tipo in ('A','B','C') AND Orden LIKE '{Orden2}' ") + Else + DtActivoNoCirculante = DtDatos.FiltraParametros($"Tipo in ('A','B','C') AND Orden LIKE '{Orden2}' ") + End If + + Dim Row As DataRow = DtActivoCirculante.NewRow + + If DtActivoCirculante.Rows.Count > 0 Then + Row.Item("Nombre") = "   TOTAL ACTIVO CIRCULANTE" + Row.Item("ImporteActual") = DtActivoCirculante.Rows(0)("ImporteActual").ToString + Row.Item("ImporteAnterior") = DtActivoCirculante.Rows(0)("ImporteAnterior").ToString + Row.Item("CtaMayor") = -1 + DtActivoCirculante.Rows.RemoveAt(0) + Else + Row.Item("Nombre") = "   TOTAL ACTIVO CIRCULANTE" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAnterior") = "0.00" + Row.Item("CtaMayor") = -1 + End If + DtActivoCirculante.Rows.Add(Row) + + + Row = DtActivoNoCirculante.NewRow + If DtActivoNoCirculante.Rows.Count > 0 Then + Row.Item("Nombre") = "   TOTAL ACTIVO NO CIRCULANTE" + + If UsuarioActual.CveEmpresa = 48 Then + Row.Item("ImporteActual") = DtActivoNoCirculante.Rows(0)("ImporteActual").ToString + Row.Item("ImporteAnterior") = DtActivoNoCirculante.Rows(0)("ImporteAnterior").ToString + ElseIf UsuarioActual.CveEmpresa = 120 Then + Row.Item("ImporteActual") = DtActivoNoCirculante.SUM("ImporteActual", " Sup ='ACTIVO NO CIRCULANTE' ") + Row.Item("ImporteAnterior") = DtActivoNoCirculante.SUM("ImporteAnterior", " Sup ='ACTIVO NO CIRCULANTE' ") + Else + Row.Item("ImporteActual") = DtActivoNoCirculante.Rows(0)("ImporteActual").ToString + Row.Item("ImporteAnterior") = DtActivoNoCirculante.Rows(0)("ImporteAnterior").ToString + End If + + + Row.Item("CtaMayor") = -1 + DtActivoNoCirculante.Rows.RemoveAt(0) + Else + Row.Item("Nombre") = "   TOTAL ACTIVO NO CIRCULANTE" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAnterior") = "0.00" + Row.Item("CtaMayor") = -1 + End If + DtActivoNoCirculante.Rows.Add(Row) + + GvActivo.DataSource = DtActivoCirculante + GvActivo.DataBind() + GvActivoNoCirculante.DataSource = DtActivoNoCirculante + GvActivoNoCirculante.DataBind() + UpActivo.Update() + + + 'PASIVO + Dim DtPasivoCirculante = DtDatos.FiltraParametros($"Tipo in ('D') AND Orden LIKE '{Orden3}' ") + Dim DtPasivoNoCirculante = DtDatos.FiltraParametros($"Tipo in ('D') AND Orden LIKE '{Orden4}' ") + + Row = DtPasivoCirculante.NewRow + If DtPasivoCirculante.Rows.Count > 0 Then + Row.Item("Nombre") = "   TOTAL PASIVO CIRCULANTE" + Row.Item("ImporteActual") = DtPasivoCirculante.Rows(0)("ImporteActual").ToString + Row.Item("ImporteAnterior") = DtPasivoCirculante.Rows(0)("ImporteAnterior").ToString + Row.Item("CtaMayor") = -1 + DtPasivoCirculante.Rows.RemoveAt(0) + Else + Row.Item("Nombre") = "   TOTAL PASIVO CIRCULANTE" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAnterior") = "0.00" + Row.Item("CtaMayor") = -1 + End If + DtPasivoCirculante.Rows.Add(Row) + + Row = DtPasivoNoCirculante.NewRow + If DtPasivoNoCirculante.Rows.Count > 0 Then + Row.Item("Nombre") = "   TOTAL PASIVO NO CIRCULANTE" + Row.Item("ImporteActual") = DtPasivoNoCirculante.Rows(0)("ImporteActual").ToString + Row.Item("ImporteAnterior") = DtPasivoNoCirculante.Rows(0)("ImporteAnterior").ToString + Row.Item("CtaMayor") = -1 + DtPasivoNoCirculante.Rows.RemoveAt(0) + Else + Row.Item("Nombre") = "   TOTAL PASIVO NO CIRCULANTE" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAnterior") = "0.00" + Row.Item("CtaMayor") = -1 + End If + DtPasivoNoCirculante.Rows.Add(Row) + + + GvPasivo.DataSource = DtPasivoCirculante + GvPasivo.DataBind() + GvPasivoNoCirculante.DataSource = DtPasivoNoCirculante + GvPasivoNoCirculante.DataBind() + UpPasivo.Update() + + + 'PATRIMONIO + Dim DtPatrimonioContribuido = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden5}' ") + Dim DtPatrimonioGenerado = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden6}' ") + Dim DtPatrimonioActualizacion = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden7}' ") + + Row = DtPatrimonioContribuido.NewRow + If DtPatrimonioContribuido.Rows.Count > 0 Then + Row.Item("Nombre") = "   TOTAL PATRIMONIO CONTRIBUIDO" + Row.Item("ImporteActual") = DtPatrimonioContribuido.Rows(0)("ImporteActual").ToString + Row.Item("ImporteAnterior") = DtPatrimonioContribuido.Rows(0)("ImporteAnterior").ToString + Row.Item("CtaMayor") = -1 + DtPatrimonioContribuido.Rows.RemoveAt(0) + Else + Row.Item("Nombre") = "   TOTAL PATRIMONIO CONTRIBUIDO" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAnterior") = "0.00" + Row.Item("CtaMayor") = -1 + End If + DtPatrimonioContribuido.Rows.Add(Row) + + Row = DtPatrimonioGenerado.NewRow + If DtPatrimonioGenerado.Rows.Count > 0 Then + Row.Item("Nombre") = "   TOTAL PATRIMONIO GENERADO" + 'El id = 87 es el id de la cuenta "RESULTADOS DEL EJERCICIO:(AHORRO/DESAHORRO)" + If DtPatrimonioGenerado.FiltraParametros($"Id = {CuentaAhorroDesahorro}").Rows.Count > 0 Then + Row.Item("ImporteActual") = (DtPatrimonioGenerado.Rows(0)("ImporteActual").ToString.ToDouble + DtPatrimonioGenerado.FiltroPrimero($"Id = {CuentaAhorroDesahorro}")("ImporteActual").ToString.ToDouble).ToString + Row.Item("ImporteAnterior") = (DtPatrimonioGenerado.Rows(0)("ImporteAnterior").ToString.ToDouble + DtPatrimonioGenerado.FiltroPrimero($"Id = {CuentaAhorroDesahorro}")("ImporteAnterior").ToString.ToDouble).ToString + Else + Row.Item("ImporteActual") = DtPatrimonioGenerado.Rows(0)("ImporteActual").ToString + Row.Item("ImporteAnterior") = DtPatrimonioGenerado.Rows(0)("ImporteAnterior").ToString + End If + Row.Item("CtaMayor") = -1 + DtPatrimonioGenerado.Rows.RemoveAt(0) + Else + Row.Item("Nombre") = "   TOTAL PATRIMONIO GENERADO" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAnterior") = "0.00" + Row.Item("CtaMayor") = -1 + End If + DtPatrimonioGenerado.Rows.Add(Row) + + Row = DtPatrimonioActualizacion.NewRow + If DtPatrimonioActualizacion.Rows.Count > 0 Then + Row.Item("Nombre") = "   TOTAL EXCESO O INSUFICIENCIA EN LA ACTUALIZACION" + Row.Item("ImporteActual") = DtPatrimonioActualizacion.Rows(0)("ImporteActual").ToString + Row.Item("ImporteAnterior") = DtPatrimonioActualizacion.Rows(0)("ImporteAnterior").ToString + Row.Item("CtaMayor") = -1 + DtPatrimonioActualizacion.Rows.RemoveAt(0) + Else + Row.Item("Nombre") = "   TOTAL EXCESO O INSUFICIENCIA EN LA ACTUALIZACION" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAnterior") = "0.00" + Row.Item("CtaMayor") = -1 + End If + DtPatrimonioActualizacion.Rows.Add(Row) + + + GvPatrimonio.DataSource = DtPatrimonioContribuido + GvPatrimonio.DataBind() + GvPatrimonioGenerado.DataSource = DtPatrimonioGenerado + GvPatrimonioGenerado.DataBind() + GvPatrimonioActualizacion.DataSource = DtPatrimonioActualizacion + GvPatrimonioActualizacion.DataBind() + UpPatrimonio.Update() + End Sub + Private Sub SumaTotales() + TotalPasivoPatrimonioActual = TotalPasivoActual + TotalPatrimonioActual + TotalPasivoPatrimonioAnterior = TotalPasivoAnterior + TotalPatrimonioAnterior + + 'Llena Lb´s Totales + LbTotalActivoActual.Text = TotalActivoActual.ToString.FormatoNumero + LbTotalActivoAnterior.Text = TotalActivoAnterior.ToString.FormatoNumero + + LbTotalPasivoActual.Text = TotalPasivoActual.ToString.FormatoNumero + LbTotalPasivoAnterior.Text = TotalPasivoAnterior.ToString.FormatoNumero + + LbTotalPatrimonioActual.Text = TotalPatrimonioActual.ToString.FormatoNumero + LbTotalPatrimonioAnterior.Text = TotalPatrimonioAnterior.ToString.FormatoNumero + + LbTotalPasivoPatrimonioActual.Text = TotalPasivoPatrimonioActual.ToString.FormatoNumero + LbTotalPasivoPatrimonioAnterior.Text = TotalPasivoPatrimonioAnterior.ToString.FormatoNumero + + + Dim Descuadre = False + 'COLOREA ROJO SI NO CUADRAN TOTALES + If TotalActivoActual <> TotalPasivoPatrimonioActual Then + LbTotalActivoActual.ForeColor = Drawing.Color.Red + LbTotalPasivoPatrimonioActual.ForeColor = Drawing.Color.Red + Descuadre = True + Else + LbTotalActivoActual.ForeColor = Drawing.Color.Black + LbTotalPasivoPatrimonioActual.ForeColor = Drawing.Color.Black + End If + + If TotalActivoAnterior <> TotalPasivoPatrimonioAnterior Then + LbTotalActivoAnterior.ForeColor = Drawing.Color.Red + LbTotalPasivoPatrimonioAnterior.ForeColor = Drawing.Color.Red + Descuadre = True + Else + LbTotalActivoAnterior.ForeColor = Drawing.Color.Black + LbTotalPasivoPatrimonioAnterior.ForeColor = Drawing.Color.Black + End If + + If Descuadre Then + LbDescuadre.Text = "Las sumas de los totales están descuadradas." + Else + LbDescuadre.Text = "" + End If + + + End Sub + + Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click + 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + 'Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) + 'Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy") + + 'If ObjConta.GetSituacionFinanciera("01/01/2000".ToDate, FechaF.ToDate, DdlTipoReporte.SelectedValue.ToEntero) Then + ' DtDatos = ObjConta.DtResultados + ' 'If ChkFirma.Checked = True Then + + ' ' Dim Row As DataRow = DtDatos.NewRow + ' ' Row.Item("Nombre") = String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de contabilidad", "") + ' ' Row.Item("Sup") = String.Format("Lic. Juan Fortino Leon Robinson{0} Director General", "") + ' ' Row.Item("ImporteActual") = "0" + ' ' Row.Item("ImporteAnterior") = "0" + ' ' Row.Item("Tipo") = "Firma" + ' ' DtDatos.Rows.Add(Row) + ' 'End If + 'End If + 'ObjConta.Dispose() + + If Not IsNothing(DtDatos) Then + ImprimirReporte() + Else + Alert("No se econtró información para el reporte.", TipoMensaje.MsgAdvertencia) + End If + + End Sub + + + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) + TotalActivoActual = 0 + TotalActivoAnterior = 0 + TotalPasivoActual = 0 + TotalPasivoAnterior = 0 + TotalPatrimonioActual = 0 + TotalPatrimonioAnterior = 0 + TotalPasivoPatrimonioActual = 0 + TotalPasivoPatrimonioAnterior = 0 + + CargaDatos() + End Sub + + +#Region "GV´S ROW DATA BOUND" + + Protected Sub GvActivo_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then + TotalActivoActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble + TotalActivoAnterior += e.Row.DBCampo("ImporteAnterior").ToString.ToDouble + e.Row.FCLabel("LbNombre").Font.Italic = True + e.Row.FCLabel("LbNombre").Font.Bold = True + e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;") + Else + e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}", e.Row.DBCampo("Id"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte) + e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}&TP={2}", e.Row.DBCampo("Id"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte) + End If + + If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red + End If + If e.Row.DBCampo("ImporteAnterior").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + End If + + If e.Row.DBCampo("Level").ToString = "2" Then + e.Row.FCLabel("LbNombre").Text = String.Format("   {0}", e.Row.DBCampo("Nombre").ToString) + ElseIf e.Row.DBCampo("Level").ToString = "1" Then + e.Row.FCLabel("LbNombre").Font.Bold = True + End If + + End If + End Sub + + Protected Sub GvPasivo_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + + 'Totales + If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then + TotalPasivoActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble + TotalPasivoAnterior += e.Row.DBCampo("ImporteAnterior").ToString.ToDouble + e.Row.FCLabel("LbNombre").Font.Italic = True + e.Row.FCLabel("LbNombre").Font.Bold = True + e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;") + 'Cuentas + Else + e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("Id"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) + e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("Id"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString) + End If + + + 'Colorea NEGATIVOS + If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red + End If + If e.Row.DBCampo("ImporteAnterior").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + End If + + If e.Row.DBCampo("Level").ToString = "2" Then + e.Row.FCLabel("LbNombre").Text = String.Format("   {0}", e.Row.DBCampo("Nombre").ToString) + ElseIf e.Row.DBCampo("Level").ToString = "1" Then + e.Row.FCLabel("LbNombre").Font.Bold = True + End If + + End If + End Sub + + Protected Sub GvPatrimonio_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then + TotalPatrimonioActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble + TotalPatrimonioAnterior += e.Row.DBCampo("ImporteAnterior").ToString.ToDouble + e.Row.FCLabel("LbNombre").Font.Italic = True + e.Row.FCLabel("LbNombre").Font.Bold = True + e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;") + 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray + 'e.Row.ControlStyle.ForeColor = Drawing.Color.White + 'e.Row.ControlStyle.Font.Bold = True + Else + e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("Id"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) + e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("Id"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString) + End If + + If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red + End If + If e.Row.DBCampo("ImporteAnterior").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + End If + + If e.Row.DBCampo("Level").ToString = "2" Then + e.Row.FCLabel("LbNombre").Text = String.Format("   {0}", e.Row.DBCampo("Nombre").ToString) + ElseIf e.Row.DBCampo("Level").ToString = "1" Then + e.Row.FCLabel("LbNombre").Font.Bold = True + End If + + End If + End Sub + +#End Region + + Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click + If Not IsNothing(DtDatos) Then + ImprimirReporte("Excel") + Else + Alert("No se econtró información para el reporte.", TipoMensaje.MsgAdvertencia) + End If + End Sub + + + Private Sub ImprimirReporte(Optional Formato As String = "PDF") + Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) + Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy") + 'nombre del archivo a generar + Dim fileName As String = "EdoSituacionFinanciera" + 'ubicacion del rdlc + Dim reportpath As String = "AC/Reportes/RepSituacionFinanciera.rdlc" + + DtCuentasOrden = New DataTable + If Not DtCuentasOrden.Columns.Contains("Concepto") Then DtCuentasOrden.Columns.Add("Concepto", GetType(String)) + If Not DtCuentasOrden.Columns.Contains("Importe") Then DtCuentasOrden.Columns.Add("Importe", GetType(String)) + If Not DtCuentasOrden.Columns.Contains("Nivel") Then DtCuentasOrden.Columns.Add("Nivel", GetType(String)) + + Dim Dr = DtCuentasOrden.NewRow + Dr("Concepto") = "PRUEBA" + Dr("Importe") = "15236.85" + Dr("Nivel") = "1" + DtCuentasOrden.Rows.Add(Dr) + + Dim DDdr = DtCuentasOrden.NewRow + DDdr("Concepto") = "PRUEBA 2" + DDdr("Importe") = "15236.85" + DDdr("Nivel") = "2" + DtCuentasOrden.Rows.Add(DDdr) + + 'parametros a enviar al reporte + Dim lrds As New List(Of ReportDataSource) + Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = If(ChkNivel.Checked, DtDatos, DtDatos.FiltraParametros("Level < 2"))} + lrds.Add(rds) + + Dim rds1 As New ReportDataSource With {.Name = "DataSet2", .Value = If(DtCuentasOrden IsNot Nothing, DtCuentasOrden, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte + lrds.Add(rds1) + + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("CveEmpresa", UsuarioActual.CveEmpresa.ToString)) + params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then + params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf))) + params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf))) + ElseIf (ChkFirma.Checked) Then + params.Add(New ReportParameter("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf))) + params.Add(New ReportParameter("pFirma2", String.Format("ING. Soraida Mesinas Reyes{0} Director General", vbCrLf))) + Else + params.Add(New ReportParameter("pFirma1", "")) + params.Add(New ReportParameter("pFirma2", "")) + End If + params.Add(New ReportParameter("pFechaFin", FechaF)) + params.Add(New ReportParameter("Level2", If(ChkNivel.Checked, "SI", "NO"))) + ImprimirPDF(reportpath, lrds, params, fileName, Formato) + End Sub +End Class diff --git a/AC/Reportes/RepSituacionFinanciera.rdlc b/AC/Reportes/RepSituacionFinanciera.rdlc index 750d7f2cc..6665a3008 100644 --- a/AC/Reportes/RepSituacionFinanciera.rdlc +++ b/AC/Reportes/RepSituacionFinanciera.rdlc @@ -1,3086 +1,3098 @@ - - - 0 - - - - System.Data.DataSet - /* Local Connection */ - - 3560db3f-20af-4776-9f09-85925745c52f - - - - - - DataSet1 - /* Local Query */ - - - - Nombre - System.String - - - ImporteActual - System.Int16 - - - ImporteAnterior - System.Int16 - - - CtaMayor - System.Int16 - - - Orden - System.String - - - Tipo - System.String - - - Sup - System.String - - - Level - System.Int16 - - - TipoCuenta - System.Int16 - - - - DataSet1 - c:\users\caudillo\documents\visual studio 2013\Projects\WebApplication1\WebApplication1\DataSet1.xsd - ActivoCirculante - - - - - - - - - - - - - - - 6cm - - - 2.5cm - - - 2.20896cm - - - - - 0.6cm - - - - - true - true - - - - - ACTIVO CIRCULANTE - - - - - - - Textbox7 - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - 0.45cm - - - - - true - - - - - =Fields!Nombre.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImporteActual.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImporteAnterior.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - - - - - TOTAL ACTIVO CIRCULANTE - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!ImporteActual.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!ImporteAnterior.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - true - - - - - - - - - Before - - - - DataSet1 - - - =Fields!Tipo.Value - In - - =CStr("A,B,C").Split(",") - - - - =Fields!Orden.Value - Like - - =IIf(Parameters!CveEmpresa.Value = 48, "00011*", "011*") - - - - =Fields!CtaMayor.Value - NotEqual - - 3 - - - - 2.6512cm - 0.06568cm - 1.65cm - 10.70896cm - - - Verdana - 8pt - - - - - - - 6cm - - - 2.5cm - - - 2.20896cm - - - - - 0.6cm - - - - - true - true - - - - - ACTIVO NO CIRCULANTE - - - - - - - Textbox7 - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - 0.45cm - - - - - true - - - - - =Fields!Nombre.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImporteActual.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImporteAnterior.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - TOTAL ACTIVO NO CIRCULANTE - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!ImporteActual.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum( Fields!ImporteAnterior.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - true - - - - - - Before - - - - DataSet1 - - - =Fields!Tipo.Value - In - - =CStr("A,B,C").Split(",") - - - - =Fields!Orden.Value - Like - - =IIf(Parameters!CveEmpresa.Value = 48, "00012*", "012*") - - - - =Fields!CtaMayor.Value - NotEqual - - 3 - - - - 4.74417cm - 0.06568cm - 1.65cm - 10.70896cm - 1 - - - Verdana - 8pt - - - - - - - 5.10007cm - - - 2.1825cm - - - 2.17523cm - - - - - 0.6cm - - - - - true - true - - - - - PASIVO CIRCULANTE - - - - - - - Textbox7 - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - 0.45cm - - - - - true - - - - - =Fields!Nombre.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImporteActual.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImporteAnterior.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - TOTAL PASIVO CIRCULANTE - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!ImporteActual.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!ImporteAnterior.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - true - - - - - - Before - - - - DataSet1 - - - =Fields!Tipo.Value - Equal - - D - - - - =Fields!CtaMayor.Value - NotEqual - - 3 - - - - =Fields!Orden.Value - Like - - =IIf(Parameters!CveEmpresa.Value = 48, "00021*", "021*") - - - - 2.6512cm - 10.88047cm - 1.65cm - 9.4578cm - 2 - - - Verdana - 8pt - - - - - - - 5.14411cm - - - 2.1825cm - - - 2.13119cm - - - - - 0.6cm - - - - - true - true - - - - - PASIVO NO CIRCULANTE - - - - - - - Textbox7 - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - 0.45cm - - - - - true - - - - - =Fields!Nombre.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImporteActual.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImporteAnterior.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - TOTAL PASIVO NO CIRCULANTE - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!ImporteActual.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!ImporteAnterior.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - true - - - - - - Before - - - - DataSet1 - - - =Fields!Tipo.Value - Equal - - D - - - - =Fields!CtaMayor.Value - NotEqual - - 3 - - - - =Fields!Orden.Value - Like - - =IIf(Parameters!CveEmpresa.Value = 48, "00022*", "022*") - - - - 4.74417cm - 10.88047cm - 1.65cm - 9.4578cm - 3 - - - Verdana - 8pt - - - - true - true - - - - - ACTIVO - - - - - - - Textbox28 - 1.84891cm - 0.27028cm - 0.6cm - 9.7954cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - PASIVO - - - - - - - Textbox28 - 1.91009cm - 10.88047cm - 0.6cm - 8.40286cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 5.18815cm - - - 2.13846cm - - - 2.13119cm - - - - - 0.6cm - - - - - true - true - - - - - CAPITAL CONTABLE - - - - - - - Textbox7 - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - 0.45cm - - - - - true - - - - - =Fields!Nombre.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImporteActual.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImporteAnterior.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - TOTAL CAPITAL - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!ImporteActual.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!ImporteAnterior.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - true - - - - - - Before - - - - DataSet1 - - - =Fields!Tipo.Value - Equal - - F - - - - =Fields!CtaMayor.Value - NotEqual - - 3 - - - - 8.30193cm - 10.88047cm - 1.65cm - 9.4578cm - 6 - - - Verdana - 8pt - - - - true - true - - - - - CAPITAL - - - - - - - Textbox28 - 7.52554cm - 10.92451cm - 0.6cm - 9.41376cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Total del Activo - - - - - - - Textbox45 - 11.31317cm - 0.27027cm - 0.6cm - 4.81646cm - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Variables!TotalActivoAnterior.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Variables!TotalActivoActual.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Total CAPITAL - - - - - - - Textbox45 - 10.22837cm - 10.88047cm - 0.6cm - 3.1816cm - 11 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Variables!TotalPatrimonioHAnterior.Value + Variables!TotalPatrimonioCAnterior.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Variables!TotalPatrimonioHActual.Value + Variables!TotalPatrimonioCActual.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Total Pasivo y Patrimonio - - - - - - - Textbox45 - 11.31317cm - 10.77464cm - 0.6cm - 4.55974cm - 14 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Variables!TotalpasivoYHaciendaAnterior.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Variables!TotalpasivoYHaciendaActual.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Total del Pasivo: - - - - - - - Textbox45 - 6.57056cm - 10.88047cm - 0.6cm - 3.1816cm - 17 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Variables!TotalPasivoAnterior.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Variables!TotalPasivoActual.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Iif(round(Math.Abs(Variables!TotalActivoAnterior.Value-Variables!TotalpasivoYHaciendaAnterior.Value),2) <.005 AND Round(Math.Abs(Variables!TotalActivoActual.Value-Variables!TotalpasivoYHaciendaActual.Value),2) <.005,"" ,"La suma de los totales estan descuadradas." & round(Math.Abs(Variables!TotalActivoAnterior.Value-Variables!TotalpasivoYHaciendaAnterior.Value),2)) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - External - = Parameters!pImg.Value - FitProportional - 0.03141cm - 0.31432cm - 1.5cm - 1.5cm - 21 - - - - - - true - true - - - - - =Parameters!pEmp.Value - - - - - - - Textbox1 - 0.03141cm - 3.40996cm - 0.81167cm - 12.91455cm - 22 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Estado de Situación Financiera al - - - - =Parameters!pFechaFin.Value - - - - - - - Textbox5 - 0.89924cm - 3.40996cm - 0.6cm - 12.91455cm - 23 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") - - - - - - - Textbox8 - 0.03141cm - 16.58113cm - 0.81167cm - 3.49249cm - 24 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 6cm - - - 2.5cm - - - 2.20896cm - - - - - 0.6cm - - - - - true - true - - - - - ACTIVO DIFERIDO - - - - - - - Textbox7 - - - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - 0.45cm - - - - - true - - - - - =Fields!Nombre.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImporteActual.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImporteAnterior.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - TOTAL ACTIVO DIFERIDO - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!ImporteActual.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!ImporteAnterior.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - true - - - - - - Before - - - - DataSet1 - - - =Fields!CtaMayor.Value - NotEqual - - 3 - - - - 6.92554cm - 0.06568cm - 1.65cm - 10.70896cm - 25 - - =IIf(Parameters!CveEmpresa.Value = 48,True,False) - - - - Verdana - 8pt - - - - 5.1587in - - - - =Parameters!pFechaFin.Value - - - - - - - Textbox5 - 3.454cm - 0.6cm - 12.91455cm - - = (Globals.PageNumber=1) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") - - - - - - - Textbox8 - 0.02088cm - 16.62517cm - 0.57912cm - 3.49249cm - 1 - - = (Globals.PageNumber=1) - - - - 2pt - 2pt - - - - - - - - - 3.73062cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 3.13062cm - 16.37931cm - 0.6cm - 3.95896cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!pFirma2.Value - - - - Textbox2 - 0.10583cm - 1.71666cm - 0.99688cm - 8.02269cm - 1 - - = Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma2.Value <> ""),false,true) - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!pFirma1.Value - - - - Textbox2 - 2.73374cm - 6.03938cm - 0.99688cm - 8.02269cm - 2 - - = Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma1.Value <> ""),false,true) - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - - Textbox2 - 0.10582cm - 10.37435cm - 0.99688cm - 8.02269cm - 3 - - =Microsoft.VisualBasic.Interaction.Iif((Globals!PageNumber = Globals!TotalPages) And (Parameters!pFirma1.Value <> ""), False, True) - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 0.5cm - 0.5cm - 1cm - 1cm - 0.13cm - + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + + + + + TOTAL ACTIVO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + In + + =CStr("A,B,C").Split(",") + + + + =Fields!Orden.Value + Like + + =IIf(Parameters!CveEmpresa.Value = 48, "00011*", "011*") + + + + =Fields!CtaMayor.Value + NotEqual + + 3 + + + + 2.6512cm + 0.06568cm + 1.65cm + 10.70896cm + + + Verdana + 8pt + + + + + + + 6cm + + + 2.5cm + + + 2.20896cm + + + + + 0.6cm + + + + + true + true + + + + + ACTIVO NO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL ACTIVO NO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + In + + =CStr("A,B,C").Split(",") + + + + =Fields!Orden.Value + Like + + =IIf(Parameters!CveEmpresa.Value = 48, "00012*", "012*") + + + + =Fields!CtaMayor.Value + NotEqual + + 3 + + + + 4.74417cm + 0.06568cm + 1.65cm + 10.70896cm + 1 + + + Verdana + 8pt + + + + + + + 5.10007cm + + + 2.1825cm + + + 2.17523cm + + + + + 0.6cm + + + + + true + true + + + + + PASIVO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL PASIVO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + Equal + + D + + + + =Fields!CtaMayor.Value + NotEqual + + 3 + + + + =Fields!Orden.Value + Like + + =IIf(Parameters!CveEmpresa.Value = 48, "00021*", "021*") + + + + 2.6512cm + 10.88047cm + 1.65cm + 9.4578cm + 2 + + + Verdana + 8pt + + + + + + + 5.14411cm + + + 2.1825cm + + + 2.13119cm + + + + + 0.6cm + + + + + true + true + + + + + PASIVO NO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL PASIVO NO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + Equal + + D + + + + =Fields!CtaMayor.Value + NotEqual + + 3 + + + + =Fields!Orden.Value + Like + + =IIf(Parameters!CveEmpresa.Value = 48, "00022*", "022*") + + + + 4.74417cm + 10.88047cm + 1.65cm + 9.4578cm + 3 + + + Verdana + 8pt + + + + true + true + + + + + ACTIVO + + + + + + + Textbox28 + 1.84891cm + 0.27028cm + 0.6cm + 9.7954cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + PASIVO + + + + + + + Textbox28 + 1.91009cm + 10.88047cm + 0.6cm + 8.40286cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 5.18815cm + + + 2.13846cm + + + 2.13119cm + + + + + 0.6cm + + + + + true + true + + + + + CAPITAL CONTABLE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL CAPITAL + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + Equal + + F + + + + =Fields!CtaMayor.Value + NotEqual + + 3 + + + + 8.30193cm + 10.88047cm + 1.65cm + 9.4578cm + 6 + + + Verdana + 8pt + + + + true + true + + + + + CAPITAL + + + + + + + Textbox28 + 7.52554cm + 10.92451cm + 0.6cm + 9.41376cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total del Activo + + + + + + + Textbox45 + 11.31317cm + 0.27027cm + 0.6cm + 4.81646cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalActivoAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalActivoActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total CAPITAL + + + + + + + Textbox45 + 10.22837cm + 10.88047cm + 0.6cm + 3.1816cm + 11 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPatrimonioHAnterior.Value + Variables!TotalPatrimonioCAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPatrimonioHActual.Value + Variables!TotalPatrimonioCActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total Pasivo y Patrimonio + + + + + + + Textbox45 + 11.31317cm + 10.77464cm + 0.6cm + 4.55974cm + 14 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalpasivoYHaciendaAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalpasivoYHaciendaActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total del Pasivo: + + + + + + + Textbox45 + 6.57056cm + 10.88047cm + 0.6cm + 3.1816cm + 17 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPasivoAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPasivoActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Iif(round(Math.Abs(Variables!TotalActivoAnterior.Value-Variables!TotalpasivoYHaciendaAnterior.Value),2) <.005 AND Round(Math.Abs(Variables!TotalActivoActual.Value-Variables!TotalpasivoYHaciendaActual.Value),2) <.005,"" ,"La suma de los totales estan descuadradas." & round(Math.Abs(Variables!TotalActivoAnterior.Value-Variables!TotalpasivoYHaciendaAnterior.Value),2)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + = Parameters!pImg.Value + FitProportional + 0.03141cm + 0.31432cm + 1.5cm + 1.5cm + 21 + + + + + + true + true + + + + + =Parameters!pEmp.Value + + + + + + + Textbox1 + 0.03141cm + 3.40996cm + 0.81167cm + 12.91455cm + 22 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Estado de Situación Financiera al + + + + =Parameters!pFechaFin.Value + + + + + + + Textbox5 + 0.89924cm + 3.40996cm + 0.6cm + 12.91455cm + 23 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") + + + + + + + Textbox8 + 0.03141cm + 16.58113cm + 0.81167cm + 3.49249cm + 24 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 6cm + + + 2.5cm + + + 2.20896cm + + + + + 0.6cm + + + + + true + true + + + + + ACTIVO DIFERIDO + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL ACTIVO DIFERIDO + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!CtaMayor.Value + NotEqual + + 3 + + + + 6.92554cm + 0.06568cm + 1.65cm + 10.70896cm + 25 + + =IIf(Parameters!CveEmpresa.Value = 48,True,False) + + + + Verdana + 8pt + + + + 5.1587in + + + + =Parameters!pFechaFin.Value + + + + + + + Textbox5 + 3.454cm + 0.6cm + 12.91455cm + + = (Globals.PageNumber=1) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") + + + + + + + Textbox8 + 0.02088cm + 16.62517cm + 0.57912cm + 3.49249cm + 1 + + = (Globals.PageNumber=1) + + + + 2pt + 2pt + + + + + + + + + 3.73062cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 3.13062cm + 16.37931cm + 0.6cm + 3.95896cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!pFirma2.Value + + + + Textbox2 + 0.10583cm + 1.71666cm + 0.99688cm + 8.02269cm + 1 + + = Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma2.Value <> ""),false,true) + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!pFirma1.Value + + + + Textbox2 + 2.73374cm + 6.03938cm + 0.99688cm + 8.02269cm + 2 + + = Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma1.Value <> ""),false,true) + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + + Textbox2 + 0.10582cm + 10.37435cm + 0.99688cm + 8.02269cm + 3 + + =Microsoft.VisualBasic.Interaction.Iif((Globals!PageNumber = Globals!TotalPages) And (Parameters!pFirma1.Value <> ""), False, True) + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 1cm + 1cm + 0.13cm +