Ventas/Ventas.aspx.vb

@@ -4737,7 +4737,7 @@ Partial Class Ventas
                 End If
                 ViewState("CargoUsado") = ObjCliente.CargoUsados
 
-                DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString)
+                'DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString)
 
                 Dim dr As DataRow = Nothing
                 dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal = 1 And Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -23986,19 +23986,19 @@ Partial Class Ventas
 
         Return Retorno
     End Function
-    Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs)
-        Dim PorcentajeRetencion As Decimal = 0
-        Select Case DdlTipoRetencion.SelectedValue
-            Case "1" 'Arrendamiento
-                PorcentajeRetencion = 10
-            Case "2" 'Servicios Profesionales
-                PorcentajeRetencion = 10
-            Case "3" 'Fletes
-                PorcentajeRetencion = 4
-            Case "4" 'Servicios
-                PorcentajeRetencion = 6
-        End Select
+    'Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs)
+    '    Dim PorcentajeRetencion As Decimal = 0
+    '    Select Case DdlTipoRetencion.SelectedValue
+    '        Case "1" 'Arrendamiento
+    '            PorcentajeRetencion = 10
+    '        Case "2" 'Servicios Profesionales
+    '            PorcentajeRetencion = 10
+    '        Case "3" 'Fletes
+    '            PorcentajeRetencion = 4
+    '        Case "4" 'Servicios
+    '            PorcentajeRetencion = 6
+    '    End Select
 
-    End Sub
+    'End Sub
 
 End Class