Merge branch 'master' of http://192.168.10.111:8383/SIG

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2307,6 +2307,7 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
         Dim ObjOC As New ClsOC(ObjInventario.IniciaTransacSQL())
         Dim ObjAcum As New ClsAcumuladores(ObjInventario.IniciaTransacSQL())
+        Dim ObjVentas As New ClsVentas(ObjInventario.IniciaTransacSQL())
         Dim ObjContaAC As ClsContPAQi = Nothing
         Dim ObjContaContPAQ As ClsContPAQi = Nothing
 
@@ -2629,6 +2630,36 @@ Partial Class Inventarios_RecepcionAlmacen
                                     If Not ErrorMovInv Then
                                         MovtosEntradaExA.Add(MovEntradaExA.CveMovimiento)
                                         FoliosEntradaExA.Add(MovEntradaExA.Folio)
+
+                                        'SI LA REMISION FUE FACTURADA GENERA EL MOVIMIENTO DE SALIDA DIRECTA
+                                        If ObjFactura.DtRemisionesDocumentosRelacionados.Rows.Count > 0 Then
+                                            If ObjVentas.VerificarRemisionFacturada(ObjFactura.CveVenta) Then
+
+                                                Dim dttsalida As DataTable = dttexa.Copy
+                                                'se limpia la seccion, para que lo tome automaticamente
+                                                For Each drr As DataRow In dttsalida.Rows
+                                                    Dim RowFactura As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVentaDetalleRemision={drr("CveVentaDetalle")}")
+                                                    drr("CveVentaDetalle") = RowFactura("CveVentaDetalleFacturada")
+                                                    drr("CveVenta") = RowFactura("CveVenta")
+                                                Next
+
+                                                For Each DrFactura As DataRow In Dt.FiltraParametros("", DistinctColumns:={"CveVenta"}).Rows
+                                                    Dim dtSalidaFactura As DataTable = dttsalida.FiltraParametros($"CveVenta={DrFactura("CveVenta")}")
+                                                    Dim MovSalidaDirectaExA = GenerarMovimientoAlmacenVenta(ObjFactura.CveAlmacenTraspasoDestino, 40, DrFactura("CveVenta").ToString().ToEntero(), MovEntradaExA.CveMovimiento, dtSalidaFactura, ObjInventario, ObjConta, ObjContaContPAQ, False, "RA/G2R3")
+
+                                                    ErrorMovInv = MovSalidaDirectaExA.CveMovimiento <= 0
+
+                                                    If ErrorMovInv Then
+                                                        Exit For
+                                                    Else
+                                                        MovtosSalidaDirecta.Add(MovSalidaDirectaExA.CveMovimiento)
+                                                        FoliosSalidaDirecta.Add(MovSalidaDirectaExA.Folio)
+                                                    End If
+
+                                                Next
+
+                                            End If
+                                        End If
                                     End If
 
                                 End If
@@ -3459,6 +3490,8 @@ Partial Class Inventarios_RecepcionAlmacen
                     link = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", MovtosSalidaDirecta(index), FoliosSalidaDirecta(index))
                     Msg.AppendFormat("<br/>Movimiento de Salida Folio: <b>{0}</b>", link)
                 Next
+
+
             End If
 
             'APARTADO