Ventas/Ventas.aspx.vb

@@ -4734,6 +4734,8 @@ Partial Class Ventas
                 End If
                 ViewState("CargoUsado") = ObjCliente.CargoUsados
 
+                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)
                 If dr IsNot Nothing Then
@@ -23978,5 +23980,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
+
+    End Sub
 
 End Class