Descuento de NC en costo indirecto

Compras/Compras.aspx.vb

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