Chip 1999 June/Chip_1999-06_cd.bin/tema/SoWa/OBEC.EXE/05/MOD56E.FXP

MS Visual FoxPro App | 1998-11-06 | 11KB | 281 lines

OBRATY
or MOD_SYS
m5_plan
zakazka
m5_komp
zakazka
m1_plan
x1_plan
m1_ident
ident
m1_zas
x1_zas
m1_um
ident
m5_oper
zakazka
m5_text
zakazka
m5_prip
zakazka
v4_sklad
x4_sklad
 Prob
zky ...
c5_prac
c5_prac
Zadejte
slo zak
m56ed
mod56e
RIIS 5.1
ch komponent
zakazka
zakazka
Ident.
ident
ident
trans(ter_uv,'@E')
ter_uv
' '+stav+'  '
    K v
iif(m5_plan.mno_pl-m5_plan.mno_ov-m5_plan.mno_zm=0,space(12),str(m5_plan.mno_pl-m5_plan.mno_ov-m5_plan.mno_zm,12,3))
m5_plan.mno_pl-m5_plan.mno_ov-m5_plan.mno_zm
    Odvedeno
iif(m5_plan.mno_ov=0,space(12),str(m5_plan.mno_ov,12,3))
m5_plan.mno_ov
 Pl.mno
str(m5_plan.mno_pl,12,3)
m5_plan.mno_pl
      Zmetk
str(m5_plan.mno_zm,12,3)
m5_plan.mno_zm
trans(ter_ov,'@E')
ter_ov
    Nhod
str(nmin/60,8,2)
nmin/60
 Skl.
' '+sklad
sklad
zev polo
m1_ident.nazev
m1_ident.nazev
Ident.odb
ratele
substr(m1_ident.ident_odb,1,9)
m1_ident.ident_odb
m1_ident.ident_odb
poznamka
poznamka
Uvoln
tran(dat_u,'@E')
dat_u
' '+p_mat+'  '
p_mat
'  '+p_sou+'  '
p_sou
' '+ols+' '
' '+pls+' '
' '+vpo+' '
Rozpiska
ident_v
ident_v
poz_v
poz_v
Autor
autor
autor
Aktual.
aktual
aktual
Dat.akt.
tran(dat_akt,'@E')
dat_akt
F_OBR
or MOD_SYS
anM5_PLAN
.tZAKAZKA
 aM5_KOMP
'NM1_PLAN
ecX1_PLAN
c5M1_IDENT
IDENT
on zM1_ZAS
polX1_ZAS
_ovM1_UM
relaM5_OPER
deM5_TEXT
1_M5_PRIP
t V4_SKLAD
oX4_SKLAD
pMESS
5_C5_PRAC
tore TV_ZAK
omPOZAD
=0TER_OV
hlaHLASKA
POLEX
znamFREEZE
turF1
lex = 2F3
      &F4
cet polF6
 celkemF9
eeze = F9KEY
 .t.ENTER
    DETAIL
povDET_JM
= .PROCX
    RAMECEK
ybRIIS
3 = .NAZEVT
 .tRTOP
= .t.RBOT
     CLEFT
olozCRIGHT
 .tNADPIS
'ZaLEVA
sloPRAVA
JMENO
+HODN
PODNIK
MOD_PSV
--PS_RETURN
colora
set color to &color
or COLOR
anOBR
colora
set color to &color
or COLOR
anPOM
.tDEL_POM
L_POM
OPRAVA
or C5_PRAC
anPS_RETURN
set color to b/w
set color to bg/n
set color to w+/bg
set color to b/bg,w+/rb
set color to w+/b
set color to w/n
&barvau
W_MNOZ
or M5_PLAN
anMNO_PL
MNO_OV
 aMNO_ZM
'NJMENO_C
ecWJMENO_C
5RADEK_C
SLOUPEC_C
polCISELNIK
relaDOL
dePOCET
1_DOP1
t DOP2
pCOUNT
5_ZAKAZNIK
POMOC
ore ZMENA
hlaPOC
KONTROLA
mBARVAS
turBARVAR
*BARVAZ
= 2BARVAU
  &BARVAN
polBARVAH
kemBARVA
e = KS
.t.MENU
   PORADI
povKONEC
    X
MECEK
3 = .Z
= .t.T
     Q
olozA
 .tZMENY
&barva
ch komponent
Identifikace
zev polo
Uvoln
novan
Odvedeno
&barvau
99999999.999
99999999.999
99999999.999
ZAKAZKA
r CPOL
anIDENT
M1_IDENT
aNAZEV
'NTER_OV
ecTER_UV
5MNO_PL
MNO_OV
W_MNOZ
&barvau
@ 19,40 &vloz w_mnoz pict '99999999.999'
r ZMENA
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
it pr
ci beze zm
n? (a/N)
KONEC
_IDENT
ecHOR
SELNIK
relaPOCET
deZMENA
1_POM
t K_UDAJU
oOK_C
pULOZ
mod56f
r INDIK
anLOCK_FSOUCC5_PRAC
aZAKAZKA
'NCPOL
ecMOD56F
mod56f
ODV_FSOUC
C5_PRAC
anZAKAZKA
UCCPOL
aW_MNOZ
'NMOD56F
ecZMENA
colora
set color to &color
FSOUC
COLOR
anOBR
      -
      - ^End,Esc
Pohyb
Konec
OBRATY
HLASKA
M56ED
6I6R6
OPRAVA
PORADI
PROC1
ZMEN1
ZMENY
K_UDAJU
HLASKA
2B3g3
X:\OBEC\05\
MOD56E.FXP
X:\OBEC\05\MOD56E.PRG