diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 2ff6dbdb5..65c6a5138 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1372,7 +1372,7 @@  (%) - +<%-- @@ -1380,7 +1380,8 @@ - + --%> + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 0560c68a9..48155a9b4 100644 --- a/Ventas/Ventas.aspx.vb +++ b/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 \ No newline at end of file