- cambio no usar prepolizasdetalle, para obtenr facturas pagadas o movtos de bancos, afecta a la obtención de prepolizas

2023-06-27 15:30:49 -07:00
parent d22e648582
commit 33d41836dd
7 changed files with 148 additions and 74 deletions
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -848,21 +848,41 @@ Public Class ClsBancos

        Return Retorno
    End Function
-    Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveOC As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Conta_PrePolizasDetalleGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveIE", SqlDbType.Int).Value = CveIE
-            .Add("@CveOC", SqlDbType.Int).Value = CveOC
-        End With
+    'Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveOC As Integer = -1) As Boolean
+    '    Dim Retorno As Boolean = False
+    '    DataAdapter("PA_Conta_PrePolizasDetalleGet")
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
+    '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+    '        .Add("@CveIE", SqlDbType.Int).Value = CveIE
+    '        .Add("@CveOC", SqlDbType.Int).Value = CveOC
+    '    End With

+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        OnError("Ocurrió un error al obtener Movimientos Prepolizas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '    End Try
+
+    '    Return Retorno
+    'End Function
+
+    Public Function GetBancosIEFacturasPagadas(CveIE As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Banc_IEFacturasPagadasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveIE", SqlDbType.Int).Value = CveIE
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
        Try
            SqlAdapter.Fill(Data)
+
            Retorno = True
        Catch ex As Exception
-            OnError("Ocurrió un error al obtener Movimientos Prepolizas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            OnError("Ocurrió un error al obtener los movimientos del documento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
        End Try

        Return Retorno
@@ -944,6 +964,7 @@ Public Class ClsBancos
        Return Retorno
    End Function

+
    Public Function GetFoliosCancelados(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Banc_FoliosCanceladosGet")
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1195,14 +1195,14 @@ Public Class ClsContabilidad
        Return Concepto
    End Function

-    Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveVenta As Integer = -1) As Boolean
+    Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Conta_PrePolizasDetalleGet")
        With SqlAdapter.SelectCommand.Parameters
            .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
-            .Add("@CveIE", SqlDbType.Int).Value = CveIE
+            .Add("@CveIE", SqlDbType.Int).Value = -1
            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            '.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
        End With

        Try
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -2442,7 +2442,7 @@ Namespace Modelos
                Dim DtPrePolizasAFCancelar As DataTable = Nothing

                If ValorMultiplicador = -1 AndAlso ObjFactura.DtDetalle IsNot Nothing AndAlso ObjFactura.DtDetalle.COUNT("CveActivoFijo", "CveActivoFijo > 0") > 0 Then
-                    If ObjConta.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveVenta:=ObjFactura.CveVenta) Then
+                    If ObjConta.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa) Then
                        DtPrePolizasAFCancelar = ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (271,49,4)")
                    End If
                End If
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -2025,8 +2025,8 @@ Namespace Extensiones
                RefCrediproveedor = ObjIE.DepositoRefCrediProveedor

                'Dim UsuarioResponsable As String = ""
-                Dim PreP As New ClsContabilidad
-                If PreP.GetPrePolizasDetalle(-1, tCveEmpresa, CveIE:=pCveIE) Then
+                Dim PreP As New ClsBancos
+                If PreP.GetBancosIEMovimientos(pCveIE, tCveEmpresa) Then
                    If PreP.DtResultados.Rows.Count > 0 Then
                        CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
                        CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -653,8 +653,8 @@
                <ajax:TabPanel ID="TabM" runat="server" HeaderText="Movimientos">
                    <ContentTemplate>
                        <div class="row">
-                            <div class="col-md-6">
-                                <asp:GridView ID="GvM" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" Style="text-align: center;" GridLines="None"
+                            <div class="col-md-6" >
+                                <asp:GridView ID="GvM" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall ADSCroll mysmallbtn ScrollAD" Style="text-align: center;" GridLines="None"
                                    DataKeyNames="CveVenta" OnRowDataBound="GvM_RowDataBound">
                                    <Columns>
                                        <asp:BoundField DataField="ConceptoContable" HeaderText="ConceptoContable">
@@ -671,7 +671,7 @@
                                                <asp:HyperLink ID="HplF" runat="server" CssClass="Texto" Text='<%# Eval("Referencia") %>' NavigateUrl='<%# If(Eval("CveCompra").ToString <> "", Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}"), Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")) %>'></asp:HyperLink>
                                            </ItemTemplate>
                                            <HeaderStyle HorizontalAlign="Center" />
-                                            <ItemStyle Width="100px" />
+                                            <ItemStyle Width="120px" />
                                        </asp:TemplateField>
                                        <asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="{0:N2}">
                                            <ItemStyle HorizontalAlign="Right" Width="100px" />
@@ -1604,6 +1604,46 @@
            </ContentTemplate>
        </asp:UpdatePanel>
    </div>
+    
+    <div id="ModalAjustarMovimiento" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+
+            <!-- Modal content-->
+            <div class="modal-content">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Ajustar Movimiento</h4>
+                </div>
+                <div class="modal-body">
+                    <asp:UpdatePanel ID="UpModalAjustarMovimiento" runat="server" UpdateMode="Conditional">
+                        <ContentTemplate>
+
+                            <div class="row">
+                                <div class="col-xs-2">Importe:</div>
+                                <div class="col-xs-8" style="text-align: left">
+                                    <asp:TextBox ID="TxtAjustarMovimiento" runat="server" Width="120px" CssClass="form-control" ClientIDMode="Static" Style="text-align: right;" AutoComplete="off" onkeydown="return (event.keyCode!=13);"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RFVTxtAjustarMovimiento" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAjustarMovimiento" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo." ValidationGroup="GpoAjustarMovimiento"></asp:RequiredFieldValidator>
+                                    <ajax:FilteredTextBoxExtender ID="FIETxtAjustarMovimiento" runat="server" TargetControlID="TxtAjustarMovimiento" FilterType="Custom, Numbers" ValidChars="+-.," />
+                                    <i></i>
+                                </div>
+                            </div>
+
+
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+                <div class="modal-footer">
+                    <asp:UpdatePanel runat="server">
+                        <ContentTemplate>
+                            <asp:Button ID="BtnAjustarMovimiento" Text="Ajustar" runat="server" ClientIDMode="Static" CssClass="btn btn-primary" ValidationGroup="GpoAjustarMovimiento" />
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+        </div>
+    </div>
+


 </asp:Content>
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -966,13 +966,14 @@ Partial Class Bancos_IE
                    End If

                    'Detectamos a quien se le hizo el cobro (Cliente, proveedor, Funcionario/Empleado, etc.)
-                    If ObjIE2.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
+                    If ObjIE2.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
                        If ObjIE2.DtResultados.Rows.Count > 0 Then
+                            Dim dtMovtos As DataTable = ObjIE2.DtResultados

-                            Dim CveConceptoContable As Integer = ObjIE2.DtResultados.FiltroPrimeroValor("CveConceptoContable", "CveConceptoContable <> 30 and CveConceptoContable <> 61").ToEntero
-                            CveCliente = ObjIE2.DtResultados.Rows(0)("CveCliente").ToString.ToEntero
-                            CvePersonal = ObjIE2.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
-                            CveProveedor = ObjIE2.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
+                            Dim CveConceptoContable As Integer = dtMovtos.FiltroPrimeroValor("CveConceptoContable", "CveConceptoContable <> 30 and CveConceptoContable <> 61").ToEntero
+                            CveCliente = dtMovtos.Rows(0)("CveCliente").ToString.ToEntero
+                            CvePersonal = dtMovtos.Rows(0)("CvePersonal").ToString.ToEntero
+                            CveProveedor = dtMovtos.Rows(0)("CveProveedor").ToString.ToEntero

                            Select Case CveConceptoContable
                                Case 66
@@ -986,10 +987,28 @@ Partial Class Bancos_IE
                                    PnlRecibidoPor.Visible = True

                            End Select
+                            'codigo reubicado, para no consultar 2 veces
+                            GvM.DataSource = dtMovtos.FiltraParametros("CveConceptoContable <> 30")
+
+                            If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then
+                                GvM.Columns(8).Visible = True
+                            End If
+
+                            If dtMovtos.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then
+                                GvM.Columns(7).Visible = True
+                            End If
+
+                            If dtMovtos.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then
+                                GvM.Columns(5).Visible = True
+                                GvM.Columns(6).Visible = True
+                            End If
+
+                            GvM.DataBind()
                        End If
                    End If
                End If

+
                If CveCliente > 0 Then
                    DdlCliente.SelectedText = ObjIE.PagueseA
                    DdlCliente.SelectedValue = CveCliente.ToString
@@ -1224,27 +1243,27 @@ Partial Class Bancos_IE

                'End If

+                ' codigo se reubicó a linea 969
+                ''DETALLES - MOVIMIENTOS
+                'If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
+                '    GvM.DataSource = ObjIE.DtResultados.FiltraParametros("CveConceptoContable <> 30")

-                'DETALLES - MOVIMIENTOS
-                If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
-                    GvM.DataSource = ObjIE.DtResultados
+                '    If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then
+                '        GvM.Columns(8).Visible = True
+                '    End If

-                    If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then
-                        GvM.Columns(8).Visible = True
-                    End If
+                '    If ObjIE.DtResultados.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then
+                '        GvM.Columns(7).Visible = True
+                '    End If

-                    If ObjIE.DtResultados.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then
-                        GvM.Columns(7).Visible = True
-                    End If
+                '    If ObjIE.DtResultados.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then
+                '        GvM.Columns(5).Visible = True
+                '        GvM.Columns(6).Visible = True
+                '    End If

-                    If ObjIE.DtResultados.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then
-                        GvM.Columns(5).Visible = True
-                        GvM.Columns(6).Visible = True
-                    End If
+                '    GvM.DataBind()

-                    GvM.DataBind()
-
-                End If
+                'End If

                'Movimientos Relacionados Padre
                If ObjIE.GetBancosIEMovimientosPadre(CveIE, UsuarioActual.CveEmpresa) Then
@@ -6328,29 +6347,26 @@ Partial Class Bancos_IE
    End Sub


-    'Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click
-    '    RegistraScript("$('#ModalAjustarMovimiento').modal('show');")
-    'End Sub
+    Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click
+        RegistraScript("$('#ModalAjustarMovimiento').modal('show');")
+    End Sub

-    'Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click
+    Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click

-    '    Dim ObjBanco As New ClsBancos
-    '    ObjBanco.IniciaTransacSQL()
-
-    '    If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-    '        ObjBanco.Commit()
-    '        RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR")
-    '        Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";")
-    '    Else
-    '        ObjBanco.RollBack()
-    '    End If
-
-    '    ObjBanco.Dispose()
-
-    'End Sub
+        Dim ObjBanco As New ClsBancos
+        ObjBanco.IniciaTransacSQL()

+        If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            ObjBanco.Commit()
+            RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR")
+            Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";")
+        Else
+            ObjBanco.RollBack()
+        End If

