home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
01
/
MOD17U.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1997-04-24
|
6KB
|
169 lines
german
m_dat
x_dat
m_cis1
x_cis1
VN pro typ n
: k :
RIIS 1.7
TYP_NAKL
p_nakl
Pros
ekejte !
Prob
mod_fun
GERMAN
do M_DAT
y(plX_DAT
nd tM_CIS1
p_nX_CIS1
ndeP_DAT
ent P_NAKL
JMENO_C
ioWJMENO_C
OK_C
1_ideMOD_C2
me RADEK_C
x)SLOUPEC_C
MOD_C1
dMOD_SYS
poTXT
i TXT1
ahl(iBLIK
entifHLASKA
jmeMOD_FUN
enPRE_UVN
Historie
archiv_nak
Detail
zobr_det
VN pro typ n
k :
RIIS 1.7
mod17u
m1_ident
ident
m1_kalk
x1_kalk
m1_kalk
m1_ident
c_kalk
Identifikace
ident
ident
m1_ident.nazev
m1_ident.nazev
' '+m1_ident.kod_pol+' '
m1_ident.kod_pol
' '+typ_nakl+' '
typ_nakl
str(uvn,10,2)
str(kusy_d,7)+' '
kusy_d
Mzda-p
substr(str(prip, 12,2),5,8,2)+' '
Mzda-kusov
str(kusov,12,2)
kusov
OPM
str(opm,10,2)
Materi
str(mater,9,2)
mater
Mat.vl.v
' '+str(koop,9,2)
OPN
str(opn,10,2)
' '+str(sr,10,2)
str(vr,10,2)
str(zr,10,2)
Odb.re
str(or,10,2)
tran(pl_od,'@e')
pl_od
Dat.akt.
tran(dat_ak,'@e')
dat_ak
POLEX
do FREEZE
(plF1
nd tF2
p_nF3
ndeF4
ent F5
ENO_C
1_ideF9
me F10
x)F10_JM
F10PRG
dRAMECEK
poDETAIL
i DET_JM
l(iDETPRG
tifNAZEVT
jmeP_NAKL
enP_DAT
i)RIIS
iNADPIS
zahLEVA
zevPRAVA
o(i)HOR
ident.DOL
hodPROCX
1_idM1_IDENT
IDENT
zM1_KALK
dX1_KALK
"' '+m1_B
_IDENT
pC_KALK
hoKOD_POL
_iPL_OD
d_poPL_DO
i+1TYP_NAKL
'ZAHL
eJMENO
' '+HODN
l+' I
n(i)MOD_PSV
l'OBSAH
VN :
vky :
Mzda p
Mzda kusov
OPM :
Materi
l :
Mat.vl.v
OPN :
SR :
VR :
ZR :
OR :
999999999
do M1_IDENT
lNAZEV
nd tIDENT
nTYP_NAKL
ent KUSY_D
ioKUSOV
1_ideMATER
me KOOP
x)OPN
colorz
mod_proc
set color to &_col
do _SCR
lPS_LINE
tZOBR_NAKL2IDENT
eP_NAKL
nt MOD_PROC
MOD17U
PRE_UVN
ZOBR_DET
ARCHIV_NAK
L:\OBEC\01\
MOD17U.FXP
L:\OBEC\01\MOD17U.PRG