AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-05-03 09:38:39 -07:00
parent 22fa35bec7
commit cb8c22ead5
2 changed files with 19 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Contabilidad/RegPrePoliza.aspx
View File

@@ -67,8 +67,7 @@
<asp:Label ID="LblEncabezado" runat="server" Text=" Registro de Póliza"></asp:Label> <asp:Label ID="LblEncabezado" runat="server" Text=" Registro de Póliza"></asp:Label>
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server">
<ContentTemplate>
<li> <li>
<asp:LinkButton ID="LnkExcel" runat="server" Visible="true" data-target="#DivCargaExcel"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Cargar Excel</asp:LinkButton> <asp:LinkButton ID="LnkExcel" runat="server" Visible="true" data-target="#DivCargaExcel"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Cargar Excel</asp:LinkButton>
</li> </li>
@@ -82,11 +81,7 @@
<asp:LinkButton ID="LnkComprobante" runat="server" Visible="false" data-toggle="modal" data-target="#ModalUpload" Style="color: #686868;"><i class="fa fa-upload" style="color:#686868;"></i> Cargar Comprobante</asp:LinkButton> <asp:LinkButton ID="LnkComprobante" runat="server" Visible="false" data-toggle="modal" data-target="#ModalUpload" Style="color: #686868;"><i class="fa fa-upload" style="color:#686868;"></i> Cargar Comprobante</asp:LinkButton>
</li> </li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkComprobante" />
</Triggers>
</asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">

14
Contabilidad/RegPrePoliza.aspx.vb
View File

@@ -1870,6 +1870,8 @@ Partial Class ContabilidadC_RegPrePoliza
Catch ex As Exception Catch ex As Exception
Alert("Error al descargar el paquete", TipoMensaje.MsgError) Alert("Error al descargar el paquete", TipoMensaje.MsgError)
End Try End Try
ObjCompra.Dispose()
ObjIE.Dispose()
End Sub End Sub
Private Function ImprimirPolizaPDF(IdPoliza As Integer) As String Private Function ImprimirPolizaPDF(IdPoliza As Integer) As String
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
@@ -2324,18 +2326,16 @@ Partial Class ContabilidadC_RegPrePoliza
Dim Path As String Dim Path As String
Dim dt As DataTable = DtMovimientos.FiltraParametros("", "", filtro) Dim dt As DataTable = DtMovimientos.FiltraParametros("", "", filtro)
Dim ObjIE As New ClsBancos() Dim ObjIE As New ClsBancos()
Dim TieneComprobante As Boolean = True Dim TieneComprobante As Boolean = False
For Each Row As DataRow In dt.Rows For Each Row As DataRow In dt.FiltraParametros("CveConceptoContable = 30").Rows
If TieneComprobante Then
If Row("CveConceptoContable").ToString.ToEntero = 30 Then
If Row("CveIE").ToString.ToEntero > 0 Then
If ObjIE.GetBancosIE(Row("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then If ObjIE.GetBancosIE(Row("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
If ObjIE.DtResultados.Rows.Count > 0 Then If ObjIE.DtResultados.Rows.Count > 0 Then
Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString) Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString)
If File.Exists(Path) Then If File.Exists(Path) Then
TieneComprobante = True TieneComprobante = True
Exit For
Else Else
TieneComprobante = False TieneComprobante = False
Exit For Exit For
@@ -2345,9 +2345,7 @@ Partial Class ContabilidadC_RegPrePoliza
Exit For Exit For
End If End If
End If End If
End If
End If
End If
Next Next
ObjIE.Dispose() ObjIE.Dispose()
Return TieneComprobante Return TieneComprobante