This commit is contained in:
2020-11-13 20:55:48 -07:00
38 changed files with 2376 additions and 563 deletions

View File

@@ -2621,7 +2621,13 @@ Partial Class Inventarios_RecepcionAlmacen
MovtosSalidaDirecta.Add(MovSalidaExA.CveMovimiento)
FoliosSalidaDirecta.Add(MovSalidaExA.Folio)
Dim MovEntradaExA = GenerarMovimientoAlmacenVenta(ObjFactura.CveAlmacenTraspasoDestino, 9, ObjFactura.CveVenta, MovSalidaExA.CveMovimiento, DtDetalleMovimiento, ObjInventario, ObjConta, ObjContaContPAQ, False, "RA/G2R2")
Dim dttexa As DataTable = DtDetalleMovimiento.Copy
'se limpia la seccion, para que lo tome automaticamente
For Each drr As DataRow In dttexa.Rows
drr("CveSeccionAlmacen") = -3
Next
Dim MovEntradaExA = GenerarMovimientoAlmacenVenta(ObjFactura.CveAlmacenTraspasoDestino, 9, ObjFactura.CveVenta, MovSalidaExA.CveMovimiento, dttexa, ObjInventario, ObjConta, ObjContaContPAQ, False, "RA/G2R2")
ErrorMovInv = MovEntradaExA.CveMovimiento <= 0