Compras Impresion de pedf de poliza, clases de compras para subproyectos, RepEstadoResultados

AC/RepPresupuestoEgresosMensual.aspx

@@ -10,9 +10,24 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     Estado del Ejercicio del Presupuesto de Egresos - Mensual
 </asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> 
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">    
-    <asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />&nbsp; 
+
-    <asp:ImageButton ID="BtnImprimir" OnClick="BtnImprimir_Click" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px" />&nbsp;
+    <asp:UpdatePanel runat="server" ID="UpAcciones" >
+        <ContentTemplate>
+             <li>
+                <asp:LinkButton ID="ImgExcel" OnClick="ImgExcel_Click" Visible="false" runat="server"><i class="fa fa-file-excel-o"></i> Exporta Excel</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="BtnImprimir" OnClick="BtnImprimir_Click" Visible="false"  runat="server"><i class="fa fa-file-pdf-o"></i> Imprimir</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="ImgExcel" />
+            <asp:PostBackTrigger ControlID="BtnImprimir" />
+        </Triggers>
+    </asp:UpdatePanel>
+
+    
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
  

AC/RepPresupuestoEgresosMensual.aspx.vb

@@ -18,6 +18,8 @@ Partial Class AC_RepPresupuestoEgresosMensual
         If Not Page.IsPostBack Then
             CargaEjercicios()
             CargaCombos()
+
+
         End If
     End Sub
 
@@ -68,6 +70,10 @@ Partial Class AC_RepPresupuestoEgresosMensual
 
 
     Private Sub CargaDatos()
+
+        ImgExcel.Visible = False
+        BtnImprimir.Visible = False
+
         Dim objAC As New ClsContPAQi(UsuarioActual.Empresa)
         Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto.FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1))
         UPPDatos.Update()
@@ -83,6 +89,11 @@ Partial Class AC_RepPresupuestoEgresosMensual
             End If
 
             Gv.DataSource = DtPresupuestoEgresos
+            If DtPresupuestoEgresos IsNot Nothing AndAlso DtPresupuestoEgresos.Rows.Count > 0 Then
+                ImgExcel.Visible = True
+                BtnImprimir.Visible = True
+            End If
+
         Else
             Gv.DataSource = Nothing
             DtPresupuestoEgresos = Nothing

App_Code/ClsCompras.vb

@@ -197,7 +197,7 @@ Public Class ClsCompras
                               Optional CveOC As Integer = -1, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1, Optional NumeroReembolso As String = "-1", Optional CveProveedorSucursal As Integer = -1,
                               Optional AplicoPromocion As Boolean = False, Optional PorcentajeIVA As Double = 0, Optional CveMetodoPago As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveConceptoContableAlmacen As Integer = -1,
                               Optional CveRetISRConcepto As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveTipoCompra As Integer = -1, Optional TotalOriginal As Double = 0, Optional CveTipoConcepto As Integer = 1, Optional CveFactura As Integer = -1,
-                              Optional CveContrato As Integer = -1, Optional EsImportacion As Boolean = False) As Boolean
+                              Optional CveContrato As Integer = -1, Optional EsImportacion As Boolean = False, Optional CveSubProyecto As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -250,6 +250,7 @@ Public Class ClsCompras
             .Add("@CveFactura", SqlDbType.Int).Value = CveFactura
             .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
             .Add("@EsImportacion", SqlDbType.Bit).Value = EsImportacion
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
 
         End With
 
@@ -274,7 +275,7 @@ Public Class ClsCompras
     Public Function UpdateCompra(Descripcion As String, FolioSecundario As String, FechaVencimiento As Date, AplicaNotaCredito As Boolean, Observaciones As String, CveEstatusCompra As Integer,
                                  Descuento As Double, SubTotal As Double, IVA As Double, Total As Double, CveUsuario As Integer, CveCompra As Integer, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1,
                                  Optional CveProveedorSucursal As Integer = -1, Optional PorcentajeIVA As Double = 0, Optional NumeroReembolso As String = "", Optional CveTipoCompra As Integer = -1, Optional NoDeducible As Boolean = False,
-                                 Optional CveFactura As Integer = -1, Optional CveContrato As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveRetISRConcepto As Integer = -1) As Boolean
+                                 Optional CveFactura As Integer = -1, Optional CveContrato As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveRetISRConcepto As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -307,6 +308,8 @@ Public Class ClsCompras
 
             .Add("@CveRetIVAConcepto", SqlDbType.Int).Value = CveRetIVAConcepto
             .Add("@CveRetISRConcepto", SqlDbType.Int).Value = CveRetISRConcepto
