home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 06 / MOD67C2.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-11-16  |  14KB  |  273 lines
  1. ad1, MOD67CX
  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_mzdy
  16.  Prob
  17. r dat ...           
  18. insert into c6_mzdy (dm, druh_pomer, skup_prac,  str_zam, str_prev, kc&wm, tup)  values  (a6_mzdy.dm, left(a6_mzdy.druh_pomer,1), w_skup,  a6_mzdy.str_zam, w_strn, a6_mzdy.castka, m6_dm.tup)
  19. w_kc = kc&wm
  20. replace kc&wm with w_kc+a6_mzdy.castka
  21. Statistika mezd, rok F
  22. Statistika mezd - st
  23. , rok 
  24. Stat. mezd - kat. 
  25. , rok 
  26.  Stat. mezd - st
  27. , kat. 
  28. , rok 
  29. RIIS 6.2
  30. Detail
  31. mod67cd
  32. mod67c2
  33. Zadejte druh mzdy
  34. dm+' '
  35. druh_pomer
  36. druh_pomer
  37. skup_prac
  38. skup_prac
  39. zev druhu mzdy
  40. m6_dm.nazev
  41. m6_dm.nazev
  42.      Sou
  43. righ(tran(kc1+kc2+kc3+kc4+kc5+kc6+kc7+kc8+kc9+kc10+kc11+kc12,'@Z'),11)
  44. kc1+kc2+kc3+kc4+kc5+kc6+kc7+kc8+kc9+kc10+kc11+kc12
  45.       Leden
  46. righ(tran(kc1,'@Z'),11)
  47.        
  48. righ(tran(kc2,'@Z'),11)
  49.      B
  50. righ(tran(kc3,'@Z'),11)
  51.       Duben
  52. righ(tran(kc4,'@Z'),11)
  53.      Kv
  54. righ(tran(kc5,'@Z'),11)
  55.      
  56. erven
  57. righ(tran(kc6,'@Z'),11)
  58. ervenec
  59. righ(tran(kc7,'@Z'),11)
  60.       Srpen
  61. righ(tran(kc8,'@Z'),11)
  62.        Z
  63. righ(tran(kc9,'@Z'),11)
  64.       
  65. righ(tran(kc10,'@Z'),11)
  66.    Listopad
  67. righ(tran(kc11,'@Z'),11)
  68.    Prosinec
  69. righ(tran(kc12,'@Z'),11)
  70. ID_ORG
  71. 1, P_SKUP
  72. --ANSI
  73. ---STRED
  74. ----W_KAT1
  75. ---W_KAT2
  76. ---W_KAT3
  77. ---W_KAT4
  78. ---W_KAT5
  79. finW_KAT6
  80. zekW_KAT7
  81. u mW_ROK
  82. ----W_RR_N
  83. lexHLASKA
  84.    W_KATS
  85.    PODM_KAT
  86.  MOD_SYS
  87.  A6_MZDY
  88. t ROK
  89. ek celA6_MZD
  90. eceOSC
  91. f.    M6_ZAM
  92.    A6_ZAM
  93.    M6_DM
  94.     DM
  95. zobrazeC6_MZDY
  96. kyDRUH_POMERSKUP_PRAC
  97. STR_ZAM
  98. anSTR_PREV
  99.    naKC2
  100. 'StatiKC3
  101.  mezd,KC4
  102. '+str(KC5
  103. ,4)   KC6
  104. avickaKC7
  105. e streKC8
  106. ce(4) KC9
  107. mpty(wKC10
  108.    KC11
  109. ='StaKC12
  110. a mezTUP
  111. ed. M
  112. _MZDY
  113. POCET
  114. tr(wPOCETC
  115.  &&W_STRN
  116. PROCENTA
  117. =CASTKA
  118. nMESIC
  119. ERKATEGORIE
  120. W_SKUP
  121. POLEX
  122. MERFREEZE
  123. '+sRAMECEK
  124. 4)NAZEVT
  125. treRIIS
  126. 4) RTOP
  127. mpty(RBOT
  128.   CLEFT
  129. =' SCRIGHT
  130. d -F1
  131. . '+strF2
  132. , kat. F3
  133. kats+',F4
  134.  '+str(F6
  135. se   
  136. l1='DM DETAIL
  137. y.dDET_JM
  138. _dmENTER
  139. tr_PROCX
  140. riF9KEY
  141. S 6.ZAHL
  142.      JMENO
  143.     HODN
  144.     I
  145.  id MOD_PSV
  146. c6_mzdd
  147. c6_mzdd
  148. RIIS 6.2
  149. Statistika mezd, rok F
  150. Statistika mezd - st
  151. , rok 
  152. Stat. mezd - kat. 
  153. , rok 
  154.  Stat. mezd - st
  155. , kat. 
  156. , rok 
  157. RIIS 6.2
  158. mod67c2
  159. Zadejte osobn
  160. iif(eof('m6_zam'),a6_zam.prijmeni,m6_zam.prijmeni)
  161. iif(eof('m6_zam'),a6_zam.prijmeni,m6_zam.prijmeni)
  162. iif(eof('m6_zam'),a6_zam.jmeno,m6_zam.jmeno)
  163. iif(eof('m6_zam'),a6_zam.jmeno,m6_zam.jmeno)
  164. str_zam
  165. str_zam
  166. str_prev
  167. str_prev
  168. kategorie+'   '
  169. kategorie
  170. tran(rok,'9999')
  171. ' '+tran(mesic,'99')
  172. mesic
  173. righ(tran(castka,'@Z'),9)
  174. castka
  175. Hodiny
  176. righ(tran(hodiny,'@Z'),6)
  177. hodiny
  178.         Kusy
  179. righ(tran(kusy,'@Z'),12)
  180. Pr.dny
  181. righ(tran(pr_dny,'@Z'),6)
  182. pr_dny
  183. Kal.dny
  184. righ(tran(ka_dny,'@Z'),7)
  185. ka_dny
  186. MOD_SYS
  187. , C6_MZDD
  188. --OSC
  189. ---SKUP_PRAC
  190. KATEGORIE
  191. ---MESIC
  192. ---STR_ZAM
  193. --STR_PREV
  194. nKUSY
  195. zekHODINY
  196. u mCASTKA
  197. ---PR_DNY
  198. lexKA_DNY
  199.    NHOD
  200.    A6_MZDY
  201.  C6_MZDY
  202. t DRUH_POMERW_STRN
  203. RSTRED
  204.  W_ROK
  205.    P_SKUP
  206.    M6_ZAM
  207.    A6_ZAM
  208. zeW_SKUP_PRAA6_MZD
  209. W_KAT1
  210. ERW_KAT2
  211. anW_KAT3
  212. kW_KAT4
  213.  naW_KAT5
  214. atiW_KAT6
  215. zd,W_KAT7
  216. tr(PS_LINE
  217. RAPOLEX
  218. ickaPROCX
  219. streRTOP
  220. e(4) RBOT
  221. pty(wCLEFT
  222.    CRIGHT
  223. StaFREEZE
  224. mezORDER
  225. ed. ZAHL
  226. JMENO
  227. tr(wHODN
  228.  &&TITLE
  229. TITLECOLORF1
  230. EGORIE
  231. MERF9
  232. '+sF10
  233. 4)DETAIL
  234. treF1PRG
  235. 4) F4_JM
  236. pty(F4PRG
  237.   F7_JM
  238. =' SF7PRG
  239. d -F9KEY
  240. +strF10_JM
  241. t. F10PRG
  242. +',DET_JM
  243. tr(DETPRG
  244. eRAMECEK
  245. NAZEVT
  246. DM RIIS
  247. y.dTRAD1
  248. _dmTRAD2
  249. tr_W_KATS
  250. riTR_HL1
  251.  6.M6_DM
  252.   NAZEV
  253.     TR_HL2
  254. id MOD_PSV
  255. rPS_RETURN
  256. colora
  257. set color to &color
  258. , COLOR
  259. --OBR
  260. POCET
  261. , POCETC
  262. --POC
  263. colora
  264. set color to &color
  265. , COLOR
  266. --MOD67CX
  267. MOD67CD
  268. HLASKA
  269. PROCENTA
  270. X:\OBEC\06\
  271. MOD67C2.FXP
  272. X:\OBEC\06\MOD67C2.PRG
  273.