-- se quita propiedad: EsOutSourcing

Ventas/Ventas.aspx.vb

@@ -8496,13 +8496,7 @@ Partial Class Ventas
             Dim ClienteRetIVA = Me.ClienteRetIVA
 
             If ClienteRetIVA <= 0 Then
-                If TmpDT.Rows(e.RowIndex)("EsOutSourcing").ToString() <> "" AndAlso CBool(TmpDT.Rows(e.RowIndex)("EsOutSourcing").ToString()) Then
+                If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
-                    ClienteRetIVA = 0.06D
-                    DdlTipoRetencion.SelectedValueExist("4")
-                    LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero
-                    TrRetIVA.Style.Add("display", "")
-                    DdlTipoRetencion.Visible = True
-                ElseIf DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
                     ClienteRetIVA = 0.106667D
                 ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
                     ClienteRetIVA = 0.04D
@@ -19200,10 +19194,7 @@ Partial Class Ventas
             End If
 
             If ClienteRetIVA <= 0 Then
-                If CBool(DrPS("EsOutSourcing").ToString()) Then
+                If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
-                    ClienteRetIVA = 0.06D
-                    DdlTipoRetencion.SelectedValueExist("4")
-                ElseIf DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
                     ClienteRetIVA = 0.106667D
                 ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
                     ClienteRetIVA = 0.04D
@@ -19258,7 +19249,6 @@ Partial Class Ventas
             Row("CveVentaDetalleCotizacion") = CveVentaDetalleCotizacion
             Row("CveVentaDetallePedido2") = CveVentaDetallePedido2
             Row("CuentaPredial") = CuentaPredial
-            Row("EsOutSourcing") = DrPS("EsOutSourcing")
             Row("EsCargo") = EsCargo
 
             If TmpDT.Columns.Contains("CveMarca") Then
@@ -19510,8 +19500,6 @@ Partial Class Ventas
 
         TmpDT.Columns.Add("CveTamaño", GetType(Integer))
         TmpDT.Columns.Add("CveConcepto", GetType(Integer))
-
-        TmpDT.Columns.Add("EsOutSourcing", GetType(Boolean))
         TmpDT.Columns.Add("EsCargo", GetType(Boolean))
         TmpDT.Columns.Add("CveVentaDetalleRNC", GetType(Integer))
 
@@ -19526,14 +19514,11 @@ Partial Class Ventas
         TmpDT.Columns.Add("CveActivoFijo", GetType(Integer))
         TmpDT.Columns.Add("AFDepreciacion", GetType(Decimal))
         TmpDT.Columns.Add("AFValorInicial", GetType(Decimal))
-
-        TmpDT.Columns("EsOutSourcing").DefaultValue = False
         TmpDT.Columns("EsCargo").DefaultValue = False
 
         TmpDT.Columns("TieneProntoPago").DefaultValue = "No"
         TmpDT.Columns("ImporteProntoPago").DefaultValue = 0
 
-
     End Sub
     Private Sub CreaDTmpC()
         DTmpC = New DataTable
@@ -34446,8 +34431,6 @@ Partial Class Ventas
                             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
                         ElseIf DdlTipoRetencion.SelectedValue.Contiene("0") Then
                             tClienteRetIVA = 0.00D
                         End If