home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 01 / S01_PROC.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-02-26  |  23KB  |  485 lines
  1. colorz
  2. pom_C1O
  3. pom_C1O
  4. pom_C1O
  5. POM_CKC
  6. POM_ALI
  7. POM_ORD
  8. |$POM_VETA
  9. POM_OBR
  10. MMCOLOR
  11. D$8II
  12. D$POM_KONEC
  13. POM_KONTR
  14. POCETD
  15. D$8Q2
  16. D$@PQQ4
  17. D$@Q7
  18. LPOM_C1O
  19. HLAVD
  20. $ PROCD
  21. ZMENYD
  22. DEJ_STAV
  23. do Proc&y
  24. do Zmen&y with 'get'
  25. do Zmen&y with 'say'
  26. do Zmen&y with 'say'
  27. &barvau
  28. do Zmen&y with 'say'
  29. do Menu&y
  30. do Napov&y
  31. zmena&y =.f.
  32. it pr
  33. ci beze zm
  34. n? (a/N)
  35. POM_OBR
  36. POM_OBRZ
  37. M_ORD
  38. M_VETA
  39. POM_KONEC
  40. W_AKT
  41. D$8POMOC
  42. D$POM_OBRT
  43. _OBRZ
  44. POCETD
  45. T$ZMENAD
  46. KONTRD
  47. POM_KONTR
  48. TPOM_VETA
  49. $POM_C1O
  50. $@DEJ_STAV
  51. POM_ALI
  52. D$POM_ORD
  53. DAT_AKT
  54. LAKTUAL
  55. MM_AUTOR
  56. &barvaz
  57.  Detailn
  58. daje operace: 
  59. zev    :
  60. Pstr     :
  61. Prac     :
  62. Tarif    :
  63. Kvn      :
  64. NH/1000  :
  65. Tbc      :
  66. Tac      :
  67. Kusy/h   :
  68. Celkem K
  69. edpis  :
  70. Mat.     :
  71. d oper.:
  72. Typ oper.:
  73. Zmetky % :
  74. Aktual.  :
  75. Dne      :
  76. Autor    :
  77. POM_TEXT
  78. POM_C1O
  79. |$POM_NH
  80. &barvau
  81. 99999.99
  82. KLOBOUKYF
  83. POM_C1O
  84. NAZEV_OP
  85. |$PRAC
  86. POM_NH
  87. NH_TIS
  88. $8TBC
  89. D$KOOPERACE
  90. PODNIK
  91. KCSBC
  92. KCSAC
  93. PREDPIS
  94. TKOD_MAT
  95. $KOD_OPER
  96. @TYP_OPER
  97. ZMETKY
  98. D$AKTUAL
  99. DAT_AKT
  100. LAUTOR
  101. &barvau
  102. @ x,1 &vloz pom_C1O.Oper
  103. @ 8,14 &vloz pom_C1O.Nazev_Op
  104. @ 9,14 &vloz pom_C1O.DOp pict "@!"
  105. @10,14 &vloz pom_C1O.Prac pict "@!"
  106. @12,14 &vloz pom_C1O.Ptr
  107. @13,14 &vloz pom_C1O.Norm
  108. @14,14 &vloz pom_C1O.NH_Tis pict "99999.99"
  109. @15,14 &vloz pom_C1O.Tbc
  110. KLOBOUKYF
  111. @16,14 &vloz pom_C1O.Kooperace
  112. @16,14 &vloz pom_C1O.TAc
  113. @ 19,14 &vloz pom_KC pict '99999.9999'
  114. @10,67 &vloz pom_C1O.Predpis pict '@!'
  115. @12,67 &vloz pom_C1O.Kod_Mat pict "@!X"
  116. @13,67 &vloz pom_C1O.Kod_Oper
  117. @14,67 &vloz pom_C1O.Typ_Oper pict "!"
  118. @15,67 &vloz pom_C1O.Zmetky
  119. zmena&y = .t.
  120.  Operace mus
  121. t vypln
  122. @12,14 &vloz pom_C1O.Ptr
  123. @15,14 &vloz pom_C1O.Tbc
  124. pom_C1O
  125. pom_C1O
  126. Dilna
  127.  Nespr
  128.  uvedena d
  129. lna (nen
  130.  v souboru pracovi
  131. do Napov&y
  132. Ident_Zdr
  133. KLOBOUKYF
  134.  Nespr
  135.  uvedeno pracovi
  136. do Napov&y
  137.  Nejsou vypln
  138. ny NH/1000. 
  139. pom_C1O
  140. KLOBOUKYF
  141.  uveden Tac. 
  142.  Neexistuje k
  143. ivka. 
  144. p_TAc = (60 * pom_KC) / p_Tarif.Tarif&TR - pom_C1O.TBc
  145. pom_C1O
  146. m1_KMat
  147.  Nespr
  148.  uveden k
  149. d materi
  150. do Napov&y
  151. m1_KOper
  152.  Nespr
  153.  uveden k
  154. d operace. 
  155. do Napov&y
  156.  Typ operace jen V=v
  157. konov
  158. , K=kooperace, I=informativn
  159.  Jde o kooperaci, typ operace pouze K=kooperace. 
  160.  vypln
  161. n tarif, typ operace nelze nav
  162. st V=v
  163. konov
  164. pom_C1O
  165. pom_C1O
  166. zmena&y = .t.
  167. pom_C1O
  168. W_AKT
  169. KOOPERACE
  170. POM_C1O
  171. POCETD
  172. PERACE
  173. D$Q15
  174. POM_CKC
  175. POM_NH
  176. PODNIK
  177. HLASKA
  178. KCSAC
  179. KCSBC
  180. YVYPOCET
  181. $ TYP_OPER
  182. OPRAV_OBR
  183. M3_SZDR
  184. ~DILNA
  185. IDENT_ZDR
  186. _KUS_H
  187. NH_TIS
  188. P_TARIF
  189. P_TAC
  190. POM_KC
  191. KOD_MAT
  192. KOD_OPER
  193. $D_KOOP
  194. AKTUAL
  195. MM_AUTOR
  196. $DAT_AKT
  197. ny-detail operace 
  198.               - 
  199.               - ^End,Esc
  200. Pohyb
  201. Konec
  202. colorz
  203. pom_Prom
  204. m3_SZdr.Dilna
  205. ehled st
  206. edisek a pracovi
  207.  dle d
  208. .   Prac.   N
  209. zev pracovi
  210.               
  211. m3_SZdr.Dilna+'  '+m3_SZdr.Ident_Zdr+'  '+m3_Zdr.Nazev_Zdr
  212.  Zadejte d
  213. lnu: 
  214. Mod_Fun
  215. zmena&y=.t.
  216. 999999
  217. pom_Prom
  218. m3_SZdr.Ident_Zdr
  219. ehled st
  220. edisek a pracovi
  221.  dle pracovi
  222. .   Prac.   N
  223. zev pracovi
  224.               
  225. m3_SZdr.Dilna+'  '+m3_SZdr.Ident_Zdr+'  '+m3_Zdr.Nazev_Zdr
  226.  Zadejte pracovi
  227. Ident_Zdr
  228. Mod_Fun
  229. zmena&y=.t.
  230. pom_Prom
  231. m1_KMat.Kod_Mat
  232. ehled k
  233.  materi
  234. d  Popis                                   
  235. Kod_Mat+'  '+Popis
  236.  Zadejte k
  237. Mod_Fun
  238. zmena&y=.t.
  239. pom_Prom
  240. m1_KOper.Kod_Oper
  241. ehled k
  242.  operac
  243. d  Popis                                   
  244. Kod_Oper+'  '+Popis
  245.  Zadejte k
  246. Mod_Fun
  247. zmena&y=.t.
  248.  U tohoto 
  249. daje nen
  250. da ! 
  251. POM_PROM
  252. POM_ALI
  253. POM_ORD
  254. POM_VETA
  255. MMCOLOR
  256. COLOR
  257. N_LMEZ
  258. 8N_PMEZ
  259. D$N_HMEZ
  260. N_DMEZ
  261. N_PROM
  262. T$N_HOD
  263. N_POC
  264. N_TEXT
  265. N_HLAV
  266. TN_RAD
  267. $N_NVYH
  268. @M3_ZDR
  269. M3_SZDR
  270. D$IDENT_ZDR
  271. ZOBR_NAP
  272. LMOD_FUN
  273. POM_C1O
  274. DILNA
  275. T_ZDR
  276. M1_KMAT
  277. KOD_MAT
  278. YM1_KOPER
  279.  KOD_OPER
  280. HLASKA
  281. DEJ_STAV
  282.  Nevypln
  283. zev operace. 
  284.  Neexistuje k
  285. ivka. 
  286.  Neexistuje k
  287. ivka. 
  288.  vypln
  289. as Tac. 
  290. Dilna
  291.  Nespr
  292.  uvedena d
  293. lna (nen
  294.  v souboru pracovi
  295. Ident_Zdr
  296. KLOBOUKYF
  297.  Nespr
  298.  uvedeno pracovi
  299. KLOBOUKYF
  300.  uveden Tac. 
  301.  Nejsou vypln
  302. ny NH/1000. 
  303. m1_KMat
  304.  Nespr
  305.  uveden k
  306. d materi
  307. m1_KOper
  308.  Nespr
  309.  uveden k
  310. d operace. 
  311.  Typ operace jen V=v
  312. konov
  313. , K=kooperace, I=informativn
  314. POM_KONTR
  315. M_ALI
  316. POM_C1O
  317. NAZEV_OP
  318. HLASKA
  319. COLOR
  320. 8KOOPERACE
  321. T$P_TARIF
  322. POM_CKC
  323. POM_NH
  324. $M3_SZDR
  325. @DILNA
  326. D$IDENT_ZDR
  327. PODNIK
  328. NH_TIS
  329. KOD_MAT
  330. KOD_OPER
  331. TYP_OPER
  332. case &pom_Soub..Ptr ="*"
  333. repl &pom_Soub..KcsBc with 0, &pom_Soub..KcsAc with 0
  334. kr =substr(&pom_Soub..PTr,1,1)
  335. tr =substr(&pom_Soub..PTr,2,1)
  336. FFFZ^D
  337.  Neexistuje k
  338. ivka. 
  339. sele &pom_Sel
  340. p_Tarif,
  341. if pom_Kontr and p_Tarif.Tarif&tr = 0
  342.  Zadan
  343.  tarif je nulov
  344. Tabc  =&pom_Soub..TAc*1 + &pom_Soub..TBc
  345. KTabc =Tabc * p_Tarif.Tarif&tr / 60
  346. KTAc  =&pom_Soub..TAc * p_Tarif.Tarif&tr / 60
  347. repl &pom_Soub..KcsBc with KTBc,  &pom_Soub..KcsAc with KTAc
  348. colorz
  349. &barvau
  350. @ x,69 say str(&pom_Soub..KcsAc + &pom_Soub..KcsBc,10,4) 
  351. &barvaz
  352. colorz
  353. &barvau
  354. @19,14 say str(&pom_Soub..KcsAc + &pom_Soub..KcsBc,10,4)
  355. &barvaz
  356. POM_SUMY
  357. POM_KDERADPOM_SOUB
  358. POM_KONTR
  359. POM_AKTRADMMCOLOR
  360. 8TABC
  361. KTABC
  362. T$POM_SEL
  363. P_TARIF
  364. HLASKA
  365. _SZDR
  366. COLOR
  367. ADVYPIS_SUM
  368. kooperace:
  369. POM_SOUB
  370. POM_ALI
  371. DPOM_ORD
  372. POM_VETA
  373. SUMKCSAC
  374. DSUMKCSBC
  375. SUMTBC
  376. SUMTAC
  377. 8SUMKOOP
  378. SPOCTI_SUMSUMKCS
  379. SUMTB
  380. $SUMTA
  381. SUMKOO
  382. POM_SL
  383. TDEJ_STAV
  384. KOOPERACE
  385. DSUMKOOP
  386. ERACE
  387. SUMKCSAC
  388. DKCSAC
  389. SUMKCSBC
  390. KCSBC
  391. 8SUMTAC
  392. SUMSUMTBC
  393. POM_ALI
  394. POM_ORD
  395. DPOM_VETA
  396. MMCOLOR
  397. KLOBOUKYF
  398. POM_C1O
  399. DPRAC
  400. DKOOPERACE
  401. PODNIK
  402. TYP_OPER
  403. echny postupy budou p
  404. teny.
  405. et bude chv
  406. li trvat. Nikdo 
  407.  nesm
  408.  s postupy pracovat.
  409.  Ukon
  410.  Prov
  411. m_Param
  412. do TPVChyba with error()
  413. use &nazevv\m1_Hlava order Postup exclu
  414. use &nazevv\m1_Normy order Operace exclu
  415. p_Tarif
  416. xp_tarif
  417.  (operace) ...          
  418. m1_Normy
  419. POM_OBR
  420. SUMKCSAC
  421. DSUMKCSBC
  422. SUMTAC
  423. SUMTBC
  424. DSUMKOOP
  425. POCETA
  426. POCETC
  427. 8POM_VOL
  428. M_OBR
  429. MM_PARAM
  430. D_KOOP
  431. $DILNA_KOOPPOM_OTEVREP_TARIF
  432. REXP_TARIF
  433. TM1_NORMY
  434. $POM_POSTUPPOSTUP
  435. DPROCENTA
  436. M1_HLAVA
  437. PTAC_C
  438. STUPTBC_C
  439. KCSAC_C
  440. KCSBC_C
  441. KOOPER_C
  442. DATUM
  443. AKTUAL
  444. MM_AUTOR
  445. VYPOCET
  446. PSPOCTI_SUM
  447. POM_RAD
  448. POM_SL
  449. DPOM_DEL
  450. POM_POC
  451. POCETA
  452. DPOCETC
  453. KLOBOUKYF
  454. POM_DOP
  455. OPER_NE
  456. DPODNIK
  457. MKOOP
  458. D_KOOP
  459.  Nelze prov
  460. st, s daty pracuje jin
  461. ivatel !!! 
  462. do ModError with sys(16),error(),lineno(1)
  463. HLASKA
  464. DPOM_OTEVREMODERROR
  465. DET_OPER
  466. ZMENYD
  467. HLAVD
  468. PROCD
  469. ZMEND
  470. MENUD
  471. NAPOVD
  472. KONTRD
  473. VYPOCET
  474. VYPIS_SUM
  475. SPOCTI_SUM
  476. DEJ_STAV
  477. OPRAV_OBR
  478. PREP_OPER
  479. PROCENTA
  480. KOOPERACE
  481. TPVCHYBA
  482. X:\OBEC\01\
  483. S01_PROC.FXP
  484. X:\OBEC\01\S01_PROC.PRG
  485.