home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 06 / MOD62IG.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-03-10  |  23KB  |  617 lines
  1. dMOD62IGX
  2. m_param
  3. m6_srazk
  4. ident_sraz
  5. u6_mzdy
  6. m6_zam
  7. m4_organ
  8. m6_byd
  9. z6_ppar
  10. if !file('&f_adr\data\z6_posta.dbf')
  11. use &f_adr\data\z6_posta order typ_vety
  12.  pouk
  13. RIIS 6.2
  14. Funkce
  15. fun_prg
  16. Aktual.
  17. akt_zaz
  18. mod62ig
  19. Zadejte p
  20. ' '+typ_vety+' '
  21. typ_vety
  22. ' '+str(por,5)
  23. Spec. adr.
  24. spec_adr
  25. spec_adr
  26. zev adres
  27. naz_adr
  28. naz_adr
  29. Ulice
  30. ulice
  31. ulice
  32. cislo
  33. cislo
  34. st obce
  35. cast_obce
  36. cast_obce
  37. str(psc,5)
  38. va pro p
  39. jemce
  40. zprava
  41. zprava
  42. Podm.
  43. vypl_podm+'    '
  44. vypl_podm
  45. Dat.v
  46. tran(dat_vypl,'@E')+' '
  47. dat_vypl
  48. str(castka,10,2)
  49. castka
  50.     Sazba
  51. str(sazba,9,2)
  52. sazba
  53. M_PARAM
  54. dW_PICT_OSCDELKA_OSC
  55. M6_SRAZK
  56. xIDENT_SRAZU6_MZDY
  57. neOSC
  58. ech poM6_ZAM
  59. ---M4_ORGAN
  60. M6_BYD
  61. ='TZ6_PPAR
  62. o(GENERUJ
  63. +tZ6_POSTA
  64. 'POLEX
  65. =RAMECEK
  66. NAZEVT
  67. *RIIS
  68. (i)='RTOP
  69. jmRBOT
  70. ="' 'CLEFT
  71. r,5)CRIGHT
  72. i)=FREEZE
  73.  = F1
  74. zahF2
  75. ='Spec.F3
  76. jmeF4
  77. ) = "spF6
  78. )="specF9
  79. i = F10
  80. zahF10_JM
  81. zevF10PRG
  82. DETAIL
  83. )="DET_JM
  84. hENTER
  85. "nazPROCX
  86. i = F9KEY
  87. zahZAHL
  88. eJMENO
  89. o(i)HODN
  90. "uliMOD_PSV
  91. POCET
  92. dPOCETC
  93. OSCPOC
  94. RIIS 6.2
  95. imu v
  96. ru nelze prov
  97. t opravy z
  98. imu t
  99.  nelze prov
  100. t opravy z
  101. set color to b/w
  102. set color to bg/n
  103. set color to w+/bg
  104. set color to b/bg,w+/rb
  105. set color to w+/b
  106. set color to w/n
  107. &barvau
  108. CPODMV
  109. OSCCPODMS
  110. xZ6_POSTA
  111. ZTYP_VETY
  112. ech poNOVY_Z
  113. ---W_POR
  114. -W_SPEC_ADRSPEC_ADR
  115. TW_NAZ_ADR
  116. NAZ_ADR
  117. +tW_ULICE
  118. 'ULICE
  119. =W_CISLO
  120. CISLO
  121. *W_CAST
  122. )='CAST_OBCE
  123. W_OBEC
  124. ' 'OBEC
  125. r,5)W_PSC
  126. i)=PSC
  127.  = W_ZPRAVA
  128. hZPRAVA
  129. ec.W_PODM
  130. jmeVYPL_PODM
  131. W_DAT_VYPLDAT_VYPL
  132. cW_CASTKA
  133.  CASTKA
  134. zahCISELNIK
  135. )="POCET
  136. hDOP1
  137. "nazDOP2
  138. i = COUNT
  139. zahZAKAZNIK
  140. eZMENA
  141. o(i)POMOC
  142. hOK_C
  143. "uliY
  144. D_PSV
  145. i+RAD
  146. ahl(SL
  147. o(i)="KONTROLA
  148. dBARVAS
  149. sloBARVAR
  150. BARVAZ
  151. (i)BARVAU
  152. bceBARVAN
  153. (i)BARVAH
  154. bceBARVA
  155. (i)=KS
  156. ce"MENU
  157. PORADI
  158. i)=KONEC
  159. ="obecR
  160. dn(i)=Z
  161. i)='  PSQ
  162. jmeno(iA
  163. str(psc,Q1
  164. dn(iQ2
  165. i)='ZprQ5
  166. pro p
  167. jmeQ7
  168. )="zpraQ8
  169. hodn(iQ9
  170. prava"
  171. l(i)='Q12
  172. jmeZMENY
  173. vyplPS_RETURN
  174. &barva
  175.  Aktualizace po
  176. ch pouk
  177. Spec. adres
  178. zev adres
  179. Ulice
  180. st obce
  181. va pro p
  182. jemce
  183. platn
  184.  podm
  185. Datum v
  186. platy
  187. 99999
  188. 99999
  189. 99999999.99
  190. W_POR
  191. dW_SPEC_ADRW_NAZ_ADR
  192. W_ULICE
  193. xW_CISLO
  194. ZW_CAST
  195. eW_OBEC
  196.  poW_PSC
  197. ---W_ZPRAVA
  198. -W_PODM
  199. ADRW_DAT_VYPLW_CASTKA
  200. @ 11,25 &vloz w_por pict '99999'
  201. @ 12,25 &vloz w_spec_adr pict w_pict_osc
  202. @ 13,25 &vloz w_naz_adr
  203. @ 14,25 &vloz w_ulice
  204. @ 15,25 &vloz w_cislo
  205. @ 16,25 &vloz w_cast
  206. @ 17,25 &vloz w_obec
  207. @ 18,25 &vloz w_psc pict '99999'
  208. @ 19,25 &vloz w_zprava pict '@X' function 'S50'
  209. @ 20,25 &vloz w_podm
  210. @ 21,25 &vloz w_dat_vypl pict '@E'
  211. @ 22,25 &vloz w_castka pict '99999999.99'
  212. dNOVY_Z
  213. ADRPOCET
  214.  poQ5
  215. ---Q6
  216. PRAVA
  217. ADRQ8
  218. AT_VYPLQ9
  219. ASTKA
  220. +tQ11
  221. W_OSC
  222. *W_SPEC_ADRM6_ZAM
  223. W_NAZ_ADR
  224. PRIJMENI
  225. )JMENO
  226. i)=TITUL
  227.  = M6_BYD
  228. ec.BYDL_KOR
  229. eW_ULICE
  230. ULICE
  231. VYPLW_CISLO
  232. cCIS_DOMU
  233.  W_OBEC
  234. zahBYDL
  235. vW_PSC
  236. )="Z6_POSTA
  237. hPROC1
  238. zZMENA
  239. do proc&y
  240. do zmen&y with 'get'
  241. do zmen&y with 'say'
  242. mod_proc
  243. it pr
  244. ci beze zm
  245. n? (a/N)
  246. KONEC
  247. PRAVA
  248. AT_VYPLW_OSC
  249. W_SPEC_ADRZOBR_ZAM
  250. 'MOD_PROC
  251. =ZMENA
  252. _ADRM6_ZAM
  253. ADRW_NAZ_ADR
  254. PRIJMENI
  255. JMENO
  256. TITUL
  257. )M6_BYD
  258. i)=OSC
  259.  = BYDL_KOR
  260. hW_ULICE
  261. c.ULICE
  262. eW_CISLO
  263. CIS_DOMU
  264. LW_OBEC
  265. cBYDL
  266.  W_PSC
  267. zahPSC
  268. vZ6_POSTA
  269. PROC1
  270. "NOVY_Z
  271. hTYP_VETY
  272. i = ST_ZAZ
  273. zahW_POR
  274. eSPEC_ADR
  275. RNAZ_ADR
  276. CISLO
  277. liW_CAST
  278. i+CAST_OBCE
  279. W_ZPRAVA
  280. "ZPRAVA
  281. dW_PODM
  282. sloVYPL_PODM
  283. W_DAT_VYPLDAT_VYPL
  284. eW_CASTKA
  285. )CASTKA
  286. (i)=K_UDAJU
  287. e"OK_C
  288. LPOCET
  289. obecPOM
  290. Chybna specifikace adresata
  291. Castka musi byt vyplnena
  292. dM6_ZAM
  293. ADRW_SPEC_ADRHLASKA
  294. eZ6_POSTA
  295. oW_CASTKA
  296. ZMENA
  297. dW_SAZBA
  298. DRSTAN_SAZBAW_CASTKA
  299. xW_PODM
  300. ZW_DAT_VYPLPOR
  301. oW_POR
  302. -SPEC_ADR
  303. -W_SPEC_ADRNAZ_ADR
  304. PLW_NAZ_ADR
  305. ULICE
  306. _ADRW_ULICE
  307. 'CISLO
  308. =W_CISLO
  309. DRCAST_OBCE
  310. W_CAST
  311. W_OBEC
  312. )W_PSC
  313. i)=ZPRAVA
  314.  = W_ZPRAVA
  315. hVYPL_PODM
  316. DAT_VYPL
  317. eCASTKA
  318. YPLSAZBA
  319. colora
  320. set color to &color
  321. dCOLOR
  322. DROBR
  323. _SAZBA~
  324.       - 
  325.                  - ^PgDn
  326.                  - ^Home
  327.       - ^End,Esc
  328. Pohyb
  329. Konec
  330. colora
  331. SET COLOR TO &col
  332. CMESS
  333.  Tvorba diskety pro po
  334.  Generov
  335.  pouk
  336.  Konec 
  337. OBRXX
  338. dST_ZAZ
  339. DRW_VOL
  340. ZBATVOR_DISK
  341. GENERUJ
  342. ZPS_RETURN
  343. Z6_POSTA
  344. c_disk
  345.  Prob
  346.  tvorba souboru pro po
  347. tu ... 
  348. c_disk
  349. 0FFFF$K^
  350. 0FFFF$%^
  351. c_disk
  352. Disketa pro po
  353. tisk_pruv
  354. zapis
  355. mod62ig
  356. substr(veta1,1,6)
  357. substr(veta1,1,6)
  358. substr(veta1,7,70)
  359. substr(veta1,7,70)
  360. substr(veta1,77,70)
  361. substr(veta1,77,70)
  362. substr(veta1,147,70)
  363. substr(veta1,147,70)
  364. substr(veta1+veta2,217,70)
  365. substr(veta1+veta2,217,70)
  366. C_DISK
  367. dVETA1
  368. DRVETA2
  369. ZBATYP
  370. Z6_POSTA
  371. ZST_ZAZ
  372. oMOD_SYS
  373. -MESS
  374. -W_CAST_SUMW_SAZBA
  375. PLW_POC_VET
  376. _ADRTYP_VETY
  377. 'W_D2
  378. DRW_D3
  379. SPEC_ADR
  380. NAZ_ADR
  381. )ULICE
  382. i)=W_D6
  383.  = CISLO
  384. hW_D7
  385. CAST_OBCE
  386. YPLOBEC
  387. LW_D9
  388.  W_D10
  389. zahZPRAVA
  390. vW_D11
  391. VYPL_PODM
  392. W_D12
  393. hDAT_VYPL
  394. zW_KC
  395. i = CASTKA
  396. zahW_HAL
  397. eW_D13
  398. RSAZBA
  399. UMW_VETA1
  400. W_VETA2
  401. i+W_MM
  402. W_PVDS
  403. "W_CIS_POD
  404. Z6_PPAR
  405. loCIS_POD
  406. W_KOD_B
  407. PLKOD_BANKY
  408. W_PREDCIS
  409. PRED_UCET
  410. W_UCET
  411. i)=UCET
  412. e"W_KONS
  413. KONS_S
  414. )=W_SPECS
  415. LSPEC_S
  416. ecW_KC_C
  417. i)=W_HAL_C
  418. UMW_KC_SAZ
  419. MW_HAL_SAZ
  420. W_DOB_PLATDAT_PLAT
  421. ,W_S1
  422. dn(iW_S2
  423. i W_S3
  424. zW_S4
  425. ='ZprW_S5
  426. raW_S8
  427. odn(iW_S9
  428. W_S10
  429. *W_S11
  430. W_S12
  431. jmeW_S13
  432. plW_S14
  433. W_S15
  434. W_S16
  435. W_S17
  436. W_S18
  437. PLATW_S19
  438. pl.W_S20
  439. o(i)W_S21
  440. dat_W_S22
  441. E')+W_S23
  442. odn(W_S24
  443. _vypOBR
  444. +1POLEX
  445. hl(iPROCX
  446. stRTOP
  447. meno(RBOT
  448. r(casCLEFT
  449. CRIGHT
  450. ="cFREEZE
  451. i =ORDER
  452. zaZAHL
  453. '    JMENO
  454. jmeHODN
  455. "str(TITLE
  456. ,2)"TITLECOLORF1
  457. -------F3
  458. steni pF4
  459. amu modF6
  460. -------F7
  461. -------F9
  462. do mF10
  463. relDETAIL
  464. l, F1PRG
  465. hodnF4_JM
  466. *F4PRG
  467. ****F7_JM
  468. ****F7PRG
  469. ****F9KEY
  470. ****F10_JM
  471. ***F10PRG
  472. ***DET_JM
  473. cedDETPRG
  474. entRAMECEK
  475. poNAZEVT
  476. f pRIIS
  477. ocetcTISKPRG
  478. t=PS_RETURN
  479. PS_LINE
  480. PrMOD_PSV
  481.  Disketa A: 
  482.  Disketa B: 
  483.  Konec 
  484. !&pth\test_d &w_vyst
  485. ERROR
  486. Disketa nebyla vlo
  487.  Prob
  488.  tvorba instala
  489.  diskety ... 
  490. copy all to &soub_txt sdf
  491. ! &pth\arj a &soub &soub_txt >nul
  492. ! copy &soub_arj &w_vyst /v >nul
  493. delete file &soub_arj
  494. delete file &soub_txt
  495. W_OBR1
  496. dVOLX
  497. DRW_VYST
  498. ZBATEST
  499. HLASKA
  500. ZMESS
  501. C_DISK
  502. oSOUB
  503. -W_CIS_POD
  504. SOUB_TXT
  505. MSOUB_ARJ
  506. mod_lib
  507. mod_lib
  508.  Prob
  509.  tisk  ... 
  510. mod62ig
  511. P_SETUP
  512. dP_RESET
  513. DRP_6LPI
  514. ZBAP_8LPI
  515. P_10CPI
  516. ZP_12CPI
  517. P_16CPI
  518. oP_20CPI
  519. -P_BOLDON
  520. P_BOLDOFF
  521. P_ULINEON
  522. P_ULINEOFFP_ITALON
  523. RP_ITALOFF
  524. P_SUPERON
  525. P_SUPEROFFP_SUBON
  526. P_SUBOFF
  527. P_DBST_ON
  528. P_DBST_OFFP_LETRQUALP_DRAFT
  529. )=P_COMP_OFFP_WIDT_ON
  530. P_WIDT_OFFP_HEIG_ON
  531. P_HEIG_OFFP_NEWPAGE
  532. NULUJ_TISKMOD_LIB
  533.  W_TISK
  534. zahNASTAV_PRNSOUB
  535. W_CIS_POD
  536. SOUB_TXT
  537. hOBRT
  538. zMESS
  539. i = MOD62IG
  540. if file('&f_adr\data\z6_posta.dbf')
  541. use &f_adr\data\z6_posta order typ_vety excl
  542. use &f_adr\data\z6_posta order typ_vety
  543. create dbf &f_adr\data\z6_posta (typ_vety c(1), por n(5),  spec_adr c(15), naz_adr c(40), ulice c(40), cislo c(8), cast_obce c(40),  obec c(40), psc n(5), zprava c(60), vypl_podm c(1), dat_vypl d(8),  castka n(11,2))
  544.  Tvorba souboru Z6_POSTA.DBF ...  
  545. z6_posta
  546. Z6_POSTA
  547. dTYP_VETY
  548. ZBAOBR
  549. MOD_SYS
  550. 12CPI
  551. U6_MZDY
  552. oPOCET
  553. -POCETC
  554. W_POR
  555. W_ULICE
  556. W_CIS_DOMUW_BYDL
  557. RW_PSC
  558. UPERON
  559. M6_ZAM
  560. OFFOSC
  561. M6_SRAZK
  562. IDENT_DOKLZP_PLATS
  563. FBYDL
  564. RQUALPSC
  565. )=ULICE
  566. _OFFCIS_DOMU
  567. W_JMENO
  568. FFPRIJMENI
  569. JMENO
  570. _OFFTITUL
  571. UW_CASTKA
  572. UCASTKA
  573.  W_SAZBA
  574. ahW_PODM
  575. PRNSTAN_SAZBASPEC_ADR
  576. NAZ_ADR
  577. hCISLO
  578. zOBEC
  579. i = SAZBA
  580. ahPROCENTA
  581. UPS_RETURN
  582. FFFZ^D
  583. select &st_sel
  584. W_OSC
  585. dW_ULICE
  586. RW_CIS_DOMUW_BYDL
  587. W_PSC
  588. ZST_SEL
  589. ST_BYD
  590. oM6_BYD
  591. M6_ZAM
  592. BYDL_KOR
  593. ULICE
  594. MUCIS_DOMU
  595. UBYDL
  596. W_CASTKA
  597. dW_SAZBA
  598. RW_PODM
  599. OMUW_DAT_VYPLMOD62IGX
  600. PROCENTA
  601. AKT_ZAZ
  602. PORADI
  603. PROC1
  604. ZMEN1
  605. ZMENY
  606. K_UDAJU
  607. HLASKA
  608. FUN_PRG
  609. TVOR_DISK
  610. ZAPIS
  611. TISK_PRUV
  612. GENERUJ
  613. STAN_SAZBA
  614. X:\OBEC\06\
  615. MOD62IG.FXP
  616. X:\OBEC\06\MOD62IG.PRG
  617.