Share
Report
98Howto transfer custom (pnumber) field from WH Shipment header to posted sales shipment/Sales Shipment Header on posting Wh shipment.
Fields are in both tables already.
Now I have but is is not copying field.
[EventSubscriber(ObjectType::Codeunit, Codeunit::/Whse.-Post Shipment/, 'OnInitSourceDocumentHeaderOnBeforeSalesHeaderModify', '', false, false)]
local procedure CopyProNumberToSalesShipment(var SalesHeader: Record /Sales Header/; WarehouseShipmentHeader: Record /Warehouse Shipment Header/)
var
WarehouseShipmentHeaderExt: Record /Warehouse Shipment Header/ temporary;
SalesShipmentHeaderExt: Record /Sales Shipment Header/ temporary;
begin
WarehouseShipmentHeaderExt.SetRange(/No./, WarehouseShipmentHeader./No./);
if WarehouseShipmentHeaderExt.FindFirst() then begin
SalesShipmentHeaderExt.SetRange(/No./, SalesHeader./No./);
if SalesShipmentHeaderExt.FindFirst() then begin
SalesShipmentHeaderExt./PNumber/ := WarehouseShipmentHeaderExt./PNumber/;
SalesShipmentHeaderExt.Modify();
end;
end;
end;
local procedure CopyProNumberToSalesShipment(var SalesHeader: Record /Sales Header/; WarehouseShipmentHeader: Record /Warehouse Shipment Header/)
var
WarehouseShipmentHeaderExt: Record /Warehouse Shipment Header/ temporary;
SalesShipmentHeaderExt: Record /Sales Shipment Header/ temporary;
begin
WarehouseShipmentHeaderExt.SetRange(/No./, WarehouseShipmentHeader./No./);
if WarehouseShipmentHeaderExt.FindFirst() then begin
SalesShipmentHeaderExt.SetRange(/No./, SalesHeader./No./);
if SalesShipmentHeaderExt.FindFirst() then begin
SalesShipmentHeaderExt./PNumber/ := WarehouseShipmentHeaderExt./PNumber/;
SalesShipmentHeaderExt.Modify();
end;
end;
end;
Categories:
All responses (
Answers (
