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">

36
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,30 +2326,26 @@ 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 ObjIE.GetBancosIE(Row("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
If Row("CveConceptoContable").ToString.ToEntero = 30 Then If ObjIE.DtResultados.Rows.Count > 0 Then
If Row("CveIE").ToString.ToEntero > 0 Then Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString)
If ObjIE.GetBancosIE(Row("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then If File.Exists(Path) Then
If ObjIE.DtResultados.Rows.Count > 0 Then TieneComprobante = True
Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString) Exit For
If File.Exists(Path) Then Else
TieneComprobante = True TieneComprobante = False
Else Exit For
TieneComprobante = False
Exit For
End If
Else
TieneComprobante = False
Exit For
End If
End If End If
Else
TieneComprobante = False
Exit For
End If End If
End If End If
End If
Next Next
ObjIE.Dispose() ObjIE.Dispose()
Return TieneComprobante Return TieneComprobante