-- mejoras en pagoprepolziaventa

++ clientesabonar. cambio para utilziar pagoprepoliza

App_Code/ClsBancos.vb

@@ -1466,7 +1466,7 @@ Public Class ClsBancos
     Public Function AddBancos_IE(CveCuenta As Integer, CveTipoTransaccion As Integer, FechaDocumento As Date, Folio As String, PagueseA As String, Importe As Double, CveMoneda As Integer, TipoCambio As Double, Observaciones As String,
                                  NotificarA As String, EsAbonoEnCuenta As Boolean, AplicaImpuestos As Boolean, IDPoliza As Integer, CvePrePoliza As Integer, Comprobante As String, CveUsuario As Integer, CveEmpresa As Integer,
                                  Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1,
-                                 Optional Referencia As String = "-1", Optional CveIESustitucion As Integer = -1, Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False,
+                                 Optional Referencia As String = "-1", Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False,
                                     Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1) As Integer
         Dim Retorno As Integer = -1
 
@@ -1497,7 +1497,6 @@ Public Class ClsBancos
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveCuentaTarjeta", SqlDbType.Int).Value = CveCuentaTarjeta
             .Add("@Referencia", SqlDbType.VarChar).Value = Referencia
-            .Add("@CveIESustitucion", SqlDbType.Int).Value = CveIESustitucion
             .Add("@CveCorte", SqlDbType.Int).Value = CveCorte
             .Add("@CveProveedorIntermediario", SqlDbType.Int).Value = CveProveedorIntermediario
             .Add("@FueConciliado", SqlDbType.Bit).Value = FueConciliado

App_Code/ClsPaginas.vb

@@ -10381,7 +10381,8 @@ Public Class ClsPaginas
         End If
 
         If VentaActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then  'factura pesos, pago en dolares 
-            tImportePago = ((Pago.ImportePago * TCValuacionVenta / Pago.TCPago).RoundSQL * Pago.TCPago).RoundSQL
+            tImportePago = ((Pago.ImportePago * TCValuacionVenta / Pago.TCPago) * Pago.TCPago).RoundSQL
+            tImporteVenta = (Pago.ImportePago * TCValuacionVenta).RoundSQL
         ElseIf VentaActual.CveMoneda <> 1 And Pago.CveMonedaPago <> 1 Then  'factura dolares, pago en dolares
             tImporteVenta = (Pago.ImportePago * TCValuacionVenta).RoundSQL
             tImportePago = (Pago.ImportePago * TCValuacionPago).RoundSQL
@@ -10557,6 +10558,7 @@ Public Class ClsPaginas
             Dim ConceptoContable, IdCtaContable As Integer
             Dim TipoMovimiento As Boolean
             Dim Diferencia As Decimal = 0
+            tImportePago +=Pago.ImporteFluctuacionAdicional 'para los casos de aplicación de 
 
             If tImporteVenta <> tImportePago Then
                 If tImporteVenta < tImportePago Then
@@ -10608,6 +10610,7 @@ Public Class ClsPaginas
         Public Property CveCreditoDetalle As Integer = -1
         Public Property AplicaTraslado As Boolean = True
         Public Property Referencia As String
+        Public Property ImporteFluctuacionAdicional As Decimal = 0
 
     End Class
 

Ventas/ClientesAbonar.aspx

@@ -96,7 +96,7 @@
                         <div id="DivDatosBancarios" runat="server" class="chequesie1">
                             <div class="row">
                                 <label class="col-md-2">Movimiento:</label>
-                                <div class="col-md-4">
+                                <div class="col-md-5">
                                     <asp:DropDownList ID="DdlTipoTransaccion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" ValidationGroup="GrpGuardar">
                                     </asp:DropDownList>
                                     <asp:RequiredFieldValidator ID="RFVTipoTransaccion" runat="server" ControlToValidate="DdlTipoTransaccion" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Movimiento''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -115,9 +115,6 @@
 
                                 </div>
                                  
-
-
-
                                 <div class="col-md-5" runat="server" id="DivTCDolaresDolares" visible="false">
                                     T.C:
                                     <asp:TextBox ID="TxtTCDolaresDolares" runat="server" placeholder="Tipo de Cambio" CssClass="form-control input-sm" MaxLength="12" Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
@@ -216,22 +213,22 @@
                                 <div class="col-md-3">
                                     <asp:TextBox ID="TxtAnticipo" runat="server"  Width ="100px" ClientIDMode="Static" />
                                 </div>
-
+                                 <div class="col-md-2"   runat="server" id="Div3" visible="false"> </div>
-
-                                 <div class="col-md-2"   runat="server" id="Div3" visible="false">Liquidación:</div>
                                 <div class="col-md-3"  runat="server" id="Div4" visible="false">
-                                    <asp:CheckBox ID="CheckBox2" OnCheckedChanged="ChkLiquidacion_CheckedChanged" runat="server" AutoPostBack="true" />
-                                </div>
                                     
+                                </div>
                             </div>
                             <div class="row" id="divPrestamo" runat="server" visible="false"  >
                                 <div class="col-md-2" >Préstamo:</div>
                                 <div class="col-md-3">
-                                    <asp:TextBox ID="TxtPrestamo" runat="server"  Width ="100px" ClientIDMode="Static" />
+                                    <asp:TextBox ID="TxtPrestamoImporte" runat="server" Width="100px" ClientIDMode="Static"></asp:TextBox>
                                 </div>
                                  <div class="col-md-2">
-                                       <asp:DropDownList ID="DdlPrestamo" runat="server" Width="40px"  DataTextField="RazonSocial" DataValueField="CveIE"></asp:DropDownList>
+                                       <asp:DropDownList ID="DdlPrestamo" runat="server" Width="100%"  DataTextField="TextoDocumento" DataValueField="CveIE"></asp:DropDownList>
                                  </div>
+                                <div class="col-md-3" >Intereses:
+                                     <asp:TextBox ID="TxtPrestamoIntereses" runat="server" Width="80px" ClientIDMode="Static"></asp:TextBox>
+                                </div>
                             </div>
 
                             <asp:UpdatePanel ID="UpCuentaDeposito" UpdateMode="Conditional" runat="server">
@@ -820,6 +817,24 @@
                     Importe = Importe + ToDouble($get('TxtAnticipo').value);
                 }
             }
+            if ($get('TxtPrestamoImporte') != null) {
+
+                if ($get('TxtPrestamoImporte').value == '') {
+                    $get('TxtPrestamoImporte').value = 0.00;
+                }
+                else {
+                    Importe = Importe - ToDouble($get('TxtPrestamoImporte').value);
+                }
+            }
+            if ($get('TxtPrestamoIntereses') != null) {
+
+                if ($get('TxtPrestamoIntereses').value == '') {
+                    $get('TxtPrestamoIntereses').value = 0.00;
+                }
+                else {
+                    Importe = Importe - ToDouble($get('TxtPrestamoIntereses').value);
+                }
+            }
 
             if ($get('TxtOtrosImportes') != null) {
                 if (pagoMultiple != 0) {