home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 01 / S134.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-02-26  |  28KB  |  601 lines
  1. p_kody
  2. p_name
  3. Epson LX-810
  4. tiskpost
  5. Tisk v
  6. TiskVybe
  7. Tisk technologick
  8. ch postup
  9. RIIS 1.4
  10. Postup
  11. m1_hlava.postup
  12. m1_hlava.postup
  13. zev postupu
  14. m1_hlava.nazev
  15. m1_hlava.nazev
  16. m1_hlava.rada
  17. m1_hlava.rada
  18. m1_hlava.kstr
  19. m1_hlava.kstr
  20. Autor
  21. m1_hlava.autor
  22. m1_hlava.autor
  23. Vz.postup
  24. m1_hlava.typ_postup
  25. m1_hlava.typ_postup
  26. str(m1_hlava.pocop,7)
  27. m1_hlava.pocop
  28. Aktual.
  29. dtoc(m1_hlava.datum)
  30. m1_hlava.datum
  31. m1_ident.typ
  32. m1_ident.typ
  33. Ext. identifikace
  34. m1_ident.ident_odb
  35. m1_ident.ident_odb
  36. Specifikace
  37. m1_mat.text
  38. m1_mat.text
  39. m_param
  40. m1_ident
  41. postup
  42. use &nazevv\m1_mat order postup
  43. use &nazevv\m1_hlava order postup
  44.  xx="SOUBOR
  45. lavP_KODY
  46. " "P_NAME
  47. a.rW_TISKARNABOLD_ON
  48. NAP_BOLDON
  49. lBOLD_OFF
  50. P_BOLDOFF
  51. DBST_ON
  52. (mP_DBST_ON
  53. DBST_OFF
  54. tP_DBST_OFFNLQ_ON
  55. +" P_LETRQUALNLQ_OFF
  56. c_P_DRAFT
  57. a.MALE
  58. c,10,P_SUBON
  59.   SUB_OFF
  60.  P_SUBOFF
  61. SUPER_ON
  62.  P_SUPERON
  63. SUPER_OFF
  64. P_SUPEROFFHUSTE_ON
  65. hP_10CPI
  66. +"P_COMPRESSHUSTE_OFF
  67. P_COMP_OFFPICA_ON
  68. _hELITE_ON
  69. )P_12CPI
  70. trRESET
  71. va.pP_SETUP
  72.   COMP
  73. (m1_hNCOMP
  74. RESSPOLEX
  75. OFFPROCX
  76. 4)+"RTOP
  77.      RBOT
  78. CLEFT
  79. CRIGHT
  80. FREEZE
  81. BORDER
  82. JMENO
  83. TITLE
  84. TITLECOLORF1
  85. DETAIL
  86. F1PRG
  87. F4_JM
  88. F4PRG
  89. F7_JM
  90. F7PRG
  91. TF9KEY
  92. F10_JM
  93. F10PRG
  94. DET_JM
  95. DETPRG
  96. RAMECEK
  97. NAZEVT
  98. M_PARAM
  99. D_KOOP
  100. DILNA_KOOPM1_IDENT
  101. POSTUP
  102. M1_MAT
  103. MOD_PSV
  104. TiskPost
  105.  xx="TISK
  106. lavLBREAK
  107. " "KAM
  108. a.rSCR
  109. SKARNALCRT
  110. NACRETURN
  111. lMENUKAM
  112. MODTESTT
  113. TISKSING
  114. TiskVybe
  115.  xx="KAM
  116. lavLCRT
  117. " "SCR
  118. a.rCRETURN
  119. NAMENUKAM
  120. NAMODTESTT
  121. lTISKSING
  122. colora
  123. british
  124. FFFZ^D
  125. kresu:
  126. 99999
  127. kresu:
  128. set color to &col
  129. set color to &col
  130. Postup nebyl nalezen!
  131. m1_ident
  132. cu_ident
  133.   Prob
  134.  tisk postupu F
  135. ...  
  136. store FCREATE('&M_txt') TO _TEXT    
  137. Nelze vytvo
  138. it soubor pro sestavu
  139. use &nazevv\m1_prip order operace
  140. use &nazevv\m1_text order operace
  141. use &nazevv\m1_normy order operace
  142. Postup F
  143.  - Mno
  144.  - OPERACE:
  145. Oper.  N
  146. zev        D
  147. lna  Pracovi
  148. da  Kv.N.  P
  149. edpis  
  150.   T-bc       T-ac  Kusy/hod.       Celk.K
  151.    Celk.K
  152. *mnoz. Aktualiz.
  153.       
  154.      
  155.      
  156. TEXT:      
  157. PRAVKY: 
  158.       
  159.      
  160.      
  161. = fputs (_text, "&xx" )
  162. TEXT:      
  163. = fputs (_text, "&xx" )
  164. PRAVKY: 
  165. = fputs (_text, "&xx" )
  166. select &OldSel
  167. set color to &col
  168. = fputs (_text, "&xx" )
  169. kooperace: 
  170. kooperace: 
  171. = fputs (_text, "&xx" )
  172. Ident
  173. Postup
  174. Rozpiska  F
  175.   Mno
  176.   - POLO
  177. ka      Poz Opv D1op MJ  Spot
  178. eba   N
  179. CSN-Jakost      CSN-Rozm
  180. r      Kusu     Rozm
  181. r        PU 
  182. m1_kusov
  183. vykres
  184. ident
  185. = fputs (_text, "&xx" )
  186. Konec tisku - Postup F
  187. select &OldSel
  188.       - (^)
  189. ipky,(^)Home,(^)End,PgUp,PgDn 
  190.       - Esc
  191. Pohyb
  192. Konec
  193.  Prohl
  194.  sestavy 
  195. modi comm &M_txt.txt noedit window w
  196. set color to &col
  197.  xx="MIDENT
  198. lavTISK
  199. " "NRADEK
  200. a.rNSTRANKA
  201. ANMAXRADEK
  202. lOLDSEL
  203. CZAHL1
  204. CZAHL2
  205. BST_OFFNN
  206. +" M_ALIAS
  207. ALM_TXT
  208. c_MSCR
  209. a.PODNIK
  210. 10,W_DBSON
  211.   DBST_ON
  212.  W_DBSOFF
  213. DBST_OFF
  214. IDENT_ODB
  215. M1_IDENT
  216. FM1_HLAVA
  217. hPOSTUP
  218. +"LBREAK
  219. BRITISH
  220. M_VYKRES
  221. hM_KS
  222. )HLASKA
  223. IDENT
  224. pW_ROZP
  225.   MSCRQ
  226. m1_hMOD_SYS
  227. OFFCU_IDENT
  228. "C_POSTUP
  229.  ZOBR_ROZP
  230. BNREC
  231. SUMKCSAC
  232. SUMKCSBC
  233. SUMTBC
  234. SUMTAC
  235. SUMKOOP
  236. ORMRECQ
  237. M1_NORMY
  238. TKCSAC
  239. KCSBC
  240. BKOOPERACE
  241. SUMKCS
  242. SUMKCSMN
  243. SUMTB
  244. SUMTA
  245. SUMKOO
  246. NEWROW
  247. TISKZAHL
  248. TOPER
  249. NAZEV_OP
  250. PREDPIS
  251. NORMY
  252. DATUM
  253. M1_TEXT
  254. M1_PRIP
  255. OPEVCIS
  256. OZNAC
  257. TESTBREA
  258. POMOC
  259. IDENT
  260. M1_KUSOV
  261. VYKRES
  262. BEDATUM_DO
  263. DATUM_OD
  264. C_VYKRESU
  265. TD1OP
  266. IDENT
  267. SPOTREBA
  268. NAZEV
  269. WJAK_CSN
  270. *ROZM_CSN
  271. +KUSY_DE
  272. aROZMER
  273. KUSOV
  274.  xx="NREST
  275. lavSCX
  276. " "BAX
  277. a.rKK
  278. RANKA
  279. ANRADEK
  280. TISKHLAV
  281. lTISKZAHL
  282. NMAXRADEK
  283. mTISKPATA
  284.   List 
  285.  Technologick
  286.  postup 
  287. zev postupu             
  288. ada  KStr  Autor     Aktual. P.Op.  Postup-K
  289. Typ: 
  290.   Ext.Id.: 
  291. Specifikace: 
  292.   List 
  293. = fputs (_text, "&xx" )
  294.  Technologick
  295.  postup 
  296. = fputs (_text, "&xx" )
  297. zev postupu             
  298. ada  KStr  Autor     Aktual. P.Op.  Postup-K
  299. = fputs (_text, "&xx" )
  300. = fputs (_text, "&xx" )
  301. Typ: 
  302.   Ext.Id.: 
  303. = fputs (_text, "&xx" )
  304. Specifikace: 
  305. = fputs (_text, "&xx" )
  306. = fputs (_text, "&xx" )
  307.  xx="RESET
  308. lavNCOMP
  309. " "MALE
  310. a.rPODNIK
  311. ANSTRANKA
  312. SUB_OFF
  313. lDBST_ON
  314. M1_HLAVA
  315. POSTUP
  316. mDBST_OFF
  317. BOLD_ON
  318. ST_OFFBOLD_OFF
  319.  IDENT_ODB
  320. M1_MAT
  321. _TEXT
  322. D_OFF
  323. RANKA
  324.  NAZEV
  325.  RADA
  326.  AUTOR
  327. DATUM
  328. POCOP
  329. FKCSAC
  330. hKCSBC
  331. "KCSAC_C
  332. KCSBC_C
  333. NRADEK
  334. = fputs (_text, "&xx" )
  335. = fputs (_text, "&xx" )
  336.  xx="NCOMP
  337. lavDBST_ON
  338.  "DBST_OFF
  339. rMALE
  340. RANKA
  341. NRADEK
  342. lNSTRANKA
  343. = fputs (_text, "&xx" )
  344. = fputs (_text, "&xx" )
  345. = fputs (_text, "&xx" )
  346. PODNIK
  347. x="W_DSON
  348. lavW_DSOFF
  349.  "DBST_ON
  350. rDBST_OFF
  351. ALCRT
  352. NCOMP
  353. lCZAHL1
  354. CZAHL2
  355. T_OFF
  356. NRADEK
  357. colora
  358. set color to &col
  359. CMESS
  360. x="RA
  361. lavRB
  362. T_OFF
  363. lRBOT
  364. CLEFT
  365. CRIGHT
  366. LBREAK
  367. x="KEY
  368. colora
  369. Chcete zad
  370. vat po
  371. ty kus
  372.  (a/n) ?
  373. Tisk:
  374.     Na tisk
  375. rnu     
  376.     Na obrazovku    
  377. M A,N
  378. set color to &col
  379. Tisk:
  380.     Na tisk
  381. rnu     
  382.     Na obrazovku    
  383. set color to &col
  384. lavR1
  385. vodky
  386. t_navod
  387. Vyber_n
  388. ehled technologick
  389. ch operac
  390.  pro tisk n
  391. vodek
  392. RIIS 1.3
  393. m_param
  394. use &nazevv\m1_prip order operace
  395. use &nazevv\m1_text order operace
  396. use &nazevv\m1_hlava order postup
  397. use &nazevv\m1_normy order operace
  398. c1_normy
  399. c1_normy
  400. c1_nor
  401. use &nazevv\m1_mat order postup
  402. c1_text
  403. c1_text
  404. c1_nor
  405. Postup  
  406. d.postup
  407. d.postup
  408. d.oper
  409. d.oper
  410. c1_nor.oznac
  411. c1_nor.oznac
  412. d.dop
  413. d.dop
  414.   Prac
  415. d.prac
  416. d.prac
  417. d.ptr
  418. d.ptr
  419. str(d.tbc,4)
  420. d.tbc
  421.    TAC   
  422. IIF(kooperace(d.dop),str(d.kooperace,10,4),str(d.tac,10,4))
  423. IIF(kooperace(d.dop),d.kooperace,d.tac)
  424. zev oper.
  425. d.nazev_op
  426. d.nazev_op
  427. Kusy/h
  428. d.norm+' '
  429. d.norm
  430. edpis
  431. d.predpis
  432. d.predpis
  433. zev postupu
  434. m1_hlava.nazev
  435. m1_hlava.nazev
  436. m1_hlava.rada
  437. m1_hlava.rada
  438. m1_hlava.kstr
  439. m1_hlava.kstr
  440. Autor    
  441. m1_hlava.autor
  442. m1_hlava.autor
  443.  Datum  
  444. tran(m1_hlava.datum,'@E')
  445. m1_hlava.datum
  446. Vz.post.
  447. m1_hlava.typ_postup
  448. m1_hlava.typ_postup
  449. str(m1_hlava.pocop,4)+' '
  450. m1_hlava.pocop
  451. str(d.kcsbc,10,4)
  452. d.kcsbc
  453.     K
  454. str(d.kcsac,10,4)
  455. d.kcsac
  456.  Nmin-celk
  457. str(d.tac+d.tbc,10,4)
  458. (d.tac+d.tbc)
  459. -celkem
  460. str(d.kcsac+d.kcsbc,10,4)
  461. (d.kcsac+d.kcsbc)
  462. POLEX
  463. x="PROCX
  464. lavRTOP
  465.  "RBOT
  466. rCLEFT
  467. ACRIGHT
  468. FREEZE
  469. lORDER
  470. JMENO
  471. mHODN
  472. TITLE
  473. TITLECOLORF1
  474. NT_ODB
  475. D_OFF
  476. RANKA
  477. DETAIL
  478.  F1PRG
  479. F4_JM
  480. F4PRG
  481. FF7_JM
  482. hF7PRG
  483. "F9KEY
  484. F10_JM
  485. F10PRG
  486. DET_JM
  487. hDETPRG
  488. )RAMECEK
  489. rNAZEVT
  490. pRIIS
  491. m1_hENTER
  492. SSM_PARAM
  493. FFPOLE1
  494. "KONT_PR
  495.  D_KOOP
  496. DILNA_KOOPW_POLE
  497. C1_NORMY
  498. BOZNAC
  499. C1_NOR
  500. C1_TEXT
  501. POSTUP
  502. TEXT1
  503. ORM1_NORMY
  504. M1_HLAVA
  505. TM1_PRIP
  506. M1_TEXT
  507. M1_MAT
  508. MOD_PSV
  509. c1_text
  510. TEXT:
  511. c1_text
  512. c1_text
  513. c1_text
  514. PRIPRAVKY:
  515. c1_text
  516. german
  517. s134a(!9
  518. C1_NOR
  519. x="POSTUP
  520. lavM1_HLAVA
  521. "OPER
  522. rM1_PRIP
  523. AM1_TEXT
  524. M1_MAT
  525. lC1_TEXT
  526. EVCIS
  527. mOZNAC
  528. GERMAN
  529. COLORMODTESTT
  530.  LCRT
  531. S134A
  532. _M1_NORMY
  533. c1_nor
  534. C1_NOR
  535. x="OZNAC
  536. lavW_POLE
  537. "PS_RETURN
  538. M1_NORMY
  539. KLOBOUKYF
  540. x="PODNIK
  541. lavMKOOP
  542. "D_KOOP
  543.  detailn
  544. znamy neexistuj
  545. set color to &barva
  546. w+/bg
  547. w+/bg
  548. w+/bg
  549. Zadejte 
  550. slo polo
  551. x="HMEZ
  552. lavDMEZ
  553. "LMEZ
  554. _RETURN
  555. lM_SCR
  556. mSTREC
  557. BARVA
  558. OLORHLASKA
  559.  W_ROZP
  560. IDENT
  561. _RAM5
  562. .HELP5
  563. ,SAYRAD5
  564.  STZAZ
  565. ehled rozpisek pro postup: F
  566. Identifikace
  567. zev polo
  568. x="M1_HLAVA
  569. vPOSTUP
  570. set color to &barx
  571. x="BARX
  572. vIDENT
  573. "NAZEV
  574. KOD_POL
  575. Konec
  576. Pohyb
  577. Enter
  578. - Esc
  579. - Home,End,PgUp,PgDn,
  580. - Vyhled
  581. r polo
  582. TISKPOST
  583. TISKVYBE
  584. TISKSING
  585. NEWROW
  586. TISKHLAV
  587. TISKPATA
  588. TISKZAHL
  589. TESTBREA
  590. MENUKAM
  591. S134A
  592. T_NAVOD
  593. VYBER_N
  594. KOOPERACE
  595. ZOBR_ROZP
  596. SAYRAD5
  597. HELP5
  598. X:\OBEC\01\
  599. S134.FXP
  600. X:\OBEC\01\S134.PRG
  601.