diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb index e198bbd5b..e649693cd 100644 --- a/Bancos/Transferencias.aspx.vb +++ b/Bancos/Transferencias.aspx.vb @@ -404,6 +404,21 @@ Partial Class Bancos_Transferencias End If End If + + If MsgError = "" Then + If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If ObjMov.ValorPolizaDescuadre > 0 Then + MsgError = ObjMov.MensajePolizaDescuadre + GuardaLogAD($"Bancos/Transferencias | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + End If + Else + MsgError = "No se pudo validar la prepoliza de cuadre." + End If + End If + + + + If MsgError = "" Then 'Conta ContPAQ @@ -449,16 +464,7 @@ Partial Class Bancos_Transferencias - If MsgError = "" Then - If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then - If ObjMov.ValorPolizaDescuadre > 0 Then - MsgError = ObjMov.MensajePolizaDescuadre - GuardaLogAD($"Bancos/Transferencias | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") - End If - Else - MsgError = "No se pudo validar la prepoliza de cuadre." - End If - End If + If MsgError = "" Then diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index aa2a73f8c..7c6924bcf 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -16597,7 +16597,7 @@ Partial Class Compras_Compras 'HACEMOS CALCULOS SubTotalIVA = TmpDT.SUM("IVA") SubTotalIEPSIVA = TmpDT.SUM("IEPSPSIVA") - SubTotal = TmpDT.SUM("Total") + TmpDT.SUM("Descuento") + SubTotal = (TmpDT.SUM("Total") + TmpDT.SUM("Descuento")).RoundSQL(6) RetIVA = TmpDT.SUM("RetIVA") RetISR = TmpDT.SUM("RetISR") IEPSPS = TmpDT.SUM("IEPSPS") diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 5f9ffb583..30ee612d3 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -65,24 +65,25 @@
+
-
-
    +
    +
    - +
    - +
    - +
    @@ -101,39 +102,53 @@
    -
    - -
    - - NO - Trimestre - Cuatrimestre - -
    - -
+
+ + diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 31d2fdcd8..646220e6c 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -1958,6 +1958,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal DtGastosSubProyectoH = DtDatosSubProyectoH.FiltraParametros("Tipo ='G' ") DTTotalesSubProyectoH = DtDatosSubProyectoH.Clone() + + Dim Row As DataRow = DtIngresosSubProyectoH.NewRow Dim TotalActual = 0.0, TotalAnterior = 0.0 @@ -1988,81 +1990,80 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Next listaCampos.Clear() - If DtIngresosSubProyectoH.Rows.Count > 0 Then + Dim DTProcesaColumnas As DataTable = If(DtIngresosSubProyectoH.Rows.Count > 0, DtIngresosSubProyectoH, DtGastosSubProyectoH) - For Each dColumn As DataColumn In DtIngresosSubProyectoH.Columns + For Each dColumn As DataColumn In DTProcesaColumnas.Columns + + If IndexData >= 13 Then + + If IndexSubProyecto <= IndexSubProyectoMax Then + + 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 = dColumn.ColumnName + GvTotalesSubProyectoH.Columns(IndexGv).Visible = True + + CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName + GvGastosSubProyectoH.Columns(IndexGv).Visible = True + + If IndexSubProyecto <= IndexSubProyectoMax Then + + Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto") + + If dColumn.ColumnName = "SinSubProyecto" Then + TxtSub = "Sin SubProyecto" + End If + CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub + CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub + CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub + CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%" + CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%" + CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%" + If (dColumn.ColumnName.ToString.ToEntero > 0 Or dColumn.ColumnName = "SinSubProyecto") Then + CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" + GvIngresosSubProyectoH.Columns(IndexGv + 1).Visible = True + CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" + GvTotalesSubProyectoH.Columns(IndexGv + 1).Visible = True + CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" + GvGastosSubProyectoH.Columns(IndexGv + 1).Visible = True + End If - If IndexData >= 13 Then - - If IndexSubProyecto <= IndexSubProyectoMax Then - - 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 = dColumn.ColumnName - GvTotalesSubProyectoH.Columns(IndexGv).Visible = True - - CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName - GvGastosSubProyectoH.Columns(IndexGv).Visible = True - - If IndexSubProyecto <= IndexSubProyectoMax Then - - Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto") - - If dColumn.ColumnName = "SinSubProyecto" Then - TxtSub = "Sin SubProyecto" - End If - - - CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub - CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub - CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub - - CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%" - CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%" - CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%" - - If (dColumn.ColumnName.ToString.ToEntero > 0 Or dColumn.ColumnName = "SinSubProyecto") Then - CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" - GvIngresosSubProyectoH.Columns(IndexGv + 1).Visible = True - CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" - GvTotalesSubProyectoH.Columns(IndexGv + 1).Visible = True - CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" - GvGastosSubProyectoH.Columns(IndexGv + 1).Visible = True - End If - - End If - listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()}) End If - - Else - If IndexGv < GvIngresosSubProyectoH.Columns.Count Then - GvIngresosSubProyectoH.Columns(IndexGv).Visible = False - GvTotalesSubProyectoH.Columns(IndexGv).Visible = False - Else - Exit For - End If - + listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()}) End If - IndexGv = IndexGv + 2 - IndexSubProyecto = IndexSubProyecto + 1 - IndexMax = IndexMax + 1 + Else + If IndexGv < GvIngresosSubProyectoH.Columns.Count Then + GvIngresosSubProyectoH.Columns(IndexGv).Visible = False + GvTotalesSubProyectoH.Columns(IndexGv).Visible = False + Else + Exit For + End If End If - IndexData = IndexData + 1 - If dColumn.ColumnName = "SinSubProyecto" Then - Exit For - End If + IndexGv = IndexGv + 2 + IndexSubProyecto = IndexSubProyecto + 1 + IndexMax = IndexMax + 1 - Next + End If + IndexData = IndexData + 1 + + If dColumn.ColumnName = "SinSubProyecto" Then + Exit For + End If + + Next + + + If DtIngresosSubProyectoH.Rows.Count > 0 Then For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("Not CtaMayor In (3,4)").Rows @@ -2074,7 +2075,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 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)") - Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") + + If DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") <> 0 Then + Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") + Else + Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = "0" + End If End If Next @@ -2091,6 +2097,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal CountDinamicoSubProyecto = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero DtIngresosSubProyectoH.Rows.Add(Row) Else + + + + Row.Item("Nombre") = "INGRESOS " + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DtIngresosSubProyectoH.Rows.Add(Row) + Row.Item("Nombre") = "TOTAL INGRESOS " Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAcumulado") = "0.00" @@ -2113,14 +2128,22 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 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)") - Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") + + 'Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") + + If DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)").ToDecimal <> 0 Then + Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") + Else + Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = "0" + End If + End If 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") + Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico").ToString.ToEntero DTTotalesSubProyectoH.Rows.Add(Row) diff --git a/Empresas/119/Formatos/RepIVAAcreditable.rpt b/Empresas/119/Formatos/RepIVAAcreditable.rpt index 33999cb6e..2874e9072 100644 Binary files a/Empresas/119/Formatos/RepIVAAcreditable.rpt and b/Empresas/119/Formatos/RepIVAAcreditable.rpt differ diff --git a/Finanzas/RepEstadoResultadosHorizontal.aspx b/Finanzas/RepEstadoResultadosHorizontal.aspx index b0e8ca8ee..e7d6ed794 100644 --- a/Finanzas/RepEstadoResultadosHorizontal.aspx +++ b/Finanzas/RepEstadoResultadosHorizontal.aspx @@ -76,7 +76,13 @@
  • SubProyecto:
    • -
  • Divisor: + + + + + - + + diff --git a/OC/OC.aspx b/OC/OC.aspx index 6bfa5fdb7..4b0f83c28 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -2424,7 +2424,12 @@ - + + + + + + <%-- @@ -2433,7 +2438,7 @@ - + --%> <%-- diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index f44258e3d..f86f4b1d8 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -5545,8 +5545,7 @@ Partial Class RH_Personal Dim objConstancias As New ClsConstancias Dim DocumenBitArray As Byte() = Nothing - Dim RutaDocumento As String = Server.MapPath("~") - 'RutaDocumento = Path.Combine(RutaDocumento, "Empresas\Grales\FormatoDC3.docx") + Dim RutaDocumento As String = DirectorioBaseEmpresas Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim _CveCurso As Integer = GvRow.DataKey("CveCurso").ToEntero()