<?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Version="2022.3" DotMatrixReport="False" 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="44742.4536006829" ReportOptions.Description.Text="Datamap=TdvSLQT&#13;&#10;GUID={482207BD-FAD2-443A-B64B-1DE1E4E0F9E6}" ReportOptions.LastChange="44958.518457581" ScriptLanguage="PascalScript" ScriptText.Text="const MaxInt = 2147483647;&#13;&#10;var lSQL : String;&#13;&#10;    pST_Item : pointer;&#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;,'/','')&#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 := '';&#13;&#10;  while SearchStr &#60;&#62; '' 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,'.fr3','');&#13;&#10;  D := Report.GetDataSet('plEMailTpl');&#13;&#10;  D.First;&#13;&#10;  While not D.Eof do begin&#13;&#10;    if Trim(D.Value('ReportName')) = 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; '' 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('Main');&#13;&#10;    Add('Profile');&#13;&#10;    Add('plEMailTpl');&#13;&#10;    Add('Document_Currency');&#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, '&#60;'+ lPL[j] + '.' + lSL[i] + '&#62;',D.Value(lSL[i])) else&#13;&#10;         nStr := StringReplace(nStr, '&#60;'+ lPL[j] + '.' + lSL[i] + '&#62;',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; '' ) and (vEmail &#60;&#62; '') then begin&#13;&#10;    EmailSettings.Values['Recipients']  := vEmail;&#13;&#10;    EmailSettings.Values['CC']          := &#60;plEMailTpl.&#34;CC&#34;&#62;;&#13;&#10;    EmailSettings.Values['BCC']         := &#60;plEMailTpl.&#34;BCC&#34;&#62;;&#13;&#10;    EmailSettings.Values['Subject']     := GetFldInfo(&#60;plEMailTpl.&#34;Subject&#34;&#62;);&#13;&#10;    EmailSettings.Values['Body']        := GetFldInfo(RichTextToPlainText(&#60;plEMailTpl.&#34;Body&#34;&#62;));&#13;&#10;    if Trim(&#60;plEMailTpl.&#34;PDFFileName&#34;&#62;) &#60;&#62; '' then&#13;&#10;      EmailSettings.Values['FileName']    := GetFldInfo(&#60;plEMailTpl.&#34;PDFFileName&#34;&#62;);&#13;&#10;    if Trim(GetPassword) &#60;&#62; '' then&#13;&#10;      EmailSettings.Values['PDFPassword'] := GetPassword;&#13;&#10;  end;&#13;&#10;  //ID uses for display on progress dialog&#13;&#10;  EmailSettings.Values['ID']        := 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 := '';&#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; '' ) and (vEmail &#60;&#62; '') 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,'.fr3','');&#13;&#10;  D := Report.GetDataSet('plShareMsg');&#13;&#10;  D.First;&#13;&#10;  While not D.Eof do begin&#13;&#10;    if Trim(D.Value('ReportName')) = 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; '' then&#13;&#10;    Result := lFld else&#13;&#10;    Result := '0';&#13;&#10;end;&#13;&#10;&#13;&#10;function VarToFloatDef(const lFld:Variant):Variant;&#13;&#10;begin&#13;&#10;  if Trim(lFld) &#60;&#62; '' then&#13;&#10;    Result := lFld else&#13;&#10;    Result := 0.00;&#13;&#10;end;&#13;&#10;&#13;&#10;function GetTotalB4Disc:Variant;&#13;&#10;var D : TfrxDataSet;&#13;&#10;    V : Variant;&#13;&#10;    s : string;&#13;&#10;begin&#13;&#10;  D := Report.GetDataSet('Document_Detail');&#13;&#10;  V := 0.00;&#13;&#10;  D.First;&#13;&#10;  While not D.Eof do begin&#13;&#10;    V := V + SimpleRoundTo(D.Value('Qty')*D.Value('UnitPrice'),-2);&#13;&#10;    D.Next;&#13;&#10;  end;&#13;&#10;  Result := V;&#13;&#10;end;&#13;&#10;&#13;&#10;function GetDiscValue:Variant;&#13;&#10;var D : TfrxDataSet;&#13;&#10;    V : Variant;&#13;&#10;    s : string;&#13;&#10;begin&#13;&#10;  D := Report.GetDataSet('Document_Detail');&#13;&#10;  V := 0.00;&#13;&#10;  D.First;&#13;&#10;  While not D.Eof do begin&#13;&#10;    if D.Value('TaxInclusive') = 0 then&#13;&#10;      V := V + (D.Value('Amount') - SimpleRoundTo(D.Value('Qty')*D.Value('UnitPrice'),-2)) else&#13;&#10;      V := V + (D.Value('AmountWithTax') - SimpleRoundTo(D.Value('Qty')*D.Value('UnitPrice'),-2));&#13;&#10;    D.Next;&#13;&#10;  end;&#13;&#10;  Result := V + VarToFloatDef(&#60;pl_Disc.&#34;Amount&#34;&#62;);&#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('Document_Detail');&#13;&#10;  V  := 0.00;&#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 GetTotalTaxIncl(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('Document_Detail');&#13;&#10;  V  := 0.00;&#13;&#10;  D.First;&#13;&#10;  While not D.Eof do begin&#13;&#10;    if D.Value('TaxInclusive') = 1 then&#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 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;procedure SetUp;&#13;&#10;var SQL : String;&#13;&#10;begin&#13;&#10;  SQL := 'SELECT B.Description As ReportName, B.Description2 As Subject, B.Description3 As Body, '+&#13;&#10;         'A.Address1 As CC, A.Address2 As BCC, B.Remark1 As PDFPassWord, B.Remark2 As PDFFileName ' +&#13;&#10;         'FROM SL_QT A ' +&#13;&#10;         'INNER JOIN SL_QTDTL B ON (A.Dockey=B.Dockey) ' +&#13;&#10;         'WHERE A.DocNo=''EMAIL'' ' +&#13;&#10;         'ORDER BY B.SEQ';&#13;&#10;  AddDataSet('plEMailTpl', ['ReportName', 'Subject', 'Body', 'PDFPassWord', 'PDFFileName', 'CC', 'BCC'])&#13;&#10;  .GetDBData(SQL);&#13;&#10;&#13;&#10;  SQL := 'SELECT B.Description As ReportName, B.Description3 As Body '+&#13;&#10;         'FROM SL_QT A ' +&#13;&#10;         'INNER JOIN SL_QTDTL B ON (A.Dockey=B.Dockey) ' +&#13;&#10;         'WHERE A.DocNo=''WHATSAPP'' ' +&#13;&#10;         'ORDER BY B.SEQ';&#13;&#10;  AddDataSet('plShareMsg', ['ReportName', 'Body'])&#13;&#10;  .GetDBData(SQL);&#13;&#10;&#13;&#10;  SQL := 'SELECT DocKey, ItemCode, UOM, UnitPrice, Disc, MAX(Seq) Seq, Description, Description3, ' +&#13;&#10;		       'SUM(CAST(Qty AS REAL)) Qty, SUM(CAST(Amount AS REAL)) Amount, SUM(CAST(AmountWithTax AS REAL)) AmountWithTax,  '+&#13;&#10;         'SUM(CAST(LocalAmount AS REAL)) LocalAmount, SUM(CAST(LocalAmountWithTax AS REAL)) LocalAmountWithTax,  '+&#13;&#10;         'Tax, Sum(CAST(TaxAmt AS REAL)) TaxAmt, Sum(CAST(LocalTaxAmt AS REAL)) LocalTaxAmt ' +&#13;&#10;         'FROM Document_Detail ' +&#13;&#10;         'GROUP BY DocKey, ItemCode, UOM, UnitPrice, Disc, Tax ';&#13;&#10;  AddDataSet('MergeItemCode', ['Dockey', 'ItemCode', 'UOM', 'UnitPrice', 'Disc', 'Seq', 'Description',&#13;&#10;                               'Description3', 'LocalAmount', 'LocalAmountWithTax',&#13;&#10;                               'Qty', 'Amount', 'AmountWithTax', 'Tax', 'TaxAmt','LocalTaxAmt'])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .SetDisplayFormat(['LocalAmount', 'LocalAmountWithTax', 'Amount', 'AmountWithTax',&#13;&#10;                     'TaxAmt','LocalTaxAmt'], &#60;Option.&#34;AccountingValueDisplayFormat&#34;&#62;)&#13;&#10;  .SetDisplayFormat(['Qty'],&#60;Option.&#34;StockQuantityDisplayFormat&#34;&#62;)&#13;&#10;  .SetDisplayFormat(['UnitPrice'],&#60;Option.&#34;StockPriceDisplayFormat&#34;&#62;)&#13;&#10;  .LinkTo('Main', 'Dockey', 'Dockey;Seq');&#13;&#10;&#13;&#10;  SQL := 'SELECT Dockey, Amount, LocalAmount, Qty FROM Document_Detail ' +&#13;&#10;         'WHERE ItemCode=''RTN5Cents'' ';&#13;&#10;  AddDataSet('AdjRound', ['Dockey', 'Amount', 'LocalAmount', 'Qty'])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .SetDisplayFormat(['Qty'],&#60;Option.&#34;StockQuantityDisplayFormat&#34;&#62;)&#13;&#10;  .SetDisplayFormat(['Amount, LocalAmount'],&#60;Option.&#34;AccountingValueDisplayFormat&#34;&#62;)&#13;&#10;  .LinkTo('Main', 'Dockey', 'Dockey');&#13;&#10;&#13;&#10;  SQL := 'SELECT Dockey, SUM(CAST(Amount AS REAL)) Amount, SUM(CAST(LocalAmount AS REAL)) LocalAmount, '+&#13;&#10;         'SUM(CAST(Qty AS REAL)) Qty FROM Document_Detail ' +&#13;&#10;         'WHERE ItemCode LIKE ''DISC%'' ' +&#13;&#10;         'GROUP BY Dockey';&#13;&#10;  AddDataSet('pl_Disc', ['Dockey', 'Amount', 'LocalAmount', 'Qty'])&#13;&#10;  .GetLocalData(SQL)&#13;&#10;  .SetDisplayFormat(['Qty'],&#60;Option.&#34;StockQuantityDisplayFormat&#34;&#62;)&#13;&#10;  .SetDisplayFormat(['Amount, LocalAmount'],&#60;Option.&#34;AccountingValueDisplayFormat&#34;&#62;)&#13;&#10;  .LinkTo('Main', 'Dockey', 'Dockey');&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Picture1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var V : Variant;&#13;&#10;&#13;&#10;begin&#13;&#10;  Picture1.Height := 0;&#13;&#10;  V := Null;&#13;&#10;  V := CacheQuery_GetValue(pST_Item, [&#60;Document_Detail.&#34;ItemCode&#34;&#62;], 'Picture');&#13;&#10;  if not VarIsNull(V) then begin&#13;&#10;    Picture1.LoadPictureFromBytes(V);&#13;&#10;    Picture1.Height := 48;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;&#13;&#10;&#13;&#10;begin&#13;&#10;   pST_Item := CacheQuery_New('SELECT Picture FROM ST_ITEM WHERE Code=:Code');&#13;&#10;end.">
  <Datasets>
    <item DataSet="Main" DataSetName="Main"/>
    <item DataSet="Document_Detail" DataSetName="Document_Detail"/>
    <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>
  <TfrxDataPage Name="Data" HGuides.Text="" VGuides.Text="" Height="1000" Left="0" Top="0" Width="1000"/>
  <TfrxReportPage Name="Page1" HGuides.Text="" VGuides.Text="" PaperWidth="210" PaperHeight="297" 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="18.89765" Width="718.1107"/>
    <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="461.10266" Width="718.1107" ColumnWidth="0" ColumnGap="0" DataSet="Main" DataSetName="Main" RowCount="0" Stretched="True"/>
    <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="865.51237" Width="718.1107">
      <TfrxMemoView Name="Memo1" AllowVectorExport="True" Left="642.5201" Top="0" Width="75.5906" Height="18.89765" Frame.Typ="0" HAlign="haRight" Text="[Page#]"/>
    </TfrxPageFooter>
    <TfrxDetailData Name="DetailData1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="18.89765" Left="0" Top="483.77984" Width="718.1107" ColumnWidth="0" ColumnGap="0" DataSet="Document_Detail" DataSetName="Document_Detail" RowCount="0" Stretched="True">
      <TfrxMemoView Name="Document_DetailSeq" IndexTag="1" AllowVectorExport="True" Left="0" Top="0" Width="34.01577" Height="18.89765" StretchMode="smMaxHeight" DataField="Seq" DataSet="Document_Detail" DataSetName="Document_Detail" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" Text="[Document_Detail.&#34;Seq&#34;]"/>
      <TfrxPictureView Name="Picture1" AllowVectorExport="True" Left="370.39394" Top="0" Width="52.91342" Height="18.89765" OnBeforePrint="Picture1OnBeforePrint" Frame.Typ="0" Frame.Width="0.5" HightQuality="False" Transparent="False" TransparentColor="16777215"/>
      <TfrxMemoView Name="Memo12" AllowVectorExport="True" Left="423.30736" Top="0" Width="75.5906" Height="18.89765" StretchMode="smMaxHeight" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" Text="[FormatFloat('#,0.00;-#,0.00',&#60;Document_Detail.&#34;Qty&#34;&#62;)] [Document_Detail.&#34;UOM&#34;]"/>
      <TfrxMemoView Name="Memo13" AllowVectorExport="True" Left="498.89796" Top="0" Width="75.5906" Height="18.89765" StretchMode="smMaxHeight" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[Document_Detail.&#34;UnitPrice&#34;]"/>
      <TfrxMemoView Name="Memo14" AllowVectorExport="True" Left="574.48856" Top="0" Width="105.82684" Height="18.89765" StretchMode="smMaxHeight" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[Document_Detail.&#34;Amount&#34;]"/>
      <TfrxMemoView Name="Memo21" AllowVectorExport="True" Left="680.3154" Top="0" Width="37.7953" Height="18.89765" StretchMode="smMaxHeight" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" Text="[Document_Detail.&#34;TaxRate&#34;]"/>
      <TfrxMemoView Name="Memo49" IndexTag="1" AllowVectorExport="True" Left="370.39394" Top="0" Width="52.91342" Height="18.89765" StretchMode="smMaxHeight" DataSet="Document_Detail" DataSetName="Document_Detail" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" ParentFont="False" Text=""/>
      <TfrxRichView Name="Rich2" AllowVectorExport="True" Left="34.01577" Top="0" Width="336.37817" Height="18.89765" StretchMode="smMaxHeight" Frame.Typ="15" Frame.Width="0.5" GapX="2" GapY="1" PropData="0852696368456469740AEE0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6E6F7569636F6D7061745C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C666368617273657430205365676F652055493B7D7D0D0A7B5C2A5C67656E657261746F722052696368656432302031302E302E32323632317D5C766965776B696E64345C756331200D0A5C706172645C66305C66733136205B446F63756D656E745F44657461696C2E224465736372697074696F6E225D5C7061720D0A5B446F63756D656E745F44657461696C2E224465736372697074696F6E33225D5C7061720D0A7D0D0A00"/>
    </TfrxDetailData>
    <TfrxGroupHeader Name="GroupHeader1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="357.41744" Left="0" Top="79.37013" Width="718.1107" AllowSplit="True" Condition="Main.&#34;DocKey&#34;" ReprintOnNewPage="True" StartNewPage="True" Stretched="True">
      <TfrxShapeView Name="Shape1" AllowVectorExport="True" Left="498.89796" Top="-1.35436" Width="219.21274" Height="321.26005" Frame.Color="16777215" Frame.Typ="0"/>
      <TfrxMemoView Name="Memo2" AllowVectorExport="True" Left="0" Top="319.62214" Width="34.01577" Height="37.7953" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Segoe UI" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" ParentFont="False" VAlign="vaCenter" Text="No."/>
      <TfrxMemoView Name="Memo4" AllowVectorExport="True" Left="34.01577" Top="319.62214" Width="336.37817" Height="37.7953" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Segoe UI" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" ParentFont="False" VAlign="vaCenter" Text="Description"/>
      <TfrxMemoView Name="Memo5" AllowVectorExport="True" Left="370.39394" Top="319.62214" Width="52.91342" Height="37.7953" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Segoe UI" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" ParentFont="False" VAlign="vaCenter" Text=""/>
      <TfrxMemoView Name="Memo6" AllowVectorExport="True" Left="423.30736" Top="319.62214" Width="75.5906" Height="37.7953" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Segoe UI" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Qty"/>
      <TfrxMemoView Name="Memo7" AllowVectorExport="True" Left="498.89796" Top="319.62214" Width="75.5906" Height="37.7953" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Segoe UI" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Unit Price"/>
      <TfrxMemoView Name="Memo9" AllowVectorExport="True" Left="574.48856" Top="319.62214" Width="105.82684" Height="37.7953" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Segoe UI" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Amount"/>
      <TfrxMemoView Name="Memo19" AllowVectorExport="True" Left="680.3154" Top="319.62214" Width="37.7953" Height="37.7953" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Segoe UI" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Tax Rate"/>
      <TfrxPictureView Name="Picture2" AllowVectorExport="True" Left="0" Top="0" Width="117.16543" Height="109.60637" Center="True" DataField="Logo" DataSet="Profile" DataSetName="Profile" Frame.Typ="0" HightQuality="False" Transparent="False" TransparentColor="16777215"/>
      <TfrxRichView Name="Rich1" AllowVectorExport="True" Left="120.94496" Top="0" Width="377.953" Height="105.82684" StretchMode="smActualHeight" DataField="Note" DataSet="Profile" DataSetName="Profile" Frame.Typ="0" GapX="2" GapY="1" PropData="0852696368456469740AA80000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6E6F7569636F6D7061745C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C666368617273657430205365676F652055493B7D7D0D0A7B5C2A5C67656E657261746F722052696368656432302031302E302E32323632317D5C766965776B696E64345C756331200D0A5C706172645C66305C667331385C7061720D0A7D0D0A00"/>
      <TfrxMemoView Name="Memo27" AllowVectorExport="True" ShiftMode="smDontShift" Left="506.45702" Top="85.22047" Width="211.65368" Height="26.45671" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="Segoe UI" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="QUOTATION"/>
      <TfrxMemoView Name="Memo28" AllowVectorExport="True" Left="0" Top="124.72449" Width="49.13389" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-9" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" Fill.BackColor="16777215" ParentFont="False" Text="Quote To : "/>
      <TfrxMemoView Name="Memo29" AllowVectorExport="True" Left="563.14997" Top="126.47248" Width="154.96073" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="[Main.&#34;DocNo&#34;]"/>
      <TfrxMemoView Name="Memo30" AllowVectorExport="True" Left="563.14997" Top="150.70872" Width="154.96073" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[Main.&#34;DocDate&#34;]"/>
      <TfrxMemoView Name="Memo31" AllowVectorExport="True" Left="0" Top="270.7718" Width="498.89796" Height="49.13389" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="Thank you for youe inquiry.&#13;&#10;&#13;&#10;We are pleased to quote you the following: "/>
      <TfrxMemoView Name="Memo32" AllowVectorExport="True" Left="506.23655" Top="126.47248" Width="56.69295" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="No. : "/>
      <TfrxMemoView Name="Memo33" AllowVectorExport="True" Left="506.23655" Top="150.70872" Width="56.69295" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="Date :  "/>
      <TfrxMemoView Name="Memo34" AllowVectorExport="True" Left="0" Top="143.62214" Width="498.89796" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="[Main.&#34;CompanyName&#34;]"/>
      <TfrxMemoView Name="Memo35" AllowVectorExport="True" ShiftMode="smDontShift" Left="0" Top="162.51979" Width="498.89796" Height="79.37013" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" 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;]">
        <Formats>
          <item/>
          <item/>
          <item/>
          <item/>
        </Formats>
      </TfrxMemoView>
      <TfrxMemoView Name="Memo36" AllowVectorExport="True" Left="0" Top="241.88992" Width="64.25201" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="Attention : "/>
      <TfrxMemoView Name="Memo37" AllowVectorExport="True" Left="64.25201" Top="241.88992" Width="434.64595" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="[Main.&#34;Attention&#34;]"/>
      <TfrxMemoView Name="Memo38" AllowVectorExport="True" Left="563.14997" Top="174.94496" Width="154.96073" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[Main.&#34;Terms&#34;]"/>
      <TfrxMemoView Name="Memo39" AllowVectorExport="True" Left="506.23655" Top="174.94496" Width="56.69295" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="Terms :  "/>
      <TfrxMemoView Name="Memo40" AllowVectorExport="True" Left="506.23655" Top="199.09462" Width="56.69295" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="CC : "/>
      <TfrxMemoView Name="Memo41" AllowVectorExport="True" Left="563.14997" Top="199.09462" Width="154.96073" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[Main.&#34;CC&#34;]"/>
      <TfrxMemoView Name="Memo42" AllowVectorExport="True" Left="506.23655" Top="224.33086" Width="56.69295" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="D/Terms : "/>
      <TfrxMemoView Name="Memo43" AllowVectorExport="True" Left="563.14997" Top="224.33086" Width="154.96073" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[Main.&#34;DeliveryTerm&#34;]"/>
      <TfrxMemoView Name="Memo44" AllowVectorExport="True" Left="506.23655" Top="249.5671" Width="56.69295" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="Vailidity : "/>
      <TfrxMemoView Name="Memo45" AllowVectorExport="True" Left="563.14997" Top="249.5671" Width="154.96073" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[Main.&#34;Validity&#34;]"/>
      <TfrxMemoView Name="Memo52" AllowVectorExport="True" Left="506.45702" Top="273.90569" Width="56.69295" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="Page : "/>
      <TfrxMemoView Name="Memo55" AllowVectorExport="True" Left="563.37044" Top="273.90569" Width="154.96073" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[Page#] of [TotalPages#]"/>
    </TfrxGroupHeader>
    <TfrxGroupFooter Name="GroupFooter1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="279.68522" Left="0" Top="525.35467" Width="718.1107">
      <TfrxMemoView Name="Memo18" AllowVectorExport="True" Left="574.48856" Top="0" Width="105.82684" Height="18.89765" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[SUM(&#60;Document_Detail.&#34;Amount&#34;&#62;,DetailData1)]"/>
      <TfrxMemoView Name="Memo20" AllowVectorExport="True" Left="574.48856" Top="18.89765" Width="105.82684" Height="18.89765" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[SUM(&#60;Document_Detail.&#34;TaxAmt&#34;&#62;,DetailData1)]"/>
      <TfrxMemoView Name="Memo22" AllowVectorExport="True" Left="574.48856" Top="37.7953" Width="105.82684" Height="18.89765" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Segoe UI" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" Text="[SUM(&#60;Document_Detail.&#34;AmountWithTax&#34;&#62;,DetailData1)]"/>
      <TfrxMemoView Name="Memo15" AllowVectorExport="True" Left="423.30736" Top="0" Width="124.72449" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Segoe UI" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Gross"/>
      <TfrxMemoView Name="Memo16" AllowVectorExport="True" Left="423.30736" Top="18.89765" Width="124.72449" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Segoe UI" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Tax Amount"/>
      <TfrxMemoView Name="Memo17" AllowVectorExport="True" Left="423.30736" Top="37.7953" Width="124.72449" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Segoe UI" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total Atter Tax"/>
      <TfrxMemoView Name="Memo23" AllowVectorExport="True" Left="548.03185" Top="0" Width="26.45671" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[Document_Currency.&#34;Symbol&#34;]"/>
      <TfrxMemoView Name="Memo24" AllowVectorExport="True" Left="548.03185" Top="18.89765" Width="26.45671" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[Document_Currency.&#34;Symbol&#34;]"/>
      <TfrxMemoView Name="Memo25" AllowVectorExport="True" Left="548.03185" Top="37.7953" Width="26.45671" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Segoe UI" Font.Style="1" Frame.Typ="15" Frame.Width="0.5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[Document_Currency.&#34;Symbol&#34;]"/>
      <TfrxMemoView Name="Memo26" AllowVectorExport="True" Left="0" Top="0" Width="419.52783" Height="56.69295" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[Document_Currency.&#34;Description&#34;] : [CurrencyToLangWord(&#60;Main.&#34;DocAmt&#34;&#62;,&#60;Profile.&#34;CurrencyLang&#34;&#62;)]"/>
      <TfrxMemoView Name="Memo46" AllowVectorExport="True" Left="0" Top="139.84261" Width="94.48825" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="Best and Regards,"/>
      <TfrxMemoView Name="Memo47" AllowVectorExport="True" Left="0" Top="200.31509" Width="222.99227" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[Document_Agent.&#34;Description&#34;]"/>
      <TfrxMemoView Name="Memo48" AllowVectorExport="True" Left="0" Top="222.99227" Width="222.99227" Height="18.89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="4" ParentFont="False" Text="Computer generated no signature is required"/>
      <TfrxMemoView Name="Memo50" AllowVectorExport="True" Left="0" Top="71.81107" Width="680.3154" Height="45.35436" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Color="16777215" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="We hope our quotation is favourable to you and we are looking forward to receive your valued orders, If you require furher clarification, &#13;&#10;please do not hesitate to contact us."/>
      <TfrxMemoView Name="Memo51" AllowVectorExport="True" Left="411.96877" Top="128.50402" Width="268.34663" Height="30.23624" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Color="16777215" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="We confirm the order by accepting the terms &#38; conditions stated above."/>
      <TfrxMemoView Name="Memo53" AllowVectorExport="True" Left="411.96877" Top="222.99227" Width="268.34663" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="4" ParentFont="False" VAlign="vaCenter" Text="Person in charge : "/>
      <TfrxMemoView Name="Memo54" AllowVectorExport="True" Left="411.96877" Top="241.88992" Width="94.48825" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Segoe UI" Font.Style="0" Frame.Typ="0" ParentFont="False" VAlign="vaCenter" Text="Date : "/>
    </TfrxGroupFooter>
  </TfrxReportPage>
</TfrxReport>
