--FIX cancelacion de NC con anticipos

App_Code/ClsPaginas.vb

@@ -9717,12 +9717,12 @@ Public Class ClsPaginas
             'Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(6, VentaActual.CveMoneda, True, 1)
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 296, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 296, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=Pago.CveVentaNC, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
                 ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 227, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
             Else
                 'Agregamos Nacional
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 11, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 11, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=Pago.CveVentaNC, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
             End If
         End If
         If Pago.TipoPago = "NC" AndAlso Not ErrorMovtos AndAlso AplicarConceptoAplicacion Then ' N O T A   D E   C R E D I T O 
@@ -9832,6 +9832,7 @@ Public Class ClsPaginas
         Public Property CveMonedaPago As Integer = 1
         Public Property TCPago As Decimal = 1
         Public Property CveVentaAmortizacion As Integer = 0
+        Public Property CveVentaNC As Integer = -1
         Public Property OtroGastoIngreso As Decimal = 0
         'Public Property CveConceptoPago As Integer = -1 'no definido de inicio
         Public Property CveCreditoDetalle As Integer = -1

App_Code/Modelos.vb

@@ -3547,6 +3547,7 @@ Namespace Modelos
                                                             PagoAnt.CveMonedaPago = CveMonedaAnticipo
                                                             PagoAnt.TipoPago = "A"
                                                             PagoAnt.Fecha = ObjFactura.Fecha
+                                                            PagoAnt.CveVentaNC = ObjFactura.CveVenta
                                                             PagoAnt.CveVentaAmortizacion = RowAnticipo("CveVenta").ToString().ToEntero()
                                                             PagoAnt.TCPago = RowAnticipo("TipoCambioPago").ToString().ToDecimal()
                                                             PagoAnt.AplicaTraslado = False

Ventas/RepRecuperacion.aspx

@@ -264,7 +264,7 @@
                             </div>
                             <div class="col-md-3" style="display:flex; align-items:center">
                                 <div style="width: 240px; display: flex; align-items: center">
-                                    <label style="width:100px;">Fecha Inicio:</label>
+                                    <label style="width:80px;">Fecha Inicio:</label>
 
                                     <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
                                         <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
@@ -280,7 +280,7 @@
                                     <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
                                 </div>
                                 <div style="width: 210px; display: flex; align-items: center">
-                                    <label style="width:100px;">Fecha Fin:</label>
+                                    <label style="width:80px;">Fecha Fin:</label>
                                     <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
                                         <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                         <span class="input-group-btn ">