I'm trying to get this script to run, but LazReport is not creating the variables. I saw in a prior post that running a script in a masterdata band will create variables however only the first variable is created. I tried shifting the statements around, but again only the first is created.
Am I missing something. not doing something right? What is the correct way I can make this script create all the variables?
BMONTH:=MONTHOF([SysParm."UPDATE_DATE"]);
BILLYEAR:=STR(YEAROF([SysParm."UPDATE_DATE"]))+'-'+STR(BMONTH);
DLQ :=0.0;
CDUE:=0.0;
PMT:=0.0;
LATE_FEE:=0;
NONMEMBER:=Pos('N',[Lot_ID."Flags"]);
GOLDEN:=Pos('G',[Lot_ID."Flags"]);
LIENED:=Pos('L',[Lot_ID."Flags"]);
AD1:=[Names."LNAME_CO"]+', '+[Names."FNAME"];
if [LENGTH([Names."CARE_OF"])]>0 then
Begin
AD2:=[Names."CARE_OF"]
AD3:=[Addr."ADDRESS"];
AD4:=[Addr."CITY"]+', '+ [Addr."STATE"]+' '+ [Addr."ZIP"]];
if not [COMPARESTR([Addr."COUNTRY"], ['USA'])=0] then
begin
AD5:=[Addr."COUNTRY"]
end
else
begin
AD5:='';
end;
end else begin
AD2:=[Addr."ADDRESS"];
AD3:=[Addr."CITY"]+', '+ [Addr."STATE"]+' '+ [Addr."ZIP"]];
if not [COMPARESTR([Addr."COUNTRY"], ['USA'])=0] then
begin
AD4:=[Addr."COUNTRY"]
end
else
begin
AD4:='';
end;
AD5:='';
end;
MSG1:='. Highway Lot - NO PAYMENT REQUIRED';
MSG2:='Your Property has been Liened because of non-payment of Fees';
MSG3:='. Fee Required to File the Lien Release - $'+FORMATFLOAT([#0.00], [SysParam."Lien_R_Fee"]);
MSG4:='. Your Balance is Zero - NO PAYMENT RTEQUIRED';
MSG5:='. *** Your Account is Past Due ***';
MSGL1:='*** A 12% Late Fee will be charged if not paid by the due date ***';
MSGL2:='*** A 12% Late Fee has been added to the DUE amount above ***';
Thanks.