<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="6.3.14" DotMatrixReport="False" EngineOptions.SilentMode="True" EngineOptions.NewSilentMode="simSilent" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="44333.4203127546" ReportOptions.Description.Text="" ReportOptions.LastChange="44550.3948998032" ScriptLanguage="PascalScript" ScriptText.Text="var&#13;&#10;  vial, dose :integer ;&#13;&#10;&#13;&#10;procedure BitBtn1OnClick(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;&#13;&#10;   if rb_sinovac.checked=true then&#13;&#10;     MasterData1.RowCount:=strtoint(ed_qty.text)&#13;&#10;   else&#13;&#10;     MasterData1.RowCount:=strtoint(ed_qty.text)*20 ;&#13;&#10;&#13;&#10;   BarCode1.text:=ed_trace_code.Text;&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure BarCode1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure MasterData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;&#13;&#10;   if rb_sinovac.checked=true then&#13;&#10;   begin&#13;&#10;&#13;&#10;     vial:=vial+1 ;&#13;&#10;     Memo6.visible:=False ;&#13;&#10;&#13;&#10;   end&#13;&#10;   else&#13;&#10;   begin&#13;&#10;&#13;&#10;    if (dose=20) or (vial=0) then&#13;&#10;    begin&#13;&#10;       dose:=1 ;&#13;&#10;       vial:=vial+1 ;&#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;       dose:=dose+1 ;&#13;&#10;    end;&#13;&#10;&#13;&#10;    Memo6.visible:=True ;&#13;&#10;&#13;&#10;   end;&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure rb_sinovacOnClick(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure RadioButton1OnClick(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end.">
  <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
  <TfrxReportPage Name="Page1" PaperWidth="70" PaperHeight="33" PaperSize="256" LeftMargin="1" RightMargin="1" TopMargin="1" BottomMargin="1" ColumnWidth="95" 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="164.51979" Left="0" Top="16" Width="257.00804" OnBeforePrint="MasterData1OnBeforePrint" ColumnWidth="0" ColumnGap="0" RowCount="10">
      <TfrxBarCodeView Name="BarCode1" AllowVectorExport="True" Left="18.11812" Top="58.72449" Width="188.60637" Height="23.57483" OnBeforePrint="BarCode1OnBeforePrint" AutoSize="False" BarType="bcCode128" Frame.Typ="0" Rotation="0" ShowText="False" TestLine="False" Text="81901420058313103250" WideBarRatio="2" Zoom="1.3007335862069" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="AngsanaUPC" Font.Style="0"/>
      <TfrxMemoView Name="Memo1" AllowVectorExport="True" Left="15.11812" Top="77.06308" Width="191.68522" Height="86.45671" Font.Charset="1" Font.Color="-16777208" Font.Height="-15" Font.Name="AngsanaUPC" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="Tracibility Code: [ed_trace_code.text]"/>
      <TfrxMemoView Name="Memo2" AllowVectorExport="True" Left="21.89765" Top="6.33859" Width="109.34663" Height="30.23624" Font.Charset="1" Font.Color="-16777208" Font.Height="-15" Font.Name="AngsanaUPC" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="กล่องที่: [ed_box_no.text]"/>
      <TfrxMemoView Name="Memo3" AllowVectorExport="True" Left="138.89765" Top="22.47248" Width="268.34663" Height="30.23624" Font.Charset="1" Font.Color="-16777208" Font.Height="-15" Font.Name="AngsanaUPC" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="Lot: [ed_lot_no.text]"/>
      <TfrxMemoView Name="Memo4" AllowVectorExport="True" Left="19.89765" Top="34.92919" Width="131.34663" Height="20.45671" Font.Charset="1" Font.Color="-16777208" Font.Height="-15" Font.Name="AngsanaUPC" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="Exp.: [ed_expired_date.text]"/>
      <TfrxMemoView Name="Memo5" AllowVectorExport="True" Left="131.89765" Top="5.7953" Width="88.60637" Height="23.23624" Font.Charset="1" Font.Color="-16777208" Font.Height="-15" Font.Name="AngsanaUPC" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="ขวดที่: [vial]"/>
      <TfrxMemoView Name="Memo6" AllowVectorExport="True" Left="20.85838" Top="22.57483" Width="117.16543" Height="21.23624" Font.Charset="1" Font.Color="-16777208" Font.Height="-15" Font.Name="AngsanaUPC" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="โดสที่: [dose]"/>
    </TfrxMasterData>
  </TfrxReportPage>
  <TfrxDialogPage Name="DialogPage1" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" DoubleBuffered="False" Height="405" ClientHeight="367" Left="552" Top="155" Width="621" Scaled="True" ClientWidth="605">
    <TfrxEditControl Name="ed_lot_no" Left="176" Top="118" Width="121" Height="33" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="Arial" Font.Style="0" ParentFont="False" ShowHint="True" Color="-16777211" MaxLength="0" PasswordChar="0"/>
    <TfrxEditControl Name="ed_trace_code" Left="176" Top="194" Width="345" Height="33" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="Arial" Font.Style="0" ParentFont="False" ShowHint="True" Color="-16777211" MaxLength="0" PasswordChar="0"/>
    <TfrxLabelControl Name="Label1" Left="47" Top="116" Width="55" Height="36" Font.Charset="1" Font.Color="-16777208" Font.Height="-27" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="Lot.No." Color="-16777201"/>
    <TfrxMaskEditControl Name="ed_qty" Left="176" Top="233" Width="121" Height="33" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="Arial" Font.Style="0" ParentFont="False" ShowHint="True" Color="-16777211" MaxLength="0" Text="40"/>
    <TfrxLabelControl Name="Label2" Left="47" Top="230" Width="52" Height="36" Font.Charset="1" Font.Color="-16777208" Font.Height="-27" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="¨ӹǹ" Color="-16777201"/>
    <TfrxLabelControl Name="Label3" Left="47" Top="191" Width="44" Height="36" Font.Charset="1" Font.Color="-16777208" Font.Height="-27" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="Serial " Color="-16777201"/>
    <TfrxLabelControl Name="Label4" Left="48" Top="155" Width="67" Height="36" Font.Charset="1" Font.Color="-16777208" Font.Height="-27" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="Exp.Date" Color="-16777201"/>
    <TfrxMaskEditControl Name="ed_expired_date" Left="176" Top="156" Width="121" Height="33" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="Arial" Font.Style="0" ParentFont="False" ShowHint="True" Color="-16777211" EditMask="99/99/9999" MaxLength="10" Text="__/__/____"/>
    <TfrxMaskEditControl Name="ed_box_no" Left="176" Top="80" Width="121" Height="33" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="Arial" Font.Style="0" ParentFont="False" ShowHint="True" Color="-16777211" MaxLength="0"/>
    <TfrxLabelControl Name="Label5" Left="47" Top="78" Width="54" Height="36" Font.Charset="1" Font.Color="-16777208" Font.Height="-27" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="¡Åèͧ·Õè" Color="-16777201"/>
    <TfrxBitBtnControl Name="BitBtn1" Left="175" Top="282" Width="83" Height="37" Font.Charset="1" Font.Color="-16777208" Font.Height="-21" Font.Name="TH SarabunPSK" Font.Style="0" ParentFont="False" ShowHint="True" Glyph.PropData="04446174610AE2010000DE010000424DDE01000000000000760000002800000024000000120000000100040000000000680100000000000000000000100000000000000000000000000080000080000000808000800000008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333333333333333333333333333333330000333333333333333333333333F3333333333300003333344333333333333333388F3333333333000033334224333333333333338338F3333333330000333422224333333333333833338F3333333300003342222224333333333383333338F3333333000034222A22224333333338F338F3338F33333300003222A3A2224333333338F3838F338F33333300003A2A333A222433333338F83338F338F33333000033A33333A222433333338333338F338F33330000333333333A222433333333333338F338F33300003333333333A222433333333333338F338F33000033333333333A222433333333333338F338F30000333333333333A222433333333333338F338F00003333333333333A224333333333333338F38F000033333333333333A223333333333333338F830000333333333333333A3333333333333333383300003333333333333333333333333333333333330000" Kind="bkOK" Caption="OK" ModalResult="1" NumGlyphs="2" OnClick="BitBtn1OnClick"/>
    <TfrxRadioButtonControl Name="rb_sinovac" Left="47" Top="37" Width="113" Height="37" Font.Charset="1" Font.Color="-16777208" Font.Height="-37" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="Sinovac" Checked="True" Color="-16777201" OnClick="rb_sinovacOnClick"/>
    <TfrxRadioButtonControl Name="rb_astra" Left="47" Top="15" Width="169" Height="25" Font.Charset="1" Font.Color="-16777208" Font.Height="-37" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="AstraZeneca" TabStop="False" Color="-16777201"/>
    <TfrxRadioButtonControl Name="RadioButton1" Left="208" Top="19" Width="89" Height="25" Font.Charset="1" Font.Color="-16777208" Font.Height="-37" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="Pfizer" TabStop="False" Color="-16777201" OnClick="RadioButton1OnClick"/>
    <TfrxRadioButtonControl Name="RadioButton2" Left="301" Top="18" Width="110" Height="25" Font.Charset="1" Font.Color="-16777208" Font.Height="-37" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="Moderna" TabStop="False" Color="-16777201" OnClick="RadioButton1OnClick"/>
    <TfrxRadioButtonControl Name="RadioButton3" Left="163" Top="44" Width="136" Height="25" Font.Charset="1" Font.Color="-16777208" Font.Height="-37" Font.Name="AngsanaUPC" Font.Style="0" ParentFont="False" ShowHint="True" Caption="Sinopharm" TabStop="False" Color="-16777201" OnClick="RadioButton1OnClick"/>
  </TfrxDialogPage>
</TfrxReport>
