<?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Version="2021.2.6" 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="41631.3627038542" ReportOptions.Description.Text="Datamap=TdvPHGR&#13;&#10;GUID={2FBB525A-D0A9-46FD-BA1D-0519D456C02A}" ReportOptions.Name="Purchase Goods Received 1" ReportOptions.LastChange="44449.7103535069" ScriptLanguage="PascalScript" ScriptText.Text="var pST_ItemBar : pointer;&#13;&#10;&#13;&#10;function VarToFloatDef(const lFld:Variant):Integer;&#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;procedure SetUp;&#13;&#10;var SQL : String;&#13;&#10;begin&#13;&#10;  SQL := 'SELECT * FROM ( '+&#13;&#10;         'SELECT '+&#13;&#10;         '  ROW_NUMBER() OVER() as ID, '+&#13;&#10;         '  DOCKEY, ITEMCODE, UOM, LOCATION, BATCH, '+&#13;&#10;         '  QTY || ROW_NUMBER() OVER (PARTITION BY ITEMCODE) as another_value '+&#13;&#10;         'FROM ( '+&#13;&#10;         'WITH RECURSIVE HELPER AS '+&#13;&#10;         '(SELECT DOCKEY, ITEMCODE, UOM, LOCATION, BATCH, QTY  FROM PH_GRDTL WHERE DOCKEY= '+ VarToStr(&#60;Main.&#34;DocKey&#34;&#62;) +&#13;&#10;         'UNION ALL '+&#13;&#10;         'SELECT DOCKEY, ITEMCODE, UOM, LOCATION, BATCH, QTY-1  FROM HELPER WHERE QTY &#62; 1) '+&#13;&#10;         'SELECT * FROM HELPER)) '+&#13;&#10;         'ORDER BY DOCKEY, ITEMCODE, UOM, LOCATION, BATCH';&#13;&#10;  AddDataSet('plQR', ['ItemCode', 'UOM', 'LOCATION', 'BATCH'])&#13;&#10;  .GetDBData(SQL)&#13;&#10;  .LinkTo('Main', 'Dockey', 'Dockey');&#13;&#10;end;&#13;&#10;&#13;&#10;function GetBarcode:String;&#13;&#10;var V : Variant;&#13;&#10;begin&#13;&#10;  V := Null;&#13;&#10;  V := CacheQuery_GetValue(pST_ItemBar, [&#60;plQR.&#34;ItemCode&#34;&#62;, &#60;plQR.&#34;UOM&#34;&#62;], 'Barcode');&#13;&#10;  if not VarIsNull(V) then&#13;&#10;    Result := V else&#13;&#10;    Result := '';&#13;&#10;end;&#13;&#10;&#13;&#10;procedure QROnBeforePrint(Sender: TfrxComponent);&#13;&#10;var s, s1: string;&#13;&#10;begin&#13;&#10;  s1 := GetBarcode;&#13;&#10;  if Trim(s1) = '' then&#13;&#10;   s1 := &#60;plQR.&#34;ItemCode&#34;&#62;;&#13;&#10;  s := '|' +&#13;&#10;       s1+'|'+&#13;&#10;       &#60;plQR.&#34;Location&#34;&#62; +'|'+&#13;&#10;       &#60;plQR.&#34;Batch&#34;&#62;+'|';&#13;&#10;  QR.Text := s;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;  pST_ItemBar := CacheQuery_New('SELECT Barcode FROM ST_ITEM_BARCODE WHERE Code=:Code AND UOM=:UOM');&#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="''"/>
    <item Name="ReportVarFromDocNo" Value="''"/>
    <item Name="ReportvSerialNo" Value="''"/>
    <item Name="ReportVariable4" Value="''"/>
    <item Name="ReportMemo13" Value="''"/>
    <item Name="ReportVarDeposit" Value="''"/>
    <item Name="ReportVarPayAmt" Value="''"/>
    <item Name="ReportVariable3" Value="''"/>
  </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="-7" Font.Name="Arial" Font.Style="0" HGuides.Text="" VGuides.Text="" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="9.9" RightMargin="9.9" TopMargin="9.9" BottomMargin="9.9" ColumnWidth="210.1" ColumnPositions.Text="0" DataSetName="plSQL_2" Frame.Typ="0" LargeDesignHeight="True" MirrorMode="0" OnBeforePrint="Page1OnBeforePrint">
    <TfrxGroupHeader Name="GroupHeader1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="9.6" Left="0" Top="18.89765" Width="718.866606" Condition="Main.&#34;DocNo&#34;" ReprintOnNewPage="True" ResetPageNumbers="True" StartNewPage="True"/>
    <TfrxGroupFooter Name="GroupFooter1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="0" Left="0" Top="181.41744" Width="718.866606" Stretched="True"/>
    <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="52.91342" Width="718.866606" 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="83.70705" Left="0" ParentFont="False" Top="75.5906" Width="718.866606" Columns="1" ColumnWidth="384" ColumnGap="9.6" DataSetName="plQR" RowCount="0">
      <TfrxBarcode2DView Name="QR" AllowVectorExport="True" Left="19.2" Top="0" Width="63" Height="63" OnBeforePrint="QROnBeforePrint" StretchMode="smActualHeight" AutoSize="False" BarType="bcCodeQR" BarProperties.Encoding="qrAuto" BarProperties.QuietZone="0" BarProperties.ErrorLevels="ecL" BarProperties.PixelSize="3" BarProperties.CodePage="0" BarProperties.Logo.Width="32" BarProperties.Logo.Height="32" BarProperties.GraphicMarker.ShowGraphicMarker="False" BarProperties.GraphicMarker.WidthLine="4" BarProperties.GraphicMarker.Distance="8" Frame.Typ="0" Rotation="0" ShowText="False" HexData="31003200330034003500360037003800" Zoom="1" FontScaled="True" QuietZone="0" ColorBar="0"/>
      <TfrxMemoView Name="plQRItemCode" IndexTag="1" AllowVectorExport="True" Left="157.8" Top="0" Width="153.6" Height="67.2" DataSetName="plQR" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[plQR.&#34;ItemCode&#34;]&#13;&#10;[GetBarcode]&#13;&#10;[plQR.&#34;UOM&#34;]&#13;&#10;[plQR.&#34;LOCATION&#34;]&#13;&#10;[plQR.&#34;BATCH&#34;]">
        <Formats>
          <item/>
          <item/>
          <item/>
          <item/>
        </Formats>
      </TfrxMemoView>
      <TfrxMemoView Name="Memo1" IndexTag="1" AllowVectorExport="True" Left="90.6" Top="0" Width="67.2" Height="67.2" DataSetName="plQR" Font.Charset="1" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="ItemCode :&#13;&#10;Barcode :&#13;&#10;UOM :&#13;&#10;LOCATION :&#13;&#10;BATCH :"/>
    </TfrxDetailData>
  </TfrxReportPage>
</TfrxReport>
