ERROR DO fatalerr WITH ERROR(), MESSAGE(), MESSAGE(1), PROGRAM(), LINENO(), DATE() KontrolujF bazy chksys.prg podmioty podmioty podmioty ON ERROR &olderror CHECKWHAT OLDERROR CZEKAJ CHKSYS CHKBASE PODMPATH DOCHECK PODMIOTY SYMBOL FIRMNR CHKSTAT CHKYEAR ROKNR CHKMONTH MIESNR CHKMIES chkmonth.prg SYMBOL YEARS MONTHS CHKSTAT CHECKWHAT CHKYEAR ROKNR CHKMONTH MIESNR FILLYEARS FILLMONTHSPRG ??mies.dbf SYMBOL YEARS MAINPATH MAKEPODM SYMBOL MONTHS INPATH MAINPATH MAKEPODM TWODIG MIESIAC miesiace SYMBOL YEARS FILLYEARS CHKBASE TWODIG MAINPATH MAKEPODM DOCHECK FILLYEARS FILLMONTHS CHKMIES opisy opisy podmioty podmioty users users urzedy urzedy komunik komunik tresc tresc params params separat separat pojazd pojazd CHKBASE PODMPATH CHKMEM pdwzor ewreman ewspvat ewspvat ewspvat ewspvat ewzakvat ewzakvat ewzakvat ewzakvat CREAT MAINPATH MAKEPODM TWODIG CHKBASE ADDMONTH UPDVAT zvf.dbf zvr.dbf zvfk.dbf zvrk.dbf svf.dbf svr.dbf svfk.dbf svrk.dbf rem.dbf LOCPATH czanie miesi SYMBOL LOCPATH NUMCIAG SUMCIAG NUMPOCZ BIPATH CNTWORK MAINPATH MAKEPODM TWODIG NUMER MIESIAC WORKPATH BI_WORK MBLOKADA FULLYEAR MONTHCHK ADDMONTH ADMIN Uwaga, uwaga, uwaga... NastF powa d systemowy. Twoje dane na dysku twardym sF prawdopodobnie fizycznie uszkodzone. UF yj dyskietek z archiwum aby uratowa dane. Procedura , linia NaciF nij dowolny klawisz... ERMES ERLIN ERLINNO ERDZIEN ISADM NOTICE CLEAR ERRWIN SYSPATH ER_LIN ER_NO ER_MES ER_LIN1 PR_NAME ER_DATE ewamort ewamort ewfirmy ewfirmy ewsrtr ewsrtr ident ident wspolnik wspolnik pit11 pit11 pit32 pit32 vatb7 vatb7 import impsv import impzv import imppar kateg kateg danearch danearch SYMBOL MAINPATH TMAKEPODM ICHKBASE CHKMEM miesiace ewprac ewumowy umowy ewwypl ewwypos wypos ewpojazd pojazd ewprach prach ewpprzej pprzej SYMBOL ROKSTR CREAT MAINPATH MAKEPODM TWODIG CHKBASE mies.dbf prac.dbf umowy.dbf wypl.dbf wypos.dbf pojazd.dbf pprzej.dbf prach.dbf LOCPATH YEARCHK KontrolujF plik: Zmieniam strukture pliku: ewzakvat ewwypl pdwzor pit32 ewzakvat ewwypl updzus.prg pit32 pdwzor updks.prg SYMBOL NAZWACZYS NAZWA NAZWAPATH CREATE TEMPDBF TEMPCDX TEMPFPT PUREDBF PURECDX PUREFPT FULLDBF FULLCDX FULLFPT CZYSPATH TEMPPATH COMPARE GOODKS LICZYC _TEMP UPDZAK UPDZUS UPDKS KontrolujF plik: SYMBOL cjaNAZWACZYS NAZWA HKMENAZWAPATH CREATE TEMPMEM PUREMEM FULLMEM CZYSPATH FILENAME WaitWin Za chwilF dalszy ci g programu. DrukujF CierpliwoF ci. Mo e to potrwa ugo... ONOFF KOMUNIK WAITWIN m.xloc = m.xloc errors \