Chip 1999 June/Chip_1999-06_cd.bin/tema/SoWa/OBEC.EXE/07/S751C.FXP

MS Visual FoxPro App | 1999-04-15 | 71KB | 1,915 lines

set color to bg/b
set color to w/n
set color to w+/n
set color to w+/bg
set color to b/w
set color to bg/n
set color to w+/w
set color to b/bg, w+/rb
set color to b/w
set color to w+/b, w+/rb
set color to w+/b, b/w
set color to b/w
set color to bg/n
set color to b/bg, w+/rb
m_obaf
w_avybf
m7_ucto
m7_ucto
q7_fadom
cis_fak
obr444f
a7_fadom
cis_fak
m7_fadom
cis_fak
W_PAR
W_EDI
W_BRH
W_BH1
W_BH2
W_BWA
W_BWN
W_BRN
W_BPTN
?W_BPLA
W_BPLN
W_BNR
W_BMN
W_TBWN
W_TBRN
W_TBPLA
W_CORIG
W_NORIG
W_DORIG
ATM_OBA
W_AVYB
?W_UCTZAV
M7_UCTO
W_UCTMES
RPLAT_OBDOBW_UCTROK
?Q7_FADOM
*CIS_FAK
?M7_FADOM
A7_FADOM
PRO_PRI
prava dat ...
w_dod_l
w_vars
m_cis1
MJ
m1_ident
material
c_fadom+
c_fadom
Zadejte
slo faktury:
Aut.dopl
dop_pri
Aktual
akt_pri
jemky faktury F
RIIS 7.5
s751c
jemka
prijemka+'  '
prijemka
Faktura/DL
var_sym
var_sym
ident
ident
nazev
nazev
   Celkem K
str(round(mnozstvi*cena_mj,2),12,2)
round(mnozstvi*cena_mj,2)
navedeni
navedeni
    Mno
str(mnozstvi,12,3)
mnozstvi
    Cena/MJ
str(cena_mj,11,2)
cena_mj
Dat.p
transform(datum,'@E')
datum
Obdob
iif(empty(mesic).or.empty(rok),'  /    ',padl(mesic,2,'0')+'/'+padl(rok,4,'0'))
iif(empty(mesic).or.empty(rok),'  /    ',padl(mesic,2,'0')+'/'+padl(rok,4,'0'))
sklad
sklad
poznamka
poznamka
c_fadom
COBRZ
W_UPDPRI
DOPHLE
W_POL
M_CIS1
S_RIIS
HODNOTA
M1_IDENT
MATERIAL
M7_FADOM
W_FAK
C_FADOM
CIS_FAK
PRIJEMKA
POLEX
PROCX
ATRTOP
?CLEFT
CRIGHT
FREEZE
RORDER
BDOBHOR
?LEVA
*PRAVA
?NADPIS
JMENO
*HODN
?SOUC
PSOUC
TITLE
TITLECOLORPOC0
F0PRG
F1PRG
F4_JM
TF4PRG
LORTISKPRG
?F7_JM
F7PRG
F9PRG
 F9KEY
F9KEY1
*F10_JM
?F10PRG
*RAMECEK
?RIIS
NAZEVT
KLICO
*KLNAZ
?SPACEBAR
TR_HL1
TR_HL2
TR_HL3
TR_HL4
TR_HL5
TR_HL6
TR_HL7
?TR_HL8
TR_HL9
DET_JM
BENTER
DETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
YW_EDI
?GET_NAZ
MOD_PSV
jemky
W_CELKEM
W_PUVREC
MNOZSTVI
CENA_MJ
W_STRCEL
W_LENCEL
W_NAZEV
dod.listu
var.symbolu
ico = w_ico AND zavod = w_zav
pro I
O a z
&w_bmn
 Dopln
 - shodnost
 Akt. a minul
 obraty dle
 Archivn
 obraty dle
 Akt.a min.obraty dle I
O a z
vodu
 Archivn
  obraty dle I
O a z
vodu
nit shodnost na 'jen pro I
 Akt.a min.obraty jen podle I
 Archivn
  obraty jen podle I
nit shodu na 'pro I
O a z
vod'
ico = w_ico
jen pro I
ico = w_ico AND zavod = w_zav
pro I
O a z
 Proch
zet:
 archiv
 Jen obdob
cursorz
 Jen obdob
:   /
set cursor &cCur
 Prob
prava dat ...
c_nove
c_nove
prijemka
ehled neza
jemek - aktu
 a minul
 obraty obraty
SELECT * FROM m1_obr INTO DBF c_mobr  WHERE ident_vys = &w_pol AND &lPodmCel AND kod_ob = 'P'
SELECT * FROM u1_obr INTO DBF c_uobr  WHERE ident_vys = &w_pol AND &lPodmCel AND kod_ob = 'P'
c_mobr
c_uobr
ehled neza
jemek - archivn
 obraty
