home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 May / PCW596.iso / polskie / insert / rachmist / system.arj / EWFIRMY.APP (.txt) < prev    next >
Encoding:
MS Visual FoxPro App  |  1996-01-21  |  19.1 KB  |  348 lines
  1. ewfirmy.spr
  2.  Kontrahenci 
  3. ewfirmy
  4. ewfirm
  5. ewfirmy.spr with 1
  6. ewfirmy.spr with 2
  7. Nie ma F
  8. adnych firm
  9. code:15:H='Kod firmy', firma:25:H='Nazwa firmy',ulica:25:H='Ulica',kod:6:H='Kod',miasto:15:H='Miejscowo'+pl[16]+pl[11]
  10. firma:25:H='Nazwa firmy',code:15:H='Kod firmy', ulica:25:H='Ulica',kod:6:H='Kod',miasto:15:H='Miejscowo'+pl[16]+pl[11]
  11. firma
  12. miasto:15:H='Miejscowo'+pl[16]+pl[11],kod:H='Kod',firma:25:H='Nazwa firmy',ulica:25:H='Ulica', code:15:H='Kod firmy'
  13. miasto
  14.  Kontrahenci 
  15. ewfirmy
  16. ewfirm
  17. kasujfirme
  18. ewfirmy.spr with 2
  19. Nie ma F
  20. adnych firm
  21. code:15:H='Kod firmy', firma:25:H='Nazwa firmy',ulica:25:H='Ulica',kod:6:H='Kod',miasto:15:H='Miejscowo'+pl[16]+pl[11]
  22. firma:25:H='Nazwa firmy',code:15:H='Kod firmy', ulica:25:H='Ulica',kod:6:H='Kod',miasto:15:H='Miejscowo'+pl[16]+pl[11]
  23. firma
  24. miasto:15:H='Miejscowo'+pl[16]+pl[11],kod:H='Kod',firma:25:H='Nazwa firmy',ulica:25:H='Ulica', code:15:H='Kod firmy'
  25. miasto
  26.  Kontrahenci 
  27. ewfirmy
  28. ewfirm
  29. ewfirmy.spr with 0
  30. ewfirmy.spr with 1
  31. ewfirmy.spr with 2
  32. kasujfirme
  33. code:15:H='Kod firmy', firma:25:H='Nazwa firmy',ulica:25:H='Ulica',kod:6:H='Kod',miasto:15:H='Miejscowo'+pl[16]+pl[11]
  34. firma:25:H='Nazwa firmy',code:15:H='Kod firmy', ulica:25:H='Ulica',kod:6:H='Kod',miasto:15:H='Miejscowo'+pl[16]+pl[11]
  35. firma
  36. miasto:15:H='Miejscowo'+pl[16]+pl[11],kod:H='Kod',firma:25:H='Nazwa firmy',ulica:25:H='Ulica', code:15:H='Kod firmy'
  37. miasto
  38. RIBBON
  39. 30 GET EWFIRMY
  40. 1,SPR
  41.     SIZESTARTLIS
  42. EMAINPATH
  43. ;PODM
  44.  LISTA
  45. TAKNIE
  46. KASUJFIRME
  47. TALKz
  48. COMPATIBLEz
  49. _qz90ojv4m
  50.  Dane kontrahenta 
  51. ewfirm
  52. ewfirmy
  53. firma
  54. _curobj=OBJNUM(m.exitok)
  55. _curobj=OBJNUM(m.exiterr)
  56. _qz90ojv4m
  57. Kod firmy:
  58. Nazwa    :
  59. Ulica    :
  60. Kod      :
  61. Telefon  :
  62. Telex    :
  63. Fax      :
  64. NIP      :
  65. MiejscowoF
  66.  Adres 
  67.  Bank 
  68. Nazwa   :
  69. Konto   :
  70. Opis    :
  71. Firma o tym kodzie juF
  72.  istnieje
  73. @K 99-999
  74. @*HT Zapisz
  75. @*HT Zaniechaj
  76. _qz90ojv4m
  77. bon[1TAG2
  78. on[11IOPEN
  79. n[8]EXITOK
  80. EXITERR
  81. RIBBON
  82. CURRAREA
  83. TALKSTAT
  84. COMPSTAT
  85. _QZ90OJV4MEWFIRM
  86.  <>MAINPATH
  87. FIRMA
  88. n[1F10
  89. bon[11ESC
  90. bon[8]CODE
  91. OJV4M_QZ90OJVNZNIP
  92. ULICA
  93. tokKOD
  94. MIASTO
  95. TELEFON
  96. ZaFAX
  97. TELEX
  98. actKONTO
  99.  GAOPIS
  100. VAR_QZ90OJW05CLEARRIB
  101. EWFIRM
  102. ewfirm
  103. ewfirm
  104. SYMBOL
  105. IDENT
  106. n[1_QZ90OJVNZ
  107. _QZ90OJW05
  108. exactz
  109. _lowzorzec
  110. _lolistabr
  111. _lowzorzec
  112. TYTUL
  113. DLWZORCA
  114. MYILOSC
  115. ALIAS
  116. TOMENTER
  117. TOMPODGLADINFO
  118. CZYBLOK
  119. POMOC
  120. POLA1
  121. INDEX1
  122. POLA2
  123. INDEX2
  124. POLA3
  125. INDEX3
  126. POLA4
  127. INDEX4
  128. POLA5
  129. INDEX5
  130. NUMER
  131. IOPEN
  132. EXACT
  133. WIERSZE
  134. _LOWZORZEC_LOLISTABRSETRIB
  135. ZECPROPRZEGLASTARTPRO
  136. CLEARRIB
  137. {DNARROW}
  138. {UPARROW}
  139. {TAB}
  140.  Koniec danych 
  141.  PoczF
  142. tek danych 
  143.  Koniec danych 
  144.  PoczF
  145. tek danych 
  146.  Zapis jest zablokowany 
  147. DO &tomenter
  148. DO &tompodglad
  149. STRING
  150. MYQUIT
  151. WIERSZE
  152. _LOWZORZECDLWZORCA
  153. LOKATA
  154. MYSZR
  155. MYSZC
  156. GLADTCOL
  157. TOMENTER
  158. CZYBLOK
  159. BLOKADA
  160. MYILOSC
  161. PROPRZEGLATOMPODGLADSETRIB
  162. POMOC
  163. NUMER
  164. PROWYKAZ
  165. POLA1
  166. INDEX1
  167. POLA2
  168. INDEX2
  169. ZECPOLA3
  170. INDEX3
  171. INDEX4
  172. POLA5
  173. INDEX5
  174. LADMYILOSC
  175. SET ORDER TO &kolejnosc
  176. _olistast
  177. BROWSE NOWAIT WINDOW _olistast     IN WINDOW _lolistabr TITLE "Dane" COLOR SCHEM 10     FIELDS &pola    
  178. {INS}
  179. KOLEJNOSC
  180. _OLISTAST
  181. ZECTCOL
  182. STARTPRO
  183. PROPRZEGLA
  184. PROWYKAZ
  185. exactz
  186.  Razem 
  187. _lowzorzec
  188. _olistabr
  189. _losumy
  190. TYTUL
  191. DLWZORCA
  192. MYILOSC
  193. ALIAS
  194. TOMPLUS
  195. TOMENTER
  196. TOMDRUK
  197. TOMPODGLADTOMMINUS
  198. TOMBLOKUJ
  199. TOMANULUJ
  200. POMOC
  201. SUMGDZIE
  202. SUMILE
  203. SUMWYR
  204. POLA1
  205. INDEX1
  206. POLA2
  207. INDEX2
  208. POLA3
  209. INDEX3
  210. POLA4
  211. INDEX4
  212. POLA5
  213. INDEX5
  214. NUMER
  215. IOPEN
  216. EXACT
  217. _LOSUMY
  218. _LOWZORZEC_OLISTABR
  219. SETRIB
  220. ZECREFRSUMY
  221. PRZEGLAD
  222. CLEARRIB
  223. {DNARROW}
  224. {UPARROW}
  225. {TAB}
  226.  Koniec danych 
  227.  PoczF
  228. tek danych 
  229.  Koniec danych 
  230.  PoczF
  231. tek danych 
  232.  MiesiF
  233. c jest zablokowany 
  234.  Zapis jest zablokowany 
  235. Nie moF
  236. esz poprawia
  237. DO &tomenter
  238. DO &tomenter
  239.  MiesiF
  240. c jest zablokowany 
  241.  Zapis jest zablokowany 
  242. Nie moF
  243. esz usuwa
  244. DO &tomminus
  245. do &tomminus
  246.  MiesiF
  247. c jest zablokowany 
  248. Nie moF
  249. esz dodawa
  250. DO &tomplus    
  251. do &tomplus    
  252. DO &tomdruk
  253. DO &tomblokuj
  254. DO &tomanuluj            
  255. DO &tompodglad
  256. STRING
  257. LOKATA
  258. WIERSZE
  259. MYQUIT
  260. MYSZR
  261. MYSZC
  262. SUMILE
  263. DLWZORCA
  264. DGLADTROW
  265. TOMENTER
  266. TOMBLOKUJ
  267. BLOKUJ
  268. BLOKADA
  269. REFRSUMY
  270. SETRIB
  271. POMOC
  272. _LOWZORZECTOMMINUS
  273. BLOKUJ
  274. TOMPLUS
  275. BLOKUJ
  276. MYILOSC
  277. ECPRZEGLAD
  278. TOMDRUK
  279. TOMANULUJ
  280. TOMPODGLAD
  281. NUMER
  282. WYKAZ
  283. POLA1
  284. INDEX1
  285. POLA2
  286. INDEX2
  287. POLA3
  288. INDEX3
  289. INDEX4
  290. POLA5
  291. INDEX5
  292. MYILOSC
  293. SET ORDER TO &kolejnosc
  294. BROWSE NOWAIT WINDOW _dlabrow     IN WINDOW _olistabr TITLE "Dane" COLOR SCHEM 10     FIELDS &pola    
  295. {INS}
  296. KOLEJNOSC
  297. _DLABROW
  298. SUM ALL &sumwyr TO ARRAY sumy FOR not poprawka and typ <> 50
  299. SUM ALL &sumwyr TO ARRAY sumy 
  300. Razem
  301. 99,999,999,999.99 
  302. LEJNOSC
  303. ILREC
  304. SUMWYR
  305. SUMILE
  306. TOMANULUJ
  307. _LOSUMY
  308. SUMGDZIE
  309. PRZEGLAD
  310. WYKAZ
  311. REFRSUMY
  312. m.xloc = m.xloc
  313. errors
  314. \<Nie
  315. \<Tak
  316. ECODE1
  317. DEFAULTANSY0
  318. OLDALIAS
  319. SYSPATH
  320. SERRWIN
  321. ERRCODE
  322. ERRORS
  323. MESSAGE
  324. @ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col
  325. RIBBON
  326. SETRIB
  327. CLEARRIB
  328. RETVAL
  329. IDENT
  330. @ wrows()-1, 0 say padr(m.text, wcols()-1," " ) COLOR &col
  331. ..\EWFIRMY\EWFIRMY.PRG
  332. C:\KSIEGA\SYSTEM\
  333. ..\EWFIRMY\EWFIRMY.SPR
  334. ..\COMMON\STARTLIS.PRG
  335. ..\COMMON\LISTA.PRG
  336. ..\COMMON\TAKNIE.PRG
  337. ..\COMMON\CLEARRIB.PRG
  338. ..\COMMON\IDENT.PRG
  339. ..\COMMON\SETRIB.PRG
  340. EWFIRMY.FXP
  341. EWFIRMY.SPX
  342. STARTLIS.FXP
  343. LISTA.FXP
  344. TAKNIE.FXP
  345. CLEARRIB.FXP
  346. IDENT.FXP
  347. SETRIB.FXP
  348.