home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 01 / MOD11C.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1997-09-23  |  15KB  |  369 lines
  1. Hromadn
  2. ny kusovn
  3. ch vazeb
  4. ehled kusovn
  5. ch vazeb
  6. RIIS 1.1
  7. h_zmena
  8. Detail
  9. zobr_det
  10. mod11c
  11. Zadejte: rozpisku,pozici,
  12. slo zm.z
  13. |...........|..|..
  14. m1_kusov
  15. pozice
  16. m1_kusov
  17. pozice
  18. m1_kusov
  19. pozice
  20. c1_kusov
  21.  Prob
  22. r z celkov
  23. ho po
  24. tu FF
  25.  vazeb ... 
  26. m1_ident
  27. kod_pol
  28. m1_ident
  29. c1_xx
  30. c1_kusov
  31. c1_kusov
  32. ehled kusovn
  33. ch vazeb z
  34. kaz. rozpisek
  35. m1_ident
  36. ident
  37. Rozpiska    
  38. ident.ident
  39. ident.ident
  40. Komponenta  
  41. ident.c_vykresu
  42. ident.c_vykresu
  43. ident.poz
  44. ident.poz
  45. m1_ident.nazev
  46. m1_ident.nazev
  47. Ext.identif.
  48. m1_ident.ident_odb
  49. m1_ident.ident_odb
  50. ident.op_v
  51. ident.op_v
  52. ident.d1op
  53. ident.d1op
  54.   Spot
  55. str (ident.spotreba,10,5)
  56. ident.spotreba
  57. tran(ident.datum_od,'@E')
  58. (ident.datum_od  )
  59. tran(ident.datum_do,'@E')
  60. (ident.datum_do  )
  61. Akt.dat. 
  62. tran(ident.datum_akt,'@E')
  63. (ident.datum_akt )
  64. '    '+str(ident.c_zm_zriz,3)
  65. ident.c_zm_zriz
  66. Zm.zru
  67. '    '+str(ident.c_zm_zrus,3)
  68. ident.c_zm_zrus
  69. Ks del.
  70. ' '+str(ident.kusy_de,6)
  71. ident.kusy_de
  72. ident.rozmer
  73. ident.rozmer
  74. Posun
  75. '  '+str(ident.posunuti,3)
  76. ident.posunuti
  77. ident.druh+'   '
  78. ident.druh
  79. Aktualiz. 
  80. ident.aktual
  81. ident.aktual
  82. Autor     
  83. ident.autor
  84. ident.autor
  85. Sek.identif.
  86. m1_ident.sek_ident
  87. m1_ident.sek_ident
  88. space(4)+m1_ident.rada
  89. m1_ident.rada
  90. .postupu
  91. subs(m1_ident.c_postup,1,9)
  92. m1_ident.c_postup
  93. m1_ident.typ
  94. m1_ident.typ
  95. m1_ident.mj
  96. m1_ident.mj
  97. ' '+m1_ident.kod_pol+' '
  98. m1_ident.kod_pol
  99. m1_ident.jak_csn
  100. m1_ident.jak_csn
  101. m1_ident.rozm_csn
  102. m1_ident.rozm_csn
  103. str(m1_ident.ds,3)
  104. m1_ident.ds
  105.    SKP
  106. m1_ident->skp
  107. m1_ident->skp
  108. ' '+m1_ident->stav
  109. m1_ident->stav
  110.      PHZME
  111. reenPOLEX
  112. *RAMECEK
  113. doNAZEVT
  114. *RIIS
  115.  reRTOP
  116. screeRBOT
  117.  obrFCLEFT
  118. ndcaCRIGHT
  119. FREEZE
  120. tore scF2
  121.  from oF3
  122. set colF4
  123. o &_colF6
  124. return
  125. *******F9
  126. *******F10
  127. ****F10_JM
  128. ***F10PRG
  129. ***DETAIL
  130. ***DET_JM
  131. EDUENTER
  132. PROCX
  133. or tF9KEY
  134. F9KEY1
  135. leaM1_KUSOV
  136. 7POZICE
  137. to IDENT
  138. doubDATUM_DO
  139. lC1_KUSOV
  140. MRECC
  141. say MESS
  142. da M1_IDENT
  143. oKOD_POL
  144. @C1_XX
  145.  MARRAY
  146.  C_VYKRESU
  147. 2JMENO
  148.     HODN
  149.    -I
  150. MOD_PSV
  151. r OBSAH
  152. konec
  153. na polo
  154.   .  .  #
  155. ......
  156. @s,v get &prom
  157. @s,v say &prom
  158. .................
  159.  with 
  160. c_vykresu
  161. seek &prom 
  162. , druh with '
  163. ABCFPS
  164. STOP - d
  165. lku podm
  166. nky ji
  167.  nelze zv
  168. ovat !
  169.  Ukon
  170. Potvr
  171. replace datum_akt with date(),&podm
  172. cmasterorder
  173. RIIS 1.1
  174.      JMENO
  175. reenOBSAH
  176. *HODN
  177. doPODM
  178. *POLEX
  179.  rePOLE8
  180. creeLOGIC
  181. obrFS
  182. ndcaXOPER
  183. ore scDAT
  184. from oI
  185. set colR
  186. o &_colXVYBER
  187. ***PROM
  188. *****L
  189. ***M1_IDENT
  190. *KOD_POL
  191. *IDENT
  192. ***STOP
  193. EDUZMEN
  194. MOD_SYS
  195.  tCPODMV
  196. CPODMS
  197. leaCPODMVU
  198. 7CMASTERORDPS_RETURN
  199. Komponenta  
  200. c_vykresu
  201. obs pict 'XXXXXXXXXXXX'
  202. c_vykresu
  203. obs pict '999'
  204. obs pict 'XXXX'
  205.   Spot
  206. str(spotreba,10,5)
  207. nula pict '99999.99999'
  208. spotreba
  209. Ks del.
  210. ' '+str(kusy_de,6)
  211. nula pict '999999'
  212. kusy_de
  213. rozmer
  214. obs pict '9999999999999'
  215. rozmer
  216. Posun
  217. '  '+str(posunuti,3)
  218. nula pict '999'
  219. posunuti
  220.      ZAHL
  221. reenJMENO
  222. *OBSAH
  223. doHODN
  224. colorz
  225.      M1COLOR
  226. kres:F
  227.  Detail komponenty 
  228.  Pozn
  229. mky komponenty 
  230.  Konec 
  231. DETKOM
  232.    PS_LINE
  233. enDETKOMW
  234. *KOMPW
  235. doC_VYKRESU
  236.  reZOBR_DETA
  237. TEXTPOZ
  238. colorz
  239. kladn
  240. daje 
  241. daje struktury 
  242.  Detail komponenty 
  243. Aktualiz. :
  244. Autor     :               DS :
  245. zev     :
  246. Postup    :               KP :
  247. Sek.ident.:               MJ :
  248. Ext.ident.:
  249. SKP       :
  250. SN   :
  251. Typ       :
  252. ada :               St.:
  253. seek &Malias..c_vykresu
  254. mod_fun
  255.  detail komponenty 
  256. set color to &_color
  257. Aktualizoval :
  258. Autor        :
  259. Platnost od  :           do :
  260. ny zru
  261. Pozice       :
  262. Op.vstupu    :
  263. lna oper.  :
  264. eba     :
  265. r       :
  266. Kusy d
  267. seek &Malias..ident
  268. d komp.    :
  269. Objem        :
  270. prava     :
  271. as.posun    :
  272. seek &Malias..c_vykresu
  273. seek &Malias..ident
  274. 99.99
  275. 9999.9999
  276. seek &Malias..c_vykresu 
  277. set color to &_color
  278.    _COLOR
  279. enPS_LINE
  280. *WTEXT
  281. doC_VYKRESU
  282. MALIAS
  283.  reM1_IDENT
  284. FHLASKA
  285. dcaMOD_FUN
  286. AKTUAL
  287. cDATUM
  288. oAUTOR
  289. IDENT
  290. lNAZEV
  291. C_POSTUP
  292. *KOD_POL
  293. *SEK_IDENT
  294. IDENT
  295. *IDENT_ODB
  296. *JAK_CSN
  297. UROZM_CSN
  298. tRADA
  299. aDATUM_AKT
  300. DATUM_OD
  301. DDATUM_DO
  302. C_ZM_ZRUS
  303. C_ZM_ZRIZ
  304. say OP_V
  305. da D1OP
  306. oSPOTREBA
  307. @ROZMER
  308.  KUSY_DE
  309.  KOD_KOMP
  310. PROC_POD
  311. 2OBJEM
  312.     PU
  313.    -POSUNUTI
  314.                  - F10
  315.                - ^End,Esc
  316. Pozn. komponenty
  317. Konec
  318. m1_pozst
  319. m1_pozst
  320. ident
  321. c1_pozst+
  322. c1_pozst
  323.  Pozn
  324. mky komponenty F
  325. dek  Pozn
  326. str(rad_tx,3) + '    ' + Text_tx
  327. mod_fun
  328. Nebyly nalezeny 
  329.  pozn
  330. mky komponenty.
  331. ZAVRI
  332.    ALIAS
  333. enM1_POZST
  334. *IDENT
  335. oC_VYKRESU
  336.  reC1_POZST
  337. POZICE
  338. N_LMEZ
  339. N_PMEZ
  340. N_HMEZ
  341. N_DMEZ
  342. cN_PROM
  343. oN_HOD
  344. lN_CCUR
  345. lN_POC
  346. N_TEXT
  347. *N_HLAV
  348. N_RAD
  349. N_VYB
  350. *N_RIIS
  351. N_TOP
  352. *ZOBR_NAP
  353. UMOD_FUN
  354. HLASKA
  355. tMOD11C
  356. ,65 %
  357. H_ZMENA
  358. POLE8
  359. menu g
  360.       [!
  361. ZOBR_DET
  362. ZOBR_DETA
  363. MENU1F
  364. TEXTPOZ
  365. endE2
  366. X:\OBEC\01\
  367. MOD11C.FXP
  368. X:\OBEC\01\MOD11C.PRG
  369.