home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 01 / S133.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-04-15  |  19KB  |  529 lines
  1. m_param
  2. m1_ident
  3. postup
  4. use &nazevv\m1_hlava order postup
  5. use &nazevv\m1_mat order postup alias mat
  6. Funkce
  7. prehledy
  8. ehled technologick
  9. ch postup
  10. RIIS 1.3
  11. Postup  
  12. m1_hlava.postup
  13. m1_hlava.postup
  14. zev postupu
  15. m1_hlava.nazev
  16. m1_hlava.nazev
  17. m1_hlava.rada
  18. m1_hlava.rada
  19. m1_hlava.kstr
  20. m1_hlava.kstr
  21. Autor    
  22. m1_hlava.autor
  23. m1_hlava.autor
  24.  Datum  
  25. tran(m1_hlava.datum,'@E')
  26. m1_hlava.datum
  27. Vz.post.
  28. tran(m1_hlava.typ_postup,'99999999')
  29. m1_hlava.typ_postup
  30. str(m1_hlava.pocop,4)+' '
  31. m1_hlava.pocop
  32. Nmin-p
  33. str(m1_hlava.tbc_c,9)
  34. m1_hlava.tbc_c
  35.   Nmin-kus
  36. str(m1_hlava.tac_c,10,4)
  37. m1_hlava.tac_c
  38. str(m1_hlava.kcsbc_c,10,4)
  39. m1_hlava.kcsbc_c
  40.     K
  41. str(m1_hlava.kcsac_c,10,4)
  42. m1_hlava.kcsac_c
  43.  Nmin-celk
  44. str(m1_hlava.tac_c+m1_hlava.tbc_c,10,4)
  45. (m1_hlava.tac_c+m1_hlava.tbc_c)
  46. -celkem
  47. str(m1_hlava.kcsac_c+m1_hlava.kcsbc_c,10,4)
  48. (m1_hlava.kcsac_c+m1_hlava.kcsbc_c)
  49. m1_ident.typ
  50. m1_ident.typ
  51. Ext. identifikace
  52. m1_ident.ident_odb
  53. m1_ident.ident_odb
  54. Specifikace
  55. mat.Text
  56. mat.Text
  57. POM_SLEV
  58. zM_PARAM
  59. ePOLE1
  60. KONT_PR
  61. t.D_KOOP
  62. ,fDILNA_KOOPM1_IDENT
  63. mPOSTUP
  64. ce"M1_HLAVA
  65. CPARAMDBF
  66. POLEX
  67. nazePROCX
  68. ehlRTOP
  69. hnoloRBOT
  70. h opeCLEFT
  71. " + CRIGHT
  72. cesFREEZE
  73. ORDER
  74. = "RZAHL
  75. JMENO
  76. ion HODN
  77. olex)SOUC
  78. o(polTITLE
  79. dn(pTITLECOLORPOC0
  80. use mF0
  81. if F1
  82. tr(poleF2
  83. 1)='X'
  84.    F9
  85.      skF10
  86.       F0PRG
  87. rva=F1ON
  88.     F1PRG
  89.  do F4IJM
  90.  witF4PRG
  91. TISKPRG
  92.   F7IJM
  93. F7PRG
  94.     F9PRG
  95. hmezF9KEY
  96.     F9KEY1
  97. =ukF10IJM
  98.    F10PRG
  99. RAMECEK
  100.   RIIS
  101. t colNAZEVT
  102. KLICO
  103.     KLNAZ
  104. oll SPACEBAR
  105. eTR_HL1
  106.   TR_HL2
  107.   eTR_HL3
  108.    TR_HL4
  109. arvTR_HL5
  110. TR_HL6
  111.    TR_HL7
  112. ad5TR_HL8
  113. ,baTR_HL9
  114.    DETIJM
  115.  ENTER
  116. se iDETAIL
  117.    DETPRG
  118.   PS_LINE
  119.  ePS_RETURN
  120. PS_ZAZN
  121.     NAZCES
  122. MOD_PSV
  123. cis_fak
  124. filterz
  125. orderz
  126. funkce
  127.  Detail postupu 
  128.  Detail rozpisky 
  129.  Konec 
  130. postup
  131. ident
  132. mod_proc
  133.  obnova p
  134. ehledu ...
  135. funkce
  136. cOtevri = 'use &nazevv\m1_hlava order postup'
  137. set relation to postup into m1_ident
  138. cOtevri = 'use &nazevv\m1_normy order operace'
  139. set rela to postup into m1_hlava
  140. cOtevri = 'use &nazevv\m1_prip order operace'
  141. set relation to postup+oper into m1_normy, evcis into m1_ident
  142. C_PSV
  143. &cOtevri
  144. set filter to &Qwfilt
  145. &cRelace
  146. index on &m_onindex tag &cps_dbf of &cps_cdx &m_Ndesc
  147. index on &m_onindex tag &cps_dbf of &cps_cdx for &m_podm &m_Ndesc
  148. set order to &M_trideni
  149. set order to &M_trideni
  150. &cRelace
  151. M_SCR
  152. zM_REC
  153. eM_SEL
  154. W_IDENT
  155. t.CISLO
  156. ,fM1_HLAVA
  157. PPOSTUP
  158. mQMASTERORDCMASTERORDQWFILT
  159. ORDM_TRIDENI
  160. M_ONINDEX
  161. M_NDESC
  162. hlNDESCENDINM_PODM
  163. opeCPODMV
  164.  + FUNKCE
  165. cesDATA
  166. VOLBA
  167. = "RRUS
  168. S132Z
  169. ion PREH_ROZP
  170. M1_IDENT
  171. lIDENT
  172. pZOBR_ROZP
  173. MOD_PROC
  174. mMESS
  175. if CPARAMDBF
  176. CRELACE
  177. m_param
  178. Funkce
  179. prehledy
  180. ehled technologick
  181. ch operac
  182. RIIS 1.3
  183. m_param
  184. use &nazevv\m1_hlava order postup
  185. use &nazevv\m1_normy order operace
  186. Postup  
  187. a.postup
  188. a.postup
  189. a.oper
  190. a.oper
  191. a.dop
  192. a.dop
  193.   Prac
  194. a.prac
  195. a.prac
  196. a.ptr
  197. a.ptr
  198.   NH/tis
  199. str(a.nh_tis,8,2)
  200. a.nh_tis
  201. str(a.tbc,4)
  202. a.tbc
  203.    TAC   
  204. IIF(kooperace(a.dop),str(a.kooperace,10,4),str(a.tac,10,4))
  205. IIF(kooperace(a.dop),a.kooperace,a.tac)
  206. zev oper.
  207. a.nazev_op
  208. a.nazev_op
  209. Kusy/h
  210. a.norm+' '
  211. a.norm
  212. edpis
  213. a.predpis
  214. a.predpis
  215. zev postupu
  216. m1_hlava.nazev
  217. m1_hlava.nazev
  218. m1_hlava.rada
  219. m1_hlava.rada
  220. m1_hlava.kstr
  221. m1_hlava.kstr
  222. Autor    
  223. m1_hlava.autor
  224. m1_hlava.autor
  225.  Datum  
  226. tran(m1_hlava.datum,'@E')
  227. m1_hlava.datum
  228. Vz.post.
  229. m1_hlava.typ_postup
  230. m1_hlava.typ_postup
  231. str(m1_hlava.pocop,4)+' '
  232. m1_hlava.pocop
  233. str(a.kcsbc,10,4)
  234. a.kcsbc
  235.     K
  236. str(a.kcsac,10,4)
  237. a.kcsac
  238.  Nmin-celk
  239. str(a.tac+a.tbc,10,4)
  240. (a.tac+a.tbc)
  241. -celkem
  242. str(a.kcsac+a.kcsbc,10,4)
  243. (a.kcsac+a.kcsbc)
  244. a.Kod_Mat
  245. a.Kod_Mat
  246. d op.
  247. a.Kod_Oper+'    '
  248. a.Kod_Oper
  249. a.Typ_Oper+' '
  250. a.Kod_Oper
  251. Zmetky %
  252. str(a.Zmetky,8,2)
  253. a.Zmetky
  254. POM_SLEV
  255. zCPARAMDBF
  256. POLEX
  257. PROCX
  258. t.RTOP
  259. ,fRBOT
  260. PCLEFT
  261. mCRIGHT
  262. ORDFREEZE
  263. ORDORDER
  264. ORDZAHL
  265. JMENO
  266. hlSOUC
  267. ENDINTITLE
  268. opeTITLECOLORPOC0
  269. cesF0
  270. = "RF2
  271. ion F4
  272. H_ROZP
  273. IDENT
  274. R_ROZP
  275. mF0PRG
  276. if F1ON
  277. F1PRG
  278. F4IJM
  279. F4PRG
  280. TISKPRG
  281. F7IJM
  282.    F7PRG
  283.   skF9PRG
  284.     F9KEY
  285. rva=F9KEY1
  286.    F10IJM
  287. do F10PRG
  288. witRAMECEK
  289.   NAZEVT
  290. KLICO
  291.     KLNAZ
  292. hmezSPACEBAR
  293.  TR_HL1
  294. =ukTR_HL2
  295.    TR_HL3
  296. TR_HL4
  297.   TR_HL5
  298. colTR_HL6
  299. TR_HL7
  300.    TR_HL8
  301. ll TR_HL9
  302. eDETIJM
  303.   ENTER
  304.   eDETAIL
  305.    DETPRG
  306. arvPS_LINE
  307. PS_RETURN
  308. PS_ZAZN
  309. ,baPOM_NH
  310.    POM_CKC
  311.  M_PARAM
  312.  iPOLE1
  313.   NAZCES
  314.   KONT_PR
  315.  eD_KOOP
  316. DILNA_KOOPPOSTUP
  317.    M1_HLAVA
  318. MOD_PSV
  319. Funkce
  320. prehledy
  321. ehled p
  322. pravk
  323.  technologick
  324. ch operac
  325. RIIS 1.3
  326. Postup  
  327. m1_prip.postup
  328. m1_prip.postup
  329. m1_prip.oper
  330. m1_prip.oper
  331. Evid.
  332. m1_prip.evcis
  333. m1_prip.evcis
  334. zev p
  335. pravku
  336. m1_ident.nazev
  337. m1_ident.nazev
  338. m1_normy.dop
  339. m1_normy.dop
  340.   Prac
  341. m1_normy.prac
  342. m1_normy.prac
  343. m1_normy.ptr
  344. m1_normy.ptr
  345. str(m1_normy.tbc,4)
  346. m1_normy.tbc
  347.    TAC   
  348. str(m1_normy.tac,10,4)
  349. m1_normy.tac
  350. zev oper.
  351. m1_normy.nazev_op
  352. m1_normy.nazev_op
  353. Kusy/h
  354. m1_normy.nc
  355. m1_normy.nc
  356. m1_normy.norm+' '
  357. m1_normy.norm
  358. edpis
  359. m1_normy.predpis
  360. m1_normy.predpis
  361. zev postupu
  362. m1_hlava.nazev
  363. m1_hlava.nazev
  364. m1_hlava.rada
  365. m1_hlava.rada
  366. m1_hlava.kstr
  367. m1_hlava.kstr
  368. Autor    
  369. m1_hlava.autor
  370. m1_hlava.autor
  371. m1_prip.oznac
  372. m1_prip.oznac
  373.  Datum  
  374. tran(m1_hlava.datum,'@E')
  375. m1_hlava.datum
  376. Vz.post.
  377. m1_hlava.typ_postup
  378. m1_hlava.typ_postup
  379. str(m1_hlava.pocop,4)+' '
  380. m1_hlava.pocop
  381. m_param
  382. m1_ident
  383. ident
  384. use &nazevv\m1_hlava order postup
  385. use &nazevv\m1_normy order operace
  386. use &nazevv\m1_prip order operace
  387. POM_SLEV
  388. zCPARAMDBF
  389. POLEX
  390. PROCX
  391. t.RTOP
  392. ,fRBOT
  393. PCLEFT
  394. mCRIGHT
  395. ORDFREEZE
  396. ORDORDER
  397. ORDZAHL
  398. JMENO
  399. hlSOUC
  400. ENDINTITLE
  401. opeTITLECOLORPOC0
  402. cesF0
  403. = "RF2
  404. ion F4
  405. H_ROZP
  406. IDENT
  407. R_ROZP
  408. mF0PRG
  409. if F1ON
  410. F1PRG
  411. F4IJM
  412. F4PRG
  413. TISKPRG
  414. F7IJM
  415.    F7PRG
  416.   skF9PRG
  417.     F9KEY
  418. rva=F9KEY1
  419.    F10IJM
  420. do F10PRG
  421. witRAMECEK
  422.   NAZEVT
  423. KLICO
  424.     KLNAZ
  425. hmezSPACEBAR
  426.  TR_HL1
  427. =ukTR_HL2
  428.    TR_HL3
  429. TR_HL4
  430.   TR_HL5
  431. colTR_HL6
  432. TR_HL7
  433.    TR_HL8
  434. ll TR_HL9
  435. eDETIJM
  436.   ENTER
  437.   eDETAIL
  438.    DETPRG
  439. arvPS_LINE
  440. PS_RETURN
  441. PS_ZAZN
  442. ,baNAZCES
  443.   M_PARAM
  444.  POLE1
  445.  iKONT_PR
  446.   D_KOOP
  447.   DILNA_KOOPM1_IDENT
  448. IDENT
  449. KOOPPOSTUP
  450.    M1_HLAVA
  451.  M1_NORMY
  452.  EVCIS
  453.  MOD_PSV
  454. KLOBOUKYF
  455. zOPER_NE
  456. PODNIK
  457. MKOOP
  458. t.D_KOOP
  459. c1_ident
  460. m1_ident
  461. ordera
  462. postup
  463. m1_ident
  464. postup
  465. c1_ident
  466. c1_ident+
  467.  rozpiska k zadan
  468. mu postupu neexistuje
  469. set order to &ord_id
  470. c1_ident
  471. set order to &ord_id
  472. set color to &barva
  473. w+/bg
  474. w+/bg
  475. w+/bg
  476. set order to &ord_id
  477. Zadejte cislo polozky
  478. set order to &ord_id
  479. C1_IDENT
  480. zORD_ID
  481. CLO_ID
  482. M1_IDENT
  483. .POSTUP
  484. fM1_HLAVA
  485. PC_POSTUP
  486. DHLASKA
  487. ORDIDENT
  488. DW_IDENT
  489. HLAVA
  490. hlDMEZ
  491. ENDINLMEZ
  492. opePMEZ
  493. COLORR
  494. cesRAM5
  495. HELP5
  496. = "RRAD
  497. STREC
  498. ion BARVA
  499. SAYRAD5
  500. pSTZAZ
  501. ehled  r o z p i s e k 
  502. Identifikace
  503. Nazev polozky
  504. _IDENT
  505. set color to &barx
  506. IDENT
  507. zBARX
  508. IDENT
  509. NAZEV
  510. .KOD_POL
  511. Konec
  512. Pohyb
  513. Enter
  514. - Esc
  515. - Home,End,PgUp,PgDn,
  516. - Vyhled
  517. r polozky
  518. S133A
  519. PREHLEDY
  520. S133B
  521. S133C
  522. KOOPERACE
  523. PREH_ROZP
  524. SAYRAD5
  525. HELP5
  526. X:\OBEC\01\
  527. S133.FXP
  528. X:\OBEC\01\S133.PRG
  529.