-- recepcion por costo indirecto de multiples facturas(fletes)

Inventarios/RecepcionAlmacen.aspx.vb

@@ -613,6 +613,8 @@ Partial Class Inventarios_RecepcionAlmacen
             Case 4
                 LblFletes.Visible = True
                 DivFletes.Visible = True
+                LblIndirectoFactura.Visible = True
+                DivDdlIndirectoFactura.Visible = True
         End Select
 
         CargaFoliosRecepcion()
@@ -711,6 +713,30 @@ Partial Class Inventarios_RecepcionAlmacen
         DdlFletes.DataBind()
         DdlFletes.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
+
+    Protected Sub DdlFletes_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaFletesFactura()
+    End Sub
+    Private Sub CargaFletesFactura()
+
+        DdlIndirectoFactura.Items.Clear()
+
+        Dim ObjInventarios As New ClsInventarios
+        If DdlFletes.SelectedValue.ToEntero > 0 Then
+            If ObjInventarios.GetFletesCompras(DdlFletes.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+                DdlIndirectoFactura.DataSource = ObjInventarios.DtResultados
+            Else
+                Alert("Ocurrió un error al obtener las Compras pendientes de recibir del proveedor. Por favor vuelva a intentar", TipoMensaje.MsgError)
+            End If
+        End If
+        ObjInventarios.Dispose()
+
+        DdlIndirectoFactura.DataBind()
+        DdlIndirectoFactura.Items.Insert(0, New ListItem("Todos", "-1"))
+
+    End Sub
+
+
 #End Region
 
 #Region "  CARGA POR SURTIR - GV  "
@@ -1119,7 +1145,7 @@ Partial Class Inventarios_RecepcionAlmacen
             If ObjInventario.DtResultados.Rows.Count > 0 Then
                 CveFleteSurtir = pCveImportacion
                 CveFleteOrdenCompra = ObjInventario.DtResultados.Rows(0)("CveOC").ToString.ToEntero
-                CveFleteCompra = ObjInventario.DtResultados.Rows(0)("CveCompra").ToString.ToEntero
+                CveFleteCompra = DdlIndirectoFactura.SelectedValue.ToEntero 'ObjInventario.DtResultados.Rows(0)("CveCompra").ToString.ToEntero
                 CveImportacionCompra = CveFleteCompra ' se iguala para que al guardar el movimiento, se toma esta variable
                 LbProveedor.Text = ObjInventario.DtResultados.Rows(0)("RazonSocial").ToString
                 HLFolio.Text = ObjInventario.DtResultados.Rows(0)("Folio").ToString