SELECT * FROM m1_obr_a INTO DBF c_aobr  WHERE ident_vys = &w_pol AND &lPodmCel  AND kod_ob = 'P'
m1_obr_a
obdobi
c_aobr
copy to c_aobr while rok = nRR and mesic = nMM for  ident_vys = &w_pol AND &lPodmCel  AND kod_ob = 'P'
c_aobr
c_aobr
ehled p
jemek - aktu
 a minul
 obraty podle I
SELECT * FROM m1_obr INTO DBF c_mobr  WHERE &lPodmCel AND kod_ob = 'P'
SELECT * FROM u1_obr INTO DBF c_uobr  WHERE &lPodmCel AND kod_ob = 'P'
c_mobr
c_uobr
ehled p
jemek - arch
 obraty podle I
SELECT * FROM m1_obr_a INTO DBF c_aobr  WHERE &lPodmCel AND kod_ob = 'P'
m1_obr_a
obdobi
c_aobr
copy to c_aobr while rok = nRR and mesic = nMM for  &lPodmCel AND kod_ob = 'P'
c_aobr
c_aobr
c_aobr
W_SCRDOP
DOPHLE
CN1POL
LSHODACEL
LPODMCEL
CNAZCEL
W_SELDBF
C_NOVE
PRIJEMKA
W_ADDNAZ
VYB_PRI
M1_OBR
U1_OBR
M1_OBR_A
TOBDOBI
C_AOBR
?PRO_NOV
C_FADOM
TITLE
RGET_NAZ
OBPS_RETURN
 Prob
prava dat ...
m1_ident
ident
m1_obr
u1_obr
m1_obr_a
obdobi
a7_fadom
var_sym
m7_fadom
var_sym
c_mobr
c_mobr
c_mobr
 - aktu
 obdob
c_uobr
c_uobr
c_uobr
 - minul
 obdob
c_uobr
set near &set_near
c_mobr
c_mobr
c_mobr
 - archivn
 obraty
