-

Ventas/Ventas.aspx.vb

@@ -4739,6 +4739,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
@@ -23996,5 +23998,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