; DDT pokladní doklad včetně skladového pohybu
; verze z 31.12.2014
; Autor: WinDUO Team

Name('Pokladna Test')
Designed('Pokladna','PokladnaS')

DeclareRec('Pokladna')
DeclareRec('Program')
GetBindRec('Pokladna')

FIK:String=GetFIK(Pokladna.FIK);
BKP:String=GetBKP(Pokladna.BKP);

Message(FIK+#13+BKP+#13+IsFIK(Pokladna.FIK)+#13+IsBKP(Pokladna.BKP)+#13+IsPKP(Pokladna.PKP));

END