AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-01-13 10:04:26 -07:00
parent 0433081d49
commit 838d26f641
2 changed files with 17 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Ventas/Ventas.aspx
View File

@@ -1372,7 +1372,7 @@
<td>
<asp:Label ID="LblRetIVA" runat="server" BorderStyle="None" Text="0.00"></asp:Label>&nbsp;(%)
</td>
<td>
<%-- <td>
<asp:DropDownList ID="DdlTipoRetencion" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoRetencion_SelectedIndexChanged" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPago" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Sin Retención" Value="0"></asp:ListItem>
<asp:ListItem Text="Arrendamiento" Value="1"></asp:ListItem>
@@ -1380,7 +1380,8 @@
<asp:ListItem Text="Fletes" Value="3"></asp:ListItem>
<asp:ListItem Text="Servicios" Value="4"></asp:ListItem>
</asp:DropDownList>
</td>
</td>--%>
<td></td>
</tr>
<tr id="TrRetISR" runat="server" align="right" style="display: none;">

28
Ventas/Ventas.aspx.vb
View File

@@ -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