|
|
| Returns string by number from string set defined in startup event |
 |
| SetNumber |
Number of set defined in startup event |
| StrNumber |
Number of element in set |
|
external procedure PrintValue(string,val,Integer,record LangNrVc,record SysFormatBlock,Boolean);
procedure PrintCLInRows(record CLInVc CLInr,record SysFormatBlock SysFormatRec,record LangNrVc LangNrr)
BEGIN
row CLInVc CLInrw;
Integer i,rwcnt;
rwcnt = MatRowCnt(CLInr);
for (i=0;i<rwcnt;i=i+1) begin
MatRowGet(CLInr,i,CLInrw);
if (CLInrw.Type!=0) then begin
OUTFORMFIELD("F_INVOICENR",CLInrw.TransNr);
OUTFORMFIELD("F_ORDERNUMMER",CLInrw.OrderNr);
end;
OUTFORMFIELD("F_PAYMODE2",CLInrw.CorspCode);
OUTFORMFIELD("F_OBJECT",CLInrw.Objects);
OUTFORMFIELD("F_TEXTTYPE",StringFromSet(66,CLInrw.Type));
OUTFORMFIELD("F_COMPANY",CLInrw.Company);
OUTFORMFIELD("F_SPECIFIKATION",CLInrw.Comment);
PrintValue("F_BELOPP",CLInrw.Sum,M4Val,LangNrr,SysFormatRec,false);
EndFormRow;
end;
RETURN;
END;
««