home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 May / PCW596.iso / polskie / insert / rachmist / system.arj / PODMIOTY.APP (.txt) < prev    next >
MS Visual FoxPro App  |  1996-01-21  |  29KB  |  565 lines
  1. podm1st.spr
  2.  Podmioty gospodarcze 
  3. podmioty
  4. podmioty
  5. podm1st.spr with 1
  6. podm1st.spr with 2
  7. nazwa:21 :H = 'Nazwa firmy',miasto:21:H = 'Miejscowo'+pl[16]+pl[11],
  8. ad=alltrim(adres)+' '+alltrim(nr_domu)+' '+alltrim(nr_lokalu) :21 :H = ' Ulica '
  9. nazwa
  10.  Podmioty gospodarcze 
  11. podmioty
  12. podmioty
  13. kasuj
  14. podm1st.spr with 2
  15. nazwa:21 :H = 'Nazwa firmy',miasto:21:H = 'Miejscowo'+pl[16]+pl[11],
  16. ad=alltrim(adres)+' '+alltrim(nr_domu)+' '+alltrim(nr_lokalu) :21 :H = ' Ulica '
  17. nazwa
  18.  Podmioty gospodarcze 
  19. podmioty
  20. podmioty
  21. podm1st.spr with 0
  22. podm1st.spr with 1
  23. podm1st.spr with 2
  24. kasuj
  25. nazwa:21 :H = 'Nazwa firmy',miasto:21:H = 'Miejscowo'+pl[16]+pl[11],
  26. ad=alltrim(adres)+' '+alltrim(nr_domu)+' '+alltrim(nr_lokalu) :21 :H = ' Ulica '
  27. nazwa
  28. fVRIBBON
  29. PODM1ST
  30. STARTLIS
  31. VPODMPATH
  32. LISTA
  33. CLEARRIB
  34. firma
  35. firma
  36. \rach.pod
  37. !echo y | del &mypath  >nul
  38. firma
  39. !rd &mypath
  40. MYPATH
  41. fVSYMBOL
  42. FIRMNR
  43. TAKNIE
  44. PYTANIE
  45. VCZEKAJ
  46. MAINPATH
  47. TWODIG
  48. NNOTICE
  49. KASUJ
  50. exactz
  51. _lowzorzec
  52. _lolistabr
  53. _lowzorzec
  54. PFCOL
  55. INTROW
  56. POLTCOL
  57. INDETYTUL
  58. YQUIDLWZORCA
  59. MYILOSC
  60. ALIAS
  61. TOMENTER
  62. TOMPODGLADINFO
  63. GLAWYCZYBLOK
  64.     POMOC
  65. 5POLA1
  66. INDEX1
  67. POLA2
  68. INDEX2
  69. POLA3
  70. TINDEX3
  71. POLA4
  72. INDEX4
  73. !POLA5
  74. INDEX5
  75. NUMER
  76. IIOPEN
  77.  EXACT
  78. WIERSZE
  79. _LOWZORZEC_LOLISTABRSETRIB
  80. ZECPROPRZEGLASTARTPRO
  81. CLEARRIB
  82. {DNARROW}
  83. {UPARROW}
  84. {TAB}
  85.  Koniec danych 
  86.  PoczF
  87. tek danych 
  88.  Koniec danych 
  89.  PoczF
  90. tek danych 
  91.  Zapis jest zablokowany 
  92. DO &tomenter
  93. DO &tompodglad
  94. STRING
  95. PMYDO
  96. INMYQUIT
  97. POLWIERSZE
  98. DEZNAK
  99. QUI_LOWZORZECDLWZORCA
  100. LOKATA
  101. MYSZR
  102. MYSZC
  103. GLADTCOL
  104. GLAWYTROW
  105.     FROW
  106. TOMENTER
  107. CZYBLOK
  108. BLOKADA
  109. MYILOSC
  110. TPROPRZEGLATOMPODGLADSETRIB
  111. !POMOC
  112. NUMER
  113. PPROWYKAZ
  114. NPOLA1
  115. POLINDEX1
  116. DEPOLA2
  117. IINDEX2
  118. ZECPOLA3
  119. INDEX3
  120. INDEX4
  121. POLA5
  122. INDEX5
  123. LADMYILOSC
  124. SET ORDER TO &kolejnosc
  125. _olistast
  126. BROWSE NOWAIT WINDOW _olistast     IN WINDOW _lolistabr TITLE "Dane" COLOR SCHEM 10     FIELDS &pola    
  127. {INS}
  128. PKOLEJNOSC
  129. _OLISTAST
  130. DEFCOL
  131. ITROW
  132. ZECTCOL
  133. STARTPRO
  134. PROPRZEGLA
  135. PROWYKAZ
  136. exactz
  137.  Razem 
  138. _lowzorzec
  139. _olistabr
  140. _losumy
  141. TYTUL
  142. DLWZORCA
  143. MYILOSC
  144. ALIAS
  145. TOMPLUS
  146. TOMENTER
  147. TOMDRUK
  148. TOMPODGLADTOMMINUS
  149. TOMBLOKUJ
  150. TOMANULUJ
  151. POMOC
  152. SUMGDZIE
  153. SUMILE
  154. SUMWYR
  155. POLA1
  156. INDEX1
  157. POLA2
  158. INDEX2
  159. POLA3
  160. INDEX3
  161. POLA4
  162. INDEX4
  163. POLA5
  164. INDEX5
  165. NUMER
  166. IOPEN
  167. EXACT
  168. _LOSUMY
  169. _LOWZORZEC_OLISTABR
  170. SETRIB
  171. ZECREFRSUMY
  172. PRZEGLAD
  173. CLEARRIB
  174. {DNARROW}
  175. {UPARROW}
  176. {TAB}
  177.  Koniec danych 
  178.  PoczF
  179. tek danych 
  180.  Koniec danych 
  181.  PoczF
  182. tek danych 
  183.  MiesiF
  184. c jest zablokowany 
  185.  Zapis jest zablokowany 
  186. Nie moF
  187. esz poprawia
  188. DO &tomenter
  189. DO &tomenter
  190.  MiesiF
  191. c jest zablokowany 
  192.  Zapis jest zablokowany 
  193. Nie moF
  194. esz usuwa
  195. DO &tomminus
  196. do &tomminus
  197.  MiesiF
  198. c jest zablokowany 
  199. Nie moF
  200. esz dodawa
  201. DO &tomplus    
  202. do &tomplus    
  203. DO &tomdruk
  204. DO &tomblokuj
  205. DO &tomanuluj            
  206. DO &tompodglad
  207. STRING
  208. LOKATA
  209. WIERSZE
  210. MYQUIT
  211. MYSZR
  212. MYSZC
  213. SUMILE
  214. DLWZORCA
  215. DGLADTROW
  216. TOMENTER
  217. TOMBLOKUJ
  218. BLOKUJ
  219. BLOKADA
  220. REFRSUMY
  221. SETRIB
  222. POMOC
  223. _LOWZORZECTOMMINUS
  224. BLOKUJ
  225. TOMPLUS
  226. BLOKUJ
  227. MYILOSC
  228. ECPRZEGLAD
  229. TOMDRUK
  230. TOMANULUJ
  231. TOMPODGLAD
  232. NUMER
  233. WYKAZ
  234. POLA1
  235. INDEX1
  236. POLA2
  237. INDEX2
  238. POLA3
  239. INDEX3
  240. INDEX4
  241. POLA5
  242. INDEX5
  243. MYILOSC
  244. SET ORDER TO &kolejnosc
  245. BROWSE NOWAIT WINDOW _dlabrow     IN WINDOW _olistabr TITLE "Dane" COLOR SCHEM 10     FIELDS &pola    
  246. {INS}
  247. KOLEJNOSC
  248. _DLABROW
  249. SUM ALL &sumwyr TO ARRAY sumy FOR not poprawka and typ <> 50
  250. SUM ALL &sumwyr TO ARRAY sumy 
  251. Razem
  252. 99,999,999,999.99 
  253. LEJNOSC
  254. ILREC
  255. SUMWYR
  256. SUMILE
  257. TOMANULUJ
  258. _LOSUMY
  259. SUMGDZIE
  260. PRZEGLAD
  261. WYKAZ
  262. REFRSUMY
  263. urzedy
  264. urzedy
  265. urzedy.app
  266. urzedy,
  267.  UrzF
  268. dy skarbowe 
  269. urzedy
  270. us_nazwa, us_id
  271.  Brak urzedF
  272. us_nazwa:20:H='Nazwa urzedu', ad=alltrim(us_ulica)+' '+alltrim(us_nrdomu):20:H='Adres',us_kodzip:6:H='Kod',us_miasto:20:H='Miasto'
  273. us_nazwa
  274. RIBBON
  275. IOPEN
  276. US_ID
  277. URZEDY
  278. PODMPATH
  279. URZAD_NR
  280. WYBIERZ
  281. exactz
  282. LISTAZW
  283. _olistazw
  284. _owzorzec
  285. TYTUL
  286. DLWZORCA
  287. ILOSC
  288. TOMPODGLADZWROT
  289. POMOC
  290. POLA1
  291. INDEX1
  292. POLA2
  293. INDEX2
  294. POLA3
  295. INDEX3
  296. POLA4
  297. INDEX4
  298. POLA5
  299. INDEX5
  300. MYQUIT
  301. NUMER
  302. IOPEN
  303. EXACT
  304. WZWIERSZE
  305. LISTAZW
  306. _OLISTAZW
  307. _OWZORZEC
  308. SETRIB
  309. WYBPRZEGLAWYBPRO
  310. CLEARRIB
  311. {DNARROW}
  312. {UPARROW}
  313. {TAB}
  314.  Koniec danych 
  315.  PoczF
  316. tek danych 
  317.  Koniec danych 
  318.  PoczF
  319. tek danych 
  320. SCATTER FIELDS &coret MEMVAR
  321. DO &tompodglad
  322. CORET
  323. STRING
  324. LOKATA
  325. MYSZR
  326. MYSZC
  327. DBLTIME
  328. MYQUIT
  329. CHANGED
  330. DGLAD_OWZORZEC
  331. DLWZORCA
  332. WZWIERSZE
  333. ILOSC
  334. WYBPRZEGLATOMPODGLADSETRIB
  335. POMOC
  336. NUMER
  337. WYBWYKAZ
  338. POLA1
  339. INDEX1
  340. POLA2
  341. INDEX2
  342. POLA3
  343. INDEX3
  344. INDEX4
  345. DPOLA5
  346. INDEX5
  347. ILOSC
  348. SET ORDER TO &kolejnosc
  349. _olbrow
  350. BROWSE NOWAIT WINDOW _olbrow    IN WINDOW _olistazw TITLE "Wybierz" COLOR SCHEM 10     FIELDS &pola
  351. _olistazw
  352. {INS}
  353. KOLEJNOSC
  354. _OLBROW
  355. WZWIERSZE
  356. WYBPRO
  357. WYBPRZEGLA
  358. WYBWYKAZ
  359. _curobj=objnum(m.exitok)
  360. retry
  361. retry    
  362. _curobj=objnum(m.exiterr)
  363. podmioty
  364. podmioty
  365. nazwa
  366. urzedy
  367. us_id
  368. TALKz
  369. COMPATIBLEz
  370. mypodm
  371.  Dane podmiotu gospodarczego 
  372. mypodm
  373. Nr lokalu:
  374. Gmina/dzielnica:
  375. Nazwa podmiotu:
  376. Ulica      :
  377. MiejscowoF
  378. Kod        :
  379. Telefon    :
  380. Fax        :
  381. NIP           :
  382.  Bank 
  383. Nazwa      :
  384. Konto      :
  385. Opis       :
  386. @K 99-999
  387. @*HN UrzF
  388. d skarbowy
  389. @*HN Zapisz
  390. @*HN Zaniechaj
  391.  Adres prowadzenia dziaF
  392. Nr domu  : 
  393. Poczta   :
  394. Telex    :
  395. REGON    :
  396. mypodm
  397. podmioty
  398. RIBBON
  399. US_NAZWA
  400. URZAD_NR
  401. IOPEN
  402. MYPATH
  403. TYTUL
  404. PODMIOTY
  405. PODMPATH
  406. \NAZWA
  407. ROLDREK
  408. URZEDY
  409. dUS_ID
  410. CURRAREA
  411. TALKSTAT
  412. COMPSTAT
  413. MYPODM
  414. REGON
  415. BezADRES
  416. 32/NR_DOMU
  417. NR_LOKALU
  418. MIASTO
  419. POCZTA
  420. 51-TELEFON
  421. TELEX
  422. GMINA
  423. OTY_R5O0TCP9ZBANK
  424. |KONTO
  425. EXITOK
  426. _R5O0TCPDKEXITERR
  427. _R5O0TCPGN_R5O0TCPLY
  428. symbol
  429. nazwa
  430. OLDREK
  431. SYMBOL
  432. _NAZWA
  433. NAZWA
  434. wyb_us.prg
  435. WYB_US
  436. podmioty
  437. firma
  438. !md &mypath
  439. \rach.pod
  440.  Musisz podaF
  441.  nazw
  442.  firmy 
  443. NAZWA
  444. SYMBOL
  445. FFREESYM
  446. MYPATH
  447. MAINPATH
  448. TWODIG
  449. HANDLE
  450.  Musisz zapisaF
  451.  dane podmiotu 
  452. EXITOK
  453. MYPODM
  454. CURRWIND
  455. MYPODM
  456. US_NAZWA
  457. FFREESYM
  458. _R5O0TCP9Z
  459. _R5O0TCPDK
  460. _R5O0TCPGN
  461. _R5O0TCPLY
  462. @ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col
  463. RIBBON
  464. SETRIB
  465. TCLEARRIB
  466. m.xloc = m.xloc
  467. errors
  468. \<Nie
  469. \<Tak
  470. ECODE1
  471. DEFAULTANSY0
  472. OLDALIAS
  473. SYSPATH
  474. SERRWIN
  475. ERRCODE
  476. FERRORS
  477. TMESSAGE
  478. errors
  479. komunikF
  480. QUEST
  481. acjaKOMUNIK1
  482. \KOMUNIK2
  483. AKOMUNIK3
  484. ILOSC
  485. IOPEN
  486. SYSPATH
  487. INFOTOM
  488. FOTOM
  489. ERRORS
  490. ERRCODE
  491. MESSAGE
  492. CZYTAK
  493. @L 99c
  494. CURSORz
  495. errors
  496.  WciF
  497. nij dowolny klawisz ...
  498. ECodeF
  499. SET CURSOR &curstat
  500. ECODE1
  501. ECODE2
  502. ECODE3
  503. OLDALIAS
  504. ILOSC
  505. CURSTAT
  506. SYSPATH
  507. ERRWIN
  508. ERRORS
  509. ERRCODE
  510. MESSAGE
  511. @ wrows()-1, 0 say padr(m.text, wcols()-1," " ) COLOR &col
  512. m.xloc = m.xloc
  513. errors
  514. \<Nie
  515. \<Tak
  516. ECODE1
  517. DEFAULTANSY0
  518. OLDALIAS
  519. SYSPATH
  520. SERRWIN
  521. ERRCODE
  522. ERRORS
  523. MESSAGE
  524. WaitWin
  525. Za chwilF
  526.  dalszy ci
  527. g programu.
  528. DrukujF
  529. CierpliwoF
  530. ci. Mo
  531. e to potrwa
  532. ugo...
  533. ONOFF
  534. KOMUNIK
  535. WAITWIN
  536. ..\PODMIOTY\PODMIOT.PRG
  537. C:\KSIEGA\SYSTEM\
  538. ..\COMMON\STARTLIS.PRG
  539. ..\COMMON\LISTA.PRG
  540. ..\PODMIOTY\WYB_US.PRG
  541. ..\COMMON\WYBIERZ.PRG
  542. ..\WYBPODMI\PODM1ST.SPR
  543. ..\COMMON\CLEARRIB.PRG
  544. ..\COMMON\TAKNIE.PRG
  545. ..\COMMON\PYTANIE.PRG
  546. ..\COMMON\TWODIG.PRG
  547. ..\COMMON\NOTICE.PRG
  548. ..\COMMON\SETRIB.PRG
  549. ..\COMMON\CZYTAK.PRG
  550. ..\COMMON\CZEKAJ.PRG
  551. PODMIOT.FXP
  552. STARTLIS.FXP
  553. LISTA.FXP
  554. WYB_US.FXP
  555. WYBIERZ.FXP
  556. PODM1ST.SPX
  557. CLEARRIB.FXP
  558. TAKNIE.FXP
  559. PYTANIE.FXP
  560. TWODIG.FXP
  561. NOTICE.FXP
  562. SETRIB.FXP
  563. CZYTAK.FXP
  564. CZEKAJ.FXP
  565.