Ten zapis moF na tylko ogl form.app WORK 5123TYP FORM APP FF form.app DZIEN KATEG KOLUMNA CLEARRIB MiesiF c jest zablokowany KsiF edycja.prg obejrz.prg Nie ma F adnych zapis A=IIF(poprawka,'A',' ')+IIF(blokada,'*',' ')+_typvat(typ):H='Typ', d=day(data) :2:H='Dz',firma:15:H = 'Nazwa firmy', prz=ptowar+pinne :17:H ='Przychody':P='99,999,999,999.99', zak=wzakup+wkoszty :17:H = 'Zakupy':P='99,999,999,999.99', wyd=wpodatek+wprzerob+wreklama+wwyplata+wnatura+winne+wsprzet :17:H='Wydatki':P='99,999,999,999.99' kiedy A=IIF(poprawka,'A',' ')+IIF(blokada,'*',' ')+_typvat(typ):H='Typ',firma:15 :H = ' Nazwa firmy',d=day(data) :2:H='Dz', prz=ptowar+pinne:17: H = 'Przychody':P='99,999,999,999.99', zak=wzakup+wkoszty:17:H = 'Zakupy':P='99,999,999,999.99', wyd=wpodatek+wprzerob+wreklama+wwyplata+wnatura+winne+wsprzet:17:H='Wydatki':P='99,999,999,999.99' firma KsiF kaszapis obejrz.prg Nie ma F adnych zapis A=IIF(poprawka,'A',' ')+IIF(blokada,'*',' ')+_typvat(typ):H='Typ', d=day(data) :2:H='Dz',firma:15:H = 'Nazwa firmy', prz=ptowar+pinne :17:H ='Przychody':P='99,999,999,999.99', zak=wzakup+wkoszty :17:H = 'Zakupy':P='99,999,999,999.99', wyd=wpodatek+wprzerob+wreklama+wwyplata+wnatura+winne+wsprzet :17:H='Wydatki':P='99,999,999,999.99' kiedy A=IIF(poprawka,'A',' ')+IIF(blokada,'*',' ')+_typvat(typ):H='Typ',firma:15 :H = ' Nazwa firmy',d=day(data):2:H='Dz', prz=ptowar+pinne:17: H = 'Przychody':P='99,999,999,999.99', zak=wzakup+wkoszty:17:H = 'Zakupy':P='99,999,999,999.99', wyd=wpodatek+wprzerob+wreklama+wwyplata+wnatura+winne+wsprzet:17:H='Wydatki':P='99,999,999,999.99' firma _ksiegadruk KsiF prz=ptowar+pinne:H = 'Przychody':P='99,999,999,999.99', zak=wzakup+wkoszty:H = 'Zakupy':P='99,999,999,999.99', wyd=wpodatek+wprzerob+wreklama+wwyplata+wnatura+winne+wsprzet:H='Wydatki':P='99,999,999,999.99' nowyzap.prg edycja.prg obejrz.prg kaszapis blokzapis anuluj ptowar+pinne, wzakup+wkoszty, wpodatek+wprzerob+wreklama+wwyplata+wnatura+winne+wsprzet A=IIF(poprawka,'A',' ')+IIF(blokada,'*',' ')+_typvat(typ):H='Typ':P='XXX',D=day(data):2:P='99':H='Dz',firma:15:H = 'Nazwa firmy', kiedy A=IIF(poprawka,'A',' ')+IIF(blokada,'*',' ')+_typvat(typ):H='Typ':P='XXX',firma:15 :H = ' Nazwa firmy',D=day(data):2:P='99':H='Dz', firma bVRIBBON YGEPL LISTRIBB MYDRUK .PRPOLA bMIESIACE PMBLOKADA NOWYZAP STARTLIS AMAINPATH RNAME KE.FXKU JXWYDRUKI NAZWA IS.LISTA _KSIEGADRU Nie masz uprawnieF do anulowania i odtwarzania bVMYID YGEBOSS TRIBB POPRAWKA RAWKA Nie masz uprawnieF do blokowania/odblokowywania YGEBLOKADA Zapisu tego typu nie moF na usun ewzvf ewsvf ewzvr ewsvr ewsvfk ewzvfk ewsvrk ewzvrk bVAREA YGEISWYPOS bTAKNIE MYTYP USUNEWID AUSUNWYPOS bVTAKNIE YGEEWWYPOS IDKSIEGI idksiegi idksiegi idksiegi idksiegi PowiF zane zapisy w ewidencji odksi gowano bVAL2 YGEMYID SIEGI TAKNIE RIDKSIEGI bZAKSIEG pdwzorn pdwzor bVNUMER YGEREC MIESIACE RFULLYEAR bROKNR PMIESIAC MIESNR NUMCIAG AWORK NUMPOCZ MAINPATH XNAME _TYPVAT ANULUJ BLOKZAPIS KASZAPIS USUNWYPOS USUNEWID _KSIEGADRU form.app exactz _lowzorzec _lolistabr _lowzorzec TYTUL DLWZORCA MYILOSC ALIAS +TOMENTER TTOMPODGLADINFO CZYBLOK POMOC POLA1 INDEX1 POLA2 INDEX2 POLA3 INDEX3 POLA4 INDEX4 POLA5 INDEX5 IK1NUMER IOPEN EXACT ZAREA ARILE ILOWIERSZE WOL_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 TFCOL GLADTCOL TOMENTER CZYBLOK BLOKADA MYILOSC PROPRZEGLATOMPODGLADSETRIB POMOC NUMER PROWYKAZ POLA1 INDEX1 POLA2 INDEX2 ZECPOLA3 INDEX3 INDEX4 +POLA5 TINDEX5 LADMYILOSC SET ORDER TO &kolejnosc _olistast BROWSE NOWAIT WINDOW _olistast IN WINDOW _lolistabr TITLE "Dane" COLOR SCHEM 10 FIELDS &pola {INS} KOLEJNOSC _OLISTAST TROW 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 @ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col RIBBON SETRIB CLEARRIB m.xloc = m.xloc errors \