ewfirmy.spr
 Kontrahenci 
ewfirmy
ewfirm
ewfirmy.spr with 1
ewfirmy.spr with 2
Nie ma F
adnych firm
code:15:H='Kod firmy', firma:25:H='Nazwa firmy',ulica:25:H='Ulica',kod:6:H='Kod',miasto:15:H='Miejscowo'+pl[16]+pl[11]
firma:25:H='Nazwa firmy',code:15:H='Kod firmy', ulica:25:H='Ulica',kod:6:H='Kod',miasto:15:H='Miejscowo'+pl[16]+pl[11]
firma
miasto:15:H='Miejscowo'+pl[16]+pl[11],kod:H='Kod',firma:25:H='Nazwa firmy',ulica:25:H='Ulica', code:15:H='Kod firmy'
miasto
 Kontrahenci 
ewfirmy
ewfirm
kasujfirme
ewfirmy.spr with 2
Nie ma F
adnych firm
code:15:H='Kod firmy', firma:25:H='Nazwa firmy',ulica:25:H='Ulica',kod:6:H='Kod',miasto:15:H='Miejscowo'+pl[16]+pl[11]
firma:25:H='Nazwa firmy',code:15:H='Kod firmy', ulica:25:H='Ulica',kod:6:H='Kod',miasto:15:H='Miejscowo'+pl[16]+pl[11]
firma
miasto:15:H='Miejscowo'+pl[16]+pl[11],kod:H='Kod',firma:25:H='Nazwa firmy',ulica:25:H='Ulica', code:15:H='Kod firmy'
miasto
 Kontrahenci 
ewfirmy
ewfirm
ewfirmy.spr with 0
ewfirmy.spr with 1
ewfirmy.spr with 2
kasujfirme
code:15:H='Kod firmy', firma:25:H='Nazwa firmy',ulica:25:H='Ulica',kod:6:H='Kod',miasto:15:H='Miejscowo'+pl[16]+pl[11]
firma:25:H='Nazwa firmy',code:15:H='Kod firmy', ulica:25:H='Ulica',kod:6:H='Kod',miasto:15:H='Miejscowo'+pl[16]+pl[11]
firma
miasto:15:H='Miejscowo'+pl[16]+pl[11],kod:H='Kod',firma:25:H='Nazwa firmy',ulica:25:H='Ulica', code:15:H='Kod firmy'
miasto
RIBBON
30 GET EWFIRMY
1,SPR
	SIZESTARTLIS
EMAINPATH
;PODM
 LISTA
TAKNIE
KASUJFIRME
TALKz
COMPATIBLEz
_qz90ojv4m
 Dane kontrahenta 
ewfirm
ewfirmy
firma
_curobj=OBJNUM(m.exitok)
_curobj=OBJNUM(m.exiterr)
_qz90ojv4m
Kod firmy:
Nazwa    :
Ulica    :
Kod      :
Telefon  :
Telex    :
Fax      :
NIP      :
MiejscowoF
 Adres 
 Bank 
Nazwa   :
Konto   :
Opis    :
Firma o tym kodzie juF
 istnieje
@K 99-999
@*HT Zapisz
@*HT Zaniechaj
_qz90ojv4m
bon[1TAG2
on[11IOPEN
n[8]EXITOK
EXITERR
RIBBON
CURRAREA
TALKSTAT
COMPSTAT
_QZ90OJV4MEWFIRM
 <>MAINPATH
FIRMA
n[1F10
bon[11ESC
bon[8]CODE
OJV4M_QZ90OJVNZNIP
ULICA
tokKOD
MIASTO
TELEFON
ZaFAX
TELEX
actKONTO
 GAOPIS
VAR_QZ90OJW05CLEARRIB
EWFIRM
ewfirm
ewfirm
SYMBOL
IDENT
n[1_QZ90OJVNZ
_QZ90OJW05
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
m.xloc = m.xloc
errors
\<Nie
\<Tak
ECODE1
DEFAULTANSY0
OLDALIAS
SYSPATH
SERRWIN
ERRCODE
ERRORS
MESSAGE
@ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col
RIBBON
SETRIB
CLEARRIB
RETVAL
IDENT
@ wrows()-1, 0 say padr(m.text, wcols()-1," " ) COLOR &col
..\EWFIRMY\EWFIRMY.PRG
C:\KSIEGA\SYSTEM\
..\EWFIRMY\EWFIRMY.SPR
..\COMMON\STARTLIS.PRG
..\COMMON\LISTA.PRG
..\COMMON\TAKNIE.PRG
..\COMMON\CLEARRIB.PRG
..\COMMON\IDENT.PRG
..\COMMON\SETRIB.PRG
EWFIRMY.FXP
EWFIRMY.SPX
STARTLIS.FXP
LISTA.FXP
TAKNIE.FXP
CLEARRIB.FXP
IDENT.FXP
SETRIB.FXP