home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 06 / MOD68C.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1997-04-23  |  7KB  |  192 lines
  1. ek ceMOD68CX
  2. ehled typ
  3.  mezd
  4. RIIS 6.7
  5. Funkce
  6. prg_fun
  7. mod68c
  8. Zadejte 
  9. slo typu mzdy : 
  10. m6_typ
  11. m6_typz
  12. m6_typt
  13. hodnota
  14. m6_typm
  15. m6_mlt
  16. cislo
  17. ' '+typ_mzdy
  18. typ_mzdy
  19. Text typu mzdy
  20. '  '+kod_gen+' '
  21. kod_gen
  22. poznamka
  23. poznamka
  24. ' '+alg1+' '
  25. ' '+alg2+' '
  26. ' '+alg3+' '
  27. ' '+alg4+' '
  28. ' '+alg5+' '
  29. ' '+alg6+' '
  30. POLEX
  31. k ceOBSAHX
  32. ecRAMECEK
  33.   NAZEVT
  34.    RIIS
  35.      RTOP
  36.      RBOT
  37. obrazCLEFT
  38. vickCRIGHT
  39. t='FREEZE
  40. le='P
  41.  mezd'
  42. p  = 6
  43. t  =24
  44. ft = 1
  45. ght=78
  46. ze= 0 F10_JM
  47.    F10PRG
  48. ocePROCX
  49. nychF9KEY
  50. u vlM6_TYP
  51. aulTYP
  52. *M6_TYPZ
  53. urM6_TYPT
  54. i:HODNOTA
  55. . M6_TYPM
  56.   M6_MLT
  57. apoCISLO
  58. t./.ZAHL
  59. = .JMENO
  60.     HODN
  61. &  vI
  62.  (.tMOD_PSV
  63. ehled z
  64.  do mezd 
  65. ehled z
  66.  do mzdov
  67. ch list
  68.  Konec 
  69. k ceVOL
  70. ecZOBR_TYPZ
  71. ZOBR_TYPM
  72. c6_typz+
  73. c6_typz
  74. et nebyl nalezen
  75. ehled z
  76.  do mezd
  77. mod68c
  78. '  '+str(cislo,2)+' '
  79. cislo
  80. hodnota+'  '
  81. hodnota
  82. m6_typt.text
  83. m6_typt.text
  84. k cePS_LINE
  85. ecM6_TYPZ
  86. M6_TYP
  87. TYP_MZDY
  88.  C6_TYPZ
  89.   CISLO
  90. vickHODNOTA
  91. ='M6_TYPT
  92. HLASKA
  93. ePOLEX
  94. tPROCX
  95. CLEFT
  96. CRIGHT
  97. FREEZE
  98.  0 ORDER
  99.    ZAHL
  100. oceJMENO
  101. nychHODN
  102. u vlTITLE
  103. aulTITLECOLORF1
  104. apoF7
  105. t./.F9
  106. = .F10
  107.     DETAIL
  108.   vF1PRG
  109.  (.tF4_JM
  110. 3 F4PRG
  111.     F7_JM
  112.   &&F7PRG
  113. ni  F9KEY
  114. F10_JM
  115.    F10PRG
  116.    DET_JM
  117. olaDETPRG
  118. iskRAMECEK
  119. .)NAZEVT
  120. t. RIIS
  121.      TISKPRG
  122. lbPS_RETURN
  123.   MOD_PSV
  124. c6_typm+
  125. c6_typm
  126. et nebyl nalezen
  127. ehled z
  128.  do mzdov
  129. ho listu
  130. mod68c
  131. cislo+' '
  132. cislo
  133. str(m6_mlt.radek,4)
  134. m6_mlt.radek
  135. m6_mlt.text
  136. m6_mlt.text
  137. Hodn.
  138. m6_mlt.hodnota
  139. m6_mlt.hodnota
  140. k cePS_LINE
  141. ecM6_TYPM
  142. M6_TYP
  143. TYP_MZDY
  144.  C6_TYPM
  145.   CISLO
  146. vickM6_MLT
  147. ='HLASKA
  148. POLEX
  149. ePROCX
  150. tRTOP
  151. CLEFT
  152. CRIGHT
  153. FREEZE
  154. ORDER
  155.  0 ZAHL
  156.    JMENO
  157. oceHODN
  158. nychTITLE
  159. u vlTITLECOLORF1
  160. LECOLORF2
  161. apoF9
  162. t./.F10
  163. = .DETAIL
  164.    F1PRG
  165.   vF4_JM
  166.  (.tF4PRG
  167. 3 F7_JM
  168.     F7PRG
  169.   &&F9KEY
  170. ni  F10_JM
  171. F10PRG
  172.    DET_JM
  173.    DETPRG
  174. olaRAMECEK
  175. skNAZEVT
  176. .)RIIS
  177. t. TISKPRG
  178.   PS_RETURN
  179. MOD_PSV
  180. colorz
  181. set color to &Mcolor
  182. k ceMCOLOR
  183. ecMOBR
  184. MOD68CX
  185. PRG_FUN
  186. ZOBR_TYPZ
  187. ZOBR_TYPM
  188. HLASKA
  189. L:\OBEC\06\
  190. MOD68C.FXP
  191. L:\OBEC\06\MOD68C.PRG
  192.