<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.6.163" DotMatrixReport="False" EngineOptions.UseFileCache="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39580.4228205093" ReportOptions.Description.Text="" ReportOptions.LastChange="43631.6883675926" ScriptLanguage="PascalScript" ScriptText.Text=" //--------------                                                      &#13;&#10;var&#13;&#10;     F_Array: array[1..9, 0..1] of string;&#13;&#10;     F_Array1: array[1..2, 0..1] of string;&#13;&#10;     Sec_Array: array[1..9, 0..1] of string;&#13;&#10;     Thd_Array: array[1..9] of string;    &#13;&#10;//-----------------&#13;&#10;procedure ReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;             F_Array[1, 0]:= ''; F_Array[1, 1]:= '';  F_Array[2, 0]:= ''; F_Array[2, 1]:= '';&#13;&#10;   F_Array[3, 0]:= ''; F_Array[3, 1]:= '';   F_Array[4, 0]:= ''; F_Array[4, 1]:= '';  &#13;&#10;   F_Array[5, 0]:= ''; F_Array[5, 1]:= '';   F_Array[6, 0]:= '';   F_Array[6, 1]:= '';    &#13;&#10;   F_Array[7, 0]:= '';  F_Array[7, 1]:= '';  F_Array[8, 0]:= '';F_Array[8, 1]:= ''; &#13;&#10;   F_Array[9, 0]:= '';  F_Array[9, 1]:= '';   &#13;&#10;   F_Array1[1, 0]:='';  F_Array1[1, 1]:='';  F_Array1[2, 0]:='';  F_Array1[2, 1]:=''; &#13;&#10;   Sec_Array[1, 0]:= '';Sec_Array[1, 1]:= '';Sec_Array[2, 0]:= ''; Sec_Array[2, 1]:= ''; &#13;&#10;   Sec_Array[3, 0]:= ''; Sec_Array[3, 1]:= ''; Sec_Array[4, 0]:= '';  Sec_Array[4, 1]:= '';&#13;&#10;   Sec_Array[5, 0]:= ''; Sec_Array[5, 1]:= ''; Sec_Array[6, 0]:= '';    Sec_Array[6, 1]:= '';    &#13;&#10;   Sec_Array[7, 0]:= ''; Sec_Array[7, 1]:= ''; Sec_Array[8, 0]:= '';  Sec_Array[8, 1]:= '';&#13;&#10;   Sec_Array[9, 0]:= '';   Sec_Array[9, 1]:= '';&#13;&#10;   Thd_Array[1]:='';   Thd_Array[2]:=''; Thd_Array[3]:=''; Thd_Array[4]:='';  &#13;&#10;   Thd_Array[5]:='';Thd_Array[6]:=''; Thd_Array[7]:=''; Thd_Array[8]:=''; &#13;&#10;   Thd_Array[9]:=''      &#13;&#10;end;&#13;&#10;//-----------------    &#13;&#10;    &#13;&#10;&#13;&#10;//---------------                                                       &#13;&#10;    &#13;&#10; function Number_Arabic(const Number: string;const Cur_Name, Cur_PartName: string; Decimals: Integer;Gender: Boolean): string;&#13;&#10;   var &#13;&#10;   Sub, aNumber, S, s1, s2: string;&#13;&#10;   Left, po: Integer;&#13;&#10;   begin&#13;&#10;       //----------------&#13;&#10;       aNumber := Number;&#13;&#10;             &#13;&#10;      po := Pos( '.', Number);&#13;&#10;       if po &#62; 0 then &#13;&#10;       begin&#13;&#10;              Number := FormatFloat('#0.00',StrToFloat(Number));                &#13;&#10;               Sub := Copy( Number, po + 1, Decimals);&#13;&#10;               if Sub &#60;&#62; '' then &#13;&#10;               begin &#13;&#10;                       Left := Decimals - Length(Sub);&#13;&#10;                       if Left &#62; 0 then &#13;&#10;                               Sub := Sub + StringOfChar('0', Left);&#13;&#10;                       Sub := FloatToStr( StrToFloat(Sub));&#13;&#10;               end;&#13;&#10;               aNumber := Copy( Number, 0, po - 1);&#13;&#10;       end;&#13;&#10;       s1 := '';                  &#13;&#10;       s1 := Get_Number_Arabic( aNumber, Cur_Name, Gender);&#13;&#10;       S := '';                     &#13;&#10;       if (Sub &#60;&#62; '') then&#13;&#10;       begin&#13;&#10;               s2 := Get_Number_Arabic( Sub, Cur_PartName, Gender);&#13;&#10;               S := '  ' + s2;&#13;&#10;                &#13;&#10;       end;&#13;&#10;       Result := (s1 + S);                                       &#13;&#10;   end;      &#13;&#10;           &#13;&#10;   //--------------                                                           &#13;&#10;function Get_Number(var S: string;Idx: integer;Gender: Boolean): string;&#13;&#10;   &#13;&#10; var&#13;&#10;     StrLen: integer;&#13;&#10;     Id: array[1..3] of integer;&#13;&#10;     T_Array: array[0..2] of string;&#13;&#10;     T_Str: string;&#13;&#10;  begin&#13;&#10;       StrLen :=0;                               &#13;&#10;       T_Str := '';&#13;&#10;                   &#13;&#10;        Id[1] := -1;&#13;&#10;        Id[2] := -1;&#13;&#10;        Id[3] := -1;&#13;&#10;        StrLen := Length(S);&#13;&#10;        T_Array[0] := '';&#13;&#10;        T_Array[1] := '';&#13;&#10;        T_Array[2] := '';&#13;&#10;        StrLen := Length(S);&#13;&#10;        if StrLen &#60; 3 then &#13;&#10;        S := '0' + S;&#13;&#10;        StrLen := Length(S);&#13;&#10;        if StrLen &#60; 3 then S := '0' + S;&#13;&#10;        StrLen := Length(S);&#13;&#10;        if StrLen &#60; 3 then S := '0' + S;                    &#13;&#10;        Id[1] := StrToInt(Copy(S, StrLen, 1));&#13;&#10;        if (Id[1] &#60;&#62; 0) then &#13;&#10;        T_Array[0] := F_Array[Id[1], Res(Gender)] + ' ';&#13;&#10;        Dec(StrLen);&#13;&#10;        if StrLen &#62; 0 then&#13;&#10;      begin &#13;&#10;        Id[2] := StrToInt(Copy(S, StrLen, 1));&#13;&#10;        if (Id[2] &#60;&#62; 0) then&#13;&#10;        if (T_Array[0] &#60;&#62; '') then&#13;&#10;        T_Array[1] := Sec_Array[Id[2], Res(not Gender)] {-------}&#13;&#10;        else &#13;&#10;        T_Array[1] := Sec_Array[Id[2], Res(Gender)];&#13;&#10;      end;&#13;&#10;        if (Id[2] &#62; 1) and (T_Array[0] &#60;&#62; '') then&#13;&#10;        T_Array[0] := T_Array[0] + ' ' &#13;&#10;        else &#13;&#10;        if (Id[1] = 1) and (Id[2] = 1) then &#13;&#10;        T_Array[0] := F_Array1[1, Res(Gender)]  //---------10                     &#13;&#10;        else&#13;&#10;        if (Id[1] = 2) and (Id[2] = 1) then &#13;&#10;        T_Array[0] := F_Array1[2, Res(Gender)];&#13;&#10;        Dec(StrLen);&#13;&#10;        if StrLen &#62; 0 then &#13;&#10;       begin &#13;&#10;        Id[3] := StrToInt(Copy(S, StrLen, 1));&#13;&#10;        if (Id[3] &#60;&#62; 0) then T_Array[2] := Thd_Array[Id[3]];&#13;&#10;       end;&#13;&#10;        if Idx = -1 then &#13;&#10;        if (Id[3] &#60;&#62; -1) then&#13;&#10;        Exit;  //--------                              &#13;&#10;        if (Id[3] &#62; 0) and ((T_Array[0] &#60;&#62; '') or (T_Array[1] &#60;&#62; '')) then&#13;&#10;        T_Array[2] := T_Array[2] + '  ';&#13;&#10;        //-----------------                                                                                       &#13;&#10;  case Idx of&#13;&#10;               -1:&#13;&#10;       begin &#13;&#10;        T_Str := T_Array[2] + T_Array[0] + T_Array[1];&#13;&#10;        if (Id[1] &#62; 0) and (Id[2] = -1) and (Id[3] = -1) then&#13;&#10;        Result := Sec_Array[Id[1], Res(Gender)] &#13;&#10;        else &#13;&#10;        Result := T_Str;        //--------&#13;&#10;       end;&#13;&#10;                0: &#13;&#10;       begin&#13;&#10;        Result := T_Array[2] + T_Array[0] + T_Array[1];&#13;&#10;       end;&#13;&#10;                1:&#13;&#10;       begin &#13;&#10;        if (Id[1] = 1) and (Id[2] = -1) and (Id[3] = -1) then &#13;&#10;        Result := ' ' else &#13;&#10;        if (Id[1] = 2) and (Id[2] = -1) and (Id[3] = -1) then&#13;&#10;        Result := '' &#13;&#10;        else &#13;&#10;        if (Id[1] &#62; 2) and (Id[2] = -1) and (Id[3] = -1) then&#13;&#10;        Result := T_Array[0] + ' ' &#13;&#10;        else &#13;&#10;        if (Id[1] &#62; 2) and (Id[2] = 0) and (Id[3] &#60;&#62; -1) then&#13;&#10;        Result := T_Array[2] + T_Array[0] + T_Array[1] + ' ' &#13;&#10;        else &#13;&#10;        if (Id[1] = 0) and (Id[2] = 1) and (Id[3] = -1) then&#13;&#10;        Result := T_Array[2] + T_Array[0] + T_Array[1] + ' ' &#13;&#10;        else &#13;&#10;        if (Id[1] = 0) and (Id[2] = 0) and (Id[3] = 0) then&#13;&#10;        Result := T_Array[2] + T_Array[0] + T_Array[1] &#13;&#10;        else &#13;&#10;        Result := T_Array[2] + T_Array[0] + T_Array[1] + ' ';//----                &#13;&#10;       end;&#13;&#10;                2: &#13;&#10;       begin&#13;&#10;        if (Id[1] = 1) and (Id[2] = -1) and (Id[3] = -1) then&#13;&#10;        Result := ' ' &#13;&#10;        else &#13;&#10;        if (Id[1] = 2) and (Id[2] = -1) and (Id[3] = -1) then&#13;&#10;        Result := '' &#13;&#10;        else &#13;&#10;        if (Id[1] &#62; 2) and (Id[2] = -1) and (Id[3] = -1) then&#13;&#10;        Result := T_Array[0] + '' &#13;&#10;        else &#13;&#10;        if (Id[1] &#62; 2) and (Id[2] = 0) and (Id[3] &#60;&#62; -1) then&#13;&#10;        Result := T_Array[2] + T_Array[0] + T_Array[1] + '' &#13;&#10;        else &#13;&#10;        if (Id[1] = 0) and (Id[2] = 1) and (Id[3] = -1) then&#13;&#10;        Result := T_Array[2] + T_Array[0] + T_Array[1] + '' &#13;&#10;        else &#13;&#10;        if (Id[1] = 0) and (Id[2] = 0) and (Id[3] = 0) then&#13;&#10;        Result := T_Array[2] + T_Array[0] + T_Array[1] &#13;&#10;        else&#13;&#10;        Result := T_Array[2] + T_Array[0] + T_Array[1] + ' ';&#13;&#10;       end;&#13;&#10;                3: &#13;&#10;       begin &#13;&#10;        if (Id[1] = 1) and (Id[2] = -1) and (Id[3] = -1) then &#13;&#10;        Result := ' ' &#13;&#10;        else &#13;&#10;        if (Id[1] = 2) and (Id[2] = -1) and (Id[3] = -1) then&#13;&#10;        Result := '' &#13;&#10;        else &#13;&#10;        if (Id[1] &#62; 2) and (Id[2] = -1) and (Id[3] = -1) then&#13;&#10;        Result := T_Array[0] + '' &#13;&#10;        else &#13;&#10;        if (Id[1] &#62; 2) and (Id[2] = -1) and (Id[3] = -1) then&#13;&#10;        Result := T_Array[2] + T_Array[0] + T_Array[1] + '' &#13;&#10;        else &#13;&#10;        if (Id[1] = 0) and (Id[2] = 1) and (Id[3] = -1) then&#13;&#10;        Result := T_Array[2] + T_Array[0] + T_Array[1] + '' &#13;&#10;        else &#13;&#10;        Result := T_Array[2] + T_Array[0] + T_Array[1] + ' ';&#13;&#10;       end;&#13;&#10; end;&#13;&#10; end;&#13;&#10; //----------------                                                                             &#13;&#10;&#13;&#10;function Res(b: Boolean): Integer;&#13;&#10;    begin &#13;&#10;       if b then&#13;&#10;        Result:= 1 &#13;&#10;        else &#13;&#10;        Result:= 0;&#13;&#10;    end;&#13;&#10;function StringOfChar(ch: Char; count: Integer): string;&#13;&#10;    var i: Integer;&#13;&#10;        begin &#13;&#10;        Result:= '';&#13;&#10;        for i:= 1 to count do &#13;&#10;        Result:= Result + ch;&#13;&#10;        end;&#13;&#10;function NoDoubleSpace(vStr: string): string;&#13;&#10;       var i: integer;&#13;&#10;       begin &#13;&#10;       i := 0;&#13;&#10;       while i &#60; length(vStr) do &#13;&#10;       begin &#13;&#10;       i := i + 1;&#13;&#10;       if (vStr[i] = ' ') and (vStr[i + 1] = ' ') then &#13;&#10;       Delete(vStr, i + 1, 1);&#13;&#10;       end;&#13;&#10;       Result := vStr;&#13;&#10;       end;&#13;&#10;             &#13;&#10; ////////////////&#13;&#10;function Get_Number_Arabic(const Number: string;const Curr_Name: string;Gender: Boolean): string;&#13;&#10;   var&#13;&#10;       Pt: array[0..4] of string;&#13;&#10;       Pt_St: array[0..3] of string;&#13;&#10;       T_Str, S, EndStr: string;&#13;&#10;       i, StrLength: integer;&#13;&#10;    begin&#13;&#10;       Pt[0] := '';&#13;&#10;       Pt[1] := '';&#13;&#10;       Pt[2] := '';&#13;&#10;       Pt[3] := '';&#13;&#10;       Pt[4] := '';&#13;&#10;             &#13;&#10;       Pt_St[0] := '';&#13;&#10;       Pt_St[1] := '';&#13;&#10;       Pt_St[2] := '';&#13;&#10;       Pt_St[3] := '';&#13;&#10;  &#13;&#10;       Result :='';&#13;&#10;       EndStr := '';&#13;&#10;       T_Str := '';&#13;&#10;       S := '';&#13;&#10;       i := -1;//new                                     &#13;&#10;       if Number = '0' then begin Result := ' ';&#13;&#10;    Exit;&#13;&#10;    end;&#13;&#10;    if Number = '' then &#13;&#10;    begin &#13;&#10;    Result := '';&#13;&#10;    Exit;&#13;&#10;    end;&#13;&#10;    T_Str := '';&#13;&#10;    Result :='';&#13;&#10;    EndStr := '';&#13;&#10;    S := '';                             &#13;&#10;   //         &#13;&#10;    S := Trim(Number);&#13;&#10;    StrLength := Length(S);&#13;&#10;    Pt[0] := S;//0      &#13;&#10;  while StrLength &#62;= 3 do&#13;&#10;   begin&#13;&#10;    StrLength := StrLength - 3;&#13;&#10;    i := i + 1;&#13;&#10;    Pt[i] := Copy(S, StrLength + 1, 3);&#13;&#10;                                     &#13;&#10;    S := Copy(S, 1, StrLength)&#13;&#10;   end;&#13;&#10;  //                                    &#13;&#10;    Pt[i + 1] := S;            &#13;&#10;    for i := 0 to 3 do &#13;&#10;    if Length(Pt[i]) &#62; 0 then&#13;&#10;    Pt_St[i] := Get_Number(Pt[i], i, Gender);&#13;&#10;    //EndStr := '';        &#13;&#10;    for i := 3 downto 0 do &#13;&#10;    if Length(Pt_St[i]) &#62; 0 then &#13;&#10;    if (i &#60;&#62; 0) and (Length(Pt_St[i - 1]) &#62; 0) then&#13;&#10;                                       &#13;&#10;    EndStr := EndStr + ' ' + Pt_St[i] + '  '                          &#13;&#10;         &#13;&#10;    else &#13;&#10;    EndStr := EndStr + ' ' + Pt_St[i] + ' ' + Curr_Name;&#13;&#10;    Result := Trim(EndStr);&#13;&#10;    Result := NoDoubleSpace(Result);&#13;&#10; end;&#13;&#10; ////////////////&#13;&#10; //-----------------&#13;&#10;&#13;&#10;  Begin&#13;&#10;  End.                          " OnStartReport="ReportOnStartReport" PropData="08446174617365747301010C2400000020446174615365743D224E6F7465732220446174615365744E616D653D224E6F746573220000095661726961626C657301010C16000000204E616D653D22204E65772043617465676F7279312200010C18000000204E616D653D2256617231222056616C75653D222730272200010C14000000204E616D653D22205265705F56617269616E742200010C4A000000204E616D653D22437572557365724944222056616C75653D22262333343B7B30334245374132382D394534432D343764642D383534432D4338413636463236303741347D262333343B220000055374796C650100">
  <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000">
    <TfrxADODatabase Name="ADODatabase" LoginPrompt="False" PropData="05704C65667402280470546F700214"/>
    <TfrxADOQuery Name="Notes" UserName="Notes" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="exec [dbo].[mnrFrx_Notes] '{AC993271-BA67-4163-859D-7ADD5BDAD26A}'" CommandTimeout="30" Database="ADODatabase" LockType="ltReadOnly" PropData="05704C65667402280470546F7002580A506172616D65746572730100"/>
  </TfrxDataPage>
  <TfrxReportPage Name="Page1" PaperWidth="85" PaperHeight="189" PaperSize="256" LeftMargin="0" RightMargin="0" TopMargin="0" BottomMargin="0" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="" OnBeforePrint="Page1OnBeforePrint">
    <TfrxMemoView Name="Memo32" Left="128.29895386" Top="492.04752236" Width="34.01575535" Height="105.82676677" ShowHint="False" DataSetName="frxDBDataset1" DisplayFormat.DecimalSeparator="." Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Arial" Font.Style="1" Frame.Style="fsDot" HAlign="haCenter" ParentFont="False" Rotation="270" RTLReading="True" VAlign="vaCenter" Text="[&#60;Notes.&#34;nVal&#34;&#62;]"/>
    <TfrxMemoView Name="Memo2" Left="124.07878898" Top="-53.78735764" Width="41.57481535" Height="366.6141415" ShowHint="False" StretchMode="smMaxHeight" DataSetName="frxDBDataset1" DisplayFormat.DecimalSeparator="." Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Style="fsDot" HAlign="haCenter" ParentFont="False" Rotation="270" RTLReading="True" VAlign="vaCenter" Text="[Number_Arabic(&#60;Notes.&#34;nVal&#34;&#62;/&#60;Notes.&#34;nCurrencyVal&#34;&#62;,&#60;Notes.&#34;Name&#34;&#62;,&#60;Notes.&#34;PartName&#34;&#62;,2,false)]"/>
    <TfrxMemoView Name="Memo4" Left="162.65360677" Top="-74.39371543" Width="30.23622535" Height="476.2205115" ShowHint="False" DataSetName="frxDBDataset1" DisplayFormat.DecimalSeparator="." Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Style="fsDot" HAlign="haRight" ParentFont="False" Rotation="270" RTLReading="True" VAlign="vaCenter" Text="[Notes.&#34;ac1Name&#34;]"/>
    <TfrxMemoView Name="Memo1" Left="198.58252827" Top="493.62245" Width="30.23622535" Height="113.38582677" ShowHint="False" DataSetName="frxDBDataset1" DisplayFormat.DecimalSeparator="." DisplayFormat.FormatStr="yy        MM   dd" DisplayFormat.Kind="fkDateTime" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Style="fsDot" HAlign="haCenter" ParentFont="False" Rotation="270" RTLReading="True" VAlign="vaCenter" Text="[Notes.&#34;nDate&#34;]"/>
    <TfrxMemoView Name="Memo3" Left="178.56674606" Top="504.62243047" Width="30.23622535" Height="113.38582677" ShowHint="False" DataSetName="frxDBDataset1" DisplayFormat.DecimalSeparator="." Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Style="fsDot" HAlign="haCenter" ParentFont="False" Rotation="270" RTLReading="True" VAlign="vaCenter" Text="جدة"/>
    <TfrxMemoView Name="Memo5" Left="79.84258559" Top="-64.54341205" Width="52.91340535" Height="377.9527315" ShowHint="False" StretchMode="smMaxHeight" DataSetName="frxDBDataset1" DisplayFormat.DecimalSeparator="." Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Style="fsDot" HAlign="haCenter" ParentFont="False" Rotation="270" RTLReading="True" VAlign="vaCenter" Text="[Notes.&#34;nNotes1&#34;]"/>
    <TfrxMemoView Name="Memo6" Left="32.23624" Top="22.7953" Width="30.23622535" Height="120.94488677" Visible="False" ShowHint="False" DataSetName="frxDBDataset1" DisplayFormat.DecimalSeparator="." Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Arial" Font.Style="1" Frame.Style="fsDot" HAlign="haCenter" ParentFont="False" Rotation="270" RTLReading="True" VAlign="vaCenter" Text="[&#60;Notes.&#34;nCurrencyVal&#34;&#62;]"/>
  </TfrxReportPage>
</TfrxReport>
