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

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>

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)