M1_IDENT
IDENT
M1_OBR
U1_OBR
M1_OBR_A
OBDOBI
A7_FADOM
VAR_SYM
?M7_FADOM
W_MOD
C_MOBR
KOD_OB
W_SCRVYB
VYB_NEP
C_UOBR
SET_NEAR
W_STRDO
TMESIC
W_STROD
select &w_dbf
case (&w_dbf..vydal_skl  # c_fadom.sklad)
case (&w_dbf..vyd_um_skl # c_fadom.um)
case (&w_dbf..dokl_cis   # c_fadom.prijemka)
case (&w_dbf..ident      # c_fadom.ident)
case (&w_dbf..naklad     # c_fadom.cena_mj)
case (&w_dbf..termin_ob  # c_fadom.datum)
case (&w_dbf..rok        # c_fadom.rok)
case (&w_dbf..mesic      # c_fadom.mesic)
case (&w_dbf..skut_mnoz  # c_fadom.mnozstvi) .and. (.not. DopMno)
select &w_dbf
select &w_dbf
select &w_dbf
replace c_nove.cis_fak  with w_fak,               c_nove.sklad    with &w_dbf..vydal_skl,   c_nove.um       with &w_dbf..vyd_um_skl
replace c_nove.prijemka with &w_dbf..dokl_cis,    c_nove.ident    with &w_dbf..ident,       c_nove.nazev    with m1_ident.nazev
replace c_nove.mj       with m1_ident.mj,         c_nove.cena_mj  with &w_dbf..naklad,      c_nove.ico      with &w_dbf..ico
replace c_nove.zavod    with &w_dbf..zavod,       c_nove.datum    with &w_dbf..termin_ob,   c_nove.rok      with &w_dbf..rok
replace c_nove.mesic    with &w_dbf..mesic,       c_nove.navedeni with 'A',                 c_nove.poznamka with ''
replace c_nove.mnozstvi with &w_dbf..skut_mnoz,   c_nove.var_sym  with &w_dbf..ident_vys
select &w_dbf
W_DBF
C_FADOM
W_SELDBF
IDENT
M1_IDENT
C_NOVE
select &w_dbf
prava dat
w_klic = &w_dbf..ico + &w_dbf..zavod + &w_dbf..ident_vys
m7_fadom
a7_fadom
select &w_dbf
select &w_dbf
W_DBF
W_NAZPRU
W_RAD
W_PROC
W_RECNO
Z_MAX
PRUBEH
W_LOOP
KONTROLA
select &w_dbfkon
scan while (&w_dbfkon..ico+&w_dbfkon..zavod+&w_dbfkon..var_sym) == w_klic
case (&w_dbf..vydal_skl  # &w_dbfkon..sklad)
case (&w_dbf..vyd_um_skl # &w_dbfkon..um)
case (&w_dbf..dokl_cis   # &w_dbfkon..prijemka)
case (&w_dbf..ident      # &w_dbfkon..ident)
case (&w_dbf..naklad     # &w_dbfkon..cena_mj)
case (&w_dbf..termin_ob  # &w_dbfkon..datum)
case (&w_dbf..rok        # &w_dbfkon..rok)
case (&w_dbf..mesic      # &w_dbfkon..mesic)
case (&w_dbf..skut_mnoz  # &w_dbfkon..mnozstvi) .and. (.not. DopMno)
select &w_dbf
select &w_dbfkon
W_DBFKON
W_KLIC
W_LOOP
Nebyly nalezeny
 neza
jemky.
Pro dan
O a z
vod nebyly nalezeny
jemky.
Zadejte
slo faktury:
Dopln
dop_nov
 - faktura
RIIS 7.5
s751c
jemka
prijemka+'  '
prijemka
Faktura/DL
var_sym
var_sym
ident
ident
nazev
nazev
   Celkem K
str(round(mnozstvi*cena_mj,2),12,2)
round(mnozstvi*cena_mj,2)
    Mno
str(mnozstvi,12,3)
mnozstvi
    Cena/MJ
str(cena_mj,11,2)
cena_mj
Dat.p
transform(datum,'@E')
datum
Obdob
iif(empty(mesic).or.empty(rok),'  /    ',padl(mesic,2,'0')+'/'+padl(rok,4,'0'))
iif(empty(mesic).or.empty(rok),'  /    ',padl(mesic,2,'0')+'/'+padl(rok,4,'0'))
sklad
sklad
zavod
zavod
C_NOVE
W_SELDBF
HLASKA
POLEX
PROCX
CLEFT
CRIGHT
?FREEZE
ORDER
PRAVA
NADPIS
JMENO
TSOUC
PSOUC
?TITLE
TITLECOLORPOC0
RETURN
?F0PRG
F1PRG
F4_JM
OLORF4PRG
TISKPRG
F7_JM
F7PRG
?F9PRG
F9KEY
F9KEY1
OBF10_JM
F10PRG
RAMECEK
NAZEVT
KLICO
KLNAZ
TSPACEBAR
RTR_HL1
?TR_HL2
TR_HL3
TR_HL4
 TR_HL5
TR_HL6
*TR_HL7
?TR_HL8
*TR_HL9
?DET_JM
ENTER
DETAIL
*DETPRG
?PS_LINE
PS_RETURN
PS_ZAZN
W_ADDNAZ
W_FAK
?MOD_PSV
c_oznac
Nebyly vybr
znamy
c_oznac,
{ESC}
HLASKA
W_UPDPRI
W_NOVE
C_FADOM
C_NOVE
PS_RETURN
       8
{CTRL-PGDN}
{ESC}
P_CISFAK
P_SKLAD
P_PRIJEMKAP_IDENT
P_NAZEV
P_CENAMJ
P_ICO
?P_ZAVOD
P_DATUM
P_ROK
P_MESIC
P_NAVEDENIP_POZNAMKAP_OBDOBI
P_MNOZSTVIP_CELKEM
P_VARSYM
TW_UPDPRI
IZ_UPD
?W_SCRAKT
W_SUB
OLORW_PMTPOC
RW_PROMPT
BW_FKEY
W_CKEY
?W_RST
*W_STATUS
?W_PROT
RTV_PRI
ZMENY
*TITLE
?GET_NAZ
PS_RETURN
W_NOVY
P_CISFAK
C_FADOM
CIS_FAK
KAP_SKLAD
SKLAD
P_PRIJEMKAPRIJEMKA
P_IDENT
IDENT
P_NAZEV
NAZEV
NIP_MJ
NAMKAMJ
P_CENAMJ
ICENA_MJ
P_MNOZSTVIMNOZSTVI
IP_ICO
P_ZAVOD
ORZAVOD
RP_DATUM
BDATUM
P_ROK
*P_MESIC
?MESIC
P_NAVEDENINAVEDENI
*P_POZNAMKAPOZNAMKA
P_CELKEM
P_VARSYM
IVAR_SYM
ORW_UCTMES
IW_UCTROK
P_OBDOBI
GET_OBD
?W_PROT
ENIDOPMNO
W_PROMPT
BZ_PROT
Z_PROMPT
&z_bar1
&z_bar2
jemka
&z_bar3
jemka:
Obdob
Datum:
Naveden
Cena/MJ:
Celkem K
Sklad   :
&z_bar4
99/9999
&w_bh1
- ^PgDn
- ^Home
- ^End,Esc
&w_bh2
Pohyb
   Nov
jemka
jemky
 Konec
Z_BAR1
Z_BAR2
Z_BAR3
Z_BAR4
KAP_PRIJEMKAP_OBDOBI
P_DATUM
P_NAVEDENIP_IDENT
KAP_NAZEV
P_MNOZSTVIP_MJ
P_CENAMJ
P_CELKEM
IP_SKLAD
KAP_UM
P_POZNAMKA
&z_bar
@ 13,12 &z_vloz p_prijemka size 1, 6
@ 13,28 &z_vloz p_obdobi   picture '99/9999'
@ 13,44 &z_vloz p_datum    picture '@E'
@ 15,12 &z_vloz p_ident    size 1,12
@ 15,26 &z_vloz p_nazev    size 1,25
@ 16,12 &z_vloz p_mnozstvi size 1,12
@ 16,30 &z_vloz p_mj       size 1, 3 picture '@!X'
@ 16,44 &z_vloz p_cenamj   size 1, 9
@ 17,12 &z_vloz p_sklad    size 1, 4
@ 17,28 &z_vloz p_um       size 1, 4
@ 19,12 &z_vloz p_poznamka size 1,30
Z_VLOZ
Z_PROMPT
Z_BAR
Z_LKEY
KAKNT_PRI
AW_CORIG
P_IDENT
Z_STATUS
C_FADOM
NAZEV
W_POCVET
  /
Obdob
t vypln
Datum mus
t vypln
zev mus
t vypln
t vypln
 jednotka mus
t vypln
Cena mus
t vypln
Sklad mus
t vypln
p_varsym   = &w_pol
Z_STATUS
P_OBDOBI
P_NAVEDENIHLASKA
AZ_PROMPT
AP_DATUM
P_NAZEV
IP_MNOZSTVIP_MJ
IP_CENAMJ
IP_SKLAD
IP_CISFAK
IW_FAK
P_ICO
IW_ICO
KAP_ZAVOD
W_ZAV
AMKAC_FADOM
NICIS_FAK
VISKLAD
?P_UM
PRIJEMKA
RP_PRIJEMKAIDENT
BP_IDENT
NAZEV
*CENA_MJ
ZAVOD
NIDATUM
KAMESIC
NAVEDENI
POZNAMKA
IP_POZNAMKAMNOZSTVI
IVAR_SYM
VIP_VARSYM
Z_PROT
P_NAZEV
Z_UPD
DENIULO_PRI
ARTV_PRI
inlist(kod_pol, "M", "N", "X", "Y", "Z", "T", "U")
mod_proc
hodnota
ehled funkc
MJ  Popis
left(hodnota,3)+'   '+text
 Zadejte funkci:
mod_fun
mod2proc
mod_proc
Pro tento
daj neexistuje pomocn
ehled hodnot.
Z_STATUS
Z_PROMPT
N_IDENT
NIN_NAZEV
AN_MJ
AN_FILTER
ZOBR_POL
IMOD_PROC
IP_IDENT
IP_NAZEV
IP_MJ
IC_MJ
IW_MJ
N_LMEZ
IN_PMEZ
KAN_HMEZ
N_DMEZ
MKAN_PROM
NIN_HOD
VIN_POC
IN_TEXT
?N_HLAV
N_RAD
RN_NVYH
MKAZOBR_NAP
BMOD_FUN
C_FADOM
?V4_SKLAD
*MSKLAD
?W_SCRSKL
ZOBR_SKL
IMOD2PROC
*P_SKLAD
KAZOBR_UM
HLASKA
  /
Obdob
t vypln
Nespr
 vypln
 obdob
99/9999
Datum mus
t vypln
ka nenalezena v
zev mus
t vypln
t vypln
 jednotka mus
t vypln
ka nenalezena v
Cena mus
t vypln
ka nenalezena v
Z_PROMPT
P_OBDOBI
HLASKA
NIZ_LKEY
AP_MESIC
AP_ROK
GET_OBD
IP_DATUM
IP_IDENT
IM1_IDENT
IP_NAZEV
INAZEV
IC_FADOM
P_MNOZSTVIP_CELKEM
AP_CENAMJ
IP_MJ
AC_MJ
NIP_SKLAD
IV4_SKLAD
FFF$m
F_MES
F_ROK
F_AKTROK
IF_PUVROK
ARET_OBD
RIIS 7.5
ehled p
jemek
ch
ch - akt.a min.obd.
ch - archiv
W_SCRVYB
W_MOD
PREHLED
IPREHL_NEP
m7_fadom
ehled p
jemek
a7_fadom
ehled arch.p
jemek
m4_organ
use &w_dbfpri order cis_fak
Zadejte
slo faktury, p
jemku:
|...........|.....
Funkce
fun_pre
rad_pri
 - podle
sla faktury
RIIS 7.5
s751c
s.faktury
cis_fak
cis_fak
jemka
prijemka+'  '
prijemka
Obdob
iif(empty(mesic).or.empty(rok),'  /    ',padl(mesic,2,'0')+'/'+padl(rok,4,'0'))
iif(empty(mesic).or.empty(rok),'  /    ',padl(mesic,2,'0')+'/'+padl(rok,4,'0'))
sklad
sklad
ident
ident
nazev
nazev
   Celkem K
str(round(mnozstvi*cena_mj,2),12,2)
round(mnozstvi*cena_mj,2)
    Mno
str(mnozstvi,12,3)
mnozstvi
    Cena/MJ
str(cena_mj,11,2)
cena_mj
zavod
zavod
Dat.p
transform(datum,'@E')
datum
Dod.list/VS
var_sym
var_sym
navedeni
navedeni
poznamka
poznamka
zev organizace
m4_organ.nazev_org
m4_organ.nazev_org
W_PAR
W_DBFPRI
W_NAZPRI
IM4_ORGAN
L_NEP
ZAVOD
POLEX
IPROCX
IRTOP
IRBOT
ICLEFT
ICRIGHT
IFREEZE
ORDER
STVIHOR
ILEVA
APRAVA
NINADPIS
IZAHL
IJMENO
?HODN
RPSOUC
MKATITLE
BTITLECOLORPOC0
SKLAD
CRSKL
R_SKL
2PROC
IF0PRG
AMKAF1ON
IF1PRG
VIF4_JM
F4PRG
?TISKPRG
NIF7_JM
F7PRG
BF9PRG
F9KEY
F9KEY1
F10_JM
F10PRG
RAMECEK
TNAZEVT
RKLICO
?KLNAZ
SPACEBAR
TR_HL1
 TR_HL2
TR_HL3
*TR_HL4
?TR_HL5
*TR_HL6
?TR_HL7
TR_HL8
TR_HL9
*DET_JM
?ENTER
DETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
MOD_PSV
ehled:
   Podle
sla faktury
   Podle skladu
   Podle polo
ky
ch
et:
   Za polo
ky
   Za sklady
   Celkem
 Konec
cis_fak
 - podle
sla faktury
Zadejte
slo faktury, p
jemku:
|...........|.....
sklad
 - podle skladu
Zadejte sklad, ident, p
jemku:
|...|...........|.....
ident
 - podle polo
Zadejte ident, p
jemku:
|...........|.....
W_SCRFUN
W_SEQ
W_VOL
IW_LOOP
FUN_TRI
NAZEVT
W_NAZPRI
IF9KEY
IF9KEY1
IFUN_RAD
ISUM_PRE
ISUM_CEL
set order to &p_ord
Po proveden
ru) z
 nelze tuto funkci pou
P_ORD
P_LOOP
CPODMS
ICPODMV
CMASTERORDKLICO
PS_RETURN
W_SEQ
IHLASKA
Zadejte intervaly
Od faktury:
Do faktury:
Konec(A\N):
cis_fak
'.and.
cis_fak
lku podm
nky ji
 nelze zv
ovat.
 Prob
jemek ...
c_oznac
c_oznac
select &w_dbfpri
scan all for &w_podm
c_oznac
select &w_dbfpri
W_OZAZ
W_ESC
W_SEQRAD
IW_PODM
W_RADOD
DW_RADDO
W_UKONC
HLASKA
IW_SCRFUN
IMOD_SYS
IMESS
IC_OZNAC
IZAZNAM
W_OZN
VINTRGPZAZ
APS_RETURN
c_oznac
Nebyly vybr
znamy.
c7_fadom
c_oznac,
c7_fadom
 - podle
sla faktury - v
Zadejte
slo faktury, p
jemku:
|...........|.....
Funkce
fun_vyb
RIIS 7.5
s751c
s.faktury
cis_fak
cis_fak
jemka
prijemka+'  '
prijemka
Obdob
iif(empty(mesic).or.empty(rok),'  /    ',padl(mesic,2,'0')+'/'+padl(rok,4,'0'))
iif(empty(mesic).or.empty(rok),'  /    ',padl(mesic,2,'0')+'/'+padl(rok,4,'0'))
sklad
sklad
ident
ident
nazev
nazev
   Celkem K
str(round(mnozstvi*cena_mj,2),12,2)
round(mnozstvi*cena_mj,2)
    Mno
str(mnozstvi,12,3)
mnozstvi
    Cena/MJ
str(cena_mj,11,2)
cena_mj
zavod
zavod
Dat.p
transform(datum,'@E')
datum
Var.symbol
var_sym
var_sym
navedeni
navedeni
poznamka
poznamka
zev organizace
m4_organ.nazev_org
m4_organ.nazev_org
select &w_dbfpri
HLASKA
W_SCRRAD
W_ZAZRAD
IC7_FADOM
CIS_FAK
DPRIJEMKA
ZAVOD
IM4_ORGAN
IW_NAZRAD
IW_NAZPRI
IPOLEX
IPROCX
VIRBOT
ACLEFT
CRIGHT
AFREEZE
NIORDER
?LEVA
PRAVA
RNADPIS
MKAZAHL
BJMENO
OLORHODN
?SOUC
*PSOUC
?TITLE
TITLECOLORPOC0
AMKAF6
?F0PRG
NIF1ON
F1PRG
BF4_JM
F4PRG
TISKPRG
F7_JM
F7PRG
F9PRG
F9KEY
TF9KEY1
RF10_JM
?F10PRG
RAMECEK
 NAZEVT
KLICO
*KLNAZ
?SPACEBAR
*TR_HL1
?TR_HL2
TR_HL3
TR_HL4
*TR_HL5
?TR_HL6
TR_HL7
TR_HL8
TR_HL9
DET_JM
ENTER
DETAIL
DETPRG
?PS_LINE
PS_RETURN
PS_ZAZN
MOD_PSV
 Za polo
ky
 Za sklady
 Celkem
 Konec
W_SCRFUN
W_SEQ
W_VOL
ISUM_PRE
SUM_CEL
copy to c_fltdbf for &w_flt
c_fltdbf
c_sumdbf
c_fltdbf
v4_sklad
c_sumdbf
sum_cel with .t.
RIIS 7.5
s751c
Zadejte ident:
et za polo
Vyhled
XXXXXX
Konec
- F10
- Esc,^End
Zadejte sklad:
et za sklady
Vyhled
XXXXXX
Konec
- F10
- Esc,^End
ident
ident
sklad
sklad
nazev
nazev
    Mno
str(mnozstvi,12,3)
mnozstvi
   Celkem K
str(cena,12,2)
select &w_puvdbf
P_POL
W_SCRSUM
W_NAZEV
INAZEVT
W_PUVREC
DW_PUVDBF
W_FLT
GET_FLT
IIDENT
INAZEV
IMNOZSTVI
ICENA_MJ
ICENA
C_FLTDBF
IC_SUMDBF
ASKLAD
IV4_SKLAD
IPOLEX
IPROCX
?RTOP
RCLEFT
MKACRIGHT
BFREEZE
LORORDER
?LEVA
PRAVA
OLORNADPIS
*ZAHL
KAJMENO
IPSOUC
AMKATITLE
ITITLECOLORPOC0
F0PRG
TF1PRG
RF4_JM
?F4PRG
TISKPRG
F7_JM
 F7PRG
F9PRG
*F9KEY
?F9KEY1
*F10_JM
?F10PRG
RAMECEK
*KLICO
?KLNAZ
SPACEBAR
TR_HL1
TR_HL2
TR_HL3
TR_HL4
TR_HL5
TR_HL6
?TR_HL7
TR_HL8
TR_HL9
BDET_JM
ENTER
DETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
LORMOD_PSV
colorz
double
et celkem
 Esc,^End
Celkem K
999 999 999 999.99
99 999 999 999.999
W_SUM
W_SCRCEL
W_RECCEL
IW_COLCEL
W_FLT
DGET_FLT
MOD_WIN
MNOZSTVI
ICENA
IW_SUMMNO
IW_SUMCEN
ICENA_MJ
filterz
 .and.
F_FLT
F_FLT1
F_FLT2
m4_organ
m7_fadom
cis_fak
m7_fadod
cis_fak
m7_fadom,
Zadejte
slo faktury :
bez_akt
Aktual
Faktury bez p
jemek
s751c
RIIS 7.5
s. faktury
cis_fak
cis_fak
Var. symbol
vars_s
vars_s
   Celkem K
str(cast_cel,12,2)
cast_cel
   Zaplaceno
str(zap_cel,12,2)
zap_cel
str(cast_cel-zap_cel,12,2)
cast_cel-zap_cel
      Z
str(zal_cel,12,2)
zal_cel
         Da
str(dan_cel,12,2)
dan_cel
Celkem bez dan
'   '+str((cast_cel-dan_cel),12,2)
(cast_cel-dan_cel)
Dat.spl.
transform(dat_spl,'@E')
dat_spl
m4_organ.dicp
m4_organ.dicp
zev organizace
substr(m4_organ.nazev_org,1,25)
m4_organ.nazev_org
ucet_dod
ucet_dod
' '+znak_f+' '
znak_f
mat_c_zu
mat_c_zu
Dat.zap.
transform(dat_zap,'@E')
dat_zap
Zdan.pln
transform(dat_pri,'@E')
dat_pri
 Celkem m
str(cast_men,12,2)
cast_men
Zaplac. m
str(zap_men,12,2)
zap_men
loha m
str(zal_men,12,2)
zal_men
mena+' '
          Kurz
str(kurz,14,7)
Konst.sym.
kons_s+'     '
kons_s
Dat.p
transform(dat_odes,'@E')
dat_odes
'  '+stav_fa+' '
stav_fa
Dat.Sm
transform(dat_smir,'@E')
dat_smir
Dat.UCT.
transform(dat_uct,'@E')
dat_uct
Autor
autor
autor
'  '+zapoc+' '
zapoc
str(zal_vypl,12,2)
zal_vypl
kazech
str(pr_cel,12,2)
pr_cel
Dr.fak
'   '+druh_f+'  '
druh_f
.obj.
cis_obj
cis_obj
Dod.list
dod_l
dod_l
Dat.arb.
transform(dat_arb,'@E')
dat_arb
m4_organ.stat_dod+' '
m4_organ.stat_dod
W_SCRBEZ
W_MENA
PAR_POLE
IM4_ORGAN
DM7_FADOM
CIS_FAK
M7_FADOD
IFADOD
IZNAK_F
IPOLEX
IPROCX
IRBOT
ACLEFT
CRIGHT
AFREEZE
IORDER
?LEVA
PRAVA
RNADPIS
MKAZAHL
BJMENO
LORHODN
?SOUC
*PSOUC
?TITLE
TITLECOLORPOC0
AMKAF6
LECOLORF9
?F0PRG
NIF1ON
F1PRG
BF4_JM
F4PRG
TISKPRG
F7_JM
F7PRG
F9PRG
F9KEY
TF9KEY1
RF10_JM
?F10PRG
RAMECEK
 NAZEVT
KLICO
*KLNAZ
?SPACEBAR
*TR_HL1
?TR_HL2
TR_HL3
TR_HL4
*TR_HL5
?TR_HL6
TR_HL7
TR_HL8
TR_HL9
DET_JM
ENTER
DETAIL
DETPRG
?PS_LINE
PS_RETURN
PS_ZAZN
MOD_PSV
cis_fak
cis_fak
m4_organ
m7_fadom
cis_fak
m7_fadod
cis_fak
m7_fadom,
set order to &cmasterord
W_SCRDET
R_POLE
IKONTROLA
PS_RETURN
ZMENA
M_EXIT
W_AKT
IPREHL
IW_FAK
ICIS_FAK
IW_PUVORD
ICMASTERORDS751A
RORDM4_ORGAN
M7_FADOM
AM7_FADOD
IFADOD
IZNAK_F
cis_fak
cis_fak
m4_organ
m7_fadom
cis_fak
m7_fadod
cis_fak
m7_lidod
cis_fak
c_fak
cis_fak
FFFZ^D
set order to &cmasterord
W_SCRDET
R_POLE
IKONTROLA
PS_RETURN
ZMENA
M_EXIT
W_AKT
IPREHL
IW_FAK
ICIS_FAK
IW_PUVORD
ICMASTERORDS751A
RORDM4_ORGAN
M7_FADOM
AM7_FADOD
IM7_LIDOD
IC_FAK
IW_HODNLIK
RW_HODNPRI
MNOZSTVI
CENA_MJ
RHODN_LIK
?HODN_PRI
HODN_ROZ
CMASTERSEL
m7_ucto
m7_ucto
ehled nep
jemek
V obdob
 od         do
99/9999
99/9999
  /
  /
Nespr
 vypln
 obdob
m4_organ
hle_naz
ehled nep
jemek v akt.a min.obdob
ehled nep
jemek v obdob
RIIS 7.5
s751c
zev organizace
m4_organ.nazev_org
m4_organ.nazev_org
Faktura/DL
ident_vys
ident_vys
zev polo
m1_ident.nazev
m1_ident.nazev
ident
ident
Datum
transform(termin_ob,'@E')
termin_ob
kod_ob
kod_ob
    Mno
str(skut_mnoz,12,3)
skut_mnoz
vydal_skl
vydal_skl
vyd_um_skl+'/'+typ_um_v
vyd_um_skl
stred_obr
stred_obr
Zak./Obj.
ident_zak
ident_zak
prijal_skl
prijal_skl
pri_um_skl+'/'+typ_um_p
pri_um_skl
Doklad
dokl_cis
dokl_cis
n.mno
str(plan_mnoz,12,3)
plan_mnoz
 Vadn
str(vadne_mnoz,12,3)
vadne_mnoz
      Z
str(zasoba,12,3)
zasoba
popis_obr
popis_obr
     Cena/MJ
str(naklad,12,2)
naklad
   Celkem K
str(skut_mnoz*naklad,12,2)
naklad*skut_mnoz
m1_ident.typ
m1_ident.typ
Ident.odb
ratele
m1_ident.ident_odb
m1_ident.ident_odb
jmeno
jmeno
Obdob
str(mesic,2)+'/'+str(rok,4)
str(mesic,2)+'/'+str(rok,4)
Dodavatel   /Z
ico+'/'+zavod
ico+zavod
W_MOD
W_UCTZAV
M7_UCTO
IW_UCTMES
PLAT_OBDOBW_UCTROK
W_UCTOBD
IGET_OBD
IW_MESOD
IW_ROKOD
IW_MESDO
IW_ROKDO
DW_OBDOD
DW_OBDDO
AW_SCRVYB
W_ERR
AHLASKA
IW_STRUC
IW_STROD
IW_STRDO
DOP_NEP
M4_ORGAN
DNPRI
C_MOBR
ZAVOD
RIDENT
?M1_IDENT
NAZEV_ORG
NAZEV
DPOLEX
*PROCX
KARTOP
CLEFT
ICRIGHT
MKAFREEZE
IORDER
OLORHOR
?LEVA
NIPRAVA
NADPIS
BZAHL
JMENO
PSOUC
TITLE
TITLECOLORPOC0
CEBAR
?F0PRG
F1PRG
*F4_JM
?F4PRG
TISKPRG
F7_JM
F7PRG
F9PRG
F9KEY
F9KEY1
F10_JM
?F10PRG
RAMECEK
BNAZEVT
KLICO
KLNAZ
SPACEBAR
TR_HL1
TR_HL2
TR_HL3
TTR_HL4
YTR_HL5
?TR_HL6
LORTR_HL7
TR_HL8
 TR_HL9
DET_JM
*ENTER
?DETAIL
*DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
MOD_PSV
colora
Zadejte n
zev organizace:
 Vyhled
znam nenalezen.
set order to &w_oord
set color to &w_ocol
W_SCRHLE
W_OORD
W_OREC
IW_OCOL
W_KLC
BDOBCSNC
HLASKA
prava dat ...
m4_organ
m7_fadom
cis_fak
m7_fadod
cis_fak
m7_lidod
cis_fak
c_fak
Zadejte
slo faktury :
hod_akt
Aktual
Hodnota p
jemek
s751c
RIIS 7.5
s.faktury
cis_fak
cis_fak
znak+'  '
mat_c_zu
mat_c_zu
stka fakt.
str(hodn_fak,12,2)
hodn_fak
stka likv.
str(hodn_lik,12,2)
hodn_lik
stka p
str(hodn_pri,12,2)
hodn_pri
      Rozd
str(hodn_roz,12,2)
hodn_roz
Var.symbol
var_sym
var_sym
Dat.spl.
transform(dat_spl,'@E')
dat_spl
Zdan.pl.
transform(dat_pri,'@E')
dat_pri
Dat.p
transform(dat_ode,'@E')+' '
dat_ode
zavod
zavod
zev organizace
nazev
nazev
W_SCRHOD
M4_ORGAN
M7_FADOM
BCIS_FAK
M7_FADOD
M7_LIDOD
IC_FAK
IZAVOD
INAZEV
IZNAK
IMAT_C_ZU
DVAR_SYM
DDAT_SPL
ADAT_PRI
DAT_ODE
AHODN_FAK
IHODN_LIK
IHODN_PRI
IHODN_ROZ
ZNAK_F
W_HODNLIK
W_HODNPRI
MNOZSTVI
CENA_MJ
W_NAZEV
NAZEV_ORG
DAT_ODES
*CAST_CEL
AVARS_S
POLEX
PROCX
IRTOP
MKARBOT
ICLEFT
OLORCRIGHT
FREEZE
?ORDER
NIHOR
BLEVA
PRAVA
NADPIS
JMENO
COLORPSOUC
RTITLE
?TITLECOLORPOC0
CEBAR
*F0PRG
?F1ON
F1PRG
F4_JM
F4PRG
TISKPRG
F7_JM
F7PRG
F9PRG
?F9KEY
F9KEY1
F10_JM
BF10PRG
RAMECEK
NAZEVT
KLICO
KLNAZ
SPACEBAR
TTR_HL1
YTR_HL2
?TR_HL3
LORTR_HL4
TR_HL5
 TR_HL6
TR_HL7
*TR_HL8
?TR_HL9
*DET_JM
ENTER
DETAIL
DETPRG
*PS_LINE
PS_RETURN
PS_ZAZN
MOD_PSV
set color to w+/b, w+/rb
set color to w+/bg
set color to b/w
set color to bg/n
set color to w+/w
set color to b/w
set color to b/bg, w+/rb
set color to w/n
set color to w+/n
set color to w+/b, b/w
&z_bpla
it pr
ci beze zm
Opravdu zru
znam ?
Z_SUB
Z_PMTPOC
Z_PROMPT
IZ_PROT
Z_FKEY
BZ_CKEY
Z_STATUS
Z_RST
IZ_BNR
IZ_BWA
IZ_BWN
IZ_BRN
IZ_BPTN
DZ_BPLN
DZ_BPLA
AZ_KONEC
Z_LKEY
AZ_OPMT
IZ_SCRZMN
IZ_PRERUS
IZ_POC
Z_SCRHLP
Z_BH1
Z_BH2
Z_BMN
Z_UPD
PRERUS
Z_SCRBRW
&z_bar1
 (A/N)
&z_bar2
Z_TEXT
Z_PRERUS
Z_BAR1
IZ_BAR2
Z_SCRPRE
BZ_ODP
Z_LTXT
set color to w+/bg
set color to w+/w
set color to n/w
set color to w+/w
set color to w+/rb
set color to w+/bg
&z_barini
&z_baremp
&z_bar1
&z_bar2
&z_barini
Z_MAX
Z_AKT
Z_RAD
IZ_PROC
Z_TXT
BZ_BARINI
Z_BAREMP
Z_CHAR
IZ_BAR1
IZ_BAR2
IZ_SKUTXT
IZ_SLPTXT
IZ_POCAKT
DZ_STPROC
DZ_TXPROC
AZ_SLPROC
Z_STRING
AS751C
PRO_PRI
GET_NAZ
DOP_PRI
DOP_NEP
VYB_PRI
VYB_NEP
KONTROLA
PRO_NOV
DOP_NOV
AKT_PRI
RTV_PRI
ZBR_PRI
ZMN_PRI
PRE_PRI
ULO_PRI
DEL_PRI
VLO_PRI
F8_PRI
KNT_PRI
GET_OBD
VYB_MOD
PREHLED
FUN_PRE
FUN_TRI
FUN_RAD
RAD_PRI
FUN_VYB
SUM_PRE
SUM_CEL
GET_FLT
PRE_BEZ
BEZ_AKT
HOD_AKT
PREHL_NEP
HLE_NAZ
PRE_HOD
ZMENY
PRERUS
PRUBEH
P:\IN\SK\O\07\
S751C.FXP
P:\IN\SK\O\07\S751C.PRG