|
|
| Prints a date value 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 |
Date value 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. |
|
global
procedure CallHistRn(record RcVc RepSpec)
begin
record ActVc Actr;
Boolean found,testf;
string 255 frcu,tocu;
frcu = FirstInRange(RepSpec.f1,20);
tocu = LastInRange(RepSpec.f1,20);
StartReportJob(USetStr(16570));
CallHistHeader(RepSpec,frcu,tocu);
EndHeader;
StartFormat(15);
OutString(0,0,USetStr(16571),false);
OutString(70,0,USetStr(16572),false);
OutString(120,0,USetStr(16573),false);
OutString(190,0,USetStr(16575),false);
OutString(260,0,USetStr(16574),false);
EndFormat;
Gray_Divider(0,1);
found = true;
Actr.CUCode = frcu;
Actr.TransDate = RepSpec.sStartDate;
while (LoopKey("CUCode",Actr,2,found)) begin
if (nonblank(RepSpec.f1)) then begin
if (Actr.CUCode>tocu) then begin found = false; end;
end;
if (Actr.TransDate>RepSpec.sEndDate) then begin
found = false;
end;
if (found) then begin
testf = true;
if (Actr.SymbNr!=1) then begin
testf = false;
end;
if (Actr.PrivateFlag!=0) then begin
testf = false;
end;
if (Actr.Invalid!=0) then begin
testf = false;
end;
if (testf) then begin
StartFormat(15);
OutDateID(0,"DblActVc",Actr.TransDate,false,Actr.SerNr);
OutString(70,0,Actr.StartTime,false);
OutString(120,0,Actr.EndTime,false);
OutString(190,0,Actr.CUCode,false);
OutString(260,0,Actr.Comment,false);
EndFormat;
end;
end;
end;
Gray_Divider(0,1);
EndJob;
return;
end;
|
««