<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="5.2.12" 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="42643.6002415741" ScriptLanguage="PascalScript" ScriptText.Text="var&#13;&#10;  m0,y0,ym_fw,ym1,ym2 : string ;&#13;&#10;  aic1,aic2,aic3,aic4,aic5,aic6,aic7: string ;&#13;&#10;  i: integer ;                                 &#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;  m1.Text:=COPY( DATEtoYMD(&#60;Date&#62;),5,2) ;&#13;&#10;   m2.Text:=COPY( DATEtoYMD(&#60;Date&#62;),5,2);&#13;&#10;    y1.Text:=COPY( DATEtoYMD(&#60;Date&#62;),1,4) ;  &#13;&#10;     y2.Text:=COPY( DATEtoYMD(&#60;Date&#62;),1,4) ;          &#13;&#10;    &#13;&#10;end;&#13;&#10;&#13;&#10;procedure DialogPage1OnShow(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  i:= 0 ;                                        &#13;&#10;end;  &#13;&#10;&#13;&#10;procedure OnClick(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  &#13;&#10;  if   strtoint(m1.text) = 1 then&#13;&#10;  begin  &#13;&#10;    m0:='12' ;&#13;&#10;    y0:=inttostr(strtoint(y1.text)-1-543) ;                                        &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;&#13;&#10;    if   length(inttostr(strtoint(m1.text)-1)) = 1 then                                                    &#13;&#10;    m0:= '0'+inttostr(strtoint(m1.text)-1) else  m0:=inttostr(strtoint(m1.text)-1);&#13;&#10;      &#13;&#10;    y0:=inttostr(strtoint(y1.text)-543) ;&#13;&#10;      &#13;&#10;  end;&#13;&#10;&#13;&#10;   ym_fw:=y0+m0 ;&#13;&#10;&#13;&#10;     &#13;&#10;    &#13;&#10;&#13;&#10;  if length(m1.text)=1 then&#13;&#10;  begin&#13;&#10;    ym1:=inttostr(strtoint(y1.text)-543)+'0'+m1.text ;                                                               &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    ym1:=inttostr(strtoint(y1.text)-543)+m1.text ;  &#13;&#10;  end;&#13;&#10;&#13;&#10;&#13;&#10;  if length(m2.text)=1 then&#13;&#10;  begin&#13;&#10;    ym2:=inttostr(strtoint(y2.text)-543)+'0'+m2.text ;                                                               &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    ym2:=inttostr(strtoint(y2.text)-543)+m2.text ;  &#13;&#10;  end;      &#13;&#10;    &#13;&#10;    &#13;&#10;end;&#13;&#10;&#13;&#10; &#13;&#10;&#13;&#10;&#13;&#10;procedure MasterData3OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;    i:=i+1 ;&#13;&#10;&#13;&#10;   if i = 1 then&#13;&#10;   begin&#13;&#10;      aic1:='ŧ ...............................................'+#13          &#13;&#10;            +'('+&#60;qry_aic.&#34;TITLE_NAME&#34;&#62;+&#60;qry_aic.&#34;AIC_NAME&#34;&#62;+')'+#13          &#13;&#10;            +&#60;qry_aic.&#34;PRESI&#34;&#62; ;                    &#13;&#10;   end              &#13;&#10;   else if i=2 then&#13;&#10;   begin&#13;&#10;      aic2:='ŧ ...............................................'+#13          &#13;&#10;            +'('+&#60;qry_aic.&#34;TITLE_NAME&#34;&#62;+&#60;qry_aic.&#34;AIC_NAME&#34;&#62;+')'+#13          &#13;&#10;            +&#60;qry_aic.&#34;PRESI&#34;&#62; ;       &#13;&#10;   end&#13;&#10;   else if i=3 then&#13;&#10;   begin&#13;&#10;      aic3:='ŧ ...............................................'+#13          &#13;&#10;            +'('+&#60;qry_aic.&#34;TITLE_NAME&#34;&#62;+&#60;qry_aic.&#34;AIC_NAME&#34;&#62;+')'+#13          &#13;&#10;            +&#60;qry_aic.&#34;PRESI&#34;&#62;;  &#13;&#10;   end&#13;&#10;   else if i=4 then&#13;&#10;   begin&#13;&#10;      aic4:='ŧ ...............................................'+#13          &#13;&#10;            +'('+&#60;qry_aic.&#34;TITLE_NAME&#34;&#62;+&#60;qry_aic.&#34;AIC_NAME&#34;&#62;+')'+#13          &#13;&#10;            +&#60;qry_aic.&#34;PRESI&#34;&#62; ;  &#13;&#10;   end&#13;&#10;   else if i=5 then&#13;&#10;   begin&#13;&#10;      aic5:='ŧ ...............................................'+#13          &#13;&#10;            +'('+&#60;qry_aic.&#34;TITLE_NAME&#34;&#62;+&#60;qry_aic.&#34;AIC_NAME&#34;&#62;+')'+#13          &#13;&#10;            +&#60;qry_aic.&#34;PRESI&#34;&#62; ;  &#13;&#10;   end&#13;&#10;   else if i=6 then&#13;&#10;   begin&#13;&#10;      aic6:='ŧ ...............................................'+#13          &#13;&#10;            +'('+&#60;qry_aic.&#34;TITLE_NAME&#34;&#62;+&#60;qry_aic.&#34;AIC_NAME&#34;&#62;+')'+#13          &#13;&#10;            +&#60;qry_aic.&#34;PRESI&#34;&#62; ;  &#13;&#10;   end&#13;&#10;   else if i=7 then&#13;&#10;   begin&#13;&#10;      aic7:='ŧ ...............................................'+#13          &#13;&#10;            +'('+&#60;qry_aic.&#34;TITLE_NAME&#34;&#62;+&#60;qry_aic.&#34;AIC_NAME&#34;&#62;+')'+#13          &#13;&#10;            +&#60;qry_aic.&#34;PRESI&#34;&#62; ;  &#13;&#10;   end ;       &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  &#13;&#10;  if &#60;sum_inv.&#34;RM_QTY&#34;&#62; = 0 then&#13;&#10;  begin&#13;&#10;      &#13;&#10;     qry_last_cost.close ;&#13;&#10;     qry_last_cost.ParamByName('wk').value:=qry_sum_inv.FieldByName('WORKING_CODE').asstring;                                                                                                      &#13;&#10;     qry_last_cost.open ;                        &#13;&#10;           &#13;&#10;  end;&#13;&#10;    &#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"/>
    <item DataSet="qry_aic" DataSetName="qry_aic"/>
    <item DataSet="qry_last_cost" DataSetName="last_cost"/>
  </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 * from (  &#13;&#10;select i.WORKING_CODE,g.DRUG_NAME, i.LAST_PACK_RATIO, dbo.IS_ED(g.IS_ED) as NLEM,  &#13;&#10;&#13;&#10;(select top 1 c.REMAIN_QTY from  CARD c  (NOLOCK)        &#13;&#10;        where &#13;&#10;        left(c.R_S_DATE,6) &#60;= :ym_fw                                  &#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 FW_QTY,&#13;&#10;          &#13;&#10;Cx.RCV_QTY,Cx.DIS_QTY ,Cx.DIS_VALUE,&#13;&#10;      &#13;&#10;isnull((select top 1 c.REMAIN_QTY from  CARD c (NOLOCK)       &#13;&#10;        where &#13;&#10;        left(c.R_S_DATE,6) between  left(dbo.ce2cymd(GETDATE()-300),6) and :ym2                    &#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;        left(c.R_S_DATE,6) &#60;= :ym2              &#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  (select c1.WORKING_CODE,c1.STOCK_ID,&#13;&#10;SUM(CASE when c1.R_S_STATUS in ('R','I','G','A') then c1.ACTIVE_QTY &#13;&#10;         when c1.R_S_STATUS in ('B') then c1.ACTIVE_QTY*-1 else NULL end&#13;&#10;) as RCV_QTY,          &#13;&#10;						SUM(CASE when c1.R_S_STATUS in ('T','S')  then c1.ACTIVE_QTY &#13;&#10;										 when (c1.R_S_STATUS='C') then c1.ACTIVE_QTY*-1 else NULL end) as DIS_QTY,&#13;&#10;						SUM(CASE when c1.R_S_STATUS in ('T','S')  then c1.[VALUE] &#13;&#10;										 when (c1.R_S_STATUS='C') then c1.[VALUE]*-1 else NULL end) as DIS_VALUE&#13;&#10;						from CARD c1  (NOLOCK)  &#13;&#10;            where  c1.STOCK_ID=:stock                          &#13;&#10;            and    left(c1.R_S_DATE,6) between :ym1 and  :ym2&#13;&#10;            group by c1.WORKING_CODE,c1.STOCK_ID ) as Cx on (Cx.WORKING_CODE = i.WORKING_CODE  and Cx.STOCK_ID=i.DEPT_ID)   &#13;&#10;where  i.DEPT_ID=:stock and   g.WORKING_CODE is not null            &#13;&#10;) as T&#13;&#10;where (isnull(T.FW_QTY,0)+isnull(T.RCV_QTY,0)+isnull(T.DIS_QTY,0)+ isnull(T.RM_QTY,0)) &#62; 0                                                                                                                                                 &#13;&#10;ORDER BY T.NLEM,T.DRUG_NAME                                                    " SpecificOptions.Text="" PropData="05704C65667402480470546F70021C0A506172616D657465727301010C34000000204E616D653D22796D5F6677222044617461547970653D226674537472696E67222045787072657373696F6E3D22796D5F66772200010C30000000204E616D653D22796D32222044617461547970653D226674537472696E67222045787072657373696F6E3D22796D322200010C30000000204E616D653D22796D32222044617461547970653D226674537472696E67222045787072657373696F6E3D22796D322200010C41000000204E616D653D2273746F636B222044617461547970653D226674537472696E67222045787072657373696F6E3D226362625F73746F636B2E6B657976616C75652200010C30000000204E616D653D22796D31222044617461547970653D226674537472696E67222045787072657373696F6E3D22796D312200010C30000000204E616D653D22796D32222044617461547970653D226674537472696E67222045787072657373696F6E3D22796D322200010C41000000204E616D653D2273746F636B222044617461547970653D226674537472696E67222045787072657373696F6E3D226362625F73746F636B2E6B657976616C7565220000"/>
    <TfrxUniDACQuery Name="qry_stock" UserName="stock" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="select * from DEPT_ID (NOLOCK) where (HIDE is null or HIDE='' or HIDE='N')&#13;&#10;order by DEPT_NAME                                        " SpecificOptions.Text="" PropData="05704C65667402480470546F7002780A506172616D65746572730100"/>
    <TfrxUniDACQuery Name="qry_aic" UserName="qry_aic" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="select a.*,CASE when a.PRESID_FLAG='Y' then 'иҹ'  else   ''  end as PRESI ,n.[POSITION] ,n.TITLE_NAME&#13;&#10;from AIC a&#13;&#10;left join AIC_NAME n on a.AIC_CODE=n.AIC_CODE&#13;&#10;where a.REF_NO=:ref_no&#13;&#10;order by a.PRESID_FLAG DESC,a.AIC_CODE ASC&#13;&#10;  " SpecificOptions.Text="" PropData="05704C656674024C0470546F7003D8000A506172616D657465727301010C42000000204E616D653D227265665F6E6F222044617461547970653D226674537472696E67222045787072657373696F6E3D226362625F73746F636B2E6B657976616C7565220000"/>
    <TfrxUniDACQuery Name="qry_last_cost" UserName="last_cost" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" Master="qry_sum_inv" IgnoreDupParams="False" SQL.Text="select top 1 LAST_BUY_COST,LAST_PACK_RATIO from DRUG_VN (NOLOCK)  &#13;&#10;where WORKING_CODE=:wk&#13;&#10;and LAST_PACK_RATIO &#62; 0 &#13;&#10;order by LAST_BUY DESC" SpecificOptions.Text="" PropData="05704C65667402540470546F70033C010A506172616D657465727301010C1E000000204E616D653D22776B222044617461547970653D226674537472696E67220000"/>
  </TfrxDataPage>
  <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
    <TfrxMasterData Name="MasterData1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Height="26.45671" Left="0" Top="272" Width="1046.92981" ColumnWidth="0" ColumnGap="0" DataSet="qry_sum_inv" DataSetName="sum_inv" RowCount="0" Stretched="True">
      <TfrxMemoView Name="sum_invDRUG_NAME" Left="0" Top="1.77953" Width="238.11039" Height="22.67718" StretchMode="smActualHeight" DataSet="qry_sum_inv" DataSetName="sum_inv" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" ParentFont="False" Text="[trim(&#60;sum_inv.&#34;DRUG_NAME&#34;&#62;)]"/>
      <TfrxMemoView Name="sum_invFIRST_PACK_RATIO" Left="312.22851" Top="2" Width="56.69295" 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" HAlign="haRight" ParentFont="False" Text="[sum_inv.&#34;LAST_PACK_RATIO&#34;]"/>
      <TfrxMemoView Name="sum_invQTY_ON_HAND" Left="380.26005" Top="1.22047" Width="68.03154" 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" HAlign="haRight" ParentFont="False" Text="[sum_inv.&#34;FW_QTY&#34;]"/>
      <TfrxMemoView Name="sum_invRCV_QUAN" Left="447.07112" Top="0.22047" Width="64.25201" 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" HAlign="haRight" ParentFont="False" Text="[sum_inv.&#34;RCV_QTY&#34;]"/>
      <TfrxMemoView Name="Memo3" Left="511.98454" Top="0.37795276" Width="64.25201" 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" HAlign="haRight" ParentFont="False" Text="[&#60;sum_inv.&#34;FW_QTY&#34;&#62;+&#60;sum_inv.&#34;RCV_QTY&#34;&#62;]"/>
      <TfrxMemoView Name="Memo12" Left="582.1342" Top="1" Width="68.03154" 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" HAlign="haRight" ParentFont="False" Text="[sum_inv.&#34;DIS_QTY&#34;]"/>
      <TfrxMemoView Name="Memo14" Left="651.16574" Top="1" Width="79.37013" Height="22.67718" DataSet="qry_sum_inv" DataSetName="sum_inv" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[sum_inv.&#34;DIS_VALUE&#34;]"/>
      <TfrxMemoView Name="Memo19" Left="751.15801" Top="2" Width="68.03154" 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" HAlign="haRight" ParentFont="False" Text="[sum_inv.&#34;RM_QTY&#34;]"/>
      <TfrxMemoView Name="Memo20" Left="819.74861" Top="2" Width="71.81107" Height="22.67718" OnBeforePrint="Memo20OnBeforePrint" DataSet="qry_sum_inv" DataSetName="sum_inv" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[IIF(&#60;sum_inv.&#34;RM_QTY&#34;&#62; &#62; 0,&#60;sum_inv.&#34;RM_VALUE&#34;&#62;/&#60;sum_inv.&#34;RM_QTY&#34;&#62;,&#60;last_cost.&#34;LAST_BUY_COST&#34;&#62;/&#60;last_cost.&#34;LAST_PACK_RATIO&#34;&#62;)]"/>
      <TfrxMemoView Name="Memo21" Left="892.44156" Top="1.55906" Width="71.81107" 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" HAlign="haRight" ParentFont="False" Text="[sum_inv.&#34;RM_VALUE&#34;]"/>
      <TfrxMemoView Name="sum_invWORKING_CODE" Left="241.88992" Top="3.77953" Width="68.03154" Height="18.89765" DataField="WORKING_CODE" DataSet="qry_sum_inv" DataSetName="sum_inv" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" ParentFont="False" Text="[sum_inv.&#34;WORKING_CODE&#34;]"/>
    </TfrxMasterData>
    <TfrxPageHeader Name="PageHeader1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Height="170.07885" Left="0" Top="16" Width="1046.92981">
      <TfrxMemoView Name="Memo1" Left="967.55968" Top="8.55906" Width="75.5906" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haRight" ParentFont="False" Text="หน้า [Page#]"/>
      <TfrxMemoView Name="Memo2" Left="2" Top="2" Width="1039.37075" Height="102.04731" Font.Charset="1" Font.Color="0" Font.Height="-21" Font.Name="TH SarabunPSK" Font.Style="1" HAlign="haCenter" ParentFont="False" Text="บัญชีรับจ่ายเวชภัณฑ์ ประจำปีงบประมาณ &#13;&#10;ตั้งแต่เดือน [MonthThai(strtoint(m1.text),True)]  [y1.text] ถึง [MonthThai(strtoint(m2.text),True)]  [y2.text] &#13;&#10;คลัง:  [TRIM(cbb_stock.text)]  [hosp_name]">
        <Formats>
          <item/>
          <item/>
          <item/>
          <item/>
          <item/>
          <item/>
        </Formats>
      </TfrxMemoView>
      <TfrxLineView Name="Line1" Left="3.77953" Top="106.47248" Width="1039.37075" Height="0" Color="0" Frame.Color="12632256" Diagonal="True"/>
      <TfrxLineView Name="Line2" Left="2.77953" Top="162.14966" Width="1039.37075" Height="0" Color="0" Frame.Color="12632256" Diagonal="True"/>
      <TfrxMemoView Name="Memo4" Left="92.48825" Top="121.91342" Width="37.7953" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="ชื่อยา"/>
      <TfrxMemoView Name="Memo5" Left="387.39394" Top="138.69295" Width="71.81107" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" VAlign="vaBottom" Text="คงเหลือยกมา"/>
      <TfrxMemoView Name="Memo6" Left="459.76407" Top="139.25201" Width="64.25201" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" VAlign="vaBottom" Text="จำนวนรับ"/>
      <TfrxMemoView Name="Memo7" Left="525.23655" Top="138.69295" Width="64.25201" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" VAlign="vaBottom" Text="จำนวนรวม"/>
      <TfrxMemoView Name="Memo8" Left="314.80334" Top="111.7953" Width="68.03154" Height="49.13389" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="ขนาด&#13;&#10;หีบห่อบรรจุ"/>
      <TfrxLineView Name="Line3" Left="386.70099" Top="136.26778" Width="192.75603" Height="0" Color="0" Frame.Color="12632256" Diagonal="True"/>
      <TfrxMemoView Name="Memo9" Left="384.70099" Top="108.14966" Width="196.53556" Height="26.45671" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="จำนวนรับ"/>
      <TfrxMemoView Name="Memo10" Left="599.9295" Top="139.91342" Width="71.81107" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" VAlign="vaBottom" Text="จำนวนจ่าย"/>
      <TfrxMemoView Name="Memo11" Left="674.29963" Top="138.47248" Width="71.81107" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" VAlign="vaBottom" Text="บาท"/>
      <TfrxLineView Name="Line4" Left="601.23655" Top="135.48825" Width="147.40167" Height="0" Color="0" Frame.Color="12632256" Diagonal="True"/>
      <TfrxMemoView Name="Memo13" Left="599.23655" Top="108.37013" Width="147.40167" Height="26.45671" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="จำนวนจ่าย"/>
      <TfrxMemoView Name="Memo15" Left="758.2919" Top="138.69295" Width="71.81107" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" VAlign="vaBottom" Text="คงเหลือ"/>
      <TfrxMemoView Name="Memo16" Left="830.66203" Top="135.25201" Width="79.37013" Height="26.45671" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="มูลค่าต่อหน่วย"/>
      <TfrxMemoView Name="Memo17" Left="916.81169" Top="138.47248" Width="83.14966" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" VAlign="vaBottom" Text="มูลค่าคงเหลือ"/>
      <TfrxLineView Name="Line5" Left="769.15801" Top="135.26778" Width="204.09462" Height="0" Color="0" Frame.Color="12632256" Diagonal="True"/>
      <TfrxMemoView Name="Memo18" Left="770.71707" Top="108.14966" Width="196.53556" Height="26.45671" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="คงเหลือเดือน [MonthThai(strtoint(m2.text),True)]"/>
      <TfrxMemoView Name="Memo22" Left="982.6778" Top="120.26778" Width="56.69295" Height="26.45671" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="หมายเหตุ"/>
      <TfrxMemoView Name="Memo23" Left="241.88992" Top="120.94496" Width="56.69295" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="รหัส"/>
    </TfrxPageHeader>
    <TfrxGroupHeader Name="GroupHeader1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Height="45.35436" Left="0" Top="208" Width="1046.92981" Condition="sum_inv.&#34;NLEM&#34;">
      <TfrxMemoView Name="sum_invNLEM" Left="15.11812" Top="3.77953" Width="593.38621" Height="30.23624" DataSet="qry_sum_inv" DataSetName="sum_inv" Font.Charset="1" Font.Color="-16777208" Font.Height="-24" Font.Name="TH SarabunPSK" Font.Style="1" ParentFont="False" Text="กลุ่มยาตามบัญชี รพ. ประเภท [sum_inv.&#34;NLEM&#34;]"/>
    </TfrxGroupHeader>
    <TfrxFooter Name="Footer1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Height="98.26778" Left="0" Top="320" Width="1046.92981">
      <TfrxMemoView Name="Memo24" Left="287.24428" Top="11.33859" Width="498.89796" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="คณะกรรมการตรวจสอบพัสดุ ตรวจสอบแล้วปรากฏว่าถูกต้อง"/>
      <TfrxMemoView Name="Memo25" Left="41.57483" Top="52.91342" Width="132.28355" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" Text=".....................กรรมการ"/>
      <TfrxMemoView Name="Memo28" Left="434.64595" Top="52.91342" Width="188.9765" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" Text=".....................ประธานกรรมการ"/>
      <TfrxMemoView Name="Memo26" Left="827.71707" Top="52.91342" Width="188.9765" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="TH SarabunPSK" Font.Style="0" HAlign="haCenter" ParentFont="False" Text=".....................กรรมการ"/>
    </TfrxFooter>
  </TfrxReportPage>
  <TfrxDialogPage Name="DialogPage1" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Height="346" ClientHeight="308" Left="371" Top="208" Width="531" ClientWidth="515" OnActivate="DialogPage1OnActivate">
    <TfrxDBLookupComboBox Name="cbb_stock" Left="130" Top="149" Width="333" Height="37" Font.Charset="0" Font.Color="-16777208" Font.Height="-21" Font.Name="AngsanaUPC" 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="224" 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" OnClick="OnClick"/>
    <TfrxLabelControl Name="Label1" Left="54" Top="58" Width="31" Height="29" Font.Charset="0" Font.Color="-16777208" Font.Height="-21" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="" Color="16768462"/>
    <TfrxLabelControl Name="Label3" Left="70" Top="151" 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"/>
    <TfrxLabelControl Name="Label4" Left="70" Top="103" Width="15" Height="29" Font.Charset="0" Font.Color="-16777208" Font.Height="-21" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="֧" Color="16768462"/>
    <TfrxEditControl Name="m1" Left="130" Top="60" Width="61" Height="25" ShowHint="True" Color="-16777211" MaxLength="0" PasswordChar="0" Text="02"/>
    <TfrxLabelControl Name="Label2" Left="94" Top="58" Width="30" Height="29" Font.Charset="0" Font.Color="-16777208" Font.Height="-21" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="͹" Color="16768462"/>
    <TfrxLabelControl Name="Label5" Left="94" Top="103" Width="30" Height="29" Font.Charset="0" Font.Color="-16777208" Font.Height="-21" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="͹" Color="16768462"/>
    <TfrxLabelControl Name="Label6" Left="214" Top="62" Width="9" Height="29" Font.Charset="0" Font.Color="-16777208" Font.Height="-21" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="" Color="16768462"/>
    <TfrxEditControl Name="m2" Left="130" Top="105" Width="61" Height="25" ShowHint="True" Color="-16777211" MaxLength="0" PasswordChar="0" Text="02"/>
    <TfrxEditControl Name="y1" Left="234" Top="60" Width="81" Height="25" ShowHint="True" Color="-16777211" MaxLength="0" PasswordChar="0" Text="2557"/>
    <TfrxLabelControl Name="Label7" Left="214" Top="107" Width="9" Height="29" Font.Charset="0" Font.Color="-16777208" Font.Height="-21" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="" Color="16768462"/>
    <TfrxEditControl Name="y2" Left="234" Top="105" Width="81" Height="25" ShowHint="True" Color="-16777211" MaxLength="0" PasswordChar="0" Text="2557"/>
  </TfrxDialogPage>
</TfrxReport>
