home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 05 / MOD57F.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-04-10  |  12KB  |  257 lines
  1. hlaviMOD57FX
  2. m5_oper
  3. zakazka
  4. m_kal
  5. datum
  6. m3_szdr
  7. dilna
  8. m3_kozdr
  9. ident_zdr
  10. mod51a2
  11. tyden
  12. nt&ci = cis_tydne
  13. c_kap
  14. Kapacitn
  15.  propo
  16. et na pracovi
  17. , obdob
  18. RIIS 5.6
  19. Detail
  20. proc_det
  21. mod57f
  22.  Zadejte pracovi
  23. Pracov.
  24. pracov+' '
  25. pracov
  26.  Skluzy
  27. iif(skluzy=0,sp7,str(skluzy,7,1))
  28. skluzy
  29. iif(t0=0,sp7,str(t0,7,1))
  30. iif(t1=0,sp7,str(t1,7,1))
  31. iif(t2=0,sp7,str(t2,7,1))
  32. iif(t3=0,sp7,str(t3,7,1))
  33. iif(t4+t5+t6+t7=0,sp7,str(t4+t5+t6+t7,7,1))
  34. t4+t5+t6+t7
  35. iif(t8+t9+t10+t11=0,sp7,str(t8+t9+t10+t11,7,1))
  36. t8+t9+t10+t11
  37. iif(t12+t13+t14+t15=0,sp7,str(t12+t13+t14+t15,7,1))
  38. t12+t13+t14+t15
  39. iif(vyhled=0,sp7,str(vyhled,7,1))
  40. vyhled
  41. W_OBD1
  42. aviW_OBD2
  43. e W_CHYBA
  44. p ZADEJ_OBD
  45. M5_OPER
  46. ftZAKAZKA
  47. ghM_KAL
  48. reezDATUM
  49.     M3_SZDR
  50. & DILNA
  51.  mraM3_KOZDR
  52. uIDENT_ZDR
  53. lt = 0NT1
  54.   konfNT2
  55. ce funNT3
  56. f1 = NT4
  57.       NT5
  58.    && NT6
  59. veda (NT7
  60. t.    NT9
  61.       NT10
  62. yberyNT11
  63. ./.f.NT12
  64. = .t.NT13
  65.      NT14
  66. &  trNT15
  67.  (.t.W_DAT2
  68. 4 =W_AKT_TT
  69.  STAN_D2
  70. &&MOD51A2
  71.  TYDEN
  72. fCIS_TYDNE
  73.         CI
  74. TYDNE
  75. C_KAP
  76. f7PRACOV
  77.    SKLUZY
  78.    T0
  79. archiv T1
  80. av, vyvT2
  81. a DO &aT3
  82. v (.t./T4
  83. f9 = T5
  84.        T6
  85.     && T7
  86. ledavanT8
  87. t.'.f.)T9
  88. detail=T10
  89.       T11
  90. &&  poT12
  91. i EnteT13
  92. volavaT14
  93. enter T15
  94. /.f.)
  95. VYHLED
  96. 'DeCELK_KAP
  97.  CELK_BIL
  98. oPORADI
  99.  v VYPOC_KAP
  100. VYPOC_KBILPOLEX
  101. ='prRAMECEK
  102.   NAZEVT
  103. obsRIIS
  104. zevTITLE
  105. ury RTOP
  106. pRBOT
  107. mod57CLEFT
  108.     CRIGHT
  109. v pFREEZE
  110. = ' ZadF2
  111.  pracovF3
  112. kliF4
  113. riis'
  114. -------F7
  115. definicF9
  116. li ----DETAIL
  117. ---DET_JM
  118. ENTER
  119. on zPROCX
  120. F9KEY
  121. ion KLICO
  122. olexZAHL
  123. ensioJMENO
  124. poleHODN
  125. e soSOUC
  126. f. tMOD_PSV
  127. aviOBR
  128. m_param
  129.  Obdob
  130.  od: (TT-RR) 
  131.         do: (TT-RR) 
  132. Chybn
  133.  zadan
  134. Chybn
  135.  zadan
  136. Chybn
  137.  zadan
  138. Chybn
  139.  zadan
  140.  obdob
  141.  od nebo do
  142. W_OBD1
  143. aviW_OBD2
  144. e W_CHYBA
  145. p M_PARAM
  146. W_TYDEN1
  147. tKP_OD
  148. ghW_ROK1
  149. eezW_TYDEN2
  150.  KP_DO
  151. & W_ROK2
  152. mraHLASKA
  153. uW_R1
  154. = 0W_T1
  155. onfW_T2
  156. colora
  157. set color to &color
  158. aviCOLOR
  159. e OBR
  160. POCET
  161. aviPOCETC
  162. e POC
  163. ch zak
  164.  Operace v
  165. ch zak
  166.  Konec 
  167. mod5_lib
  168. mod5_lib
  169. OBR_DET
  170. viVOL
  171. e ZOBR_ZAKZ
  172. C_KAP
  173. tPRACOV
  174. ghW_OBD1
  175. eezW_OBD2
  176.  MOD5_LIB
  177.  ZOBR_OPERZe
  178.  Kapacitn
  179.  ...          
  180. M5_OPER
  181. _OPER
  182. e POCET
  183. POCETC
  184. TT_ZAH
  185. tW_OBD1
  186. ghPROCENTA
  187. zW_OBD2
  188.  NMIN
  189.  W_NHOD
  190. ZC_KAP
  191.  0PRACOV
  192. nfNT0
  193. nSKLUZY
  194.  CELK_KAP
  195.       NT3
  196. ./.f.NT4
  197.      NT5
  198.  (.t.NT6
  199. KT_TT
  200.        NT10
  201.    NT12
  202. rchiv NT13
  203.  DO &aNT14
  204. f9 = NT15
  205.    && VYHLED
  206.  Disponibiln
  207.  kapacity ...       
  208. C_KAP
  209. e POCET
  210. POCETC
  211. W_KAPAC
  212. tW_KAPBIL
  213. hVYP_BIL
  214.  PRACOV
  215. (NT10
  216. fNT11
  217.  NT12
  218.  NT13
  219. yNT14
  220. .NT15
  221. .CELK_BIL
  222.  PROCENTA
  223. tyden
  224. dilna
  225. W_DILNA
  226. viW_PRACOV
  227.  W_TYDEN
  228. W_KAPAC
  229. M_KAL
  230. tTYDEN
  231. hW_DAT_OD
  232. zDATUM
  233.  CIS_TYDNE
  234. W_DAT_DO
  235. ZM3_SZDR
  236. uDILNA
  237. NASEL
  238. 0M3_KOZDR
  239. fIDENT_ZDR
  240. AT_DO
  241.  POM_DAT
  242.  D_KAPA
  243. (C3_KOZDR
  244. fT_KAPA
  245.  MOD57FX
  246. HLASKA
  247. ZADEJ_OBD
  248. HLASKA
  249. PROCENTA
  250. PROC_DET
  251. VYPOC_KAP
  252. VYPOC_KBIL
  253. VYP_BIL
  254. X:\OBEC\05\
  255. MOD57F.FXP
  256. X:\OBEC\05\MOD57F.PRG
  257.