<?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,3855086111" 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="58" PaperHeight="40" PaperSize="256" LeftMargin="0" RightMargin="0" TopMargin="0" BottomMargin="0" ColumnWidth="0" ColumnPositions.Text="" Frame.Typ="0" MirrorMode="0" OnBeforePrint="Page1OnBeforePrint">
    <TfrxShapeView Name="Shape1" AllowVectorExport="True" Left="3,77953" Top="5,77953" Width="211,65368" Height="136,06308" Frame.Typ="0" Shape="skRoundRectangle"/>
    <TfrxMemoView Name="Memo17" AllowVectorExport="True" Left="98,26778" Top="109,60637" Width="109,60637" Height="30,23624" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="0" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Цена:[price]"/>
    <TfrxMemoView Name="Memo14" Align="baCenter" AllowVectorExport="True" Left="13,228355" Top="7,55906" Width="192,75603" Height="41,57483" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[item_name]"/>
    <TfrxBarCodeView Name="BarCode" Align="baCenter" AllowVectorExport="True" Left="57,60637" Top="56,69295" Width="104" Height="49,13389" OnBeforePrint="BarCodeOnBeforePrint" BarType="bcCodeEAN13" Expression="1" Frame.Typ="0" Rotation="0" TestLine="False" Text="3" WideBarRatio="2" Zoom="1" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ColorBar="0"/>
    <TfrxMemoView Name="mArticul" AllowVectorExport="True" Left="7,55906" Top="109,60637" Width="83,14966" Height="30,23624" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="0" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[articul]"/>
    <TfrxLineView Name="Line1" AllowVectorExport="True" Left="3,77953" Top="52,91342" Width="211,65368" Height="0" Color="0" Frame.Typ="4"/>
    <TfrxLineView Name="Line2" AllowVectorExport="True" Left="3,77953" Top="105,82684" Width="211,65368" Height="0" Color="0" Frame.Typ="4"/>
    <TfrxLineView Name="Line3" AllowVectorExport="True" Left="94,48825" Top="105,82684" Width="0" Height="34,01577" Color="0" Frame.Typ="1"/>
    <TfrxMemoView Name="mTuvis" AllowVectorExport="True" Left="7,55906" Top="109,60637" Width="83,14966" Height="30,23624" Visible="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="2" Frame.Typ="0" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[tuvis]"/>
    <TfrxMemoView Name="description" AllowVectorExport="True" Left="162,51979" Top="75,5906" Width="49,13380457" Height="15,11809559" Visible="False" StretchMode="smActualHeight" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="0" HAlign="haCenter" ParentFont="False" Text="[description]"/>
    <TfrxMemoView Name="dtprint" AllowVectorExport="True" Left="162,51979" Top="56,69295" Width="49,13380457" Height="15,11809559" Visible="False" StretchMode="smActualHeight" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="0" HAlign="haCenter" ParentFont="False" Text="[dtprint]"/>
  </TfrxReportPage>
</TfrxReport>