+
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
         End With
 
         Try
@@ -3273,3 +3276,4 @@ Public Class ClsCompras
 End Class
 
 
+

Compras/Compras.aspx

@@ -5520,6 +5520,7 @@
     </div>
 
 
+ 
 
  
 
@@ -6788,6 +6789,9 @@
             $('#TxtDeudoresOtrosGastosIngresos').val(txtOtrIngEgs.value);
         }
 
+
+ 
+
     </script>
 
 </asp:Content>

Compras/Compras.aspx.vb

@@ -11,6 +11,7 @@ Imports Newtonsoft.Json
 Imports Extensiones
 Imports System.Activities.Expressions
 Imports iText.Barcodes.Dmcode
+Imports Microsoft.Reporting.WebForms
 
 Partial Class Compras_Compras
     Inherits ClsPaginas
@@ -3199,10 +3200,10 @@ Partial Class Compras_Compras
                 'Tiene Importacion
 
                 If dr("EsImportacion").ToString = "True" Then
-                        chkImportacion.Checked = True
+                    chkImportacion.Checked = True
-                    Else
+                Else
-                        chkImportacion.Checked = False
+                    chkImportacion.Checked = False
-                    End If
+                End If
                 CargaComplementosPago()
                 CargaGvBitacora()
                 InventarioMov()
@@ -7410,7 +7411,7 @@ Partial Class Compras_Compras
                                                                         Else
 
                                                                             Dim usacomplementariaAnticipo As Boolean = False
-                                                                            usacomplementariaAnticipo = If(Ant.TCCompra > 1 And not UsuarioActual.CveEmpresa.Contiene(13,83), True, False)
+                                                                            usacomplementariaAnticipo = If(Ant.TCCompra > 1 And Not UsuarioActual.CveEmpresa.Contiene(13, 83), True, False)
                                                                             Dim TipoCambioAnt As Decimal = Ant.TCCompra
 
                                                                             Dim ImporteAnt As Decimal = importeMovimiento
@@ -8111,7 +8112,12 @@ Partial Class Compras_Compras
                                     End If
 
                                     If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros
-                                        Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>", CvePrePoliza)
+                                        Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>. ", CvePrePoliza)
+                                        Dim TempParametros = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza))
+                                        Msg.Append($" <a class='Texto' target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={TempParametros}""> Descargar PDF <i class='fa fa-file-pdf-o' aria-hidden='true'></i></a>")
+
+
+
                                     End If
 
                                     If CveMovimientoInventario > 0 Then
@@ -8120,8 +8126,10 @@ Partial Class Compras_Compras
                                         Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Entrada Almacen</a>", TempParametros)
                                     End If
 
-                                    If Not ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) Then
+                                    If UsuarioActual.Empresa.TipoContabilidad = 2 Then
-                                        TieneError = True
+                                        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
+            Cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDecimal
-            If cantidad > 0 Then
+            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
 
 

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

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
 

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<CrystalParametro> para = new List<CrystalParametro>();
@@ -220,7 +220,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
             para.Add(new CrystalParametro("Filtros", $"<b>Filtros:</b> {FechaI}{FechaF}{TipoMov}"));
             if (Imagen.Exists)
             {
-                para.Add(new CrystalParametro("LogoPath", logouri));
+                para.Add(new CrystalParametro("LogoPath", Imagen.FullName));
             }
             else
             {

Contabilidad2/RepEstadoResultadosHorizontal.aspx

@@ -153,7 +153,10 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
-    <ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%" OnActiveTabChanged="Tab_ActiveTabChanged" AutoPostBack="true">
+
+    <asp:UpdatePanel runat="server" ID="UpGeneral" UpdateMode="Always">
+        <ContentTemplate>
+                <ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%" OnActiveTabChanged="Tab_ActiveTabChanged" AutoPostBack="true">
 
         <ajax:TabPanel ID="TabMes" runat="server" HeaderText="Mensual">
             <ContentTemplate>
@@ -1407,6 +1410,11 @@
             </ContentTemplate>
         </ajax:TabPanel>
     </ajax:TabContainer>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+
 
 
 

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -437,8 +437,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             LblTri.Visible = False
             DVTri.Visible = False
 
-            LiPeriodoDdl.Visible = False
+            LiPeriodoDdl.Visible = True
-            LiPeriodoLbl.Visible = False
+            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