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

MS Visual FoxPro App | 1999-03-29 | 16KB | 544 lines

century
RIIS 5.9
m5_hspar
FFFFF$
FFFFF$
 Zadejte v
Obdob
  /  /
  /  /
mod59f
 Prob
prava dat ...
m1_ident
ident
m12_zk
zprava
m12_tk
oz_kval
m12_tz
oz_zme
m12_zkd
zprava
m5_hsvyr
hlaseni
m5_hsvyr
c5_hsvyr
mod59f
Nebyla vybr
 data.
Sumace
sumace
sum_hs
Detail
sledky sm
n od
RIIS 5.9
mod59i
'  '+smena+'  '
smena
Kontrolov
str(mnoz_kon,12,3)
mnoz_kon
    Vyhov
str(mnoz_vyh,12,3)
mnoz_vyh
% vyhov.
' '+iif(mnoz_kon=0, '   0.00', str(mnoz_vyh/mnoz_kon*100,7,2))
mnoz_vyh/mnoz_kon*100
      Zmetky
str(mnoz_zme,12,3)
mnoz_zme
% zmetk
' '+iif(mnoz_kon=0, '   0.00', str(mnoz_zme/mnoz_kon*100,7,2))
mnoz_zme/mnoz_kon*100
set century &set_cent
set near    &set_near
SET_CENT
SET_NEAR
'OBR1
pM5_HSPAR
mDEN_DO
licW_MOD
riisW_MDO
e  =W_DATOD
  DEN_OD
  =W_DATDO
 =W_DATOPR
7W_NDOD
  =W_NDDO
nsMOD_SYS
poMESS
imensMOD59F
o(pM1_IDENT
nIDENT
dn(pM12_ZK
menZPRAVA
c(pM12_TK
torOZ_KVAL
soM12_TZ
zOZ_ZME
= "M12_ZKD
noM5_HSVYR
"HLASENI
 =SMENA
 =MNOZ_KON
lHMOT_JEDN
MNOZ_ZME
iMNOZ_VYH
C5_HSVYR
HLASKA
iPOLEX
zaPROCX
= "IRTOP
jmenoRBOT
"idenCLEFT
(i) CRIGHT
FREEZE
ORDER
  = HOR
vy"DOL
o(i) =LEVA
rola"PRAVA
)  =NADPIS
la"ZAHL
i + 1JMENO
)  =HODN
nost"SOUC
(i) =PSOUC
mot_TITLE
,3)"TITLECOLORPOC0
  hmF0PRG
 F1ON
m5_hsF1PRG
O dbF4_JM
vyr F4PRG
RE (TISKPRG
enF7_JM
= dtF7PRG
tod)F9PRG
 lefF9KEY
ni, F9KEY1
os(F10_JM
) aF10PRG
ni=RAMECEK
ndRIIS
str+lNAZEVT
nt KLICO
seniKLNAZ
c1_hSPACEBAR
pTR_HL1
atiTR_HL2
entTR_HL3
_idTR_HL4
recTR_HL5
= 0TR_HL6
oreTR_HL7
froTR_HL8
  dTR_HL9
 inDET_JM
witENTER
la vDETAIL
dnDETPRG
  PS_LINE
ndPS_RETURN
PS_ZAZN
RTop, RF8
 CLeft
RiMOD_PSV
mod59f
 Prob
prava dat ...
m5_hsvyr
c_hsvyr
mod59f
Nebyla vybr
 data.
Nezkontr.
prehl_nzk
sum_zpr
Detail
sledky sm
n od
RIIS 5.9
mod59i
hlaseni
hlaseni
Kontrolov
str(mnoz_kon,12,3)
mnoz_kon
    Vyhov
str(mnoz_vyh,12,3)
mnoz_vyh
% vyhov.
' '+iif(mnoz_kon=0, '   0.00', str(mnoz_vyh/mnoz_kon*100,7,2))
mnoz_vyh/mnoz_kon*100
      Zmetky
str(mnoz_zme,12,3)
mnoz_zme
% zmetk
' '+iif(mnoz_kon=0, '   0.00', str(mnoz_zme/mnoz_kon*100,7,2))
mnoz_zme/mnoz_kon*100
PS_LINE
'MOD_SYS
pMESS
mMOD59F
licW_SMENA
isC5_HSVYR
=SMENA
  HLASENI
 =MNOZ_KON
=HMOT_JEDN
MNOZ_ZME
=MNOZ_VYH
M5_HSVYR
C_HSVYR
nsW_DATOD
(pW_DATDO
nHLASKA
(pPOLEX
menPROCX
c(pRTOP
torRBOT
soCLEFT
zCRIGHT
= "FREEZE
noORDER
 =DOL
 =LEVA
lPRAVA
NADPIS
iZAHL
JMENO
iSOUC
zaPSOUC
= "ITITLE
menoTITLECOLORPOC0
(i) F0
  = F3
vy"F4
o(i) =F6
rola"F7
)  =F9
la"F10
i + 1F0PRG
)  =F1ON
nost"F1PRG
i) =F4_JM
mot_F4PRG
,3)"TISKPRG
ORF7_JM
F7PRG
F9PRG
3F9KEY
F9KEY1
F10_JM
F10PRG
RAMECEK
NAZEVT
 hmKLICO
 KLNAZ
5_hsSPACEBAR
bTR_HL1
yr TR_HL2
E (TR_HL3
enTR_HL4
 dtTR_HL5
od)TR_HL6
lefTR_HL7
i, TR_HL8
os(TR_HL9
) aDET_JM
ni=ENTER
ndDETAIL
r+lDETPRG
nt PS_RETURN
PS_ZAZN
CEBAR
atiW_NDOD
ntW_NDDO
ecMOD_PSV
mod59f
 Prob
