diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 1b9b7f52a..b0c19e93b 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -4937,8 +4937,8 @@
- Productos
- Gastos
+ <%-- Productos
+ Gastos--%>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 8af09f525..f2811f6ab 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8040,7 +8040,7 @@ Partial Class Compras_Compras
If UsuarioActual.Empresa.UsaAC Then
MsgAccionAceptar = String.Format("window.opener.location.href = window.opener.location.href; window.open(""/Contabilidad/RegPoliza.aspx?IdPoliza={0}""); window.close();", IdPoliza)
Else
- MsgAccionAceptar = "If (window.opener){window.opener.location.href = window.opener.location.href; window.close();}"
+ MsgAccionAceptar = "if (window.opener){window.opener.location.href = window.opener.location.href; window.close();}"
End If
Else
MsgAccionAceptar = "location.href =""Compras.aspx"""
@@ -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
diff --git a/Inventarios/Fletes.aspx b/Inventarios/Fletes.aspx
index eae300818..ca81061e9 100644
--- a/Inventarios/Fletes.aspx
+++ b/Inventarios/Fletes.aspx
@@ -140,6 +140,7 @@
+