; DDT faktury do predtisteneho formulare 1 = vzor
; verze z 20.3.2002
; Autor: WinDUO Team

Name('Faktura - vzor využití FaktProc.DDT')
Designed('Faktura')

DeclareRec('Program')
DeclareRec('Faktura')
DeclareRec('Pohledavka');
GetBindRec('Pohledavka');

InitStatus(GetCountBindRec('Faktura'),'Vytvářím doklad','k pohledávce č.'+Pohledavka.Doklad);

;****************************************************************************
; Deklarace globálních proměnných pro podprogram tisku řádků faktury
;****************************************************************************

Global Max           :Array[1..12] of Byte
Global Sloupce       :Word
Global OdRadku       :Word
Global PocetRadku    :Word
Global Strana        :Word
Global VseVytisteno  :Boolean
Global SirkaFontuText:Real=0.9
Global VyskaFontuText:Real=4
Global FaktXPozice   :Real=7
Global FaktYPozice   :Real
Global FaktSirka     :Real=166
Global FaktOdstup    :Real=5
Global JeFaktura     :Boolean=True

StatusWindowInCall(True)

;****************************************************************************
; Vytisteni dokladu
;****************************************************************************

OdRadku=1
Strana=0
PocetRadku=Program.MaxRadF
FaktYPozice=0
CallDDT('FaktProc.DDT');

;****************************************************************************
; Vytisteni prilohy
;****************************************************************************

While(not VseVytisteno)
  begin
    SetStatus(OdRadku);
    NextPage
    PocetRadku=Program.MaxRadP
    Inc(Strana)
    FaktYPozice=0
    CallDDT('FaktProc.DDT');
  end;

SetStatusMax;

END