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> <td>
<asp:Label ID="LblRetIVA" runat="server" BorderStyle="None" Text="0.00"></asp:Label>&nbsp;(%) <asp:Label ID="LblRetIVA" runat="server" BorderStyle="None" Text="0.00"></asp:Label>&nbsp;(%)
</td> </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: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 Selected="True" Text="Sin Retención" Value="0"></asp:ListItem>
<asp:ListItem Text="Arrendamiento" Value="1"></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="Fletes" Value="3"></asp:ListItem>
<asp:ListItem Text="Servicios" Value="4"></asp:ListItem> <asp:ListItem Text="Servicios" Value="4"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</td> </td>--%>
<td></td>
</tr> </tr>
<tr id="TrRetISR" runat="server" align="right" style="display: none;"> <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 End If
ViewState("CargoUsado") = ObjCliente.CargoUsados ViewState("CargoUsado") = ObjCliente.CargoUsados
DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString) 'DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString)
Dim dr As DataRow = Nothing Dim dr As DataRow = Nothing
dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal = 1 And Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa) 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 Return Retorno
End Function End Function
Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs) 'Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs)
Dim PorcentajeRetencion As Decimal = 0 ' Dim PorcentajeRetencion As Decimal = 0
Select Case DdlTipoRetencion.SelectedValue ' Select Case DdlTipoRetencion.SelectedValue
Case "1" 'Arrendamiento ' Case "1" 'Arrendamiento
PorcentajeRetencion = 10 ' PorcentajeRetencion = 10
Case "2" 'Servicios Profesionales ' Case "2" 'Servicios Profesionales
PorcentajeRetencion = 10 ' PorcentajeRetencion = 10
Case "3" 'Fletes ' Case "3" 'Fletes
PorcentajeRetencion = 4 ' PorcentajeRetencion = 4
Case "4" 'Servicios ' Case "4" 'Servicios
PorcentajeRetencion = 6 ' PorcentajeRetencion = 6
End Select ' End Select
End Sub 'End Sub
End Class End Class