p_ewidf pojazd.prg rachun.prg przejazd.prg Pojazdy ewpojazd pojazd.prg WITH 1 pojazd.prg WITH 2 Nie ma F adnych pojazd wlasciciel:30:H = 'WF ciciel',marka:30:H=' Marka ',nr_rej:16:H='Nr rejestacyjny' wlasciciel marka:30:H=' Marka ',wlasciciel:30:H = 'WF ciciel',nr_rej:16:H='Nr rejestacyjny' marka ewprach Rachunki ewprach rachun.prg WITH 1, F rachun.prg WITH 2, F Nie ma F adnych rachunk dz=day(data):4:H = ' Dz ',nr:20:H=' Numer ',opis:30:H=' Opis ',wartosc:H=' WartoF ':P='9,999,999,999.99' dzien nr:20:H=' Numer ',opis:30:H=' Opis ',dz=day(data):4:H = ' Dz ',wartosc:H=' WartoF ':P='9,999,999,999.99' numer opis:30:H=' Opis ',dz=day(data):4:H = ' Dz ',nr:20:H=' Numer ',wartosc:H=' WartoF ':P='9,999,999,999.99' ewpprzej Przejazdy ewpprzej przejazd.prg WITH 1, F przejazd.prg WITH 2, F Nie ma F adnych przejazd dz=day(data):4:H = ' Dz ',cel:30:H=' Cel ',trasa:30:H=' Trasa ' dzien cel:30:H=' Cel ',trasa:30:H=' Trasa ',dz=day(data):4:H = ' Dz ' trasa:30:H=' Trasa ',dz=day(data):4:H = ' Dz ',cel:30:H=' Cel ' trasa Pojazdy ewpojazd usunpoj pojazd.prg WITH 2 Nie ma F adnych pojazd wlasciciel:30:H = 'WF ciciel',marka:30:H=' Marka ',nr_rej:16:H='Nr rejestacyjny' wlasciciel marka:30:H=' Marka ',wlasciciel:30:H = 'WF ciciel',nr_rej:16:H='Nr rejestacyjny' marka ewprach Rachunki ewprach usunrach rachun.prg WITH 2, F Nie ma F adnych rachunk dz=day(data):4:H = ' Dz ',nr:20:H=' Numer ',opis:30:H=' Opis ',wartosc:H=' WartoF ':P='9,999,999,999.99' dzien nr:20:H=' Numer ',opis:30:H=' Opis ',dz=day(data):4:H = ' Dz ',wartosc:H=' WartoF ':P='9,999,999,999.99' numer opis:30:H=' Opis ',dz=day(data):4:H = ' Dz ',nr:20:H=' Numer ',wartosc:H=' WartoF ':P='9,999,999,999.99' ewpprzej Przejazdy ewpprzej usunprze przejazd.prg WITH 2, F Nie ma F adnych przejazd dz=day(data):4:H = ' Dz ',cel:30:H=' Cel ',trasa:30:H=' Trasa ' dzien cel:30:H=' Cel ',trasa:30:H=' Trasa ',dz=day(data):4:H = ' Dz ' trasa:30:H=' Trasa ',dz=day(data):4:H = ' Dz ',cel:30:H=' Cel ' trasa Pojazdy ewpojazd pojazd.prg WITH 0 pojazd.prg WITH 1 druk.app with m.mainpath+m.podm+m.ewpojazd, 'ewpojazd' pojazd.prg WITH 2 usunpoj wlasciciel:30:H = 'WF ciciel',marka:30:H=' Marka ',nr_rej:16:H='Nr rejestacyjny' wlasciciel marka:30:H=' Marka ',wlasciciel:30:H = 'WF ciciel',nr_rej:16:H='Nr rejestacyjny' marka ewprach Rachunki ewprach rachun.prg WITH 0, F rachun.prg WITH 1, F druk.app WITH (m.mainpath + m.podm + m.ewprach), "ewprach", (m.mainpath + m.podm + m.ewpojazd), (x_id) rachun.prg WITH 2, F usunrach dz=day(data):4:H = ' Dz ',nr:20:H=' Numer ',opis:30:H=' Opis ',wartosc:H=' WartoF ':P='9,999,999,999.99' dzien nr:20:H=' Numer ',opis:30:H=' Opis ',dz=day(data):4:H = ' Dz ',wartosc:H=' WartoF ':P='9,999,999,999.99' numer opis:30:H=' Opis ',dz=day(data):4:H = ' Dz ',nr:20:H=' Numer ',wartosc:H=' WartoF ':P='9,999,999,999.99' ewpprzej Przejazdy ewpprzej przejazd.prg WITH 0, F przejazd.prg WITH 1, F druk.app WITH (m.mainpath + m.podm + m.ewpprzej), "ewpprzej", (m.mainpath + m.podm + m.ewpojazd), (x_id) przejazd.prg WITH 2, F usunprze dz=day(data):4:H = ' Dz ',cel:30:H=' Cel ',trasa:30:H=' Trasa ' dzien cel:30:H=' Cel ',trasa:30:H=' Trasa ',dz=day(data):4:H = ' Dz ' trasa:30:H=' Trasa ',dz=day(data):4:H = ' Dz ',cel:30:H=' Cel ' trasa druk.app ewpojazd druk.app ewprach druk.app ewpprzej doksiegi.prg odksieg.prg pparam.prg P_ACT bVP_EWID KATPL RIBBON 5X_ID UP.PJWYBIERZPOJPOJAZD PKAPRG RACHUN PRZEJAZD JSTARTLIS MAINPATH KPODM EWPOJAZD L_OPENP PJEWPRACH PDATA MIESNR ROKNR TDOCEWPPRZEJ LISTA fDRUK DOKSIEGI .ODKSIEG PPARAM Dane pojazdF pojazd.prg WITH 2 Brak danych pojazdF wlasciciel:30:H = 'WF ciciel',marka:30:H=' Marka ',nr_rej:16:H='Nr rejestacyjny' wlasciciel marka:30:H=' Marka ',wlasciciel:30:H = 'WF ciciel',nr_rej:16:H='Nr rejestacyjny' marka bVWYBIERZ MAINPATH 5PODM JEWPOJAZD JRIBBON PKAWYBIERZPOJ exactz _lowzorzec _lolistabr _lowzorzec TYTUL DLWZORCA MYILOSC ALIAS TOMENTER TOMPODGLADINFO CZYBLOK POMOC POLA1 INDEX1 POLA2 INDEX2 POLA3 INDEX3 POLA4 INDEX4 "POLA5 INDEX5 NUMER IOPEN EXACT WIERSZE _LOWZORZEC_LOLISTABRSETRIB ZECPROPRZEGLASTARTPRO CLEARRIB {DNARROW} {UPARROW} {TAB} Koniec danych PoczF tek danych Koniec danych PoczF tek danych Zapis jest zablokowany DO &tomenter DO &tompodglad STRING MYQUIT WIERSZE _LOWZORZECDLWZORCA LOKATA MYSZR MYSZC GLADTCOL TOMENTER CZYBLOK BLOKADA MYILOSC PROPRZEGLATOMPODGLADSETRIB "POMOC NUMER PROWYKAZ POLA1 INDEX1 POLA2 INDEX2 ZECPOLA3 INDEX3 INDEX4 POLA5 INDEX5 LADMYILOSC SET ORDER TO &kolejnosc _olistast BROWSE NOWAIT WINDOW _olistast IN WINDOW _lolistabr TITLE "Dane" COLOR SCHEM 10 FIELDS &pola {INS} KOLEJNOSC _OLISTAST ZECTCOL STARTPRO PROPRZEGLA PROWYKAZ exactz Razem _lowzorzec _olistabr _losumy TYTUL DLWZORCA MYILOSC ALIAS TOMPLUS TOMENTER TOMDRUK TOMPODGLADTOMMINUS mTOMBLOKUJ TOMANULUJ POMOC pnySUMGDZIE SUMILE USUMWYR rzyPOLA1 INDEX1 WstPOLA2 ZaINDEX2 zysPOLA3 @INDEX3 POLA4 INDEX4 POLA5 INDEX5 NUMER IOPEN EXACT _LOSUMY _LOWZORZEC_OLISTABR SETRIB ZECREFRSUMY PRZEGLAD CLEARRIB {DNARROW} {UPARROW} {TAB} Koniec danych PoczF tek danych Koniec danych PoczF tek danych MiesiF c jest zablokowany Zapis jest zablokowany Nie moF esz poprawia DO &tomenter DO &tomenter MiesiF c jest zablokowany Zapis jest zablokowany Nie moF esz usuwa DO &tomminus do &tomminus MiesiF c jest zablokowany Nie moF esz dodawa DO &tomplus do &tomplus DO &tomdruk DO &tomblokuj DO &tomanuluj DO &tompodglad STRING LOKATA WIERSZE MYQUIT MYSZR MYSZC SUMILE DLWZORCA DGLADTROW mFROW TOMENTER yTOMBLOKUJ BLOKUJ BLOKADA stREFRSUMY aSETRIB zysPOMOC @DANE _LOWZORZECTOMMINUS BLOKUJ TOMPLUS BLOKUJ MYILOSC ECPRZEGLAD TOMDRUK TOMANULUJ TOMPODGLAD NUMER WYKAZ POLA1 INDEX1 POLA2 INDEX2 POLA3 INDEX3 INDEX4 POLA5 INDEX5 MYILOSC SET ORDER TO &kolejnosc BROWSE NOWAIT WINDOW _dlabrow IN WINDOW _olistabr TITLE "Dane" COLOR SCHEM 10 FIELDS &pola {INS} KOLEJNOSC _DLABROW SUM ALL &sumwyr TO ARRAY sumy FOR not poprawka and typ <> 50 SUM ALL &sumwyr TO ARRAY sumy Razem 99,999,999,999.99 LEJNOSC ILREC SUMWYR SUMILE TOMANULUJ _LOSUMY SUMGDZIE PRZEGLAD WYKAZ REFRSUMY @ wrows()-1, 0 say padr(m.text, wcols()-1," " ) COLOR &col @ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col RIBBON SETRIB CLEARRIB ewpojazd _CUROBJ = OBJNUM( l_exitok ) _CUROBJ = OBJNUM( l_exiterr ) pojazd.spr P_ACT L_AREA L_OPEN EWPOJAZD MAINPATH POJEMN POJAZD Nie wprowadzono danych! P_VAL P_NUM ewpojazd ewpojazd VEMPTY WLASCICIELMARKA IELNR_REJ EWPOJAZD P_ACT IDENT VEMPTY VEXITOK TALKz COMPATIBLEz pojazd Dane pojazdu pojazd Nr rejestracyjny : Marka : ciciel : @K XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX @K XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX @K XXXXXXXXXXXXXXXXXXXX PojemnoF : @*RVN do 900 cm;powyF ej 900 cm @*HN Zapisz @*HT Zaniechaj pojazd CURRAREA TALKSTAT COMPSTAT POJAZD RIBBON WLASCICIELP_ACT VEMPTY MARKA IELNR_REJ POJEMN L_EXITOK VEXITOK L_EXITERR RETVAL [13IDENT L_AREA TAKNIE MAINPATH EWPPRZEJ _PRZEJ EWPOJAZD L_PRZEJ EWPRACH _RACH L_RACH NOTICE m.xloc = m.xloc errors \