<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="6.3.14" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="41546.6611873611" ReportOptions.Description.Text="" ReportOptions.LastChange="42328.8146573495" ScriptLanguage="PascalScript" ScriptText.Text="var&#13;&#10; MOD_QTY: STRING  ;                                         &#13;&#10;                                 &#13;&#10;    &#13;&#10;procedure DialogPage1OnActivate(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  &#13;&#10;  qry_stock.close ;&#13;&#10;  qry_stock.open ;&#13;&#10;&#13;&#10;&#13;&#10;  cbb_stock.keyvalue:= &#60;MY_STOCK_CODE&#62; ;&#13;&#10;    &#13;&#10;           &#13;&#10;    &#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;procedure Memo8OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;   if &#60;sum_inv.&#34;MOD_ONHAND&#34;&#62; &#62; '0' then  MOD_QTY:='(+'+inttostr(&#60;sum_inv.&#34;MOD_ONHAND&#34;&#62;)+')' else MOD_QTY:='' ;                                                                                                                                              &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end.">
  <Datasets>
    <item DataSet="qry_sum_inv" DataSetName="sum_inv"/>
    <item DataSet="qry_stock" DataSetName="stock"/>
  </Datasets>
  <Variables>
    <item Name="MY_STOCK_CODE"/>
    <item Name="MY_STOCK_NAME"/>
    <item Name="hosp_name"/>
  </Variables>
  <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000">
    <TfrxUniDACQuery Name="qry_sum_inv" UserName="sum_inv" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="select T.GROUP_CODE,T.ED_NAME_GROUP,T.DRUG_NAME,T.WORKING_CODE,T.RM_QTY,T.PACK_RATIO,&#13;&#10;convert(int,T.RM_QTY)%convert(int,ISNULL(T.PACK_RATIO,1)) as MOD_ONHAND,&#13;&#10;floor(T.RM_QTY/isnull(T.PACK_RATIO,1)) as RM_PACK                                  &#13;&#10;from&#13;&#10;(    &#13;&#10;select g.GROUP_CODE,e.NAME as ED_NAME_GROUP,i.WORKING_CODE,g.DRUG_NAME,ISNULL(i.LAST_PACK_RATIO,i.FIRST_PACK_RATIO) as PACK_RATIO,                                    &#13;&#10;isnull((select top 1 c.REMAIN_QTY from  CARD c (NOLOCK)&#13;&#10;        where &#13;&#10;        c.R_S_DATE  &#60;=  :date1                                                 &#13;&#10;        and c.WORKING_CODE=i.WORKING_CODE &#13;&#10;        and c.STOCK_ID=i.DEPT_ID order by c.OPERATE_DATE DESC ),0) as RM_QTY,i.QTY_ON_HAND,&#13;&#10;(select top 1 c.REMAIN_VALUE from  CARD c (NOLOCK)       &#13;&#10;        where &#13;&#10;        c.R_S_DATE  &#60;=  :date1             &#13;&#10;        and c.WORKING_CODE=i.WORKING_CODE &#13;&#10;        and c.STOCK_ID=i.DEPT_ID order by c.OPERATE_DATE DESC ) as RM_VALUE            &#13;&#10;from INV_MD  i (NOLOCK)     &#13;&#10;left join DRUG_GN g (NOLOCK) on (i.WORKING_CODE=g.WORKING_CODE)&#13;&#10;left join ED_GROUP e (NOLOCK) on (g.GROUP_CODE = e.CODE)&#13;&#10;where g.HIDE='N'&#13;&#10;and i.DEPT_ID=:dept_id                                              &#13;&#10;) as T    " SpecificOptions.Text="" PropData="05704C65667402480470546F70021C0A506172616D657465727301010C54000000204E616D653D226461746531222044617461547970653D226674537472696E67222045787072657373696F6E3D22466F726D61744461746554696D652827595959596D6D6464272C64617465312E64617465292200010C54000000204E616D653D226461746531222044617461547970653D226674537472696E67222045787072657373696F6E3D22466F726D61744461746554696D652827595959596D6D6464272C64617465312E64617465292200010C43000000204E616D653D22646570745F6964222044617461547970653D226674537472696E67222045787072657373696F6E3D226362625F73746F636B2E6B657976616C7565220000"/>
    <TfrxUniDACQuery Name="qry_stock" UserName="stock" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="select * from DEPT_ID (NOLOCK) where HIDE='' or HIDE is null&#13;&#10;order by DEPT_NAME                                        " SpecificOptions.Text="" PropData="05704C65667402480470546F7002780A506172616D65746572730100"/>
  </TfrxDataPage>
  <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" Frame.Typ="0" MirrorMode="0" HGuides.Text="" VGuides.Text="">
    <TfrxMasterData Name="MasterData1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="26.45671" Left="0" Top="184" Width="718.1107" ColumnWidth="0" ColumnGap="0" DataSet="qry_sum_inv" DataSetName="sum_inv" RowCount="0" Stretched="True">
      <TfrxMemoView Name="Memo3" AllowVectorExport="True" Left="25.45671" Top="2" Width="366.61441" Height="22.67718" DataSet="qry_sum_inv" DataSetName="sum_inv" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[Line#]. [sum_inv.&#34;DRUG_NAME&#34;]"/>
      <TfrxMemoView Name="Memo7" AllowVectorExport="True" Left="534.30736" Top="2" Width="79.37013" Height="22.67718" DataSet="qry_sum_inv" DataSetName="sum_inv" DisplayFormat.FormatStr="%2.0n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" Frame.Typ="0" HAlign="haRight" ParentFont="False" Text="[sum_inv.&#34;RM_PACK&#34;]"/>
      <TfrxMemoView Name="Memo8" AllowVectorExport="True" Left="638.1342" Top="1" Width="75.5906" Height="22.67718" OnBeforePrint="Memo8OnBeforePrint" DataSet="qry_sum_inv" DataSetName="sum_inv" DisplayFormat.FormatStr="%2.0n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" Frame.Typ="0" ParentFont="False" Text=" [sum_inv.&#34;PACK_RATIO&#34;] [MOD_QTY]"/>
      <TfrxMemoView Name="Memo9" AllowVectorExport="True" Left="620.67749" Top="3" Width="15.11812" Height="18.89765" DataSet="qry_sum_inv" DataSetName="sum_inv" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="X"/>
    </TfrxMasterData>
    <TfrxPageFooter Name="PageFooter1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="7.01577" Left="0" Top="264" Width="718.1107"/>
    <TfrxPageHeader Name="PageHeader1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="101.67718" Left="0" Top="16" Width="718.1107">
      <TfrxMemoView Name="Memo2" AllowVectorExport="True" Left="77.5906" Top="9" Width="563.14997" Height="52.91342" Font.Charset="1" Font.Color="0" Font.Height="-21" Font.Name="TH SarabunPSK" Font.Style="1" Frame.Typ="0" HAlign="haCenter" ParentFont="False" Text="à¸ˆà¸³à¸™à¸§à¸™à¸„à¸‡à¸„à¸¥à¸±à¸‡ à¸“ à¸§à¸±à¸™à¸—à¸µà¹ˆ [formatdatetime('dd/mm/YYYY',date1.date)] &#13;&#10;à¸„à¸¥à¸±à¸‡:  [TRIM(cbb_stock.text)]  [hosp_name]"/>
      <TfrxMemoView Name="Memo1" AllowVectorExport="True" Left="638.74057" Top="4.77953" Width="75.5906" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" Frame.Typ="0" HAlign="haRight" ParentFont="False" Text="à¸«à¸™à¹‰à¸² [Page#]"/>
      <TfrxLineView Name="Line1" AllowVectorExport="True" Left="3.77953" Top="75.47248" Width="710.55164" Height="0" Color="0" Frame.Color="12632256" Frame.Typ="0" Diagonal="True"/>
      <TfrxLineView Name="Line2" AllowVectorExport="True" Left="2.77953" Top="101.14966" Width="710.55164" Height="0" Color="0" Frame.Color="12632256" Frame.Typ="0" Diagonal="True"/>
      <TfrxMemoView Name="Memo4" AllowVectorExport="True" Left="10.55906" Top="77.37013" Width="34.01577" Height="22.67718" DataSet="qry_sum_inv" DataSetName="sum_inv" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="à¸¥à¸³à¸”à¸±à¸š"/>
      <TfrxMemoView Name="Memo5" AllowVectorExport="True" Left="133.28355" Top="76.5906" Width="52.91342" Height="22.67718" DataSet="qry_sum_inv" DataSetName="sum_inv" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="à¸Šà¸·à¹ˆà¸­à¸¢à¸²"/>
      <TfrxMemoView Name="Memo6" AllowVectorExport="True" Left="589.60668" Top="76.5906" Width="83.14966" Height="22.67718" DataSet="qry_sum_inv" DataSetName="sum_inv" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="à¸ˆà¸³à¸™à¸§à¸™à¸„à¸‡à¹€à¸«à¸¥à¸·à¸­"/>
    </TfrxPageHeader>
    <TfrxGroupHeader Name="GroupHeader1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="26.45671" Left="0" Top="136" Width="718.1107" AllowSplit="True" Condition="sum_inv.&#34;ED_NAME_GROUP&#34;" KeepTogether="True">
      <TfrxMemoView Name="sum_invED_NAME_GROUP" AllowVectorExport="True" Left="4.11812" Top="1.77953" Width="706.77211" Height="22.67718" DataSet="qry_sum_inv" DataSetName="sum_inv" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="2" Frame.Typ="0" ParentFont="False" Text="[sum_inv.&#34;GROUP_CODE&#34;]:  [sum_inv.&#34;ED_NAME_GROUP&#34;]"/>
    </TfrxGroupHeader>
    <TfrxGroupFooter Name="GroupFooter1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="11.33859" Left="0" Top="232" Width="718.1107"/>
  </TfrxReportPage>
  <TfrxDialogPage Name="DialogPage1" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Caption="¨Ó¹Ç¹¤§¤ÅÑ§µÒÁÇÑ¹·Õè" DoubleBuffered="False" Height="270" ClientHeight="232" Left="371" Top="208" Width="531" Scaled="True" ClientWidth="515" OnActivate="DialogPage1OnActivate">
    <TfrxDBLookupComboBox Name="cbb_stock" Left="133" Top="91" Width="333" Height="25" Font.Charset="0" Font.Color="-16777208" Font.Height="-15" Font.Name="MS Sans Serif" Font.Style="0" ParentFont="False" ShowHint="True" DataSet="qry_stock" DataSetName="stock" ListField="DEPT_NAME" KeyField="DEPT_ID" DropDownWidth="0" DropDownRows="7"/>
    <TfrxBitBtnControl Name="" Left="216" Top="144" Width="87" Height="33" Font.Charset="0" Font.Color="-16777208" Font.Height="-21" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Glyph.PropData="04446174610AE2010000DE010000424DDE01000000000000760000002800000024000000120000000100040000000000680100000000000000000000100000000000000000000000000080000080000000808000800000008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333333333333333333333333333333330000333333333333333333333333F3333333333300003333344333333333333333388F3333333333000033334224333333333333338338F3333333330000333422224333333333333833338F3333333300003342222224333333333383333338F3333333000034222A22224333333338F338F3338F33333300003222A3A2224333333338F3838F338F33333300003A2A333A222433333338F83338F338F33333000033A33333A222433333338333338F338F33330000333333333A222433333333333338F338F33300003333333333A222433333333333338F338F33000033333333333A222433333333333338F338F30000333333333333A222433333333333338F338F00003333333333333A224333333333333338F38F000033333333333333A223333333333333338F830000333333333333333A3333333333333333383300003333333333333333333333333333333333330000" Kind="bkOK" Caption="OK" ModalResult="1" NumGlyphs="2"/>
    <TfrxLabelControl Name="Label3" Left="72" Top="90" Width="51" Height="29" Font.Charset="0" Font.Color="-16777208" Font.Height="-21" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="àÅ×Í¡¤ÅÑ§" Color="16768462"/>
    <TfrxDateEditControl Name="date1" Left="136" Top="39" Width="109" Height="25" Font.Charset="0" Font.Color="-16777208" Font.Height="-13" Font.Name="MS Sans Serif" Font.Style="0" ParentFont="False" ShowHint="True" Color="-16777211" Date="42306.558552581" Time="42306.558552581" WeekNumbers="False"/>
    <TfrxLabelControl Name="Label1" Left="41" Top="38" Width="84" Height="29" Font.Charset="0" Font.Color="-16777208" Font.Height="-21" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="¤§¤ÅÑ§àÁ×èÍÇÑ¹·Õè" Color="16768462"/>
  </TfrxDialogPage>
</TfrxReport>
