Compras ProntoPago Generar Remisiones notas de crédito con Iva

Compras/Compras.aspx.vb

@@ -7606,7 +7606,7 @@ Partial Class Compras_Compras
                                     If Not ErrorPrepoliza AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4, AutoConta:=AutoConta) Then
                                         TieneError = True
                                         'If ObjConta.ValorPolizaDescuadre > 0 Then
-                                        '    GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                                        '    Alert($"{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia}", TipoMensaje.MsgError)
                                         '    ErrorPrepolizaDescuadre = True
                                         'End If
                                     End If
@@ -14492,7 +14492,7 @@ Partial Class Compras_Compras
 
     End Sub
     Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs)
-        VincularOcProntoPago = False
+        'VincularOcProntoPago = False
         AjusteProntoPagoPorcentajeIVA = 0D
         AjusteProntoPagoConIVA = 0D
         AjusteProntoPagoSinIVA = 0D
@@ -20849,6 +20849,7 @@ Partial Class Compras_Compras
 
     Public Function GeneraRemisionsNotadeCredito(ByRef trasaccion As SqlTransaction, CveCompraRegistrada As Integer) As Boolean
         Dim respuesta As Boolean = True
+        Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
 
         Dim CvePS_RNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero
         Dim PSRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS_RNC).FiltroPrimero("")
@@ -20898,8 +20899,10 @@ Partial Class Compras_Compras
             Dim PS As String = PSRow("PS").ToString
             Dim CveUM As Integer = PSRow("CveUnidadMedida").ToString.ToEntero
             Dim UM As String = PSRow("UnidadMedida").ToString
+            Dim IVARNC As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2)
 
-            CompraRNC.ConfiguraRegistroRapidoRNC(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNC, ImporteRNC)
+
+            CompraRNC.ConfiguraRegistroRapidoRNC(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNC, (ImporteRNC + IVARNC), IVARNC)
             If Not CompraRNC.AddCompraRNC(trasaccion) Then
                 respuesta = False
             End If
@@ -20920,8 +20923,9 @@ Partial Class Compras_Compras
                 CompraRNCProntoPAgo.Serie = $"{TxtSerie.Text}_P"
                 CompraRNCProntoPAgo.Folio = $"{TxtFolio.Text}_P"
                 CompraRNCProntoPAgo.CveCompraAmortizacion = CveCompraRegistrada
+                Dim IVARNCProntoPago As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2)
 
-                CompraRNCProntoPAgo.ConfiguraRegistroRapidoRNC(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNCProntoPago, ImporteRNCProntoPago)
+                CompraRNCProntoPAgo.ConfiguraRegistroRapidoRNC(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNCProntoPago, (ImporteRNCProntoPago + IVARNCProntoPago), IVARNCProntoPago)
                 If Not CompraRNCProntoPAgo.AddCompraRNC(trasaccion) Then
                     respuesta = False
                 End If
@@ -20956,7 +20960,7 @@ Partial Class Compras_Compras
         Else
 
             If ImporteRNCProntoPago > 0 Then
-                LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC + ImporteRNCProntoPago).ToString("###,###,###.00")} entre la compra y la Orden de Compra, se generararan dos Remisiones de Nota de Crédito una por descuento de ${ImporteRNC.ToString("###,###,###.00")} y otra por  pronto pago de ${ImporteRNCProntoPago.ToString("###,###,###.00")}"
+                LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC + ImporteRNCProntoPago).ToString("###,###,###.00")} entre la compra y la Orden de Compra, se generaran dos Remisiones de Nota de Crédito una por descuento de ${ImporteRNC.ToString("###,###,###.00")} y otra por  pronto pago de ${ImporteRNCProntoPago.ToString("###,###,###.00")}"
             Else
                 LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC).ToString("###,###,###.00")} entre la compra y la Orden de Compra, se generara una Remision de Nota de Crédito una por descuento de ${ImporteRNC.ToString("###,###,###.00")}"
             End If
@@ -21630,7 +21634,7 @@ Public Class ClsCompraManagerCompras
 
     End Function
     Public Function ConfiguraRegistroRapidoRNC(CvePS As Integer, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, PS As String, CveSubProyecto As Integer, SubProyecto As String,
-                                               SubTotal As Decimal, Total As Decimal) As Boolean
+                                               SubTotal As Decimal, Total As Decimal, IVA As Decimal) As Boolean
 
         Dim respuesta As Boolean = True
         Me.CveSubProyecto = CveSubProyecto
@@ -21642,6 +21646,7 @@ Public Class ClsCompraManagerCompras
         Me.CveTipoPoliza = 3
         Me.NumeroReembolso = ""
         Me.SubTotal = SubTotal
+        Me.IVA = IVA
         Me.Total = Total