diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index ae5e90b60..5cfb77001 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -80,7 +80,7 @@ Public Class ClsClientes Public Property Codigo As String Public Property LimiteCredito As Double 'Public Property NumCtaPago As String - Public Property CveMetodoPago As Integer + 'Public Property CveMetodoPago As Integer Public Property AplicaFEMSA As Boolean Public Property FEMSA_NumSociedad As String Public Property FEMSA_NumProveedor As String diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 74e9f319d..0193ebf94 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -616,7 +616,7 @@ Public Class ClsMovimientos Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1, Optional CveTipoProveedor As Integer = -1, Optional Comprobaciones As Integer = -1, - Optional TipoDocto As String = "-1") As Boolean + Optional TipoDocto As String = "-1", Optional TipoAgrupacion As Integer = -1) As Boolean Dim Retorno As Boolean = False If FechaCorte = Nothing Then FechaCorte = Now @@ -645,6 +645,8 @@ Public Class ClsMovimientos .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor .Add("@Comprobaciones", SqlDbType.Int).Value = Comprobaciones .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto + .Add("@TipoAgrupacion", SqlDbType.Bit).Value = TipoAgrupacion + End With Try diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 2ab65b1a4..a97e69803 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4420,8 +4420,8 @@ Public Class ClsPaginas PaginaDict.Add("/Contabilidad2/RepCambiosSituacionFinanciera.aspx".ToUpper(), 585) PaginaDict.Add("/Contabilidad2/RepSituacionFinanciera.aspx".ToUpper(), 586) PaginaDict.Add("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx".ToUpper(), 587) - PaginaDict.Add("/Contabilidad2/RegPoliza.aspx".ToUpper(), 588) - PaginaDict.Add("/Contabilidad2/PymeRegPoliza.aspx".ToUpper(), 588) + ' PaginaDict.Add("/Contabilidad2/RegPoliza.aspx".ToUpper(), 588) + 'PaginaDict.Add("/Contabilidad2/PymeRegPoliza.aspx".ToUpper(), 588) PaginaDict.Add("/Contabilidad2/RepAlmacenConta.aspx".ToUpper(), 539) PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoMensual.aspx".ToUpper(), 589) @@ -4431,12 +4431,12 @@ Public Class ClsPaginas PaginaDict.Add("/Contabilidad2/CatCuentas.aspx".ToUpper(), 596) PaginaDict.Add("/Contabilidad2/RepLibroDiario.aspx".ToUpper(), 544) - PaginaDict.Add("/Contabilidad2/RepSituacionFinancieraSAT.aspx".ToUpper(), 615) - PaginaDict.Add("/Contabilidad2/RepEstadoActividadesSAT.aspx".ToUpper(), 616) - PaginaDict.Add("/Contabilidad2/RepBalanzaComprobacionSAT.aspx".ToUpper(), 617) - PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoSAT.aspx".ToUpper(), 618) + 'PaginaDict.Add("/Contabilidad2/RepSituacionFinancieraSAT.aspx".ToUpper(), 615) + 'PaginaDict.Add("/Contabilidad2/RepEstadoActividadesSAT.aspx".ToUpper(), 616) + 'PaginaDict.Add("/Contabilidad2/RepBalanzaComprobacionSAT.aspx".ToUpper(), 617) + 'PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoSAT.aspx".ToUpper(), 618) PaginaDict.Add("/Contabilidad2/MovimientosConProveedores.aspx".ToUpper(), 619) - PaginaDict.Add("/Contabilidad2/RepBalanceGeneral.aspx".ToUpper(), 530) + 'PaginaDict.Add("/Contabilidad2/RepBalanceGeneral.aspx".ToUpper(), 530) PaginaDict.Add("/Contabilidad2/CatCuentasAsignaciones.aspx".ToUpper(), 724) PaginaDict.Add("/Contabilidad2/CatContaEjercicios.aspx".ToUpper(), 725) PaginaDict.Add("/Contabilidad2/PolizasImpresion.aspx".ToUpper(), 726) @@ -4724,7 +4724,6 @@ Public Class ClsPaginas PaginaDict.Add("/Nomina/Nomina2.aspx".ToUpper(), 75) PaginaDict.Add("/Nomina/ReportedeAcumulados.aspx".ToUpper(), 75) PaginaDict.Add("/Nomina/ListaAsistencias.aspx".ToUpper(), 91) - PaginaDict.Add("/Nomina/ConceptosEspeciales.aspx".ToUpper(), 136) PaginaDict.Add("/Nomina/CatConceptos.aspx".ToUpper(), 172) PaginaDict.Add("/Nomina/ConceptoNomina.aspx".ToUpper(), 172) PaginaDict.Add("/Nomina/RegistroNomina.aspx".ToUpper(), 173) diff --git a/App_Code/DtDatos.xsd b/App_Code/DtDatos.xsd index edcd0cb6f..72637b923 100644 --- a/App_Code/DtDatos.xsd +++ b/App_Code/DtDatos.xsd @@ -9,10 +9,10 @@ - + - + @@ -28,7 +28,7 @@ - + @@ -46,7 +46,7 @@ - + @@ -61,11 +61,12 @@ - + + - + @@ -88,7 +89,7 @@ - + @@ -112,7 +113,7 @@ - + @@ -138,7 +139,7 @@ - + @@ -154,7 +155,7 @@ - + @@ -171,7 +172,7 @@ - + @@ -180,7 +181,7 @@ - + @@ -216,7 +217,7 @@ - + @@ -241,7 +242,7 @@ - + @@ -257,7 +258,7 @@ - + @@ -296,7 +297,7 @@ - + @@ -306,7 +307,7 @@ - + diff --git a/App_Code/DtDatos.xss b/App_Code/DtDatos.xss index e18bb1b5a..325b31061 100644 --- a/App_Code/DtDatos.xss +++ b/App_Code/DtDatos.xss @@ -1,26 +1,26 @@ - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index d1f7dd7bf..9f38b7a6d 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -1587,8 +1587,8 @@ Partial Class Bancos_PopIEVentas Select Case ConceptoContable Case 2 'Pago Cliente - If RBLContado.SelectedValue.Contiene("3", "4", "5") Then - 'If CveMonedaVenta > 1 Then ConceptoContable = 292 + If RBLContado.SelectedValue.Contiene("3", "4", "5") Then + If CveMonedaVenta > 1 Then ConceptoContable = 292 For Each rw As GridViewRow In GvIngresos.Rows If rw.FCCheckBox("Chk").Checked Then If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then @@ -1611,7 +1611,7 @@ Partial Class Bancos_PopIEVentas CveIE = rw.DataKey("CveIE").ToString.ToEntero 'si la factura es en dólares y trae complementaria, el importemn debe ser igual al importe - If CveMonedaVenta <> 1 AndAlso (IdCtaContComplementaria > 0 Or UsuarioActual.CveEmpresa = 119) Then + If CveMonedaVenta <> 1 Then ImporteMX = ImporteMovimiento IdCtaContable = IdCtaContMonedaExtranjera Else @@ -1626,7 +1626,7 @@ Partial Class Bancos_PopIEVentas If CveMonedaVenta = 2 Then IdCtaContable = IdCtaContComplementaria - If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then + If ImporteMovimiento <> 0 Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, ReferenciaConcepto, 207, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, CveVenta, -1, CveSubProyectoContabilizar, If(ViewState("CveCliente") IsNot Nothing, ViewState("CveCliente").ToString.ToEntero, -1), ImporteMX:=ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioVentaValuacion) Then MsgError = "No se pudo insertar la póliza" End If @@ -1674,7 +1674,7 @@ Partial Class Bancos_PopIEVentas If CveMonedaVenta = 2 Then IdCtaContable = IdCtaContComplementaria - If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then + If ImporteMovimiento <> 0 Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, ReferenciaConcepto, 207, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, CveVenta, -1, CveSubProyectoContabilizar, If(ViewState("CveCliente") IsNot Nothing, ViewState("CveCliente").ToString.ToEntero, -1), ImporteMX:=ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioVentaValuacion) Then MsgError = "No se pudo insertar la póliza" End If @@ -1720,7 +1720,7 @@ Partial Class Bancos_PopIEVentas If CveMonedaVenta = 2 Then IdCtaContable = IdCtaContComplementaria - If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then + If ImporteMovimiento <> 0 Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, rw.FCLiteral("LtlFolio").Text, 207, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, CveVenta, rw.DataKey("CveCompra").ToEntero, CveSubProyectoContabilizar, If(ViewState("CveCliente") IsNot Nothing, ViewState("CveCliente").ToString.ToEntero, -1), ImporteMX:=ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioVentaValuacion) Then MsgError = "No se pudo insertar la póliza" End If @@ -1760,7 +1760,7 @@ Partial Class Bancos_PopIEVentas Else IdCtaContable = IdCtaContComplementaria CveSubProyectoContabilizar = CveSubProyectoVenta - If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then + If ImporteMovimiento <> 0 Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, ReferenciaConcepto, 207, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, CveVenta, -1, CveSubProyectoContabilizar, If(ViewState("CveCliente") IsNot Nothing, ViewState("CveCliente").ToString.ToEntero, -1), ImporteMX:=ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioVentaValuacion) Then MsgError = "No se pudo insertar la póliza" End If @@ -2356,7 +2356,7 @@ Partial Class Bancos_PopIEVentas ImporteMX = Math.Round(ImporteMX, 2) 'si la factura es en dólares y trae complementaria, el importemn debe ser igual al importe - If rw.DataKey("CveMoneda").ToEntero <> 1 AndAlso (IdCtaContComplementaria > 0 Or UsuarioActual.CveEmpresa = 119) Then + If rw.DataKey("CveMoneda").ToEntero <> 1 Then ImporteMX = ImporteMovimiento IdCtaContable = IdCtaContComplementariaProveedor Else @@ -2369,7 +2369,7 @@ Partial Class Bancos_PopIEVentas If rw.DataKey("CveMoneda").ToEntero = 2 Then IdCtaContable = IdCtaProveedorExtranjera - If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then + If ImporteMovimiento <> 0 Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, rw.FCLiteral("LtlFolio").Text, 206, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioPago - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioPago) Then MsgError = "No se pudo insertar la póliza" End If diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 10bdfd99c..056bb2fd1 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -1575,8 +1575,7 @@ Partial Class Bancos_ProveedoresAbonar importeMX = 0 End If Else - ImporteMovimiento = gvr.DataKey("IVAPorPagar").ToDecimal * PorcentajePago - + ImporteMovimiento = gvr.DataKey("IVA").ToDecimal * PorcentajePago If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then importeMX = ImporteMovimiento diff --git a/Compras/RepCxP.aspx b/Compras/RepCxP.aspx index b6fa8a533..274250559 100644 --- a/Compras/RepCxP.aspx +++ b/Compras/RepCxP.aspx @@ -253,6 +253,12 @@ +
+
Agrupar por meses:
+
+ +
+
@@ -341,6 +347,43 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Total diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb index c3a54da1d..e5a2d5bf9 100644 --- a/Compras/RepCxP.aspx.vb +++ b/Compras/RepCxP.aspx.vb @@ -71,6 +71,24 @@ Partial Class Compras_RepCxP End Set End Property + Private Property CantVencidos() As Integer + Get + Return If(IsNothing(ViewState("CantVencidos")), -1, CInt(ViewState("CantVencidos"))) + End Get + Set + ViewState("CantVencidos") = Value + End Set + End Property + + Private Property CantPorVencer() As Integer + Get + Return If(IsNothing(ViewState("CantPorVencer")), -1, CInt(ViewState("CantPorVencer"))) + End Get + Set + ViewState("CantPorVencer") = Value + End Set + End Property + Private Property TCEspecifico As Double #End Region @@ -82,6 +100,10 @@ Partial Class Compras_RepCxP CargaGvPersonalizarRaqngoColumnas() CargaDatos() CreaDataTableColor() + + If UsuarioActual.CveRol = 1 Then + divAgruparMes.Visible = True + End If End If End Sub @@ -154,10 +176,11 @@ Partial Class Compras_RepCxP If txtFechaF.Text = "" Then FechaF = "-1" If txtFechaVI.Text = "" Then FechaVI = "-1" If txtFechaVF.Text = "" Then FechaVF = "-1" + Dim TipoAgrupacion As Integer = IIf(chkAgruparMes.Checked, 1, -1) Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM) If Mov.GetCxP(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, -1, DdlUsuarioResponsable.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(DdlTipoProveedor.SelectedValue.ToEntero = 3, -1, DdlTipoProveedor.SelectedValue.ToEntero), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, - TipoDocto:=TipoDocto) Then + TipoDocto:=TipoDocto, TipoAgrupacion:=TipoAgrupacion) Then GvCxP.DataSource = Mov.DtResultados DtDatos = Mov.DtResultados DtGrafica = Mov.DtResultados @@ -165,113 +188,286 @@ Partial Class Compras_RepCxP Mov.Dispose() Dim NumCol As Integer - If DtDatos.Rows.Count > 0 Then - GvCxP.Columns(2).Visible = False - GvCxP.Columns(3).Visible = False - GvCxP.Columns(4).Visible = False - GvCxP.Columns(5).Visible = False - GvCxP.Columns(6).Visible = False - GvCxP.Columns(7).Visible = False - GvCxP.Columns(8).Visible = False - GvCxP.Columns(9).Visible = False - GvCxP.Columns(10).Visible = False - Dim Contador As Integer = 2 - Dim CargaColumnaVencido As Boolean = False + If chkAgruparMes.Checked Then + + Dim monthNames As String() = {"", "Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"} + GvCxP.Columns(2).Visible = True + GvCxP.Columns(3).Visible = True + GvCxP.Columns(4).Visible = True + GvCxP.Columns(5).Visible = True + GvCxP.Columns(6).Visible = True + GvCxP.Columns(7).Visible = True + GvCxP.Columns(8).Visible = True + GvCxP.Columns(9).Visible = True + GvCxP.Columns(10).Visible = True + GvCxP.Columns(11).Visible = True + GvCxP.Columns(12).Visible = True + GvCxP.Columns(13).Visible = True + GvCxP.Columns(14).Visible = True + GvCxP.Columns(15).Visible = True + GvCxP.Columns(16).Visible = True + Dim Dr As DataRow = DtDatos.Rows(0) - If Dr("NomC1").ToString <> "" Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = Dr("NomC1").ToString - Contador += 1 - End If - If Dr("TC2").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = "Total" - Contador += 1 - CargaColumnaVencido = True - NumCol = 2 - End If - If Dr("NomC2").ToString <> "" Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = Dr("NomC2").ToString - Contador += 1 - End If - If Dr("TC3").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = "Total" - Contador += 1 - CargaColumnaVencido = True - NumCol = 3 - End If - If Dr("NomC3").ToString <> "" Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = Dr("NomC3").ToString - Contador += 1 - End If - If Dr("TC4").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = "Total" - Contador += 1 - CargaColumnaVencido = True - NumCol = 4 - End If - If Dr("NomC4").ToString <> "" Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = Dr("NomC4").ToString - Contador += 1 - End If - If Dr("TC5").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = "Total" - Contador += 1 - CargaColumnaVencido = True - NumCol = 5 - End If - If Dr("NomC5").ToString <> "" Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = Dr("NomC5").ToString - Contador += 1 - End If - If Dr("TC6").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = "Total" - Contador += 1 - CargaColumnaVencido = True - NumCol = 6 - End If - If Dr("NomC6").ToString <> "" Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = Dr("NomC6").ToString - Contador += 1 - End If - If Dr("TC7").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = "Total" - Contador += 1 - CargaColumnaVencido = True - NumCol = 7 - End If - If Dr("NomC7").ToString <> "" Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = Dr("NomC7").ToString - Contador += 1 - End If - If Dr("TC8").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = "Total" - Contador += 1 - CargaColumnaVencido = True - NumCol = 8 - End If - If Dr("NomC8").ToString <> "" Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = Dr("NomC8").ToString - Contador += 1 + GvCxP.Columns(2).HeaderText = "Vencido" + GvCxP.Columns(3).HeaderText = "Total" + GvCxP.Columns(4).HeaderText = monthNames(Dr("NomMes1").ToString.ToDate.Month) + GvCxP.Columns(5).HeaderText = monthNames(Dr("NomMes2").ToString.ToDate.Month) + GvCxP.Columns(6).HeaderText = monthNames(Dr("NomMes3").ToString.ToDate.Month) + GvCxP.Columns(7).HeaderText = monthNames(Dr("NomMes4").ToString.ToDate.Month) + GvCxP.Columns(8).HeaderText = monthNames(Dr("NomMes5").ToString.ToDate.Month) + GvCxP.Columns(9).HeaderText = monthNames(Dr("NomMes6").ToString.ToDate.Month) + GvCxP.Columns(10).HeaderText = monthNames(Dr("NomMes7").ToString.ToDate.Month) + GvCxP.Columns(11).HeaderText = monthNames(Dr("NomMes8").ToString.ToDate.Month) + GvCxP.Columns(12).HeaderText = monthNames(Dr("NomMes9").ToString.ToDate.Month) + GvCxP.Columns(13).HeaderText = monthNames(Dr("NomMes10").ToString.ToDate.Month) + GvCxP.Columns(14).HeaderText = monthNames(Dr("NomMes11").ToString.ToDate.Month) + GvCxP.Columns(15).HeaderText = monthNames(Dr("NomMes12").ToString.ToDate.Month) + GvCxP.Columns(16).HeaderText = "12+" + GvCxP.DataBind() + UPPDatos.Update() + Else + If DtDatos.Rows.Count > 0 Then + GvCxP.Columns(2).Visible = False + GvCxP.Columns(3).Visible = False + GvCxP.Columns(4).Visible = False + GvCxP.Columns(5).Visible = False + GvCxP.Columns(6).Visible = False + GvCxP.Columns(7).Visible = False + GvCxP.Columns(8).Visible = False + GvCxP.Columns(9).Visible = False + GvCxP.Columns(10).Visible = False + GvCxP.Columns(11).Visible = False + GvCxP.Columns(12).Visible = False + GvCxP.Columns(13).Visible = False + GvCxP.Columns(14).Visible = False + GvCxP.Columns(15).Visible = False + GvCxP.Columns(16).Visible = False + Dim Contador As Integer = 2 + + Dim CargaColumnaVencido As Boolean = False + Dim Dr As DataRow = DtDatos.Rows(0) + If Dr("NomC1").ToString <> "" Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = Dr("NomC1").ToString + Contador += 1 + If Dr("TC1").ToString.ToEntero = 1 Then + CantVencidos += 1 + Else + CantPorVencer += 1 + End If + End If + If Dr("TC2").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 2 + End If + If Dr("NomC2").ToString <> "" Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = Dr("NomC2").ToString + Contador += 1 + If Dr("TC2").ToString.ToEntero = 1 Then + CantVencidos += 1 + Else + CantPorVencer += 1 + End If + End If + If Dr("TC3").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 3 + End If + If Dr("NomC3").ToString <> "" Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = Dr("NomC3").ToString + Contador += 1 + If Dr("TC3").ToString.ToEntero = 1 Then + CantVencidos += 1 + Else + CantPorVencer += 1 + End If + End If + If Dr("TC4").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 4 + End If + If Dr("NomC4").ToString <> "" Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = Dr("NomC4").ToString + Contador += 1 + If Dr("TC4").ToString.ToEntero = 1 Then + CantVencidos += 1 + Else + CantPorVencer += 1 + End If + End If + If Dr("TC5").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 5 + End If + If Dr("NomC5").ToString <> "" Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = Dr("NomC5").ToString + Contador += 1 + If Dr("TC5").ToString.ToEntero = 1 Then + CantVencidos += 1 + Else + CantPorVencer += 1 + End If + End If + If Dr("TC6").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 6 + End If + If Dr("NomC6").ToString <> "" Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = Dr("NomC6").ToString + Contador += 1 + If Dr("TC6").ToString.ToEntero = 1 Then + CantVencidos += 1 + Else + CantPorVencer += 1 + End If + End If + If Dr("TC7").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 7 + End If + If Dr("NomC7").ToString <> "" Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = Dr("NomC7").ToString + Contador += 1 + If Dr("TC7").ToString.ToEntero = 1 Then + CantVencidos += 1 + Else + CantPorVencer += 1 + End If + End If + If Dr("TC8").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 8 + End If + If Dr("NomC8").ToString <> "" Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = Dr("NomC8").ToString + Contador += 1 + If Dr("TC8").ToString.ToEntero = 1 Then + CantVencidos += 1 + Else + CantPorVencer += 1 + End If + End If + If Dr("TC9").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 8 + End If + If Dr("NomC9").ToString <> "" Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = Dr("NomC9").ToString + Contador += 1 + If Dr("TC9").ToString.ToEntero = 1 Then + CantVencidos += 1 + Else + CantPorVencer += 1 + End If + End If + If Dr("TC10").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 10 + End If + If Dr("NomC10").ToString <> "" Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = Dr("NomC10").ToString + Contador += 1 + If Dr("TC10").ToString.ToEntero = 1 Then + CantVencidos += 1 + Else + CantPorVencer += 1 + End If + End If + If Dr("TC11").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 11 + End If + If Dr("NomC11").ToString <> "" Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = Dr("NomC11").ToString + Contador += 1 + If Dr("TC11").ToString.ToEntero = 1 Then + CantVencidos += 1 + Else + CantPorVencer += 1 + End If + End If + If Dr("TC12").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 12 + End If + If Dr("NomC12").ToString <> "" Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = Dr("NomC12").ToString + Contador += 1 + If Dr("TC12").ToString.ToEntero = 1 Then + CantVencidos += 1 + Else + CantPorVencer += 1 + End If + End If + If Dr("TC13").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 13 + End If + If Dr("NomC13").ToString <> "" Then + GvCxP.Columns(Contador).Visible = True + GvCxP.Columns(Contador).HeaderText = Dr("NomC13").ToString + Contador += 1 + If Dr("TC12").ToString.ToEntero = 1 Then + CantVencidos += 1 + Else + CantPorVencer += 1 + End If + End If + End If + GvCxP.DataBind() + UPPDatos.Update() + ActualizarDatatable(NumCol) + End If - GvCxP.DataBind() - UPPDatos.Update() - ActualizarDatatable(NumCol) Agrupador = DdlGrupo.SelectedItem.Text End Sub @@ -282,10 +478,16 @@ Partial Class Compras_RepCxP Protected Sub GvCxP_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvCxP.RowCreated If e.Row.RowType = DataControlRowType.Header Then Dim FC As New SortedList - FC.Add(0, " ,2,1,Titulos") - FC.Add(2, "Vencido,4,1,Titulos") - FC.Add(3, "Por Vencer,5,1,Titulos") + If chkAgruparMes.Checked Then + FC.Add(0, " ,2,1,Titulos") + FC.Add(2, "Vencido,2,1,Titulos") + FC.Add(3, "Por Vencer,14,1,Titulos") + Else + FC.Add(0, " ,2,1,Titulos") + FC.Add(2, String.Format("Vencido,{0},1,Titulos", CantVencidos + 2)) + FC.Add(3, String.Format("Por Vencer,{0},1,Titulos", CantPorVencer + 2)) + End If GetMultiRowHeader(DirectCast(sender, GridView), e, FC, "Titulos") End If End Sub @@ -295,253 +497,482 @@ Partial Class Compras_RepCxP If e.Row.RowType = DataControlRowType.DataRow Then Dim Css As String = "Texto" + If chkAgruparMes.Checked Then + Dim TipoMoneda As Integer = RblTipoCambio.SelectedValue.ToEntero + ' Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero + Dim Responsable As Integer = DdlUsuarioResponsable.SelectedValue.ToEntero + 'Dim CveClasificacion As Integer = DdlProveedoresClasificaciones.SelectedValue.ToEntero + Dim CveTipoProveedor As Integer = DdlTipoProveedor.SelectedValue.ToEntero + 'Dim CveProveedorSucursal As Integer = If(e.Row.DBCampo("CveProveedorSucursal").ToEntero > 0, e.Row.DBCampo("CveProveedorSucursal").ToEntero, -1) - If DdlGrupo.SelectedValue.ToEntero = 11 Then - If e.Row.DBCampo("CveSubProyecto") = "-1" Then - e.Row.CssClass = "Totales" - ElseIf e.Row.DBCampo("Orden") = "" Then - e.Row.CssClass = "SubTotales" + Dim FechaI, FechaF, FechaVI, FechaVF As String + FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") + FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") + FechaVI = If(IsDate(txtFechaVI.Text.Trim()), txtFechaVI.Text.Trim(), "-1") + FechaVF = If(IsDate(txtFechaVF.Text.Trim()), txtFechaVF.Text.Trim(), Date.Now.ToShortDateString) + If DdlGrupo.SelectedValue.ToEntero = 11 Then + If e.Row.DBCampo("CveSubProyecto") = "-1" Then + e.Row.CssClass = "Totales" + ElseIf e.Row.DBCampo("Orden") = "" Then + e.Row.CssClass = "SubTotales" + End If + Else + If e.Row.DBCampo("Orden") = "" Then + e.Row.CssClass = "Totales" + End If End If + If e.Row.DBCampo("Orden") <> "" Then + e.Row.Cells(1).BackColor = Drawing.Color.LightGray + e.Row.Cells(3).BackColor = Drawing.Color.LightGray + e.Row.Cells(17).BackColor = Drawing.Color.LightGray + End If + If DdlGrupo.SelectedValue = "10" AndAlso e.Row.RowIndex.Contiene(1, 3) Then + e.Row.Visible = False + End If + e.Row.FCHyperLink($"HplColumna1").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna2").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna3").Text = e.Row.DBCampo("Mes1").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna4").Text = e.Row.DBCampo("Mes2").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna5").Text = e.Row.DBCampo("Mes3").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna6").Text = e.Row.DBCampo("Mes4").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna7").Text = e.Row.DBCampo("Mes5").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna8").Text = e.Row.DBCampo("Mes6").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna9").Text = e.Row.DBCampo("Mes7").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna10").Text = e.Row.DBCampo("Mes8").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna11").Text = e.Row.DBCampo("Mes9").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna12").Text = e.Row.DBCampo("Mes10").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna13").Text = e.Row.DBCampo("Mes11").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna14").Text = e.Row.DBCampo("Mes12").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna15").Text = e.Row.DBCampo("Mes13").ToString.FormatoNumero + + Dim Liga1 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + e.Row.FCHyperLink($"HplColumna1").NavigateUrl = Liga1 + Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + e.Row.FCHyperLink($"HplColumna2").NavigateUrl = Liga1 + Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes1"), e.Row.DBCampo("NomMesF1"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + e.Row.FCHyperLink($"HplColumna3").NavigateUrl = Liga1 + Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes2"), e.Row.DBCampo("NomMesF2"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + e.Row.FCHyperLink($"HplColumna4").NavigateUrl = Liga1 + Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes3"), e.Row.DBCampo("NomMesF3"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + e.Row.FCHyperLink($"HplColumna5").NavigateUrl = Liga1 + Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes4"), e.Row.DBCampo("NomMesF4"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + e.Row.FCHyperLink($"HplColumna6").NavigateUrl = Liga1 + Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes5"), e.Row.DBCampo("NomMesF5"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + e.Row.FCHyperLink($"HplColumna7").NavigateUrl = Liga1 + Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes6"), e.Row.DBCampo("NomMesF6"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + e.Row.FCHyperLink($"HplColumna8").NavigateUrl = Liga1 + Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes7"), e.Row.DBCampo("NomMesF7"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + e.Row.FCHyperLink($"HplColumna9").NavigateUrl = Liga1 + Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes8"), e.Row.DBCampo("NomMesF8"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + e.Row.FCHyperLink($"HplColumna10").NavigateUrl = Liga1 + Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes9"), e.Row.DBCampo("NomMesF9"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + e.Row.FCHyperLink($"HplColumna11").NavigateUrl = Liga1 + Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes10"), e.Row.DBCampo("NomMesF10"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + e.Row.FCHyperLink($"HplColumna12").NavigateUrl = Liga1 + Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes11"), e.Row.DBCampo("NomMesF11"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + e.Row.FCHyperLink($"HplColumna13").NavigateUrl = Liga1 + Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes12"), e.Row.DBCampo("NomMesF12"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + e.Row.FCHyperLink($"HplColumna14").NavigateUrl = Liga1 + Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes13"), "31/12/9999", TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + e.Row.FCHyperLink($"HplColumna15").NavigateUrl = Liga1 + + If e.Row.FCHyperLink("HplSaldo").Text = "0.00" Then e.Row.FCHyperLink("HplSaldo").Text = "-" + If e.Row.FCHyperLink("HplColumna1").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna1").Text = "-" + If e.Row.FCHyperLink("HplColumna2").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna2").Text = "-" + If e.Row.FCHyperLink("HplColumna3").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna3").Text = "-" + If e.Row.FCHyperLink("HplColumna4").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna4").Text = "-" + If e.Row.FCHyperLink("HplColumna5").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna5").Text = "-" + If e.Row.FCHyperLink("HplColumna6").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna6").Text = "-" + If e.Row.FCHyperLink("HplColumna7").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna7").Text = "-" + If e.Row.FCHyperLink("HplColumna8").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna8").Text = "-" + If e.Row.FCHyperLink("HplColumna9").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna9").Text = "-" + If e.Row.FCHyperLink("HplColumna10").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna10").Text = "-" + If e.Row.FCHyperLink("HplColumna11").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna11").Text = "-" + If e.Row.FCHyperLink("HplColumna12").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna12").Text = "-" + If e.Row.FCHyperLink("HplColumna13").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna13").Text = "-" + If e.Row.FCHyperLink("HplColumna14").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna14").Text = "-" + If e.Row.FCHyperLink("HplColumna15").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna15").Text = "-" + + + If e.Row.FCHyperLink("LtlPorVencer").Text = "0.00" Then e.Row.FCHyperLink("LtlPorVencer").Text = "-" + If e.Row.FCHyperLink("LtlVentas").Text = "0.00" Then e.Row.FCHyperLink("LtlVentas").Text = "-" + If e.Row.FCHyperLink("LtlSaldo1").Text = "0.00" Then e.Row.FCHyperLink("LtlSaldo1").Text = "-" Else - If e.Row.DBCampo("Orden") = "" Then - e.Row.CssClass = "Totales" + If DdlGrupo.SelectedValue.ToEntero = 11 Then + If e.Row.DBCampo("CveSubProyecto") = "-1" Then + e.Row.CssClass = "Totales" + ElseIf e.Row.DBCampo("Orden") = "" Then + e.Row.CssClass = "SubTotales" + End If + Else + If e.Row.DBCampo("Orden") = "" Then + e.Row.CssClass = "Totales" + End If End If - End If - If e.Row.DBCampo("Orden") <> "" Then - e.Row.Cells(1).BackColor = Drawing.Color.LightGray - e.Row.Cells(11).BackColor = Drawing.Color.LightGray - End If + If e.Row.DBCampo("Orden") <> "" Then + e.Row.Cells(1).BackColor = Drawing.Color.LightGray + e.Row.Cells(17).BackColor = Drawing.Color.LightGray + End If - If DdlGrupo.SelectedValue = "10" AndAlso e.Row.RowIndex.Contiene(1, 3) Then - e.Row.Visible = False - End If + If DdlGrupo.SelectedValue = "10" AndAlso e.Row.RowIndex.Contiene(1, 3) Then + e.Row.Visible = False + End If - Dim TipoMoneda As Integer = RblTipoCambio.SelectedValue.ToEntero - ' Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero - Dim Responsable As Integer = DdlUsuarioResponsable.SelectedValue.ToEntero - 'Dim CveClasificacion As Integer = DdlProveedoresClasificaciones.SelectedValue.ToEntero - Dim CveTipoProveedor As Integer = DdlTipoProveedor.SelectedValue.ToEntero - 'Dim CveProveedorSucursal As Integer = If(e.Row.DBCampo("CveProveedorSucursal").ToEntero > 0, e.Row.DBCampo("CveProveedorSucursal").ToEntero, -1) + Dim TipoMoneda As Integer = RblTipoCambio.SelectedValue.ToEntero + ' Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero + Dim Responsable As Integer = DdlUsuarioResponsable.SelectedValue.ToEntero + 'Dim CveClasificacion As Integer = DdlProveedoresClasificaciones.SelectedValue.ToEntero + Dim CveTipoProveedor As Integer = DdlTipoProveedor.SelectedValue.ToEntero + 'Dim CveProveedorSucursal As Integer = If(e.Row.DBCampo("CveProveedorSucursal").ToEntero > 0, e.Row.DBCampo("CveProveedorSucursal").ToEntero, -1) - Dim FechaI, FechaF, FechaVI, FechaVF As String - FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") - FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") - FechaVI = If(IsDate(txtFechaVI.Text.Trim()), txtFechaVI.Text.Trim(), "-1") - FechaVF = If(IsDate(txtFechaVF.Text.Trim()), txtFechaVF.Text.Trim(), "-1") + Dim FechaI, FechaF, FechaVI, FechaVF As String + FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") + FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") + FechaVI = If(IsDate(txtFechaVI.Text.Trim()), txtFechaVI.Text.Trim(), "-1") + FechaVF = If(IsDate(txtFechaVF.Text.Trim()), txtFechaVF.Text.Trim(), "-1") - '/Bancos/RepProgramarRecursos.aspx --> Compras/RepCxPDetalle.aspx + '/Bancos/RepProgramarRecursos.aspx --> Compras/RepCxPDetalle.aspx - Dim LigaTot As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + Dim LigaTot As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) - Dim Liga1 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + Dim Liga1 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) - Dim Liga2 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + Dim Liga2 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) - Dim Liga3 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + Dim Liga3 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) - Dim Liga4 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + Dim Liga4 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) - Dim Liga5 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + Dim Liga5 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) - Dim Liga6 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + Dim Liga6 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) - Dim Liga7 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + Dim Liga7 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) - Dim Liga8 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + Dim Liga8 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + Dim Liga9 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C9&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + Dim Liga10 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C10&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + Dim Liga11 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C11&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + Dim Liga12 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C12&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) + Dim Liga13 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C13&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) - Dim Liga9 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + Dim Liga14 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) - Dim Liga10 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + Dim Liga15 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) - Dim Liga11 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", + Dim Liga16 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}", e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones")) - Dim Contador As Integer = 1 - Dim ContadorColumna As Integer = 2 - Dim CargaColumnaVencido As Boolean = False - If e.Row.DBCampo("NomC1").ToString <> "" Then - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna1").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga1 - Contador += 1 - ContadorColumna += 1 - End If - - If e.Row.DBCampo("TC2").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then - e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + Dim Contador As Integer = 1 + Dim ContadorColumna As Integer = 2 + Dim CargaColumnaVencido As Boolean = False + If e.Row.DBCampo("NomC1").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna1").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga1 + Contador += 1 + ContadorColumna += 1 End If - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10 - Contador += 1 - CargaColumnaVencido = True - ContadorColumna += 1 - End If - If e.Row.DBCampo("NomC2").ToString <> "" Then - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna2").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga2 - Contador += 1 - ContadorColumna += 1 - End If - - If e.Row.DBCampo("TC3").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then - e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + If e.Row.DBCampo("TC2").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + If Not e.Row.DBCampo("Orden") = "" Then + e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + End If + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15 + Contador += 1 + CargaColumnaVencido = True + ContadorColumna += 1 End If - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10 - Contador += 1 - CargaColumnaVencido = True - ContadorColumna += 1 - End If - If e.Row.DBCampo("NomC3").ToString <> "" Then - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna3").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga3 - Contador += 1 - ContadorColumna += 1 - End If - - If e.Row.DBCampo("TC4").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then - e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + If e.Row.DBCampo("NomC2").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna2").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga2 + Contador += 1 + ContadorColumna += 1 End If - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10 - Contador += 1 - CargaColumnaVencido = True - ContadorColumna += 1 - End If - If e.Row.DBCampo("NomC4").ToString <> "" Then - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna4").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga4 - Contador += 1 - ContadorColumna += 1 - End If - - If e.Row.DBCampo("TC5").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then - e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + If e.Row.DBCampo("TC3").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + If Not e.Row.DBCampo("Orden") = "" Then + e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + End If + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15 + Contador += 1 + CargaColumnaVencido = True + ContadorColumna += 1 End If - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10 - Contador += 1 - CargaColumnaVencido = True - ContadorColumna += 1 - End If - If e.Row.DBCampo("NomC5").ToString <> "" Then - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna5").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga5 - Contador += 1 - ContadorColumna += 1 - End If - - If e.Row.DBCampo("TC6").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then - e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + If e.Row.DBCampo("NomC3").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna3").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga3 + Contador += 1 + ContadorColumna += 1 End If - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10 - Contador += 1 - CargaColumnaVencido = True - ContadorColumna += 1 - End If - If e.Row.DBCampo("NomC6").ToString <> "" Then - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna6").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga6 - Contador += 1 - ContadorColumna += 1 - End If - - If e.Row.DBCampo("TC7").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then - e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + If e.Row.DBCampo("TC4").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + If Not e.Row.DBCampo("Orden") = "" Then + e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + End If + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15 + Contador += 1 + CargaColumnaVencido = True + ContadorColumna += 1 End If - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10 - Contador += 1 - CargaColumnaVencido = True - ContadorColumna += 1 - End If - If e.Row.DBCampo("NomC7").ToString <> "" Then - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna7").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga7 - Contador += 1 - ContadorColumna += 1 - End If - - If e.Row.DBCampo("TC8").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then - e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + If e.Row.DBCampo("NomC4").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna4").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga4 + Contador += 1 + ContadorColumna += 1 End If - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10 - Contador += 1 - CargaColumnaVencido = True - ContadorColumna += 1 + + If e.Row.DBCampo("TC5").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + If Not e.Row.DBCampo("Orden") = "" Then + e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + End If + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15 + Contador += 1 + CargaColumnaVencido = True + ContadorColumna += 1 + End If + + If e.Row.DBCampo("NomC5").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna5").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga5 + Contador += 1 + ContadorColumna += 1 + End If + + If e.Row.DBCampo("TC6").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + If Not e.Row.DBCampo("Orden") = "" Then + e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + End If + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15 + Contador += 1 + CargaColumnaVencido = True + ContadorColumna += 1 + End If + + If e.Row.DBCampo("NomC6").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna6").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga6 + Contador += 1 + ContadorColumna += 1 + End If + + If e.Row.DBCampo("TC7").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + If Not e.Row.DBCampo("Orden") = "" Then + e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + End If + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15 + Contador += 1 + CargaColumnaVencido = True + ContadorColumna += 1 + End If + + If e.Row.DBCampo("NomC7").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna7").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga7 + Contador += 1 + ContadorColumna += 1 + End If + + If e.Row.DBCampo("TC8").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + If Not e.Row.DBCampo("Orden") = "" Then + e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + End If + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15 + Contador += 1 + CargaColumnaVencido = True + ContadorColumna += 1 + End If + + If e.Row.DBCampo("NomC8").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna8").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga8 + Contador += 1 + ContadorColumna += 1 + End If + + If e.Row.DBCampo("TC9").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + If Not e.Row.DBCampo("Orden") = "" Then + e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + End If + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15 + Contador += 1 + CargaColumnaVencido = True + ContadorColumna += 1 + End If + + If e.Row.DBCampo("NomC9").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna9").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga9 + Contador += 1 + ContadorColumna += 1 + End If + + If e.Row.DBCampo("TC10").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + If Not e.Row.DBCampo("Orden") = "" Then + e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + End If + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15 + Contador += 1 + CargaColumnaVencido = True + ContadorColumna += 1 + End If + + If e.Row.DBCampo("NomC10").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna10").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10 + Contador += 1 + ContadorColumna += 1 + End If + + If e.Row.DBCampo("TC11").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + If Not e.Row.DBCampo("Orden") = "" Then + e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + End If + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15 + Contador += 1 + CargaColumnaVencido = True + ContadorColumna += 1 + End If + + If e.Row.DBCampo("NomC11").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna11").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga11 + Contador += 1 + ContadorColumna += 1 + End If + + If e.Row.DBCampo("TC12").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + If Not e.Row.DBCampo("Orden") = "" Then + e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + End If + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15 + Contador += 1 + CargaColumnaVencido = True + ContadorColumna += 1 + End If + + If e.Row.DBCampo("NomC12").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna12").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga12 + Contador += 1 + ContadorColumna += 1 + End If + + If e.Row.DBCampo("TC13").ToString.ToEntero = 2 And Not CargaColumnaVencido Then + If Not e.Row.DBCampo("Orden") = "" Then + e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + End If + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15 + Contador += 1 + CargaColumnaVencido = True + ContadorColumna += 1 + End If + + If e.Row.DBCampo("NomC12").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna13").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga13 + Contador += 1 + ContadorColumna += 1 + End If + + + + + e.Row.FCHyperLink("LtlPorVencer").NavigateUrl = Liga16 + e.Row.FCHyperLink("LtlVentas").NavigateUrl = Liga14 + e.Row.FCHyperLink("LtlSaldo1").NavigateUrl = LigaTot + e.Row.FCHyperLink("HplSaldo").NavigateUrl = LigaTot + + If e.Row.FCHyperLink("HplSaldo").Text = "0.00" Then e.Row.FCHyperLink("HplSaldo").Text = "-" + If e.Row.FCHyperLink("HplColumna1").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna1").Text = "-" + If e.Row.FCHyperLink("HplColumna2").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna2").Text = "-" + If e.Row.FCHyperLink("HplColumna3").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna3").Text = "-" + If e.Row.FCHyperLink("HplColumna4").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna4").Text = "-" + If e.Row.FCHyperLink("HplColumna5").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna5").Text = "-" + If e.Row.FCHyperLink("HplColumna6").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna6").Text = "-" + If e.Row.FCHyperLink("HplColumna7").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna7").Text = "-" + If e.Row.FCHyperLink("HplColumna8").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna8").Text = "-" + If e.Row.FCHyperLink("HplColumna9").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna9").Text = "-" + If e.Row.FCHyperLink("HplColumna10").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna10").Text = "-" + If e.Row.FCHyperLink("HplColumna11").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna11").Text = "-" + If e.Row.FCHyperLink("HplColumna12").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna12").Text = "-" + If e.Row.FCHyperLink("HplColumna13").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna13").Text = "-" + If e.Row.FCHyperLink("HplColumna14").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna14").Text = "-" + + If e.Row.FCHyperLink("LtlPorVencer").Text = "0.00" Then e.Row.FCHyperLink("LtlPorVencer").Text = "-" + If e.Row.FCHyperLink("LtlVentas").Text = "0.00" Then e.Row.FCHyperLink("LtlVentas").Text = "-" + If e.Row.FCHyperLink("LtlSaldo1").Text = "0.00" Then e.Row.FCHyperLink("LtlSaldo1").Text = "-" + + e.Row.Cells(2).Width = Unit.Pixel(75) + e.Row.Cells(3).Width = Unit.Pixel(75) + e.Row.Cells(4).Width = Unit.Pixel(75) + e.Row.Cells(5).Width = Unit.Pixel(75) + e.Row.Cells(6).Width = Unit.Pixel(75) + e.Row.Cells(7).Width = Unit.Pixel(75) + e.Row.Cells(8).Width = Unit.Pixel(75) + e.Row.Cells(9).Width = Unit.Pixel(75) + e.Row.Cells(10).Width = Unit.Pixel(75) + e.Row.Cells(11).Width = Unit.Pixel(75) + e.Row.Cells(12).Width = Unit.Pixel(75) + e.Row.Cells(13).Width = Unit.Pixel(75) + e.Row.Cells(14).Width = Unit.Pixel(75) + e.Row.Cells(15).Width = Unit.Pixel(75) + e.Row.Cells(16).Width = Unit.Pixel(75) + End If - - If e.Row.DBCampo("NomC8").ToString <> "" Then - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna8").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga8 - Contador += 1 - ContadorColumna += 1 - End If - - - e.Row.FCHyperLink("LtlPorVencer").NavigateUrl = Liga11 - e.Row.FCHyperLink("LtlVentas").NavigateUrl = Liga9 - e.Row.FCHyperLink("LtlSaldo1").NavigateUrl = LigaTot - e.Row.FCHyperLink("HplSaldo").NavigateUrl = LigaTot - - If e.Row.FCHyperLink("HplSaldo").Text = "0.00" Then e.Row.FCHyperLink("HplSaldo").Text = "-" - If e.Row.FCHyperLink("HplColumna1").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna1").Text = "-" - If e.Row.FCHyperLink("HplColumna2").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna2").Text = "-" - If e.Row.FCHyperLink("HplColumna3").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna3").Text = "-" - If e.Row.FCHyperLink("HplColumna4").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna4").Text = "-" - If e.Row.FCHyperLink("HplColumna5").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna5").Text = "-" - If e.Row.FCHyperLink("HplColumna6").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna6").Text = "-" - If e.Row.FCHyperLink("HplColumna7").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna7").Text = "-" - If e.Row.FCHyperLink("HplColumna8").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna8").Text = "-" - If e.Row.FCHyperLink("HplColumna9").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna9").Text = "-" - If e.Row.FCHyperLink("LtlPorVencer").Text = "0.00" Then e.Row.FCHyperLink("LtlPorVencer").Text = "-" - If e.Row.FCHyperLink("LtlVentas").Text = "0.00" Then e.Row.FCHyperLink("LtlVentas").Text = "-" - If e.Row.FCHyperLink("LtlSaldo1").Text = "0.00" Then e.Row.FCHyperLink("LtlSaldo1").Text = "-" - - e.Row.Cells(2).Width = Unit.Pixel(75) - e.Row.Cells(3).Width = Unit.Pixel(75) - e.Row.Cells(4).Width = Unit.Pixel(75) - e.Row.Cells(5).Width = Unit.Pixel(75) - e.Row.Cells(6).Width = Unit.Pixel(75) - e.Row.Cells(7).Width = Unit.Pixel(75) - e.Row.Cells(8).Width = Unit.Pixel(75) - e.Row.Cells(9).Width = Unit.Pixel(75) - e.Row.Cells(10).Width = Unit.Pixel(75) - e.Row.Cells(11).Width = Unit.Pixel(75) - End If End Sub @@ -867,8 +1298,8 @@ Partial Class Compras_RepCxP Exit Sub End If - If DtPersonalizarRango.Rows.Count > 8 Then - Alert("Tiene que haber un maximo de 8 columnas.", TipoMensaje.MsgAdvertencia) + If DtPersonalizarRango.Rows.Count > 13 Then + Alert("Tiene que haber un maximo de 13 columnas.", TipoMensaje.MsgAdvertencia) Exit Sub End If diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 9572faf35..6993700c2 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -860,13 +860,28 @@ Partial Class ContabilidadC_RegPrePolizaS Next End If + 'validaciones + + If Not (TotalCargos = TotalAbonos AndAlso (GvPrePoliza.Rows.Count > 0 Or GvMov.Rows.Count > 0)) Then Alert($"La suma de los movimientos no son iguales ({TotalCargos}-{TotalAbonos})", TipoMensaje.MsgAdvertencia) Exit Sub - End If + End If + + For Each Gvr As GridViewRow In GvMov.Rows + If Gvr.DataKey("CveConceptoContable") = "30" AndAlso Gvr.FCTextBox("TxtCargo").Text.ToDecimal <> 0 Then 'si es movimietno de bancos, y tiene cantidad, deben de especificarse los datos del IE + If Gvr.DataKey("ContadoCuenta").ToEntero = 0 OrElse Gvr.DataKey("ContadoTipoTransaccion").ToEntero = 0 Then + Alert($"La suma de los movimientos no son iguales ({TotalCargos}-{TotalAbonos})", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If + + Next + + + 'terminan validaciones If CvePrePoliza > 0 Then - 'Nuevo Modulo Charlie ActualizarPrePoliza() Else Dim MensajeAlert = New StringBuilder @@ -1966,43 +1981,43 @@ Partial Class ContabilidadC_RegPrePolizaS If Not ErrorArchivo Then - If Not dt.Columns(0).ColumnName = "ConceptoAdministrativo" Then + If Not dt.Columns(0).ColumnName.ToUpper = "CONCEPTOADMINISTRATIVO" Then Alert("El nombre de la primera columna debe ser 'ConceptoAdmin'. Favor de corregirlo", TipoMensaje.MsgError) Exit Sub End If - If Not dt.Columns(1).ColumnName = "Cuenta" Then + If Not dt.Columns(1).ColumnName.ToUpper = "CUENTA" Then Alert("El nombre de la segunda columna debe ser 'Cuenta'.Favor de corregirlo", TipoMensaje.MsgError) Exit Sub End If - If Not dt.Columns(2).ColumnName = "NombreCuenta" Then + If Not dt.Columns(2).ColumnName.ToUpper = "NOMBRECUENTA" Then Alert("El nombre de la tercera columna debe ser 'NombreCuenta'.Favor de corregirlo", TipoMensaje.MsgError) Exit Sub End If - If Not dt.Columns(3).ColumnName = "Cargo" Then + If Not dt.Columns(3).ColumnName.ToUpper = "CARGO" Then Alert("El nombre de la cuarta columna debe ser 'Cargo'. Favor de corregirlo", TipoMensaje.MsgError) Exit Sub End If - If Not dt.Columns(4).ColumnName = "Abono" Then + If Not dt.Columns(4).ColumnName.ToUpper = "ABONO" Then Alert("El nombre de la quinta columna debe ser 'Abono' .Favor de corregirlo", TipoMensaje.MsgError) Exit Sub End If - If Not dt.Columns(5).ColumnName = "Referencia" Then + If Not dt.Columns(5).ColumnName.ToUpper = "REFERENCIA" Then Alert("El nombre de la sexta columna debe ser 'Referencia'. Favor de corregirlo", TipoMensaje.MsgError) Exit Sub End If - If Not dt.Columns(6).ColumnName = "Concepto" Then + If Not dt.Columns(6).ColumnName.ToUpper = "CONCEPTO" Then Alert("El nombre de la séptima columna debe ser 'Concepto'.Favor de corregirlo", TipoMensaje.MsgError) Exit Sub End If - If Not dt.Columns(7).ColumnName = "SubProyecto" Then + If Not dt.Columns(7).ColumnName.ToUpper = "SUBPROYECTO" Then Alert("El nombre de la octava columna debe ser 'SubProyecto'. Favor de corregirlo", TipoMensaje.MsgError) Exit Sub End If - If Not dt.Columns(8).ColumnName = "Folio" Then + If Not dt.Columns(8).ColumnName.ToUpper = "FOLIO" Then Alert("El nombre de la novena columna debe ser 'Folio'.Favor de corregirlo", TipoMensaje.MsgError) Exit Sub End If - If Not dt.Columns(9).ColumnName = "TipoTransferencia" Then + If Not dt.Columns(9).ColumnName.ToUpper = "TIPOTRANSFERENCIA" Then Alert("El nombre de la decima columna debe ser 'TipoTransferencia'. Favor de corregirlo", TipoMensaje.MsgError) Exit Sub End If @@ -2052,7 +2067,6 @@ Partial Class ContabilidadC_RegPrePolizaS If objconta3.DtResultados.Rows.Count > 0 Then Dim rowcc As DataRow = objconta3.DtResultados.Rows(0) CveBancoCuenta = rowcc("CveBancoCuenta").ToString().ToEntero() - DdlCuenta.SelectedValue = CveBancoCuenta Else CveBancoCuenta = 0 End If @@ -2138,8 +2152,10 @@ Partial Class ContabilidadC_RegPrePolizaS dr("ContadoBeneficiario") = Beneficiario dr("ContadoObservaciones") = Observaciones - DtMovimientos.Rows.Add(dr) - DtMovimientos.AcceptChanges() + If Row("Cargo").ToString.ToDecimal <> 0 OrElse Row("Abono").ToString.ToDecimal Then + DtMovimientos.Rows.Add(dr) + DtMovimientos.AcceptChanges() + End If Next TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero @@ -2151,6 +2167,7 @@ Partial Class ContabilidadC_RegPrePolizaS Catch ex As Exception Alert("No se pudo cargar el excel", TipoMensaje.MsgAdvertencia) + GuardaLog(ex.Message) End Try ArregloCuentasFolios = Nothing End If diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index 2ba7351cd..e27cdb81e 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -25,7 +25,7 @@ + Style=" text-align: center;width:100%" GridLines="None"> diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb index 680266bcf..db401a85a 100644 --- a/Contabilidad2/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb @@ -123,12 +123,11 @@ Partial Class AC2_RepAnexoCatalogo If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then CveSubProyecto = Request("CveSubProyecto").ToString + DdlSubproyecto.SelectedValueExist(CveSubProyecto) End If - ErrorParametros = False - If Request("TP") IsNot Nothing AndAlso IsNumeric(Request("TP")) AndAlso Request("TP").ToEntero > 0 Then TipoReporte = Request("TP").ToEntero diff --git a/Contabilidad2/RepAnexoCatalogoSAT.aspx b/Contabilidad2/RepAnexoCatalogoSAT.aspx.exclude similarity index 100% rename from Contabilidad2/RepAnexoCatalogoSAT.aspx rename to Contabilidad2/RepAnexoCatalogoSAT.aspx.exclude diff --git a/Contabilidad2/RepAnexoCatalogoSAT.aspx.vb b/Contabilidad2/RepAnexoCatalogoSAT.aspx.vb.exclude similarity index 100% rename from Contabilidad2/RepAnexoCatalogoSAT.aspx.vb rename to Contabilidad2/RepAnexoCatalogoSAT.aspx.vb.exclude diff --git a/Contabilidad2/RepBalanceGeneral.aspx b/Contabilidad2/RepBalanceGeneral.aspx.exclude similarity index 100% rename from Contabilidad2/RepBalanceGeneral.aspx rename to Contabilidad2/RepBalanceGeneral.aspx.exclude diff --git a/Contabilidad2/RepBalanceGeneral.aspx.vb b/Contabilidad2/RepBalanceGeneral.aspx.vb.exclude similarity index 100% rename from Contabilidad2/RepBalanceGeneral.aspx.vb rename to Contabilidad2/RepBalanceGeneral.aspx.vb.exclude diff --git a/Contabilidad2/RepBalanzaComprobacionSAT.aspx b/Contabilidad2/RepBalanzaComprobacionSAT.aspx.exclude similarity index 100% rename from Contabilidad2/RepBalanzaComprobacionSAT.aspx rename to Contabilidad2/RepBalanzaComprobacionSAT.aspx.exclude diff --git a/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb b/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb.exclude similarity index 100% rename from Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb rename to Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb.exclude diff --git a/Contabilidad2/RepEstadoActividadesSAT.aspx b/Contabilidad2/RepEstadoActividadesSAT.aspx.exclude similarity index 100% rename from Contabilidad2/RepEstadoActividadesSAT.aspx rename to Contabilidad2/RepEstadoActividadesSAT.aspx.exclude diff --git a/Contabilidad2/RepEstadoActividadesSAT.aspx.vb b/Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude similarity index 100% rename from Contabilidad2/RepEstadoActividadesSAT.aspx.vb rename to Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude diff --git a/Contabilidad2/RepEstadoResultadosHorizontal - Copy.aspx b/Contabilidad2/RepEstadoResultadosHorizontal - Copy.aspx deleted file mode 100644 index 32123d23c..000000000 --- a/Contabilidad2/RepEstadoResultadosHorizontal - Copy.aspx +++ /dev/null @@ -1,1593 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEstadoResultadosHorizontal - Copy.aspx.vb" Inherits="Contabilidad_RepEstadoResultadosHorizontal" %> - - - - - - - - - - - - - -
  • - Generar Excel -
    • -
  • - Graficar -
    • -     - - - - -
    -
    -
    - -
    -
    -
    -
      - - -
      - - -
      - - -
      - - -
      - - -
      - - - - - - - - - - - - - - -
      - - - -
      - - -
      - - -
      - - - - - -
      - - -
      - - NO - Trimestre - Cuatrimestre - -
      - -
    -
    -
    -
    -
    -     -     - - - - - - - - - - -
    - - - - - - - - - - - - - - - - - - <%-- --%> - - - - - - - - <%-- --%> - - - - - - -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     -     -
    - - - - - - - - - - - -
    -

    Resultados del Ejercicio:

    -     		- - - -
    -     -     - -     -     - - - - - - - - - - -
    - - - - - - - - - - <%----%> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <%-- - - - - - --%> - - <%----%> - - - - - - - - - -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <%-- - - - - - --%> - - <%-- --%> - - - - - - - - - - -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     -     -
    - - - - - - - - - - - - - - - - - - - - - -     -     - - - - - - - - -
    - - - - - - - - - - <%----%> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -
    - - - - - - - - <%----%> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <%-- - - - - - --%> - - <%-- --%> - - - - - - - - - - -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <%-- - - - - - --%> - <%-- --%> - - - - - - - - - - - -     -     -
    - - - - - - - - - - - - - - - -     -     - - - -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <%-- - - - - - --%> - - <%----%> - - - - - - - <%----%> - - -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <%-- - - - - - --%> - - <%-- --%> - - - - - - - - - - -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     -     -
    - - - - - - - -     -     -     - - - - - - - -     - - - - - - - - - - - diff --git a/Contabilidad2/RepEstadoResultadosHorizontal - Copy.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal - Copy.aspx.vb deleted file mode 100644 index bb9bbfec4..000000000 --- a/Contabilidad2/RepEstadoResultadosHorizontal - Copy.aspx.vb +++ /dev/null @@ -1,2295 +0,0 @@ -Option Explicit On -Option Strict On - -Imports System.Data -Imports System.Drawing -Imports System.IO -Imports Extensiones -Imports GemBox.Spreadsheet -Imports Microsoft.Reporting.WebForms - -Partial Class Contabilidad_RepEstadoResultadosHorizontal - Inherits ClsPaginas - -#Region "PROPIEDADES" - - - Private Property DtDatosMes As DataTable - Get - DtDatosMes = DirectCast(ViewState("DtDatosMes"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtDatosMes") = value - End Set - End Property - - Private Property DtIngresosMes As DataTable - Get - DtIngresosMes = DirectCast(ViewState("DtIngresosMes"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtIngresosMes") = value - End Set - End Property - Private Property DtGastosMes As DataTable - Get - DtGastosMes = DirectCast(ViewState("DtGastosMes"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtGastosMes") = value - End Set - End Property - Private Property TotalActualMes As Double - Get - TotalActualMes = ViewState("TotalActualMes").ToString.ToDouble - End Get - Set(value As Double) - ViewState("TotalActualMes") = value - End Set - End Property - Private Property TotalAnteriorMes As Double - Get - TotalAnteriorMes = ViewState("TotalAnteriorMes").ToString.ToDouble - End Get - Set(value As Double) - ViewState("TotalAnteriorMes") = value - End Set - End Property - Private Property FechaIMes As String - Get - Return ViewState("FechaIMes").ToString - End Get - Set(value As String) - ViewState("FechaIMes") = value - End Set - End Property - Private Property FechaFMes As String - Get - Return ViewState("FechaFMes").ToString - End Get - Set(value As String) - ViewState("FechaFMes") = value - End Set - End Property - - Private Property listacolores As List(Of String) - Get - Return DirectCast(ViewState("listacolores"), List(Of String)) - End Get - Set(value As List(Of String)) - ViewState("listacolores") = value - End Set - End Property - - Private Property listaCampos As List(Of String()) - Get - Return DirectCast(ViewState("listaCampos"), List(Of String())) - End Get - Set(value As List(Of String())) - ViewState("listaCampos") = value - End Set - End Property - Private Property listaCamposanios As List(Of String()) - Get - Return DirectCast(ViewState("listaCamposanios"), List(Of String())) - End Get - Set(value As List(Of String())) - ViewState("listaCamposanios") = value - End Set - End Property - Private Property listaCamposaniosGastos As List(Of String()) - Get - Return DirectCast(ViewState("listaCamposaniosGastos"), List(Of String())) - End Get - Set(value As List(Of String())) - ViewState("listaCamposaniosGastos") = value - End Set - End Property - Private Property listaCamposaniosTotal As List(Of String()) - Get - Return DirectCast(ViewState("listaCamposaniosTotal"), List(Of String())) - End Get - Set(value As List(Of String())) - ViewState("listaCamposaniosTotal") = value - End Set - End Property - - 'Private Property ReporteComplementario As Boolean - ' Get - ' ReporteComplementario = CBool(ViewState("ReporteComplementario").ToString) - ' End Get - ' Set(value As Boolean) - ' ViewState("ReporteComplementario") = value - ' End Set - 'End Property - -#End Region - - -#Region " M E S H O R I Z O N T A L " - - Private Property DtDatosMesH As DataTable - Get - DtDatosMesH = DirectCast(ViewState("DtDatosMesH"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtDatosMesH") = value - End Set - End Property - - Private Property DtIngresosMesH As DataTable - Get - DtIngresosMesH = DirectCast(ViewState("DtIngresosMesH"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtIngresosMesH") = value - End Set - End Property - - Private Property DtGastosMesH As DataTable - Get - DtGastosMesH = DirectCast(ViewState("DtGastosMesH"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtGastosMesH") = value - End Set - End Property - - Private Property DTTotalesMesH As DataTable - Get - DTTotalesMesH = DirectCast(ViewState("DTTotalesMesH"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DTTotalesMesH") = value - End Set - End Property - -#End Region - - -#Region " A N U A L H O R I Z O N T A L " - - Private Property DtDatosAnualH As DataTable - Get - DtDatosAnualH = DirectCast(ViewState("DtDatosAnualH"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtDatosAnualH") = value - End Set - End Property - - Private Property DtIngresosAnualH As DataTable - Get - DtIngresosAnualH = DirectCast(ViewState("DtIngresosAnualH"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtIngresosAnualH") = value - End Set - End Property - - Private Property DtGastosAnualH As DataTable - Get - DtGastosAnualH = DirectCast(ViewState("DtGastosAnualH"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtGastosAnualH") = value - End Set - End Property - - Private Property DTTotalesAnualH As DataTable - Get - DTTotalesAnualH = DirectCast(ViewState("DTTotalesAnualH"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DTTotalesAnualH") = value - End Set - End Property - - - Private Property CountDinamicoAnual As Integer - - Get - If ViewState("CountDinamicoAnual") Is Nothing Then - Return 0 - Else - Return ViewState("CountDinamicoAnual").ToString.ToEntero - End If - - End Get - Set(value As Integer) - ViewState("CountDinamicoAnual") = value - End Set - End Property - -#End Region - -#Region " S U B P R O Y E C T O H O R I Z O N T A L " - - Private Property DtDatosSubProyectoH As DataTable - Get - DtDatosSubProyectoH = DirectCast(ViewState("DtDatosSubProyectoH"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtDatosSubProyectoH") = value - End Set - End Property - - Private Property DtIngresosSubProyectoH As DataTable - Get - DtIngresosSubProyectoH = DirectCast(ViewState("DtIngresosSubProyectoH"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtIngresosSubProyectoH") = value - End Set - End Property - - Private Property DtGastosSubProyectoH As DataTable - Get - DtGastosSubProyectoH = DirectCast(ViewState("DtGastosSubProyectoH"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtGastosSubProyectoH") = value - End Set - End Property - - Private Property DTTotalesSubProyectoH As DataTable - Get - DTTotalesSubProyectoH = DirectCast(ViewState("DTTotalesSubProyectoH"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DTTotalesSubProyectoH") = value - End Set - End Property - - Private Property DTSubProyectosCabecerasH As DataTable - - Get - DTSubProyectosCabecerasH = DirectCast(ViewState("DTSubProyectosCabecerasH"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DTSubProyectosCabecerasH") = value - End Set - - End Property - - - Private Property CountDinamicoSubProyecto As Integer - - Get - If ViewState("CountDinamicoSubProyecto") Is Nothing Then - Return 0 - Else - Return ViewState("CountDinamicoSubProyecto").ToString.ToEntero - End If - - End Get - Set(value As Integer) - ViewState("CountDinamicoSubProyecto") = 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 - listacolores = New List(Of String) - listaCampos = New List(Of String()) - listaCamposanios = New List(Of String()) - listaCamposaniosGastos = New List(Of String()) - listaCamposaniosTotal = New List(Of String()) - listacolores.Add("#FF0F00") - listacolores.Add("#FF6600") - listacolores.Add("#F8FF01") - listacolores.Add("#04D215") - listacolores.Add("#2A0CD0") - listacolores.Add("#8A0CCF") - listacolores.Add("#CD0D74") - listacolores.Add("#754DEB") - listacolores.Add("#DDDDDD") - listacolores.Add("#999999") - listacolores.Add("#000000") - listacolores.Add("#FF0F00") - - TotalActualMes = 0 - TotalAnteriorMes = 0 - - CargaEjercicios() - - CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto) - TabSubProyecto.HeaderText = LblSubProyecto.Text & " " - - - - DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual) - ValidaEjercicios() - - End If - End Sub - - Protected Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs) - - If TAB.ActiveTabIndex = 0 Then - LiSubProyectoDdl.Visible = True - LiSubProyectoLbl.Visible = True - - LiEjercicioDdl.Visible = True - LiEjercicioLbl.Visible = True - - LiEjercicioDdl2.Visible = False - LiEjercicioLbl2.Visible = False - - LiPeriodoDdl.Visible = True - LiPeriodoLbl.Visible = True - - LiDivisorDdl.Visible = True - LiDivisorLbl.Visible = True - - LblTri.Visible = False - DVTri.Visible = False - End If - - If TAB.ActiveTabIndex = 1 Then - - LiSubProyectoDdl.Visible = True - LiSubProyectoLbl.Visible = True - - LiEjercicioDdl.Visible = True - LiEjercicioLbl.Visible = True - - LiEjercicioDdl2.Visible = False - LiEjercicioLbl2.Visible = False - - LiPeriodoDdl.Visible = True - LiPeriodoLbl.Visible = True - - LiDivisorDdl.Visible = True - LiDivisorLbl.Visible = True - - DdlPeriodo.SelectedValueExist(12) - - LblTri.Visible = True - DVTri.Visible = True - - - End If - - If TAB.ActiveTabIndex = 2 Then - - ValidaEjercicios() - - LiSubProyectoDdl.Visible = True - LiSubProyectoLbl.Visible = True - - LiEjercicioDdl.Visible = True - LiEjercicioLbl.Visible = True - - LiEjercicioDdl2.Visible = True - LiEjercicioLbl2.Visible = True - - LiPeriodoDdl.Visible = True - LiPeriodoLbl.Visible = True - - LiDivisorDdl.Visible = True - LiDivisorLbl.Visible = True - - LblTri.Visible = False - DVTri.Visible = False - - End If - - If TAB.ActiveTabIndex = 3 Then - LiSubProyectoDdl.Visible = True - LiSubProyectoLbl.Visible = True - - LiEjercicioDdl.Visible = True - LiEjercicioLbl.Visible = True - - LiEjercicioDdl2.Visible = False - LiEjercicioLbl2.Visible = False - - LiPeriodoDdl.Visible = True - LiPeriodoLbl.Visible = True - - LiDivisorDdl.Visible = True - LiDivisorLbl.Visible = True - - LblTri.Visible = False - DVTri.Visible = False - - End If - - UpFiltros.Update() - End Sub - - - Protected Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs) - ValidaEjercicios() - End Sub - - Protected Sub DdlEjercicio2_SelectedIndexChanged(sender As Object, e As EventArgs) - ValidaEjercicios() - End Sub - - Private Sub ValidaEjercicios() - - - Dim EInicio As Integer = DdlEjercicio.SelectedValue.ToEntero - - - If EInicio > DdlEjercicio2.SelectedValue.ToEntero Then - - If DdlEjercicio2.Items.Count > 0 Then - DdlEjercicio2.SelectedIndex = DdlEjercicio2.Items.Count - 1 - End If - - Dim Fejerciosio As Integer = DdlEjercicio2.SelectedValue.ToEntero - - If Not EInicio + 1 > Fejerciosio Then - DdlEjercicio2.SelectedValueExist(EInicio + 1) - End If - - End If - - - UpFiltros.Update() - End Sub - - Private Sub CargaEjercicios() - 'Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa) - Dim ClsConta As New ClsContabilidad - If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then - DdlEjercicio.DataSource = ClsConta.DtResultados - DdlEjercicio2.DataSource = ClsConta.DtResultados - Else - DdlEjercicio.DataSource = Nothing - DdlEjercicio2.DataSource = Nothing - End If - ClsConta.Dispose() - DdlEjercicio.DataBind() - DdlEjercicio2.DataBind() - - DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString) - If DdlEjercicio.Items.Count = 0 Then - DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString)) - End If - DdlPeriodo.SelectedValue = Now.Month.ToString - End Sub - - Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) - TotalActualMes = 0 - TotalAnteriorMes = 0 - - 'Mes - If TAB.ActiveTabIndex = 0 Then - CargaDatosMes() - End If - - 'MES HORIZONTAL - If TAB.ActiveTabIndex = 1 Then - CargaDatosMesH() - End If - - 'AÑO HORIZONTAL - If TAB.ActiveTabIndex = 2 Then - - If DdlEjercicio.SelectedValue.ToEntero > DdlEjercicio2.SelectedValue.ToEntero Then - Alert("El ejercicio inicio no debe ser mayor al ejercicio fin.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - CargaDatosAnualH() - End If - - 'SUBPROYECTO - If TAB.ActiveTabIndex = 3 Then - CargaDatosSubProyectoH() - End If - - - - - End Sub - - -#Region "MES" - - - - - - Private Sub CargaDatosMes() - - - FechaIMes = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) - FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaIMes))).ToString("dd/MM/yyyy") - 'Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero 'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero, 1) - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero - - 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then - DtDatosMes = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") - Else - DtDatosMes = Nothing - Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError) - End If - ObjConta.Dispose() - - If DtDatosMes IsNot Nothing Then - CargaGridsMes() - SumaTotales() - End If - - End Sub - Private Sub CargaGridsMes() - DtIngresosMes = DtDatosMes.FiltraParametros("Tipo ='H' ") - DtGastosMes = DtDatosMes.FiltraParametros("Tipo ='G' ") - Dim Row As DataRow = DtIngresosMes.NewRow - - - Dim TotalActual = 0.0, TotalAnterior = 0.0 - If DtIngresosMes.Rows.Count > 0 Then - - For Each dr As DataRow In DtIngresosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble - Next - - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = TotalActual.ToString - Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = "100.00" - Row.Item("CtaMayor") = -1 - DtIngresosMes.Rows.Add(Row) - Else - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" - Row.Item("CtaMayor") = -1 - DtIngresosMes.Rows.Add(Row) - End If - - Dim T1 = TotalActual, T2 = TotalAnterior - - TotalActual = 0 - TotalAnterior = 0 - - Row = DtGastosMes.NewRow - If DtGastosMes.Rows.Count > 0 Then - - For Each dr As DataRow In DtGastosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble - Next - - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = TotalActual - Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero - Row.Item("CtaMayor") = -1 - DtGastosMes.Rows.Add(Row) - Else - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" - Row.Item("CtaMayor") = -1 - DtGastosMes.Rows.Add(Row) - End If - - - GvIngresosMes.DataSource = DtIngresosMes - GvIngresosMes.DataBind() - - GvGastosMes.DataSource = DtGastosMes - GvGastosMes.DataBind() - - UpDatos.Update() - - End Sub - - - - Private Sub SumaTotales() - 'Llena Lb´s Totales - - - If DdlDivisor.SelectedValue.ToEntero > 1 Then - LbTotalActual.Text = TotalActualMes.ToString("###,###,##0") - LbTotalAnterior.Text = TotalAnteriorMes.ToString("###,###,##0") - Else - LbTotalActual.Text = TotalActualMes.ToString("###,###,##0.00") - LbTotalAnterior.Text = TotalAnteriorMes.ToString("###,###,##0.00") - End If - - - - LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black) - - LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black) - - - End Sub - -#Region "GV´S ROW DATA BOUND" - - Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs) - - If e.Row.RowType = DataControlRowType.DataRow Then - - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White - e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - 'e.Row.CssClass = "SubTotales3" - e.Row.ControlStyle.Font.Bold = True - End If - - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then - - e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) - - - If DdlDivisor.SelectedValue.ToEntero > 1 Then - e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero.ToString("###,###,##0") - e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero.ToString("###,###,##0").ToString - Else - e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString - End If - - 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("ImporteAcumulado").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red - End If - End If - End Sub - - Protected Sub GvGastos_RowDataBound(sender As Object, e As GridViewRowEventArgs) - If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White - e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - 'e.Row.CssClass = "SubTotales" - e.Row.ControlStyle.Font.Bold = True - End If - - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then - e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) - End If - - If DdlDivisor.SelectedValue.ToEntero > 1 Then - e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero.ToString("###,###,##0") - e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero.ToString("###,###,##0").ToString - Else - e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString - 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("ImporteAcumulado").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red - End If - End If - End Sub - -#End Region - - - - -#End Region - - - -#Region "M E S H O R I Z O N T A L" - - Private Sub CargaDatosMesH() - - - FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" - Dim FechaFin As Date = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}".ToDate - FechaFMes = $"{FechaFin.LastDayOfMonth.Day.ToString("00")}/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}" - - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero - - 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then - DtDatosMesH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") - Else - DtDatosMesH = Nothing - Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError) - End If - ObjConta.Dispose() - - If DtDatosMesH IsNot Nothing Then - CargaGridsMesH() - Else - - End If - - End Sub - - Private Sub CargaGridsMesH() - - DtIngresosMesH = DtDatosMesH.FiltraParametros("Tipo ='H' ") - DtGastosMesH = DtDatosMesH.FiltraParametros("Tipo ='G' ") - DTTotalesMesH = DtDatosMesH.Clone() - - Dim Row As DataRow = DtIngresosMesH.NewRow - - Dim TotalActual = 0.0, TotalAnterior = 0.0 - - If DtIngresosMesH.Rows.Count > 0 Then - - For Each dr As DataRow In DtIngresosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble - Next - - Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)") - Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)") - Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)") - Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4)") - Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)") - Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4)") - Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4)") - Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)") - Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)") - Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)") - Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)") - Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)") - - Row.Item("Tri1") = DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)") - Row.Item("Tri2") = DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)") - Row.Item("Tri3") = DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)") - Row.Item("Tri4") = DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)") - - Row.Item("Cua1") = DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)") - Row.Item("Cua2") = DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)") - Row.Item("Cua3") = DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)") - - - Row.Item("Nombre") = "TOTAL INGRESOS" - Row.Item("ImporteActual") = TotalActual.ToString - Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = "100.00" - Row.Item("CtaMayor") = -1 - - DtIngresosMesH.Rows.Add(Row) - Else - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" - Row.Item("CtaMayor") = -1 - DtIngresosMesH.Rows.Add(Row) - End If - - Dim T1 = TotalActual, T2 = TotalAnterior - - TotalActual = 0 - TotalAnterior = 0 - - Row = DtGastosMesH.NewRow - If DtGastosMesH.Rows.Count > 0 Then - - For Each dr As DataRow In DtGastosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble - Next - - - Row.Item("Enero") = DtGastosMesH.SUM("Enero", "NOT CtaMayor in (3,4)") - Row.Item("Febrero") = DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)") - Row.Item("Marzo") = DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)") - Row.Item("Abril") = DtGastosMesH.SUM("Abril", "NOT CtaMayor in (3,4)") - Row.Item("Mayo") = DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)") - Row.Item("Junio") = DtGastosMesH.SUM("Junio", "NOT CtaMayor in (3,4)") - Row.Item("Julio") = DtGastosMesH.SUM("Julio", "NOT CtaMayor in (3,4)") - Row.Item("Agosto") = DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)") - Row.Item("Septiembre") = DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)") - Row.Item("Octubre") = DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)") - Row.Item("Noviembre") = DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)") - Row.Item("Diciembre") = DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)") - - Row.Item("Tri1") = DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)") - Row.Item("Tri2") = DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)") - Row.Item("Tri3") = DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)") - Row.Item("Tri4") = DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)") - - Row.Item("Cua1") = DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)") - Row.Item("Cua2") = DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)") - Row.Item("Cua3") = DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)") - - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = TotalActual - Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero - Row.Item("CtaMayor") = -1 - DtGastosMesH.Rows.Add(Row) - Else - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" - Row.Item("CtaMayor") = -1 - DtGastosMesH.Rows.Add(Row) - End If - - If DtIngresosMesH.Rows.Count > 0 Then - - Row = DTTotalesMesH.NewRow - - Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)") - Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") - Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") - Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)") - Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - - Row.Item("Tri1") = DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)") - Row.Item("Tri2") = DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)") - Row.Item("Tri3") = DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)") - Row.Item("Tri4") = DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)") - - Row.Item("Cua1") = DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)") - Row.Item("Cua2") = DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)") - Row.Item("Cua3") = DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") - - Row.Item("Nombre") = "Resultados del Ejercicio:" - 'Row.Item("ImporteActual") = TotalActual.ToString - 'Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = DtIngresosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") ' TotalAnterior.ToString - 'Row.Item("PorcentajeAcumulado") = "100.00" - 'Row.Item("CtaMayor") = -1 - - DTTotalesMesH.Rows.Add(Row) - - End If - - GvIngresosMesH.DataSource = DtIngresosMesH - GvIngresosMesH.DataBind() - - GvGastosMesH.DataSource = DtGastosMesH - GvGastosMesH.DataBind() - - GvTotalesMesH.DataSource = DTTotalesMesH - GvTotalesMesH.DataBind() - - - If DdlTri.SelectedValue.ToEntero = 0 Then 'ocultar trimestre cuatrimestre - - GvIngresosMesH.Columns(4).Visible = False - GvIngresosMesH.Columns(9).Visible = False - GvIngresosMesH.Columns(14).Visible = False - GvIngresosMesH.Columns(18).Visible = False - - GvGastosMesH.Columns(4).Visible = False - GvGastosMesH.Columns(9).Visible = False - GvGastosMesH.Columns(14).Visible = False - GvGastosMesH.Columns(18).Visible = False - - GvTotalesMesH.Columns(4).Visible = False - GvTotalesMesH.Columns(9).Visible = False - GvTotalesMesH.Columns(14).Visible = False - GvTotalesMesH.Columns(18).Visible = False - - GvIngresosMesH.Columns(6).Visible = False - GvIngresosMesH.Columns(12).Visible = False - GvIngresosMesH.Columns(19).Visible = False - - GvGastosMesH.Columns(6).Visible = False - GvGastosMesH.Columns(12).Visible = False - GvGastosMesH.Columns(19).Visible = False - - GvTotalesMesH.Columns(6).Visible = False - GvTotalesMesH.Columns(12).Visible = False - GvTotalesMesH.Columns(19).Visible = False - - - ElseIf DdlTri.SelectedValue.ToEntero = 1 Then 'Mostrar Trimestre - - - GvIngresosMesH.Columns(4).Visible = True - GvIngresosMesH.Columns(9).Visible = True - GvIngresosMesH.Columns(14).Visible = True - GvIngresosMesH.Columns(18).Visible = True - - GvGastosMesH.Columns(4).Visible = True - GvGastosMesH.Columns(9).Visible = True - GvGastosMesH.Columns(14).Visible = True - GvGastosMesH.Columns(18).Visible = True - - GvTotalesMesH.Columns(4).Visible = True - GvTotalesMesH.Columns(9).Visible = True - GvTotalesMesH.Columns(14).Visible = True - GvTotalesMesH.Columns(18).Visible = True - - GvIngresosMesH.Columns(6).Visible = False - GvIngresosMesH.Columns(12).Visible = False - GvIngresosMesH.Columns(19).Visible = False - - GvGastosMesH.Columns(6).Visible = False - GvGastosMesH.Columns(12).Visible = False - GvGastosMesH.Columns(19).Visible = False - - GvTotalesMesH.Columns(6).Visible = False - GvTotalesMesH.Columns(12).Visible = False - GvTotalesMesH.Columns(19).Visible = False - - ElseIf DdlTri.SelectedValue.ToEntero = 2 Then 'Mostrar Cuatrimestre - - GvIngresosMesH.Columns(4).Visible = False - GvIngresosMesH.Columns(9).Visible = False - GvIngresosMesH.Columns(14).Visible = False - GvIngresosMesH.Columns(18).Visible = False - - GvGastosMesH.Columns(4).Visible = False - GvGastosMesH.Columns(9).Visible = False - GvGastosMesH.Columns(14).Visible = False - GvGastosMesH.Columns(18).Visible = False - - GvTotalesMesH.Columns(4).Visible = False - GvTotalesMesH.Columns(9).Visible = False - GvTotalesMesH.Columns(14).Visible = False - GvTotalesMesH.Columns(18).Visible = False - - - GvIngresosMesH.Columns(6).Visible = True - GvIngresosMesH.Columns(12).Visible = True - GvIngresosMesH.Columns(19).Visible = True - - GvGastosMesH.Columns(6).Visible = True - GvGastosMesH.Columns(12).Visible = True - GvGastosMesH.Columns(19).Visible = True - - GvTotalesMesH.Columns(6).Visible = True - GvTotalesMesH.Columns(12).Visible = True - GvTotalesMesH.Columns(19).Visible = True - - End If - - - UpDatosMesH.Update() - - End Sub - - - Protected Sub GvIngresosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs) - - If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - e.Row.ControlStyle.Font.Bold = True - End If - - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then - - - 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1" - - e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}" - - e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - - e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - - e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - - - ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) - - e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" - - End If - - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Or e.Row.DBCampo("Nombre") = "TOTAL INGRESOS" Then - - If DdlDivisor.SelectedValue.ToEntero > 1 Then - - e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0") - Else - e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0.00") - End If - - End If - - setgrafica(e) - - - - - e.Row.FCHyperLink("HLEnero").ForeColor = If(e.Row.DataKey("Enero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLEnero").ForeColor) - e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor) - e.Row.FCHyperLink("HLMarzo").ForeColor = If(e.Row.DataKey("Marzo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMarzo").ForeColor) - e.Row.FCHyperLink("HLAbril").ForeColor = If(e.Row.DataKey("Abril").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor) - e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor) - e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor) - e.Row.FCHyperLink("HLJulio").ForeColor = If(e.Row.DataKey("Julio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJulio").ForeColor) - e.Row.FCHyperLink("HLAgosto").ForeColor = If(e.Row.DataKey("Agosto").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAgosto").ForeColor) - e.Row.FCHyperLink("HLSeptiembre").ForeColor = If(e.Row.DataKey("Septiembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLSeptiembre").ForeColor) - e.Row.FCHyperLink("HLOctubre").ForeColor = If(e.Row.DataKey("Octubre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLOctubre").ForeColor) - e.Row.FCHyperLink("HLNoviembre").ForeColor = If(e.Row.DataKey("Noviembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLNoviembre").ForeColor) - e.Row.FCHyperLink("HLDiciembre").ForeColor = If(e.Row.DataKey("Diciembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLDiciembre").ForeColor) - - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red - End If - - End If - - End Sub - - Protected Sub GvGastosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs) - If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White - e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - 'e.Row.CssClass = "SubTotales" - e.Row.ControlStyle.Font.Bold = True - End If - - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then - - Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero - - 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1" - e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}" - - e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - - e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - - e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) - - 'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" - - End If - - - - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Or e.Row.DBCampo("Nombre") = "TOTAL GASTOS" Then - - If DdlDivisor.SelectedValue.ToEntero > 1 Then - - 'Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,Noviembre,Diciembre,PorcentajeAcumulado - e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0") - - Else - e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0.00") - End If - End If - - - setgrafica(e) - - - e.Row.FCHyperLink("HLEnero").ForeColor = If(e.Row.DataKey("Enero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLEnero").ForeColor) - e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor) - e.Row.FCHyperLink("HLMarzo").ForeColor = If(e.Row.DataKey("Marzo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMarzo").ForeColor) - e.Row.FCHyperLink("HLAbril").ForeColor = If(e.Row.DataKey("Abril").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor) - e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor) - e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor) - e.Row.FCHyperLink("HLJulio").ForeColor = If(e.Row.DataKey("Julio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJulio").ForeColor) - e.Row.FCHyperLink("HLAgosto").ForeColor = If(e.Row.DataKey("Agosto").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAgosto").ForeColor) - e.Row.FCHyperLink("HLSeptiembre").ForeColor = If(e.Row.DataKey("Septiembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLSeptiembre").ForeColor) - e.Row.FCHyperLink("HLOctubre").ForeColor = If(e.Row.DataKey("Octubre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLOctubre").ForeColor) - e.Row.FCHyperLink("HLNoviembre").ForeColor = If(e.Row.DataKey("Noviembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLNoviembre").ForeColor) - e.Row.FCHyperLink("HLDiciembre").ForeColor = If(e.Row.DataKey("Diciembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLDiciembre").ForeColor) - - - - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red - End If - End If - End Sub - - Protected Sub GvTotalesMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs) - - If e.Row.RowType = DataControlRowType.Header Then - e.Row.Attributes.Add("style", "display:none") - End If - - If e.Row.RowType = DataControlRowType.DataRow Then - - e.Row.Attributes.Add("style", "Font-weight: bold") - - - If DdlDivisor.SelectedValue.ToEntero > 0 Then - - e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0") - e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0") - - Else - e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0.00") - End If - - setgrafica(e) - - e.Row.FCHyperLink("HLEnero").ForeColor = If(e.Row.DataKey("Enero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLEnero").ForeColor) - e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor) - e.Row.FCHyperLink("HLMarzo").ForeColor = If(e.Row.DataKey("Marzo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMarzo").ForeColor) - e.Row.FCHyperLink("HLAbril").ForeColor = If(e.Row.DataKey("Abril").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor) - e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor) - e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor) - e.Row.FCHyperLink("HLJulio").ForeColor = If(e.Row.DataKey("Julio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJulio").ForeColor) - e.Row.FCHyperLink("HLAgosto").ForeColor = If(e.Row.DataKey("Agosto").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAgosto").ForeColor) - e.Row.FCHyperLink("HLSeptiembre").ForeColor = If(e.Row.DataKey("Septiembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLSeptiembre").ForeColor) - e.Row.FCHyperLink("HLOctubre").ForeColor = If(e.Row.DataKey("Octubre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLOctubre").ForeColor) - e.Row.FCHyperLink("HLNoviembre").ForeColor = If(e.Row.DataKey("Noviembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLNoviembre").ForeColor) - e.Row.FCHyperLink("HLDiciembre").ForeColor = If(e.Row.DataKey("Diciembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLDiciembre").ForeColor) - - - End If - - End Sub - - Public Sub setgrafica(e As GridViewRowEventArgs) - - Dim lista As New List(Of Object) - lista.Add(New With {.Texto = "Enero", .Valor = e.Row.DataKey("Enero").ToDecimal(), .Color = "#FF0F00"}) - lista.Add(New With {.Texto = "Febrero", .Valor = e.Row.DataKey("Febrero").ToDecimal(), .Color = "#FF6600"}) - lista.Add(New With {.Texto = "Marzo", .Valor = e.Row.DataKey("Marzo").ToDecimal(), .Color = "#F8FF01"}) - lista.Add(New With {.Texto = "Abril", .Valor = e.Row.DataKey("Abril").ToDecimal(), .Color = "#04D215"}) - lista.Add(New With {.Texto = "Mayo", .Valor = e.Row.DataKey("Mayo").ToDecimal(), .Color = "#2A0CD0"}) - lista.Add(New With {.Texto = "Junio", .Valor = e.Row.DataKey("Junio").ToDecimal(), .Color = "#8A0CCF"}) - lista.Add(New With {.Texto = "Julio", .Valor = e.Row.DataKey("Julio").ToDecimal(), .Color = "#CD0D74"}) - lista.Add(New With {.Texto = "Agosto", .Valor = e.Row.DataKey("Agosto").ToDecimal(), .Color = "#754DEB"}) - lista.Add(New With {.Texto = "Septiembre", .Valor = e.Row.DataKey("Septiembre").ToDecimal(), .Color = "#DDDDDD"}) - lista.Add(New With {.Texto = "Octubre", .Valor = e.Row.DataKey("Octubre").ToDecimal(), .Color = "#999999"}) - lista.Add(New With {.Texto = "Noviembre", .Valor = e.Row.DataKey("Noviembre").ToDecimal(), .Color = "#000000"}) - lista.Add(New With {.Texto = "Diciembre", .Valor = e.Row.DataKey("Diciembre").ToDecimal(), .Color = "#FF0F00"}) - e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista)) - End Sub -#End Region - - - -#Region "Anual H O R I Z O N T A L" - - Private Sub CargaDatosAnualH() - - - FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" - FechaFMes = $"31/12/{DdlEjercicio2.SelectedValue}" - - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero - - 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero, Periodo:=DdlPeriodo.SelectedValue.ToEntero) Then - DtDatosAnualH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") - Else - DtDatosAnualH = Nothing - Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError) - End If - ObjConta.Dispose() - - If DtDatosAnualH IsNot Nothing Then - CargaGridsAnualH() - - End If - - End Sub - - Private Sub CargaGridsAnualH() - - DtIngresosAnualH = DtDatosAnualH.FiltraParametros("Tipo ='H' ") - DtGastosAnualH = DtDatosAnualH.FiltraParametros("Tipo ='G' ") - DTTotalesAnualH = DtDatosAnualH.Clone() - - Dim Row As DataRow = DtIngresosAnualH.NewRow - - Dim TotalActual = 0.0, TotalAnterior = 0.0 - - - Dim IndexData As Integer = 0 - Dim IndexGv As Integer = 1 - Dim IndexMax As Integer = 1 - - - Dim IDX_LIMPIAR As Integer = 1 - - For IDX_LIMPIAR = 1 To 25 - - GvIngresosAnualH.Columns(IDX_LIMPIAR).Visible = False - GvGastosAnualH.Columns(IDX_LIMPIAR).Visible = False - GvTotalesAnualH.Columns(IDX_LIMPIAR).Visible = False - Next - listaCamposanios.Clear() - listaCamposaniosGastos.Clear() - listaCamposaniosTotal.Clear() - - If DtIngresosAnualH.Rows.Count > 0 Then - - - - - For Each dCoumn As DataColumn In DtIngresosAnualH.Columns - - If IndexData >= 13 Then - - If dCoumn.ColumnName.ToEntero > 0 And dCoumn.ColumnName.ToEntero <= DdlEjercicio2.SelectedValue.ToEntero Then - - CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName - - - listaCamposanios.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()}) - - listaCamposaniosTotal.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()}) - 'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - 'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName - GvIngresosAnualH.Columns(IndexGv).Visible = True - - - CType(GvTotalesAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - CType(GvTotalesAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName - 'CType(GvTotalesAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - 'CType(GvTotalesAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName - GvTotalesAnualH.Columns(IndexGv).Visible = True - - IndexMax = IndexData - Else - GvIngresosAnualH.Columns(IndexGv).Visible = False - GvTotalesAnualH.Columns(IndexGv).Visible = False - End If - - - - IndexGv = IndexGv + 1 - End If - - IndexData = IndexData + 1 - - Next - - - For Each dr As DataRow In DtIngresosAnualH.FiltraParametros("NOT CtaMayor in (3,4)").Rows - - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble - - Next - - IndexData = 13 - For IndexData = 13 To IndexMax - Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") - Next - - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString - Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = "100.00" - Row.Item("CtaMayor") = -1 - Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico") - CountDinamicoAnual = DtGastosAnualH.MAX("CountDinamico").ToEntero - DtIngresosAnualH.Rows.Add(Row) - Else - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" - Row.Item("CtaMayor") = -1 - DtIngresosAnualH.Rows.Add(Row) - End If - - Dim T1 = TotalActual, T2 = TotalAnterior - - TotalActual = 0 - TotalAnterior = 0 - - Row = DtGastosAnualH.NewRow - - If DtGastosAnualH.Rows.Count > 0 Then - - - IndexData = 0 - IndexGv = 1 - IndexMax = 0 - - For Each dCoumn As DataColumn In DtGastosAnualH.Columns - - If IndexData >= 13 Then - - If dCoumn.ColumnName.ToEntero > 0 And dCoumn.ColumnName.ToEntero <= DdlEjercicio2.SelectedValue.ToEntero Then - 'HyperLinkField - - CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - CType(GvGastosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName - listaCamposaniosGastos.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()}) - - 'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFields = {"CveCuenta", "FechaInicial", "FechaFActual", "CveSubProyecto"} - 'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFormatString = "/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" - - 'CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - 'CType(GvGastosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName - - GvGastosAnualH.Columns(IndexGv).Visible = True - IndexMax = IndexData - Else - GvGastosAnualH.Columns(IndexGv).Visible = False - End If - - - - IndexGv = IndexGv + 1 - End If - - IndexData = IndexData + 1 - - Next - - - For Each dr As DataRow In DtGastosAnualH.FiltraParametros("Not CtaMayor In (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble - Next - - IndexData = 13 - For IndexData = 13 To IndexMax - - Row.Item(IndexData) = DtGastosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)") - - Next - - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = TotalActual - Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero - Row.Item("CtaMayor") = -1 - Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico") - DtGastosAnualH.Rows.Add(Row) - Else - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" - Row.Item("CtaMayor") = -1 - DtGastosAnualH.Rows.Add(Row) - End If - - If DtIngresosAnualH.Rows.Count > 0 Then - - Row = DTTotalesAnualH.NewRow - - - IndexData = 13 - For IndexData = 13 To IndexMax - Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - Next - - Row.Item("Nombre") = "Resultados del Ejercicio" - Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") - DtGastosAnualH.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") - - - DTTotalesAnualH.Rows.Add(Row) - - End If - - GvIngresosAnualH.DataSource = DtIngresosAnualH - GvIngresosAnualH.DataBind() - - GvGastosAnualH.DataSource = DtGastosAnualH - GvGastosAnualH.DataBind() - - GvTotalesAnualH.DataSource = DTTotalesAnualH - GvTotalesAnualH.DataBind() - - UpDatosAnualH.Update() - - End Sub - - - - Protected Sub GvIngresosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs) - If e.Row.RowType = DataControlRowType.DataRow Then - setgraficaCCAnual(e, listaCamposanios) - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White - e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - 'e.Row.CssClass = "SubTotales3" - e.Row.ControlStyle.Font.Bold = True - End If - - - Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero - Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero - - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then - - e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" - - Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero - Dim IndiceInicio As Integer = 1 - Dim IndiceMax As Integer = 1 + CountDinamico - - For IndiceInicio = 1 To IndiceMax - Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField - Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal - e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" - 'e.Row.Cells(IndiceInicio).ForeColor = If(Importe < 0, Drawing.Color.Red, e.Row.Cells(IndiceInicio).ForeColor) - Next IndiceInicio - - 'e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}" - e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" - - - - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then - - Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero - Dim IndiceInicio As Integer = 1 - Dim IndiceMax As Integer = 1 + CountDinamico - - For IndiceInicio = 1 To IndiceMax - - Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal - e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" - - Next IndiceInicio - - - End If - - - - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red - End If - End If - End Sub - - Protected Sub GvGastosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs) - If e.Row.RowType = DataControlRowType.DataRow Then - setgraficaCCAnual(e, listaCamposaniosGastos) - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White - e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - 'e.Row.CssClass = "SubTotales" - e.Row.ControlStyle.Font.Bold = True - End If - - Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero - Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then - - 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto=-1&EjercicioFinal={DdlEjercicio2.SelectedValue}" - e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" - - Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero - Dim IndiceInicio As Integer = 1 - Dim IndiceMax As Integer = 1 + CountDinamico - For IndiceInicio = 1 To IndiceMax - Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField - Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal - e.Row.Cells(IndiceInicio).Text = $"{If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00"))}" - 'e.Row.Cells(IndiceInicio).ForeColor = If(Importe < 0, Drawing.Color.Red, e.Row.Cells(IndiceInicio).ForeColor) - Next IndiceInicio - - 'e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}" - e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" - - - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then - - Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero - Dim IndiceInicio As Integer = 1 - Dim IndiceMax As Integer = 1 + CountDinamico - - For IndiceInicio = 1 To IndiceMax - - Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal - e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" - - Next IndiceInicio - - End If - - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red - End If - End If - End Sub - - Protected Sub GvTotalesAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs) - - If e.Row.RowType = DataControlRowType.Header Then - e.Row.Attributes.Add("style", "display:none") - End If - - If e.Row.RowType = DataControlRowType.DataRow Then - setgraficaCCAnual(e, listaCamposaniosTotal) - e.Row.Attributes.Add("style", "Font-weight: bold") - End If - - End Sub - - Public Sub setgraficaCCAnual(e As GridViewRowEventArgs, listaCampos As List(Of String())) - Dim lista As New List(Of Object) - Dim colorindex As Integer = 0 - For Each campo As String() In listaCampos - lista.Add(New With {.Texto = campo(1), .Valor = e.Row.DBCampo(campo(0)).ToDecimal(), .Color = listacolores(colorindex)}) - colorindex = colorindex + 1 - If colorindex >= listacolores.Count Then - colorindex = 0 - End If - Next - e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista)) - End Sub -#End Region - - -#Region "S U B P R O Y E C T O H O R I Z O N T A L" - - Private Sub CargaDatosSubProyectoH() - - - FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" - FechaFMes = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}" - FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaFMes))).ToString("dd/MM/yyyy") - - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero - - - Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then - DTSubProyectosCabecerasH = ObjConta.DSResultados.Tables(0) - DtDatosSubProyectoH = ObjConta.DSResultados.Tables(1).FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") - Else - DtDatosSubProyectoH = Nothing - Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError) - End If - ObjConta.Dispose() - - If DtDatosSubProyectoH IsNot Nothing And DTSubProyectosCabecerasH IsNot Nothing Then - CargaGridsSubProyectoH() - End If - - End Sub - - Private Sub CargaGridsSubProyectoH() - - DtIngresosSubProyectoH = DtDatosSubProyectoH.FiltraParametros("Tipo ='H' ") - DtGastosSubProyectoH = DtDatosSubProyectoH.FiltraParametros("Tipo ='G' ") - DTTotalesSubProyectoH = DtDatosSubProyectoH.Clone() - - Dim Row As DataRow = DtIngresosSubProyectoH.NewRow - - Dim TotalActual = 0.0, TotalAnterior = 0.0 - - - Dim IndexData As Integer = 0 - Dim IndexGv As Integer = 1 - Dim IndexMax As Integer = 1 - Dim IndexSubProyecto = 0 - Dim IndexSubProyectoMAx As Integer = DTSubProyectosCabecerasH.Rows.Count - 1 - Dim IndexTotatles As Integer = 13 + IndexSubProyectoMAx - - '34 - Dim IDX_LIMPIAR As Integer = 1 - - For IDX_LIMPIAR = 1 To 35 - CType(GvIngresosSubProyectoH.Columns(IDX_LIMPIAR), BoundField).DataField = Nothing - CType(GvIngresosSubProyectoH.Columns(IDX_LIMPIAR), BoundField).HeaderText = "" - GvIngresosSubProyectoH.Columns(IDX_LIMPIAR).Visible = False - Next - listaCampos.Clear() - - - If DtIngresosSubProyectoH.Rows.Count > 0 Then - - For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns - - If IndexData >= 13 Then - - If IndexSubProyecto <= IndexSubProyectoMAx Then - - CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - GvIngresosSubProyectoH.Columns(IndexGv).Visible = True - - CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - GvTotalesSubProyectoH.Columns(IndexGv).Visible = True - - If IndexSubProyecto <= IndexSubProyectoMAx Then - CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString - CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString - CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString - End If - listaCampos.Add(New String() {dCoumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()}) - Else - GvIngresosSubProyectoH.Columns(IndexGv).Visible = False - GvTotalesSubProyectoH.Columns(IndexGv).Visible = False - End If - - IndexGv = IndexGv + 1 - IndexSubProyecto = IndexSubProyecto + 1 - IndexMax = IndexMax + 1 - - End If - IndexData = IndexData + 1 - Next - - - For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble - Next - - IndexData = 13 - For IndexData = 13 To IndexTotatles - Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") - Next - - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = DtIngresosSubProyectoH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString - Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = "100.00" - Row.Item("CtaMayor") = -1 - Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico") - CountDinamicoSubProyecto = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero - DtIngresosSubProyectoH.Rows.Add(Row) - Else - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" - Row.Item("CtaMayor") = -1 - DtIngresosSubProyectoH.Rows.Add(Row) - End If - - Dim T1 = TotalActual, T2 = TotalAnterior - - TotalActual = 0 - TotalAnterior = 0 - - Row = DtGastosSubProyectoH.NewRow - - If DtGastosSubProyectoH.Rows.Count > 0 Then - - - IndexData = 0 - IndexGv = 1 - IndexMax = 0 - IndexSubProyecto = 0 - - For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns - If IndexData >= 13 Then - If IndexSubProyecto <= IndexSubProyectoMAx Then - CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - GvGastosSubProyectoH.Columns(IndexGv).Visible = True - CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - GvTotalesSubProyectoH.Columns(IndexGv).Visible = True - Else - GvIngresosSubProyectoH.Columns(IndexGv).Visible = False - GvTotalesSubProyectoH.Columns(IndexGv).Visible = False - End If - - IndexGv = IndexGv + 1 - IndexSubProyecto = IndexSubProyecto + 1 - End If - IndexData = IndexData + 1 - Next - - - - For Each dr As DataRow In DtGastosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble - Next - - IndexData = 13 - For IndexData = 13 To IndexTotatles - Row.Item(IndexData) = DtGastosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") - Next - - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = TotalActual - Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero - Row.Item("CtaMayor") = -1 - Row.Item("CountDinamico") = DtGastosSubProyectoH.MAX("CountDinamico") - - DtGastosSubProyectoH.Rows.Add(Row) - Else - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" - Row.Item("CtaMayor") = -1 - DtGastosSubProyectoH.Rows.Add(Row) - End If - - If DtIngresosSubProyectoH.Rows.Count > 0 Then - - Row = DTTotalesSubProyectoH.NewRow - - IndexData = 13 - For IndexData = 13 To IndexTotatles - Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - Next - - Row.Item("Nombre") = "Resultado del ejercicio" - Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - Row.Item("CtaMayor") = -2 - Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico") - - DTTotalesSubProyectoH.Rows.Add(Row) - - End If - - DtIngresosSubProyectoH.Merge(DtGastosSubProyectoH) - DtIngresosSubProyectoH.Merge(DTTotalesSubProyectoH) - - - GvIngresosSubProyectoH.DataSource = DtIngresosSubProyectoH - GvIngresosSubProyectoH.DataBind() - - - - UpDatosSubProyectoH.Update() - - End Sub - - 'Private Sub SumaTotalesSubProyectoH() - ' ''Llena Lb´s Totales - ' ''********************************************************************************* - ' 'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero - ' 'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero - - ' 'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black) - ' 'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black) - - - 'End Sub - - Protected Sub GvIngresosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs) - - If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then - TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White - e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - 'e.Row.CssClass = "SubTotales3" - e.Row.ControlStyle.Font.Bold = True - - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then - - e.Row.ControlStyle.Font.Bold = True - e.Row.ControlStyle.Font.Size = 13 - End If - Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero - setgraficaCC(e) - 'Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then - - e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" - - Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero - Dim IndiceInicio As Integer = 1 - Dim IndiceMax As Integer = 1 + CountDinamico - - Dim FEchaMesFinal As Date = New Date(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, 1).LastDayOfMonth - - For IndiceInicio = 1 To IndiceMax - - Dim CveSubProyectoIntermo As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField - Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal - - - If CveSubProyectoIntermo.ToEntero > 0 Then - e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" - End If - - - - Next IndiceInicio - - e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" - - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then - - Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero - Dim IndiceInicio As Integer = 1 - Dim IndiceMax As Integer = 1 + CountDinamico - - For IndiceInicio = 1 To IndiceMax - - Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal - e.Row.Cells(IndiceInicio).Text = $"
    { If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }
    " - Next IndiceInicio - - - - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then - - Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero - Dim IndiceInicio As Integer = 1 - Dim IndiceMax As Integer = 1 + CountDinamico - - For IndiceInicio = 1 To IndiceMax - - Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal - e.Row.Cells(IndiceInicio).Text = $"
    { If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }
    " - - Next IndiceInicio - - - End If - e.Row.FCHyperLink("HLAnterior").Text = If(DdlDivisor.SelectedValue.ToEntero > 1, e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0"), e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0.00")) - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red - End If - - End If - - End Sub - - Protected Sub GvGastosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs) - If e.Row.RowType = DataControlRowType.DataRow Then - setgraficaCC(e) - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - 'e.Row.CssClass = "SubTotales" - e.Row.ControlStyle.Font.Bold = True - End If - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red - End If - End If - End Sub - - Protected Sub GvTotalesSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs) - If e.Row.RowType = DataControlRowType.Header Then - ' e.Row.Attributes.Add("style", "display:none") - End If - If e.Row.RowType = DataControlRowType.DataRow Then - setgraficaCC(e) - e.Row.Attributes.Add("style", "Font-weight: bold") - End If - End Sub - - Public Sub setgraficaCC(e As GridViewRowEventArgs) - Dim lista As New List(Of Object) - Dim colorindex As Integer = 0 - For Each campo As String() In listaCampos - lista.Add(New With {.Texto = campo(1), .Valor = e.Row.DBCampo(campo(0)).ToDecimal(), .Color = listacolores(colorindex)}) - colorindex = colorindex + 1 - If colorindex >= listacolores.Count Then - colorindex = 0 - End If - Next - e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista)) - End Sub -#End Region - - - - - -#Region "DESCARGA EXCEL" - - Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click - Imprimir("Excel") - End Sub - - Private Sub Imprimir(Optional reporte As String = "PDF") - - - If TAB.ActiveTabIndex = 0 AndAlso GvIngresosMes.Rows.Count > 0 Then - ExportToExcelG(GvIngresosMes, GvGastosMes, TMesT1, "Reporte_Mensual", UsuarioActual, "Mensual") - ElseIf TAB.ActiveTabIndex = 1 AndAlso GvIngresosMesH.Rows.Count > 0 Then - ExportToExcelG(GvIngresosMesH, GvGastosMesH, TMesT1, "Reporte_Mensual_Horizontal", UsuarioActual, "Mensual Horizontal", Gv3:=GvTotalesMesH) - ElseIf TAB.ActiveTabIndex = 2 AndAlso GvIngresosAnualH.Rows.Count > 0 Then - ExportToExcelG(GvIngresosAnualH, GvGastosAnualH, TMesT1, "Reporte_Anual_Horizontal", UsuarioActual, "Anual Horizontal", Gv3:=GvTotalesAnualH) - - ElseIf TAB.ActiveTabIndex = 3 AndAlso GvIngresosSubProyectoH.Rows.Count > 0 Then - - ExportToExcelG(GvIngresosSubProyectoH, GvGastosSubProyectoH, TMesT1, "Reporte_Proyecto_Horizontal", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", Gv3:=GvTotalesSubProyectoH, EsPorSubProtyecto:=True) - - End If - - - End Sub - - 'Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing, Optional Filtros As String = "", Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100) - Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, TablaResultados As HtmlTable, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100, Optional Gv3 As GridView = Nothing, Optional EsPorSubProtyecto As Boolean = False) - - Dim sw1 As New StringWriter() - Dim htw1 As New HtmlTextWriter(sw1) - Gv1.RenderControl(htw1) - - Dim sw2 As New StringWriter() - Dim htw2 As New HtmlTextWriter(sw2) - Gv2.RenderControl(htw2) - - - TablaResultados.Width = Gv2.Width.ToString - - Dim sw3 As New StringWriter() - Dim htw3 As New HtmlTextWriter(sw3) - TablaResultados.RenderControl(htw3) - - Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault - - Dim htmlStream1 = New MemoryStream(options.Encoding.GetBytes(sw1.ToString())) - Dim htmlStream2 = New MemoryStream(options.Encoding.GetBytes(sw2.ToString())) - Dim htmlStream3 = New MemoryStream(options.Encoding.GetBytes(sw3.ToString())) - - htmlStream1.Position = 0 - Dim sr1 As New StreamReader(htmlStream1) - - htmlStream2.Position = 0 - Dim sr2 As New StreamReader(htmlStream2) - - htmlStream3.Position = 0 - Dim sr3 As New StreamReader(htmlStream3) - - - Dim myStr1 = sr1.ReadToEnd() - Dim myStr2 = sr2.ReadToEnd() - Dim myStr3 = sr3.ReadToEnd() - - sr1.Dispose() - sr2.Dispose() - sr3.Dispose() - - htmlStream1.Dispose() - htmlStream2.Dispose() - htmlStream3.Dispose() - - sw1.Dispose() - sw2.Dispose() - sw3.Dispose() - - If Gv3 IsNot Nothing Then - - Gv3.ShowHeader = False - - Dim sw4 As New StringWriter() - Dim htw4 As New HtmlTextWriter(sw4) - Gv3.RenderControl(htw4) - Dim htmlStream4 = New MemoryStream(options.Encoding.GetBytes(sw4.ToString())) - htmlStream4.Position = 0 - Dim sr4 As New StreamReader(htmlStream4) - myStr3 = sr4.ReadToEnd() - - sr4.Dispose() - htmlStream2.Dispose() - sw4.Dispose() - - End If - - - Dim HtmlCompleto As String = myStr1 & "
    " & myStr2 & "
    " & myStr3 - - - HtmlCompleto = Regex.Replace(HtmlCompleto, "\<[\/]*a[^\>]*\>", "") - - - Dim htmlStream5 = New MemoryStream(options.Encoding.GetBytes(HtmlCompleto)) - - GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet) - - Dim excel As GemBox.Spreadsheet.ExcelFile - - excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream5, options) - - If Usuario IsNot Nothing Then - - Dim TotalRowHeader As Integer = 8 - Dim TotalRowFooter As Integer = 2 - - - Dim worksheet = excel.Worksheets(0) - worksheet.Rows.InsertEmpty(0, TotalRowHeader) - Dim celdasConTexto = worksheet.GetUsedCellRange(True) - celdasConTexto.Style.Font.Name = "Calibri Light" - - Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex) - RangoNombreEmpresa.Merged = True - RangoNombreEmpresa.Value = Usuario.Empresa.Empresa - RangoNombreEmpresa.Style.Font.Size = 18 * 20 - RangoNombreEmpresa.Style.Font.Name = "Calibri Light" - RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center - RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - - - Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex) - RangoTitulo.Merged = True - RangoTitulo.Value = Titulo - RangoTitulo.Style.Font.Size = 20 * 20 - RangoTitulo.Style.Font.Name = "Calibri Light" - RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center - RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - - Dim RangoFechas = worksheet.Cells.GetSubrangeAbsolute(4, celdasConTexto.FirstColumnIndex, 4, celdasConTexto.LastColumnIndex) - RangoFechas.Merged = True - RangoFechas.Value = $"Fechas: {FechaIMes} a {FechaFMes}" - RangoFechas.Style.Font.Size = 15 * 20 - RangoFechas.Style.Font.Name = "Calibri Light" - RangoFechas.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center - RangoFechas.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - - - If EsPorSubProtyecto And DdlSubproyecto.SelectedValue.ToEntero > 0 Then - Dim RangoSubProyecto = worksheet.Cells.GetSubrangeAbsolute(5, celdasConTexto.FirstColumnIndex, 5, celdasConTexto.LastColumnIndex) - RangoSubProyecto.Merged = True - RangoSubProyecto.Value = DdlSubproyecto.SelectedItem.Text - RangoSubProyecto.Style.Font.Size = 20 * 20 - RangoSubProyecto.Style.Font.Name = "Calibri Light" - RangoSubProyecto.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center - RangoSubProyecto.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - End If - - For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex - - worksheet.Rows(8).Cells(i).Style.Font.Size = 12 * 20 - worksheet.Rows(8).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center - worksheet.Rows(8).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - - worksheet.Rows(8).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Rows(8).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) - - - - If Not EsPorSubProtyecto Then - worksheet.Rows(8 + Gv1.Rows.Count + 2).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Rows(8 + Gv1.Rows.Count + 2).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) - Else - worksheet.Rows(18).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Rows(18).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) - End If - - - - If i > 0 Then - Try - worksheet.Columns(i).AutoFit(1) - Catch ex As Exception - End Try - End If - Next - - Dim IndexEndTable As Integer = Gv1.Rows.Count + Gv2.Rows.Count + 4 + TotalRowHeader + TotalRowFooter - - worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió" - worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre - - worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión" - worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy") - - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)) - - If Imagen.Exists Then - Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta) - Using sr As New StreamReader(Ruta) - Dim ms As New MemoryStream() - sr.BaseStream.CopyTo(ms) - worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel) - End Using - End If - - - - - - - For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex - - If I > 0 Then - - If DdlDivisor.SelectedValue.ToEntero = 1 Then - worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00" - Else - worksheet.Columns(I + 1).Style.NumberFormat = "#,##" - End If - - Try - worksheet.Columns(I).AutoFit(1) - Catch ex As Exception - End Try - - End If - Next - - End If - - excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx") - - - End Sub - - Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) - End Sub - -#End Region - - - - - -End Class - diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 5a89787b7..ad1698125 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -1712,6 +1712,26 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then DTSubProyectosCabecerasH = ObjConta.DSResultados.Tables(0) DtDatosSubProyectoH = ObjConta.DSResultados.Tables(1).FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") + 'se limpian los subproyectos con importe cero + Dim IndexData As Integer = 1 + Dim ColumnasEliminar As New ArrayList + For Each dColumn As DataColumn In DtDatosSubProyectoH.Columns + 'si el nombre es numerico, s la clave del subproyecto + If dColumn.ColumnName.ToEntero > 0 Then + If DtDatosSubProyectoH.MAX(String.Format("[{0}]", dColumn.ColumnName)).ToDecimal = 0 Then + ColumnasEliminar.Add(dColumn.ColumnName) + 'DtDatosSubProyectoH.Columns.Remove(dColumn.ColumnName) + End If + End If + + Next + + If ColumnasEliminar.Count > 0 Then + For Each columna As String In ColumnasEliminar + DtDatosSubProyectoH.Columns.Remove(columna) + Next + End If + Else DtDatosSubProyectoH = Nothing Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError) @@ -1739,43 +1759,59 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim IndexGv As Integer = 1 Dim IndexMax As Integer = 1 Dim IndexSubProyecto = 0 - Dim IndexSubProyectoMAx As Integer = DTSubProyectosCabecerasH.Rows.Count - 1 - Dim IndexTotatles As Integer = 13 + IndexSubProyectoMAx + Dim IndexSubProyectoMax As Integer = DTSubProyectosCabecerasH.Rows.Count - 1 + + + If IndexSubProyectoMAx > GvIngresosSubProyectoH.Columns.Count - 2 Then + IndexSubProyectoMAx = GvIngresosSubProyectoH.Columns.Count - 2 + End If + Dim IndexTotales As Integer = 13 + IndexSubProyectoMax + If IndexTotales > DtIngresosSubProyectoH.Columns.Count - 2 Then + IndexTotales = DtIngresosSubProyectoH.Columns.Count - 2 + End If '34 Dim IDX_LIMPIAR As Integer = 1 - For IDX_LIMPIAR = 1 To 35 + For IDX_LIMPIAR = 1 To GvIngresosSubProyectoH.Columns.Count - 2 CType(GvIngresosSubProyectoH.Columns(IDX_LIMPIAR), BoundField).DataField = Nothing CType(GvIngresosSubProyectoH.Columns(IDX_LIMPIAR), BoundField).HeaderText = "" GvIngresosSubProyectoH.Columns(IDX_LIMPIAR).Visible = False Next listaCampos.Clear() - If DtIngresosSubProyectoH.Rows.Count > 0 Then - For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns + For Each dColumn As DataColumn In DtIngresosSubProyectoH.Columns If IndexData >= 13 Then - If IndexSubProyecto <= IndexSubProyectoMAx Then + If IndexSubProyecto <= IndexSubProyectoMax Then - CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - GvIngresosSubProyectoH.Columns(IndexGv).Visible = True + If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then + CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName + GvIngresosSubProyectoH.Columns(IndexGv).Visible = True - CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - GvTotalesSubProyectoH.Columns(IndexGv).Visible = True + CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName + GvTotalesSubProyectoH.Columns(IndexGv).Visible = True - If IndexSubProyecto <= IndexSubProyectoMAx Then - CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString - CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString - CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString + If IndexSubProyecto <= IndexSubProyectoMax Then + Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto") + CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub + CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub + CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub + End If + listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()}) End If - listaCampos.Add(New String() {dCoumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()}) + Else - GvIngresosSubProyectoH.Columns(IndexGv).Visible = False - GvTotalesSubProyectoH.Columns(IndexGv).Visible = False + If IndexGv < GvIngresosSubProyectoH.Columns.Count Then + GvIngresosSubProyectoH.Columns(IndexGv).Visible = False + GvTotalesSubProyectoH.Columns(IndexGv).Visible = False + Else + Exit For + End If + End If IndexGv = IndexGv + 1 @@ -1793,8 +1829,10 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Next IndexData = 13 - For IndexData = 13 To IndexTotatles - Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + For IndexData = 13 To IndexTotales + If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número + Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + End If Next Row.Item("Nombre") = "TOTAL INGRESOS " @@ -1823,7 +1861,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If DtGastosSubProyectoH.Rows.Count > 1 Then - IndexData = 0 IndexGv = 1 IndexMax = 0 @@ -1832,13 +1869,20 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns If IndexData >= 13 Then If IndexSubProyecto <= IndexSubProyectoMAx Then - CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - GvGastosSubProyectoH.Columns(IndexGv).Visible = True - CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - GvTotalesSubProyectoH.Columns(IndexGv).Visible = True + If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then + CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName + GvGastosSubProyectoH.Columns(IndexGv).Visible = True + CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName + GvTotalesSubProyectoH.Columns(IndexGv).Visible = True + End If + Else - GvIngresosSubProyectoH.Columns(IndexGv).Visible = False - GvTotalesSubProyectoH.Columns(IndexGv).Visible = False + If IndexGv < DtIngresosSubProyectoH.Columns.Count AndAlso IndexGv < GvIngresosSubProyectoH.Columns.Count Then + GvIngresosSubProyectoH.Columns(IndexGv).Visible = False + GvTotalesSubProyectoH.Columns(IndexGv).Visible = False + Else + Exit For + End If End If IndexGv = IndexGv + 1 @@ -1847,16 +1891,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal IndexData = IndexData + 1 Next - - For Each dr As DataRow In DtGastosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows TotalActual += dr("ImporteActual").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble Next IndexData = 13 - For IndexData = 13 To IndexTotatles - Row.Item(IndexData) = DtGastosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + For IndexData = 13 To IndexTotales + If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número + Row.Item(IndexData) = DtGastosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + End If Next Row.Item("Nombre") = "TOTAL GASTOS" @@ -1881,8 +1925,10 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Row = DTTotalesSubProyectoH.NewRow IndexData = 13 - For IndexData = 13 To IndexTotatles - Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") + For IndexData = 13 To IndexTotales + If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número + Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") + End If Next Row.Item("Nombre") = "Resultado del ejercicio" @@ -1949,19 +1995,22 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim IndiceMax As Integer = 1 + CountDinamico Dim FEchaMesFinal As Date = New Date(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, 1).LastDayOfMonth + If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 2 Then + IndiceMax = GvIngresosSubProyectoH.Columns.Count - 2 + End If For IndiceInicio = 1 To IndiceMax - Dim CveSubProyectoIntermo As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField - Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal + If GvGastosSubProyectoH.Columns(IndiceInicio).GetType.Name = "BoundField" Then + Dim CveSubProyectoInterno As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField + Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal + If CveSubProyectoInterno.ToEntero > 0 Then + e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + End If - If CveSubProyectoIntermo.ToEntero > 0 Then - e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" End If - - Next IndiceInicio e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" @@ -1971,20 +2020,23 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero Dim IndiceInicio As Integer = 1 Dim IndiceMax As Integer = 1 + CountDinamico + If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 2 Then + IndiceMax = GvIngresosSubProyectoH.Columns.Count - 2 + End If For IndiceInicio = 1 To IndiceMax - Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal e.Row.Cells(IndiceInicio).Text = $"
    { If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }
    " Next IndiceInicio - - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero Dim IndiceInicio As Integer = 1 Dim IndiceMax As Integer = 1 + CountDinamico + If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 2 Then + IndiceMax = GvIngresosSubProyectoH.Columns.Count - 2 + End If For IndiceInicio = 1 To IndiceMax diff --git a/Contabilidad2/RepSituacionFinancieraSAT.aspx b/Contabilidad2/RepSituacionFinancieraSAT.aspx.exclude similarity index 100% rename from Contabilidad2/RepSituacionFinancieraSAT.aspx rename to Contabilidad2/RepSituacionFinancieraSAT.aspx.exclude diff --git a/Contabilidad2/RepSituacionFinancieraSAT.aspx.vb b/Contabilidad2/RepSituacionFinancieraSAT.aspx.vb.exclude similarity index 100% rename from Contabilidad2/RepSituacionFinancieraSAT.aspx.vb rename to Contabilidad2/RepSituacionFinancieraSAT.aspx.vb.exclude diff --git a/Contabilidad2/Reportes/_________________RepSituacionFinanciera.rdlc b/Contabilidad2/Reportes/_________________RepSituacionFinanciera.rdlc deleted file mode 100644 index 69f81caa8..000000000 --- a/Contabilidad2/Reportes/_________________RepSituacionFinanciera.rdlc +++ /dev/null @@ -1,3060 +0,0 @@ - - - 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 - - - - - - - - - - - - - - - 5.36361cm - - - 2.86585cm - - - 2.19558cm - - - - - 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!TipoCuenta.Value - Equal - - 1 - - - - 2.6512cm - 0.31432cm - 1.65cm - 10.42504cm - - - Verdana - 8pt - - - - - - - 5.36361cm - - - 2.86585cm - - - 2.19558cm - - - - - 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!TipoCuenta.Value - Equal - - 2 - - - - 4.74417cm - 0.31432cm - 1.65cm - 10.42504cm - 1 - - - Verdana - 8pt - - - - - - - 5.21467cm - - - 2.56871cm - - - 1.91058cm - - - - - 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!TipoCuenta.Value - Equal - - 3 - - - - 2.6512cm - 10.77464cm - 1.65cm - 9.69395cm - 2 - - - Verdana - 8pt - - - - - - - 5.21467cm - - - 2.56871cm - - - 1.91058cm - - - - - 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!TipoCuenta.Value - Equal - - 4 - - - - 4.74417cm - 10.77464cm - 1.65cm - 9.69395cm - 3 - - - Verdana - 8pt - - - - true - true - - - - - ACTIVO - - - - - - - Textbox28 - 1.91009cm - 0.31432cm - 0.6cm - 10.46032cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - PASIVO - - - - - - - Textbox28 - 1.91009cm - 10.77464cm - 0.6cm - 9.69395cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 5.21467cm - - - 2.56871cm - - - 1.91058cm - - - - - 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!TipoCuenta.Value - In - - 5 - 6 - 7 - 8 - - - - 8.30193cm - 10.77464cm - 1.65cm - 9.69395cm - 6 - - - Verdana - 8pt - - - - true - true - - - - - CAPITAL - - - - - - - Textbox28 - 7.52554cm - 10.77464cm - 0.6cm - 9.69395cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Total CAPITAL - - - - - - - Textbox45 - 10.22837cm - 10.77464cm - 0.6cm - 5.21467cm - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Variables!TotalPatrimonioHAnterior.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Variables!TotalPatrimonioHActual.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Total Pasivo y Patrimonio - - - - - - - Textbox45 - 11.12267cm - 10.77464cm - 0.6cm - 5.21467cm - 11 - - - 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.77464cm - 0.6cm - 5.21467cm - 14 - - - 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!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 - 5.36361cm - 18 - - - - - - true - true - - - - - =Parameters!pEmp.Value - - - - - - - Textbox1 - 0.03141cm - 5.67793cm - 0.81167cm - 10.31137cm - 19 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Estado de Situación Financiera al - - - - =Parameters!pFechaFin.Value - - - - - - - Textbox5 - 0.89924cm - 5.67793cm - 0.6cm - 10.31137cm - 20 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") - - - - - - - Textbox8 - 0.07056cm - 15.98931cm - 0.81167cm - 4.47928cm - 21 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 5.36361cm - - - 2.86585cm - - - 2.19558cm - - - - - 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!TipoCuenta.Value - Equal - - 9 - - - - 6.92554cm - 0.31432cm - 1.65cm - 10.42504cm - 22 - - - Verdana - 8pt - - - - true - true - - - - - Total del Activo - - - - - - - Textbox45 - 11.12267cm - 0.31432cm - 0.6cm - 5.36361cm - 23 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Variables!TotalActivoAnterior.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Variables!TotalActivoActual.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 4.88706in - - - - =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 - - - - - - - - - 2.46062cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 1.86062cm - 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 - 1.46374cm - 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 - 0.5cm - 0.5cm - 0.13cm - - - - - - - Textbox1 - - - - Black - - 1pt - - - Black - - 1pt - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - Código - - - - - - - Textbox3 - - - - Black - - 1pt - - - Black - - 1pt - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - U.M. - - - - - - - - - - - - - - - - Textbox7 - - - - Black - - 1pt - - - Black - - 1pt - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - Descripción - - - - - - - Textbox5 - - - - Black - - 1pt - - - Black - - 1pt - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - Serie - - - - - - - Textbox8 - - - - Black - - 1pt - - - Black - - 1pt - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Sección Almacén - - - - - - - Textbox10 - - - - Black - - 1pt - - - Black - - 1pt - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.4095cm - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - - - - - true - true - - - - - =Fields!UnidadMedida.Value - - - - - - - UnidadMedida - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - - - - - true - true - true - - - - - =Fields!PS.Value - - - - - - - PS - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - - - - - true - true - - - - - =Fields!Serie.Value - - - - - - - Serie - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - - - - - true - true - - - - - - - - - - - - SeccionAlmacen - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsInventarios - 0.07056cm - 0.03488cm - 0.92264cm - 20.18483cm - - - - - - true - true - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Observaciones: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Observaciones.Value - - - 2pt - 2pt - 2pt - 2pt - - - - 0.8368in - - - - - - - Textbox2 - 0.35352cm - 2.55499cm - 0.54708cm - 7.88418cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Fecha.Value - - - - - - - Textbox4 - 1.53516cm - 18.54466cm - 0.59998cm - 1.76305cm - 1 - - - 2pt - 2pt - - - - true - true - - - - - Fecha - - - - : - - - - Textbox5 - 1.53514cm - 16.7949cm - 0.6cm - 1.74976cm - 2 - - - 2pt - 2pt - - - - true - true - - - - - FOLIO: - - - - =Parameters!Folio.Value - - - - - - - Textbox4 - 0.92863cm - 16.7949cm - 0.6cm - 3.51281cm - 3 - - - 2pt - 2pt - - - - true - true - - - - - =iif(Parameters!CveConcepto.Value = 8, "AVISO", "RECEPCIÓN") & " DE TRASLADO" - - - - - - - Textbox2 - 0.03603cm - 12.87736cm - 0.86458cm - 7.45584cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - - - true - true - - - - - Facturado a: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FacturadoA.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Factura: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Factura.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - 4.08989cm - 0.00055cm - 0.98871cm - 20.21916cm - 5 - - =IIF((Parameters!CveAlmacen.Value = "10" OrElse Parameters!CveTipoAlmacenDestino.Value = "10") AND Parameters!CveVentaDetalle.Value <> "", False,True) - - - - - - - Embedded - Logo1 - FitProportional - 0.07668in - 0.86392in - 1.0059in - 6 - - - - - - true - true - - - - - Detalles del movimiento: - - - - - - - - - Almacén Origen: - - - - =Parameters!AlmacenOrigen.Value - - - - - - - - - Almacén Destino: - - - - =Parameters!AlmacenDestino.Value - - - - - - - - - - - - Textbox36 - 2.42442cm - 1.64784cm - 9.61623cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 4.79072cm - true - true - - - true - true - - - - - =Parameters!ResponsableCarga.Value - - - - - - - Textbox21 - 2.49498cm - 2.91702cm - 0.50243cm - 5.79375cm - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ResponsableRecibio.Value - - - - - - - Textbox21 - 2.49498cm - 11.63893cm - 0.50243cm - 5.78664cm - 1 - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ___________________________ - - - - - - Firma - - - - Textbox21 - 2.80753cm - 2.92497cm - 1.2cm - 5.78664cm - 2 - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ___________________________ - - - - - - Nombre y Firma - - - - Textbox21 - 2.80754cm - 11.63893cm - 1.2cm - 5.78664cm - 3 - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ENVIÓ - - - - - - - Textbox22 - 0.47625cm - 2.92497cm - 0.6cm - 5.78664cm - 4 - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Accion.Value - - - - - - - Textbox22 - 0.47625cm - 11.63893cm - 0.6cm - 5.78664cm - 5 - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =IIF(Parameters!NombreAccion.Value= "-1" ,"",Parameters!NombreAccion.Value) - - - - Textbox21 - 0.854cm - 7.26733cm - 0.63528cm - 5.78664cm - 6 - - =iif(Parameters!CveConcepto.Value = 8, True, False) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ___________________________ - - - - - - Nombre y Firma - - - - Textbox21 - 2.80698cm - 7.27443cm - 1.2cm - 5.78664cm - 7 - - =iif(Parameters!CveConcepto.Value = 8, True, False) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Accion.Value - - - - - - - Textbox22 - 0.47625cm - 7.27443cm - 0.6cm - 5.78664cm - 8 - - =iif(Parameters!CveConcepto.Value = 8, True, False) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox35 - 4.37091cm - 17.71971cm - 0.41981cm - 2.5cm - 11 - - - 2pt - 2pt - 2pt - 2pt - - - - 4.19452cm - 0.05952cm - 0cm - 20.27015cm - 12 - - - - - - - - - - 25cm - 21.59cm - 0.5cm - 0.5cm - 0.5cm - 0.5cm - 0.13cm - + + + + + + Textbox1 + + + + Black + + 1pt + + + Black + + 1pt + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Código + + + + + + + Textbox3 + + + + Black + + 1pt + + + Black + + 1pt + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + U.M. + + + + + + + + + + + + + + + + Textbox7 + + + + Black + + 1pt + + + Black + + 1pt + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Descripción + + + + + + + Textbox5 + + + + Black + + 1pt + + + Black + + 1pt + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Serie + + + + + + + Textbox8 + + + + Black + + 1pt + + + Black + + 1pt + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sección Almacén + + + + + + + Textbox10 + + + + Black + + 1pt + + + Black + + 1pt + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.4095cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!UnidadMedida.Value + + + + + + + UnidadMedida + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + true + + + + + =Fields!PS.Value + + + + + + + PS + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!Serie.Value + + + + + + + Serie + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + SeccionAlmacen + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsInventarios + 0.07056cm + 0.03488cm + 0.92264cm + 20.18483cm + + + + + + true + true + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Observaciones: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + 2pt + 2pt + 2pt + 2pt + + + + 0.8368in + + + + + + + Textbox2 + 0.35352cm + 2.55499cm + 0.54708cm + 7.88418cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Fecha.Value + + + + + + + Textbox4 + 1.53516cm + 18.54466cm + 0.59998cm + 1.76305cm + 1 + + + 2pt + 2pt + + + + true + true + + + + + Fecha + + + + : + + + + Textbox5 + 1.53514cm + 16.7949cm + 0.6cm + 1.74976cm + 2 + + + 2pt + 2pt + + + + true + true + + + + + FOLIO: + + + + =Parameters!Folio.Value + + + + + + + Textbox4 + 0.92863cm + 16.7949cm + 0.6cm + 3.51281cm + 3 + + + 2pt + 2pt + + + + true + true + + + + + =iif(Parameters!CveConcepto.Value = 8, "AVISO", "RECEPCIÓN") & " DE TRASLADO" + + + + + + + Textbox2 + 0.03603cm + 12.87736cm + 0.86458cm + 7.45584cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + Facturado a: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FacturadoA.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Factura: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Factura.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + 4.08989cm + 0.00055cm + 0.98871cm + 20.21916cm + 5 + + =IIF((Parameters!CveAlmacen.Value = "10" OrElse Parameters!CveTipoAlmacenDestino.Value = "10") AND Parameters!CveVentaDetalle.Value <> "", False,True) + + + + + + + Embedded + Logo1 + FitProportional + 0.07668in + 0.86392in + 1.0059in + 6 + + + + + + true + true + + + + + Detalles del movimiento: + + + + + + + + + Almacén Origen: + + + + =Parameters!AlmacenOrigen.Value + + + + + + + + + Almacén Destino: + + + + =Parameters!AlmacenDestino.Value + + + + + + + + + + + + Textbox36 + 2.42442cm + 1.64784cm + 9.61623cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 4.79072cm + true + true + + + true + true + + + + + =Parameters!ResponsableCarga.Value + + + + + + + Textbox21 + 2.49498cm + 2.91702cm + 0.50243cm + 5.79375cm + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ResponsableRecibio.Value + + + + + + + Textbox21 + 2.49498cm + 11.63893cm + 0.50243cm + 5.78664cm + 1 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + Firma + + + + Textbox21 + 2.80753cm + 2.92497cm + 1.2cm + 5.78664cm + 2 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + Nombre y Firma + + + + Textbox21 + 2.80754cm + 11.63893cm + 1.2cm + 5.78664cm + 3 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ENVIÓ + + + + + + + Textbox22 + 0.47625cm + 2.92497cm + 0.6cm + 5.78664cm + 4 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Accion.Value + + + + + + + Textbox22 + 0.47625cm + 11.63893cm + 0.6cm + 5.78664cm + 5 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =IIF(Parameters!NombreAccion.Value= "-1" ,"",Parameters!NombreAccion.Value) + + + + Textbox21 + 0.854cm + 7.26733cm + 0.63528cm + 5.78664cm + 6 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + Nombre y Firma + + + + Textbox21 + 2.80698cm + 7.27443cm + 1.2cm + 5.78664cm + 7 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Accion.Value + + + + + + + Textbox22 + 0.47625cm + 7.27443cm + 0.6cm + 5.78664cm + 8 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 4.37091cm + 17.71971cm + 0.41981cm + 2.5cm + 11 + + + 2pt + 2pt + 2pt + 2pt + + + + 4.19452cm + 0.05952cm + 0cm + 20.27015cm + 12 + + + + + + + + + + 25cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.13cm +