home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 November / PCWorld_2000-11_cd.bin / Software / komercni / ekonom / PRO_DOS / INSTALL.EXE / rar / ADRESY.FXP (.txt) next >
MS Visual FoxPro App  |  2000-10-13  |  21KB  |  647 lines
  1. zev firmy
  2. FFRFQI
  3. adpoznam
  4. adresy
  5. zev firmy
  6. padr(trim(iif(empty(adresa1),chr(16),adresa1))+iif(empty(adresa2),'',', ')+trim(adresa2)+iif(empty(adresa3),'',', ')+trim(adresa3)+iif(empty(adresa4),'',', ')+trim(adresa4),68)+iif(tisk,' 
  7. ','  ')
  8. (Mez/F
  9. idej/Vyber (Ctrl+A)Zobraz (F1)Pomoc (F4)Hledej (Esc)Ven
  10. (Mez/F3)P
  11. id/Zru
  12. )Vyber (F1)Pomoc (F4)Hledej (Esc)Ven
  13. adresa
  14. ADRES
  15. keyadresy
  16. p_ord
  17. sele &p_sel
  18. P_SELEKT
  19. AP_NADPIS
  20. OP_RADEK
  21. KOP_HELPLINEP_SEL
  22. ZAKVP_REC
  23. P_HLEVOLBAP_KEYLEFT
  24. P_KEYIN
  25. NAP_HLEDKEY
  26. P_SEEKKEY
  27. P_NAZKLIC
  28. AZKLIC
  29. A_MEP_ORD
  30. EADRESA
  31. INEBROWSE
  32. adresy
  33. Ctrl-A
  34. do procbrowse with 'vybadr'
  35. Spacebar
  36. do selpriadr
  37. do adbrowhled
  38. Ctrl-Uparrow
  39. do hledej
  40. Ctrl-Dnarrow
  41. do hledej
  42. Ctrl-T
  43. do procbrowse with 'tisk'
  44. Ctrl-O
  45. do oznacadr1
  46. Ctrl-E
  47. do procbrowse with 'optiadresy'
  48. Ctrl-I
  49. do procbrowse with 'prehpohzav with "ico",ico in KNIHY'
  50. Alt-I
  51. do procbrowse with "prehpzall"
  52. Ctrl-V
  53. do procbrowse with 'slevskupi in SKLAD'
  54. Ctrl-K
  55. do spockredit with ico in FAKTURY
  56. Ctrl-L
  57. do spoclimit with ico in FAKTURY
  58. generace\generace.fxp2
  59. Ctrl-G
  60. do generace\generace
  61. G_HELPKEY
  62. P_SELEKT
  63. OCTRL
  64. HELPLINESPACEBAR
  65. VALLKEY
  66. LEVOLBAUPARROW
  67. DNARROW
  68. A_MEG_KONFIR
  69. stup na tisk
  70. KNIHY
  71. if &iesc
  72. P_TISK
  73. DOTAZ
  74. OPREHPOHZAVICO
  75. LPLINEKNIHY
  76. Opravdu prov
  77. st optimalizaci adres
  78. lohovan
  79.  data?
  80. adpoznam
  81. ekejte, sortuji doklady...
  82. adpoznam
  83. adresa
  84. DOTAZ
  85. OPEXDBF
  86. OADRESY
  87. ZAVICO
  88. INESLOUPEC
  89. P_NICO
  90. LBAP_CELKEM
  91. OPRAVICO
  92. AADRESA
  93. ZRUSLOUPEC
  94. ADRESTIT.001
  95. ADRESY.001  
  96. adresy
  97. restore from &p_prikaz additive
  98. ADR_HORPOSADR_LEVPOSADR_HORPO1ADR_LEVPO1ADR_TEXT
  99. VADR_FORSTIADR_FORSESP_PRIKAZ
  100. SVARIFILE
  101. adresy
  102. save to &p_prikaz all like adr_*
  103. P_PRIKAZ
  104. SVARIFILE
  105. FFRFQI
  106. set color to w/&mo
  107. define popup menutisk shadow from 5,16 margin relative color w/&mo,w/&mo
  108. Tisk \<aktu
  109.  adresy na ob
  110. Tisk \<seznamu ozna
  111. ch adres
  112. \<Ozna
  113.  adresy vyhovuj
  114.  podm
  115.  ozna
  116.  u \<nevyhovuj
  117. ch podm
  118.  ozna
  119.  u \<vyhovuj
  120. ch podm
  121. ti ozna
  122. do voltisk with bar()
  123. P_SUMASTITP_REC
  124. SDEF_VARI
  125. TMENUTISK
  126. _TEXT
  127. VULOZMEM
  128. ekejte, s
  129. et ozna
  130. ch adres ...
  131. p_ord
  132. et ozna
  133. ch adres : FF
  134. P_VOLBA
  135. ITTISKOBAL
  136. STISKSEST
  137. TOZNACADR
  138. 1P_ORD
  139. VINFO
  140. ITISK
  141. RSESP_SUMASTITP_REC
  142. STIT3
  143. RBLOK
  144. ITTISK
  145. SREFREBROW
  146. \Ozna
  147.  vyhovuj
  148. ch adres
  149.  ozna
  150.  u nevyhovuj
  151.  ozna
  152.  u vyhovuj
  153. Pro v
  154. echny adresy
  155. Podle textu v adrese
  156. Podle pozn
  157. ratel
  158. Dodavatel
  159. Adresy s telefonem
  160. Adresy s e-mailem
  161. Podle PS
  162.  (zleva)
  163.  adresa (Ctrl+O)
  164. Od aktu
  165.  adresy
  166. Zadejte kl
  167. p_hledkey$sys(15,g_diaindex,trim(adresa1+adresa2+adresa3+adresa4))
  168. Zadejte kl
  169. p_hledkey$sys(15,g_diaindex,trim(poznamka()))
  170. fakvyst
  171. fvpoloz
  172. fakprij
  173. fppoloz
  174. set order to ico in &p_fakzahl
  175. Zadejte text faktury
  176.  text plat
  177.  pro v
  178. echny)
  179. seek(ico,p_fakzahl).and.(empty(p_hledkey).or.jekeyvfak())
  180. !empty(telefon)
  181. !empty(mail)
  182.      
  183. Zadejte PS
  184. @R 999 99
  185. tran(psc,'99999')=trim(p_hledkey)
  186. .t. while recno()=FFFR^D
  187. st pro v
  188. echny v
  189. ty od "F
  190. .t. while .t.
  191. ekejte, ozna
  192. uji vyhovuj
  193. replace tisk with .t. for &p_podminka
  194. ekejte, ru
  195. m ozna
  196.  pro nevyhovuj
  197. replace tisk with .f. for !&p_podminka
  198. ekejte, ru
  199. m ozna
  200.  pro vyhovuj
  201. replace tisk with .f. for &p_podminka
  202. P_MODE
  203. ITVOLBY
  204. SP_VOLBA
  205. P_PODMINKAP_INFO
  206. VVOLBA
  207. KAP_HLEDKEY
  208. VSTUP
  209. G_DIAINDEXP_FAKZAHL
  210. P_FAKPOL
  211. CDOTAZ
  212. KAADRESA1
  213. FBLOK
  214. INKAINFO
  215. sele &p_fakzahl
  216. sele &p_fakpol
  217. locate for p_hledkey$sys(15,g_diaindex,trim(text)) while symbol=&p_fakzahl->doklad
  218. sele &p_fakpol
  219. P_NASEL
  220. ITICO
  221. SADRESY
  222. DOKLAD
  223. KAP_FAKPOL
  224. adrsestavy
  225. Zadejte form
  226. t pro tisk
  227. valid file('sestavy\'+trim(p_promenna)) error d_('Chybn
  228. zev souboru...')
  229. if &esc
  230. ADRESY.002
  231. if &esc
  232. define window infotisk from 24,0 to 24,79 color w/&mo none
  233. adrcyklus
  234. G_HELPKEY
  235. VSTUP
  236. ADR_FORSESP_OBR
  237. KAP_STITKY
  238. VP_DOUBLE
  239. AP_NASTAVOKP_DELREC
  240. SDEFISTITEKADRESA
  241. ADRESA1
  242. CADRESA2
  243. KAADRESA3
  244. ADRESA4
  245. KAADRESA_ICOADRESA_TELADRESA_FAXADRESA_POZSTITEK
  246. ENAP_POCSTIT
  247. P_STARTIMETISK_SEST
  248. INFOTISK
  249. do window with 11,20,15,65,'parastit','w/&mo'
  250. Posun shora
  251. Rozte
  252.  mezi
  253. .text 
  254. ELPKEY
  255. ADR_HORPO1ADR_LEVPO1ADR_TEXT
  256. APARASTIT
  257. VP_DOUBLE
  258. Tisk 
  259. tku v po
  260. dku? (Esc-p
  261. if &esc
  262. if !found().or.&iesc
  263. , tel.F
  264. , fax.F
  265. @ZL 999 99c
  266. @ZL 999 99c
  267. devicez
  268. FFF$F
  269. @L 99c
  270. @L 99c
  271. %), konec 
  272. activate window &p_puvwin
  273. set device to &p_device
  274. P_MOD
  275. ADRESY
  276. PO1TISK
  277. PO1P_STITKY
  278. AP_NASTAVOKDOTAZ
  279. ARBLOK
  280. AVOKP_DOUBLE
  281. SP_DELREC
  282. KP_VENLOOP
  283. DEFISTITEKADRESA_ICOICO
  284. ADRESA_POZPOZNAMKA
  285. OADRESA_TELTELEFON
  286. AXADRESA_FAXFAX
  287. ENAADRESA
  288. ADRESA1
  289. MEADRESA2
  290. ADRESA3
  291. SADRESA4
  292. ZBPSC
  293. ELKVARISTITEKSTITEK
  294. LEVADR_HORPO1P_SUMASTITP_POCSTIT
  295. P_DEVICE
  296. P_PUVWIN
  297. NP_ENDTIME
  298. P_ZASEKUNDP_STARTIMEINFOTISK
  299. @ZL 999 99c
  300. stitek
  301. @ZL 999 99c
  302. stitek2
  303. P_DELREC
  304. 1STITEK
  305. PO1ADRESA1
  306. AADRESA2
  307. OKADRESA3
  308. AADRESA4
  309. OKPSC
  310. SUPRSTITEK
  311. P_DOUBLE
  312. STITEK2
  313. EKRBLOK
  314. COTISK
  315. ADR_LEVPO1
  316. if empty(&p_stitek(3))
  317. =adel(&p_stitek,3)
  318. &p_stitek(5)=''
  319. if empty(&p_stitek(2))
  320. =adel(&p_stitek,2)
  321. &p_stitek(5)=''
  322. =ains(&p_stitek,2)
  323. &p_stitek(2)=adr_text
  324. P_STITEK
  325. ADR_TEXT
  326. Zadejte term
  327. n, pro kter
  328.  zobrazit v
  329. stupy
  330. helpvstup
  331. do window with 11,25,15,54,'termin','w/&mo'
  332. Posun shora  
  333. Posun zleva  
  334. sestavy\F
  335. Chybn
  336. zev souboru...
  337. if !&esc
  338. adresa1
  339. adresa2
  340. adresa3
  341. adresa4
  342. @ZL 999 99c
  343. adresa5
  344. HELPLINE
  345. _TEXT
  346. 1ADR_HORPOSADR_LEVPOSADR_FORSTITERMIN
  347. STIHELPVSTUP
  348. TITEK
  349. SEZNAMPROMSEZNAMHOD
  350. COADRESA1
  351. ADRESA2
  352. O1ADRESA3
  353. SA_TELADRESA4
  354. AXSTAT
  355. A_FAXTISK_SEST
  356. ADRESY
  357. P_ICO
  358. NEDEFICO
  359. 1ADRESY
  360. POSPRIADR
  361. adresy
  362. sele &p_sel
  363. P_ICO
  364. P_VRADKU
  365. 1P_ROW
  366. POSP_COL
  367. POSP_LEFT
  368. STIICO
  369. STIADRESY
  370. P_SEL
  371. SVYBADR
  372. ADRESA1
  373. vybadr
  374. {Enter}
  375. (F1)N
  376. da (F4)Hledej (Ctrl+P)Pozn
  377. mka (Ctrl+O)Ostatn
  378. helpadre
  379. do window with 5,2,20,76,'adresa','w/&cvz'
  380. @R! X9999999/99
  381. Firma
  382. @ZL 999 99
  383. @R 999-9999999999
  384. Telefon
  385. Mobil
  386. @ $,$ say '/' color &edi
  387. Banka
  388. Sleva
  389. @Z 99.99
  390. Pozn.
  391. @ $,$+1 edit p_poznamka size 6,64 color &edi when .f.
  392. Ctrl-O
  393. do vybadr1
  394. Ctrl-P
  395. do edipoznam
  396. do hledadr
  397. do sezvybadr
  398. Ctrl-Uparrow
  399. do hledadr with .t.
  400. Ctrl-Dnarrow
  401. do hledadr with .t.
  402. ?? ''
  403. case empty(adresa1+adresa2+adresa3+adresa4).or.adresa1+adresa2+adresa3+adresa4=m.adresa1+m.adresa2+m.adresa3+m.adresa4.or. dotaz(12,0,.t.,'Ulo
  404. it zm
  405. ny v adrese ?').and.!&esc
  406. G_HELPKEY
  407. LPKEY
  408. ADRESA1
  409. OSADRESA2
  410. OSADRESA3
  411. TIADRESA4
  412. TIPSC
  413. STELEFON
  414. MMOBIL
  415. COCISUCTU
  416. KODBANKY
  417. 1NAZBANKY
  418. OPREDKONT
  419. LSLEVA_PROCSPLATNOST
  420. M_OPRALOCKHELPLINE
  421. MEVALIDADR
  422. P_POZNAMKAPOZNAMKA
  423. BCTRL
  424. RISTITEKP
  425. LEVF4
  426. _HORPO1F2
  427. UMASTITUPARROW
  428. DNARROW
  429. ADRESA
  430. NHELPADRE
  431. RBLOK
  432. KUNDRELEREC
  433. do window with 10,20,15,55,'vybadr1','w/&mo'
  434. edkontace
  435. Splatnost
  436. @Z 99
  437. Prod.cena
  438.  P123
  439. Zadejte P,1,2,3
  440. (P,1,2,3)
  441. do sezvybadr
  442. ?? ''
  443. ELPKEY
  444. PREDKONT
  445. SPLATNOST
  446. OSPROD_CENA
  447. D_CENA
  448. VYBADR1
  449. KODBANKY
  450. kodybank
  451. if !&esc
  452. PREDKONT
  453. JUCETNI
  454. if !&esc
  455. PREDKONT
  456. PUCETNI
  457. if !&esc
  458. SEZNAM
  459. KODBANKY
  460. KODYBANK
  461. OSG_TYPUC
  462. PREDKONT
  463. JUCETNI
  464. PDPREDK
  465. SKLIC
  466. PUCETNI
  467. MUDPREDK
  468. Vyled
  469.  podle adresy
  470. Vyhled
  471.  podle I
  472. Vyhled
  473.  podle pozn
  474. Vyhled
  475.  podle e-mailu
  476. case &esc
  477. adresu
  478. sys(15,g_diaindex,p_hledkey)$sys(15,g_diaindex,trim(adresa1+adresa2+adresa3+adresa4))
  479. p_hledkey
  480. @R X9999999/99
  481. sys(15,g_diaindex,p_hledkey)$sys(15,g_diaindex,trim(poznamka()))
  482. e-mail
  483. upper(mail)=upper(trim(p_hledkey))
  484. P_DALE
  485. VOLBY
  486. VOLBA
  487. P_HLEVOLBAP_HLEDKEY
  488. HLEDEJ
  489. P_POZNAMKAPOZNAMKA
  490. FFRFQI
  491. do window with 11,15,14,69,'adrehled','w/&mo'
  492. zvu zleva 
  493.  uvnit
  494. case &esc
  495. ekejte, pros
  496. m, hled
  497. m ...
  498. zev nenalezen ...
  499. P_PUVREC
  500. P_KEYLEFT
  501. P_HLEDKEY
  502. UVREC
  503. AADREHLED
  504. G_DIAINDEXINFO
  505. ADRESA1
  506. EXADRESA2
  507. ADRESA3
  508. MADRESA4
  509. FFRFQI
  510. ekejte, pros
  511. m, hled
  512. m ...
  513. zev nenalezen ...
  514. P_HLEDKEY
  515. P_PUVREC
  516. Opravit p
  517. p_ord
  518. Zadan
  519.  existuje, zobrazit adresu ?
  520. {Enter}
  521. p_ord
  522. RBLOK
  523. DOTAZ
  524. P_VETA
  525. ANEDEFICO
  526. UPRAVICO
  527. XP_ORD
  528. P_POZNAMKAPOZNAMKA
  529. OPRAVICO
  530. adpoznam
  531. adpoznam
  532. datum_akce
  533. KNIHY
  534. SKLAD
  535. P_PUVODNI
  536. P_NOVE
  537. FBLOK
  538. ADPOZNAM
  539. VODNI
  540. XDATUM_AKCEOPRAVICO
  541. AKNIHY
  542. G_KONFIR
  543. SKLAD
  544. ADRESY
  545. KNIHY
  546. SKLAD
  547. P_ICO
  548. P_EXIST
  549. EXISTICO
  550. KNIHY
  551. AG_KONFIR
  552. SKLAD
  553. XADRESY
  554. P_ICO
  555. P_KOD
  556. NFFFFF
  557. N0000001  
  558. p_ord
  559. sele &p_sel
  560. P_ICO
  561. P_SEL
  562. P_ORD
  563. ADRESY
  564. p_ord
  565. P_ICO
  566. P_NEVYB
  567. P_ORD
  568. APRIRAD
  569. VYBADR
  570. adpoznam
  571. adpoznam
  572. sele &p_sel
  573. P_POZNAMKAP_SEL
  574. FBLOK
  575. AMKAADPOZNAM
  576. AADRESY
  577. XRELEREC
  578. CEP_POCRAD
  579. POZNAMKA
  580. adpoznam
  581. sele &p_sel
  582. P_POZNAMKAP_SEL
  583. ADRESY
  584. MKAICO
  585. AADPOZNAM
  586. POZNAMKA
  587. @ 8,7 edit p_poznamka size 6,64 color &edi
  588. keyboard chr(9)
  589. (Esc)Konec editace pozn
  590. mky...
  591. edipozn
  592. P_POZNAMKAPOZNAMKA
  593. MKAHELPLINE
  594. AEDIPOZN
  595. ULOZPOZNAMADRESA
  596. Tuto adresu nemohu smazat, je v
  597.  na doklad...
  598. adresa
  599. adpoznam
  600. SKLAD
  601. EXISTICO
  602. ADOUBLEREC
  603. RELEREC
  604. AINFO
  605. P_REC2
  606. NAMADRESA
  607. AADPOZNAM
  608. AADRESY
  609. G_KONFIR
  610. AZRUICO
  611. MKASKLAD
  612. OKEYADRESY
  613. PREHPZALL
  614. OPTIADRESY
  615. DEF_VARI
  616. ULOZMEM
  617. VOLTISK
  618. OZNACADR1
  619. OZNACADR
  620. JEKEYVFAK
  621. TISKSEST
  622. DEFISTITEK
  623. ADRCYKLUS
  624. VARISTITEK
  625. UPRSTITEK
  626. TISKOBAL
  627. SELPRIADR
  628. ZOBRADR
  629. VYBADR
  630. VYBADR1
  631. SEZVYBADR
  632. HLEDADR
  633. ADBROWHLED
  634. ADBROWDAL
  635. VALIDADR
  636. OPRAVICO
  637. EXISTICO
  638. UPRAVICO
  639. NEDEFICO
  640. PRIADR
  641. ULOZPOZNAM
  642. POZNAMKA
  643. EDIPOZNAM
  644. ZRUADR
  645. C:\FOX\EKONOM\
  646. ADRESY.FXP
  647.