;Příklad velmi rychlého zápisu údajů z osobního dokladu do Fidelia pomocí AutoIt.
;Prodlevy Sleep(xxx) nejsou potřeba. Také není nutná volba polí pomocí TAB a klávesových zkratek.
;
;Vytvořil 29.3.2019 Martin Petrnoušek
;Poslední úprava 2019-03-29 13:50
;
;Data z některých polí zmizí po kliknutí na tlačítko "Novy", pokud do nich před zápisem hodnot není přesunut kurzor.
;Vliv na to nemá ani způsob zápisu ControlSetText (vloží najednou), ControlSend (píše postupně, ale občas vynechá první písmenko) ani ControlCommand s EditPaste.
;Jedná se asi o nějakou "vlastnost" (čti chybu) Fidelia. :-)
;
;Způsobů přesunu kurzoru je možných několik, nejjednodušší se mi jeví ControlClick - stejné porametry jako ControlSetText.
;U klávesových zkratek se obávám možného vynechání stisku kláves (NEPOTVRZENO), jako se tomu děje u TABulátorů.
;Mimimálně u pole Příjmení tento problém nenastává.
;
;Pomocí ALT+g se spustí zápis zkušebních hodnot do polí na kartě "Nový Individual Karta (ID: xxxxxxxx)".
;Pomocí ESC se skript ukončí

;Changelog:
; 2019-04-09 [Granus] Adaptation to DPWrite interface
;

#include <DPW.au3>

;MsgBox(0, $name & " " & $surname, $birth_day & "." & $birth_month & "." & $birth_year);

ControlSetText("[CLASS:TfIndividualProfile]","","[CLASS:TFidProfileEditLastName; INSTANCE:1]", $surname);  Zápis příjmení

ControlClick("[CLASS:TfIndividualProfile]","","[CLASS:TFidProfileEditFirstName; INSTANCE:1]"); klikne do pole křestní jméno
ControlSetText("[CLASS:TfIndividualProfile]","","[CLASS:TFidProfileEditFirstName; INSTANCE:1]", $name); Zápis křestního jména  způsob 1
;	ControlSend("[CLASS:TfIndividualProfile]","","[CLASS:TFidProfileEditFirstName; INSTANCE:1]", "Křestní jméno - test"); Zápis křestního jména  způsob 2
;	ControlCommand("[CLASS:TfIndividualProfile]","","[CLASS:TFidProfileEditFirstName; INSTANCE:1]", "EditPaste", 'Křestní jméno - test'); Zápis křestního jména  způsob 3

ControlSetText("[CLASS:TfIndividualProfile]","","[CLASS:TFidProfileDropDownDay; INSTANCE:1]", $birth_day);den narození
ControlSetText("[CLASS:TfIndividualProfile]","","[CLASS:TFidProfileDropDownMonth; INSTANCE:1]", $birth_month);měsíc narození slovy
ControlSetText("[CLASS:TfIndividualProfile]","","[CLASS:TFidProfileMaskEditYear; INSTANCE:1]", $birth_year);rok narození

ControlClick("[CLASS:TfIndividualProfile]","","[CLASS:TDNewBitBtn; INSTANCE:2]");klikne na "Novy" osobní dokument

SetSharedData("ret", "OK");

