-

Compras/Compras.aspx.vb

@@ -1025,6 +1025,21 @@ Partial Class Compras_Compras
         End Set
     End Property
 
+    Private Property SubTotalRefacturacion As Decimal
+        Get
+
+            If ViewState("SubTotalRefacturacion") Is Nothing Then
+                ViewState("SubTotalRefacturacion") = 0.0D
+            End If
+
+            Return ViewState("SubTotalRefacturacion").ToString.ToDecimal
+
+        End Get
+        Set(value As Decimal)
+            ViewState("SubTotalRefacturacion") = value
+        End Set
+    End Property
+
     Private Property IVAOriginal As Double
         Get
 
@@ -2165,7 +2180,7 @@ Partial Class Compras_Compras
 
             DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
             ''If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
-            'DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
+            DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
             ''End If
 
         End If
@@ -6310,7 +6325,7 @@ Partial Class Compras_Compras
                                                                         Funcionalidad = 313
                                                                         ConceptoContable = 248
                                                                     ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
-                                                                        Funcionalidad = 577
+                                                                        Funcionalidad = 578
                                                                         ConceptoContable = 285
                                                                     End If
 
@@ -6513,7 +6528,14 @@ Partial Class Compras_Compras
                                                                 Exit Select 'Es credito el concepto 6 se agrega en CASE 17
                                                             End If
 
-                                                            If Not CveCompraRefacturacion > 0 OrElse (ChkRefacNC.Checked) Then
+
+                                                            Dim DifSubTotatles As Decimal = 0D
+
+                                                            If CveCompraRefacturacion > 0 Then
+                                                                DifSubTotatles = Math.Abs(SubTotalRefacturacion - TxtSubTotal2.Text.ToDecimal)
+                                                            End If
+
+                                                            If DifSubTotatles > 0 Or (Not CveCompraRefacturacion > 0 OrElse (ChkRefacNC.Checked)) Then
                                                                 'AF TipoAF 2 Es para las compras
                                                                 DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2 And ISNULL(AplicaCostoIndirecto,0) <> 1 ")
                                                                 If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
@@ -8963,7 +8985,7 @@ Partial Class Compras_Compras
                                             IdCtaContable = 0
                                             Dim Concepto As String = String.Format("{0}-{1}", TxtSerie.Text, TxtFolio.Text)
                                             Dim importeMN As Decimal = 0
-                                            Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1)
+                                            Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1)
                                             Dim PorcentajeImpuesto As Decimal = 0
                                             Dim ConceptoPartida As String = String.Format("{0}-{1}", TxtSerie.Text, TxtFolio.Text)
 
@@ -10582,7 +10604,7 @@ Partial Class Compras_Compras
                 Dim importeMovimiento As Decimal = 0
                 Dim IdCtaContable As Integer = 0
                 Dim importeMN As Decimal = 0
-                Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1)
+                Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1)
                 Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
 
                 Select Case ConceptoContable
@@ -14722,14 +14744,19 @@ Partial Class Compras_Compras
 
     Private Sub DdlRefacturacionFacturas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlRefacturacionFacturas.SelectedIndexChanged
 
+        SubTotalRefacturacion = 0.0D
+
         If DdlRefacturacionFacturas.SelectedValue.ToEntero > 0 Then
             Dim dr As DataRow = DtRefacturacion.FiltroPrimero(String.Format("CveCompra ={0}", DdlRefacturacionFacturas.SelectedValue))
             If dr IsNot Nothing Then
 
                 HdnRefacturacionConcepto.Value = dr("CveConceptoContableAlmacen").ToString
                 ChkRefacturacionConAlmacen.Checked = If(dr("CveMovimientoAlmacen").ToString.ToEntero > 0, True, False)
+                SubTotalRefacturacion = dr("SubTotal").ToString.ToDecimal
             End If
 
+
+
         End If
 
     End Sub
@@ -17502,8 +17529,8 @@ Partial Class Compras_Compras
 
         'RETENCIONES
         Dim Retenciones = 0D
-        Retenciones = TxtRetIVA.Text.ToDecimal
-        Retenciones += TxtRetISR.Text.ToDecimal
+        Retenciones = RetIVA.ToDecimal
+        Retenciones += RetISR.ToDecimal
 
 
         SubTotal2 = SubTotal - Descuentos ' - Amortizacion '[IPP] COMENTADO CASO JAM 12653 CON NC 27122 | 23/MAYO/2018
@@ -18394,7 +18421,7 @@ Partial Class Compras_Compras
                 End If
 
             Next
-                TmpDT.AcceptChanges()
+            TmpDT.AcceptChanges()
             'Else
             '    Retorno = False
             'End If