home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 01 / MOD11A1.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-02-21  |  14KB  |  283 lines
  1.  toto
  2. slemU
  3. sledn
  4. y '+ltriT
  5. tr(cis_zA
  6. y,3))
  7. q = 10
  8.  a = 88
  9.  selectQ2
  10. *   retQ3
  11. *endifQ4
  12. *selecQ5
  13. *replaQ6
  14. atum_odQ7
  15. h m1_zmQ8
  16. pl_od
  17. k_c = 'Q10
  18. eturn
  19. ******Q12
  20. ******Q13
  21. ******Q14
  22. ******Q15
  23. ******Q16
  24. ure naQ18
  25. q1 Q19
  26. q2 = 2Q20
  27. q5 =Q22
  28. 6 = 6
  29. q8NASTAV_Q
  30.  M1_IDENT
  31. W_IDENT
  32. V_UROVEN
  33. q1ZMENY
  34. q16KONEC
  35. q17 MOD_SYS
  36. kladn
  37. daje 
  38. daje struktury 
  39.  Detail komponenty 
  40. Aktualiz. :
  41. Autor     :               DS :
  42. zev     :
  43. Postup    :               KP :
  44. Model     :               MJ :
  45. Sek.ident.:               MJ :
  46. Ext.ident.:
  47. SKP       :
  48. Objedn
  49. SN   :
  50. Typ       :
  51. ada :               St.:
  52. Aktualizoval :
  53. Autor        :
  54. Platnost od  :          do:
  55. ny zru
  56. Pozice       :
  57. Op.vstupu    :
  58. lna oper.  :
  59. eba     :
  60. r       :
  61. Kusy d
  62. d komp.    :
  63. Objem        :
  64. prava     :
  65. as.posun    :
  66. 999.99
  67. 9999.9999
  68. WTEXT
  69. C_VYKRESU
  70. ID_ORG
  71. lemM1_IDENT
  72. VYKRESU
  73. AKTUAL
  74. s_zDATUM
  75. *AUTOR
  76. a = 88
  77. NAZEV
  78. lectC_POSTUP
  79. tKOD_POL
  80. ifSEK_IDENT
  81. *replaIDENT_ODB
  82.  m1_zmJAK_CSN
  83. ROZM_CSN
  84. eturn
  85. *****STAV
  86. *****IDENT
  87. *DATUM_AKT
  88. DATUM_OD
  89. *DATUM_DO
  90. pC_ZM_ZRUS
  91. C_ZM_ZRIZ
  92. q2 = 2OP_V
  93. qD1OP
  94. q5 =SPOTREBA
  95. ROZMER
  96. q8KUSY_DE
  97.  KOD_KOMP
  98. 0PROC_POD
  99. OBJEM
  100. ROVEN
  101. qPOSUNUTI
  102. @15,s &vloz nazev
  103. @16,s &vloz c_postup pict '@9'
  104. @ 16,s+19 &vloz kod_pol pict '!'
  105. mod_proc
  106. mod_proc
  107. MNTUXYZ
  108. @17,s &vloz sek_ident  pict '@9'
  109. @17,s+19 &vloz mj  pict '@!X'
  110. @18,s &vloz ident_odb pict '@X'
  111. @19,s &vloz skp pict '@X'
  112. @20,s &vloz jak_csn pict '@X'
  113. @21,s &vloz rozm_csn pict '@X'
  114. @22,s &vloz typ pict '@X'
  115. @23,s &vloz rada pict 'XXXX'
  116. @23,s+19 &vloz stav pict 'XXX'
  117. @16,s &vloz poz pict '999'
  118. @17,s &vloz op_v
  119. @18,s &vloz d1op pict '9999'
  120. @19,s &vloz spotreba
  121. @20,s &vloz rozmer pict '@!'
  122. @21,s &vloz kusy_de
  123. @22,s &vloz pu pict '@!'
  124. @23,s &vloz posunuti
  125. @ 22,s &vloz kod_komp
  126. @ 22,s+14 &vloz proc_pod pict '999.99'
  127. @ 23,s &vloz objem pict '9999.9999'
  128. NASTAV_Q
  129. VYKRESU
  130. lemM1_IDENT
  131. IDENT
  132. s_zPAM
  133. *NAZEV
  134. ZMENAV
  135. ectC_POSTUP
  136. fPROCD
  137. KOD_POL
  138. aZMEN_KP
  139. ZMEN_KPOL
  140. IDENT
  141. MOD_PROC
  142. ZALOZ_PLANRADA
  143. *KOD_DS
  144. V_UROVEN
  145. pSEK_IDENT
  146. 2 = 2Q6
  147. qIDENT_ODB
  148.  JAK_CSN
  149. ROZM_CSN
  150. 17 STAV
  151.  =Q13
  152. selPOZ
  153. _idenZMENAS
  154. e.iQ14
  155.  inOP_V
  156. 1_ideQ15
  157. ol,D1OP
  158. ','K'Q16
  159.   pSPOTREBA
  160. ROZMER
  161.  0 Q18
  162.  = KUSY_DE
  163. 2 Q19
  164. elsQ20
  165. cetPOSUNUTI
  166. qKOD_KOMP
  167. PROC_POD
  168.  OBJEM
  169. if  DATUM
  170. e.cAKTUAL
  171. *MM_AUTOR
  172. *DATUM_AKT
  173. HIDENT
  174. *ZMENA
  175. do proc&y
  176. do zmen&y
  177. do zmen&y
  178. STAV_Q
  179. VYKRESU
  180. lemHOR
  181. IDENT
  182. s_zKONEC
  183. tVLOZ
  184. fW_AKT
  185. D_POL
  186. EN_KPOL
  187. POCET
  188. NOVY_Z
  189. 'M1_IDENT
  190. C_VYKRESU
  191. **DATUM_OD
  192. *DATUM_AKT
  193. K_UDAJU
  194. *OK_C
  195. KOD_POL   
  196. m1_ident.kod_pol
  197. Nelze nav
  198. st, polo
  199. ka ji
  200.  existuje v identifikaci
  201. ident_odb
  202. Nelze nav
  203. st, polo
  204. ka ji
  205.  existuje v extern
  206.  identifikaci
  207. ident
  208. ident
  209. FPSABCRVIOJKG
  210. Nepovolen
  211. d polo
  212. ky (pouze F,P,S,A,B,C,R,V,I,O,J,K,G)
  213. MNTUXYZ
  214. Nepovolen
  215. d polo
  216. ky (pouze M,N,T,U,X,Y,Z)
  217. MJ        
  218. m1_ident.mj
  219. Nebyla vypln
  220. na pozice
  221. Tato pozice ji
  222.  existuje - duplicita
  223. c_kmat
  224. Pozice je ji
  225.  uvedena u materi
  226. c_kvyr
  227. c_kvyr
  228. c_kvyr
  229. Pozice je ji
  230.  uvedena ve vyr
  231. ch sou
  232. stech
  233. c_kmat
  234. c_kmat
  235. lna operace neexistuje!
  236. eba m
  237.  nulovou hodnotu
  238. W_AKT
  239. JMENO_C
  240. emWJMENO_C
  241. zTYP_C
  242. MOD_C2
  243. s_zRADEK_C
  244. *SLOUPEC_C
  245. MOD_C1
  246. tM1_IDENT
  247. fPODNIK
  248. aW_IDENT_ODIDENT_ODB
  249. W2_IDENT
  250. IDENT
  251. 'HLASKA
  252. _ODY_PUV
  253. _ODKOD_POL
  254. W_POZICE
  255. W_REC
  256. pC_KMAT
  257. C_KVYR
  258. 2V1_STR
  259. qSPOTREBA
  260. ENO_C
  261. s_zQ7
  262. UPEC_C
  263. ectQ11
  264. ENT_ODQ16
  265. T_ODB
  266. 'M1_IDENT
  267. DIDENT
  268. DKOD_POL
  269. *POCET
  270. C_VYKRESU
  271. MOD11A1
  272. PROCD
  273. ,q19,<
  274. ZMEND
  275. 2,q23
  276. ZMENY
  277. to q1
  278. K_UDAJU
  279. NASTAV_Q
  280. W:\01\
  281. MOD11A1.FXP
  282. W:\01\MOD11A1.PRG
  283.