Remanent ewreman ewreman.spr with 1 ewreman.spr with 2 Nie ma F adnych zapis w remenentu nazwa:12 :H = 'Nazwa towaru',kodtow:14:H=' Kod towaru ',jm:3:H=' Jm ',ilosc:9:H=' Ilo'+pl[16]+pl[11]+' ',cena:H= ' Cena jedn. ':P='99,999,999,999.99', w=cena*ilosc:H = 'Warto'+pl[16]+pl[11]+' ':P='99,999,999,999.99' nazwa kodtow:14:H=' Kod towaru ',nazwa:12 :H = 'Nazwa towaru',jm:3:H=' Jm ',ilosc:9:H=' Ilo'+pl[16]+pl[11]+' ',cena:H= ' Cena jedn. ':P='99,999,999,999.99', w=cena*ilosc:H = 'Warto'+pl[16]+pl[11]+' ':P='99,999,999,999.99' kodtow Remanent ewreman pozycja ewreman.spr with 2 Nie ma F adnych zapis w remanentu nazwa:12 :H = 'Nazwa towaru',kodtow:14:H=' Kod towaru ',jm:3:H=' Jm ',ilosc:9:H=' Ilo'+pl[16]+pl[11]+' ',cena:H= ' Cena jedn. ':P='99,999,999,999.99', w=cena*ilosc:H = 'Warto'+pl[16]+pl[11]+' ':P='99,999,999,999.99' nazwa kodtow:14:H=' Kod towaru ',nazwa:12 :H = 'Nazwa towaru',jm:3:H=' Jm ',ilosc:9:H=' Ilo'+pl[16]+pl[11]+' ',cena:H= ' Cena jedn. ':P='99,999,999,999.99', w=cena*ilosc:H = 'Warto'+pl[16]+pl[11]+' ':P='99,999,999,999.99' kodtow Remanent ewreman wpisuj ewreman.spr with 1 druk.app with m.mainpath+m.podm+m.ewreman, 'ewreman' ewreman.spr with 2 pozycja cena*ilosc nazwa:12 :H = 'Nazwa towaru',kodtow:14:H=' Kod towaru ',jm:3:H=' Jm ',ilosc:9:H=' Ilo'+pl[16]+pl[11]+' ',cena:H= ' Cena jedn. ':P='99,999,999,999.99', w=cena*ilosc:H = 'Warto'+pl[16]+pl[11]+' ':P='99,999,999,999.99' nazwa kodtow:14:H=' Kod towaru ',nazwa:12 :H = 'Nazwa towaru',jm:3:H=' Jm ',ilosc:9:H=' Ilo'+pl[16]+pl[11]+' ',cena:H= ' Cena jedn. ':P='99,999,999,999.99', w=cena*ilosc:H = 'Warto'+pl[16]+pl[11]+' ':P='99,999,999,999.99' kodtow druk.app ewreman RIBBON podmioWPISUJ STARTLIS MAINPATH %EWREMAN LISTA RDRUK #KSREMAN ODKSREMAN COPYREM CLEARRIB MIESIACE KREMAN FNOTICE TAKNIE doksiegi.spr FMIESIACE KREMAN mioNOTICE EWREMAN ILOSC %DOKSIEGI Zapis jest zablokowany MIESIACE FKREMAN NOTICE mioWORK BLOKADA 9912rem.dbf 12rem.dbf rem.dbf ewreman scalrem.prg info.spr Skopiowano F pozycji TEKST NAZWA mioMYMIES EWREMAN MIESNR ROKNR %TWODIG MAINPATH RPODM TYMCZ #OLDREM ILOSC KODTOW SCALREM NOTICE ewreman.spr MIESIACE FKREMAN NOTICE mioEWREMAN POZYCJA KSREMAN ODKSREMAN COPYREM WPISUJ _curobj=objnum(m.exitok) _curobj=objnum(m.exiterr) ewreman TALKz COMPATIBLEz m.nazwa m.kodtow m.ilosc m.cena m.exitok m.exiterr m.exitfin _qz90os3mx Remanent _qz90os3mx Jednostka miary: Cena: WartoF Nazwa : Kod towaru : @K 99,999,999,999.99 @K 99,999,999,999.99 99,999,999,999.99 @*HN Zapisz i kontunuuj @*HT Zaniechaj @*HN Zapisz i zakoF _qz90os3mx DALEJ IOPEN WARTOSC RIBBON MIESIACE KREMAN NOTICE MAINPATH EWREMAN ILOSC CURRAREA TALKSTAT COMPSTAT __OBJS __NUMOBJ _QZ90OS3MXNAZWA S3MXKODTOW _QZ90OS496_QZ90OS4COEXITOK _QZ90OS4HEEXITERR _QZ90OS4LTEXITFIN _QZ90OS4QZ_QZ90OS4UZ_QZ90OS4V2# WARTOSC ILOSC m.cena SETRIB RIBBON ILOSC m.ilosc m.exitok SETRIB RIBBON Pozycja zerowa ewreman WARTOSC ILOSC DALEJ Pozycja zerowa ewreman WARTOSC ILOSC DALEJ EXITERR DALEJ EXITFIN _QZ90OS3MX 99,999,999,999.99 CURRWIND _QZ90OS3MXWARTOSC _QZ90OS496 _QZ90OS4CO _QZ90OS4HE _QZ90OS4LT _QZ90OS4QZ _QZ90OS4UZ _QZ90OS4V2 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 TOMBLOKUJ TOMANULUJ POMOC SUMGDZIE SUMILE SUMWYR POLA1 INDEX1 POLA2 INDEX2 POLA3 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 TOMENTER TOMBLOKUJ BLOKUJ BLOKADA REFRSUMY SETRIB POMOC _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 Dane ksiF gowania remenentu _curobj=objnum(m.exitok) _curobj=objnum(m.exiterr) TALKz COMPATIBLEz _qz90os70q _qz90os70q Data ksiF gowania: WartoF : Kategoria : Opis : Uwagi : 99,999,999,999.99 @KL 99 @!TK XXXXXXXXXX @K XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX @*HN KsiF @*HT Zaniechaj _qz90os70q WARTOSC wyRIBBON DZIEN UWAGI TYTUL CZEKAJ wySCALREM (CURRAREA oTALKSTAT COMPSTAT _QZ90OS70QFULLYEAR QROKNR miasTWODIG ktuMIESNR InsACT - te_QZ90OS7HC_QZ90OS7LC_QZ90OS7O5_QZ90OS7RB_QZ90OS7UBEXITOK h p_QZ90OS7Z6_QZ90OS81UEXITERR yk_QZ90OS86X_QZ90OS8A1 Musisz podaF a data DZIEN MAXDAY MIESNR do wpiskat.prg do dodkat.prg do wpisopis.prg do dodopis.prg Musisz podaF a data Remanent DZIEN MAXDAY MIESNR FIRMA WZAKUP KATEG UWAGI wyPOPRAWKA (BLOKADA oIDENT D2DATA ROKNR S70QWARTOSC miasMIESIACE uKREMAN sNOTICE _QZ90OS70Q 99,999,999,999.99 CURRWIND y_QZ90OS70QWARTOSC _QZ90OS7HC _QZ90OS7LC _QZ90OS7O5 _QZ90OS7RB _QZ90OS7UB _QZ90OS7Z6 _QZ90OS81U _QZ90OS86X _QZ90OS8A1 ewreman QUERY query& EWREMAN NAZWA KODTOW ILOSC QUERY cursorz _curobj = objnum( &getname ) show get &getname &KeyEsc _curobj = objnum(&nextobj) &KeyF10 _curobj = objnum(&prevobj) pointz @y0,x0 say guma color &GetColor @y0,x0 say NewLook(PrzedKropka, ZaKropka) color &GetColor @y0,x0 say guma color &GetColor @y0,x0 say NewLook(PrzedKropka, ZaKropka) color &GetColor set cursor &Kursor BEFOREPOINSTARTVALUEWITHMINUS WITHULAMEKCOLORSCHEMPREVOBJ NEXTOBJ __OBJS BEFPOINTOLKEYESC KEYF10 KURSOR SELECTCOLOGETCOLOR MFIRSTSHOT MOUSEQUIT FULLWIDTH ZAKROPKA KJESTKROPKAPRZEDKROPKMINUS ALUEOLDPK ALUEOLDMINUS KOLDZK NEWLOOK KONIEC UPDATEFULLMOUSEX MOUSEY LLWIDTH __NUMOBJ GETNAME ROPKA 999,999,999,999c pointz PRZED WORKSTR INUPDATEFULLMINUS JESTKROPKAFULLWIDTH MINUS BEFOREPOINBEFPOINTOLWITHMINUS NEWLOOK UPDATEFULL @ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col RIBBON cjaWIND IEGA\COL N\CLEASETRIB CLEARRIB CURSORz errors WciF nij dowolny klawisz ... ECodeF SET CURSOR &curstat ECODE1 ECODE2 ECODE3 OLDALIAS ILOSC CURSTAT SYSPATH ERRWIN ERRORS ERRCODE MESSAGE m.xloc = m.xloc errors \