prava dat ...
m5_hsvyr
c1_hsvyr
mod59f
Nebyla vybr
 data.
Zadejte st
., lin. a ident:
|   |     |
Nezkontr.
prehl_nzk
zpravy
sledky sm
n od
RIIS 5.9
mod59i
Linka
linka
linka
Ident
ident
ident
. zpr
kontrola
kontrola
  Hmotnost
str(hmot_jedn,10,3)
hmot_jedn
Kontrolov
str(mnoz_kon,12,3)
mnoz_kon
    Vyhov
str(mnoz_vyh,12,3)
mnoz_vyh
% vyhov.
' '+iif(mnoz_kon=0, '   0.00', str(mnoz_vyh/mnoz_kon*100,7,2))
mnoz_vyh/mnoz_kon*100
      Zmetky
str(mnoz_zme,12,3)
mnoz_zme
% zmetk
' '+iif(mnoz_kon=0, '   0.00', str(mnoz_zme/mnoz_kon*100,7,2))
mnoz_zme/mnoz_kon*100
m1_ident.nazev
m1_ident.nazev
PS_LINE
'MOD_SYS
pMESS
mMOD59F
licW_HLAS
isC_HSVYR
=HLASENI
  IDENT
 =LINKA
_JEDN
MNOZ_KON
=MNOZ_ZME
MNOZ_VYH
KONTROLA
sHMOT_JEDN
M5_HSVYR
nC1_HSVYR
pW_DATOD
enW_DATDO
(pM1_IDENT
rHLASKA
oPOLEX
zPROCX
= "RTOP
noRBOT
"CLEFT
 =CRIGHT
 =FREEZE
lORDER
PRAVA
iNADPIS
zaZAHL
= "IJMENO
menoHODN
COLORSOUC
(i) PSOUC
TITLE
TITLECOLORPOC0
vy"F0
o(i) =F1
rola"F2
)  =F3
la"F4
i + 1F6
)  =F7
nost"F9
i) =F10
mot_F0PRG
,3)"F1ON
ORF1PRG
F4_JM
F4PRG
3TISKPRG
F7_JM
F7PRG
F9PRG
F9KEY
F9KEY1
F10_JM
 hmF10PRG
 RAMECEK
hsRIIS
bNAZEVT
yr KLICO
E (KLNAZ
enSPACEBAR
tTR_HL1
od)TR_HL2
lefTR_HL3
i, TR_HL4
os(TR_HL5
) aTR_HL6
ni=TR_HL7
ndTR_HL8
r+lTR_HL9
nt DET_JM
ENTER
_hDETAIL
pDETPRG
atiPS_RETURN
PS_ZAZN
 0W_NDOD
W_NDDO
  dMOD_PSV
mod59f
 Prob
prava dat ...
m12_zkd
c2_hsvyr
mod59f
va o kontrole neexistuje.
Zadejte
Nezkontr.
prehl_nzk
sum_zpr
Detail
sledky sm
n od
va o kontrole
slo F
RIIS 5.9
mod59i
str(radek,3)
radek
' '+roz+' '
char+' '
tridnik+'  '
tridnik
    Mno
str(mno_ov,12,3)
mno_ov
Uzn. k zapl.
str(mno_uz,12,3)
mno_uz
zev t
iif(roz='V', m12_tk.text, m12_tz.text)
PS_LINE
'W_ZPR
pC1_HSVYR
mKONTROLA
cMOD_SYS
isMESS
=MOD59F
  M12_ZKD
 =C2_HSVYR
=ZPRAVA
RADEK
=TRIDNIK
M12_TK
M12_TZ
sHLASKA
POLEX
nPROCX
pRTOP
enRBOT
(pCLEFT
rCRIGHT
oFREEZE
zORDER
= "HOR
noDOL
"LEVA
 =PRAVA
 =NADPIS
lZAHL
JMENO
iHODN
PSOUC
iTITLE
zaTITLECOLORPOC0
menoF0
COLORF1
(i) F2
LECOLORF6
vy"F7
o(i) =F9
rola"F10
)  =F0PRG
la"F1ON
i + 1F1PRG
)  =F4_JM
ost"F4PRG
i) =TISKPRG
t_F7_JM
,3)"F7PRG
ORF9PRG
F9KEY
F9KEY1
3F10_JM
F10PRG
RAMECEK
NAZEVT
KLICO
KLNAZ
 hmSPACEBAR
 TR_HL1
hsTR_HL2
bTR_HL3
yr TR_HL4
E (TR_HL5
enTR_HL6
tTR_HL7
od)TR_HL8
lefTR_HL9
i, DET_JM
os(ENTER
) aDETAIL
ni=DETPRG
ndPS_RETURN
PS_ZAZN
_hW_NDOD
pW_NDDO
atiW_HLAS
idMOD_PSV
colorz
double
 Celkov
 Esc,^End
Kontrolov
no:                     kg
Vyhov
lo    :                     kg
Vyhov
lo    :                     %
Zmetky      :                     kg
Zmetky      :                     %
RIIS 12.3
99,999,999,999.999
99,999,999,999.999
         9,999.99
99,999,999,999.999
         9,999.99
SCRQ1
MOD_SYS
'C5_HSVYR
pAREC
mVETARECNO
M_COL
isMOD_WIN
=MNOZ_KON
 MNOZ_VYH
=MNOZ_ZME
=SUMAK
SUMAVY
=SUMAZM
sZPETRECNO
MOD59I
SUM_HS
SUM_ZPR
ZPRAVY
SUMACE
VETARECNO
ZPETRECNO
X:\OBEC\05\
MOD59I.FXP
X:\OBEC\05\MOD59I.PRG