home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 May / PCW596.iso / polskie / insert / rachmist / system.arj / WYBPODMI.APP (.txt) < prev    next >
MS Visual FoxPro App  |  1996-01-21  |  16KB  |  306 lines
  1. podmioty
  2. podmioty
  3. nazwa
  4. podm1st.spr
  5. getdate.app
  6. infopodm.spr
  7. getdate.app
  8. getdate.app
  9. podmioty
  10. INTERN
  11. ILOSCPODM
  12. IOPEN
  13. MYPATH
  14. PODMPATH
  15. PODMIOTY
  16. NAZWA
  17. PODM1ST
  18. FIRMNR
  19. GETDATE
  20. INFOPODM
  21. SYMBOL
  22. PODZLISTY
  23. CLEARRIB
  24. SUBPATH
  25. ENTER
  26. CLEAR READ
  27. RETRY
  28. _dlapopupa
  29.  Wybierz podmiot: 
  30. _dlapopupa
  31. @ 0,0 GET m.wybor     PICTURE "@&N"     POPUP _wyborek     SIZE 13,32     MESSAGE ribbon[1]+ribbon[9]     DEFAULT 1     COLOR SCHEME 13
  32. _dlapopupa
  33. getdate.app
  34. ESCQUIT
  35. RIBBON
  36. ENTER
  37. _DLAPOPUPA_WYBOREK
  38. NAZWA
  39. PUPACLEARRIB
  40. AFIRMNR
  41. SYMBOL
  42. GETDATE
  43. PODZLISTY
  44. TALKz
  45. COMPATIBLEz
  46. _qz90olnsv
  47.  Info 
  48. _qz90olnsv
  49. Istnieje tylko jeden podmiot gospodarc
  50. ne z menu.
  51. @*HT OK
  52. Aby wpisaF
  53.  nowy podmiot, wybierz opcj
  54. _qz90olnsv
  55. CURRAREA
  56. RTALKSTAT
  57. COMPSTAT
  58. _QZ90OLNSVRIBBON
  59. EXITOK
  60. _curobj=objnum(m.exitok)
  61. retry
  62. retry    
  63. _curobj=objnum(m.exiterr)
  64. podmioty
  65. podmioty
  66. nazwa
  67. urzedy
  68. us_id
  69. TALKz
  70. COMPATIBLEz
  71. mypodm
  72.  Dane podmiotu gospodarczego 
  73. mypodm
  74. Nr lokalu:
  75. Gmina/dzielnica:
  76. Nazwa podmiotu:
  77. Ulica      :
  78. MiejscowoF
  79. Kod        :
  80. Telefon    :
  81. Fax        :
  82. NIP           :
  83.  Bank 
  84. Nazwa      :
  85. Konto      :
  86. Opis       :
  87. @K 99-999
  88. @*HN UrzF
  89. d skarbowy
  90. @*HN Zapisz
  91. @*HN Zaniechaj
  92.  Adres prowadzenia dziaF
  93. Nr domu  : 
  94. Poczta   :
  95. Telex    :
  96. REGON    :
  97. mypodm
  98. podmioty
  99. T.SPR
  100. RIBBON
  101. US_NAZWA
  102. URZAD_NR
  103. IOPEN
  104. MYPATH
  105. TYTUL
  106. PODMIOTY
  107. PODMPATH
  108. NAZWA
  109. OLDREK
  110. URZEDY
  111. US_ID
  112. CURRAREA
  113. TALKSTAT
  114. COMPSTAT
  115. MYPODM
  116. REGON
  117. ADRES
  118. NR_DOMU
  119. NR_LOKALU
  120. MIASTO
  121. POCZTA
  122. TELEFON
  123. TELEX
  124. GMINA
  125. _R5O0TRITYBANK
  126. KONTO
  127. EXITOK
  128. _R5O0TRIXMEXITERR
  129. _R5O0TRJ0W_R5O0TRJ6B
  130. symbol
  131. nazwa
  132. OLDREK
  133. SYMBOL
  134. _NAZWA
  135. NAZWA
  136. wyb_us.prg
  137. WYB_US
  138. podmioty
  139. firma
  140. !md &mypath
  141. \rach.pod
  142.  Musisz podaF
  143.  nazw
  144.  firmy 
  145. NAZWA
  146. SYMBOL
  147. FFREESYM
  148. MYPATH
  149. MAINPATH
  150. TWODIG
  151. HANDLE
  152.  Musisz zapisaF
  153.  dane podmiotu 
  154. EXITOK
  155. MYPODM
  156. CURRWIND
  157. MYPODM
  158. US_NAZWA
  159. FFREESYM
  160. _R5O0TRITY
  161. _R5O0TRIXM
  162. _R5O0TRJ0W
  163. _R5O0TRJ6B
  164. urzedy
  165. urzedy
  166. urzedy.app
  167. urzedy,
  168.  UrzF
  169. dy skarbowe 
  170. urzedy
  171. us_nazwa, us_id
  172.  Brak urzedF
  173. 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'
  174. us_nazwa
  175. RIBBON
  176. FAREA
  177. IOPEN
  178. US_ID
  179. URZEDY
  180.  WyPODMPATH
  181. URZAD_NR
  182.  WYBIERZ
  183. exactz
  184. LISTAZW
  185. _olistazw
  186. _owzorzec
  187. TYTUL
  188. DLWZORCA
  189. ILOSC
  190. TOMPODGLADZWROT
  191. POMOC
  192. POLA1
  193. INDEX1
  194. POLA2
  195. INDEX2
  196. POLA3
  197. INDEX3
  198. POLA4
  199. INDEX4
  200. POLA5
  201. INDEX5
  202. MYQUIT
  203. NUMER
  204. IOPEN
  205. EXACT
  206. WZWIERSZE
  207. LISTAZW
  208. _OLISTAZW
  209. _OWZORZEC
  210. SETRIB
  211. WYBPRZEGLAWYBPRO
  212. CLEARRIB
  213. {DNARROW}
  214. {UPARROW}
  215. {TAB}
  216.  Koniec danych 
  217.  PoczF
  218. tek danych 
  219.  Koniec danych 
  220.  PoczF
  221. tek danych 
  222. SCATTER FIELDS &coret MEMVAR
  223. DO &tompodglad
  224. CORET
  225. STRING
  226. LOKATA
  227. MYSZR
  228. MYSZC
  229. DBLTIME
  230. MYQUIT
  231. CHANGED
  232. DGLAD_OWZORZEC
  233. DLWZORCA
  234. WZWIERSZE
  235. ILOSC
  236. WYBPRZEGLATOMPODGLADSETRIB
  237. POMOC
  238. NUMER
  239. WYBWYKAZ
  240. POLA1
  241. INDEX1
  242. POLA2
  243. INDEX2
  244. POLA3
  245. INDEX3
  246. INDEX4
  247. DPOLA5
  248. INDEX5
  249. ILOSC
  250. SET ORDER TO &kolejnosc
  251. _olbrow
  252. BROWSE NOWAIT WINDOW _olbrow    IN WINDOW _olistazw TITLE "Wybierz" COLOR SCHEM 10     FIELDS &pola
  253. _olistazw
  254. {INS}
  255. KOLEJNOSC
  256. _OLBROW
  257. WZWIERSZE
  258. WYBPRO
  259. WYBPRZEGLA
  260. WYBWYKAZ
  261. @ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col
  262. RIBBON
  263. jw5WIND
  264. SETRIB
  265. CLEARRIB
  266. @L 99c
  267. on[1]+q
  268. @ wrows()-1, 0 say padr(m.text, wcols()-1," " ) COLOR &col
  269. w5WIND
  270. inst.dta2
  271. s3path.txt2    
  272. inst.dta
  273. rachcrc
  274. rachcr*
  275. rachcrc.mem2
  276. rachcrc
  277. MYINST
  278. jw5RACHCRC
  279. podmioty
  280. PODMPATH
  281. SYMBOL
  282. FIRMNR
  283. S3PATH
  284. S4PATH
  285. ..\WYBPODMI\WYBPODMI.PRG
  286. C:\KSIEGA\SYSTEM\
  287. ..\WYBPODMI\INFOPODM.SPR
  288. ..\WYBPODMI\PODM1ST.SPR
  289. ..\PODMIOTY\WYB_US.PRG
  290. ..\COMMON\WYBIERZ.PRG
  291. ..\COMMON\CLEARRIB.PRG
  292. ..\COMMON\TWODIG.PRG
  293. ..\COMMON\SETRIB.PRG
  294. ..\COMMON\READCRC.PRG
  295. ..\KSIEGA\SUBPATH.PRG
  296. WYBPODMI.FXP
  297. INFOPODM.SPX
  298. PODM1ST.SPX
  299. WYB_US.FXP
  300. WYBIERZ.FXP
  301. CLEARRIB.FXP
  302. TWODIG.FXP
  303. SETRIB.FXP
  304. READCRC.FXP
  305. SUBPATH.FXP
  306.