home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 05 / MOD57G.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-02-18  |  8KB  |  180 lines
  1. seMOD57GX
  2. m5_oper
  3. zakazka
  4. m_kal
  5. datum
  6. mod51a2
  7. tyden
  8. nt&ci = cis_tydne
  9. c_kap
  10.  Prob
  11. r dat ...           
  12. Kapacitn
  13.  propo
  14. et na d
  15. lnu, obdob
  16. RIIS 5.6
  17. Detail
  18. proc_det
  19. mod57g
  20.  Zadejte pracovi
  21.  Skluzy
  22. iif(skluzy=0,sp7,str(skluzy,7,1))
  23. skluzy
  24. iif(t0=0,sp7,str(t0,7,1))
  25. iif(t1=0,sp7,str(t1,7,1))
  26. iif(t2=0,sp7,str(t2,7,1))
  27. iif(t3=0,sp7,str(t3,7,1))
  28. iif(t4+t5+t6+t7=0,sp7,str(t4+t5+t6+t7,7,1))
  29. t4+t5+t6+t7
  30. iif(t8+t9+t10+t11=0,sp7,str(t8+t9+t10+t11,7,1))
  31. t8+t9+t10+t11
  32. iif(t12+t13+t14+t15=0,sp7,str(t12+t13+t14+t15,7,1))
  33. t12+t13+t14+t15
  34. iif(vyhled=0,sp7,str(vyhled,7,1))
  35. vyhled
  36. W_OBD1
  37. seW_OBD2
  38. o W_CHYBA
  39. 12ZADEJ_OBD
  40. M5_OPER
  41.  1ZAKAZKA
  42. ,3M_KAL
  43. ,6 sDATUM
  44. (TT-RRNT1
  45. @ 13,2NT2
  46. 6 say NT4
  47.     doNT5
  48. -RR) 'NT6
  49. 4,28 sNT7
  50. setNT8
  51. r to bNT9
  52. le .tNT11
  53. @ 13,NT12
  54.  w_tyNT13
  55. ict 'NT14
  56.   @ 1NT15
  57. et w_W_DAT2
  58. t 'W_AKT_TT
  59. @STAN_D2
  60. t MOD51A2
  61. iTYDEN
  62. ,29 geCIS_TYDNE
  63. '9999'
  64. TYDNE
  65. C_KAP
  66.    setPRACOV
  67. offSKLUZY
  68. reaT0
  69. ()=12 oT1
  70. adkey()T2
  71.      T3
  72.    T5
  73.   if w_T6
  74. <1990 oT7
  75. rok2<19T8
  76.       dT9
  77. aska wiT10
  78.  rok'T12
  79.    looT13
  80.  endifT14
  81. if w_tT15
  82. <1 or VYHLED
  83. >53PORADI
  84. _OPER
  85. thPOCET
  86.  zaPOCETC
  87. en'TT_ZAH
  88. looPROCENTA
  89. iNMIN
  90.  W_NHOD
  91. 2POLEX
  92. dRAMECEK
  93.   NAZEVT
  94. askRIIS
  95. ChyTITLE
  96.  RTOP
  97.    RBOT
  98.   CLEFT
  99.  CRIGHT
  100.   iFREEZE
  101. *10F1
  102. tyden1 F2
  103. rok2*10F3
  104. tyden2
  105.     do F6
  106. ka withF7
  107.  zaF9
  108.  obdob
  109. DETAIL
  110.  doDET_JM
  111.   lENTER
  112.   enPROCX
  113. F9KEY
  114. KLICO
  115. wZAHL
  116. rightJMENO
  117. rok1HODN
  118. w_rSOUC
  119. ht(sSP7
  120. k2,4MOD_PSV
  121. seOBR
  122. m_param
  123.  Obdob
  124.  od: (TT-RR) 
  125.         do: (TT-RR) 
  126. Chybn
  127.  zadan
  128. Chybn
  129.  zadan
  130. Chybn
  131.  zadan
  132. Chybn
  133.  zadan
  134.  obdob
  135.  od nebo do
  136. W_OBD1
  137. seW_OBD2
  138. o W_CHYBA
  139. 12M_PARAM
  140. W_TYDEN1
  141. 1KP_OD
  142. ,3W_ROK1
  143. 6 sW_TYDEN2
  144. KP_DO
  145. T-RRW_ROK2
  146. 3,2HLASKA
  147.  W_R2
  148.  doW_T1
  149. ) 'W_T2
  150. colora
  151. set color to &color
  152. seCOLOR
  153. o OBR
  154. POCET
  155. sePOCETC
  156. o POC
  157. ch zak
  158.  Operace v
  159. ch zak
  160.  Konec 
  161. mod5_lib
  162. mod5_lib
  163. OBR_DET
  164. seVOL
  165. o ZOBR_ZAKZ
  166. C_KAP
  167. 1W_OBD1
  168. ,3W_OBD2
  169. 6 sMOD5_LIB
  170. ZOBR_OPERZMOD57GX
  171. HLASKA
  172. ZADEJ_OBD
  173. HLASKA
  174.  t0 m
  175. PROCENTA
  176. PROC_DET
  177. X:\OBEC\05\
  178. MOD57G.FXP
  179. X:\OBEC\05\MOD57G.PRG
  180.