diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 24724ab95..ade3b1824 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3771,6 +3771,7 @@ Partial Class Ventas
                                 InicializaDTAnticiposAmortizacion()
                                 ChkAplicaNCAnticipo.Enabled = False
                             Else
+                                ChkAplicaNCAnticipo.Enabled = False
                                 ChkAplicaNCAnticipo.Checked = False
                             End If
                             'If DbRowVenta("SaldoAnticipo").ToString().ToDouble <= 0 Then ChkAplicaNCAnticipo.Checked = False : ChkAplicaNCAnticipo.Enabled = False
@@ -25937,39 +25938,39 @@ Partial Class Ventas
         If CveVenta <= 0 OrElse EsCreaApartirDe Then
 
             If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
-                    For Each RowServicio As DataRow In TmpDT.Rows
-                        Dim tClienteRetIVA = ClienteRetIVA
-                        If tClienteRetIVA <= 0 Then
-                            If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
-                                tClienteRetIVA = 0.106667D
-                            ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
-                                tClienteRetIVA = 0.04D
-                            ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso CBool(RowServicio("EsOutSourcing").ToString()) Then
-                                tClienteRetIVA = 0.06D
-                            End If
-                            ViewState("ClienteRetIVA") = tClienteRetIVA
+                For Each RowServicio As DataRow In TmpDT.Rows
+                    Dim tClienteRetIVA = ClienteRetIVA
+                    If tClienteRetIVA <= 0 Then
+                        If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
+                            tClienteRetIVA = 0.106667D
+                        ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
+                            tClienteRetIVA = 0.04D
+                        ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso CBool(RowServicio("EsOutSourcing").ToString()) Then
+                            tClienteRetIVA = 0.06D
                         End If
-
-                        Dim TotalCalculableImpuestos As Decimal = (RowServicio("Cantidad").ToString().ToDecimal() * RowServicio("PU").ToString().ToDecimal()) - RowServicio("Descuento").ToString().ToDecimal()
-                        RowServicio("ImporteRetIVA") = (TotalCalculableImpuestos * ClienteRetIVA).RoundSQL()
-                        RowServicio("PorcentajeRetIVA") = ClienteRetIVA
-
-                    Next
-                    TxtRetIVA.Text = TmpDT.SUM("ImporteRetIVA").ToDecimal().FormatoNumero(2)
-                    Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100)
-                    LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2)
-                    If PorcentajeRetIVA > 0 Then
-                        TrRetIVA.Style.Add("display", "")
-                        UsuarioActual.Empresa.MostrarRetIVA = True
-                        DdlTipoRetencion.Visible = True
+                        ViewState("ClienteRetIVA") = tClienteRetIVA
                     End If
 
-                    GvPS.DataSource = TmpDT
-                    GvPS.DataBind()
-
+                    Dim TotalCalculableImpuestos As Decimal = (RowServicio("Cantidad").ToString().ToDecimal() * RowServicio("PU").ToString().ToDecimal()) - RowServicio("Descuento").ToString().ToDecimal()
+                    RowServicio("ImporteRetIVA") = (TotalCalculableImpuestos * ClienteRetIVA).RoundSQL()
+                    RowServicio("PorcentajeRetIVA") = ClienteRetIVA
 
+                Next
+                TxtRetIVA.Text = TmpDT.SUM("ImporteRetIVA").ToDecimal().FormatoNumero(2)
+                Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100)
+                LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2)
+                If PorcentajeRetIVA > 0 Then
+                    TrRetIVA.Style.Add("display", "")
+                    UsuarioActual.Empresa.MostrarRetIVA = True
+                    DdlTipoRetencion.Visible = True
                 End If
 
+                GvPS.DataSource = TmpDT
+                GvPS.DataBind()
+
+
+            End If
+
 
         End If
         UpPS.Update()
@@ -26166,7 +26167,7 @@ Partial Class Ventas
     Private Sub CargaAuxiliarClienteCxC(CveCliente As Integer, CveVenta As Integer)
         Dim ObjMovtos As New ClsMovimientos()
         If ObjMovtos.GetCxCClienteAuxiliar(CveCliente, CveVenta) Then
-            DtDatos = ObjMovtos.DtResultados
+            DTDatos = ObjMovtos.DtResultados
             GVAuxiliar.DataSource = ObjMovtos.DtResultados
         Else
             GVAuxiliar.DataSource = Nothing