|
|
| Prints a string into specified report column and adds the possibility to send additional value to the drill-down function |
 |
| Position |
Print position or column id that has been set with SetRepCol |
| FunctionName |
Name of the Drill-down function that will be called when the report value is clicked on |
| PrintString |
Text that will be printed on the report. |
| Alignment |
Alignment of the text in the frames of specified report column. true - align to right, false - to left |
| AdditionalValue |
Additional string value that will be passed to the drill-down function. |
|
procedure RepAct(record RcVc RepSpec,record ActVc Actr,Integer sortord)
BEGIN
Integer i,rwcnt;
row ActVc Actrw;
if (sortord==0) then begin// pr. customer
StartFormat(15);
if (Actr.OKFlag==0) then begin
OutString(0,0,"",false);
end else begin
OutString(0,0,USetStr(10115),false);
end;
OutStringID(0,"DblActRec",Actr.TransDate,false,Actr.SerNr);//DblActRec
OutString(70,0,Actr.ActType,false);
OutString(120,"DblPersAct",Actr.MainPersons,false);//DblPersAct
OutString(180,0,Actr.Contact,false);
if (WrapAndPrint(300,Actr.Comment,28)) then begin
EndFormat;
end;
if (RepSpec.ArtMode==1) then begin
rwcnt = MatRowCnt(Actr);
for (i=0; i<rwcnt ;i=i+1) begin
MatRowGet(Actr,i,Actrw);
StartFormat(15);
OutString(80,0,Actrw.TextCode,false);
if (WrapAndPrint(140,Actrw.Text,70)) then begin
EndFormat;
end;
end;
PrintFirstLineOfNote(Actr);
end;
end;
if (sortord==1) then begin// pr. person
StartFormat(15);
if (Actr.OKFlag==0) then begin
OutString(0,0,"",false);
end else begin
OutString(0,0,USetStr(10115),false);
end;
OutStringID(50,"DblActRec",Actr.TransDate,false,Actr.SerNr);//DblActRec
OutString(120,0,Actr.ActType,false);
OutString(160,"DblCustAct",Actr.CUCode,false);//DblCustAct
OutString(210,0,Actr.Contact,false);//DblCustAct
if (WrapAndPrint(340,Actr.Comment,28)) then begin
EndFormat;
end;
if (RepSpec.ArtMode==1) then begin
rwcnt = MatRowCnt(Actr);
for (i = 0 ; i<rwcnt ;i=i+1) begin
MatRowGet(Actr,i,Actrw);
StartFormat(15);
OutString(80,0,Actrw.TextCode,false);
if (WrapAndPrint(140,Actrw.Text,70)) then begin
EndFormat;
end;
end;
PrintFirstLineOfNote(Actr);
end;
end;
RETURN;
END;
|
««