|
<div class='CALtop'>C/AL</div><div class='CAL'>
var
TableID Integer
NewCompanyName Text 30
CopyTable Boolean
FromTable RecordRef
ToTable RecordRef
FromFilds FieldRef
ToFields FieldRef
FieldTable Record Field
FromTable.OPEN(TableID,FALSE,NewCompanyName);
ToTable.OPEN(TableID,FALSE,COMPANYNAME);
IF FromTable.FIND('-') THEN BEGIN
REPEAT
FieldTable.RESET;
FieldTable.SETRANGE(TableNo,TableID);
IF FieldTable.FIND('-') THEN BEGIN
REPEAT
FromFilds:= FromTable.FIELD(FieldTable."No.");
ToFields:=ToTable.FIELD(FieldTable."No.");
ToFields.VALUE:=FromFilds.VALUE;
UNTIL FieldTable.NEXT=0;
END;
ToTable.INSERT();
UNTIL FromTable.NEXT = 0;
END;
END;
</div>
такая конструкция работает железно. Теперь можно любую табличку между фирмами на лету копировать. Думаю будет удобна при создание новой фирмы и копирование настроек из текушей.
Спасибо.
|