Ver Póliza. ", CvePrePoliza)
+ Dim TempParametros = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza))
+ Msg.Append($" Descargar PDF ")
+
+
+
End If
If CveMovimientoInventario > 0 Then
@@ -8120,8 +8126,10 @@ Partial Class Compras_Compras
Msg.AppendFormat("Imprimir Entrada Almacen", TempParametros)
End If
- If Not ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) Then
- TieneError = True
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ If Not ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) Then
+ TieneError = True
+ End If
End If
If EntregaDirecta Then
@@ -13498,10 +13506,10 @@ Partial Class Compras_Compras
For Each Dr As GridViewRow In GVDevolucion.Rows
'CveAlmacen = Dr.DataKey("CveAlmacen").ToString.ToEntero
- cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDecimal
- If cantidad > 0 Then
+ Cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDecimal
+ If Cantidad > 0 Then
realizadevolucion = True
- subtotaldevolucion += Dr.DataKey("PU").ToString.ToDecimal * cantidad
+ subtotaldevolucion += Dr.DataKey("PU").ToString.ToDecimal * Cantidad
End If
Next
'si no esta vinculado a nc simplemente me lo brinco
@@ -20595,6 +20603,9 @@ Partial Class Compras_Compras
'End Function
+
+
+
End Class
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 2480da969..870d9223e 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1442,6 +1442,16 @@ Partial Class PopUpVerFactura
End If
End If
+
+
+
+ 'IMPRIME VALE
+ If UrlParametros("OP").ToString = "PREPO" Then
+ If UrlParametros("CVEPREPOLIZA") IsNot Nothing AndAlso UrlParametros("CVEPREPOLIZA").ToString.ToEntero > 0 Then
+ ImprimeImPrimePrePolizaS(UrlParametros("CVEPREPOLIZA").ToString.ToEntero)
+ End If
+ End If
+
End Sub
Private Function Parametros(Cadena As String) As Hashtable
@@ -6866,4 +6876,177 @@ Partial Class PopUpVerFactura
End Sub
#End Region
+
+#Region "OP PREPO"
+
+
+ Public Sub ImprimeImPrimePrePolizaS(CvePrePoliza As Integer)
+
+
+
+
+ If Not CvePrePoliza > 0 Then
+ Exit Sub
+ End If
+
+
+ 'ObjContabilidad.Dispose()
+
+ Dim rutaArchivo As String = ""
+ Dim params As New List(Of ReportParameter)
+ Dim Bytes As Byte() = Nothing
+ Dim DtDetalle As New DataTable
+ Dim CveTipoPolizaImp As Integer = 0
+ Dim FolioPoliza As String = ""
+ Dim ConceptoPolizaImp As String = ""
+ Dim CveMonedaImp As Integer = 0
+ Dim TipoPolizaString = ""
+
+ Dim ObjContabilidad As New ClsContabilidad
+
+ Dim TipoPolImp As String = ""
+
+
+ If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+
+ Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
+
+ If dr IsNot Nothing Then
+
+ TipoPolImp = If(dr("CveTipoPoliza").ToString.ToEntero = 1, "Ingreso", If(dr("CveTipoPoliza").ToString.ToEntero = 2, "Egreso", "Diario"))
+ CveTipoPolizaImp = dr("CveTipoPoliza").ToString.ToEntero
+ ConceptoPolizaImp = dr("Concepto").ToString
+ FolioPoliza = dr("FolioPoliza").ToString
+ CveMonedaImp = dr("CveMoneda").ToString.ToEntero
+
+ Else
+ Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
+ End If
+
+ End If
+
+ ObjContabilidad.Dispose()
+
+ Select Case CveTipoPolizaImp
+ Case 1
+ TipoPolizaString = "I"
+ Exit Select
+ Case 2
+ TipoPolizaString = "E"
+ Exit Select
+ Case Else
+ TipoPolizaString = "D"
+ Exit Select
+ End Select
+
+ If UsuarioActual.Empresa.Funcionalidad(282).ToEntero = 1 Then
+
+
+ Dim Archivo As System.IO.FileInfo
+
+ Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero
+
+ Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/PolizasResumen.rdlc", UsuarioActual.Empresa.Ruta))
+ Dim Logo As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
+
+ Dim ObjConta As New ClsContabilidad
+
+ If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+
+ Dim dr As DataRow
+ DtDetalle = ObjConta.DtResultados '.FiltraParametros("Contabilizable = 1", "Orden")
+ dr = DtDetalle.Rows(0)
+
+ params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("TipoPoliza", TipoPolImp))
+ params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
+
+ params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
+
+ params.Add(New ReportParameter("Numero", FolioPoliza))
+ params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
+ params.Add(New ReportParameter("CodigoPostal", ""))
+
+ params.Add(New ReportParameter("UsuarioRegistro", UsuarioActual.Usuario))
+ params.Add(New ReportParameter("ConceptoPoliza", ConceptoPolizaImp))
+
+ params.Add(New ReportParameter("Folio", FolioPoliza))
+
+
+ If Logo.Exists Then
+ params.Add(New ReportParameter("pImg", $"file://{Logo.FullName}"))
+ Else
+ params.Add(New ReportParameter("pImg", ""))
+ End If
+
+
+ If Archivo.Exists Then
+ rutaArchivo = Archivo.FullName
+ Else
+ rutaArchivo = $"{DirectorioEmpresas}Grales\Formatos\PolizasResumen.rdlc"
+ End If
+
+
+ End If
+ ObjConta.Dispose()
+
+
+ Else
+
+ Dim Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta))
+ params = New List(Of ReportParameter)
+
+ Dim ObjConta As New ClsContabilidad
+ 'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
+ If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+
+ Dim dr As DataRow
+ DtDetalle = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
+ dr = DtDetalle.Rows(0)
+ Dim ruta As String = ""
+
+ params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
+ params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString))
+ params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString))
+
+ If UsuarioActual.CveEmpresa.Contiene(141) Then
+ params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToString("dd/MM/yyyy hh:mm:ss")))
+ Else
+ params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
+ End If
+
+ FolioPoliza = dr("FolioPoliza").ToString
+ params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString))
+ params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
+ params.Add(New ReportParameter("CodigoPostal", ""))
+
+ If UsuarioActual.CveEmpresa.Contiene(119, 141) Then
+ params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
+ End If
+ If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+ End If
+
+ If Archivo.Exists Then
+ rutaArchivo = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
+ Else
+ rutaArchivo = "Empresas/Grales/Formatos/Polizas.rdlc"
+ End If
+ End If
+ ObjConta.Dispose()
+ End If
+
+
+ ImprimirPDF(rutaArchivo, DtDetalle, params, $"P{TipoPolizaString}{FolioPoliza}", Formato:="PDF")
+
+
+
+
+ End Sub
+
+
+#End Region
+
End Class
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index d8eee866b..2cf6d06aa 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1,6 +1,7 @@
Imports System.Data
Imports System.Net.NetworkInformation
+Imports ADSNetLibrary.SIGAPI.Models.OC.Response
'Imports DocumentFormat.OpenXml
Imports Extensiones
Imports GemBox.Spreadsheet
@@ -309,6 +310,7 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
+ ImprimeImPrimePrePolizaS(CvePrePoliza)
Exit Sub
@@ -2734,8 +2736,8 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
-
End Sub
+
Private Sub ImprimirPolizaPDF(IdPoliza As Integer)
'Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa)
@@ -2787,12 +2789,6 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
-
-
-
-
-
-
'Return String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString)
ObjConta.Dispose()
@@ -3246,8 +3242,6 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim Logo As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
-
-
Dim ObjConta As New ClsContabilidad
'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
@@ -3327,5 +3321,172 @@ Partial Class ContabilidadC_RegPrePolizaS
'End Sub
+ Public Sub ImprimeImPrimePrePolizaS(CvePrePoliza As Integer)
+
+
+
+
+ If Not CvePrePoliza > 0 Then
+ Exit Sub
+ End If
+
+
+ 'ObjContabilidad.Dispose()
+
+ Dim rutaArchivo As String = ""
+ Dim params As New List(Of ReportParameter)
+ Dim Bytes As Byte() = Nothing
+ Dim DtDetalle As New DataTable
+ Dim CveTipoPolizaImp As Integer = 0
+ Dim FolioPoliza As String = ""
+ Dim ConceptoPolizaImp As String = ""
+ Dim CveMonedaImp As Integer = 0
+ Dim TipoPolizaString = ""
+
+ Dim ObjContabilidad As New ClsContabilidad
+
+ Dim TipoPolImp As String = ""
+
+
+ If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+
+ Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
+
+ If dr IsNot Nothing Then
+
+ TipoPolImp = If(dr("CveTipoPoliza").ToString.ToEntero = 1, "Ingreso", If(dr("CveTipoPoliza").ToString.ToEntero = 2, "Egreso", "Diario"))
+ CveTipoPolizaImp = dr("CveTipoPoliza").ToString.ToEntero
+ ConceptoPolizaImp = dr("Concepto")
+ FolioPoliza = dr("FolioPoliza").ToString
+ CveMonedaImp = dr("CveMoneda").ToString.ToEntero
+
+ Else
+ Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
+ End If
+
+ End If
+
+ ObjContabilidad.Dispose()
+
+ Select Case CveTipoPolizaImp
+ Case 1
+ TipoPolizaString = "I"
+ Exit Select
+ Case 2
+ TipoPolizaString = "E"
+ Exit Select
+ Case Else
+ TipoPolizaString = "D"
+ Exit Select
+ End Select
+
+ If UsuarioActual.Empresa.Funcionalidad(282).ToEntero = 1 Then
+
+
+ Dim Archivo As System.IO.FileInfo
+
+ Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero
+
+ Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/PolizasResumen.rdlc", UsuarioActual.Empresa.Ruta))
+ Dim Logo As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
+
+ Dim ObjConta As New ClsContabilidad
+
+ If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+
+ Dim dr As DataRow
+ DtDetalle = ObjConta.DtResultados '.FiltraParametros("Contabilizable = 1", "Orden")
+ dr = DtDetalle.Rows(0)
+
+ params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("TipoPoliza", TipoPolImp))
+ params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
+
+ params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
+
+ params.Add(New ReportParameter("Numero", FolioPoliza))
+ params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
+ params.Add(New ReportParameter("CodigoPostal", ""))
+
+ params.Add(New ReportParameter("UsuarioRegistro", UsuarioActual.Usuario))
+ params.Add(New ReportParameter("ConceptoPoliza", ConceptoPolizaImp))
+
+ params.Add(New ReportParameter("Folio", FolioPoliza))
+
+
+ If Logo.Exists Then
+ params.Add(New ReportParameter("pImg", $"file://{Logo.FullName}"))
+ Else
+ params.Add(New ReportParameter("pImg", ""))
+ End If
+
+
+ If Archivo.Exists Then
+ rutaArchivo = Archivo.FullName
+ Else
+ rutaArchivo = $"{DirectorioEmpresas}Grales\Formatos\PolizasResumen.rdlc"
+ End If
+
+
+ End If
+ ObjConta.Dispose()
+
+
+ Else
+
+ Dim Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta))
+ params = New List(Of ReportParameter)
+
+ Dim ObjConta As New ClsContabilidad
+ 'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
+ If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+
+ Dim dr As DataRow
+ DtDetalle = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
+ dr = DtDetalle.Rows(0)
+ Dim ruta As String = ""
+
+ params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
+ params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString))
+ params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString))
+
+ If UsuarioActual.CveEmpresa.Contiene(141) Then
+ params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToString("dd/MM/yyyy hh:mm:ss")))
+ Else
+ params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
+ End If
+
+ FolioPoliza = dr("FolioPoliza").ToString
+ params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString))
+ params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
+ params.Add(New ReportParameter("CodigoPostal", ""))
+
+ If UsuarioActual.CveEmpresa.Contiene(119, 141) Then
+ params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
+ End If
+ If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+ End If
+
+ If Archivo.Exists Then
+ rutaArchivo = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
+ Else
+ rutaArchivo = "Empresas/Grales/Formatos/Polizas.rdlc"
+ End If
+ End If
+ ObjConta.Dispose()
+ End If
+
+
+ ImprimirPDF(rutaArchivo, DtDetalle, params, $"P{TipoPolizaString}{FolioPoliza}", Formato:="PDF")
+
+
+
+
+ End Sub
+
+
End Class
diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs
index b3f6be587..4c8bbe71f 100644
--- a/Contabilidad/RepIVA.aspx.cs
+++ b/Contabilidad/RepIVA.aspx.cs
@@ -201,17 +201,17 @@ public partial class Contabilidad_RepIVA : ClsPaginas
if (GvT.Rows.Count > 0 || GvA.Rows.Count > 0)
{
System.IO.FileInfo Imagen;
- String logouri = "";
+ // String logouri = "";
if (UsuarioActual.CveEmpresa.Contiene(119))
{
Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.jpg", UsuarioActual.Empresa.Ruta));
- logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
+ //logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
}
else
{
Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
- logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
+ //logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
}
List para = new List();
@@ -220,7 +220,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
para.Add(new CrystalParametro("Filtros", $"Filtros: {FechaI}{FechaF}{TipoMov}"));
if (Imagen.Exists)
{
- para.Add(new CrystalParametro("LogoPath", logouri));
+ para.Add(new CrystalParametro("LogoPath", Imagen.FullName));
}
else
{
diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
index 30ee612d3..644d0eb17 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
@@ -153,7 +153,10 @@
-
+
+
+
+
@@ -1407,6 +1410,11 @@
+
+
+
+
+
diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
index 646220e6c..ed1618354 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
@@ -437,8 +437,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
LblTri.Visible = False
DVTri.Visible = False
- LiPeriodoDdl.Visible = False
- LiPeriodoLbl.Visible = False
+ LiPeriodoDdl.Visible = True
+ LiPeriodoLbl.Visible = True
DdlPeriodo.SelectedValueExist(12)
End If
@@ -1631,7 +1631,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
IndexData = 13
For IndexData = 13 To IndexMax
Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
- Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+ If DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") > 0 Then
+ Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+ Else
+ Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = "0"
+ End If
+
Next
@@ -1706,7 +1711,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
IndexData = 13
For IndexData = 13 To IndexMax
Row.Item(IndexData) = DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
- Row.Item($"Porcentaje{DtGastosAnualH.Columns(IndexData).ColumnName}") = DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtGastosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+
+
+ If DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") > 0 Then
+ Row.Item($"Porcentaje{DtGastosAnualH.Columns(IndexData).ColumnName}") = DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtGastosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+ Else
+ Row.Item($"Porcentaje{DtGastosAnualH.Columns(IndexData).ColumnName}") = "0"
+ End If
+
+
+
Next
Row.Item("Nombre") = "TOTAL GASTOS"
@@ -1733,7 +1747,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
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)")
- Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
+
+
+ If DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") > 0 Then
+ Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
+ Else
+ Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = "0"
+ End If
+
+
+
Next
Row.Item("Nombre") = "Resultados del Ejercicio"
@@ -2106,11 +2129,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Row.Item("CtaMayor") = -1
DtIngresosSubProyectoH.Rows.Add(Row)
- 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
diff --git a/Empresas/119/Formatos/RepIVAAcreditable.rpt b/Empresas/119/Formatos/RepIVAAcreditable.rpt
index 2874e9072..a1124d4e7 100644
Binary files a/Empresas/119/Formatos/RepIVAAcreditable.rpt and b/Empresas/119/Formatos/RepIVAAcreditable.rpt differ