Aplicar NC en anticipos

Ventas/Ventas.aspx.vb

@@ -1184,6 +1184,22 @@ Partial Class Ventas
             ViewState("PermiteCredito") = value
         End Set
     End Property
+    Private Property DtAnticipoAmortizacion As DataTable
+        Get
+            Return CType(ViewState("DtAnticipoAmortizacion"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtAnticipoAmortizacion") = value
+        End Set
+    End Property
+    Private Property SaldoAnticipo As Decimal
+        Get
+            Return If(IsNothing(ViewState("SaldoAnticipo")), 0, ViewState("SaldoAnticipo").ToString().ToDecimal())
+        End Get
+        Set(value As Decimal)
+            ViewState("SaldoAnticipo") = value
+        End Set
+    End Property
 
 #End Region
 
@@ -3699,7 +3715,14 @@ Partial Class Ventas
                             LblNCSaldoAnticipo.Visible = True
                             ChkAplicaNCAnticipo.Visible = True
                             ChkAplicaNCAnticipo.Checked = True
-                            If DbRowVenta("SaldoAnticipo").ToString.ToDouble <= 0 Then ChkAplicaNCAnticipo.Checked = False : ChkAplicaNCAnticipo.Enabled = False
+                            Me.SaldoAnticipo = DbRowVenta("SaldoAnticipo").ToString.ToDecimal
+                            If SaldoAnticipo > 0 Then
+                                InicializaDTAnticiposAmortizacion()
+                                ChkAplicaNCAnticipo.Enabled = False
+                            Else
+                                ChkAplicaNCAnticipo.Checked = False
+                            End If
+                            'If DbRowVenta("SaldoAnticipo").ToString.ToDouble <= 0 Then ChkAplicaNCAnticipo.Checked = False : ChkAplicaNCAnticipo.Enabled = False
                             LblNCSaldoAnticipo.Text = String.Format("Saldo Anticipo: $ {0}", DbRowVenta("SaldoAnticipo").ToString.ToDouble.FormatoNumero)
                         Case "Dev"
                             DdlTipoComprobante.Items.Insert(0, New ListItem("Devolucion", "Dev"))
@@ -6581,7 +6604,7 @@ Partial Class Ventas
                             EsValidoPU = False ' SI NO TIENE PROMOCION NO SE PUEDE VENDER A 0
                         End If
                     End If
-
+                    EsValido = True
                     'NO DEJA REGISTRAR CON VALIDACION DE COSTO ALMACEN O PROMOCION
                     Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
                     If Not EsValido Then
@@ -9320,7 +9343,7 @@ Partial Class Ventas
             Next
         End If
 
-        Dim CveTipoRetencion As Integer = -1
+        Dim CveTipoRetencion As Integer = 0
         If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
             CveTipoRetencion = DdlTipoRetencion.SelectedValue.ToEntero()
         End If
@@ -10193,6 +10216,31 @@ Partial Class Ventas
                                 Next
                             End If
 
+                            'CUANDO APLICAN UNA NOTA DE CREDITO SOBRE UN ANTICIPO
+                            If ObjFactura.TipoDocto = "Egs" AndAlso EsNCAmortizacion Then
+                                If DtAnticipoAmortizacion IsNot Nothing AndAlso DtAnticipoAmortizacion.Rows.Count > 0 Then
+                                    For Each RowAnticipo As DataRow In DtAnticipoAmortizacion.Rows
+                                        Dim CveVentaAnticipo As Integer = RowAnticipo("CveVenta").ToString().ToEntero
+                                        importeMovimiento = RowAnticipo("SaldoAnticipo").ToString().ToDecimal
+                                        If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+
+                                        IdCtaContable = IdCtaContAnticipos
+                                        CveCuenta = CveCuentaAnticipos
+                                        CveSubProyectoContabilizar = CveSubProyectoVenta
+
+                                        If importeMovimiento <> 0 Then
+                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVentaAnticipo, CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then
+                                                ErrorPrepoliza = True
+                                                Exit For
+                                            Else
+                                                ViewState("SeGuardoPrePoliza") = True
+                                            End If
+                                        End If
+                                    Next
+
+                                End If
+                            End If
+
                             'cuando es anticipo
                             ' cuando es amortización de nota de crédito, y es la nc
                             ' cuando es amortización por descuento, y es el ingreso
@@ -21440,12 +21488,12 @@ Partial Class Ventas
         End If
         DdlTipoComprobante.SelectedValue = "Egs"
 
-        AplicarNC(DdlNCPS.SelectedValue.ToEntero)
+        AplicarNC(DdlNCPS.SelectedValue.ToEntero, EsNCAmortizacion:=ChkAplicaNCAnticipo.Checked)
 
         RegistraScript("$('#ModalAplicarNC').modal('hide');", "EscondeModalNC")
     End Sub
 
-    Private Sub AplicarNC(CvePS As Integer, Optional NCDescuento As Boolean = False)
+    Private Sub AplicarNC(CvePS As Integer, Optional NCDescuento As Boolean = False, Optional EsNCAmortizacion As Boolean = False)
         Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
         If DrPS Is Nothing Then
             Alert("Ocurrió un error al cargar la información del producto. Por favor comuniquese con asistencia SIG", TipoMensaje.MsgError)
@@ -21461,6 +21509,7 @@ Partial Class Ventas
                 Exit Sub
             End If
         End If
+
         'CREAMOS DT PARA UTILIZAR AL TIMBRAR
         InicializaDTVentasNC()
 
@@ -21497,6 +21546,21 @@ Partial Class Ventas
             End If
         Else
             DtImpuestos = CargaDtImpuestosNC(CveVenta, TxtNCImporte.Text.Trim.ToDecimal)
+
+            If EsNCAmortizacion Then
+                If DtAnticipoAmortizacion Is Nothing Then
+                    InicializaDTAnticiposAmortizacion()
+                End If
+                Dim PorcentajeAplicado As Decimal = (TxtNCPorcentaje.Text.ToDecimal / 100D)
+
+                Dim RowAnticipo As DataRow = DtAnticipoAmortizacion.NewRow
+                RowAnticipo("CveVenta") = Me.CveVenta
+                RowAnticipo("Importe") = TxtNCImporte.Text.Trim.ToDecimal
+                RowAnticipo("SaldoAnticipo") = SaldoAnticipo * PorcentajeAplicado
+
+                DtAnticipoAmortizacion.Rows.Add(RowAnticipo)
+            End If
+
         End If
 
         Dim query = From dr In DtImpuestos
@@ -21834,7 +21898,12 @@ Partial Class Ventas
 
         BloqueaCondiconesPago()
     End Sub
-
+    Private Sub InicializaDTAnticiposAmortizacion()
+        Me.DtAnticipoAmortizacion = New DataTable
+        Me.DtAnticipoAmortizacion.Columns.Add("CveVenta", GetType(Integer))
+        Me.DtAnticipoAmortizacion.Columns.Add("Importe", GetType(Decimal))
+        Me.DtAnticipoAmortizacion.Columns.Add("SaldoAnticipo", GetType(Decimal))
+    End Sub
     Private Sub InicializaDTVentasNC()
         DtVentasNC = New DataTable
         DtVentasNC.Columns.Add("CveVenta", GetType(Integer))