home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 May / PCW596.iso / polskie / insert / rachmist / system.arj / GETDATE.APP (.txt) < prev    next >
Encoding:
MS Visual FoxPro App  |  1996-01-21  |  12.2 KB  |  271 lines
  1. getdate.spr
  2. miesiac
  3. check.app
  4. miesiac.mem
  5. miesiac
  6. miesiac.mem
  7. miesiac
  8. FFF$m
  9. check.app
  10. getdate.spr
  11. miesiac
  12. @ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col
  13. check.app
  14. OLMIES
  15. OLDROK
  16. PASSED
  17. SCIEZ
  18. ROKNR
  19. MIESNR
  20. GETDATE
  21. OLDMIES
  22. MAINPATH
  23. CHECK
  24. CLEARRIB
  25. MAKEPODM
  26. FIRMNR
  27. RACHCRC
  28. RIBBON
  29. OPENBASE
  30. NAPIS
  31. podmioty
  32. podmioty
  33. symbol
  34. StyczeF
  35. Marzec
  36. KwiecieF
  37. Czerwiec
  38. Lipiec
  39. SierpieF
  40. WrzesieF
  41. dziernik
  42. Listopad
  43. GrudzieF
  44. @20,0 SAY "U"+pl[18]+"ytkownik      : "+m.username color &n_color
  45. @21,0 SAY "Aktualny podmiot: "+m.n_nazwa color &n_color
  46. @22,0 SAY "Miesi"+pl[10]+"c         : "+m.n_miesiac+" "+alltrim(str(fullyear(m.roknr))) color &n_color
  47. @23,0 SAY iif( alltrim(rachcrc) <> "", "Numer licencji  : "+alltrim(rachcrc),     "Wersja demonstracyjna") color &n_color
  48. N_MIESIAC
  49. IOPEN
  50. N_NAZWA
  51. N_COLOR
  52. oPODMPATH
  53. PODMIOTY
  54. SYMBOL
  55. TFIRMNR
  56. NAZWA
  57. MIESNR
  58. firmaF
  59. FIRMNR
  60. TWODIG
  61. ident
  62. ident
  63. ewfirm
  64. ewfirmy
  65. ewsrtr
  66. ewsrtr
  67. ewamort
  68. ewamort
  69. miesiace
  70. ewprac
  71. ewwypl
  72. ewwypos
  73. ewumowy
  74. ewreman
  75. ewzvf
  76. ewzvr
  77. ewzvfk
  78. ewzvrk
  79. ewsvf
  80. ewsvr
  81. ewsvfk
  82. ewsvrk
  83. MAKEPUB
  84. DACZEKAJ
  85. SHUTOPEN
  86. MAINPATH
  87. NPODM
  88. EWPRAC
  89. EWWYPL
  90. EWWYPOS
  91. 4EWUMOWY
  92. EWREMAN
  93. EWZVF
  94. EWZVR
  95. EWZVFK
  96. EWZVRK
  97. EWSVF
  98. EWSVR
  99. EWSVFK
  100. EWSVRK
  101. CZYTBLOK
  102. @L 99c
  103. pojazd
  104. pprzej
  105. prach
  106. umowy
  107. wypos
  108. LOEWPOJAZD
  109. MEWPRAC
  110. AEWREMAN
  111. NPEWWYPOS
  112. POEWZVF
  113. PODEWZVR
  114. EWZVFK
  115. EWZVRK
  116. EWSVF
  117. MEWSVR
  118. FUEWSVFK
  119. MONEWSVRK
  120. EWWYPL
  121. EWUMOWY
  122. EWPPRZEJ
  123. QEWPRACH
  124. PRACH
  125. MAKEPODM
  126. FIRMNR
  127. TWODIG
  128. ROKNR
  129. AMIESNR
  130. WaitWin
  131. Za chwilF
  132.  dalszy ci
  133. g programu.
  134. DrukujF
  135. CierpliwoF
  136. ci. Mo
  137. e to potrwa
  138. ugo...
  139. ONOFF
  140. KOMUNIK
  141. WAITWIN
  142. MIESIACE
  143. MIESIAC
  144. MIESNR
  145. ROKNR
  146. MBLOKADA
  147. @ wrows()-1, 0 say padr(m.text, wcols()-1," " ) COLOR &col
  148. OKADAWIND
  149. @ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col
  150. RIBBON
  151. SETRIB
  152. CLEARRIB
  153. ??mies.dbf
  154. mies1
  155. (zablokowany)
  156. TALKz
  157. COMPATIBLEz
  158. _qz90oljw5
  159.  Wybierz miesiF
  160. c do pracy 
  161. _qz90oljw5
  162. @ 1,2 GET m.wybor     PICTURE "@&T"     POPUP _qz90olkdt     SIZE 9,34     DEFAULT " "     VALID _qz90olkhq()     MESSAGE ribbon[1]+ribbon[11]+ribbon[9]     COLOR SCHEME 13
  163. @*HN Nowy miesiF
  164. _qz90oljw5
  165. XXXXXXILEY
  166. XXXXXILEM
  167. XXXXXSCIEZ
  168. XXXXI
  169. XXXXXXXXROK
  170. NAZWA
  171. WYBOR
  172. JESTNOWY
  173. /NOWYM
  174. FNOWYR
  175. RIBBON
  176. (BLOK
  177. MAINPATH
  178. MAKEPODM
  179. FFIRMNR
  180. _MIESIAC
  181. MIESIAC
  182. MBLOKADA
  183. SYSPATH
  184. _MIES1
  185. FULLYEAR
  186. DATAMI
  187. CURRAREA
  188. TALKSTAT
  189. /COMPSTAT
  190. _QZ90OLJW5F1
  191. _QZ90OLKDTNEW
  192. 0OLJW5_QZ90OLKLH_QZ90OLKOX4
  193. XXXXXXDATY
  194. XXXXXROK
  195. XXXXXMN
  196. XXXXMIES
  197. XXXXXPASSED
  198. nowymies.spr
  199. NOWYMIES
  200. XXXXXJESTNOWY
  201. XXXXNOWYR
  202. XXXXMN
  203. NOWYM
  204. PASSED
  205. {ENTER}
  206. XXXXX_QZ90OLKHQ
  207. _QZ90OLKLH
  208. _QZ90OLKOX
  209. TALKz
  210. COMPATIBLEz
  211. _qz90ollgf
  212.  Nowy miesiF
  213. _curobj = objnum( m.exitok )
  214. _curobj = objnum( m.exiterr )
  215. _qz90ollgf
  216. stycze
  217. @^ stycze
  218. ;luty;marzec;kwiecie
  219. ;maj;czerwiec;lipiec;sierpie
  220. ;wrzesie
  221. dziernik;listopad;grudzie
  222. @*HN Zapisz
  223. @*HT Zaniechaj
  224. _qz90ollgf
  225. RIBBON
  226. CURRAREA
  227. TALKSTAT
  228. COMPSTAT
  229. _QZ90OLLGFF10
  230. EXITOK
  231. LGF_QZ90OLLQYEXITERR
  232. _QZ90OLLV9
  233. Taki miesiF
  234.  istnieje!
  235. JESTNOWY
  236. NOWYR
  237. NOWYM
  238. KSTAT
  239. JESTNOWY
  240. _QZ90OLLQY
  241. _QZ90OLLV9
  242. ..\GETDATE\GETDATE.PRG
  243. C:\KSIEGA\SYSTEM\
  244. ..\COMMON\NAPIS.PRG
  245. ..\COMMON\MAKEPODM.PRG
  246. ..\COMMON\OPENBASE.PRG
  247. ..\COMMON\TWODIG.PRG
  248. ..\COMMON\MAKEPUB.PRG
  249. ..\COMMON\CZEKAJ.PRG
  250. ..\COMMON\SHUTOPEN.PRG
  251. ..\COMMON\CZYTBLOK.PRG
  252. ..\COMMON\SETRIB.PRG
  253. ..\COMMON\CLEARRIB.PRG
  254. ..\GETDATE\GETDATE.SPR
  255. ..\GETDATE\NOWYMIES.SPR
  256. ..\COMMON\FULLYEAR.PRG
  257. GETDATE.FXP
  258. NAPIS.FXP
  259. MAKEPODM.FXP
  260. OPENBASE.FXP
  261. TWODIG.FXP
  262. MAKEPUB.FXP
  263. CZEKAJ.FXP
  264. SHUTOPEN.FXP
  265. CZYTBLOK.FXP
  266. SETRIB.FXP
  267. CLEARRIB.FXP
  268. GETDATE.SPX
  269. NOWYMIES.SPX
  270. FULLYEAR.FXP
  271.