Hi all,
Currently I am creating a custom table Temporary Sales Price, its purpose is to autosave and write the data from this custom table Temporary Sales Price into the Sales price table of Business Central.
I have planned to use a CodeUnit for copying of field data from the custom Table to the standard Sales price table.
I have problems finding a better code to the current codeunit, which will make it more efficient in copying the correct fields from table Temporary Sales Price to Sales price.
So far my CodeUnit Code is as below:
codeunit 51000 "Temp Sales Price"
{
TableNo = "Sales Price";
var
CpySalesPrice: Record "Sales Price";
trigger OnRun()
begin
CopyRows()
end;
// trigger OnRun()
// var
// Temp: Record "Temp Sales Price";
// begin
// Temp.Init();
// Temp.Validate("Item No.", 'Placed in Job Queue');
// Temp.Insert(true);
// end;
procedure CopyRows()
var
FromTable: Record "Temp Sales Price";
ToTable: Record "Sales Price";
begin
if FromTable.Find() then
repeat
ToTable."Item No." := FromTable."Item No.";
ToTable."Sales Code" := FromTable."Sales Code";
ToTable."Currency Code" := FromTable."Currency Code";
ToTable."Starting Date" := FromTable."Starting Date";
ToTable."Unit Price" := FromTable."Unit Price";
ToTable."Item No." := FromTable."Item No.";
ToTable."Price Includes VAT" := FromTable."Price Includes VAT";
ToTable."Item No." := FromTable."Item No.";
ToTable."Allow Invoice Disc." := FromTable."Allow Invoice Disc.";
ToTable."VAT Bus. Posting Gr. (Price)" := FromTable."VAT Bus. Posting Gr. (Price)";
ToTable."Sales Type" := FromTable."Sales Type";
ToTable."Minimum Quantity" := FromTable."Minimum Quantity";
ToTable."Ending Date" := FromTable."Ending Date";
ToTable."Coupled to CRM" := FromTable."Coupled to CRM";
ToTable."Unit of Measure Code" := FromTable."Unit of Measure Code";
ToTable."Variant Code" := FromTable."Variant Code";
ToTable."Allow Line Disc." := FromTable."Allow Line Disc.";
until FromTable.Next() = 0;
end;
}
I will provide more information if needed.
