home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 06 / MOD67A.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-02-04  |  6KB  |  135 lines
  1. t colMOD67AX
  2. m_param
  3. A r ch 
  4.  v   m e z d  -  dle os. 
  5. RIIS 6.7
  6. mod67a
  7. Zadejte os. 
  8. RIIS 6.7
  9. a6_mzdy
  10. m6_zam
  11. a6_zam
  12. druh_pomer
  13. druh_pomer
  14. typ_mzdy
  15. typ_mzdy
  16. alg+' '
  17. str(rok,4)
  18. str(mesic,5)
  19. mesic
  20.      
  21. righ(tran(castka,'@Z'),11)
  22. castka
  23.    Hodiny
  24. righ(tran(hodiny,'@Z'),9)
  25. hodiny
  26.   Sazba
  27. str(sazba,7,2)
  28. sazba
  29.           Kusy
  30. righ(tran(kusy,'@Z'),14)
  31.   Pr.dny
  32. righ(tran(pr_dny,'@Z'),8)
  33. pr_dny
  34.  Kal.dny
  35. righ(tran(ka_dny,'@Z'),8)
  36. ka_dny
  37. iif(eof('m6_zam'),a6_zam.prijmeni,m6_zam.prijmeni)
  38. iif(eof('m6_zam'),a6_zam.prijmeni,m6_zam.prijmeni)
  39. iif(eof('m6_zam'),a6_zam.jmeno,m6_zam.jmeno)
  40. iif(eof('m6_zam'),a6_zam.jmeno,m6_zam.jmeno)
  41. iif(eof('m6_zam'),a6_zam.ucetni,m6_zam.ucetni)
  42. iif(eof('m6_zam'),a6_zam.ucetni,m6_zam.ucetni)
  43. zakazka
  44. zakazka
  45. Postup
  46. postup
  47. postup
  48. operace+' '
  49. operace
  50. Pracov
  51. pracov
  52. pracov
  53. Doklad
  54. doklad
  55. doklad
  56. str_op+'  '
  57. str_op
  58. '  '+trida+' '
  59. trida
  60. Stupe
  61. '  '+stupen+'  '
  62. stupen
  63. iz.TB
  64. '   '+pp+'   '
  65.    Nhod
  66. str(nhod,7,2)
  67. Datum od
  68. tran(od,'@E')
  69. Datum do
  70. tran(do,'@E')
  71. Dny kr.
  72. '    '+str(kr_dny,5,2)
  73. kr_dny
  74. str(mes_f,6,2)
  75. mes_f
  76. Dny ni
  77. .nem.
  78. '       '+str(nn_dny,5,2)
  79. nn_dny
  80. str_prev+'    '
  81. str_prev
  82.      Z
  83. tran(zaklad,'@ZZZZZZ.ZZ')
  84. zaklad
  85. '  '+right(tran(rd_zustat,'@ZZZ.ZZ'),6)
  86. rd_zustat
  87. '      '+substr(tran(poc_deti,'@ZZ'),9,2)
  88. poc_deti
  89.   Dluh sr
  90. tran(dluh_sraz,'@ZZZZZZ.ZZ')
  91. dluh_sraz
  92. . odpo
  93. tran(odp_dan,'@ZZZZZZ.ZZ')
  94. odp_dan
  95. Ident. dokladu
  96. ident_dokl
  97. ident_dokl
  98. Autor
  99. jmeno
  100. jmeno
  101. M_PARAM
  102. olP609
  103. POLE6
  104. 79-lMOD_SYS
  105. )/POLEX
  106.  to RAMECEK
  107. n(NAZEVT
  108. 79-leRTOP
  109. -4)/2RBOT
  110. ,(79+CLEFT
  111. )+3)CRIGHT
  112. FREEZE
  113. -leF1
  114. t))/2 sF2
  115. = iF3
  116. e screeF6
  117. om obr
  118.  color F9
  119. color
  120. PROCX
  121. F9KEY
  122. A6_MZDY
  123. M6_ZAM
  124. A6_ZAM
  125. JMENO
  126. MOD_PSV
  127. colora
  128. set color to &color
  129. olCOLOR
  130. 79-lMOD67AX
  131. HLASKA
  132. W:\06\
  133. MOD67A.FXP
  134. W:\06\MOD67A.PRG
  135.