home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 06 / MOD67C3.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-11-16  |  21KB  |  419 lines
  1. 5, fiMOD67CX
  2. RIIS 6.7
  3. Zadejte d
  4. lnu :
  5. Zadejte kategorii :
  6. Rok : 
  7. @!XXXX
  8. Chybn
  9.  roku
  10. a6_mzdy
  11. a6_mzd
  12. m6_zam
  13. a6_zam
  14. m6_dm
  15. c6_pom
  16. DRUH_POMER
  17. SKUP_PRAC
  18. STR_ZAM
  19. STR_PREV
  20. HODINY1
  21. HODINY2
  22. HODINY3
  23. HODINY4
  24. HODINY5
  25. HODINY6
  26. HODINY7
  27. HODINY8
  28. HODINY9
  29. HODINY10
  30. HODINY11
  31. HODINY12
  32. PR_DNY1
  33. PR_DNY2
  34. PR_DNY3
  35. PR_DNY4
  36. PR_DNY5
  37. PR_DNY6
  38. PR_DNY7
  39. PR_DNY8
  40. PR_DNY9
  41. PR_DNY10
  42. PR_DNY11
  43. PR_DNY12
  44. KA_DNY1
  45. KA_DNY2
  46. KA_DNY3
  47. KA_DNY4
  48. KA_DNY5
  49. KA_DNY6
  50. KA_DNY7
  51. KA_DNY8
  52. KA_DNY9
  53. KA_DNY10
  54. KA_DNY11
  55. KA_DNY12
  56. c6_mzdy
  57. c6_pom
  58.  Prob
  59. r dat ...           
  60. insert into c6_mzdy (dm, druh_pomer, skup_prac,  str_zam, str_prev, kc&wm, hodiny&wm, pr_dny&wm, ka_dny&wm, tup)  values  (a6_mzdy.dm, left(a6_mzdy.druh_pomer,1), w_skup,  a6_mzdy.str_zam, w_strn, a6_mzdy.castka, a6_mzdy.hodiny,  a6_mzdy.pr_dny, a6_mzdy.ka_dny, m6_dm.tup)
  61. w_kc = kc&wm
  62. w_hodiny = hodiny&wm
  63. w_ka_dny = ka_dny&wm
  64. w_pr_dny = pr_dny&wm
  65. replace kc&wm with w_kc+a6_mzdy.castka,  hodiny&wm with w_hodiny+a6_mzdy.hodiny,  pr_dny&wm with w_pr_dny+a6_mzdy.pr_dny,  ka_dny&wm with w_ka_dny+a6_mzdy.ka_dny
  66. Statistika mezd, rok F
  67. Statistika mezd - st
  68. , rok 
  69. Stat. mezd - kat. 
  70. , rok 
  71.  Stat. mezd - st
  72. , kat. 
  73. , rok 
  74. RIIS 6.2
  75. Detail
  76. mod67cd
  77. mod67c3
  78. Zadejte druh mzdy
  79. dm+' '
  80. druh_pomer
  81. druh_pomer
  82. skup_prac
  83. skup_prac
  84. zev druhu mzdy
  85. m6_dm.nazev
  86. m6_dm.nazev
  87.         K
  88. righ(tran(kc1,'@Z'),11)
  89.   Hod.1
  90. righ(tran(hodiny1,'@Z'),8)
  91. hodiny1
  92.    PD1
  93. righ(tran(pr_dny1,'@Z'),6)
  94. pr_dny1
  95.    KD1
  96. righ(tran(ka_dny1,'@Z'),6)
  97. ka_dny1
  98.         K
  99. righ(tran(kc2,'@Z'),11)
  100.   Hod.2
  101. righ(tran(hodiny2,'@Z'),8)
  102. hodiny2
  103.    PD2
  104. righ(tran(pr_dny2,'@Z'),6)
  105. pr_dny2
  106.    KD2
  107. righ(tran(ka_dny2,'@Z'),6)
  108. ka_dny2
  109.         K
  110. righ(tran(kc3,'@Z'),11)
  111.   Hod.3
  112. righ(tran(hodiny3,'@Z'),8)
  113. hodiny3
  114.    PD3
  115. righ(tran(pr_dny3,'@Z'),6)
  116. pr_dny3
  117.    KD3
  118. righ(tran(ka_dny3,'@Z'),6)
  119. ka_dny3
  120.         K
  121. righ(tran(kc4,'@Z'),11)
  122.   Hod.4
  123. righ(tran(hodiny4,'@Z'),8)
  124. hodiny4
  125.    PD4
  126. righ(tran(pr_dny4,'@Z'),6)
  127. pr_dny4
  128.    KD4
  129. righ(tran(ka_dny4,'@Z'),6)
  130. ka_dny4
  131.         K
  132. righ(tran(kc5,'@Z'),11)
  133.   Hod.5
  134. righ(tran(hodiny5,'@Z'),8)
  135. hodiny5
  136.    PD5
  137. righ(tran(pr_dny5,'@Z'),6)
  138. pr_dny5
  139.    KD5
  140. righ(tran(ka_dny5,'@Z'),6)
  141. ka_dny5
  142.         K
  143. righ(tran(kc6,'@Z'),11)
  144.   Hod.6
  145. righ(tran(hodiny6,'@Z'),8)
  146. hodiny6
  147.    PD6
  148. righ(tran(pr_dny6,'@Z'),6)
  149. pr_dny6
  150.    KD6
  151. righ(tran(ka_dny6,'@Z'),6)
  152. ka_dny6
  153.         K
  154. righ(tran(kc7,'@Z'),11)
  155.   Hod.7
  156. righ(tran(hodiny7,'@Z'),8)
  157. hodiny7
  158.    PD7
  159. righ(tran(pr_dny7,'@Z'),6)
  160. pr_dny7
  161.    KD7
  162. righ(tran(ka_dny7,'@Z'),6)
  163. ka_dny7
  164.         K
  165. righ(tran(kc8,'@Z'),11)
  166.   Hod.8
  167. righ(tran(hodiny8,'@Z'),8)
  168. hodiny8
  169.    PD8
  170. righ(tran(pr_dny8,'@Z'),6)
  171. pr_dny8
  172.    KD8
  173. righ(tran(ka_dny8,'@Z'),6)
  174. ka_dny8
  175.         K
  176. righ(tran(kc9,'@Z'),11)
  177.   Hod.9
  178. righ(tran(hodiny9,'@Z'),8)
  179. hodiny9
  180.    PD9
  181. righ(tran(pr_dny9,'@Z'),6)
  182. pr_dny9
  183.    KD9
  184. righ(tran(ka_dny9,'@Z'),6)
  185. ka_dny9
  186.        K
  187. righ(tran(kc10,'@Z'),11)
  188.   Hod.10
  189. righ(tran(hodiny10,'@Z'),8)
  190. hodiny10
  191.   PD10
  192. righ(tran(pr_dny10,'@Z'),6)
  193. pr_dny10
  194.   KD10
  195. righ(tran(ka_dny10,'@Z'),6)
  196. ka_dny10
  197.        K
  198. righ(tran(kc11,'@Z'),11)
  199.   Hod.11
  200. righ(tran(hodiny11,'@Z'),8)
  201. hodiny11
  202.   PD11
  203. righ(tran(pr_dny11,'@Z'),6)
  204. pr_dny11
  205.   KD11
  206. righ(tran(ka_dny11,'@Z'),6)
  207. ka_dny11
  208.        K
  209. righ(tran(kc12,'@Z'),11)
  210.   Hod.12
  211. righ(tran(hodiny12,'@Z'),8)
  212. hodiny12
  213.   PD12
  214. righ(tran(pr_dny12,'@Z'),6)
  215. pr_dny12
  216.   KD12
  217. righ(tran(ka_dny12,'@Z'),6)
  218. ka_dny12
  219. ID_ORG
  220.  fiP_SKUP
  221. itANSI
  222. endSTRED
  223. repW_KAT1
  224. ld_W_KAT2
  225. h 'W_KAT3
  226. , fW_KAT4
  227. e wW_KAT5
  228.  fiW_KAT6
  229. witW_KAT7
  230. ld_W_ROK
  231. W_RR_N
  232. blaHLASKA
  233. aceW_KATS
  234. amePODM_KAT
  235. DMOD_SYS
  236. dA6_MZDY
  237. h ROK
  238. field_A6_MZD
  239.  5,OSC
  240. d_dec M6_ZAM
  241. appA6_ZAM
  242. M6_DM
  243.  fieDM
  244. ame witC6_POM
  245. Y6'FIELD_NAMEFIELD_TYPEFIELD_LEN
  246. FIELD_DEC
  247. C6_MZDY
  248. d SKUP_PRAC
  249. DRUH_POMERM
  250. _MZDY
  251. POCET
  252. , fiPOCETC
  253.  wiSTR_PREV
  254. eW_STRN
  255. ithSTR_ZAM
  256. _dPROCENTA
  257. CASTKA
  258. nHODINY
  259. ce PR_DNY
  260. me KA_DNY
  261. _DNMESIC
  262. ERKATEGORIE
  263. W_SKUP
  264. POLEX
  265. MERFREEZE
  266. ppeRAMECEK
  267. rNAZEVT
  268. ielRIIS
  269. ithRTOP
  270. NY9',RBOT
  271. _typeCLEFT
  272. N', CRIGHT
  273. n wF1
  274. 5, fielF2
  275. c with F3
  276. ppend bF4
  277. replaF6
  278. ield_naF7
  279. ith 'PRF9
  280. 10', fiDETAIL
  281.  wiDET_JM
  282. fieENTER
  283. withPROCX
  284. ld_dF9KEY
  285.  blanJMENO
  286. ace HODN
  287. ame I
  288. R_DNMOD_PSV
  289. c6_mzdd
  290. c6_mzdd
  291. RIIS 6.2
  292. Statistika mezd, rok F
  293. Statistika mezd - st
  294. , rok 
  295. Stat. mezd - kat. 
  296. , rok 
  297.  Stat. mezd - st
  298. , kat. 
  299. , rok 
  300. RIIS 6.2
  301. mod67c3
  302. Zadejte osobn
  303. iif(eof('m6_zam'),a6_zam.prijmeni,m6_zam.prijmeni)
  304. iif(eof('m6_zam'),a6_zam.prijmeni,m6_zam.prijmeni)
  305. iif(eof('m6_zam'),a6_zam.jmeno,m6_zam.jmeno)
  306. iif(eof('m6_zam'),a6_zam.jmeno,m6_zam.jmeno)
  307. str_zam
  308. str_zam
  309. str_prev
  310. str_prev
  311. kategorie+'   '
  312. kategorie
  313. tran(rok,'9999')
  314. ' '+tran(mesic,'99')
  315. mesic
  316. righ(tran(castka,'@Z'),9)
  317. castka
  318. Hodiny
  319. righ(tran(hodiny,'@Z'),6)
  320. hodiny
  321.         Kusy
  322. righ(tran(kusy,'@Z'),12)
  323. Pr.dny
  324. righ(tran(pr_dny,'@Z'),6)
  325. pr_dny
  326. Kal.dny
  327. righ(tran(ka_dny,'@Z'),7)
  328. ka_dny
  329. MOD_SYS
  330. fiC6_MZDD
  331. itOSC
  332. endSKUP_PRAC
  333. KATEGORIE
  334. h 'MESIC
  335. , fSTR_ZAM
  336.  wSTR_PREV
  337. iKUSY
  338. witHODINY
  339. ld_CASTKA
  340. PR_DNY
  341. blaKA_DNY
  342. aceNHOD
  343. ameA6_MZDY
  344. dC6_MZDY
  345. h DRUH_POMERW_STRN
  346. RSTRED
  347.  W_ROK
  348. appP_SKUP
  349. M6_ZAM
  350. fieA6_ZAM
  351. itW_SKUP_PRAA6_MZD
  352. W_KAT1
  353. ERW_KAT2
  354. W_KAT3
  355. W_KAT4
  356. W_KAT5
  357. d W_KAT6
  358. W_KAT7
  359. MERPS_LINE
  360. RAPOLEX
  361. , fiPROCX
  362.  wiRTOP
  363. eRBOT
  364. ithCLEFT
  365. _dCRIGHT
  366. FREEZE
  367. nORDER
  368. ce ZAHL
  369. me JMENO
  370. _DNHODN
  371. ERTITLE
  372. TITLECOLORF1
  373. MERF3
  374. ppeF4
  375. ielF7
  376. ithF9
  377. NY9',F10
  378. _typeDETAIL
  379. ', F1PRG
  380. n wF4_JM
  381. fielF4PRG
  382. ith F7_JM
  383. nd bF7PRG
  384. eplaF9KEY
  385. d_naF10_JM
  386. 'PRF10PRG
  387.  fiDET_JM
  388.  wiDETPRG
  389. fieRAMECEK
  390. thNAZEVT
  391. d_dRIIS
  392. TRAD1
  393. blanTRAD2
  394. ace W_KATS
  395. e TR_HL1
  396. _DNM6_DM
  397. ldNAZEV
  398. ith TR_HL2
  399.  5,MOD_PSV
  400. c PS_RETURN
  401. colora
  402. set color to &color
  403. fiCOLOR
  404. itOBR
  405. POCET
  406. fiPOCETC
  407. itPOC
  408. colora
  409. set color to &color
  410. fiCOLOR
  411. itMOD67CX
  412. MOD67CD
  413. HLASKA
  414. PROCENTA
  415. e with
  416. X:\OBEC\06\
  417. MOD67C3.FXP
  418. X:\OBEC\06\MOD67C3.PRG
  419.