home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
04
/
MOD43A.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1998-11-03
|
9KB
|
236 lines
v4_skl_z
x4_skl_z
w_volf
Inventarizovan
polo
ky s k l a d u :
RIIS 4.3
mod_proc
v4_sklad
x4_sklad
Sklad neexistuje
mod_proc
VYROBA
EXPEDICE
MATERIAL
Nepovolen
druh skladu
v4_skl_z
x4_skl_z
Pro zadan
sklad nem
te opr
mod_proc
m_param
m1_obr
ident
m1_ident
ident
m1_kalk
x1_kalk
m1_kalks
x1_kalks
mod4_lib
substr(obr.kod_ob,1,2)='IS' and substr(obr.kod_ob,3,1)#'*'
typ_um_v=w_typ_skl
c_obr
c1_obr
Nebyl vybr
obrat
Inventarizovan
polo
ky s k l a d u :
RIIS 4.3
Zadejte
slo polo
soucetKc
Sumace
Detail
zobr_det
mod43a
ident
ident
vyd_um_skl+'/'+typ_um_v+' '
vyd_um_skl
stav
str(plan_mnoz,12,3)
plan_mnoz
Inven. stav
str(skut_mnoz,12,3)
skut_mnoz
Rozd
str(skut_mnoz-plan_mnoz,12,3)
skut_mnoz-plan_mnoz
Ztr
str(iif(w_cena*(skut_mnoz-plan_mnoz)<0, w_cena*(skut_mnoz-plan_mnoz), 0),12,2)
iif(w_cena*(skut_mnoz-plan_mnoz)<0, w_cena*(skut_mnoz-plan_mnoz), 0)
P
ebytek
str(iif(w_cena*(skut_mnoz-plan_mnoz)<0, 0, w_cena*(skut_mnoz-plan_mnoz)),12,2)
iif(w_cena*(skut_mnoz-plan_mnoz)<0, 0, w_cena*(skut_mnoz-plan_mnoz))
Rozd
str(w_cena*(skut_mnoz-plan_mnoz),12,2)
w_cena*(skut_mnoz-plan_mnoz)
zev polo
m1_ident.nazev
m1_ident.nazev
m1_ident.mj
m1_ident.mj
Cena/MJ
str(w_cena,11,2)
w_cena
Datum inv.
tran(termin_ob,'@E')+' '
termin_ob
soba/K
str(w_cena*(zasoba),12,2)
w_cena*(zasoba)
V4_SKL_Z
cX4_SKL_Z
tPRIHLAS
opM_SKLAD
cSKLAD
elecW_VOL
c2_ZOBR_SKL
oMOD_PROC
gV4_SKLAD
eX4_SKLAD
rW_TYP_SKL
DRUH_SKL
"HLASKA
W_MODUL
M_PARAM
POLE4
W_PRUMER
W_OCEN_EXPPOLE2
W_OCEN_VYRPOLE5
M1_OBR
IDENT
M1_IDENT
:M1_KALK
X1_KALK
H#M1_KALKS
X1_KALKS
KALKS
VYBER_OBR
MOD4_LIB
6C_OBR
W_CENA
C1_OBR
VYBER_CENYTERMIN_OB
POLEX
PROCX
aRBOT
dure CLEFT
*CRIGHT
c1_FREEZE
stORDER
2_obHOR
ect 0
2_obr
on idPRAVA
ideNADPIS
ectZAHL
go JMENO
PSOUC
TITLE
TITLECOLORPOC0
F0PRG
edurF1ON
lace F1PRG
ct cF4_JM
opy F4PRG
c2_TISKPRG
t F7_JM
2_obF7PRG
on F9PRG
ag iF9KEY
seleF9KEY1
gF10_JM
F10PRG
canRAMECEK
"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
ureENTER
DETAIL
c1DETPRG
y sPS_LINE
_oPS_RETURN
PS_ZAZN
iID_ORG
idMOD_PSV
C1_OBR
cW_PRUMER
tM1_KALK
opM1_IDENT
cIDENT
elecPL_OD
c2_TYP_NAKL
oW_CENA
eNAKLAD
colora
set color to &color
cCOLOR
_KALK
opOBR
FILTERz
AND
colorz
double
Celkem
Celkem - v
Esc,^End
Inventurn
ta: K
Inventurn
ebytek: K
l: K
soba celkem: K
sum all (w_cena*(skut_mnoz-plan_mnoz)), iif(w_cena*(skut_mnoz-plan_mnoz)<0, w_cena*(skut_mnoz-plan_mnoz), 0), iif(w_cena*(skut_mnoz-plan_mnoz)>0, w_cena*(skut_mnoz-plan_mnoz), 0), w_cena*zasoba to _souc, z_souc, k_souc, c_souc for &filt
RIIS 4.3
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
SCRQ1
cMOD_SYS
tFILT1
opFILT2
cFILT
elecAREC
c2_VETARECNO
M_COL
gMOD_WIN
eW_CENA
rSKUT_MNOZ
PLAN_MNOZ
ZASOBA
_SOUC
Z_SOUC
K_SOUC
C_SOUC
ZPETRECNO
cMOD43A
roce%
VYBER_CENY
HLASKA
SOUCETKC
VETARECNO
ZPETRECNO
X:\OBEC\04\
MOD43A.FXP
X:\OBEC\04\MOD43A.PRG