<?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Version="2022.3" DotMatrixReport="False" EngineOptions.DoublePass="True" EngineOptions.NewSilentMode="simReThrow" IniFile="\Software\eStream\SQL Account\4\Fast Reports" PreviewOptions.Buttons="167935" PreviewOptions.Zoom="1" PreviewOptions.PictureCacheInFile="True" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="44952.618181794" ReportOptions.Description.Text="Datamap=TdvARPMListing&#13;&#10;GUID={9C123D5B-2DB7-41C1-B08C-252B28A95614}" ReportOptions.LastChange="44953.7477496991" ScriptLanguage="PascalScript" ScriptText.Text="Var AD : Extended;&#13;&#10;&#13;&#10;procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;    AD := 0;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo61OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if &#60;Parameter.&#34;GroupBy&#34;&#62; = 'CompanyName' then&#13;&#10;  Memo61.Text := 'Code' else&#13;&#10;  Memo61.Text := &#60;Parameter.&#34;GroupBy&#34;&#62;;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Header1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;Parameter.&#34;GroupBy&#34;&#62; = 'Code') or (&#60;Parameter.&#34;GroupBy&#34;&#62; = 'CompanyName') then&#13;&#10;  Memo62.Text := 'Customer Name' else&#13;&#10;  Memo62.Text := 'Description';&#13;&#10;end;&#13;&#10;&#13;&#10;procedure MasterData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;Var b : Boolean;&#13;&#10;&#13;&#10;begin&#13;&#10;   b :=  &#60;Main.&#34;DocAmt&#34;&#62; &#60;&#62; &#60;Main.&#34;Unapplied&#34;&#62;;&#13;&#10;&#13;&#10;   Memo47.visible := b;&#13;&#10;   Memo82.visible := b;&#13;&#10;   Memo48.visible := b;&#13;&#10;   Memo19.visible := b;&#13;&#10;   Memo85.visible := b;&#13;&#10;   Memo86.visible := b;&#13;&#10;   Memo87.visible := b;&#13;&#10;   Memo88.visible := b;&#13;&#10;   Memo89.visible := b;&#13;&#10;   Memo90.visible := b;&#13;&#10;end;&#13;&#10;&#13;&#10;Var a : Extended;&#13;&#10;    lGroupBy, Z : String;&#13;&#10;    fl,pl : TStringList;&#13;&#10;    i  : integer;&#13;&#10;&#13;&#10;function ValueOfSemiColonStr(const AStr: string; const AIndex: integer): string;&#13;&#10;var S: TStringList;&#13;&#10;begin&#13;&#10;  S := TStringList.Create;&#13;&#10;  try&#13;&#10;    S.Delimiter     := ';';&#13;&#10;    S.DelimitedText := AStr;&#13;&#10;    if AIndex &#60; S.Count then Result := S[AIndex]&#13;&#10;    else Result := '';&#13;&#10;  finally&#13;&#10;    S.Free;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;function StrToFloatDef(const lFld:Variant):string;&#13;&#10;begin&#13;&#10;  if Trim(lFld) &#60;&#62; '' then&#13;&#10;    Result := lFld else&#13;&#10;    Result := '0';&#13;&#10;end;&#13;&#10;&#13;&#10;function VarToFloatDef(const lFld:Variant):Extended;&#13;&#10;begin&#13;&#10;  if Trim(lFld) &#60;&#62; '' then&#13;&#10;    Result := lFld else&#13;&#10;    Result := 0;&#13;&#10;end;&#13;&#10;&#13;&#10;function FormatSQLDate(D: TDateTime): String;&#13;&#10;var AFormat: string;&#13;&#10;begin&#13;&#10;  AFormat := 'dd mmm yyyy'; //'dd/mmm/yyyy' if can't&#13;&#10;  Result := QuotedStr(FormatDateTime(AFormat, D));&#13;&#10;//If yr output for TxQuery use below coding&#13;&#10;//  AFormat :='dd/mm/yyyy';&#13;&#10;//  Result := '#'+FormatDateTime(AFormat, D)+'#';&#13;&#10;end;&#13;&#10;&#13;&#10;function EndOfAMth(dDate :TDateTime) :TDateTime;&#13;&#10;var D, M, Y: Word;&#13;&#10;begin&#13;&#10;  DecodeDate(dDate, Y, M, D);&#13;&#10;  Result := EncodeDate(Y, M, DaysInMonth(Y, M));&#13;&#10;end;&#13;&#10;&#13;&#10;function StartOfAMth(dDate :TDateTime) :TDateTime;&#13;&#10;var D, M, Y: Word;&#13;&#10;begin&#13;&#10;  DecodeDate(dDate, Y, M, D);&#13;&#10;  Result := EncodeDate(Y, M, 1);&#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;procedure SetUp;&#13;&#10;var SQL, S01, S02, S03, S04, S05, S06, S07, S08, S09, S10, S11, S12 : String;&#13;&#10;    M01a,M01b,M02a,M02b,M03a,M03b,M04a,M04b,&#13;&#10;    D01a,D01b,D02a,D02b,D03a,D03b,D04a,D04b : TDateTime;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;    M01a := StartOfAMth(&#60;Parameter.&#34;DateTo&#34;&#62;);&#13;&#10;    M01b := EndOfAMth(M01a);&#13;&#10;    M02a := M01b+1;           //1 month&#13;&#10;    M02b := EndOfAMth(M02a);  //1 month&#13;&#10;    M03a := M02b+1;           //2 month&#13;&#10;    M03b := EndOfAMth(M03a);  //2 month&#13;&#10;    M04a := M03b+1;           //3 month&#13;&#10;    M04b := EndOfAMth(M04a);  //3 month&#13;&#10;&#13;&#10;    D01a := StartOfAMth(&#60;Parameter.&#34;DateTo&#34;&#62;);&#13;&#10;    D01b := EndOfAMth(D01a);&#13;&#10;    D02a := StartOfAMth(D01a-1);  //-1 month&#13;&#10;    D02b := EndOfAMth(D02a);      //-1 month&#13;&#10;    D03a := StartOfAMth(D02a-1);  //-2 month&#13;&#10;    D03b := EndOfAMth(D03a);      //-2 month&#13;&#10;    D04a := StartOfAMth(D03a-1);  //-3 month&#13;&#10;    D04b := EndOfAMth(D04a);      //-3 month&#13;&#10;&#13;&#10;&#13;&#10;//======================OR===============================&#13;&#10;&#13;&#10; SQL := 'SELECT DocNo, Agent, CompanyCategory, DocAmt ' +&#13;&#10;        'FROM Main  ' +&#13;&#10;        'WHERE (PostDate &#62;= ''' + FormatDateTime('yyyy-mm-dd',D01a) + ''' ' +&#13;&#10;        'AND PostDate &#60;= ''' +  FormatDateTime('yyyy-mm-dd',D01b) + ''') ';&#13;&#10;  AddDataSet('pl_PayM01', ['DocNo', 'Agent', 'CompanyCategory', 'DocAmt'])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .LinkTo('Main', 'DocNo', 'DocNo');&#13;&#10;&#13;&#10; SQL := 'SELECT DocNo, Agent, CompanyCategory, DocAmt ' +&#13;&#10;        'FROM Main  ' +&#13;&#10;        'WHERE (PostDate &#62;= ''' + FormatDateTime('yyyy-mm-dd',D02a) + ''' ' +&#13;&#10;        'AND PostDate &#60;= ''' +  FormatDateTime('yyyy-mm-dd',D02b) + ''') ';&#13;&#10;  AddDataSet('pl_PayM02', ['DocNo', 'Agent', 'CompanyCategory', 'DocAmt'])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .LinkTo('Main', 'DocNo', 'DocNo');&#13;&#10;&#13;&#10; SQL := 'SELECT DocNo, Agent, CompanyCategory, DocAmt ' +&#13;&#10;        'FROM Main  ' +&#13;&#10;        'WHERE (PostDate &#62;= ''' + FormatDateTime('yyyy-mm-dd',D03a) + ''' ' +&#13;&#10;        'AND PostDate &#60;= ''' +  FormatDateTime('yyyy-mm-dd',D03b) + ''') ';&#13;&#10;  AddDataSet('pl_PayM03', ['DocNo', 'Agent', 'CompanyCategory', 'DocAmt'])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .LinkTo('Main', 'DocNo', 'DocNo');&#13;&#10;&#13;&#10; SQL := 'SELECT DocNo, Agent, CompanyCategory, DocAmt ' +&#13;&#10;        'FROM Main  ' +&#13;&#10;        'WHERE (PostDate &#62;= ''' + FormatDateTime('yyyy-mm-dd',D04a) + ''' ' +&#13;&#10;        'AND PostDate &#60;= ''' +  FormatDateTime('yyyy-mm-dd',D04b) + ''') ';&#13;&#10;  AddDataSet('pl_PayM04', ['DocNo', 'Agent', 'CompanyCategory', 'DocAmt'])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .LinkTo('Main', 'DocNo', 'DocNo');&#13;&#10;&#13;&#10; SQL := 'SELECT DocNo, Agent, CompanyCategory, DocAmt ' +&#13;&#10;        'FROM Main  ' +&#13;&#10;        'WHERE PostDate &#60; ''' + FormatDateTime('yyyy-mm-dd',D04a) + ''' ';&#13;&#10;  AddDataSet('pl_PayM05', ['DocNo', 'Agent', 'CompanyCategory', 'DocAmt'])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .LinkTo('Main', 'DocNo', 'DocNo');&#13;&#10;&#13;&#10;&#13;&#10;//======================IV+DN=================================&#13;&#10;&#13;&#10; SQL := 'SELECT DocKey, DocNo, DueDate, Code ' +&#13;&#10;        'FROM AR_IV ' +&#13;&#10;        'UNION ALL ' +&#13;&#10;        'SELECT DocKey, DocNo, DueDate, Code ' +&#13;&#10;        'FROM AR_DN ';&#13;&#10;  AddDataSet('pl_AR', ['DocKey', 'DocNo', 'DueDate', 'Code'])&#13;&#10;  .GetDBData(SQL)&#13;&#10;  .LinkTo('Document_KnockOff', 'ToDocKey', 'DocKey');&#13;&#10;&#13;&#10; SQL := 'SELECT A.ToDocKey, A.KOAmt KOAmt ' +&#13;&#10;        'FROM Document_KnockOff A ' +&#13;&#10;        'INNER JOIN pl_AR B ON (B.DOCKEY=A.TODOCKEY) AND (B.DocKey=A.ToDocKey) AND (B.DocNo=A.DocNo) ' +&#13;&#10;        'WHERE B.DueDate &#62; ''' +  FormatDateTime('yyyy-mm-dd',D01b) + ''' ';&#13;&#10;  AddDataSet('pl_IVDNM00', ['ToDocKey', 'KOAmt'])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .LinkTo('Document_KnockOff', 'ToDocKey', 'ToDocKey');&#13;&#10;&#13;&#10; SQL := 'SELECT A.ToDocKey, A.KOAmt KOAmt ' +&#13;&#10;        'FROM Document_KnockOff A ' +&#13;&#10;        'INNER JOIN pl_AR B ON (B.DOCKEY=A.TODOCKEY) AND (B.DocKey=A.ToDocKey) AND (B.DocNo=A.DocNo) ' +&#13;&#10;        'WHERE (B.DueDate &#62;= ''' + FormatDateTime('yyyy-mm-dd',D01a) + ''' ' +&#13;&#10;        'AND B.DueDate &#60;= ''' +  FormatDateTime('yyyy-mm-dd',D01b) + ''') ';&#13;&#10;  AddDataSet('pl_IVDNM01', ['ToDocKey', 'KOAmt'])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .LinkTo('Document_KnockOff', 'ToDocKey', 'ToDocKey');&#13;&#10;&#13;&#10; SQL := 'SELECT A.ToDocKey, B.DocNo, A.KOAmt KOAmt ' +&#13;&#10;        'FROM Document_KnockOff A ' +&#13;&#10;        'INNER JOIN pl_AR B ON (B.DOCKEY=A.TODOCKEY) AND (B.DocKey=A.ToDocKey) AND (B.DocNo=A.DocNo) ' +&#13;&#10;        'WHERE (B.DueDate &#62;= ''' + FormatDateTime('yyyy-mm-dd',D02a) + ''' ' +&#13;&#10;        'AND B.DueDate &#60;= ''' +  FormatDateTime('yyyy-mm-dd',D02b) + ''') ';&#13;&#10;  AddDataSet('pl_IVDNM02', ['ToDocKey', 'DocNo', 'KOAmt'])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .LinkTo('Document_KnockOff', 'ToDocKey', 'ToDocKey');&#13;&#10;&#13;&#10; SQL := 'SELECT A.ToDocKey, B.DocNo, A.KOAmt KOAmt ' +&#13;&#10;        'FROM Document_KnockOff A ' +&#13;&#10;        'INNER JOIN pl_AR B ON (B.DOCKEY=A.TODOCKEY) AND (B.DocKey=A.ToDocKey) AND (B.DocNo=A.DocNo) ' +&#13;&#10;        'WHERE (B.DueDate &#62;= ''' + FormatDateTime('yyyy-mm-dd',D03a) + ''' ' +&#13;&#10;        'AND B.DueDate &#60;= ''' +  FormatDateTime('yyyy-mm-dd',D03b) + ''') ';&#13;&#10;  AddDataSet('pl_IVDNM03', ['ToDocKey', 'DocNo', 'KOAmt'])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .LinkTo('Document_KnockOff', 'ToDocKey', 'ToDocKey');&#13;&#10;&#13;&#10; SQL := 'SELECT A.ToDocKey, B.DocNo, A.KOAmt KOAmt ' +&#13;&#10;        'FROM Document_KnockOff A ' +&#13;&#10;        'INNER JOIN pl_AR B ON (B.DOCKEY=A.TODOCKEY) AND (B.DocKey=A.ToDocKey) AND (B.DocNo=A.DocNo) ' +&#13;&#10;        'WHERE (B.DueDate &#62;= ''' + FormatDateTime('yyyy-mm-dd',D04a) + ''' ' +&#13;&#10;        'AND B.DueDate &#60;= ''' +  FormatDateTime('yyyy-mm-dd',D04b) + ''') ';&#13;&#10;  AddDataSet('pl_IVDNM04', ['ToDocKey', 'DocNo', 'KOAmt'])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .LinkTo('Document_KnockOff', 'ToDocKey', 'ToDocKey');&#13;&#10;&#13;&#10; SQL := 'SELECT A.ToDocKey, B.DocNo, A.KOAmt KOAmt ' +&#13;&#10;        'FROM Document_KnockOff A ' +&#13;&#10;        'INNER JOIN pl_AR B ON (B.DOCKEY=A.TODOCKEY) AND (B.DocKey=A.ToDocKey) AND (B.DocNo=A.DocNo) ' +&#13;&#10;        'WHERE B.DueDate &#60; ''' + FormatDateTime('yyyy-mm-dd',D04a) + ''' ';&#13;&#10;  AddDataSet('pl_IVDNM05', ['ToDocKey', 'DocNo', 'KOAmt'])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .LinkTo('Document_KnockOff', 'ToDocKey', 'ToDocKey');&#13;&#10;&#13;&#10; SQL := 'SELECT Count(Code) cCode, Code FROM Main ' +&#13;&#10;        'GROUP BY Code ';&#13;&#10;  AddDataSet('pl_Main', ['Code', 'cCode'])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .LinkTo('Main', 'Code', 'Code');&#13;&#10;&#13;&#10; SQL := 'SELECT C.Code, SUM(CAST(A.KOAmt AS REAL)) SumKOAmt ' +&#13;&#10;        'FROM Document_KnockOff A ' +&#13;&#10;        'INNER JOIN pl_AR B ON (B.DOCKEY=A.TODOCKEY) AND (B.DocKey=A.ToDocKey) AND (B.DocNo=A.DocNo) ' +&#13;&#10;        'INNER JOIN Main C ON (C.DocKey=A.FromDocKey) AND (A.FROMDOCTYPE = ''PM'') ' +&#13;&#10;        'WHERE (C.PostDate &#62; B.DueDate)  ' +&#13;&#10;        'GROUP BY C.Code ';&#13;&#10;  AddDataSet('pl_Lateness', ['Code', 'SumKOAmt'])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .LinkTo('pl_Main', 'Code', 'Code');&#13;&#10;&#13;&#10; SQL := 'SELECT Code, Sum(DocAmt) SumDocAmt ' +&#13;&#10;        'FROM Main  ' +&#13;&#10;        'GROUP BY Code ';&#13;&#10;  AddDataSet('pl_TotalPay', ['Code', 'SumDocAmt'])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .LinkTo('pl_Main', 'Code', 'Code');&#13;&#10;&#13;&#10;&#13;&#10; SQL := 'SELECT C.Code, SUM(CAST(A.KOAmt AS REAL)) SumKOAmt ' +&#13;&#10;        'FROM Document_KnockOff A ' +&#13;&#10;        'INNER JOIN pl_AR B ON (B.DOCKEY=A.TODOCKEY) AND (B.DocKey=A.ToDocKey) AND (B.DocNo=A.DocNo) ' +&#13;&#10;        'INNER JOIN Main C ON (C.DocKey=A.FromDocKey) AND (A.FROMDOCTYPE = ''PM'') ' +&#13;&#10;        'WHERE (C.PostDate &#62; B.DueDate)  ';&#13;&#10;  AddDataSet('pl_GTotalLateness', ['Code', 'SumKOAmt'])&#13;&#10;  .GetLocalData(SQL);&#13;&#10;&#13;&#10; SQL := 'SELECT Code, Sum(DocAmt) SumDocAmt ' +&#13;&#10;        'FROM Main  ';&#13;&#10;  AddDataSet('pl_GTotalPay', ['Code', 'SumDocAmt'])&#13;&#10;  .GetLocalData(SQL);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo106OnBeforePrint(Sender: TfrxComponent);&#13;&#10;Var L1, L2, L3 : Variant;&#13;&#10;begin&#13;&#10;&#13;&#10;&#13;&#10;   L1 := VarToFloatDef(&#60;pl_Lateness.&#34;SumKOAmt&#34;&#62;);&#13;&#10;   L2 := VarToFloatDef(&#60;pl_TotalPay.&#34;SumDocAmt&#34;&#62;);&#13;&#10;   L3 := 100*(L1/L2);&#13;&#10;&#13;&#10;   Memo106.Text := FormatFloat('#,0.0;(#,0.0)',L3);&#13;&#10;   Memo106.Visible := L3 &#60;&#62; 0;&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo70OnBeforePrint(Sender: TfrxComponent);&#13;&#10;Var TL1, TL2, TL3 : Variant;&#13;&#10;begin&#13;&#10;&#13;&#10;   TL1 := VarToFloatDef(&#60;pl_GTotalLateness.&#34;SumKOAmt&#34;&#62;);&#13;&#10;   TL2 := VarToFloatDef(&#60;pl_GTotalPay.&#34;SumDocAmt&#34;&#62;);&#13;&#10;   TL3 := 100*(TL1/TL2);&#13;&#10;&#13;&#10;   Memo70.Text := FormatFloat('#,0.0;(#,0.0)',TL3);&#13;&#10;   Memo70.Visible := TL3 &#60;&#62; 0;&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo51OnBeforePrint(Sender: TfrxComponent);&#13;&#10;Var s, s1, s2, s3, s4, s5 : Int;&#13;&#10;begin&#13;&#10;&#13;&#10;   if &#60;pl_PayM01.&#34;DocAmt&#34;&#62;=&#60;pl_IVDNM01.&#34;KOAmt&#34;&#62; then&#13;&#10;   s1 := 1 else&#13;&#10;   s1 := 0 ;&#13;&#10;&#13;&#10;   if &#60;pl_PayM02.&#34;DocAmt&#34;&#62;=&#60;pl_IVDNM02.&#34;KOAmt&#34;&#62; then&#13;&#10;   s2 := 1 else&#13;&#10;   s2 := 0;&#13;&#10;&#13;&#10;   if &#60;pl_PayM03.&#34;DocAmt&#34;&#62;=&#60;pl_IVDNM03.&#34;KOAmt&#34;&#62; then&#13;&#10;   s3 := 1 else&#13;&#10;   s3 := 0;&#13;&#10;&#13;&#10;   if &#60;pl_PayM04.&#34;DocAmt&#34;&#62;=&#60;pl_IVDNM04.&#34;KOAmt&#34;&#62; then&#13;&#10;   s4 := 1 else&#13;&#10;   s4 := 0;&#13;&#10;&#13;&#10;   if &#60;pl_PayM05.&#34;DocAmt&#34;&#62;=&#60;pl_IVDNM05.&#34;KOAmt&#34;&#62; then&#13;&#10;   s5 := 1 else&#13;&#10;   s5 := 0;&#13;&#10;&#13;&#10;   s := s1 + s2 + s3 + s4 + s5;&#13;&#10;&#13;&#10;   if &#60;pl_IVDNM00.&#34;KOAmt&#34;&#62; = 0 then begin&#13;&#10;      if &#60;Main.&#34;PostDate&#34;&#62; &#60;= &#60;pl_AR.&#34;DueDate&#34;&#62; then&#13;&#10;      Memo51.Visible := False else&#13;&#10;      Memo51.Visible := True;&#13;&#10;   end else&#13;&#10;   Memo51.Visible := False;&#13;&#10;&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;  fl := TStringList.Create;&#13;&#10;&#13;&#10;  try&#13;&#10;  fl.Values['Agent']           := 'Agent;Description';&#13;&#10;  fl.Values['Area']            := 'Area;Description';&#13;&#10;  fl.Values['Code']            := 'Code;CompanyName';&#13;&#10;  fl.Values['CompanyName']     := 'Code;CompanyName';&#13;&#10;  fl.Values['CurrencyCode']    := 'CurrencyCode;Description';&#13;&#10;  fl.Values['Project']         := 'Project;Description';&#13;&#10;  fl.Values['DocNo']           := 'DocNo;DocNo';&#13;&#10;  fl.Values['DocDate']         := 'DocDate;DocDate';&#13;&#10;  fl.Values['CompanyCategory'] := 'CompanyCategory;Description';&#13;&#10;&#13;&#10;    lGroupBy := ValueOfSemiColonStr(&#60;Parameter.&#34;GroupBy&#34;&#62;, 0);&#13;&#10;    i := fl.IndexOfName(lGroupBy);&#13;&#10;    if i &#60;&#62; -1 then begin&#13;&#10;    edCode1.DataField := ValueOfSemiColonStr(fl.Values[lGroupBy], 0);&#13;&#10;    edCode1.DataSetName := 'Main';&#13;&#10;    edDesc1.DataField := ValueOfSemiColonStr(fl.Values[lGroupBy], 1);&#13;&#10;    edDesc1.DataSetName := 'Main';&#13;&#10;    GroupHeader1.Condition := Format('Main.&#34;%s&#34;',[lGroupBy]);&#13;&#10;    end;&#13;&#10;&#13;&#10;    Memo68.Text := 'SubTotal : ' + edCode1.Text;&#13;&#10;  finally&#13;&#10;    fl.Free;&#13;&#10;  end;&#13;&#10;&#13;&#10;end.">
  <Datasets>
    <item DataSet="Main" DataSetName="Main"/>
    <item DataSet="Document_KnockOff" DataSetName="Document_KnockOff"/>
    <item DataSet="Document_KnockOffDetail" DataSetName="Document_KnockOffDetail"/>
    <item DataSet="Parameter" DataSetName="Parameter"/>
    <item DataSet="Document_Company" DataSetName="Document_Company"/>
    <item DataSet="Document_CompanyBranch" DataSetName="Document_CompanyBranch"/>
    <item DataSet="Document_CompanyBankAcc" DataSetName="Document_CompanyBankAcc"/>
    <item DataSet="Document_CompanyBankAcc_Bank" DataSetName="Document_CompanyBankAcc_Bank"/>
    <item DataSet="Document_Journal" DataSetName="Document_Journal"/>
    <item DataSet="Document_Agent" DataSetName="Document_Agent"/>
    <item DataSet="Document_Area" DataSetName="Document_Area"/>
    <item DataSet="Document_Currency" DataSetName="Document_Currency"/>
    <item DataSet="Document_Method" DataSetName="Document_Method"/>
    <item DataSet="Document_Method_Account" DataSetName="Document_Method_Account"/>
    <item DataSet="Document_DocProject" DataSetName="Document_DocProject"/>
    <item DataSet="Document_CompanyCategory" DataSetName="Document_CompanyCategory"/>
    <item DataSet="Option" DataSetName="Option"/>
    <item DataSet="Profile" DataSetName="Profile"/>
    <item DataSet="User" DataSetName="User"/>
  </Datasets>
  <TfrxDataPage Name="Data" HGuides.Text="" VGuides.Text="" Height="1000" Left="0" Top="0" Width="1000"/>
  <TfrxReportPage Name="Page1" HGuides.Text="" VGuides.Text="" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" Frame.Typ="0" MirrorMode="0">
    <TfrxPageHeader Name="PageHeader1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="0" Left="0" Top="41.57483" Width="1046.92981"/>
    <TfrxMasterData Name="MasterData1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="41.57483" Left="0" Top="260.78757" Width="1046.92981" OnBeforePrint="MasterData1OnBeforePrint" ColumnWidth="0" ColumnGap="0" DataSet="Main" DataSetName="Main" RowCount="0" Stretched="True">
      <TfrxMemoView Name="Memo15" AllowVectorExport="True" ShiftMode="smDontShift" Left="249.44898" Top="0.44094" Width="113.3859" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" Frame.Width="0.5" ParentFont="False" Text="[Main.&#34;DocNo&#34;]"/>
      <TfrxMemoView Name="Memo16" AllowVectorExport="True" ShiftMode="smDontShift" Left="362.83488" Top="0.44094" Width="83.14966" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" Frame.Width="0.5" ParentFont="False" Text="[Main.&#34;PostDate&#34;]"/>
      <TfrxSubreport Name="Subreport1" AllowVectorExport="True" Left="264.5671" Top="34.01577" Width="782.36271" Height="7.55906" Page="Page2" PrintOnParent="True"/>
      <TfrxMemoView Name="Memo41" AllowVectorExport="True" ShiftMode="smDontShift" Left="525.35467" Top="0.44094" Width="79.37013" Height="18.89765" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[Main.&#34;Unapplied&#34;]"/>
      <TfrxMemoView Name="Memo46" AllowVectorExport="True" Left="604.7248" Top="0.44094" Width="75.5906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)',&#60;pl_PayM01.&#34;DocAmt&#34;&#62;)]"/>
      <TfrxMemoView Name="Memo50" AllowVectorExport="True" Left="680.3154" Top="0.44094" Width="75.5906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)',&#60;pl_PayM02.&#34;DocAmt&#34;&#62;)]"/>
      <TfrxMemoView Name="Memo52" AllowVectorExport="True" Left="755.906" Top="0.44094" Width="75.5906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)',&#60;pl_PayM03.&#34;DocAmt&#34;&#62;)]"/>
      <TfrxMemoView Name="Memo53" AllowVectorExport="True" Left="831.4966" Top="0.44094" Width="75.5906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)',&#60;pl_PayM04.&#34;DocAmt&#34;&#62;)]"/>
      <TfrxMemoView Name="Memo54" AllowVectorExport="True" Left="907.0872" Top="0.44094" Width="83.14966" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)',&#60;pl_PayM05.&#34;DocAmt&#34;&#62;)]"/>
      <TfrxMemoView Name="edDesc1" AllowVectorExport="True" ShiftMode="smDontShift" Left="68.03154" Top="0" Width="181.41744" Height="37.7953" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" Frame.Width="0.5" ParentFont="False" SuppressRepeated="True" Text="[Main.&#34;CompanyName&#34;]">
        <Formats>
          <item/>
          <item/>
        </Formats>
      </TfrxMemoView>
      <TfrxMemoView Name="edCode1" AllowVectorExport="True" ShiftMode="smDontShift" Left="0" Top="0.44094" Width="68.03154" Height="37.7953" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" ParentFont="False" SuppressRepeated="True" Text="[Main.&#34;Code&#34;]"/>
      <TfrxMemoView Name="Memo80" AllowVectorExport="True" ShiftMode="smDontShift" Left="445.98454" Top="0" Width="79.37013" Height="18.89765" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[Main.&#34;DocAmt&#34;]"/>
      <TfrxMemoView Name="Memo47" AllowVectorExport="True" ShiftMode="smDontShift" Left="264.5671" Top="18.89765" Width="98.26778" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" ParentFont="False" Text="IV/DN No."/>
      <TfrxMemoView Name="Memo82" AllowVectorExport="True" ShiftMode="smDontShift" Left="362.83488" Top="18.89765" Width="83.14966" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" ParentFont="False" Text="IV/DN Date"/>
      <TfrxMemoView Name="Memo48" AllowVectorExport="True" ShiftMode="smDontShift" Left="445.98454" Top="18.89765" Width="79.37013" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" ParentFont="False" Text="Due Date"/>
      <TfrxMemoView Name="Memo19" AllowVectorExport="True" ShiftMode="smDontShift" Left="525.35467" Top="18.89765" Width="79.37013" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" HAlign="haRight" ParentFont="False" Text="Undue"/>
      <TfrxMemoView Name="Memo85" AllowVectorExport="True" ShiftMode="smDontShift" Left="604.7248" Top="18.89765" Width="75.5906" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" HAlign="haRight" ParentFont="False" Text="Current"/>
      <TfrxMemoView Name="Memo86" AllowVectorExport="True" ShiftMode="smDontShift" Left="680.3154" Top="18.89765" Width="75.5906" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" HAlign="haRight" ParentFont="False" Text=" 1 Mth"/>
      <TfrxMemoView Name="Memo87" AllowVectorExport="True" ShiftMode="smDontShift" Left="755.906" Top="18.89765" Width="75.5906" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" HAlign="haRight" ParentFont="False" Text="2 Mths"/>
      <TfrxMemoView Name="Memo88" AllowVectorExport="True" ShiftMode="smDontShift" Left="831.4966" Top="18.89765" Width="75.5906" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" HAlign="haRight" ParentFont="False" Text="3 Mths"/>
      <TfrxMemoView Name="Memo89" AllowVectorExport="True" ShiftMode="smDontShift" Left="907.0872" Top="18.89765" Width="83.14966" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" HAlign="haRight" ParentFont="False" Text="4 Mths++"/>
      <TfrxMemoView Name="Memo90" AllowVectorExport="True" ShiftMode="smDontShift" Left="990.23686" Top="18.89765" Width="56.69295" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" HAlign="haCenter" ParentFont="False" Text="Status"/>
    </TfrxMasterData>
    <TfrxPageFooter Name="PageFooter1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="22.67718" Left="0" Top="517.79561" Width="1046.92981"/>
    <TfrxHeader Name="Header1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="113.3859" Left="0" Top="102.04731" Width="1046.92981" OnBeforePrint="Header1OnBeforePrint" ReprintOnNewPage="True">
      <TfrxMemoView Name="Memo4" AllowVectorExport="True" Left="249.44898" Top="83.14966" Width="113.3859" Height="30.23624" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Fill.BackColor="16700346" ParentFont="False" Text="OR No."/>
      <TfrxMemoView Name="Memo5" AllowVectorExport="True" Left="362.83488" Top="83.14966" Width="83.14966" Height="30.23624" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Fill.BackColor="16700346" ParentFont="False" Text="OR Post Date"/>
      <TfrxMemoView Name="Memo7" AllowVectorExport="True" Left="604.7248" Top="83.14966" Width="75.5906" Height="30.23624" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Fill.BackColor="16700346" HAlign="haRight" ParentFont="False" Text="Current"/>
      <TfrxMemoView Name="Memo8" AllowVectorExport="True" Left="680.3154" Top="83.14966" Width="75.5906" Height="30.23624" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Fill.BackColor="16700346" HAlign="haRight" ParentFont="False" Text=" 1 Mth&#13;&#10;Ago"/>
      <TfrxMemoView Name="Memo9" AllowVectorExport="True" Left="755.906" Top="83.14966" Width="75.5906" Height="30.23624" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Fill.BackColor="16700346" HAlign="haRight" ParentFont="False" Text="2 Mths&#13;&#10;Ago"/>
      <TfrxMemoView Name="Memo10" AllowVectorExport="True" Left="831.4966" Top="83.14966" Width="75.5906" Height="30.23624" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Fill.BackColor="16700346" HAlign="haRight" ParentFont="False" Text="3 Mths&#13;&#10;Ago"/>
      <TfrxMemoView Name="Memo11" AllowVectorExport="True" Left="907.0872" Top="83.14966" Width="83.14966" Height="30.23624" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Fill.BackColor="16700346" HAlign="haRight" ParentFont="False" Text="4 Mths++&#13;&#10;Ago"/>
      <TfrxMemoView Name="Memo40" AllowVectorExport="True" Left="525.35467" Top="83.14966" Width="79.37013" Height="30.23624" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Fill.BackColor="16700346" HAlign="haRight" ParentFont="False" Text="Unapplied&#13;&#10;Amount"/>
      <TfrxMemoView Name="Memo61" AllowVectorExport="True" Left="0" Top="83.14966" Width="68.03154" Height="30.23624" OnBeforePrint="Memo61OnBeforePrint" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Fill.BackColor="16700346" ParentFont="False" Text=""/>
      <TfrxMemoView Name="Memo62" AllowVectorExport="True" Left="68.03154" Top="83.14966" Width="181.41744" Height="30.23624" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Fill.BackColor="16700346" ParentFont="False" Text="Customer Name"/>
      <TfrxMemoView Name="Memo69" AllowVectorExport="True" Left="445.98454" Top="83.14966" Width="79.37013" Height="30.23624" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Fill.BackColor="16700346" HAlign="haRight" ParentFont="False" Text="OR Amount"/>
      <TfrxMemoView Name="Memo91" AllowVectorExport="True" Left="0" Top="3.77953" Width="831.4966" Height="22.67718" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Tahoma" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="Customer Aging - Payment vs Invoice/Debit Note (Due Date) with Late Payment Analysis"/>
      <TfrxMemoView Name="Memo92" AllowVectorExport="True" Left="0" Top="26.45671" Width="831.4966" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="As at [FormatDateTime('dd/mm/yyyy',EndOfAMth(&#60;Parameter.&#34;DateTo&#34;&#62;))]"/>
      <TfrxMemoView Name="Memo93" AllowVectorExport="True" Left="0" Top="64.25201" Width="831.4966" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[Profile.&#34;CompanyName&#34;]"/>
      <TfrxMemoView Name="Memo94" AllowVectorExport="True" Left="831.4966" Top="3.77953" Width="215.43321" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haRight" ParentFont="False" Text="Date Time : [Date], [Time]"/>
      <TfrxMemoView Name="Memo95" AllowVectorExport="True" Left="831.4966" Top="22.67718" Width="215.43321" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haRight" ParentFont="False" Text="User : [User.&#34;Code&#34;]"/>
      <TfrxMemoView Name="Memo96" AllowVectorExport="True" Left="831.4966" Top="64.25201" Width="215.43321" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haRight" ParentFont="False" Text="Page [Page#] of [TotalPages#]"/>
      <TfrxMemoView Name="Memo105" AllowVectorExport="True" Left="990.23686" Top="83.14966" Width="56.69295" Height="30.23624" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Fill.BackColor="16700346" HAlign="haCenter" ParentFont="False" Text="Late Pay&#13;&#10;%"/>
    </TfrxHeader>
    <TfrxGroupHeader Name="GroupHeader1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="0" Left="0" Top="238.11039" Width="1046.92981" OnBeforePrint="GroupHeader1OnBeforePrint" Condition="Main.&#34;DocNo&#34;"/>
    <TfrxGroupFooter Name="GroupFooter1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="49.13389" Left="0" Top="325.03958" Width="1046.92981">
      <TfrxMemoView Name="Memo60" AllowVectorExport="True" ShiftMode="smDontShift" Left="525.35467" Top="1.77953" Width="79.37013" Height="18.89765" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="4" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[SUM(&#60;Main.&#34;Unapplied&#34;&#62;,MasterData1)]"/>
      <TfrxMemoView Name="Memo63" AllowVectorExport="True" Left="604.7248" Top="1.77953" Width="75.5906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="4" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)', SUM(&#60;pl_PayM01.&#34;DocAmt&#34;&#62;,MasterData1))]"/>
      <TfrxMemoView Name="Memo64" AllowVectorExport="True" Left="680.3154" Top="1.77953" Width="75.5906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="4" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)', SUM(&#60;pl_PayM02.&#34;DocAmt&#34;&#62;,MasterData1))]"/>
      <TfrxMemoView Name="Memo65" AllowVectorExport="True" Left="755.906" Top="1.77953" Width="75.5906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="4" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)', SUM(&#60;pl_PayM03.&#34;DocAmt&#34;&#62;,MasterData1))]"/>
      <TfrxMemoView Name="Memo66" AllowVectorExport="True" Left="831.4966" Top="1.77953" Width="75.5906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="4" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)', SUM(&#60;pl_PayM04.&#34;DocAmt&#34;&#62;,MasterData1))]"/>
      <TfrxMemoView Name="Memo67" AllowVectorExport="True" Left="907.0872" Top="1.77953" Width="83.14966" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="4" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)', SUM(&#60;pl_PayM05.&#34;DocAmt&#34;&#62;,MasterData1))]"/>
      <TfrxMemoView Name="Memo68" AllowVectorExport="True" Left="0" Top="1.77953" Width="445.98454" Height="18.89765" OnBeforePrint="Memo68OnBeforePrint" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="4" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="SubTotal :"/>
      <TfrxMemoView Name="Memo81" AllowVectorExport="True" Left="445.98454" Top="1.77953" Width="79.37013" Height="18.89765" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="4" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[SUM(&#60;Main.&#34;DocAmt&#34;&#62;,MasterData1)]"/>
      <TfrxMemoView Name="Memo106" AllowVectorExport="True" Left="990.23686" Top="0" Width="56.69295" Height="18.89765" OnBeforePrint="Memo106OnBeforePrint" Font.Charset="1" Font.Color="16777215" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="255" Frame.Typ="0" Fill.BackColor="255" HAlign="haCenter" ParentFont="False" Text="100.0"/>
    </TfrxGroupFooter>
    <TfrxReportSummary Name="ReportSummary1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="60.47248" Left="0" Top="434.64595" Width="1046.92981" AllowSplit="True" Stretched="True">
      <TfrxMemoView Name="Memo97" AllowVectorExport="True" ShiftMode="smDontShift" Left="525.35467" Top="7.55906" Width="79.37013" Height="18.89765" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Style="fsDouble" Frame.Typ="8" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[SUM(&#60;Main.&#34;Unapplied&#34;&#62;,MasterData1)]"/>
      <TfrxMemoView Name="Memo98" AllowVectorExport="True" Left="604.7248" Top="7.55906" Width="75.5906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Style="fsDouble" Frame.Typ="8" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)', SUM(&#60;pl_PayM01.&#34;DocAmt&#34;&#62;,MasterData1))]"/>
      <TfrxMemoView Name="Memo99" AllowVectorExport="True" Left="680.3154" Top="7.55906" Width="75.5906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Style="fsDouble" Frame.Typ="8" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)', SUM(&#60;pl_PayM02.&#34;DocAmt&#34;&#62;,MasterData1))]"/>
      <TfrxMemoView Name="Memo100" AllowVectorExport="True" Left="755.906" Top="7.55906" Width="75.5906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Style="fsDouble" Frame.Typ="8" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)', SUM(&#60;pl_PayM03.&#34;DocAmt&#34;&#62;,MasterData1))]"/>
      <TfrxMemoView Name="Memo101" AllowVectorExport="True" Left="831.4966" Top="7.55906" Width="75.5906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Style="fsDouble" Frame.Typ="8" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)', SUM(&#60;pl_PayM04.&#34;DocAmt&#34;&#62;,MasterData1))]"/>
      <TfrxMemoView Name="Memo102" AllowVectorExport="True" Left="907.0872" Top="7.55906" Width="83.14966" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Style="fsDouble" Frame.Typ="8" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)', SUM(&#60;pl_PayM05.&#34;DocAmt&#34;&#62;,MasterData1))]"/>
      <TfrxMemoView Name="Memo103" AllowVectorExport="True" Left="362.83488" Top="7.55906" Width="83.14966" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Style="fsDouble" Frame.Typ="0" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="Grand Total :"/>
      <TfrxMemoView Name="Memo104" AllowVectorExport="True" Left="445.98454" Top="7.55906" Width="79.37013" Height="18.89765" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Style="fsDouble" Frame.Typ="8" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[SUM(&#60;Main.&#34;DocAmt&#34;&#62;,MasterData1)]"/>
      <TfrxMemoView Name="Memo70" AllowVectorExport="True" Left="990.23686" Top="7.55906" Width="56.69295" Height="18.89765" OnBeforePrint="Memo70OnBeforePrint" Font.Charset="1" Font.Color="16777215" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="255" Frame.Typ="0" Fill.BackColor="255" HAlign="haCenter" ParentFont="False" Text="100.0"/>
    </TfrxReportSummary>
    <TfrxReportTitle Name="ReportTitle1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="0" Left="0" Top="18.89765" Width="1046.92981"/>
  </TfrxReportPage>
  <TfrxReportPage Name="Page2" HGuides.Text="" VGuides.Text="" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" Frame.Typ="0" MirrorMode="0">
    <TfrxMasterData Name="MasterData2" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="15.11812" Left="0" Top="64.25201" Width="1046.92981" ColumnWidth="0" ColumnGap="0" DataSet="Document_KnockOff" DataSetName="Document_KnockOff" RowCount="0" Stretched="True">
      <TfrxMemoView Name="Memo29" AllowVectorExport="True" Left="340.1577" Top="0" Width="75.5906" Height="15.11812" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)',&#60;pl_IVDNM01.&#34;KOAmt&#34;&#62;)]"/>
      <TfrxMemoView Name="Memo30" AllowVectorExport="True" Left="415.7483" Top="0" Width="75.5906" Height="15.11812" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)',&#60;pl_IVDNM02.&#34;KOAmt&#34;&#62;)]"/>
      <TfrxMemoView Name="Memo43" AllowVectorExport="True" Left="491.3389" Top="0" Width="75.5906" Height="15.11812" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)',&#60;pl_IVDNM03.&#34;KOAmt&#34;&#62;)]"/>
      <TfrxMemoView Name="Memo44" AllowVectorExport="True" Left="566.9295" Top="0" Width="75.5906" Height="15.11812" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)',&#60;pl_IVDNM04.&#34;KOAmt&#34;&#62;)]"/>
      <TfrxMemoView Name="Memo45" AllowVectorExport="True" Left="642.5201" Top="0" Width="83.14966" Height="15.11812" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)',&#60;pl_IVDNM05.&#34;KOAmt&#34;&#62;)]"/>
      <TfrxMemoView Name="Memo51" AllowVectorExport="True" Left="725.66976" Top="0" Width="56.69295" Height="15.11812" OnBeforePrint="Memo51OnBeforePrint" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="16777215" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Color="255" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="255" HAlign="haCenter" ParentFont="False" Text="LATE"/>
      <TfrxMemoView Name="Memo55" AllowVectorExport="True" Left="181.41744" Top="0" Width="79.37013" Height="15.11812" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" ParentFont="False" Text="[pl_AR.&#34;DueDate&#34;]"/>
      <TfrxMemoView Name="Memo56" AllowVectorExport="True" Left="0" Top="0" Width="98.26778" Height="15.11812" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" ParentFont="False" Text="[Document_KnockOff.&#34;DocNo&#34;]"/>
      <TfrxMemoView Name="Memo84" AllowVectorExport="True" Left="98.26778" Top="0" Width="83.14966" Height="15.11812" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" ParentFont="False" Text="[Document_KnockOff.&#34;DocDate&#34;]"/>
      <TfrxMemoView Name="Memo26" AllowVectorExport="True" Left="260.78757" Top="0" Width="79.37013" Height="15.11812" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[FormatFloat('#,0.00;(#,0.00)',&#60;pl_IVDNM00.&#34;KOAmt&#34;&#62;)]"/>
    </TfrxMasterData>
    <TfrxHeader Name="Header2" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="22.67718" Left="0" Top="18.89765" Visible="False" Width="1046.92981">
      <TfrxMemoView Name="Memo107" AllowVectorExport="True" ShiftMode="smDontShift" Left="0" Top="7.55906" Width="98.26778" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" ParentFont="False" Text="IV/DN No."/>
      <TfrxMemoView Name="Memo108" AllowVectorExport="True" ShiftMode="smDontShift" Left="98.26778" Top="7.55906" Width="83.14966" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" ParentFont="False" Text="IV/DN Date"/>
      <TfrxMemoView Name="Memo109" AllowVectorExport="True" ShiftMode="smDontShift" Left="181.41744" Top="7.55906" Width="79.37013" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" ParentFont="False" Text="Due Date"/>
      <TfrxMemoView Name="Memo110" AllowVectorExport="True" ShiftMode="smDontShift" Left="260.78757" Top="7.55906" Width="79.37013" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" HAlign="haRight" ParentFont="False" Text="Undue"/>
      <TfrxMemoView Name="Memo111" AllowVectorExport="True" ShiftMode="smDontShift" Left="340.1577" Top="7.55906" Width="75.5906" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" HAlign="haRight" ParentFont="False" Text="Current"/>
      <TfrxMemoView Name="Memo112" AllowVectorExport="True" ShiftMode="smDontShift" Left="415.7483" Top="7.55906" Width="75.5906" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" HAlign="haRight" ParentFont="False" Text=" 1 Mth"/>
      <TfrxMemoView Name="Memo113" AllowVectorExport="True" ShiftMode="smDontShift" Left="491.3389" Top="7.55906" Width="75.5906" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" HAlign="haRight" ParentFont="False" Text="2 Mths"/>
      <TfrxMemoView Name="Memo114" AllowVectorExport="True" ShiftMode="smDontShift" Left="566.9295" Top="7.55906" Width="75.5906" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" HAlign="haRight" ParentFont="False" Text="3 Mths"/>
      <TfrxMemoView Name="Memo115" AllowVectorExport="True" ShiftMode="smDontShift" Left="642.5201" Top="7.55906" Width="83.14966" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" HAlign="haRight" ParentFont="False" Text="4 Mths++"/>
      <TfrxMemoView Name="Memo116" AllowVectorExport="True" ShiftMode="smDontShift" Left="725.66976" Top="7.55906" Width="56.69295" Height="15.11812" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" Fill.BackColor="16577980" HAlign="haCenter" ParentFont="False" Text="Status"/>
    </TfrxHeader>
    <TfrxFooter Name="Footer1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="11.33859" Left="0" Top="102.04731" Width="1046.92981"/>
  </TfrxReportPage>
</TfrxReport>
