<?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Version="2025.2.8" DotMatrixReport="False" EngineOptions.DoublePass="True" EngineOptions.NewSilentMode="simReThrow" IniFile="\Software\eStream\SQL Account\4\Fast Reports" PreviewOptions.Buttons="692223" PreviewOptions.Zoom="1" PreviewOptions.PictureCacheInFile="True" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="41631.3627038542" ReportOptions.Description.Text="Datamap=TdvSLDO&#13;&#10;GUID={8DB6A1DF-8BF8-46DD-B032-69747C73837C}" ReportOptions.Name="Sales Invoice 7 (GST 1)" ReportOptions.LastChange="46203.6323951505" ScriptLanguage="PascalScript" ScriptText.Text="const MaxInt = 2147483647;&#13;&#10;var lSQL : String;&#13;&#10;&#13;&#10;function StringReplace(const S, OldPattern, NewPattern: string;&#13;&#10;  iReplaceAll: boolean=true; iIgnoreCase :boolean=true): string;&#13;&#10;var&#13;&#10;  SearchStr, Patt, NewStr: string;&#13;&#10;  Offset: Integer;&#13;&#10;begin&#13;&#10;// Usage StringReplace(&#60;Main.&#34;DOB&#34;&#62;,&#39;/&#39;,&#39;&#39;)&#13;&#10;  if iIgnoreCase then begin&#13;&#10;    SearchStr := UpperCase(S);&#13;&#10;    Patt := UpperCase(OldPattern);&#13;&#10;  end else begin&#13;&#10;    SearchStr := S;&#13;&#10;    Patt := OldPattern;&#13;&#10;  end;&#13;&#10;  NewStr := S;&#13;&#10;  Result := &#39;&#39;;&#13;&#10;  while SearchStr &#60;&#62; &#39;&#39; do begin&#13;&#10;    Offset := Pos(Patt, SearchStr);&#13;&#10;    if Offset = 0 then begin&#13;&#10;      Result := Result + NewStr;&#13;&#10;      Break;&#13;&#10;    end;&#13;&#10;    Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern;&#13;&#10;    NewStr := Copy(NewStr, Offset + Length(OldPattern), MaxInt);&#13;&#10;    if not iReplaceAll then begin&#13;&#10;      Result := Result + NewStr;&#13;&#10;      Break;&#13;&#10;    end;&#13;&#10;    SearchStr := Copy(SearchStr, Offset + Length(Patt), MaxInt);&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure GetEMailTpl;&#13;&#10;var D  : TfrxDataSet;&#13;&#10;   lFN : String;&#13;&#10;begin&#13;&#10;  lFN := Trim(Report.ReportOptions.Name);&#13;&#10;  lFN := StringReplace(lFN,&#39;.fr3&#39;,&#39;&#39;);&#13;&#10;  D := Report.GetDataSet(&#39;plEMailTpl&#39;);&#13;&#10;  D.First;&#13;&#10;  While not D.Eof do begin&#13;&#10;    if Trim(D.Value(&#39;ReportName&#39;)) = lFN then&#13;&#10;      Break;&#13;&#10;    D.Next;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;function GetPassword:String;&#13;&#10;begin&#13;&#10;  if Trim(&#60;Document_Company.&#34;Remark&#34;&#62;) &#60;&#62; &#39;&#39; then&#13;&#10;    Result := &#60;Document_Company.&#34;Remark&#34;&#62; else&#13;&#10;    Result := &#60;plEMailTpl.&#34;PDFPassWord&#34;&#62;;&#13;&#10;end;&#13;&#10;&#13;&#10;function GetFldInfo(const AStr:String):String;&#13;&#10;var D : TfrxDataSet;&#13;&#10;    nStr : String;&#13;&#10;    lSL,lPL : TStringList;&#13;&#10;    i, j : integer;&#13;&#10;begin&#13;&#10;  nStr := AStr;&#13;&#10;  lSL := TStringList.Create;&#13;&#10;  lPL := TStringList.Create;&#13;&#10;  with lPL do begin //Available Pipeline&#13;&#10;    Add(&#39;Main&#39;);&#13;&#10;    Add(&#39;Profile&#39;);&#13;&#10;    Add(&#39;plEMailTpl&#39;);&#13;&#10;    Add(&#39;Document_Currency&#39;);&#13;&#10;  end;&#13;&#10;  try&#13;&#10;    for j:=0 to lPL.Count -1 do begin&#13;&#10;      D := Report.GetDataSet(lPL[j]);&#13;&#10;      D.GetFieldList(lSL);&#13;&#10;      for i:=0 to lSL.Count -1 do begin&#13;&#10;        if D.IsBlobField(lSL[i]) then&#13;&#10;          nStr := StringReplace(nStr, &#39;&#60;&#39;+ lPL[j] + &#39;.&#39; + lSL[i] + &#39;&#62;&#39;,D.Value(lSL[i])) else&#13;&#10;         nStr := StringReplace(nStr, &#39;&#60;&#39;+ lPL[j] + &#39;.&#39; + lSL[i] + &#39;&#62;&#39;,D.DisplayText(lSL[i]));&#13;&#10;      end;&#13;&#10;    end;&#13;&#10;    Result := nStr;&#13;&#10;  finally&#13;&#10;    lSL.Free;&#13;&#10;    lPL.Free;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;//For E-Mail Client (Batch)&#13;&#10;procedure OnGetEmailSettings(EmailSettings: TStrings);&#13;&#10;var vEmail, vName: Variant;&#13;&#10;begin&#13;&#10;  GetEMailTpl;&#13;&#10;  vEmail := Trim(&#60;Document_CompanyBranch.&#34;Email&#34;&#62;);&#13;&#10;  vName := Trim(&#60;Main.&#34;CompanyName&#34;&#62;);&#13;&#10;&#13;&#10;  if (vName &#60;&#62; &#39;&#39; ) and (vEmail &#60;&#62; &#39;&#39;) then begin&#13;&#10;    EmailSettings.Values[&#39;Recipients&#39;] := vEmail;&#13;&#10;    EmailSettings.Values[&#39;CC&#39;]         := &#60;plEMailTpl.&#34;CC&#34;&#62;;&#13;&#10;    EmailSettings.Values[&#39;BCC&#39;]        := &#60;plEMailTpl.&#34;BCC&#34;&#62;;&#13;&#10;    EmailSettings.Values[&#39;Subject&#39;]    := GetFldInfo(&#60;plEMailTpl.&#34;Subject&#34;&#62;);&#13;&#10;    EmailSettings.Values[&#39;Body&#39;]       := GetFldInfo(RichTextToPlainText(&#60;plEMailTpl.&#34;Body&#34;&#62;));&#13;&#10;    if Trim(&#60;plEMailTpl.&#34;PDFFileName&#34;&#62;) &#60;&#62; &#39;&#39; then&#13;&#10;      EmailSettings.Values[&#39;FileName&#39;]    := GetFldInfo(&#60;plEMailTpl.&#34;PDFFileName&#34;&#62;);&#13;&#10;    if Trim(GetPassword) &#60;&#62; &#39;&#39; then&#13;&#10;      EmailSettings.Values[&#39;PDFPassword&#39;] := GetPassword;&#13;&#10;  end;&#13;&#10;  //ID uses for display on progress dialog&#13;&#10;  EmailSettings.Values[&#39;ID&#39;]        := vName;&#13;&#10;end;&#13;&#10;&#13;&#10;//For E-Mail (Native)&#13;&#10;function SQL_Email_GetInfo(Info: Integer): string;&#13;&#10;var vEmail, vName: Variant;&#13;&#10;begin&#13;&#10;  GetEMailTpl;&#13;&#10;  Result := &#39;&#39;;&#13;&#10;  vEmail := Trim(&#60;Document_CompanyBranch.&#34;Email&#34;&#62;);&#13;&#10;  vName := Trim(&#60;Main.&#34;CompanyName&#34;&#62;);&#13;&#10;&#13;&#10;  if (vName &#60;&#62; &#39;&#39; ) and (vEmail &#60;&#62; &#39;&#39;) then begin&#13;&#10;    case Info of&#13;&#10;      SQL_Email_Address: Result := vEmail;&#13;&#10;      SQL_Email_Subject: Result := GetFldInfo(&#60;plEMailTpl.&#34;Subject&#34;&#62;);&#13;&#10;      SQL_Email_Content: Result := GetFldInfo(RichTextToPlainText(&#60;plEMailTpl.&#34;Body&#34;&#62;));&#13;&#10;    end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure GetShareMsg;&#13;&#10;var D  : TfrxDataSet;&#13;&#10;   lFN : String;&#13;&#10;begin&#13;&#10;  lFN := Trim(Report.ReportOptions.Name);&#13;&#10;  lFN := StringReplace(lFN,&#39;.fr3&#39;,&#39;&#39;);&#13;&#10;  D := Report.GetDataSet(&#39;plShareMsg&#39;);&#13;&#10;  D.First;&#13;&#10;  While not D.Eof do begin&#13;&#10;    if Trim(D.Value(&#39;ReportName&#39;)) = lFN then&#13;&#10;      Break;&#13;&#10;    D.Next;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;function GetShareText: string;&#13;&#10;begin&#13;&#10;  GetShareMsg;&#13;&#10;  Result := GetFldInfo(RichTextToPlainText(&#60;plShareMsg.&#34;Body&#34;&#62;))&#13;&#10;end;&#13;&#10;&#13;&#10;function StrToFloatDef(const lFld:Variant):string;&#13;&#10;begin&#13;&#10;  if Trim(lFld) &#60;&#62; &#39;&#39; then&#13;&#10;    Result := lFld else&#13;&#10;    Result := &#39;0&#39;;&#13;&#10;end;&#13;&#10;&#13;&#10;function VarToFloatDef(const lFld:Variant):Integer;&#13;&#10;begin&#13;&#10;  if Trim(lFld) &#60;&#62; &#39;&#39; then&#13;&#10;    Result := lFld else&#13;&#10;    Result := 0;&#13;&#10;end;&#13;&#10;&#13;&#10;function GetTotal(const lFld:String):Variant;&#13;&#10;var D : TfrxDataSet;&#13;&#10;    V : Variant;&#13;&#10;    s : string;&#13;&#10;begin&#13;&#10;  D := Report.GetDataSet(&#39;Document_Detail&#39;);&#13;&#10;  V := 0;&#13;&#10;  D.First;&#13;&#10;  While not D.Eof do begin&#13;&#10;    V := V + D.Value(lFld);&#13;&#10;    D.Next;&#13;&#10;  end;&#13;&#10;  Result := V;&#13;&#10;end;&#13;&#10;&#13;&#10;function GetSN(const lCode:String):String;&#13;&#10;var D : TfrxDataSet;&#13;&#10;    s : string;&#13;&#10;    i : integer;&#13;&#10;begin&#13;&#10;  Result := &#39;&#39;;&#13;&#10;  D := Report.GetDataSet(&#39;Document_SerialNumber&#39;);&#13;&#10;  i := 1;&#13;&#10;  s := &#39;&#39;;&#13;&#10;  D.First;&#13;&#10;  While not D.Eof do begin&#13;&#10;    if Trim(D.DisplayText(&#39;Dtlkey&#39;)) = Trim(lCode) then begin&#13;&#10;      if i = 1 then&#13;&#10;        s := D.Value(&#39;SerialNumber&#39;) else&#13;&#10;        s := s + &#39;, &#39; + D.Value(&#39;SerialNumber&#39;);&#13;&#10;    end;&#13;&#10;    inc(i);&#13;&#10;    D.Next;&#13;&#10;  end;&#13;&#10;  if Trim(s) &#60;&#62; &#39;&#39; then&#13;&#10;    Result := &#39;Serial No :- &#39; + s;&#13;&#10;end;&#13;&#10;&#13;&#10;function GetMergeSN(const lCode, lUOM, lTax, lDisc, lUP : Variant) : String;&#13;&#10;var D : TfrxDataSet;&#13;&#10;    s : string;&#13;&#10;    i : integer;&#13;&#10;begin&#13;&#10;  Result := &#39;&#39;;&#13;&#10;  D := Report.GetDataSet(&#39;pl_MergeSerialNumber&#39;);&#13;&#10;  i := 1;&#13;&#10;  s := &#39;&#39;;&#13;&#10;  D.First;&#13;&#10;  While not D.Eof do begin&#13;&#10;    if (Trim(D.DisplayText(&#39;ItemCode&#39;)) = Trim(lCode)) AND&#13;&#10;       (Trim(D.DisplayText(&#39;UOM&#39;)) = Trim(lUOM)) AND&#13;&#10;       (Trim(D.DisplayText(&#39;Tax&#39;)) = Trim(lTax)) AND&#13;&#10;       (Trim(D.DisplayText(&#39;Disc&#39;)) = Trim(lDisc)) AND&#13;&#10;       (Trim(D.DisplayText(&#39;UnitPrice&#39;)) = Trim(lUP)) then begin&#13;&#10;      if i = 1 then&#13;&#10;        s := D.Value(&#39;SerialNumber&#39;) else&#13;&#10;        s := s + &#39;, &#39; + D.Value(&#39;SerialNumber&#39;);&#13;&#10;    end;&#13;&#10;    inc(i);&#13;&#10;    D.Next;&#13;&#10;  end;&#13;&#10;  if Trim(s) &#60;&#62; &#39;&#39; then&#13;&#10;    Result := &#39;Serial No :- &#39; + s;&#13;&#10;end;&#13;&#10;&#13;&#10;function FormatSQLDate(D: TDateTime): String;&#13;&#10;var AFormat: string;&#13;&#10;begin&#13;&#10;  AFormat := &#39;dd mmm yyyy&#39;; //&#39;dd/mmm/yyyy&#39; if can&#39;t&#13;&#10;  Result := QuotedStr(FormatDateTime(AFormat, D));&#13;&#10;//If yr output for TxQuery use below coding&#13;&#10;//  AFormat :=&#39;dd/mm/yyyy&#39;;&#13;&#10;//  Result := &#39;#&#39;+FormatDateTime(AFormat, D)+&#39;#&#39;;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure SetUp;&#13;&#10;var SQL : String;&#13;&#10;begin&#13;&#10;  SQL := &#39;SELECT B.Description As ReportName, B.Description2 As Subject, B.Description3 As Body, &#39;+&#13;&#10;         &#39;A.Address1 As CC, A.Address2 As BCC, B.Remark1 As PDFPassWord, B.Remark2 As PDFFileName &#39; +&#13;&#10;         &#39;FROM SL_QT A &#39; +&#13;&#10;         &#39;INNER JOIN SL_QTDTL B ON (A.Dockey=B.Dockey) &#39; +&#13;&#10;         &#39;WHERE A.DocNo=&#39;&#39;EMAIL&#39;&#39; &#39; +&#13;&#10;         &#39;ORDER BY B.SEQ&#39;;&#13;&#10;  AddDataSet(&#39;plEMailTpl&#39;, [&#39;ReportName&#39;, &#39;Subject&#39;, &#39;Body&#39;, &#39;PDFPassWord&#39;, &#39;PDFFileName&#39;, &#39;CC&#39;, &#39;BCC&#39;])&#13;&#10;  .GetDBData(SQL);&#13;&#10;&#13;&#10;  SQL := &#39;SELECT B.Description As ReportName, B.Description3 As Body &#39;+&#13;&#10;         &#39;FROM SL_QT A &#39; +&#13;&#10;         &#39;INNER JOIN SL_QTDTL B ON (A.Dockey=B.Dockey) &#39; +&#13;&#10;         &#39;WHERE A.DocNo=&#39;&#39;WHATSAPP&#39;&#39; &#39; +&#13;&#10;         &#39;ORDER BY B.SEQ&#39;;&#13;&#10;  AddDataSet(&#39;plShareMsg&#39;, [&#39;ReportName&#39;, &#39;Body&#39;])&#13;&#10;  .GetDBData(SQL);&#13;&#10;&#13;&#10;  SQL := &#39;SELECT DocKey, ItemCode, StockGroup, Description2, Remark1, Remark2, UOM, UnitPrice, Disc, MAX(Seq) Seq, Description, Description3, &#39; +&#13;&#10;		       &#39;SUM(CAST(Qty AS REAL)) Qty, SUM(CAST(Amount AS REAL)) Amount, SUM(CAST(AmountWithTax AS REAL)) AmountWithTax,  &#39;+&#13;&#10;         &#39;SUM(CAST(LocalAmount AS REAL)) LocalAmount, SUM(CAST(LocalAmountWithTax AS REAL)) LocalAmountWithTax,  &#39;+&#13;&#10;         &#39;Tax, Sum(CAST(TaxAmt AS REAL)) TaxAmt, Sum(CAST(LocalTaxAmt AS REAL)) LocalTaxAmt, TaxRate &#39; +&#13;&#10;         &#39;FROM Document_Detail &#39; +&#13;&#10;         &#39;GROUP BY DocKey, ItemCode, UOM, UnitPrice, Disc, Tax &#39;;&#13;&#10;  AddDataSet(&#39;MergeItemCode&#39;, [&#39;Dockey&#39;, &#39;ItemCode&#39;, &#39;UOM&#39;, &#39;UnitPrice&#39;, &#39;Disc&#39;, &#39;Seq&#39;, &#39;Description&#39;, &#39;StockGroup&#39;, &#39;Description2&#39;, &#39;Remark1&#39;, &#39;Remark2&#39;,&#13;&#10;                               &#39;Description3&#39;, &#39;LocalAmount&#39;, &#39;LocalAmountWithTax&#39;,&#13;&#10;                               &#39;Qty&#39;, &#39;Amount&#39;, &#39;AmountWithTax&#39;, &#39;Tax&#39;, &#39;TaxRate&#39;, &#39;TaxAmt&#39;,&#39;LocalTaxAmt&#39;])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .SetDisplayFormat([&#39;LocalAmount&#39;, &#39;LocalAmountWithTax&#39;, &#39;Amount&#39;, &#39;AmountWithTax&#39;,&#13;&#10;                     &#39;TaxAmt&#39;,&#39;LocalTaxAmt&#39;], &#60;Option.&#34;AccountingValueDisplayFormat&#34;&#62;)&#13;&#10;  .SetDisplayFormat([&#39;Qty&#39;],&#60;Option.&#34;StockQuantityDisplayFormat&#34;&#62;)&#13;&#10;  .SetDisplayFormat([&#39;UnitPrice&#39;],&#60;Option.&#34;StockPriceDisplayFormat&#34;&#62;)&#13;&#10;  .LinkTo(&#39;Main&#39;, &#39;Dockey&#39;, &#39;Dockey;Seq&#39;);&#13;&#10;&#13;&#10;  SQL := &#39;SELECT Dockey, Count(DISTINCT FromDocKey) Nos FROM Document_Detail &#39; +&#13;&#10;         &#39;WHERE FromDocKey IS NOT NULL &#39; +&#13;&#10;         &#39;GROUP BY Dockey&#39;;&#13;&#10;  AddDataSet(&#39;FromDocCount&#39;, [&#39;Nos&#39;])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .LinkTo(&#39;Main&#39;, &#39;Dockey&#39;, &#39;Dockey&#39;);&#13;&#10;&#13;&#10;  SQL := &#39;SELECT Dockey, Qty, Amount, LocalAmount FROM Document_Detail &#39; +&#13;&#10;         &#39;WHERE ItemCode=&#39;&#39;RTN5Cents&#39;&#39; &#39;;&#13;&#10;  AddDataSet(&#39;AdjRound&#39;, [&#39;Dockey&#39;, &#39;Amount&#39;, &#39;LocalAmount&#39;, &#39;Qty&#39;])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .SetDisplayFormat([&#39;Qty&#39;],&#60;Option.&#34;StockQuantityDisplayFormat&#34;&#62;)&#13;&#10;  .SetDisplayFormat([&#39;Amount, LocalAmount&#39;],&#60;Option.&#34;AccountingValueDisplayFormat&#34;&#62;)&#13;&#10;  .LinkTo(&#39;Main&#39;, &#39;Dockey&#39;, &#39;Dockey&#39;);&#13;&#10;&#13;&#10;  SQL := &#39;SELECT DocKey, Tax, TaxRate FROM Document_Detail &#39; +&#13;&#10;         &#39;WHERE TaxRate &#60;&#62; &#39;&#39;&#39;&#39; &#39; +&#13;&#10;         &#39;ORDER BY Dockey,SEQ &#39; +&#13;&#10;         &#39;LIMIT 1 &#39;;&#13;&#10;  AddDataSet(&#39;pl_TaxRate&#39;, [&#39;Dockey&#39;, &#39;Tax&#39;, &#39;TaxRate&#39;])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .LinkTo(&#39;Main&#39;, &#39;Dockey&#39;, &#39;Dockey&#39;);&#13;&#10;&#13;&#10;  SQL := &#39;SELECT A.Dockey, A.ItemCode, A.UOM,  A.UnitPrice, A.Disc, A.Tax, B.SerialNumber FROM Document_Detail A &#39;  +&#13;&#10;         &#39; INNER JOIN Document_SerialNumber B ON A.Dtlkey = B.Dtlkey &#39; +&#13;&#10;         &#39; ORDER BY A.Dockey, A.ItemCode, A.UOM, A.UnitPrice, A.Disc, A.Tax, B.SerialNumber &#39; ;&#13;&#10;  AddDataSet(&#39;pl_MergeSerialNumber&#39;, [&#39;Dockey&#39;, &#39;ItemCode&#39;,&#39;UOM&#39;, &#39;UnitPrice&#39;,&#39;Disc&#39;,&#39;Tax&#39;,&#39;SerialNumber&#39;])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .LinkTo(&#39;MergeItemCode&#39;, &#39;Dockey;ItemCode;UOM;UnitPrice;Disc;Tax&#39;, &#39;Dockey;ItemCode;UOM;UnitPrice;Disc;Tax;SerialNumber&#39;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure GroupFooter1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FreeSpace &#60; (GroupFooter1.Height + PageFooter1.Height + 30) then Engine.NewPage;&#13;&#10;    Engine.CurY := Engine.PageHeight - GroupFooter1.Height - PageFooter1.Height - 60;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DetailData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  DetailData1.Visible := &#60;Option.&#34;MergeSameItemCode&#34;&#62; = False;&#13;&#10;  DetailData2.Visible := &#60;Option.&#34;MergeSameItemCode&#34;&#62; = True;&#13;&#10;  // For Print Count 20&#13;&#10;  //if TfrxDetailData(Sender).Visible and (&#60;Line#&#62; mod 20 = 1) and (&#60;Line#&#62; &#62; 1) then Engine.NewPage;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure GroupHeader2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var D, DD, FDN, FDD: String;&#13;&#10;begin&#13;&#10;   FDN:= &#60;Document_Detail.&#34;FromDocNo&#34;&#62;;&#13;&#10;   FDD:= &#60;Document_Detail.&#34;FromDocDate&#34;&#62;;&#13;&#10;   If Trim(FDN) &#60;&#62; &#39;&#39; then&#13;&#10;      D := &#39;From Doc No. : &#39; + FDN + &#39;;   &#39; else&#13;&#10;      D := &#39;&#39;;&#13;&#10;   If Trim(FDD) &#60;&#62; &#39;0&#39; Then&#13;&#10;      DD := &#39;From Doc Date : &#39; + FDD else&#13;&#10;      DD := &#39;&#39;;&#13;&#10;  GroupHeader2.Visible := (VarToFloatDef(&#60;FromDocCount.&#34;Nos&#34;&#62;) &#62; 1) and (&#60;Option.&#34;MergeSameItemCode&#34;&#62; = False);&#13;&#10;  Document_DetailFromDocNo.Text := D + DD;&#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;procedure DetailData1OnAfterCalcHeight(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;// Example Stop position on 9.5 inch * 96 = 912&#13;&#10;  if TfrxDetailData(Sender).Visible and (Engine.CurY + DetailData1.Height &#62;= 912) then Engine.NewPage;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Page1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  ShiftRelative([MmDesc, RichDesc3, RichSN]);&#13;&#10;  ShiftRelative([MmDescM, RichDesc3M, RichSNM]);&#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;begin&#13;&#10;  if &#60;Main.&#34;PrintCount&#34;&#62; &#60;&#62; 0 then begin&#13;&#10;    if MessageDlg (&#39;Print Count is &#39; + IntToStr(&#60;Main.&#34;PrintCount&#34;&#62;)+#13 +&#13;&#10;                   &#39;Print Duplicate Copy?&#39;, mtInformation, mbYes + mbNo, 0) =  mrYes then begin&#13;&#10;      MmDuplicate.Visible   := True;&#13;&#10;      MmDuplicate.Printable := True;&#13;&#10;    end;&#13;&#10;  end;&#13;&#10;end.">
  <Datasets>
    <item DataSet="Main" DataSetName="Main"/>
    <item DataSet="Document_Detail" DataSetName="Document_Detail"/>
    <item DataSet="Document_SerialNumber" DataSetName="Document_SerialNumber"/>
    <item DataSet="Parameter" DataSetName="Parameter"/>
    <item DataSet="Document_Agent" DataSetName="Document_Agent"/>
    <item DataSet="Document_Area" DataSetName="Document_Area"/>
    <item DataSet="Document_Project" DataSetName="Document_Project"/>
    <item DataSet="Document_StockGroup" DataSetName="Document_StockGroup"/>
    <item DataSet="Document_Location" DataSetName="Document_Location"/>
    <item DataSet="Document_Currency" DataSetName="Document_Currency"/>
    <item DataSet="Document_Terms" DataSetName="Document_Terms"/>
    <item DataSet="Document_ItemCompany" DataSetName="Document_ItemCompany"/>
    <item DataSet="Document_Company" DataSetName="Document_Company"/>
    <item DataSet="Document_CompanyBranch" DataSetName="Document_CompanyBranch"/>
    <item DataSet="Document_DocProject" DataSetName="Document_DocProject"/>
    <item DataSet="Document_CompanyCategory" DataSetName="Document_CompanyCategory"/>
    <item DataSet="Document_Shipper" DataSetName="Document_Shipper"/>
    <item DataSet="Document_Tariff" DataSetName="Document_Tariff"/>
    <item DataSet="Option" DataSetName="Option"/>
    <item DataSet="Profile" DataSetName="Profile"/>
    <item DataSet="User" DataSetName="User"/>
  </Datasets>
  <Variables>
    <item Name=" RBVariables"/>
    <item Name="ReportVarFromDocDate" Value="&#39;&#39;"/>
    <item Name="ReportVarFromDocNo" Value="&#39;&#39;"/>
    <item Name="ReportvSerialNo" Value="&#39;&#39;"/>
    <item Name="ReportVariable4" Value="&#39;&#39;"/>
    <item Name="ReportMemo13" Value="&#39;&#39;"/>
    <item Name="ReportVarDeposit" Value="&#39;&#39;"/>
    <item Name="ReportVarPayAmt" Value="&#39;&#39;"/>
    <item Name="ReportVariable3" Value="&#39;&#39;"/>
  </Variables>
  <TfrxDataPage Name="DataPage1" HGuides.Text="" VGuides.Text="" Height="1000" Left="0" Top="0" Width="1000"/>
  <TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HGuides.Text="" VGuides.Text="" PaperWidth="215.9" PaperHeight="279.4" PaperSize="1" LeftMargin="9.906" RightMargin="6.35" TopMargin="6.35" BottomMargin="0" ColumnWidth="0" ColumnPositions.Text="" DataSetName="plSQL_2" Frame.Style="fsDot" Frame.Typ="0" LargeDesignHeight="True" MirrorMode="0" OnBeforePrint="Page1OnBeforePrint">
    <TfrxGroupFooter Name="GroupFooter1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="271.37013" Left="0" Top="680.3154" Width="754.56048732" OnBeforePrint="GroupFooter1OnBeforePrint" Stretched="True">
      <TfrxLineView Name="Line3" AllowVectorExport="True" ShiftMode="smDontShift" Left="11.33859" Top="26.45671" Width="725.66976" Height="0" Color="0" Frame.Typ="4"/>
      <TfrxMemoView Name="Memo20" AllowVectorExport="True" Left="15.11812" Top="64.25201" Width="68.03154" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="Issued By: "/>
      <TfrxLineView Name="Line14" AllowVectorExport="True" Left="11.33859" Top="222.99227" Width="196.53556" Height="0" Color="0" Frame.Style="fsDot" Frame.Typ="4"/>
      <TfrxMemoView Name="Memo21" AllowVectorExport="True" Left="11.33859" Top="230.55133" Width="151.1812" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="Authorised Signature"/>
      <TfrxMemoView Name="Memo22" AllowVectorExport="True" Left="302.3624" Top="68.03154" Width="143.62214" Height="41.57483" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="Transport Company/ Driver&#39;s Name &#38; I/C No:"/>
      <TfrxLineView Name="Line15" AllowVectorExport="True" Left="302.3624" Top="222.99227" Width="143.62214" Height="0" Color="0" Frame.Style="fsDot" Frame.Typ="4"/>
      <TfrxMemoView Name="Memo23" AllowVectorExport="True" Left="302.3624" Top="230.55133" Width="132.28355" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="Vehicle Reg. No:"/>
      <TfrxMemoView Name="Memo34" AllowVectorExport="True" Left="514.01608" Top="68.03154" Width="211.65368" Height="34.01577" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="We have received above-mentioned items in good condition and order"/>
      <TfrxLineView Name="Line16" AllowVectorExport="True" Left="510.23655" Top="222.99227" Width="196.53556" Height="0" Color="0" Frame.Style="fsDot" Frame.Typ="4"/>
      <TfrxMemoView Name="Memo35" AllowVectorExport="True" Left="514.01608" Top="230.55133" Width="162.51979" Height="30.23624" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="Customer&#39;s Chop and Sign Date: "/>
      <TfrxMemoView Name="Memo37" AllowVectorExport="True" Left="390.953" Top="30.23624" Width="94.48825" Height="18.89765" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="Total Quantity:"/>
      <TfrxMemoView Name="Memo38" AllowVectorExport="True" Left="486.32313" Top="30.23624" Width="136.06308" Height="18.89765" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[FormatFloat(&#60;Option.&#34;StockQuantityDisplayFormat&#34;&#62;, &#13;&#10;     GetTotal(&#39;Qty&#39;)-&#60;AdjRound.&#34;Qty&#34;&#62;)]"/>
      <TfrxMemoView Name="Memo49" AllowVectorExport="True" Left="15.11812019" Top="83.14963787" Width="253.22850883" Height="18.89764404" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="[Profile.&#34;CompanyName&#34;]"/>
    </TfrxGroupFooter>
    <TfrxMasterData Name="MasterData1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="0" Left="0" Top="468.66172" Width="754.56048732" ColumnWidth="0" ColumnGap="0" DataSet="Main" DataSetName="Main" RowCount="0" Stretched="True"/>
    <TfrxDetailData Name="DetailData1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Height="42.17953" Left="0" ParentFont="False" Top="532.91373" Width="754.56048732" OnAfterCalcHeight="DetailData1OnAfterCalcHeight" OnBeforePrint="DetailData1OnBeforePrint" ColumnWidth="0" ColumnGap="0" DataSet="Document_Detail" DataSetName="Document_Detail" RowCount="0" Stretched="True">
      <TfrxMemoView Name="MmDesc" AllowVectorExport="True" Left="82.37013" Top="0" Width="525.35433071" Height="11.33859" StretchMode="smMaxHeight" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" DataField="Description" DataSet="Document_Detail" DataSetName="Document_Detail" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" GapY="0" ParentFont="False" Text="[Document_Detail.&#34;Description&#34;]"/>
      <TfrxSysMemoView Name="SysMemo1" AllowVectorExport="True" Left="30.23624" Top="0" Width="30.23624" Height="11.33859" StretchMode="smMaxHeight" DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haCenter" ParentFont="False" Text="[LINE#]"/>
      <TfrxMemoView Name="Document_DetailUOM" AllowVectorExport="True" Left="506.77984" Top="0" Width="83.14966" Height="11.33859" StretchMode="smMaxHeight" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" AllowExpressions="False" DataField="UOM" DataSet="Document_Detail" DataSetName="Document_Detail" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[Document_Detail.&#34;UOM&#34;]"/>
      <TfrxMemoView Name="Memo39" AllowVectorExport="True" Left="485.76407" Top="0" Width="94.48825" Height="18.89765" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[Document_Detail.&#34;Qty&#34;]"/>
      <TfrxRichView Name="RichDesc3" AllowVectorExport="True" ShiftMode="smWhenOverlapped" Left="81.37012191" Top="11.33861137" Width="525.35467073" Height="18.89764404" StretchMode="smActualHeight" Frame.Typ="0" GapX="2" GapY="1" PropData="0852696368456469740AE80000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6E6F7569636F6D7061745C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C666368617273657430207461686F6D613B7D7B5C66315C666E696C5C666368617273657430205365676F652055493B7D7D0D0A7B5C2A5C67656E657261746F722052696368656432302031302E302E32363130307D5C766965776B696E64345C756331200D0A5C706172645C66305C66733138205B446F63756D656E745F44657461696C2E224465736372697074696F6E33225D5C66315C7061720D0A7D0D0A00"/>
      <TfrxRichView Name="RichSN" AllowVectorExport="True" ShiftMode="smWhenOverlapped" Left="81.3701282" Top="22.45670338" Width="525.35467073" Height="18.89764404" StretchMode="smActualHeight" Frame.Typ="0" GapX="2" GapY="1" PropData="0852696368456469740A150100007B5C727466315C616E73695C616E7369637067313235325C64656666305C6E6F7569636F6D7061745C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C666368617273657430205461686F6D613B7D7B5C66315C666E696C5C666368617273657430205365676F652055493B7D7D0D0A7B5C636F6C6F7274626C203B5C726564305C677265656E305C626C7565303B7D0D0A7B5C2A5C67656E657261746F722052696368656432302031302E302E32363130307D5C766965776B696E64345C756331200D0A5C706172645C6366315C66305C66733138205B476574534E283C446F63756D656E745F44657461696C2E2244746C4B6579223E295D5C6366305C66315C7061720D0A7D0D0A00"/>
    </TfrxDetailData>
    <TfrxPageFooter Name="PageFooter1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Height="28.8" Left="0" ParentFont="False" Top="1012.91404" Width="754.56048732"/>
    <TfrxDetailData Name="DetailData2" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Height="38.4" Left="0" ParentFont="False" Top="619.84292" Width="754.56048732" OnAfterCalcHeight="DetailData1OnAfterCalcHeight" OnBeforePrint="DetailData1OnBeforePrint" ColumnWidth="0" ColumnGap="0" DataSetName="MergeItemCode" RowCount="0" Stretched="True">
      <TfrxMemoView Name="MmDescM" AllowVectorExport="True" Left="41.57483" Top="0" Width="525.35433071" Height="11.33859" StretchMode="smActualHeight" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" DataField="Description" DataSetName="MergeItemCode" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" GapY="0" ParentFont="False" Text="[MergeItemCode.&#34;Description&#34;]"/>
      <TfrxSysMemoView Name="SysMemo2" AllowVectorExport="True" Left="11.33859" Top="0" Width="30.23624" Height="11.33859" StretchMode="smActualHeight" DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haCenter" ParentFont="False" Text="[LINE#]"/>
      <TfrxMemoView Name="Memo17" AllowVectorExport="True" Left="488.66172" Top="-3.77953" Width="86.92919" Height="11.33859" StretchMode="smActualHeight" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" DataField="Qty" DataSetName="MergeItemCode" DisplayFormat.FormatStr="%2.2f" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haRight" ParentFont="False" Text="[MergeItemCode.&#34;Qty&#34;]"/>
      <TfrxMemoView Name="Memo27" AllowVectorExport="True" Left="653.85869" Top="0" Width="83.14966" Height="11.33859" StretchMode="smActualHeight" DataField="UOM" DataSetName="MergeItemCode" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[MergeItemCode.&#34;UOM&#34;]"/>
      <TfrxRichView Name="RichDesc3M" AllowVectorExport="True" Left="41.57483" Top="11.33859" Width="525.35433071" Height="11.33859" StretchMode="smActualHeight" Frame.Typ="0" GapX="2" GapY="0" PropData="0852696368456469740AEB0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6E6F7569636F6D7061745C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C666368617273657430205461686F6D613B7D7D0D0A7B5C636F6C6F7274626C203B5C726564305C677265656E305C626C7565303B7D0D0A7B5C2A5C67656E657261746F722052696368656432302031302E302E32363130307D5C766965776B696E64345C756331200D0A5C706172645C6366315C66305C66733138205B4D657267654974656D436F64652E224465736372697074696F6E33225D5C7061720D0A7D0D0A00"/>
      <TfrxRichView Name="RichSNM" AllowVectorExport="True" Left="41.57483" Top="22.8" Width="525.35433071" Height="11.33859" StretchMode="smActualHeight" Frame.Typ="0" GapX="2" GapY="0" PropData="0852696368456469740A7D0100007B5C727466315C616E73695C616E7369637067313235325C64656666305C6E6F7569636F6D7061745C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C666368617273657430205365676F652055493B7D7D0D0A7B5C636F6C6F7274626C203B5C726564305C677265656E305C626C7565303B7D0D0A7B5C2A5C67656E657261746F722052696368656432302031302E302E32363130307D5C766965776B696E64345C756331200D0A5C706172645C6366315C66305C66733136205B4765744D65726765534E283C706C5F4D6572676553657269616C4E756D6265722E224974656D436F6465223E2C203C706C5F4D6572676553657269616C4E756D6265722E22554F4D223E2C3C706C5F4D6572676553657269616C4E756D6265722E22546178223E2C20203C706C5F4D6572676553657269616C4E756D6265722E2244697363223E2C203C706C5F4D6572676553657269616C4E756D6265722E22556E69745072696365223E295D5C7061720D0A7D0D0A00"/>
    </TfrxDetailData>
    <TfrxGroupHeader Name="GroupHeader2" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="18.89765" Left="0" Top="491.3389" Width="754.56048732" OnBeforePrint="GroupHeader2OnBeforePrint" Condition="Document_Detail.&#34;FromDocNo&#34;" Stretched="True">
      <TfrxMemoView Name="Document_DetailFromDocNo" AllowVectorExport="True" Left="7.55906" Top="0" Width="725.66929134" Height="11.33859" StretchMode="smActualHeight" DataSet="Document_Detail" DataSetName="Document_Detail" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="4" Frame.Typ="0" ParentFont="False" WordWrap="False" Text="From Doc No.: [Document_Detail.&#34;FromDocNo&#34;];    From Doc Date : [Document_Detail.&#34;FromDocDate&#34;]"/>
    </TfrxGroupHeader>
    <TfrxGroupFooter Name="GroupFooter2" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="0" Left="0" Top="597.16574" Width="754.56048732" Stretched="True"/>
    <TfrxGroupHeader Name="GroupHeader1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="427.08667031" Left="0" Top="18.89765" Width="754.56048732" OnBeforePrint="GroupHeader1OnBeforePrint" Condition="Main.&#34;DocNo&#34;" ReprintOnNewPage="True" ResetPageNumbers="True" StartNewPage="True">
      <TfrxLineView Name="Line8" AllowVectorExport="True" ShiftMode="smDontShift" Left="15.11812" Top="149.66929378" Width="725.66976" Height="0" Color="0" Frame.Typ="4"/>
      <TfrxMemoView Name="Memo32" AllowVectorExport="True" ShiftMode="smDontShift" Left="35.11812" Top="213.92129402" Width="408.18897638" Height="15.11812" StretchMode="smActualHeight" DataSet="Main" DataSetName="Main" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="[Main.&#34;CompanyName&#34;]"/>
      <TfrxMemoView Name="Memo52" AllowVectorExport="True" ShiftMode="smDontShift" Left="35.7953" Top="313.70081913" Width="30.23624" Height="15.11812" StretchMode="smActualHeight" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="Tel:"/>
      <TfrxMemoView Name="Memo53" AllowVectorExport="True" ShiftMode="smDontShift" Left="36.7953" Top="330.59845937" Width="41.57483" Height="22.67716535" StretchMode="smActualHeight" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haBlock" ParentFont="False" Text="Email:"/>
      <TfrxMemoView Name="Memo54" AllowVectorExport="True" ShiftMode="smDontShift" Left="35.45671" Top="295.14193" Width="34.01577" Height="15.11812" StretchMode="smActualHeight" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="Attn:"/>
      <TfrxMemoView Name="Memo55" AllowVectorExport="True" ShiftMode="smDontShift" Left="80.03154" Top="295.14193" Width="377.95275591" Height="15.11812" StretchMode="smActualHeight" DataField="Attention" DataSet="Main" DataSetName="Main" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[Main.&#34;Attention&#34;]"/>
      <TfrxPictureView Name="Picture1" AllowVectorExport="True" ShiftMode="smDontShift" Left="45.35436" Top="11.33859" Width="105.82684" Height="105.82684" DataField="Logo" DataSet="Profile" DataSetName="Profile" Frame.Typ="0" HightQuality="False" Transparent="False" TransparentColor="16777215"/>
      <TfrxRichView Name="Rich1" AllowVectorExport="True" ShiftMode="smDontShift" Left="139.84261" Top="11.33859" Width="483.77984" Height="151.1812" AllowExpressions="False" DataField="Note" DataSet="Profile" DataSetName="Profile" Frame.Typ="0" GapX="2" GapY="1" PropData="0852696368456469740AA60000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6E6F7569636F6D7061745C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C666368617273657430205461686F6D613B7D7D0D0A7B5C2A5C67656E657261746F722052696368656432302031302E302E32363130307D5C766965776B696E64345C756331200D0A5C706172645C66305C667331365C7061720D0A7D0D0A00"/>
      <TfrxMemoView Name="Memo60" AllowVectorExport="True" ShiftMode="smDontShift" Left="80.03154" Top="313.70081913" Width="185.19672591" Height="15.11812" StretchMode="smActualHeight" DataField="Phone1" DataSet="Main" DataSetName="Main" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[Main.&#34;Phone1&#34;]"/>
      <TfrxMemoView Name="Memo71" AllowVectorExport="True" ShiftMode="smDontShift" Left="34.11812" Top="232.81893425" Width="408.18897638" Height="73.32283465" DataSet="Main" DataSetName="Main" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[Main.&#34;Address1&#34;]&#13;&#10;[Main.&#34;Address2&#34;]&#13;&#10;[Main.&#34;Address3&#34;]&#13;&#10;[Main.&#34;Address4&#34;]"/>
      <TfrxMemoView Name="MmDuplicate" AllowVectorExport="True" ShiftMode="smDontShift" Left="566.82715" Top="113.38582433" Width="170.07874016" Height="28.8" Visible="False" Visibility="3" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haRight" ParentFont="False" Text="Duplicate Copy"/>
      <TfrxMemoView Name="Memo43" AllowVectorExport="True" Left="34.77953" Top="192.75603" Width="94.48825" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="To:"/>
      <TfrxRichView Name="Rich2" AllowVectorExport="True" Left="79.37013" Top="328.81911" Width="238.11039" Height="18.89765" Frame.Typ="0" GapX="2" GapY="1" PropData="0852696368456469740ACE0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6E6F7569636F6D7061745C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C666368617273657430205365676F652055493B7D7D0D0A7B5C2A5C67656E657261746F722052696368656432302031302E302E32363130307D5C766965776B696E64345C756331200D0A5C706172645C66305C66733230205B446F63756D656E745F436F6D70616E794272616E63682E22456D61696C225D5C667331385C7061720D0A7D0D0A00"/>
      <TfrxLineView Name="Line1" AllowVectorExport="True" Left="15.11812" Top="177.63791" Width="41.57483" Height="0" Color="0" Frame.Typ="4"/>
      <TfrxLineView Name="Line4" AllowVectorExport="True" Left="15.11812" Top="177.63791" Width="0" Height="30.23624" Color="0" Frame.Typ="1"/>
      <TfrxLineView Name="Line5" AllowVectorExport="True" Left="275.90569" Top="177.63791" Width="37.7953" Height="0" Color="0" Frame.Typ="4"/>
      <TfrxLineView Name="Line6" AllowVectorExport="True" Left="314.02381" Top="177.63791" Width="0" Height="30.23624" Color="0" Frame.Typ="1"/>
      <TfrxLineView Name="Line7" AllowVectorExport="True" Left="15.11812" Top="359.05535" Width="41.57483" Height="0" Color="0" Frame.Typ="4"/>
      <TfrxLineView Name="Line9" AllowVectorExport="True" Left="15.11812" Top="326.03958" Width="0" Height="34.01577" Color="0" Frame.Typ="1"/>
      <TfrxLineView Name="Line10" AllowVectorExport="True" Left="313.70099" Top="321.26005" Width="0" Height="37.7953" Color="0" Frame.Typ="1"/>
      <TfrxLineView Name="Line11" AllowVectorExport="True" Left="275.90569" Top="360.24428" Width="37.7953" Height="0" Color="0" Frame.Typ="4"/>
      <TfrxMemoView Name="Memo44" AllowVectorExport="True" Left="442.20501" Top="151.1812" Width="283.46475" Height="41.57483" Font.Charset="1" Font.Color="-16777208" Font.Height="-21" Font.Name="Georgia Pro Black" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="DELIVERY ORDER"/>
      <TfrxMemoView Name="Memo61" AllowVectorExport="True" Left="451.76407" Top="188.9765" Width="128.50402" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haBlock" ParentFont="False" Text="D/O NO"/>
      <TfrxRichView Name="Rich3" AllowVectorExport="True" Left="551.81138" Top="188.9765" Width="132.28355" Height="18.89765" Frame.Typ="0" GapX="2" GapY="1" PropData="0852696368456469740AE50000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6E6F7569636F6D7061745C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C666368617273657430205461686F6D613B7D7D0D0A7B5C636F6C6F7274626C203B5C726564305C677265656E305C626C7565303B7D0D0A7B5C2A5C67656E657261746F722052696368656432302031302E302E32363130307D5C766965776B696E64345C756331200D0A5C706172645C6366315C625C66305C66733234205B4D61696E2E22446F634E6F225D5C62305C667331345C7061720D0A7D0D0A00"/>
      <TfrxLineView Name="Line12" AllowVectorExport="True" Left="11.33859" Top="385.51206" Width="733.22882" Height="0" Color="0" Frame.Typ="4"/>
      <TfrxLineView Name="Line13" AllowVectorExport="True" Left="11.33859" Top="419.52783" Width="733.22882" Height="0" Color="0" Frame.Typ="4"/>
      <TfrxMemoView Name="Memo18" AllowVectorExport="True" Left="30.23624" Top="393.07112" Width="94.48825" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="tahoma" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="No"/>
      <TfrxMemoView Name="Memo19" AllowVectorExport="True" Left="82.92919" Top="393.07112" Width="94.48825" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="Description"/>
      <TfrxMemoView Name="Memo28" AllowVectorExport="True" Left="487.10266" Top="393.07112" Width="94.48825" Height="18.89765" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="Quantity"/>
      <TfrxMemoView Name="Memo24" AllowVectorExport="True" Left="452.32313" Top="211.65368" Width="98.26778" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haBlock" ParentFont="False" Text="P.O. NO"/>
      <TfrxMemoView Name="Memo25" AllowVectorExport="True" Left="452.32313" Top="233.33086" Width="105.82684" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haBlock" ParentFont="False" Text="Your Ref"/>
      <TfrxMemoView Name="Memo26" AllowVectorExport="True" Left="451.98454" Top="256.00804" Width="120.94496" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haBlock" ParentFont="False" Text="Debtor Code"/>
      <TfrxMemoView Name="Memo30" AllowVectorExport="True" Left="452.76407" Top="279.68522" Width="113.3859" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="Terms"/>
      <TfrxMemoView Name="Memo31" AllowVectorExport="True" Left="452.98454" Top="302.3624" Width="105.82684" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haBlock" ParentFont="False" Text="Date"/>
      <TfrxMemoView Name="Memo36" AllowVectorExport="True" Left="452.76407" Top="325.03958" Width="117.16543" Height="22.67718" Font.Charset="1" Font.Color="-16777208" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" HAlign="haBlock" ParentFont="False" Text="Page"/>
      <TfrxRichView Name="Rich5" AllowVectorExport="True" Left="551.81138" Top="277.90569" Width="143.62214" Height="18.89765" Frame.Typ="0" GapX="2" GapY="1" PropData="0852696368456469740ADB0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6E6F7569636F6D7061745C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C666368617273657430205461686F6D613B7D7B5C66315C666E696C5C666368617273657430205365676F652055493B7D7D0D0A7B5C2A5C67656E657261746F722052696368656432302031302E302E32363130307D5C766965776B696E64345C756331200D0A5C706172645C66305C66733234205B4D61696E2E225465726D73225D5C66315C667331385C7061720D0A7D0D0A00"/>
      <TfrxRichView Name="Rich6" AllowVectorExport="True" Left="551.81138" Top="301.58287" Width="154.96073" Height="18.89765" Frame.Typ="0" GapX="2" GapY="1" PropData="0852696368456469740ABE0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6E6F7569636F6D7061745C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C666368617273657430205461686F6D613B7D7D0D0A7B5C2A5C67656E657261746F722052696368656432302031302E302E32363130307D5C766965776B696E64345C756331200D0A5C706172645C66305C66733234205B4D61696E2E22506F737444617465225D5C7061720D0A5C7061720D0A7D0D0A00"/>
      <TfrxRichView Name="Rich7" AllowVectorExport="True" Left="551.81138" Top="255.44898" Width="151.1812" Height="18.89765" Frame.Typ="0" GapX="2" GapY="1" PropData="0852696368456469740ADF0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6E6F7569636F6D7061745C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C666368617273657430205461686F6D613B7D7D0D0A7B5C636F6C6F7274626C203B5C726564305C677265656E305C626C7565303B7D0D0A7B5C2A5C67656E657261746F722052696368656432302031302E302E32363130307D5C766965776B696E64345C756331200D0A5C706172645C6366315C66305C66733234205B4D61696E2E22436F6465225D5C667331345C7061720D0A7D0D0A00"/>
      <TfrxRichView Name="Rich8" AllowVectorExport="True" Left="551.81138" Top="211.65368" Width="139.84261" Height="18.89765" Frame.Typ="0" GapX="2" GapY="1" PropData="0852696368456469740AE20000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6E6F7569636F6D7061745C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C666368617273657430205461686F6D613B7D7D0D0A7B5C636F6C6F7274626C203B5C726564305C677265656E305C626C7565303B7D0D0A7B5C2A5C67656E657261746F722052696368656432302031302E302E32363130307D5C766965776B696E64345C756331200D0A5C706172645C6366315C66305C66733234205B4D61696E2E22446F634E6F4578225D5C667331385C7061720D0A7D0D0A00"/>
      <TfrxRichView Name="Rich9" AllowVectorExport="True" Left="551.81138" Top="233.33086" Width="147.40167" Height="18.89765" Frame.Typ="0" GapX="2" GapY="1" PropData="0852696368456469740AE20000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6E6F7569636F6D7061745C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C666368617273657430205461686F6D613B7D7D0D0A7B5C636F6C6F7274626C203B5C726564305C677265656E305C626C7565303B7D0D0A7B5C2A5C67656E657261746F722052696368656432302031302E302E32363130307D5C766965776B696E64345C756331200D0A5C706172645C6366315C66305C66733234205B4D61696E2E22446F6352656631225D5C667331345C7061720D0A7D0D0A00"/>
      <TfrxSysMemoView Name="SysMemo3" AllowVectorExport="True" Left="552.81138" Top="329.81911" Width="124.72449" Height="26.45671" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[PAGE] of [TOTALPAGES]"/>
      <TfrxMemoView Name="Memo40" AllowVectorExport="True" Left="536.69326" Top="188.9765" Width="7.55906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Text=":"/>
      <TfrxMemoView Name="Memo41" AllowVectorExport="True" Left="536.69326" Top="234.33086" Width="7.55906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Text=":"/>
      <TfrxMemoView Name="Memo42" AllowVectorExport="True" Left="536.69326" Top="211.65368" Width="7.55906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Text=":"/>
      <TfrxMemoView Name="Memo45" AllowVectorExport="True" Left="536.69326" Top="257.00804" Width="7.55906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Text=":"/>
      <TfrxMemoView Name="Memo46" AllowVectorExport="True" Left="536.69326" Top="279.68522" Width="7.55906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0" HAlign="haCenter" ParentFont="False" Text=":"/>
      <TfrxMemoView Name="Memo47" AllowVectorExport="True" Left="536.69326" Top="303.3624" Width="7.55906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0" HAlign="haCenter" ParentFont="False" Text=":"/>
      <TfrxMemoView Name="Memo48" AllowVectorExport="True" Left="536.69326" Top="328.81911" Width="7.55906" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0" HAlign="haCenter" ParentFont="False" Text=":"/>
    </TfrxGroupHeader>
  </TfrxReportPage>
</TfrxReport>
