home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 May / PCW596.iso / polskie / insert / rachmist / system.arj / EWPRAC.APP (.txt) < prev    next >
MS Visual FoxPro App  |  1996-01-21  |  34KB  |  573 lines
  1. ewprac.spr
  2.  Pracownicy 
  3. ewprac
  4. ewprac.spr with 1
  5. ewprac.spr with 2
  6. Nie ma danych F
  7. adnych pracownik
  8. nazwisko:25 :H = ' Nazwisko ',imie=alltrim(imie1)+' '+alltrim(imie2):15:H = ' Imiona ',miasto:20:H = ' Miejscowosc ', ulica:15:H =' Ulica '
  9. nazwisko
  10.  Pracownicy 
  11. ewprac
  12. kasprac
  13. ewprac.spr with 2
  14. Nie ma danych F
  15. adnych pracownik
  16. nazwisko:25 :H = ' Nazwisko ',imie=alltrim(imie1)+' '+alltrim(imie2):15:H = ' Imiona ',miasto:20:H = ' Miejscowosc ', ulica:15:H =' Ulica '
  17. nazwisko
  18.  Pracownicy 
  19. ewprac
  20. ewprac.spr with 0
  21. ewprac.spr with 1
  22. ewprac.spr with 2
  23. kasprac
  24. nazwisko:25 :H = ' Nazwisko ',imie=alltrim(imie1)+' '+alltrim(imie2):15:H = ' Imiona ',miasto:20:H = ' Miejscowosc ', ulica:15:H =' Ulica '
  25. nazwisko
  26.  Pracownicy 
  27. ewprac
  28. druk.app with "
  29. ","ewwypl","
  30. ",ewprac.kod
  31. salary.spr with kod
  32. Nie ma danych F
  33. adnych pracownik
  34. nazwisko:25 :H = ' Nazwisko ',imie=alltrim(imie1)+' '+alltrim(imie2):15:H = ' Imiona ',miasto:20:H = ' Miejscowosc ', ulica:15:H =' Ulica '
  35. nazwisko
  36. 5 PEWZRIBBON
  37.    PL
  38.        ILE
  39.       EWPRAC
  40.    SPR
  41.    STARTLIS
  42.  MAINPATH
  43.  PODM
  44.  LISTA
  45.  EWWYPL
  46.  COPYPRAC
  47.  CLEARRIB
  48.  PEWZTAKNIE
  49.    KOD
  50.      EWWYPL
  51.    EWUMOWY
  52.   EWPRAC
  53.   KASPRAC
  54. _CUROBJ=OBJNUM(m.exiterr)
  55. _CUROBJ=OBJNUM(m.exitok)
  56. ewprac
  57. urzedy
  58. us_id
  59. TALKz
  60. COMPATIBLEz
  61. _qz90oodnr
  62.  Dane pracownika 
  63. _qz90oodnr
  64. Nazwisko:
  65. Data urodzenia:
  66. Gmina/dzielnica:
  67. Data przyjF
  68. cia do pracy:
  69. Nr lokalu:
  70.  Dane osobowe 
  71. Miejsce urodzenia:
  72.  ojca :
  73.  matki:
  74. Ulica      :
  75. MiejscowoF
  76. Kod        :
  77.  Miejsce zamieszkania 
  78. PESEL      :
  79. Data zwolnienia z pracy:
  80. @K 99-999
  81. @*HN UrzF
  82. d skarbowy
  83. @*C Pracownik zatrudniony na umowF
  84.  o prac
  85. @*C OdliczaF
  86.  koszty uzyskania przychodu
  87. @*C OdliczaF
  88.  kwot
  89.  nieopodatkowan
  90. @*HN Zapisz
  91. @*HT Zaniechaj
  92. Nr domu  :
  93. Telefon  :
  94. Poczta   :
  95. _qz90oodnr
  96. ON KPRAC
  97. EL ESWYPTYT
  98. J=OAREA
  99. m.exiIOPEN
  100. ON KUS_NAZWA
  101. 1URZAD_NR
  102. ORIBBON
  103. exiPL
  104. m.iESC
  105. =selecMAINPATH
  106. tPODM
  107. 'ewprEWPRAC
  108. eleKOD
  109. se NR_URZEDU
  110. DATAPRZYJ
  111. PODMPATH
  112. aURZEDY
  113.     US_ID
  114. =.t.CURRAREA
  115. eTALKSTAT
  116. cCOMPSTAT
  117. _QZ90OODNRNAZWISKO
  118. RIMIE1
  119.  koIMIE2
  120. eIMIEOJ
  121. nr_IMIEMAT
  122. mDATAUR
  123. a="MIEJSCEUR
  124. ULICA
  125. NR_DOMU
  126. NR_LOKALU
  127. MIASTO
  128. TELEFON
  129. KODZIP
  130. POCZTA
  131. DIFPESEL
  132. ct GMINA
  133. m.p_QZ90OOERKLPRACA
  134. iLKOSZT
  135. urzLODLICZ
  136. orDATAZW
  137. _QZ90OOF7GEXITOK
  138. d_n_QZ90OOFBJEXITERR
  139. tt_QZ90OOFJZ
  140. wyb_us.prg
  141. WYB_US
  142. N KPRG
  143. EL ES_
  144. a data
  145. DATAZW
  146. N KDATAPRZYJ
  147. a data
  148. ewprac
  149. ewprac
  150. DATAZW
  151. N KDATAPRZYJ
  152. J=OACT
  153. m.exiKOD
  154. ON KIDENT
  155. 1NAZWISKO
  156. _QZ90OODNR
  157. CURRWIND
  158. K_QZ90OODNRUS_NAZWA
  159. O_QZ90OOERK
  160. _QZ90OOF7G
  161. _QZ90OOFBJ
  162. _QZ90OOFJZ
  163. exactz
  164. _lowzorzec
  165. _lolistabr
  166. _lowzorzec
  167. TYTUL
  168. DLWZORCA
  169. MYILOSC
  170. ALIAS
  171. TOMENTER
  172. TOMPODGLADINFO
  173. CZYBLOK
  174. POMOC
  175. POLA1
  176. INDEX1
  177. POLA2
  178. INDEX2
  179. POLA3
  180. INDEX3
  181. POLA4
  182. INDEX4
  183. POLA5
  184. INDEX5
  185. NUMER
  186. IOPEN
  187. EXACT
  188. WIERSZE
  189. _LOWZORZEC_LOLISTABRSETRIB
  190. ZECPROPRZEGLASTARTPRO
  191. CLEARRIB
  192. {DNARROW}
  193. {UPARROW}
  194. {TAB}
  195.  Koniec danych 
  196.  PoczF
  197. tek danych 
  198.  Koniec danych 
  199.  PoczF
  200. tek danych 
  201.  Zapis jest zablokowany 
  202. DO &tomenter
  203. DO &tompodglad
  204. STRING
  205. MYQUIT
  206. WIERSZE
  207. _LOWZORZECDLWZORCA
  208. LOKATA
  209. MYSZR
  210. MYSZC
  211. GLADTCOL
  212. TOMENTER
  213. CZYBLOK
  214. BLOKADA
  215. MYILOSC
  216. PROPRZEGLATOMPODGLADSETRIB
  217. POMOC
  218. NUMER
  219. PROWYKAZ
  220. POLA1
  221. INDEX1
  222. POLA2
  223. INDEX2
  224. ZECPOLA3
  225. INDEX3
  226. INDEX4
  227. POLA5
  228. INDEX5
  229. LADMYILOSC
  230. SET ORDER TO &kolejnosc
  231. _olistast
  232. BROWSE NOWAIT WINDOW _olistast     IN WINDOW _lolistabr TITLE "Dane" COLOR SCHEM 10     FIELDS &pola    
  233. {INS}
  234. KOLEJNOSC
  235. _OLISTAST
  236. ZECTCOL
  237. STARTPRO
  238. PROPRZEGLA
  239. PROWYKAZ
  240. exactz
  241.  Razem 
  242. _lowzorzec
  243. _olistabr
  244. _losumy
  245. TYTUL
  246. DLWZORCA
  247. MYILOSC
  248. ALIAS
  249. TOMPLUS
  250. TOMENTER
  251. TOMDRUK
  252. TOMPODGLADTOMMINUS
  253. TOMBLOKUJ
  254. TOMANULUJ
  255. POMOC
  256. SUMGDZIE
  257. SUMILE
  258. SUMWYR
  259. POLA1
  260. INDEX1
  261. POLA2
  262. INDEX2
  263. POLA3
  264. INDEX3
  265. POLA4
  266. INDEX4
  267. POLA5
  268. INDEX5
  269. NUMER
  270. IOPEN
  271. EXACT
  272. _LOSUMY
  273. _LOWZORZEC_OLISTABR
  274. SETRIB
  275. ZECREFRSUMY
  276. PRZEGLAD
  277. CLEARRIB
  278. {DNARROW}
  279. {UPARROW}
  280. {TAB}
  281.  Koniec danych 
  282.  PoczF
  283. tek danych 
  284.  Koniec danych 
  285.  PoczF
  286. tek danych 
  287.  MiesiF
  288. c jest zablokowany 
  289.  Zapis jest zablokowany 
  290. Nie moF
  291. esz poprawia
  292. DO &tomenter
  293. DO &tomenter
  294.  MiesiF
  295. c jest zablokowany 
  296.  Zapis jest zablokowany 
  297. Nie moF
  298. esz usuwa
  299. DO &tomminus
  300. do &tomminus
  301.  MiesiF
  302. c jest zablokowany 
  303. Nie moF
  304. esz dodawa
  305. DO &tomplus    
  306. do &tomplus    
  307. DO &tomdruk
  308. DO &tomblokuj
  309. DO &tomanuluj            
  310. DO &tompodglad
  311. STRING
  312. LOKATA
  313. WIERSZE
  314. MYQUIT
  315. MYSZR
  316. MYSZC
  317. SUMILE
  318. DLWZORCA
  319. DGLADTROW
  320. TOMENTER
  321. TOMBLOKUJ
  322. BLOKUJ
  323. BLOKADA
  324. REFRSUMY
  325. SETRIB
  326. POMOC
  327. _LOWZORZECTOMMINUS
  328. BLOKUJ
  329. TOMPLUS
  330. BLOKUJ
  331. MYILOSC
  332. ECPRZEGLAD
  333. TOMDRUK
  334. TOMANULUJ
  335. TOMPODGLAD
  336. NUMER
  337. WYKAZ
  338. POLA1
  339. INDEX1
  340. POLA2
  341. INDEX2
  342. POLA3
  343. INDEX3
  344. INDEX4
  345. POLA5
  346. INDEX5
  347. MYILOSC
  348. SET ORDER TO &kolejnosc
  349. BROWSE NOWAIT WINDOW _dlabrow     IN WINDOW _olistabr TITLE "Dane" COLOR SCHEM 10     FIELDS &pola    
  350. {INS}
  351. KOLEJNOSC
  352. _DLABROW
  353. SUM ALL &sumwyr TO ARRAY sumy FOR not poprawka and typ <> 50
  354. SUM ALL &sumwyr TO ARRAY sumy 
  355. Razem
  356. 99,999,999,999.99 
  357. LEJNOSC
  358. ILREC
  359. SUMWYR
  360. SUMILE
  361. TOMANULUJ
  362. _LOSUMY
  363. SUMGDZIE
  364. PRZEGLAD
  365. WYKAZ
  366. REFRSUMY
  367. @ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col
  368. RIBBON
  369. SETRIB
  370. CLEARRIB
  371. m.xloc = m.xloc
  372. errors
  373. \<Nie
  374. \<Tak
  375. ECODE1
  376. DEFAULTANSY0
  377. OLDALIAS
  378. SYSPATH
  379. SERRWIN
  380. ERRCODE
  381. ERRORS
  382. MESSAGE
  383. urzedy
  384. urzedy
  385. urzedy.app
  386. urzedy,
  387.  UrzF
  388. dy skarbowe 
  389. urzedy
  390. us_nazwa, us_id
  391.  Brak urzedF
  392. 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'
  393. us_nazwa
  394. RIBBON
  395. IOPEN
  396. US_ID
  397. URZEDY
  398. PODMPATH
  399. URZAD_NR
  400. WYBIERZ
  401. RETVAL
  402. IDENT
  403. @ wrows()-1, 0 say padr(m.text, wcols()-1," " ) COLOR &col
  404. exactz
  405. LISTAZW
  406. _olistazw
  407. _owzorzec
  408. TYTUL
  409. DLWZORCA
  410. ILOSC
  411. TOMPODGLADZWROT
  412. POMOC
  413. POLA1
  414.     INDEX1
  415. POLA2
  416. INDEX2
  417. POLA3
  418. INDEX3
  419. {UPPOLA4
  420. .INDEX4
  421. POLA5
  422. INDEX5
  423. \MYQUIT
  424. NUMER
  425. IOPEN
  426. EXACT
  427. %WZWIERSZE
  428.  KonLISTAZW
  429. _OLISTAZW
  430. _OWZORZEC
  431. SETRIB
  432. WYBPRZEGLAWYBPRO
  433. CLEARRIB
  434. {DNARROW}
  435. {UPARROW}
  436. {TAB}
  437.  Koniec danych 
  438.  PoczF
  439. tek danych 
  440.  Koniec danych 
  441.  PoczF
  442. tek danych 
  443. SCATTER FIELDS &coret MEMVAR
  444. DO &tompodglad
  445. CORET
  446. STRING
  447. LOKATA
  448. MYSZR
  449. MYSZC
  450. DBLTIME
  451. MYQUIT
  452. CHANGED
  453. DGLAD_OWZORZEC
  454. DLWZORCA
  455.     TROW
  456. WZWIERSZE
  457. ILOSC
  458. WYBPRZEGLATOMPODGLADSETRIB
  459. POMOC
  460. NUMER
  461. WYBWYKAZ
  462. POLA1
  463. INDEX1
  464. POLA2
  465. INDEX2
  466. POLA3
  467. INDEX3
  468. INDEX4
  469. DPOLA5
  470. INDEX5
  471. ILOSC
  472. SET ORDER TO &kolejnosc
  473. _olbrow
  474. BROWSE NOWAIT WINDOW _olbrow    IN WINDOW _olistazw TITLE "Wybierz" COLOR SCHEM 10     FIELDS &pola
  475. _olistazw
  476. {INS}
  477. KOLEJNOSC
  478. _OLBROW
  479. WZWIERSZE
  480. WYBPRO
  481. WYBPRZEGLA
  482. WYBWYKAZ
  483. TALKz
  484. COMPATIBLEz
  485. _qz90ooj3n
  486.  Wynagrodzenia 
  487. _qz90ooj3n
  488. Brutto:
  489. Koszt:
  490. Zaliczka:
  491. Odliczenie:
  492. Nazwisko:
  493. @*HT OK
  494. acono:
  495. _qz90ooj3n
  496. NUMER
  497. RIBBON
  498. WYPLATY
  499. EWWYPL
  500. GOTOWKA
  501. NATURA
  502. DOPLATA
  503. NETTO
  504. ZALICZKA
  505. KOSZT
  506. ODLICZENIEKOD
  507. CURRAREA
  508. TALKSTAT
  509. COMPSTAT
  510. _QZ90OOJ3NEWPRAC
  511. 3NNAZWISKO
  512. IMIE1
  513. EXITOK
  514. prac.dbf
  515. NAZWA
  516. TWODIG
  517. KFULLYEAR
  518. OROKNR
  519. KOMMAINPATH
  520. MPODM
  521. EWPRAC
  522. LDATAZW
  523. ENOTICE
  524. @L 99c
  525. CURSORz
  526. errors
  527.  WciF
  528. nij dowolny klawisz ...
  529. ECodeF
  530. SET CURSOR &curstat
  531. ECODE1
  532. ECODE2
  533. ECODE3
  534. OLDALIAS
  535. ILOSC
  536. CURSTAT
  537. SYSPATH
  538. ERRWIN
  539. ERRORS
  540. ERRCODE
  541. MESSAGE
  542. ..\EWPRAC\EWPRAC.PRG
  543. C:\KSIEGA\SYSTEM\
  544. ..\EWPRAC\EWPRAC.SPR
  545. ..\COMMON\STARTLIS.PRG
  546. ..\COMMON\LISTA.PRG
  547. ..\COMMON\CLEARRIB.PRG
  548. ..\COMMON\TAKNIE.PRG
  549. ..\PODMIOTY\WYB_US.PRG
  550. ..\COMMON\IDENT.PRG
  551. ..\COMMON\SETRIB.PRG
  552. ..\COMMON\WYBIERZ.PRG
  553. ..\EWPRAC\SALARY.SPR
  554. ..\EWPRAC\COPYPRAC.PRG
  555. ..\COMMON\FULLYEAR.PRG
  556. ..\COMMON\TWODIG.PRG
  557. ..\COMMON\NOTICE.PRG
  558. EWPRAC.FXP
  559. EWPRAC.SPX
  560. STARTLIS.FXP
  561. LISTA.FXP
  562. CLEARRIB.FXP
  563. TAKNIE.FXP
  564. WYB_US.FXP
  565. IDENT.FXP
  566. SETRIB.FXP
  567. WYBIERZ.FXP
  568. SALARY.SPX
  569. COPYPRAC.FXP
  570. FULLYEAR.FXP
  571. TWODIG.FXP
  572. NOTICE.FXP
  573.