refacturacion con linea adicional

App_Code/Modelos.vb

@@ -8052,6 +8052,8 @@ Namespace Modelos
         Public Property CveSATPeriodicidad As Integer = -1
         Public Property CveSATMes As Integer = -1
         Public Property SATAnio As Integer = -1
+        Public Property CveLineaAdicional As Integer = -1
+
 
         Public Sub SetSubProyecto()
             If CveSubProyecto > 0 AndAlso UsuarioActual IsNot Nothing Then

Ventas/Ventas.aspx.vb

@@ -8591,6 +8591,10 @@ Partial Class Ventas
                 DdlNCFactura.SelectedValueExist(pCveVenta)
                 DdlNCFactura.Enabled = False
 
+                If ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.CveLineaAdicional > 0 Then
+                    DdlLineaAdicional.SelectedValueExist(ObjFacturaNC.CveLineaAdicional)
+                End If
+
             End If
 
         Else
@@ -14442,6 +14446,13 @@ Partial Class Ventas
             CveAlmacenTraspasoDestino = -1
         End If
 
+        Dim CveLAdicional = DdlLineaAdicional.SelectedValue.ToEntero()
+
+        If ObjFacturaNC IsNot Nothing Then
+            If NuevaFactura = 1 AndAlso ObjFacturaNC.CveLineaAdicional > 0 Then
+                CveLAdicional = ObjFacturaNC.CveLineaAdicional
+            End If
+        End If
 
         If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
                            factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,
@@ -14459,7 +14470,7 @@ Partial Class Ventas
                            DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
                            Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text,
                            FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia, ServicioDomicilio:=TrServicioDomicilio.Visible,
-                           CveLineaAdicional:=DdlLineaAdicional.SelectedValue.ToEntero(), DescripcionVenta:=DescripcionVenta,
+                           CveLineaAdicional:=CveLAdicional, DescripcionVenta:=DescripcionVenta,
                            CveMedico:=CveMedico, CveProcedimiento:=CveProcedimiento, CveTipoVenta:=CveTipoVentaGuardar, RequiereOS:=ChkRequiereTecnico.Checked, FechaParaSurtir:=factura.FechaParaSurtir,
                            Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text, CveMotivoDevolucion:=CveMotivoDevolucion, CveCobranzaEstatusTurno:=DdlGestionCobranza.SelectedValue.ToEntero, Addenda:=factura.Addenda) Then
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")