home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 06 / MOD616A.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-02-10  |  20KB  |  511 lines
  1. OPRAVA1
  2. mod616a
  3. m6_prnes
  4. m6_kal
  5. datum
  6. m6_zam
  7. m_dat
  8. x_dat
  9. m_cis1
  10. x_cis1
  11. m6_prum
  12. m6_mzd
  13. m6_sazby
  14. m6_kal_h
  15. m6_fzar
  16. m6_evid
  17. RIIS 6.1
  18. Aktualizace nemoci, O
  19. R zam
  20. stnance:
  21. mod_proc
  22. mod6_lib
  23. Osobn
  24. slo neexistuje
  25. DRUH_POMER
  26. w_druh_pom
  27. DRUH_POMERF
  28. Druh pracovn
  29. ho pom
  30. ru neexistuje
  31. stnanec nem
  32.  navedeny mzdov
  33. daje pro tento pracovn
  34. mod6_lib
  35. set color to w+/bg
  36. mod6_lib
  37. znam 
  38. znam 
  39. vrat 
  40.  Konec 
  41. Opravdu zru
  42. it tento z
  43. znam? (a/N)
  44. mod6_lib
  45. mod6_lib
  46. mod614a
  47. ZMENA
  48. **PROCX
  49. ****OBR_C1
  50. ***SVITI_C
  51. **JMENO_C
  52. **WJMENO_C
  53. eRADEK_C
  54. *SLOUPEC_C
  55. TYP_C
  56. if iOK_C
  57. 'SKUHANSI
  58. rada_M6_PRNES
  59.    raM6_KAL
  60.  .fDATUM
  61. *M6_ZAM
  62. la M_DAT
  63. storX_DAT
  64. q1,qM_CIS1
  65. q5,X_CIS1
  66. ,q9M6_PRUM
  67. q1M6_MZD
  68.  0 M6_SAZBY
  69. kM6_KAL_H
  70. oM6_FZAR
  71. doM6_EVID
  72. unPRED
  73. POTOM
  74. '' tCHYBA
  75. _dokNOVY_Z
  76. _vyW_OSC
  77. at_zW_PICT_OSCZOBR_ZAM
  78.  MOD_PROC
  79. ,W_CHYBA
  80. SCK_OSC
  81. h_dnW_DEL_OSC
  82. MOD6_LIB
  83. _HLASKA
  84. kaW_DRUH_POMDRUH_POMERMOD_C2
  85. MMOD_C3
  86.   HLAV_ZAM
  87. MMENU
  88. wBARVAZ
  89. , ;BARVA
  90. autoBARVA1
  91. ualBARVA2
  92. aktPORADI
  93. _vzW_CIS_NES
  94. OPRAVA2
  95. niGEN_KALZ
  96. _W_ZAC_MES
  97. D6_LIB
  98. zmena,OBR1
  99. unctioNAPLN
  100. S_POLE
  101. set color to b/w
  102. set color to bg/n
  103. set color to w+/bg
  104. set color to b/bg,w+/rb
  105. set color to w+/b
  106. set color to w/n
  107. set color to w+/w
  108. &barva
  109. &barvau
  110. EXISTUJE
  111. *ID_ORG
  112. ***RADA_NES
  113. *KONTROLA
  114. ENO_C
  115. UPEC_C
  116. if iQ6
  117. 'SKUHQ7
  118. rada_Q8
  119. PRNES
  120.    raQ10
  121.  .fQ11
  122. la CISELNIK
  123. q1,qDOL
  124. q5,POCET
  125. ,q9DOP1
  126. q1DOP2
  127.  0 POR
  128. kCOUNT
  129. oZAKAZNIK
  130. oW_CIS_DOKLW_DAT_VYSTW_DAT_ZAH
  131. W_DAT_UKONW_CIS_DIAGW_DIAGNOZAW_DRUH_DNPW_CIS_LEK
  132. W_LEKAR
  133. ,W_KA_DNY
  134. CW_PR_DNY
  135. nW_DENNI_VZW_PLACENO
  136. W_HOD_ODP
  137. W_ZP_VZ
  138. OMW_R_ZMENA
  139. W_AUTOR
  140. MW_AKTUAL
  141.  W_DAT_AKT
  142. W_TEXT_VZ
  143. NAPLN
  144. , ;K_DENNI_VZK_ZP_VZ
  145. alZMENA
  146. aktP_ZOB
  147. _vzPOMOC
  148. RAVA2
  149. niRAD
  150. AC_MES
  151. fBARVAS
  152. na,BARVAR
  153. BARVAZ
  154. tioBARVAU
  155. BARVAN
  156. BARVAH
  157. ';BARVAD
  158. oc=M6_PRNES
  159.  BARVA
  160. &BARVA1
  161. i bBARVA2
  162. d=0PORADI
  163.   &KONEC
  164.  cisI
  165.         R
  166. loupecZ
  167. lniku
  168. c=0     T
  169.   && pocQ
  170. zaznamu
  171. ********ZMENY
  172. ****z
  173. &barva1
  174. kladn
  175. daje nemoci (O
  176. &barva2
  177. slo neschopenky
  178. slo dokladu
  179. Datum vystaven
  180. Druh nemoci
  181. slo diagn
  182. Diagn
  183. slo l
  184. 1. den odpracov
  185. no hodin
  186. Rozh. obdob
  187. Kalend
  188. Pracovn
  189. Aktual.
  190. WTEXT
  191. *PRIOR
  192. 99999999
  193. 99.99
  194. Kvart
  195.  vzniku PN 
  196. Kvart
  197. l vzniku PN               
  198. c vzniku PN                 
  199. it pravd
  200. podobn
  201.  denn
  202.  VZ   
  203.  vypo
  204.  denn
  205.  VZ     
  206. ve stanoven
  207.  denn
  208.                                 
  209. 9999.99
  210. Datum neexistuje v kalend
  211. i, zkontrolujte kalend
  212. W_CIS_NES
  213. W_CIS_DOKLW_DAT_VYSTW_DAT_ZAH
  214. W_DAT_UKONW_DRUH_DNPW_CIS_DIAGW_DIAGNOZAW_CIS_LEK
  215. W_LEKAR
  216. UHW_HOD_ODP
  217. VYPOC_PRUMK_DENNI_VZK_ZP_VZ
  218. .fW_R_ZMENA
  219. W_PLACENO
  220. W_DENNI_VZW_ZP_VZ
  221. VZW_TEXT_VZ
  222. PRIOR
  223. W_KA_DNY
  224. W_PR_DNY
  225.  M6_KAL
  226. DATUM
  227. PERIODA
  228. ONHLASKA
  229. LM6_PRNES
  230. TW_DAT_AKT
  231. &barvau
  232. w_cis_nes
  233. @ 10,20 &vloz w_cis_nes pict '99999999'
  234. slo neschopenky je povinn
  235. @  12,18 &vloz w_dat_vyst pict '@E'
  236. @  12,40 &vloz w_dat_zah pict '@E'
  237. @  12,68 &vloz w_dat_ukon pict '@E'
  238. w_druh_dnp
  239. @  13,18 &vloz w_druh_dnp pict '99'
  240. @  14,18 &vloz w_cis_diag pict '####'
  241. @  14,40 &vloz w_diagnoza
  242. @  15,18 &vloz w_cis_lek pict '##'
  243. @  15,40 &vloz w_lekar
  244. @  16,40 &vloz w_hod_odp pict '99.99'
  245. w_denni_vz
  246. @  17,18 &vloz w_denni_vz pict '9999.99'
  247. P_ZOB
  248. DOKLNASTAV_Q
  249. DAT_ZAH
  250. AT_UKONRADA_NES
  251. PEXISTUJE
  252. GCIS_RADY
  253. AW_CIS_NES
  254. HLASKA
  255. HOD_ODP
  256. M6_PRNES
  257. ZW_OSC
  258. .fW_DRUH_POMNAPLN
  259. NOVY_Z
  260. _VZPROC1
  261. EXT_VZ
  262. W_DAT_ZAH
  263. W_DAT_VYSTQ3
  264. R_DNY
  265. PRNES
  266. AT_AKT
  267. T_UKONQ11
  268. S_DIAGW_R_ZMENA
  269. W_ZP_VZ
  270. NPW_DAT_AKT
  271. W_AKTUAL
  272. ,MM_AUTOR
  273. CZMENA
  274. do proc&y
  275. do zmen&y with 'get'
  276. do zmen&y with 'say'
  277.  Neschopenky 
  278.  Konec 
  279. mod6_lib
  280. mod6_lib
  281. &barvau
  282. mod614a
  283. Opravdu zru
  284. it tento z
  285. znam? (a/N)
  286. it pr
  287. ci beze zm
  288. n? (a/N)
  289. &barvau
  290. do proc&y
  291. do proc&y
  292. KONEC
  293. DOKLA
  294. STAV_Q
  295. DAT_ZAH
  296. T_UKONT
  297. CIS_NES
  298. HOD_ODP
  299. ZNAP_HOD
  300. .fP_ZOB
  301. _POMOBR
  302. VOLBA
  303. _VZW_CISLO
  304. ZW_CIS_NES
  305. ZOBR_NESCHW_OSC
  306. VYSTMOD6_LIB
  307.  ZMENA
  308. PRIOR
  309. ZOBR_PRUM
  310. W_DRUH_POMBARVA
  311. TBARVAU
  312. T_UKONPOCET
  313. DIAGPROCX
  314. NPKONTROLA
  315. ZAPIS
  316. W_ZAPIS
  317. ZAPIS
  318. KLMOD_SYS
  319. TM6_PRNES
  320. W_OSC
  321. NW_DRUH_POMW_CIS_NES
  322. ADRUH_POMERCIS_NESCH
  323. AUTOR
  324. MM_AUTOR
  325. MAKTUAL
  326. ZDAT_AKT
  327. fDAT_VYST
  328. W_DAT_VYSTDAT_ZAH
  329. VZW_DAT_ZAH
  330. DAT_UKON
  331. W_DAT_UKONCIS_DIAG
  332. TW_CIS_DIAGDIAGNOZA
  333. W_DIAGNOZADRUH_DNP
  334. W_DRUH_DNPCIS_LEKAR
  335. W_CIS_LEK
  336. LEKAR
  337. UKONW_LEKAR
  338. AGKALEN_DNY
  339. W_KA_DNY
  340. PPRAC_DNY
  341. W_PR_DNY
  342. ,DENNI_VZ
  343. CW_DENNI_VZPLACENO
  344. VZW_PLACENO
  345. HOD_ODP
  346. W_HOD_ODP
  347. ZP_VZ
  348. W_ZP_VZ
  349. MR_ZMENA
  350.  W_R_ZMENA
  351. M6_PRUM
  352. W_MM_N
  353. POMW_Q
  354. NNI_VZROK
  355. UH_POMW_RR_N
  356. aktKVARTAL
  357. vzPRUM_DEN
  358. DATUM_D
  359. VZAUTOR_D
  360. _R_ZMENA_D
  361. colora
  362. set color to &color
  363. COLOR
  364. KLOBR
  365.  vypln
  366. no datum vystaven
  367.  vypln
  368. no datum zah
  369. DRUH_DNP  
  370. w_druh_dnp
  371. KONTROLA
  372. W_DAT_VYSTHLASKA
  373. NW_DAT_ZAH
  374. JMENO_C
  375. WJMENO_C
  376. AMOD_C2
  377. MEROK_C
  378. MOD_C3
  379. ZMENA
  380. M6_PRNES
  381. TW_OSC
  382. TW_DRUH_POMW_CIS_NES
  383. W_CIS_DOKLCIS_DOKL
  384. W_DAT_VYSTDAT_VYST
  385. RW_DAT_ZAH
  386. DAT_ZAH
  387. W_DAT_UKONDAT_UKON
  388. ZW_CIS_DIAGCIS_DIAG
  389. W_DIAGNOZADIAGNOZA
  390. ZW_DRUH_DNPDRUH_DNP
  391. W_CIS_LEK
  392. CIS_LEKAR
  393. W_LEKAR
  394. AGLEKAR
  395. W_KA_DNY
  396. AKALEN_DNY
  397. W_PR_DNY
  398. PPRAC_DNY
  399. W_DENNI_VZDENNI_VZ
  400. NW_PLACENO
  401. PLACENO
  402. W_HOD_ODP
  403. HOD_ODP
  404. W_ZP_VZ
  405. ,ZP_VZ
  406. CW_R_ZMENA
  407. R_ZMENA
  408. VZW_AUTOR
  409. AUTOR
  410. W_AKTUAL
  411. AKTUAL
  412. W_DAT_AKT
  413. DAT_AKT
  414.       - 
  415. mod614a
  416.        - ^Home
  417.        - F10
  418.       - ^End,Esc
  419. Pohyb
  420. mod614a
  421. Funkce
  422. Konec
  423. PROCX
  424. K_DENNI_VZK_ZP_VZ
  425. TW_DAT_ZAH
  426. M6_ZAM
  427. POMDAT_NAST
  428. M6_PRUM
  429. VZW_OSC
  430. W_DRUH_POMM6_MZD
  431. RQ_NEM
  432. _POMR_NEM
  433. Q_NAST
  434. R_NAST
  435. KVARTAL
  436. ZAPRUM_DEN
  437. ZM6_PRNES
  438. w_druh_dnp
  439. DRUH_DNP
  440. w_druh_dnp
  441. w_cis_nes
  442. mod6_lib
  443. w_denni_vz
  444. mod6_lib
  445. Pro toto pole neexistuje pomocn
  446. ehled hodnot
  447. P_ZOB
  448. I_VZMOD_C3
  449. TZMENA
  450. W_CISLO
  451. OMW_CIS_NES
  452. ZOBR_NESCHW_OSC
  453. MOD6_LIB
  454. MPRIOR
  455. ZOBR_PRUM
  456. W_DRUH_POMHLASKA
  457. I_VZQ2
  458. IS_NES
  459. R_NESCHQ7
  460. 6_LIB
  461. _PRUM
  462. PRIOR
  463. _POMPOCET
  464. FFFZ^D
  465. ordera
  466. cis_nes<
  467. Zadejte 
  468. ady doklad
  469. ada doklad
  470.  neexistuje, nave
  471. te cel
  472. set order to &st_order    
  473. select &st_sel
  474. W_CIS_NES
  475. W_RADEK
  476. TW_SLOUPEC
  477. ST_SEL
  478. OMST_ORD
  479. ST_ZAZ
  480. SCHM6_PRNES
  481. ST_ORDER
  482. MW_DELKA
  483. CELY_DOKL
  484. CIS_NES
  485. MHLASKA
  486. DEL_DOKL
  487. CIS_NESCH
  488. POM_DOKL
  489. OPRAVA1
  490. OPRAVA2
  491. PORADI
  492. PROC1
  493. ZMEN1
  494. od_c2I
  495. ZMENY
  496.  if o
  497. ZAPIS
  498.     d-
  499. HLASKA
  500. mod_.2
  501. KONTROLA
  502. NAPLN
  503. , 1, B5
  504. VYPOC_PRUM
  505. NAP_HOD
  506. NASTAV_Q
  507. CIS_RADY
  508. W:\06\
  509. MOD616A.FXP
  510. W:\06\MOD616A.PRG
  511.