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 ***';
Sample code in in my first.Sorry to be pedantic: yes there is sample code in the first post. No, there is no project you can run that includes sample data, report definition etc. However, it's of course your choice how much effort you want to invest into posting questions. I myself tend to favour ready made example projects in order to exclude as much uncertainty as possible (and if needed, serve as possible bug report test cases) but a lot of questions have less and do get answered.
Lazarus version 1.1, FPC 2.7.1, Win7-64. Big Chimp, This is the version you suggested to me in another post.Could be depending on what you wrote in that other post. Normally I'd probably recommend using stable FPC with either latest SVN/dev Lazarus or latest stable Lazarus.
If this is not current, I could update.
Any way do you have any suggestions for my coding?No, sorry, haven't used Lazreport in anger, really. I'd make sure you have the latest Laz+Lazreport as Lazreport does get quite some fixes.
begin
// Your script code here
end;
if [[PAY]>0] then begin
if[[LATE_FEE]=1] then Text:=[MSGL2];
else Text:= [MSGL1];
end;
if[[LATE_FEE]=1] then Text:=[MSGL2];
else Text:= [MSGL1];
If you are using only trunk please also give the revision you are using, because trunk is a moving target.
Such things can be caused at any given moment and also can disappear at any given moment.