Prob
prava dat ... 
m1_kalk
x1_kalk
m4_organ
m4_dodm
ident1
m1_obr
ident
m1_ident
material
m1_ident
m1_obr
c1_ident
Aktualizace cen dododavatel
 na z
RIIS 4.1
zmena_cen
s421c
Identifikace
ident
ident
nazev
nazev
Dodavatel
m4_organ.nazev_org
m4_organ.nazev_org
jm. cena
str(naklad,11,2)
naklad
 cena
str(m4_dodm.cena_plmj,10,2)
m4_dodm.cena_plmj
m4_dodm.mena+' '
m4_dodm.mena
str(iif(m4_dodm.cena_plmj=0, 0, ((naklad-m4_dodm.cena_plmj)/m4_dodm.cena_plmj*100) ),7,2)
(iif(m4_dodm.cena_plmj=0, 0, ((naklad-m4_dodm.cena_plmj)/m4_dodm.cena_plmj*100) )
l. cena
' '+str(aktual_cena,11,2)
aktual_cena
str(iif(aktual_cena=0, 0, ((naklad-aktual_cena)/aktual_cena*100) ),7,2)
(iif(aktual_cena=0, 0, ((naklad-aktual_cena)/aktual_cena*100) )
zavod
zavod
Datum
tran(termin_ob,'@E')
termin_ob
Sklad
vydal_skl+' '
vydal_skl
i =ANSI
ahl(iM1_KALK
a'X1_KALK
 =M4_ORGAN
_cena=M4_DODM
akIDENT1
al_M1_OBR
tuaIDENT
100)M1_IDENT
oMATERIAL
fNAZEV
nZAVOD
((nNAKLAD
tuaTERMIN_OB
VYDAL_SKL
KOD_OB
i=iTYP_UM_V
=STARA_CENANAZ_ORG
hMENA
="icoAKTUAL_CENC1_IDENT
vPL_OD
=TYP_NAKL
ENPOLEX
zPROCX
'DatRTOP
eno(iRBOT
n(terCLEFT
'@E'CRIGHT
i)=FREEZE
ob"ORDER
zaZAHL
'SklxJMENO
TITLE
TITLECOLORPOC0
 naF2
riis F4
IIS 4.1F6
Top  = F7
ot  =24F9
ft = 1
t=78  F0PRG
    F1ON
     F1PRG
FreeF4_JM
f1 =F4PRG
2 = TISKPRG
 .F7_JM
 .t.F7PRG
fF9PRG
f9 F9KEY
9keyF9KEY1
kaF10_JM
 .fF10PRG
=.tRAMECEK
'ZRIIS
enterNAZEVT
cenKLICO
bar KLNAZ
rocxSPACEBAR
dTR_HL1
(poTR_HL2
e jTR_HL3
ex)TR_HL4
dn(TR_HL5
i =TR_HL6
i)=TR_HL7
ikaTR_HL8
o(iTR_HL9
hDET_JM
ideENTER
=i+1DETAIL
='NDETPRG
enoPS_LINE
v"PS_RETURN
PS_ZAZN
=MOD_PSV
C_OZNAC.DBF2
C_OZNAC
 Nebyly ozna
eny (vysv
ceny) 
daje. 
 Opravdu prov
st zm
nu ceny ? (a/n) 
 Prob
na CENY/PLMJ ... 
pom_cena
pom_cena
m4_dodm
m4_dodm
ahl(iZRUS
a'COBR
 =TXT
aHLASKA
na=POM_CENA
kC_OZNAC
l_ZAZNAM
tuaM4_DODM
)IDENT
oPOM_XX
nZAVOD
nCENA_PLMJ
NAKLAD
PRIOR
C1_IDENT
STARA_CENANTRGPZAZ
hPS_RETURN
S421C
-----%
ZMENA_CEN
X:\OBEC\04\
S421C.FXP
X:\OBEC\04\S421C.PRG