home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
07
/
S754E.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-04-15
|
26KB
|
633 lines
RIIS 7.5
ehled dodavatelsk
ch faktur dle typu organizace
m_param
m7_ucto
m7_fadod
cis_fak
a7_fadod
cis_fak
m4_organ
echny fakt., inkasa,z
lohy,dobrop., penal.
Bez penaliza
ch a z
lohov
ch faktur
Bez z
lohov
ch faktur
Bez penaliza
ch faktur
Konec
ehled dodavatelsk
ch faktur dle typu organizace
p_dat = ctod("01/&_pd/&_pda")
Zadejte datum p
a7_fadod
m7_fadod
fadod
AK_PDA
AKVOL
W_KONEC
M_PARAM
W_PODNIK
DFIRMA
NABFA
POLE7
M7_UCTO
M7_FADOD
DCIS_FAK
DA7_FADOD
M4_ORGAN
INEOFFVOQL
FFPLAT_OBDOBROK
RP_DAT1
P_DAT
_OFFP_DATUM
BMNAVRAT
OBZADANI
P_RESORT
FDAT_ODES
DAT_PRI
FFADOD
ZNAK_F
RESORT
NAZEV_ORG
PRNVLASTPREH
soubor !
pr_tisk
Detail
Detail
Funkce
Funkcea
Typ organizace+n
Obdob
od F
s754e
RIIS 7.5
Typ org.
m4_organ.resort+' '
m4_organ.resort
s. faktury
fadod.cis_fak
fadod.cis_fak
Var. symbol
fadod.vars_s
fadod.vars_s
Celkem K
str(fadod.cast_cel,12,2)
fadod.cast_cel
Zaplaceno
str(fadod.zap_cel,12,2)
fadod.zap_cel
Z
str(fadod.zal_cel,12,2)
fadod.zal_cel
Da
str(fadod.dan_cel,12,2)
fadod.dan_cel
Celkem bez dan
' '+str((fadod.cast_cel-fadod.dan_cel),12,2)
(fadod.cast_cel-fadod.dan_cel)
Dat.spl.
tran(fadod.dat_spl,'@E')
(fadod.dat_spl )
Dat.vyst.
tran(fadod.dat_vyst,'@E')
(fadod.dat_vyst )
fadod.ico
fadod.ico
fadod.zav
fadod.zav
m4_organ.dicp
m4_organ.dicp
zev organizace
substr(m4_organ.nazev_org,1,25)
substr(m4_organ.nazev_org,1,25)
fadod.ucet_dod
fadod.ucet_dod
fadod.znak_f+' '
fadod.znak_f
fadod.mat_c_zu
fadod.Mat_c_zu
Dat.zap.
tran(fadod.dat_zap,'@E')
(fadod.dat_zap )
Zdan.pln
tran(fadod.dat_pri,'@E')
(fadod.dat_pri )
Celkem m
str(fadod.cast_men,12,2)
fadod.cast_men
Zaplac. m
str(fadod.zap_men,12,2)
fadod.zap_men
loha m
str(fadod.zal_men,12,2)
fadod.zal_men
fadod.mena+' '
fadod.mena
Kurz
str(fadod.kurz,14,7)
fadod.kurz
Konst.sym.
fadod.kons_s+' '
fadod.kons_s
Dat.p
tran(fadod.dat_odes,'@E')
(fadod.dat_odes )
fadod.stav_fa+' '
fadod.stav_fa
Dat.Sm
tran(fadod.dat_smir,'@E')
(fadod.dat_smir )
Dat.UCT.
tran(fadod.dat_uct,'@E')
(fadod.dat_uct )
Autor
fadod.autor
fadod.autor
fadod.zapoc+' '
fadod.zapoc
str(fadod.zal_vypl,12,2)
fadod.zal_vypl
kazech
str(fadod.pr_cel,12,2)
fadod.pr_cel
Dr.fak
fadod.druh_f+' '
fadod.druh_f
.obj.
fadod.cis_obj
fadod.cis_obj
Dod.list
fadod.dod_l
fadod.dod_l
Dat.arb.
tran(fadod.dat_arb,'@E')
fadod.dat_arb
fadod.pozn
fadod.pozn
m4_organ.stat_dod+' '
m4_organ.stat_dod
FADOD
HLASKA
POLEX
AKPROCX
AKRTOP
CLEFT
CRIGHT
DFREEZE
ORDER
DPRAVA
DNADPIS
JMENO
EOFFHODN
PSOUC
TITLE
FFTITLECOLORPOC0
_OFFF2
ESORT
_ODES
FF0PRG
F1PRG
F4_JM
F4PRG
TISKPRG
F7_JM
F7PRG
PRNF9PRG
F9KEY
F9KEY1
OBF10_JM
*F10PRG
RAMECEK
*RIIS
ANAZEVT
KLICO
OBKLNAZ
SPACEBAR
TR_HL1
TTR_HL2
TTR_HL3
TR_HL4
BTR_HL5
TR_HL6
TR_HL7
*TR_HL8
?TR_HL9
*DET_JM
ENTER
DETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
RP_DAT
RP_DATUM
KOBRZ
RNADP
MOD_PSV
Celk. sou
ty za typ organizace
Celk. sou
ty za organizace
Suma za sestavu
Konec
KONEC
VOL11
AKSOUCTYP
SOUCORG
soubor !
Prob
...
FILTERz
Celkov
et za typ organizace
Obdob
Celkov
et za typ organizace - v
Celkov
et za typ organizace - v
Celkov
et za typ organizace - v
Celkov
et za typ organizace - v
AND
fadod
copy to c_sql for &filt
c_sql
ehled dodavatelsk
ch faktur dle typu organizace
Zadejte typ organizace:
s754e
RIIS 7.5
Typ org.
p_resort+' '
p_resort
Celkem K
str(fado.cast_cel,13,2)
fado.cast_cel
Zaplaceno K
str(fado.zap_cel,13,2)
fado.zap_cel
Z
loha K
str(fado.zal_cel,13,2)
fado.zal_cel
Rozd
str((fado.cast_cel - fado.zap_cel),13,2)
fado.cast_cel - fado.zap_cel
DPH
str(fado.dan_cel,13,2)
fado.dan_cel
Celkem bez dan
' '+str((fado.cast_cel-fado.dan_cel),13,2)
(fado.cast_cel-fado.dan_cel)
HLASKA
AKPOLEX
AKPROCX
CLEFT
DCRIGHT
FREEZE
ORDER
DLEVA
DPRAVA
NADPIS
EOFFJMENO
PSOUC
FFTITLE
OLORTITLECOLORPOC0
_OFFF1
ESORT
_ODES
F0PRG
F1PRG
F4_JM
F4PRG
TISKPRG
F7_JM
PRNF7PRG
F9PRG
F9KEY
OBF9KEY1
*F10_JM
F10PRG
*RAMECEK
ARIIS
NAZEVT
OBKLICO
KLNAZ
SPACEBAR
TTR_HL1
TTR_HL2
TR_HL3
BTR_HL4
TR_HL5
TR_HL6
*TR_HL7
?TR_HL8
*TR_HL9
DET_JM
ENTER
DETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
QQW_AL
RQQW_ZAZ
RVETARECNO
FILT1
RFILT2
?P_DAT
P_DATUM
?FILT
*ANSI
?P_RESORT
ZAL_CEL
CAST_CEL
ZAP_CEL
FDAN_CEL
FADOD
C_SQL
M4_ORGAN
RESORT
FFOBRZ
LORMOD_PSV
FZPETRECNO
soubor !
Prob
...
FILTERz
Celkov
ty za organizace
Obdob
Celkov
ty za organizace - v
Celkov
ty za organizace - v
Celkov
ty za organizace - v
Celkov
ty za organizace - v
AND
fadod
copy to c_sql for &filt
c_sql
ehled dodavatelsk
ch faktur dle typu organizace
Zadejte I
|...........|..
s754e
RIIS 7.5
Typ org.
m4_organ.resort+' '
m4_organ.resort
zev organizace
m4_organ.nazev_org
m4_organ.nazev_org
Celkem K
str(fado.cast_cel,13,2)
fado.cast_cel
Zaplaceno K
str(fado.zap_cel,13,2)
fado.zap_cel
Rozd
str((fado.cast_cel - fado.zap_cel),13,2)
fado.cast_cel - fado.zap_cel
DPH
str(fado.dan_cel,13,2)
fado.dan_cel
Celkem bez dan
' '+str((fado.cast_cel-fado.dan_cel),13,2)
(fado.cast_cel-fado.dan_cel)
Z
loha K
str(fado.zal_cel,13,2)
fado.zal_cel
fado.ico
fado.ico
fado.zav
fado.zav
HLASKA
AKPOLEX
AKPROCX
CLEFT
DCRIGHT
FREEZE
ORDER
DLEVA
DPRAVA
NADPIS
EOFFJMENO
PSOUC
FFTITLE
OLORTITLECOLORPOC0
_OFFF1
ESORT
_ODES
F0PRG
F1PRG
F4_JM
F4PRG
TISKPRG
F7_JM
PRNF7PRG
F9PRG
F9KEY
OBF9KEY1
*F10_JM
F10PRG
*RAMECEK
ARIIS
NAZEVT
OBKLICO
KLNAZ
SPACEBAR
TTR_HL1
TTR_HL2
TR_HL3
BTR_HL4
TR_HL5
TR_HL6
*TR_HL7
?TR_HL8
*TR_HL9
DET_JM
ENTER
DETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
QQW_AL
RQQW_ZAZ
RVETARECNO
FILT1
RFILT2
?P_DAT
P_DATUM
?FILT
*ANSI
CAST_CEL
ZAP_CEL
FDAN_CEL
ZAL_CEL
FADOD
C_SQL
M4_ORGAN
RRESORT
FFNAZEV_ORG
LORF8
FOBRZ
LORMOD_PSV
ZPETRECNO
FILTERz
AND
colorz
double
Celkov
Celkov
ty - v
Esc,^End
Celkem za p
ehled: K
Z toho zaplaceno: K
nezaplaceno: K
DPH: K
loha : K
sum all cast_cel, zap_cel, dan_cel, zal_cel to _souc, _zap, _dan, _zal for &filt
RIIS 7.5
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
SCRQ1
MOD_SYS
FILT1
AKFILT2
AKFILT
VETARECNO
M_COL
DMOD_WIN
CAST_CEL
ZAP_CEL
DAN_CEL
ZAL_CEL
D_SOUC
D_ZAP
EOFFPOM
ZPETRECNO
colora
set color to &color
COLOR
colorz
Vyhled
NAZEV
Zadejte n
zev organizace:
Zadejte I
O organizace:
NAZEV
znam nebyl nalezen !
MCOLOR
CMASTERORDSTZAZ
AKVETARECNO
CPODMV
CPODMS
DW_CESTINA
HLASKA
ZPETRECNO
ordera
mod_lib
Tisk dle typu organizace
Tisk p
ehledu
Konec
mod_lib
Prob
tisk ...
FILTERz
AND
c7_fa
copy to c7_fa for &filt
c7_fa
set order to &st_order
ST_ORDER
P_SETUP
RDP_RESET
AKP_6LPI
P_8LPI
P_10CPI
P_12CPI
DP_16CPI
P_20CPI
P_BOLDON
P_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
P_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
P_SUBOFF
P_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
P_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
P_KODY
MOD_LIB
W_TISK
TISKPREH
INDIK
NASTAV_PRNOBRT
FILT1
PRNFILT2
C7_FA
OBICO
M4_ORGAN
ANAZEV_ORG
NAZEV
OBRESORT
V_ORG
FADOD
RIIS 7.5
Datum mus
t vypln
Prob
...
_DRQTXT
RDNADP
AKP_DAT
P_DATUM
MNAVRAT
HLASKA
DMESS
FILTERz
AND
ico+zav
mod_psv
FILT1
FILT2
RDKLICO
AKTISK
MOD_PSV
S754E
VLASTPREH
FUNKCEA
SOUCTYP
SOUCORG
HLASKA
HLEDEJ1
VETARECNO
ZPETRECNO
PR_TISK
ZADANI
TISKPREH
P:\IN\SK\O\07\
S754E.FXP
P:\IN\SK\O\07\S754E.PRG