
[INIT]
  EXECUTE MACRO ProjectUpdate, Module_ProjectUpdate, ProjectUpdate
  DELETE "dgn\*.lve"

[PRE]
  EXECUTE MACRO ProjectUpdate, Module_ProjectUpdate, ProjectUpdate

[OPEN]
  EXECUTE MACRO ProjectUpdate, Module_ProjectUpdate, ProjectUpdate

[POST]
  EXECUTE MACRO ProjectUpdate, Module_ProjectUpdate, ProjectUpdate
  DELETE  "=== PrjData ===\data\rulefiles\K_Kat*.csv"
  DELETE  "=== PrjData ===\data\rulefiles\O_Kat*.csv"
  DELETE  "=== PrjData ===\data\rulefiles\O_WMS*.csv"
  DELETE  "=== PrjData ===\data\rulefiles\O_Dráž*.csv"
  DELETE  "=== PrjData ===\data\*.drawlist.xml"
  DELETE  "=== PrjData ===\data\*.view.xml"
  DELETE  "=== PrjData ===\data\*SŽDC*.pntmgrimport.xml"
  DELETE  "=== PrjData ===\data\*SŽDC*.pntmgrexport.xml"
  DELETE  "=== PrjData ===\data\Úplný DM dle SŽDC.drawlist.xml"
  REWRITE "=== PrjData ===\data\Úplný DM dle SŽ.drawlist.xml"
  REWRITE "=== PrjData ===\cfg\pntmgr.xml"
  REWRITE "=== PrjData ===\cfg\lastview.xml"
  REWRITE "=== PrjData ===\cfg\Export výkresů dle SŽ.drwexport.xml"
  REWRITE "=== PrjData ===\cfg\Bodově závislé objekty.pntmgrobjsel.xml"
  DELETE  "=== PrjData ===\cfg\*.pntmgrimport.xml"
  DELETE  "=== PrjData ===\cfg\*.pntmgrexport.xml"
  REWRITE "=== PrjData ===\cfg\Vstup SŽ M20 MP005 - s kódy.pntmgrimport.xml"
  REWRITE "=== PrjData ===\cfg\Vstup SŽ M20 MP005 - bez kódů.pntmgrimport.xml"
  REWRITE "=== PrjData ===\cfg\Vstup měření SŽ bez kódů blok char. bez hlavičky.pntmgrimport.xml"
  REWRITE "=== PrjData ===\cfg\Vstup měření SŽ s kódy blok char. bez hlavičky.pntmgrimport.xml"
  REWRITE "=== PrjData ===\cfg\Výstup SŽ M20 MP005 - s kódy.pntmgrexport.xml"
  REWRITE "=== PrjData ===\cfg\Výstup SŽ M20 MP005 - bez kódů.pntmgrexport.xml"
  REWRITE "=== PrjData ===\cfg\Protokol přečíslovaných bodů.pntmgrexport.xml"
  REWRITE "=== PrjData ===\data\0 Vše JŽM.view.xml"
  REWRITE "=== PrjData ===\data\0a Vše ve všech kategoriích.view.xml"
  REWRITE "=== PrjData ===\data\1 Svršek 1-11.view.xml"
  REWRITE "=== PrjData ===\data\2 Spodek 12-22.view.xml"
  REWRITE "=== PrjData ===\data\3 Stavby 23-24.view.xml"
  REWRITE "=== PrjData ===\data\4 Kabelové vedení 25-36.view.xml"
  REWRITE "=== PrjData ===\data\5 Potrubní vedení 37-47.view.xml"
  REWRITE "=== PrjData ===\data\6 Terén.view 48-51.xml"
  REWRITE "=== PrjData ===\data\7 Drážní hranice 52-59.view.xml"
  REWRITE "=== PrjData ===\data\7 Železniční KN 55.view.xml"
  REWRITE "=== PrjData ===\data\8 Body 60-63.view.xml"
  REWRITE "=== PrjData ===\data\9 Polygony a obecné popisy 63.view.xml"
  REWRITE "=== PrjData ===\data\A Pomocné soubory1-200.view.xml"
  REWRITE "=== PrjData ===\data\B Katastrální mapa -  Vše.view.xml"
  REWRITE "=== PrjData ===\data\B Katastrální mapa - PV KN 52-59.view.xml"
  REWRITE "=== PrjData ===\data\B Katastrální mapa - VFK 1-62.view.xml"
  REWRITE "=== PrjData ===\data\C.Kóty - na vyžádání 260-263.view.xml"
  REWRITE "=== PrjData ===\data\D STI 201-251.view.xml"
  REWRITE "=== PrjData ===\data\E BIM.view.xml"

[FINAL]
  EXECUTE MACRO ProjectUpdate, Module_ProjectUpdate, ProjectUpdate
  EXECUTE SQL UPDATE NavestidB SET pres=null where pres='nzz'
  EXECUTE SQL UPDATE JZM_B SET jzm_var1=null WHERE jzm_var1 IN(33,41,56)
  EXECUTE SQL UPDATE JZM_B SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE JZM_L SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE JZM_P SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Kolej_B SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Kolej_L SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Kolej_P SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Tech_B SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Tech_L SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Tech_P SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE NavestidB SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE NavestidL SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Rychlostniky SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE NavestidB SET Vybava07=UPPER(Vybava07), Vybava08=UPPER(Vybava08), Vybava09=UPPER(Vybava09), Vybava10=UPPER(Vybava10), Vybava11=UPPER(Vybava11), Vybava12=UPPER(Vybava12) WHERE Vybava01 <> UPPER(Vybava01)
  EXECUTE SQL UPDATE NavestidB SET Vybava01=UPPER(Vybava01), Vybava02=UPPER(Vybava02), Vybava03=UPPER(Vybava03), Vybava04=UPPER(Vybava04), Vybava05=UPPER(Vybava05), Vybava06=UPPER(Vybava06) WHERE Vybava01 <> UPPER(Vybava01)
  EXECUTE SQL UPDATE Tech_L SET Jev='070' WHERE ObjCode='20011' AND popis='odv' AND (Jev IS null OR LENGTH(TRIM(Jev))=0)
  EXECUTE SQL UPDATE Kolej_L SET KCD='V' WHERE jev='097' AND KCD='H'
  EXECUTE COMMAND MENUMGR MENU REFRESH