|
|
| Returns string from TextField, number of characters and start position specified as arguments |
 |
| Namer |
any Vc record, in example LTxtVc type record |
| pos |
Position from which we start to get string from TextField |
| chars |
Number of characters to be taken from TextField |
|
global
procedure PasteLTxttoAgreement(record AgreementVc Agreementr)
BEGIN
record LTxtVc LTxtr;
string 255 tstr;
Integer pos,textsize;
LTxtr.Code = Agreementr.LTxtCode;
if (ReadFirstMain(LTxtr,1,true)) then begin
textsize = SizeTextCnt(LTxtr);
while (pos<textsize) begin
tstr = StringFromText(LTxtr,pos,255);
pos = pos + len(tstr);
if (len(tstr)==0) then begin
pos = pos + 1;
end;
AddToText(tstr,Agreementr);
end;
end;
RETURN;
END;
««