+        ObjBanco.Dispose()

+    End Sub


    Protected Sub LnkCancelaMovimiento_Click(sender As Object, e As EventArgs)
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -5953,17 +5953,17 @@ Partial Class PopUpVerFactura
                    DtMovimientosPoliza.Rows.Add(Dr)
                End If
            ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
-                Dim PreP As New ClsContabilidad
-                If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
+
+                If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
                    DtMovimientosPoliza = New DataTable
                    DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
                    DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
                    DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
                    DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))

-                    If PreP.DtResultados.Rows.Count > 0 Then
+                    If ObjIE.DtResultados.Rows.Count > 0 Then

-                        For Each drt As DataRow In PreP.DtResultados.Rows
+                        For Each drt As DataRow In ObjIE.DtResultados.Rows
                            Dim Dr = DtMovimientosPoliza.NewRow
                            Dr("CODIGO") = drt("CuentaCodigo")
                            Dr("Cuenta") = drt("CuentaNombre")
@@ -5974,7 +5974,7 @@ Partial Class PopUpVerFactura
                        Next
                    End If
                End If
-                PreP.Dispose()
+
            End If


@@ -6030,13 +6030,12 @@ Partial Class PopUpVerFactura
            NotificarA = ObjIE.NotificarA
            tIdPoliza = ObjIE.IDPoliza

-            Dim PreP As New ClsContabilidad
-            If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
-                If PreP.DtResultados.Rows.Count > 0 Then
-                    CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
-                    CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
+            If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
+                If ObjIE.DtResultados.Rows.Count > 0 Then
+                    CveProveedor = ObjIE.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
+                    CvePersonal = ObjIE.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero

-                    IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA
+                    IVA = ObjIE.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA

                    If CveProveedor > 0 Then
                        Dim Prov As New ClsCompProveedores
@@ -6067,7 +6066,6 @@ Partial Class PopUpVerFactura
                    End If
                End If
            End If
-            PreP.Dispose()


            params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
@@ -6238,10 +6236,9 @@ Partial Class PopUpVerFactura
                    Dim reportDataSetsList As New List(Of ReportDataSource)

                    Dim dtMovs As New DataTable
-                    Dim Mov As New ClsContabilidad
-                    If Mov.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
+                    If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then

-                        dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312)")
+                        dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )")

                        If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
                            'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
@@ -6254,7 +6251,7 @@ Partial Class PopUpVerFactura
                        End If

                    End If
-                    Mov.Dispose()
+
                    Dim rds = New ReportDataSource("DataSet1", dtMovs)
                    reportDataSetsList.Add(rds)