home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 06 / 06217.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-04-06  |  17KB  |  462 lines
  1. 0621x
  2. Zadejte den :
  3. Odveden
  4.  operace postup
  5. , den FF
  6. Odveden
  7.  operace postup
  8. RIIS 4.2
  9. 06217
  10. Zadejte 
  11. slo postupu :
  12. fun_det
  13. Detail
  14. v1_str
  15. x1_str
  16. m6_dm
  17. m6_sazby
  18. m6_zam
  19. zakladni\m1_hlava
  20. postup
  21. zakladni\m1_normy
  22. operace
  23. m6_odmj
  24.  Prob
  25. r a kumulace dat ... 
  26. m6_odmj
  27. c6_kump
  28. m6_odmj
  29. c6_kum
  30. m6_odmj
  31. c6_kump
  32. m6_odmj
  33. c6_kum
  34. Postup
  35. postup
  36. postup
  37. zev post.
  38. m1_hlava.nazev
  39. m1_hlava.nazev
  40. operace
  41. operace
  42. zev op.
  43. m1_normy.nazev_op
  44. m1_normy.nazev_op
  45.     Kusy
  46. str(kusy,8)
  47.    Nhod
  48. str(nhod,7,2)
  49.  Hodiny
  50. str(hodiny,7,2)
  51. hodiny
  52.   %PVN
  53. iif(c6_kump.h_pev#0,str(100*c6_kump.nh_pev/c6_kump.h_pev,6,2),'      ')
  54. c6_kump.nh_pev/c6_kump.h_pev
  55. str(castka,9,2)
  56. castka
  57. W_DEN
  58. i=POLEX
  59. hl(iFREEZE
  60. jmLEVA
  61. ="' 'PRAVA
  62. hodnHOR
  63. zRAMECEK
  64. zNAZEVT
  65. jmeRIIS
  66. 6_dNADPIS
  67. hPROCX
  68. 'm6_F1
  69. azev'
  70. i)='T
  71. meno(i)F6
  72. ida+'  F7
  73. hodn(i)F9KEY
  74. zaENTER
  75. St.'DETAIL
  76. i)=DET_JM
  77. '  V1_STR
  78. (i)X1_STR
  79. M6_DM
  80. i)='   M6_SAZBY
  81. M6_ZAM
  82. ="sOSC
  83. ,11,4)ZAKLADNI
  84. =POSTUP
  85. i=OPERACE
  86. iM6_ODMJ
  87. (i)="pMOD_SYS
  88. odMESS
  89. pracoNHOD
  90. i+NH_PEV
  91. i)=HODINY
  92. jmeH_PEV
  93. str_W_DM_PEV
  94. (W_DM_PRE
  95. i=i+1W_ALG_PEV
  96. enoC6_KUMP
  97. opCASTKA
  98. )=KUSY
  99. *C6_KUM
  100. zaM1_HLAVA
  101. M1_NORMY
  102. )ZAHL
  103. "JMENO
  104. i)='HODN
  105. zMOD_PSV
  106. atOBSAH
  107.  Detail dle dn
  108.  Detail dle zam
  109. stnanc
  110.  Detail dle druh
  111.  mezd 
  112.  Konec 
  113. i=VOL
  114. hl(iZOBR_DNY
  115. mZOBR_ZAM
  116. 'ZOBR_DM
  117.  Prob
  118. r a kumulace dat ... 
  119. m6_odmj
  120. c6_odm_p
  121. m6_odmj
  122. c6_odm_p
  123. Zadejte den :
  124. 06217
  125. Odveden
  126.  mzdy
  127. Detail odveden
  128.  operace postupu dle dn
  129. ' '+str(den,2)
  130. m6_zam.prijmeni
  131. m6_zam.prijmeni
  132. m6_zam.jmeno
  133. m6_zam.jmeno
  134.     Kusy
  135. str(kusy,8)
  136.    Nhod
  137. str(nhod,7,2)
  138.  Hodiny
  139. str(hodiny,7,2)
  140. hodiny
  141. str(castka,9,2)
  142. castka
  143.   Sazba
  144. str(sazba,7,2)
  145. sazba
  146.   %PVN
  147. iif(inlist(dm,w_dm_pev,w_dm_pre),str(100*nhod/hodiny,6,2),'      ')
  148. nhod/hodiny
  149. druh_pomer
  150. druh_pomer
  151. ' '+alg
  152. zev DM
  153. m6_dm.nazev
  154. m6_dm.nazev
  155. trida+'  '
  156. trida
  157. stupen+'  '
  158. stupen
  159.         Tac
  160. str(ta,11,4)
  161. Prac.
  162. pracov
  163. pracov
  164. str_zam
  165. str_zam
  166. str_op
  167. str_op
  168. str_prev
  169. str_prev
  170. Datum
  171. tran(dat_akt,'@E')
  172. dat_akt
  173. Autor
  174. autor
  175. autor
  176. i=PS_LINE
  177. (iW_POST
  178. mC6_KUM
  179. 'POSTUP
  180. dnW_OPER
  181. OPERACE
  182. zMOD_SYS
  183. meMESS
  184. 6_dW_DEN
  185. hM6_ODMJ
  186. 6_DEN
  187. C6_ODM_P
  188. meno(i)DRUH_POMERM6_ZAM
  189. (i)M6_DM
  190. OMERPOLEX
  191. zaPROCX
  192. St.'RTOP
  193. i)=RBOT
  194. '  CLEFT
  195. (i)CRIGHT
  196. FREEZE
  197. zORDER
  198. '   ZAHL
  199. JMENO
  200. ="sHODN
  201. 11,4)SOUC
  202. =TITLE
  203. i=TITLECOLORNAZEVT
  204. (i)="pF2
  205. pracoF4
  206. i)=F7
  207. jmeF9
  208. str_F10
  209. (DETAIL
  210. mF1PRG
  211. =i+1F4_JM
  212. F4PRG
  213. enoF7_JM
  214. opF7PRG
  215. )=F9KEY
  216. *F10_JM
  217. zaF10PRG
  218. DET_JM
  219. )DETPRG
  220. "RAMECEK
  221. ='RIIS
  222. KLICO
  223. zPS_ZAZN
  224. atPS_RETURN
  225. (daMOD_PSV
  226.  Prob
  227. r a kumulace dat ... 
  228. m6_odmj
  229. c6_odm_p
  230. m6_odmj
  231. c6_odm_p
  232. Zadejte osobn
  233. slo :
  234. 06217
  235. Odveden
  236.  mzdy
  237. Detail odveden
  238.  operace postupu dle zam
  239. stnanc
  240. m6_zam.prijmeni
  241. m6_zam.prijmeni
  242. m6_zam.jmeno
  243. m6_zam.jmeno
  244.         Kusy
  245. str(kusy,12,3)
  246. ' '+str(den,2)
  247. str(castka,9,2)
  248. castka
  249.    Nhod
  250. str(nhod,7,2)
  251.  Hodiny
  252. str(hodiny,7,2)
  253. hodiny
  254.   Sazba
  255. str(sazba,7,2)
  256. sazba
  257.   %PVN
  258. iif(inlist(dm,w_dm_pev,w_dm_pre),str(100*nhod/hodiny,6,2),'      ')
  259. nhod/hodiny
  260. druh_pomer
  261. druh_pomer
  262. ' '+alg
  263. zev DM
  264. m6_dm.nazev
  265. m6_dm.nazev
  266. trida+'  '
  267. trida
  268. stupen+'  '
  269. stupen
  270.         Tac
  271. str(ta,11,4)
  272. Prac.
  273. pracov
  274. pracov
  275. str_zam
  276. str_zam
  277. str_op
  278. str_op
  279. str_prev
  280. str_prev
  281. Datum
  282. tran(dat_akt,'@E')
  283. dat_akt
  284. Autor
  285. autor
  286. autor
  287. i=PS_LINE
  288. (iW_POST
  289. mC6_KUM
  290. 'POSTUP
  291. dnW_OPER
  292. OPERACE
  293. zMOD_SYS
  294. meMESS
  295. 6_dW_DEN
  296. hM6_ODMJ
  297. 6_DEN
  298. C6_ODM_P
  299. eno(i)M6_ZAM
  300. MERDRUH_POMERM6_DM
  301. OMERPOLEX
  302. zaPROCX
  303. St.'RTOP
  304. i)=RBOT
  305. '  CLEFT
  306. (i)CRIGHT
  307. FREEZE
  308. zORDER
  309. '   ZAHL
  310. JMENO
  311. ="sHODN
  312. 11,4)SOUC
  313. =TITLE
  314. i=TITLECOLORNAZEVT
  315. (i)="pF2
  316. pracoF4
  317. i)=F7
  318. jmeF9
  319. str_F10
  320. (DETAIL
  321. mF1PRG
  322. =i+1F4_JM
  323. F4PRG
  324. enoF7_JM
  325. opF7PRG
  326. )=F9KEY
  327. *F10_JM
  328. zaF10PRG
  329. DET_JM
  330. )DETPRG
  331. "RAMECEK
  332. ='RIIS
  333. KLICO
  334. zPS_ZAZN
  335. atPS_RETURN
  336. (daMOD_PSV
  337.  Prob
  338. r a kumulace dat ... 
  339. m6_odmj
  340. c6_odm_p
  341. m6_odmj
  342. c6_odm_p
  343. Zadejte druh mzdy :
  344. 06217
  345. Odveden
  346.  mzdy
  347. Detail odveden
  348.  operace postupu dle druh
  349.  mezd
  350. druh_pomer
  351. druh_pomer
  352. zev DM
  353. m6_dm.nazev
  354. m6_dm.nazev
  355. ' '+alg
  356.         Kusy
  357. str(kusy,12,3)
  358. ' '+str(den,2)
  359. str(castka,9,2)
  360. castka
  361.    Nhod
  362. str(nhod,7,2)
  363.  Hodiny
  364. str(hodiny,7,2)
  365. hodiny
  366.   Sazba
  367. str(sazba,7,2)
  368. sazba
  369.   %PVN
  370. iif(inlist(dm,w_dm_pev,w_dm_pre),str(100*nhod/hodiny,6,2),'      ')
  371. nhod/hodiny
  372. m6_zam.prijmeni
  373. m6_zam.prijmeni
  374. m6_zam.jmeno
  375. m6_zam.jmeno
  376. trida+'  '
  377. trida
  378. stupen+'  '
  379. stupen
  380.         Tac
  381. str(ta,11,4)
  382. Prac.
  383. pracov
  384. pracov
  385. str_zam
  386. str_zam
  387. str_op
  388. str_op
  389. str_prev
  390. str_prev
  391. Datum
  392. tran(dat_akt,'@E')
  393. dat_akt
  394. Autor
  395. autor
  396. autor
  397. i=PS_LINE
  398. (iW_POST
  399. mC6_KUM
  400. 'POSTUP
  401. dnW_OPER
  402. OPERACE
  403. zMOD_SYS
  404. meMESS
  405. 6_dW_DEN
  406. hM6_ODMJ
  407. 6_DEN
  408. C6_ODM_P
  409. ODM_P
  410. eno(i)M6_ZAM
  411. MERDRUH_POMERM6_DM
  412. OMERPOLEX
  413. zaPROCX
  414. St.'RTOP
  415. i)=RBOT
  416. '  CLEFT
  417. (i)CRIGHT
  418. FREEZE
  419. zORDER
  420. '   ZAHL
  421. JMENO
  422. ="sHODN
  423. 11,4)SOUC
  424. =TITLE
  425. i=TITLECOLORNAZEVT
  426. (i)="pF2
  427. pracoF4
  428. i)=F7
  429. jmeF9
  430. str_F10
  431. (DETAIL
  432. mF1PRG
  433. =i+1F4_JM
  434. F4PRG
  435. enoF7_JM
  436. opF7PRG
  437. )=F9KEY
  438. *F10_JM
  439. zaF10PRG
  440. DET_JM
  441. )DETPRG
  442. "RAMECEK
  443. ='RIIS
  444. KLICO
  445. zPS_ZAZN
  446. atPS_RETURN
  447. (daMOD_PSV
  448. colora
  449. set color to &color
  450. i=COLOR
  451. (i0621x
  452. _pome?
  453. FUN_DET
  454. ZOBR_DNY
  455. ZOBR_ZAM
  456. ZOBR_DM
  457. vat?,
  458. procx,
  459. W:\06\
  460. 06217.FXP
  461. W:\06\06217.PRG
  462.