|
Sets the LoopRecord loop position for any looping function (ex. LoopMain) to a certain point. |
|
LoopRecord |
The record that is being looped through either with LoopMain, LoopKey, etc. Starts from 0. |
LoopPosition |
An integer value that represents the new loop position for the LoopRecord. |
|
procedure ExpSIEDim()
BEGIN
record OTVc OTr;
Boolean found;
Integer nr;
SetLoopPosition(OTr,0);
found = true;
while (LoopMain(OTr,1,found)) begin
ExportString("#DIM");
nr = GetDimNr(OTr.Code);
ExportString(nr);
ExpSIEpString3(OTr.Comment,255);
ExportPadString(chr(13) & Chr(10),2,"",false);
end;
RETURN;
END;
««