; DDT pokladní doklad - paragon
; verze z 26.11.2004
; Autor: WinDUO Team

;dodělat, ať se při tisku detailu nepoužívá STRNATIVE ale tisk pravostranných nul podle nastavení
;upraveno tak, ze pro souctovou tabulku DPH bere udaje z toho, co se tiskne, a ne ze skladu
;upraveno pro neplatce
; 26.11.2004 upraveno pro tisk skladoveho cisla, kodu, cisla skladu a druhu dle nastaveni paragonu
; 26.11.2004 pridany informace o poskytnute sleve
; 13.10.2005 pridana podpora fiskalniho modulu

Name('Paragon - S T O R N O')
Designed('PokladnaS','PokladnaR')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Storno paragonu','včetně skladových pohybů.','(Určeno pro tiskárny paragonů','- tiskárnu nutno mít zapnutou a nastavenou)')

WNSType(-1);

DeclareRec('Program')

Global Storno:Boolean=True

if(Program.FiscalModule)
  begin
    if(Question('Opravdu chcete vystornovat paragon ?'))
      begin
        CallDDT('ParagFM.DDT');
      end;
    Exit;
  end;

Message('Tato sestava je určena pouze pro použití s fikálním modulem',mb_IconStop);

END