<?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Version="2022.1.3" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.AllowEdit="False" PreviewOptions.Buttons="3839" PreviewOptions.Zoom="1" PrintOptions.Printer="По умолчанию" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="41430,5943315972" ReportOptions.Description.Text="" ReportOptions.LastChange="45447,3858035648" ScriptLanguage="PascalScript" ScriptText.Text="var Bonus:real;&#13;&#10;price,tuvis:String;&#13;&#10;&#13;&#10;procedure BarCodeOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if length(TFrxBarCodeView(sender).expression)-2=8 then&#13;&#10;    TFrxBarCodeView(sender).BarType:=bcCodeEAN8&#13;&#10; else if length(TFrxBarCodeView(sender).expression)-2=13 then&#13;&#10;    TFrxBarCodeView(sender).BarType:=bcCodeEAN13&#13;&#10; else&#13;&#10;    TFrxBarCodeView(sender).BarType:=bcCode128;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10; Bonus:=(Trunc(StrToFloat(&#60;price&#62;)*100)/100)*0.1;&#13;&#10; tuvis:=FloatToStr(Trunc(Bonus*100)/100);&#13;&#10; mTuvis.Text:='Бонус: '+tuvis;&#13;&#10;end." OnReportPrint="frxReport1OnReportPrint">
  <Variables>
    <item Name=" New Category1"/>
    <item Name="tuvis"/>
  </Variables>
  <TfrxDataPage Name="Data" HGuides.Text="" VGuides.Text="" Height="1000" Left="0" Top="0" Width="1000"/>
  <TfrxReportPage Name="Page1" HGuides.Text="" VGuides.Text="" PaperWidth="60" PaperHeight="40" PaperSize="256" LeftMargin="0" RightMargin="0" TopMargin="0" BottomMargin="0" ColumnWidth="0" ColumnPositions.Text="" Frame.Typ="0" MirrorMode="0">
    <TfrxMemoView Name="Memo17" Align="baRight" AllowVectorExport="True" Left="139,84261" Top="0" Width="86,92919" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="0" HAlign="haRight" ParentFont="False" Text="Цена:[price]"/>
    <TfrxMemoView Name="Memo14" AllowVectorExport="True" Left="3,77953" Top="13,11812" Width="136,06308" Height="37,7953" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[item_name]"/>
    <TfrxBarCodeView Name="BarCode" Align="baCenter" AllowVectorExport="True" Left="35,3859" Top="94,48825" Width="156" Height="56,69295" OnBeforePrint="BarCodeOnBeforePrint" BarType="bcCodeEAN13" Expression="1" Frame.Typ="0" Rotation="0" TestLine="False" Text="3" WideBarRatio="2" Zoom="1,5" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ColorBar="0"/>
    <TfrxMemoView Name="Memo1" Align="baCenter" AllowVectorExport="True" Left="3,77953" Top="52,91342" Width="219,21274" Height="41,57483" Visible="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[descr]"/>
    <TfrxMemoView Name="Memo2" Align="baRight" AllowVectorExport="True" Left="139,84261" Top="18,89765" Width="86,92919" Height="34,01577" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Typ="0" HAlign="haRight" ParentFont="False" Text="Старая цена: [old_price]"/>
    <TfrxMemoView Name="mArticul" AllowVectorExport="True" Left="3,77953" Top="0" Width="136,06308" Height="15,11812" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[articul]"/>
    <TfrxMemoView Name="mTuvis" AllowVectorExport="True" Left="11,33859" Top="113,16543" Width="139,84261" Height="15,11812" Visible="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[tuvis]"/>
    <TfrxMemoView Name="dtprint" AllowVectorExport="True" Left="3,77953" Top="34,01577" Width="71,81098457" Height="11,33856559" Visible="False" AutoWidth="True" Font.Charset="1" Font.Color="0" Font.Height="-8" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="[dtprint]"/>
  </TfrxReportPage>
</TfrxReport>
