|
![]() |
#1 |
Участник
|
![]() ![]() Вот код попроще: IF LineDimOption = LineDimOption::Item THEN BEGIN ItemBudgetEntry.RESET; IF ItemBudgetEntry.FINDFIRST THEN REPEAT Item.GET(ItemBudgetEntry."Item No."); tmpItem."No." := ItemBudgetEntry."Item No."; tmpItem.Description := Item.Description; IF tmpItem.INSERT THEN; UNTIL ItemBudgetEntry.NEXT = 0; END;
__________________
Want to believe... |
|