-

Ventas/Ventas.aspx.vb

@@ -7962,10 +7962,14 @@ Partial Class Ventas
                                 EsCotizacion = True
                             End If
 
-                            If UsuarioActual.TienePermisoProceso(199) Then DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión") ' puede remisionar
-                            If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar
+                            'NO MODIFIQUE EL TipoComprobante
+                            If CveVenta <= 0 OrElse EsCreaApartirDe Then
+                                If UsuarioActual.TienePermisoProceso(199) Then DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión") ' puede remisionar
+                                If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar
+
+                                DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
+                            End If
 
-                            DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
                             If EsCotizacion Then
                                 DdlTipoComprobante.SelectedValueExistInsert("Cot", "Cotización")
                             End If
@@ -12424,6 +12428,9 @@ Partial Class Ventas
             End If
         End If
 
+
+        ObjFacturaBonificacion.CveTipoVenta = 7 'BONIFICACION
+
     End Sub
 
 
@@ -14637,6 +14644,31 @@ Partial Class Ventas
             End If
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso factura.TipoDocto = "Egs" AndAlso Not factura.EsGarantia Then
+            CveTipoVentaGuardar = -1
+
+            If NCDescuento Then
+                If ListaNCDescuento IsNot Nothing AndAlso ListaNCDescuento.Count > 0 Then
+                    'VERIFICA SI BONIFICACION
+                    If ListaNCDescuento.Any(Function(RNC) (RNC.Num1 = 2)) Then
+                        CveTipoVentaGuardar = 7 ' BONIFICACION
+                    ElseIf ListaNCDescuento.Any(Function(RNC) (RNC.Num1 = 1)) Then
+                        CveTipoVentaGuardar = 9 ' CANCELACION DE USADOS
+                    End If
+                End If
+            Else
+                If ListaRemisionesNC IsNot Nothing AndAlso ListaRemisionesNC.Count > 0 Then
+                    'VERIFICA SI BONIFICACION
+                    If ListaRemisionesNC.Any(Function(RNC) (RNC.Num1 = 2)) Then
+                        CveTipoVentaGuardar = 7 ' BONIFICACION
+                    ElseIf ListaRemisionesNC.Any(Function(RNC) (RNC.Num1 = 1)) Then
+                        CveTipoVentaGuardar = 9 ' CANCELACION DE USADOS
+                    End If
+                End If
+
+            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,
                            factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, 0, factura.FechaPago, factura.Fecha, factura.MotivoDescuento,
@@ -37895,6 +37927,7 @@ Partial Class Ventas
             ObjFacturaProntoPago.DtVentasNC = DtVentasNC
 
             ObjFacturaProntoPago.Timbre = PreParaTimbre(ObjFacturaProntoPago)
+            ObjFacturaProntoPago.CveTipoVenta = 8 'PRONTO PAGO
 
             Resp = ObjFacturaProntoPago.EmitirFactura(False, Transac:=SqlTransaccion)