home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 03 / MOD37C.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-12-15  |  7KB  |  228 lines
  1. m3_zdr
  2. ident_zdr
  3. m3_szdr
  4. ident_zdr
  5. m3_kozdr
  6. ident_zdr
  7. m_cis1
  8. x_cis1
  9. m_dat
  10. x_dat
  11.  e h l e d     p r a c o v i 
  12. RIIS 3.7
  13. Korekce
  14. mod37cd
  15. mod37c
  16.  Zadejte: pracovi
  17. Pracovi
  18. '    '+str.ident_zdr
  19. str.ident_zdr
  20. ' '+str.dilna
  21. str.dilna
  22. Skupina
  23. ' '+str.skupina
  24. str.skupina
  25. str(str.poct,5)
  26. str.poct
  27. str(str.dny,3)
  28. str.dny
  29. NH sm
  30. '   '+str(str.nh_smeny,5,2)
  31. str.nh_smeny
  32. nnost
  33. '   '+str(str.smennost,5,2)
  34. str.smennost
  35. str(str.plneni,6,3)
  36. str.plneni
  37. Poruchy
  38. ' '+str(str.poruchy,6,3)
  39. str.poruchy
  40. Den.kapac.
  41. str(str.d_kapa,10,2)
  42. str.d_kapa
  43. d.kapac.
  44. str(str.t_kapa,10,2)
  45. str.t_kapa
  46. zev pracovi
  47. zdroj.nazev_zdr
  48. zdroj.nazev_zdr
  49. Zkratka
  50. zdroj.Zkr_Zdr+' '
  51. zdroj.Zkr_Zdr
  52. eno(iM3_ZDR
  53. ranIDENT_ZDR
  54. ZDROJ
  55. n(i)M3_SZDR
  56. T_ZDR
  57. M3_KOZDR
  58. T_ZDR
  59. M_CIS1
  60. +stX_CIS1
  61. t,3M_DAT
  62. n(i)X_DAT
  63. POLEX
  64. PROCX
  65. ' DnRTOP
  66. eno(iRBOT
  67.  '+stCLEFT
  68. y,1)CRIGHT
  69. i)=FREEZE
  70. ORDER
  71. zahHOR
  72. ' NH sDOL
  73. jmenLEVA
  74. '    PRAVA
  75. r.nhNADPIS
  76. ,2)ZAHL
  77. n(i)=JMENO
  78. smenHODN
  79. i=i+1SOUC
  80. (i)='PSOUC
  81. TITLE
  82. i)="TITLECOLORPOC0
  83. nnostF0
  84. hodF1
  85. ='kr.smF2
  86. zahlF4
  87. ' Pln
  88. jmeno(iF7
  89.  '+str(F9
  90. lneni,6F10
  91. hodn(F0PRG
  92. plneF1ON
  93. i=i+F1PRG
  94. (i)=F4_JM
  95. F4PRG
  96. i)="TISKPRG
  97. krF7_JM
  98. y,6,F7PRG
  99. dn(iF9PRG
  100. orucF9KEY
  101. i=i+F9KEY1
  102. i)=F10_JM
  103. kapF10PRG
  104. jmeRAMECEK
  105.   RIIS
  106. tr(krNAZEVT
  107. 9,2KLICO
  108. n(i)KLNAZ
  109. kapaSPACEBAR
  110. TR_HL1
  111. =' TR_HL2
  112.  kaTR_HL3
  113. jmTR_HL4
  114. '  TR_HL5
  115. +stTR_HL6
  116. apaTR_HL7
  117. hodTR_HL8
  118. .t_TR_HL9
  119. i=DET_JM
  120. l(iENTER
  121. od'+DETAIL
  122. DETPRG
  123. ="'PS_LINE
  124. (kPS_RETURN
  125. PS_ZAZN
  126. odMOD_PSV
  127. c2_k+
  128. znam!
  129. Korekce kapacit na d
  130.   pracovi
  131. RIIS 3.7
  132. ehled korekc
  133.  kapacit 
  134. Detail
  135.  Zadejte: pracovi
  136. lna+od 
  137.        Od
  138. ' '+tran(kr.od,'@E')
  139. kr.od
  140.        Do
  141. ' '+tran(kr.do,'@E')
  142. kr.od
  143. '   '+str(kr.poct,3)
  144. kr.poct
  145. '   '+str(kr.dny,1)
  146. kr.dny
  147.  NH sm
  148. '    '+str(kr.nh_smeny,5,2)
  149. kr.nh_smeny
  150. nnost
  151. '    '+str(kr.smennost,5,2)
  152. kr.smennost
  153. ' '+str(kr.plneni,6,3)
  154. kr.plneni
  155.  Poruchy
  156. '  '+str(kr.poruchy,6,3)
  157. kr.poruchy
  158.  Denn
  159.  kapacita
  160. '      '+str(kr.d_kapa,9,2)
  161. kr.d_kapa
  162.  kapacita
  163. '         '+str(kr.t_kapa,9,2)
  164. kr.t_kapa
  165. ' '+substr(kr.duvod,1,50)
  166. kr.duvod
  167. RIIS 3.7
  168. eno(iOBR1
  169. ranMOD_SYS
  170. n(i)PS_LINE
  171. T_ZDR
  172. eIDENT_ZDR
  173. +stDILNA
  174. t,3KOR
  175. n(i)C2_K
  176. ' DnKR
  177. eno(iTXT
  178.  '+stHLASKA
  179. ,1)PS_RETURN
  180. POLEX
  181. PROCX
  182. zahRTOP
  183.  NH sRBOT
  184. jmenCLEFT
  185.     CRIGHT
  186. .nhFREEZE
  187. ,2)ORDER
  188. (i)=ZAHL
  189. smenJMENO
  190. =i+1HODN
  191. (i)='TITLE
  192. TITLECOLORF1
  193. LECOLORF2
  194. nnostF3
  195. hodF4
  196. ='kr.smF6
  197. zahlF9
  198. ' Pln
  199. meno(iDETAIL
  200. tr(F1PRG
  201. ni,6F4_JM
  202. odn(F4PRG
  203. plneF7_JM
  204. i=i+F7PRG
  205. (i)=F9KEY
  206. F10_JM
  207. )="F10PRG
  208. krDET_JM
  209. ,6,DETPRG
  210. n(iRAMECEK
  211. ucNAZEVT
  212. =i+RIIS
  213. i)=OBSAHX
  214. kapENTER
  215.   MOD_PSV
  216. colora
  217. set color to &color
  218. eno(iCOLOR
  219. ranOBR
  220. MOD37C
  221. _ _ %
  222. MOD37CD
  223. HLASKA
  224. _ _ E
  225. X:\OBEC\03\
  226. MOD37C.FXP
  227. X:\OBEC\03\MOD37C.PRG
  228.