home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 03 / MOD37A.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-09-04  |  17KB  |  410 lines
  1. MOD37A
  2. m_Cis1
  3. x_Cis1
  4. m_Dat
  5. x_Dat
  6. m3_Zdrt
  7. Ident_Zdr
  8. m3_Zdr
  9. Ident_Zdr
  10.  e h l e d    p r a c o v i 
  11. RIIS 3.7
  12. mod37a
  13. Zadejte pracovi
  14. Detail
  15. aktual
  16. Pracovi
  17. '  '+m3_Zdr.Ident_Zdr+'  '
  18. m3_Zdr.Ident_Zdr
  19. m3_Zdr.Nazev_Zdr
  20. m3_Zdr.Nazev_Zdr
  21. Zkratka
  22. m3_Zdr.Zkr_Zdr+' '
  23. m3_Zdr.Zkr_Zdr
  24. ' '+m3_Zdr.Typ_Zdr+' '
  25. m3_Zdr.Typ_Zdr
  26. Rozli
  27. '       '+m3_Zdr.Rozl
  28. m3_Zdr.Rozl
  29. Prac.m
  30. '       '+str(m3_Zdr.mist,3)
  31. m3_Zdr.mist
  32. pPOM_KAMNAVI
  33. para vlM_CIS1
  34. NAVX_CIS1
  35. pomM_DAT
  36. om_VX_DAT
  37. m_FiM3_ZDRT
  38. orIDENT_ZDR
  39. M3_ZDR
  40. poPOLEX
  41. PROCX
  42. m_VeRTOP
  43. cno()RBOT
  44. ilt =CLEFT
  45. lterCRIGHT
  46. or FREEZE
  47. oloORDER
  48. arvaHOR
  49. novy_zDOL
  50. q1 =1
  51.   PRAVA
  52.    qNADPIS
  53. q5 ZAHL
  54. q6 =6JMENO
  55. et1 HODN
  56.    SOUC
  57.    q2PSOUC
  58. q3 =TITLE
  59. TITLECOLORPOC0
  60.    pF0
  61. if q>poF2
  62.    q =F3
  63. endiF4
  64. o case
  65. ase q=qF7
  66.  && praF9
  67.    F10
  68. ,14 &vF0PRG
  69. dentF1ON
  70. t "@!F1PRG
  71. ase F4_JM
  72.   &&F4PRG
  73.     TISKPRG
  74. vlF7_JM
  75. zev_F7PRG
  76. "!XXF9PRG
  77. XXXXF9KEY
  78. XXXXF9KEY1
  79.    F10_JM
  80. 3  F10PRG
  81. ratRAMECEK
  82.   @ 6NAZEVT
  83. z wKLICO
  84. pictKLNAZ
  85.    cSPACEBAR
  86.  TR_HL1
  87.   TR_HL2
  88. 1 &TR_HL3
  89. yp_TR_HL4
  90. "9"TR_HL5
  91.  q=TR_HL6
  92. & rTR_HL7
  93.   TR_HL8
  94. 4 &TR_HL9
  95. ozlDET_JM
  96. "XXENTER
  97. se qDETAIL
  98. && DETPRG
  99. PS_LINE
  100. 58PS_RETURN
  101. PS_ZAZN
  102.  "OBSAHX
  103. asMOD_PSV
  104. z=OBSAH
  105. A k t u a l i z a c e    p r a c o v i 
  106. set color to b/w
  107. set color to bg/n
  108. set color to w+/bg
  109. set color to b/bg,w+/rb
  110. set color to w+/b
  111. set color to w+/w
  112. set color to w/n
  113. c3_txt+
  114. c3_txt
  115. c3_txt
  116. POM_OBR
  117. pW_IDENT_Z
  118. W_NAZEV_Z
  119. W_ZKR_Z
  120. AVW_TYP_Z
  121. omW_ROZL
  122. m_VW_MIST
  123. _FiQ1
  124. NT_ZDR
  125. m_VeQ
  126. cno()ZMENA1
  127. t =ZMENA2
  128. terPOCET1
  129. or POCET2
  130. oloPOM_KONTR
  131. POM_KONEC
  132. q1 =1
  133.   BARVA
  134.    qRADEK_C
  135. 5 SLOUPEC_C
  136. et1 Y
  137.    q2SL
  138. q3 =POC
  139. BARVAS
  140. LORBARVAR
  141.   pBARVAZ
  142. enBARVAU
  143. >poBARVAN
  144. q =BARVAT
  145. ndiBARVAH
  146. M3_ZDR
  147. q=qNOVY_Z1
  148. raIDENT_ZDR
  149. NAZEV_ZDR
  150. ZKR_ZDR
  151. ntTYP_ZDR
  152. @!ROZL
  153. se MIST
  154.  &&M3_ZDRT
  155.   C3_TXT
  156. NOVY_Z2
  157. XXXXX
  158. XXXXR
  159. MECEK
  160. HLAV1
  161.  @ 6MENU1
  162. z wPROC1
  163. pictHLAV2
  164.    cPROC2
  165.  ZMENY
  166.   VETA
  167. 1 &PS_RETURN
  168. &barvau
  169. &barvas
  170. &barvaz
  171. &barvar
  172. &barvaz
  173. &barvat
  174. Pracovi
  175. Zkratka pracovi
  176. Typ pracovi
  177. Rozli
  178.  pracovi
  179. et pracovn
  180. &barvau
  181. M_OBR
  182. &barvas
  183. &barvau
  184. &barvar
  185. &barvaz
  186. &barvat
  187. &barvau
  188. M_OBR
  189. &barvau
  190. &barvas
  191. !XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  192. M_OBR
  193. pW_IDENT_Z
  194. W_NAZEV_Z
  195. W_ZKR_Z
  196. AVW_TYP_Z
  197. omW_ROZL
  198. m_VW_MIST
  199. &barvas
  200. &barvau
  201. M_OBR
  202. DENT_Z
  203. NAZEV_Z
  204. ZKR_Z
  205. AVDOL
  206. omTEXT
  207. filterz
  208. colorz
  209. &barvau
  210. @ 4,14 &vloz w_Ident_Z pict "@!X"
  211. @ 4,42 &vloz w_Nazev_Z pict "!XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  212. @ 6,24 &vloz w_Zkr_Z pict "@!X"
  213. @ 6,51 &vloz w_Typ_Z  pict "9"
  214. @ 7,24 &vloz w_Rozl   pict "XX"
  215. @ 7,58 &vloz w_Mist   pict "999"
  216. m3_Zdr
  217. Duplicitn
  218. slo pracovi
  219. zmena&y =.t.
  220. pPOM_ALI
  221. POM_ORD
  222. POM_VETA
  223. VPOM_FILT
  224. mMMCOLOR
  225. _VNOVY_Z1
  226. NT_ZDR
  227. m_VeQ6
  228. cno()POCET1
  229. terW_IDENT_Z
  230. oloHLASKA
  231. DEJ_STAV
  232. W_NAZEV_Z
  233. &barvau
  234. @ x,2 &vloz c3_txt.text
  235. zmena&y=.t.
  236. M_ALI
  237. POCET2
  238. _VETA
  239. M_FILT
  240.        - 
  241.                  - ^PgDn
  242.        - F2
  243.                  - ^Home
  244.       - ^End,Esc
  245. Pohyb
  246. znamu
  247. znamu
  248. Konec
  249.       - 
  250. ,PgDn,PgUp
  251.                  - ^PgUp,^PgDn
  252.                  - ^Home
  253.       - ^End,Esc
  254. Pohyb
  255. Konec
  256. do Proc&y
  257. do Zmen&y with "get"
  258. do Zmen&y with "say"
  259. Zmena&y  =.f.
  260. novy_Z&y =.t.
  261. Zmena&y  =.f.
  262. novy_Z&y =.f.
  263. return to &pom_KamNavr 
  264. if q<pocet&y and i#55
  265. it pr
  266. ci beze zm
  267. n? (a/N)
  268. POM_OBRZ
  269. M_ALI
  270. _VETA
  271. VY_Z1
  272. iPOM_KONEC
  273. T_ZDR
  274. m_VeLK
  275. cno()Y
  276. t =KONTROLA
  277. rPOM_KONTR
  278. ZAPIS
  279. oloC3_TXT
  280. RAD_T
  281. PREPOC_PORQ
  282.   HLAV1
  283.    qPROC1
  284. 5 HLAV2
  285. PROC2
  286. et1 MENU2
  287. POCET2
  288.  q2ZMENA2
  289. 3 =IDENT_ZDR
  290. M3_ZDR
  291. LORNOVY_Z2
  292. ORW_IDENT_Z
  293. W_NAZEV_Z
  294. NAZEV_ZDR
  295. W_ZKR_Z
  296. diZKR_ZDR
  297. W_TYP_Z
  298. =qTYP_ZDR
  299. raW_ROZL
  300. W_MIST
  301. ntMIST
  302. @!NOVE_DATA
  303. ZMENA1
  304.  &&NOVY_Z1
  305.   POM
  306. KONEC
  307. filterz
  308. colorz
  309. if novy_Z&y and not Zmena&y
  310. if novy_Z&y
  311. m3_Zdr
  312. Duplicitn
  313. slo pracovi
  314. TYP_ZDR   
  315. w_Typ_Z   
  316. POM_PROM
  317. pPOM_ALI
  318. POM_ORD
  319. POM_VETA
  320. VPOM_FILT
  321. mMMCOLOR
  322. _VPOM_KONTR
  323. M_KONTR
  324. W_IDENT_Z
  325. HLASKA
  326. m_VeA
  327. cno()DEJ_STAV
  328. =JMENO_C
  329. rWJMENO_C
  330. MOD_C2
  331. oloOK_C
  332. RADEK_C
  333. SLOUPEC_C
  334. MOD_C1
  335. c3_txt
  336. M_PROM
  337. pZMENA1
  338. M3_ZDR
  339. IDENT_ZDR
  340. W_IDENT_Z
  341. M3_ZDRT
  342. _VC3_TXT
  343. NAZEV_ZDR
  344. W_NAZEV_Z
  345. ZKR_ZDR
  346. W_ZKR_Z
  347. VeTYP_ZDR
  348. ()W_TYP_Z
  349. =ROZL
  350. rW_ROZL
  351. oloW_MIST
  352. ZMENA2
  353. RAD_T
  354. colora
  355. POM_TXT
  356. pPOM_OBR
  357. MMCOLOR
  358. set filter to &pom_Filt
  359. POM_ALI
  360. pPOM_ORD
  361. POM_VETA
  362. POM_FILT
  363. MMCOLOR
  364. ST_ZAZ
  365. RAD_T
  366. c3_txt
  367. c3_txt+
  368. c3_txt
  369. C3_TXT
  370. pM3_ZDRT
  371. M3_ZDR
  372. IDENT_ZDR
  373. HLAV1
  374. PROC1
  375. VHLAV2
  376. ZEV_ZDR
  377. ZEV_Z
  378. PROC2
  379. MOD37A
  380. colo%
  381. AKTUAL
  382. HLAV1
  383. ardniP
  384. HLAV2
  385. set c!
  386. PROC1
  387. /n"  G
  388. PROC2
  389. rva r
  390. ZMEN1
  391. tanda
  392. ZMEN2
  393. ="set6
  394. MENU1
  395. w+/bg4
  396. MENU2
  397. zmeno
  398. ZMENY
  399. ="set
  400. KONTROLA
  401. ZAPIS
  402. zmeny
  403. HLASKA
  404. DEJ_STAV
  405. PREPOC_POR
  406. NOVE_DATA
  407. Z:\RIIS\
  408. MOD37A.FXP
  409. Z:\RIIS\MOD37A.PRG
  410.