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

Descuento de NC en costo indirecto

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-03-30 13:44:54 -07:00
parent f60f84653a
commit 102feb4887
3 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Compras/Compras.aspx
View File

@@ -4937,8 +4937,8 @@
<label class="col-md-2" style="margin-top: 5px;">Factura de:</label>
<div class="col-md-6" align="center">
<asp:RadioButtonList ID="RblFleteImportacionOpcion" CssClass="iradio_square-blue" runat="server" RepeatDirection="Horizontal" Width="100%">
<asp:ListItem Value="1" Selected="True">Productos</asp:ListItem>
<asp:ListItem Value="2">Gastos</asp:ListItem>
<%-- <asp:ListItem Value="1" Selected="True">Productos</asp:ListItem>
<asp:ListItem Value="2">Gastos</asp:ListItem>--%>
</asp:RadioButtonList>
</div>
</div>

8
Compras/Compras.aspx.vb
View File

@@ -19089,6 +19089,7 @@ Partial Class Compras_Compras
Private Sub CargaCombosFletesImportaciones()
DdlFletes.Items.Clear()
DdlImportaciones.Items.Clear()
RblFleteImportacionOpcion.Items.Clear()
Dim ObjCompras As New ClsCompras
If ObjCompras.GetImportaciones(-1, -1, -1, "-1", "-1", UsuarioActual.CveEmpresa) Then
@@ -19107,6 +19108,13 @@ Partial Class Compras_Compras
DdlImportaciones.DataBind()
DdlFletes.DataBind()
If DdlTipoComprobante.SelectedValue = "NC" Then
RblFleteImportacionOpcion.Items.Insert(0, New ListItem("Gastos", "2"))
Else
RblFleteImportacionOpcion.Items.Insert(0, New ListItem("Productos", "1"))
RblFleteImportacionOpcion.Items.Insert(1, New ListItem("Gastos", "2"))
End If
End Sub
Private Sub LnkFletesImportaciones_Click(sender As Object, e As EventArgs) Handles LnkFletesImportaciones.Click