home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / ZAKL.EXE / S01_PROC.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-04-14  |  37KB  |  867 lines
  1. filterz
  2. colorz
  3. pom_C1O
  4. pom_C1O
  5. pom_C1O
  6. POM_CKC
  7. POM_ALI
  8. POM_ORD
  9. POM_VETA
  10. POM_FILT
  11. MMCOLOR
  12. POM_OBR
  13. PVLOZ
  14. TUPII
  15. _POSTUPPOM_KONEC
  16. POM_KONTR
  17. POCETD
  18. AUTOR
  19. NORMY
  20. NORMY
  21. POSTUPQ11
  22. NAZNOVQ12
  23. H_POSTQ13
  24. NOVYP
  25. ARNAQ
  26. NAPOM_C1O
  27. HLAVD
  28. PROCD
  29. ZMENYD
  30. DEJ_STAV
  31. do Proc&y
  32. do Zmen&y with "get"
  33. do Zmen&y with "say"
  34. do Zmen&y with "say"
  35. &barvau
  36. do Zmen&y with "say"
  37. do Menu&y
  38. do Napov&y
  39. if not w_Akt or not Zmena&y
  40. Zmena&y   =.f.
  41. it pr
  42. ci beze zm
  43. n? (a/N)
  44. POM_OBR
  45. POM_OBRZ
  46. M_ORD
  47. M_VETA
  48. POM_KONEC
  49. W_AKT
  50. APOMOC
  51. TUPPOM_OBRT
  52. _OBRZ
  53. POCETD
  54. ZMENAD
  55. KONTRD
  56. POM_KONTR
  57. DEJ_STAV
  58. POM_ALI
  59. POM_ORD
  60. POM_VETA
  61. POM_FILT
  62. DAT_AKT
  63. AKTUAL
  64. MM_AUTOR
  65. PPOM_C1O
  66. &barvaz
  67.  Detailn
  68. daje operace: 
  69. zev    :
  70. Pstr     :
  71. Prac     :
  72. Tarif    :
  73. Kvn      :
  74. NH/1000  :
  75. Tbc      :
  76. Tac      :
  77. Kusy/h   :
  78. Celkem K
  79. edpis  :
  80. Mat.     :
  81. d oper.:
  82. Typ oper.:
  83. Zmetky % :
  84. Aktual.  :
  85. Dne      :
  86. Autor    :
  87. POM_TEXT
  88. POM_C1O
  89. POM_NH
  90. &barvau
  91. 99999.99
  92. PALVF
  93. POM_C1O
  94. NAZEV_OP
  95. POM_NH
  96. PNH_TIS
  97. UPKOOPERACE
  98. ID_ORG
  99. KCSBC
  100. KCSAC
  101. PREDPIS
  102. KOD_MAT
  103. KOD_OPER
  104. TYP_OPER
  105. ZMETKY
  106. AKTUAL
  107. DAT_AKT
  108. AUTOR
  109. &barvau
  110. @ x,1 &vloz pom_C1O.Oper
  111. @ 7,14 &vloz pom_C1O.Nazev_Op
  112. @ 8,14 &vloz pom_C1O.DOp pict "@!"
  113. @ 9,14 &vloz pom_C1O.Prac pict "@!"
  114. @11,14 &vloz pom_C1O.Ptr
  115. @12,14 &vloz pom_C1O.Norm
  116. @13,14 &vloz pom_C1O.NH_Tis pict "99999.99"
  117. @14,14 &vloz pom_C1O.Tbc
  118. PALVF
  119. @15,14 &vloz pom_C1O.Kooperace
  120. @15,14 &vloz pom_C1O.TAc
  121. @18,14 &vloz pom_KC pict "99999.9999"
  122. @ 9,67 &vloz pom_C1O.Predpis pict "@!"
  123. @11,67 &vloz pom_C1O.Kod_Mat pict "@!X"
  124. @12,67 &vloz pom_C1O.Kod_Oper pict "@!X"
  125. @13,67 &vloz pom_C1O.Typ_Oper pict "!"
  126. @14,67 &vloz pom_C1O.Zmetky
  127. Zmena&y =.t.
  128.  Operace mus
  129. t vypln
  130. @11,14 &vloz pom_C1O.Ptr
  131. @14,14 &vloz pom_C1O.Tbc
  132. pom_C1O
  133. pom_C1O
  134. Zmena&y =.t.
  135. Zmena&y =.t.
  136. Zmena&y =.t.
  137. Dilna
  138.  Nespr
  139.  uvedena d
  140. lna (nen
  141.  v souboru pracovi
  142. do Napov&y
  143. Ident_Zdr
  144. PALVF
  145.  Nespr
  146.  uvedeno pracovi
  147. do Napov&y
  148. Zmena&y =.t.
  149. Zmena&y =.t.
  150. Zmena&y =.t.
  151.  Nejsou vypln
  152. ny NH/1000. 
  153. pom_C1O
  154. PALVF
  155.  uveden Tac. 
  156.  Neexistuje k
  157. ivka. 
  158. p_TAc =(60 * pom_KC) / p_Tarif.Tarif&TR - pom_C1O.TBc
  159. pom_C1O
  160. m1_KMat
  161.  Nespr
  162.  uveden k
  163. d materi
  164. do Napov&y
  165. m1_KOper
  166.  Nespr
  167.  uveden k
  168. d operace. 
  169. do Napov&y
  170.  Typ operace jen V=v
  171. konov
  172. , K=kooperace, I=informativn
  173.  Jde o kooperaci, typ operace pouze K=kooperace. 
  174. Zmena&y =.t.
  175.  vypln
  176. n tarif, typ operace nelze nav
  177. st V=v
  178. konov
  179. pom_C1O
  180. pom_C1O
  181. Zmena&y =.t.
  182. pom_C1O
  183. W_AKT
  184. KOOPERACE
  185. POM_C1O
  186. POCETD
  187. PERACE
  188. POM_CKC
  189. OVPOM_NH
  190. ID_ORG
  191. NAHLASKA
  192. KCSAC
  193. KCSBC
  194. LVYPOCET
  195. TYP_OPER
  196. OPRAV_OBR
  197. M3_SZDR
  198. FDILNA
  199. IDENT_ZDR
  200. _KUS_H
  201. ORNH_TIS
  202. P_TARIF
  203. SSP_TAC
  204. FFPOM_KC
  205. KOD_MAT
  206. KOD_OPER
  207. D_KOOP
  208. AKTUAL
  209. MM_AUTOR
  210. LDAT_AKT
  211. ny-detail operace 
  212.               - 
  213.               - ^End,Esc
  214. Pohyb
  215. Konec
  216. filterz
  217. colorz
  218. pom_Prom
  219. m3_SZdr.Dilna
  220. ehled st
  221. edisek a pracovi
  222.  dle d
  223. .  Prac.   N
  224. zev pracovi
  225.               
  226. m3_SZdr.Dilna+'  '+m3_SZdr.Ident_Zdr+'  '+m3_Zdr.Nazev_Zdr
  227.  Zadejte d
  228. lnu: 
  229. Mod_Fun
  230. Zmena&y =.t.
  231. 999999
  232. pom_Prom
  233. m3_SZdr.Ident_Zdr
  234. ehled st
  235. edisek a pracovi
  236.  dle pracovi
  237. .  Prac.   N
  238. zev pracovi
  239.               
  240. m3_SZdr.Dilna+'  '+m3_SZdr.Ident_Zdr+'  '+m3_Zdr.Nazev_Zdr
  241.  Zadejte pracovi
  242. Ident_Zdr
  243. Mod_Fun
  244. Zmena&y =.t.
  245. s01_Proc
  246. pom_Prom
  247. m1_KMat.Kod_Mat
  248. ehled k
  249.  materi
  250. d  Popis                                   
  251. Kod_Mat+'  '+Popis
  252.  Zadejte k
  253. Mod_Fun
  254. Zmena&y =.t.
  255. pom_Prom
  256. m1_KOper.Kod_Oper
  257. ehled k
  258.  operac
  259. d  Popis                                   
  260. Kod_Oper+'  '+Popis
  261.  Zadejte k
  262. Mod_Fun
  263. Zmena&y =.t.
  264.  Typ operace jen V=v
  265. konov
  266. , K=kooperace, I=informativn
  267.  U tohoto 
  268. daje nen
  269. da ! 
  270. POM_PROM
  271. POM_ALI
  272. POM_ORD
  273. POM_VETA
  274. POM_FILT
  275. MMCOLOR
  276. COLOR
  277. AN_LMEZ
  278. PN_PMEZ
  279. N_HMEZ
  280. N_DMEZ
  281. N_PROM
  282. N_HOD
  283. N_POC
  284. N_TEXT
  285. N_HLAV
  286. N_RAD
  287. N_NVYH
  288. N_CCUR
  289. M3_ZDR
  290. M3_SZDR
  291. IDENT_ZDR
  292. ZOBR_NAP
  293. VMOD_FUN
  294. POM_C1O
  295. DILNA
  296. NT_ZDR
  297. ZOBR_TARIFS01_PROC
  298. M1_KMAT
  299. KOD_MAT
  300. M1_KOPER
  301. KOD_OPER
  302. HLASKA
  303. ORDEJ_STAV
  304.  Nevypln
  305. zev operace. 
  306.  Neexistuje k
  307. ivka. 
  308.  Neexistuje k
  309. ivka. 
  310.  vypln
  311. as Tac. 
  312. Dilna
  313.  Nespr
  314.  uvedena d
  315. lna (nen
  316.  v souboru pracovi
  317. Ident_Zdr
  318. PALVF
  319.  Nespr
  320.  uvedeno pracovi
  321. PALVF
  322.  uveden Tac. 
  323.  Nejsou vypln
  324. ny NH/1000. 
  325. m1_KMat
  326.  Nespr
  327.  uveden k
  328. d materi
  329. m1_KOper
  330.  Nespr
  331.  uveden k
  332. d operace. 
  333.  Typ operace jen V=v
  334. konov
  335. , K=kooperace, I=informativn
  336. POM_KONTR
  337. M_ALI
  338. POM_C1O
  339. NAZEV_OP
  340. HLASKA
  341. COLOR
  342. AKOOPERACE
  343. P_TARIF
  344. POM_CKC
  345. POM_NH
  346. M3_SZDR
  347. DILNA
  348. IDENT_ZDR
  349. ID_ORG
  350. VNH_TIS
  351. KOD_MAT
  352. AKOD_OPER
  353. TYP_OPER
  354. colorz
  355. case &pom_Soub..Ptr ="*"
  356. repl &pom_Soub..KcsBc with 0,  &pom_Soub..KcsAc with 0
  357. kr =substr(&pom_Soub..PTr,1,1)
  358. tr =substr(&pom_Soub..PTr,2,1)
  359. FFFZ^D
  360.  Neexistuje k
  361. ivka. 
  362. sele &pom_Sel
  363. p_Tarif,
  364. if pom_Kontr and p_Tarif.Tarif&tr = 0
  365.  Zadan
  366.  tarif je nulov
  367. Tabc  =&pom_Soub..TAc*1 + &pom_Soub..TBc
  368. KTabc =Tabc * p_Tarif.Tarif&tr / 60
  369. KTAc  =&pom_Soub..TAc * p_Tarif.Tarif&tr / 60
  370. repl &pom_Soub..KcsBc with KTBc,  &pom_Soub..KcsAc with KTAc
  371. &barvau
  372. @ pom_KdeRad, pom_KdeSl say str(&pom_Soub..KcsAc + &pom_Soub..KcsBc,10,4)
  373. &barvaz
  374. POM_SUMY
  375. POM_KDERADPOM_KDESL
  376. POM_SOUB
  377. POM_KONTR
  378. KTABC
  379. PKTAC
  380. AKTBC
  381. POM_SEL
  382. MMCOLOR
  383. P_TARIF
  384. HLASKA
  385. _SZDR
  386. VYPIS_SUM
  387. filterz
  388. kooperace:
  389. POM_SOUB
  390. POM_ALI
  391. DPOM_ORD
  392. POM_VETA
  393. POM_FILT
  394. SUMKCSAC
  395. SUMKCSBC
  396. PSUMTBC
  397. ASUMTAC
  398. SUMKOOP
  399. SPOCTI_SUMSUMKCS
  400. SUMTB
  401. SUMTA
  402. SUMKOO
  403. POM_SL
  404. DEJ_STAV
  405. KOOPERACE
  406. DSUMKOOP
  407. ERACE
  408. SUMKCSAC
  409. KCSAC
  410. SUMKCSBC
  411. PKCSBC
  412. ASUMTAC
  413. SUMTBC
  414. SUMTBC
  415. set filter to &pom_Filt
  416. POM_ALI
  417. POM_ORD
  418. DPOM_VETA
  419. POM_FILT
  420. MMCOLOR
  421. PALVF
  422. POM_C1O
  423. DPRAC
  424. KOOPERACE
  425. ID_ORG
  426. TYP_OPER
  427. echny postupy budou p
  428. teny.
  429. et bude chv
  430. li trvat. Nikdo 
  431.  nesm
  432.  s postupy pracovat.
  433.  Ukon
  434.  Prov
  435. m_Param
  436. do TPVChyba with error()
  437. use &pom_NazAdr\m1_Hlava order Postup exclu
  438. use &pom_NazAdr\m1_Normy order Operace exclu
  439. p_Tarif
  440. xp_tarif
  441.  (operace) ...          
  442. m1_Normy
  443. POM_OBR
  444. SUMKCSAC
  445. DSUMKCSBC
  446. SUMTAC
  447. SUMTBC
  448. SUMKOOP
  449. POCETA
  450. PPOCETC
  451. APOM_VOL
  452. M_OBR
  453. M_PARAM
  454. UMD_KOOP
  455. DILNA_KOOPPOM_OTEVREP_TARIF
  456. REXP_TARIF
  457. M1_NORMY
  458. POM_POSTUPPOSTUP
  459. PROCENTA
  460. M1_HLAVA
  461. PTAC_C
  462. STUPTBC_C
  463. KCSAC_C
  464. VKCSBC_C
  465. KOOPER_C
  466. DATUM
  467. AKTUAL
  468. AMM_AUTOR
  469. VYPOCET
  470. PSPOCTI_SUM
  471. POM_RAD
  472. POM_SL
  473. DPOM_DEL
  474. POM_POC
  475. POCETA
  476. POCETC
  477. PALVF
  478. POM_DOP
  479. OPER_NE
  480. DID_ORG
  481. MKOOP
  482. D_KOOP
  483.  Nelze prov
  484. st, s daty pracuje jin
  485. ivatel !!! 
  486. do ModError with sys(16),error(),lineno(1)
  487. HLASKA
  488. DPOM_OTEVREMODERROR
  489. filterz
  490. colorz
  491. pom_Pom
  492. vzorovy\m1_Normy
  493. Operace
  494. pom_VOper
  495. ehled vzorov
  496. ch operac
  497.  Op  N
  498. zev      Pstr  Prac  Tr Kvn NH/tis Tbc       Tac    P
  499. edpis Celkem K
  500. oper+' '+nazev_op+' '+dop+' '+prac+' '+ptr+' '+norm+' '+      str(nh_tis,8,2)+' '+str(tbc,4)+' '+str(iif (empty(TAc), Kooperace, TAc),10,4)+' '+left(predpis,8)+str(kcsbc+kcsac,10,4)
  501.  Op  N
  502. zev      Pstr  Prac  Tr Kvn Tbc       Tac  Kusy/h   P
  503. edpis Celkem K
  504. oper+' '+nazev_op+' '+dop+' '+prac+' '+ptr+' '+norm+' '+      str(tbc,4)+' '+str(iif (empty(TAc), Kooperace, TAc),10,4)+' '+nc+' '+predpis+str(kcsbc+kcsac,10,4)
  505. Mod_Fun
  506. s01_Proc
  507. POM_ALI
  508. POM_ORD
  509. DPOM_VETA
  510. EPOM_FILT
  511. MMCOLOR
  512. POM_OBR
  513. POM_POM
  514. PVZOROVY
  515. AOPERACE
  516. POSTUP
  517. POM_VPOSTUPOM_VOPER
  518. N_LMEZ
  519. OOPN_PMEZ
  520. VREN_HMEZ
  521. REN_DMEZ
  522. N_PROM
  523. N_HOD
  524. STUPN_POC
  525. N_TEXT
  526. N_CCUR
  527. PPOM_NH
  528. TUPN_HLAV
  529. N_RAD
  530. VZOBR_NAP
  531. MOD_FUN
  532. DEJ_STAV
  533. S01_PROC
  534. filterz
  535. colorz
  536. pom_Pom
  537. vzorovy\m1_Hlava
  538. Postup
  539. VZOR:
  540. pom_VPostup
  541. pom_V2Postup
  542. Postup
  543. ehled vzorov
  544. ch postup
  545.   Postup      N
  546. zev              K.d
  547. Postup + '  ' + Nazev + '  ' + KStr
  548. Hled_Post
  549. Postup
  550. Mod_Fun
  551. pom_Pom
  552. s01_Proc
  553. POM_JEN_VZPOM_ALI
  554. VZPOM_ORD
  555. EPOM_VETA
  556. POM_OBR
  557. POM_FILT
  558. MMCOLOR
  559. PPOM_POM
  560. AVZOROVY
  561. POSTUP
  562. POM_VPOSTUPOM_V2POSTN_LMEZ
  563. OOPN_PMEZ
  564. VREN_HMEZ
  565. REN_DMEZ
  566. N_PROM
  567. _VZN_HOD
  568. TUPN_POC
  569. N_TEXT
  570. N_HLAV
  571. PN_RAD
  572. TUPN_VYB
  573. N_CCUR
  574. VM_ORD2
  575. ZOBR_NAP
  576. MOD_FUN
  577. DEJ_STAV
  578. AS01_PROC
  579. colorz
  580.  Vyhled
  581. Zadejte 
  582. slo nebo n
  583. zev postupu
  584. &barvau
  585. POSTUP
  586. POSTUP
  587. Nazev
  588. nazev
  589. Postup
  590. postup
  591. POSTUP
  592.  Postup nebyl nalezen ! 
  593. Postup
  594. postup
  595. Postup
  596. postup
  597. POM_KLIC
  598. ZPOM_UPKLICMMCOLOR
  599. EM_ORD2
  600. CKLIC
  601. NAZEV
  602. CPOSTUP
  603. PHLASKA
  604. c1_Normy
  605. _KUS_H
  606. ZC1_NORMY
  607. CVYPOCET
  608. EPREP_NH
  609. CKOOPERACE
  610. CTYP_OPER
  611. POM_VYPSATC1_NORMY
  612. C_KUS_H
  613. NORMY
  614. CPOM_NH
  615. M_VYPSAT
  616. filterz
  617. colorz
  618. POM_SOUB
  619. TPOM_ALI
  620. TPOM_ORD
  621. EPOM_VETA
  622. CPOM_FILT
  623. MMCOLOR
  624. CKCSAC
  625. PKCSBC
  626. PSATTBC
  627. SATTAC
  628. KOOPERACE
  629. SUMKCSAC
  630. TSUMKCSBC
  631. PSUMTBC
  632. VRESUMTAC
  633. RESUMKOOP
  634. POM_POCOP
  635. DEJ_STAV
  636. filterz
  637. colorz
  638. pom_Pom
  639. vzorovy\m1_Normy
  640. Operace
  641. pom_Pom+
  642. pom_Pom
  643.  Postup 
  644.  operace ! 
  645. pom_Pom
  646.  Prob
  647.  operac ... 
  648.  Prob
  649.  postupu ... 
  650. pom_Pom
  651. pom_Pom
  652. vzorovy\m1_Prip
  653. Operace
  654. pom_Pom
  655. pom_Pom+
  656. pom_Pom
  657. pom_Pom
  658. pom_Pom
  659. vzorovy\m1_Text
  660. Operace
  661. pom_Pom
  662. pom_Pom+
  663. pom_Pom
  664. pom_Pom
  665. pom_Pom
  666. vzorovy\m1_Mat
  667. Postup
  668. pom_Pom
  669. vzorovy\m1_Hlava
  670. Postup
  671. pom_Pom
  672. POM_JEN_OPPOM_I_HLAVPOM_AKTPOSPOM_VYBPOSPOM_AKTOPEPOM_VYBOPEPOM_ALI
  673. PEPOM_ORD
  674. ATPOM_VETA
  675. TPOM_FILT
  676. MMCOLOR
  677. C1_NORMY
  678. PPOM_POM
  679. OPVZOROVY
  680. REOPERACE
  681. REPOSTUP
  682. OSHLASKA
  683. OSDEJ_STAV
  684. SPOM_KOPIE
  685. EN_OPURCENI
  686. _OPDOP
  687. NAZEV_OP
  688. EV_OP
  689. PPREDPIS
  690. UMOPER
  691. KCSAC
  692. KCSBC
  693. KOOPERACE
  694. NH_TIS
  695. C1_PRIP
  696. PEC1_TEXT
  697. PEC1_MAT
  698. POSW_OPER
  699. POSW_URCENI
  700. W_POCOP
  701. ORPOCOP
  702. W_KSTR
  703. W_RADA
  704. SSRADA
  705. FFW_NAZEV
  706. NAZEV
  707. W_OSTR
  708. W_TYP_POSTW_KS_STROJKS_STROJ
  709. RW_KCSAC_C
  710. KCSAC_C
  711. W_KCSBC_C
  712. KCSBC_C
  713. W_KOOPER_CKOOPER_C
  714. OW_AKTUAL
  715. EMM_AUTOR
  716. EW_DATUM
  717. colora
  718. POM_TXT
  719. OPMMCOLOR
  720. colora
  721. POM_TXT
  722. OPPOM_OBR
  723. AVMMCOLOR
  724. filterz
  725. colorz
  726.  Tabulka   m z d o v 
  727.  c h   tarif
  728. da  St-  1      2      3      4      5      6      7      8      9
  729. '    ' + Krivka + '     ' + str(Tarif1,5,2) + '  ' + str(Tarif2,5,2) + '  '
  730. + str(Tarif3,5,2) + '  ' + str(Tarif4,5,2) + '  ' + str(Tarif5,5,2) + '  '
  731. + str(Tarif6,5,2) + '  ' + str(Tarif7,5,2) + '  ' + str(Tarif8,5,2) + '  ' + str(Tarif9,5,2)
  732. Mod_Fun
  733. POM_ALI
  734. OPPOM_ORD
  735. AVPOM_VETA
  736. SPOM_FILT
  737. SMMCOLOR
  738. PEPOM_OBR
  739. PEN_LMEZ
  740. EN_PMEZ
  741. ATN_HMEZ
  742. TN_DMEZ
  743. N_PROM
  744. N_HOD
  745. PN_POC
  746. OPN_TEXT
  747. REN_HLAV
  748. REN_RAD1
  749. OSN_RAD2
  750. OSN_RAD3
  751. SN_RAD
  752. N_NVYH
  753. N_CCUR
  754. _OPP_TARIF
  755. OPZOBR_NAP
  756. MOD_FUN
  757. VDEJ_STAV
  758. POM_VYPSATC1_NORMY
  759. S_KUS_H
  760. NORMY
  761. EPOM_NH
  762. M_VYPSAT
  763. colorz
  764. &pom_Bar
  765. @ pom_R,1  say &pom_Soub..Oper
  766. @ pom_R,5  say &pom_Soub..Nazev_Op
  767. @ pom_R,17 say &pom_Soub..DOp
  768. @ pom_R,22 say &pom_Soub..Prac
  769. @ pom_R,29 say &pom_Soub..PTr
  770. @ pom_R,32 say &pom_Soub..Norm
  771. @ pom_R,35+pom_Sl say &pom_Soub..TBc
  772. if Kooperace(&pom_Soub..DOp,.f.)
  773. @ pom_R,40+pom_Sl say &pom_Soub..Kooperace
  774. @ pom_R,40+pom_Sl say &pom_Soub..TAc
  775. @ pom_R,51 say &pom_Soub..Nc
  776. @ pom_R,58 say &pom_Soub..Predpis   
  777. @ pom_R,35 say &pom_Soub..NH_Tis pict "99999.99"
  778. @ pom_R,60 say &pom_Soub..Predpis size 1,8  
  779. @ pom_R,69 say str(&pom_Soub..KcsBc + &pom_Soub..KcsAc,10,4)
  780. POM_R
  781. PSATPOM_BAR
  782. TPOM_SOUB
  783. SMMCOLOR
  784. SPOM_NH
  785. colorz
  786. &barvau
  787. @ x,17 say &pom_Soub..DOp
  788. @ x,22 say &pom_Soub..Prac
  789. @ x,29 say &pom_Soub..Ptr
  790. @ x,35+pom_Sl say &pom_Soub..TBc
  791. if Kooperace(&pom_Soub..DOp,.f.)
  792. PALVF
  793. @ x,40+pom_Sl say &pom_Soub..TAc
  794. @x,51 say iif(&pom_Soub..TAc=0,str(0,6,1),str(round(60/&pom_Soub..TAc,1),6,1))
  795. @ x,40+pom_Sl say &pom_Soub..Kooperace
  796. @ x,51 say &pom_Soub..Nc
  797. @ x,40+pom_Sl say &pom_Soub..TAc
  798. @ x,51 say iif(&pom_Soub..TAc=0, str(0,6,1), str(round(60/&pom_Soub..TAc,1),6,1))
  799. POM_SOUB
  800. TMMCOLOR
  801. TW_AKT
  802. SID_ORG
  803. SPOM_NH
  804. use in &pom_Soub
  805. use &pom_Soub exclu
  806. pom_Hodn =&pom_Soub..Ident
  807. pom_Hodn
  808. n_hod  ="&pom_Soub..Ident"
  809. ehled rozpisek 
  810. Identifikace  N
  811. zev polo
  812. ky              K
  813. n_rad  ="&pom_Soub..Ident + space(2) + &pom_Soub..Nazev + space(2) + &pom_Soub..Kod_Pol + space(2)"
  814.  Zadejte identifikaci: 
  815. Mod_Fun
  816. use in &pom_Soub
  817. POM_SOUB
  818. TIDENT
  819. TN_LMEZ
  820. SN_PMEZ
  821. SN_HMEZ
  822. PEN_DMEZ
  823. EN_PROM
  824. EN_POC
  825. PSATN_TEXT
  826. SATN_HLAV
  827. N_NVYH
  828. N_CCUR
  829. PZOBR_NAP
  830. PMOD_FUN
  831. POM_POST
  832. TPOSTUP
  833. TSPOCTI_SUMDET_OPER
  834. ZMENYD
  835. HLAVD
  836. PROCD
  837. ZMEND
  838. MENUD
  839. NAPOVD
  840. KONTRD
  841. VYPOCET
  842. VYPIS_SUM
  843. SPOCTI_SUM
  844. DEJ_STAV
  845. OPRAV_OBR
  846. PREP_OPER
  847. PROCENTA
  848. KOOPERACE
  849. TPVCHYBA
  850. ZOBR_OPER
  851. ZOBR_POSTU
  852. HLED_POST
  853. PREP_NORVS
  854. PREP_NH
  855. CELKEM_KC
  856. KOP_OPER
  857. HLASKA
  858. ZOBR_TARIF
  859. PREP_NH
  860. 1veta
  861. OPRAV_1OPE
  862. ZOBR_ROZP
  863. SPOCTI_TIS
  864. P:\IN\SK\
  865. S01_PROC.FXP
  866. P:\IN\SK\S01_PROC.PRG
  867.