Chip 1999 June/Chip_1999-06_cd.bin/tema/SoWa/OBEC.EXE/01/S132Z.FXP

MS Visual FoxPro App | 1999-02-26 | 26KB | 534 lines

nazcesf
zakladni
kladn
pracovni
Pracovn
vzorovy
Vzorov
zmenovy
archivni
Archivn
use &nazevv\m1_hlava order postup alias postup
use &nazevv\m1_normy order operace  alias operace
use &nazevv\m1_text  order operace  alias text
use &nazevv\m1_prip  order operace   alias prip
use &nazevv\m1_mat order postup     alias mat
m1_ident
material
m_param
pom_Slevf
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+/w
set color to w/n
&barvan
             Prohl
 technol.postupu:
&barvas
RIIS 1.1
@!NNNNNNNNNNNN
c1_m#
c1_o+
c1_p+
c1_t+
soucasti
material
c1_th
c1_th
&barvas
RIIS 1.1
NAZEVV
,79NAZCES
0 tANSI
endM1_IDENT
MATERIAL
   &POM_SL
enPOM_NH
,2 POM_CKC
evM_PARAM
POLE1
ayPOM_SLEV
,KONEC
tZMENA
,39 CZMENA
posZMENATHN
 'AutoNOVY
4,62 CISELNIK
4,70 sDOL
atum'
POCET
va=bBARVA
    MHOD
  @ 6MNAZ
y 'TyQ1
   @ 6Q2
say 'ExQ3
,53 sayQ5
,2  sayQ7
ecifikaQ8
endifQ9
******Q11
pPOMOC
e opVLOZ
if yY
   doRAD
   hoSL
ol=19
BARVAS
BARVAR
barBARVAZ
-2,BARVAU
to BARVAN
iBARVANS
arBARVAH
&baCISLO
difMOD_SYS
0 POSTUP
,79MAT
,32C1_M
TechOPERACE
 oC1_O
*PRIP
triC1_P
umkcOPER
csbTEXT
*C1_T
trimTYP
bcSKP
sumta=IDENT_ODB
SOUCASTI
)C1_TH
KCSAC
tr(sKCSBC
10,4TBC
@ dol+TAC
len(suKOOPERACE
SUMKCSAC
lSUMKCSBC
sSUMTBC
y sSUMTAC
 doSUMKOOP
n(THNKCSAC
yTHNKCSBC
iPOCOPER
0POCOP
dolHLAVA
ERACE
  @ dol+PROC2
n(suOP
y sPROC1
do VypiA
um with ZMENY
in sVOL
&barva
&barvar
&barva
&barvans
zev sou
Vz.postup
Autor
Datum
Ext.Id.:
Specifikace:
BARVA
,79BARVAS
0 tBARVAZ
&barva
&barvar
 Technologick
 operace
s01_Proc
&barvan
&barva
&barvans
NH/tis
Kusy/h
edpis
Celkem K
,79DOL
0 tHOR
endBARVA
BARVAS
bVYPIS_SUM
S01_PROC
nBARVAZ
,2 POM_NH
&barva
pravky
&barvan
&barva
&barvans
zev p
pravku
,79HOR
0 tBARVA
endBARVAZ
BARVAS
&barva
 Text operace
,79HOR
&barva
&barvau
BARVA
,79BARVAZ
0 tNAZEV
endRADA
bTYP_POSTUPAUTOR
nPOCOP
,2 DATUM
ayIDENT_ODB
,39 TEXT
@ 5,2 &vloz nazev  pict '@!'
@ 5,28 &vloz rada
@ 5,33 &vloz kstr
@ 5,39 &vloz typ_postup
@7,15 &vloz text
,79POCET
0 tPOSTUP
&barvau
&barva
99999.99
pol&cp=oper
BARVA
,79BARVAZ
0 tPU
TUPDOL
nPOSTUP
,2 CISLO
evOPER
NAZEV_OP
T_ODB
,39 NORM
posPOM_NH
5NH_TIS
utoPOM_SL
62 TBC
pKOOPERACE
a=bPREDPIS
  KCSBC
 6KCSAC
 'TyMOD
   @ 6CP
say 'ExJ
@x,1 &vloz oper
@x,5 &vloz nazev_op  pict '@!'
@x,17 &vloz dop
@x,22 &vloz prac pict '999999'
@x,29 &vloz ptr
@x,32 &vloz norm
@x,35 &vloz NH_Tis pict "99999.99"
@x,35+pom_Sl &vloz tbc
@x,40+pom_Sl &vloz kooperace
@x,40+pom_Sl &vloz tac
@x,60 &vloz predpis pict '@!' size 1,8
@x,58 &vloz predpis pict '@!'
0 tPOCET
endKOOPERACE
TUPQ6
,2 Q8
T_ODB
POM_NH
,39 Q1
posQ2
ERACE
POM_SL
ERACE
VYPOCET
a=bNC
&barvau
&barva
soucasti
material
BARVA
,79BARVAZ
0 tPU
OPERACE
TUPDOL
nPOSTUP
,2 CISLO
evEVCIS
KONT_PR
yM1_IDENT
SOUCASTI
tC1_PX
,39 NAZEV
posMATERIAL
5OZNAC
@ x,5 &vloz evcis
soucasti
material
@ x,48 &vloz oznac
,79POCET
OPERACE
KONT_PR
bM1_IDENT
PSOUCASTI
nC1_PX
,2 EVCIS
evKOD_POL
NT_PR
yNAZEV
MATERIAL
&barvau
&barva
BARVA
,79BARVAZ
0 tPU
OPERACE
NT_PR
_IDENT
nPOSTUP
,2 CISLO
evTEXT
@ x,2 &vloz text
,79POCET
OPERACE
&barvas
&barvar
pravky
 Text operace
&barvaz
&barvas
&barvaz
&barvas
select &sel
,79SEL
0 tRP
endDOLP
NT_PR
_IDENT
PPRIP
nPOSTUP
,2 CISLO
evOPER
EVCIS
yTEXT
 h l a v
           -
           - F2,F3
           - ^End,Esc
Pohyb
Bloky
Konec
&barvau
 O p e r a c e
              -
,PgDn,PgUp
              - F2,F3
              - F10
              - ^End,Esc
Pohyb
Bloky
Detail oper.
Konec
&barvau
 i p r a v k y
              -
,PgDn,PgUp
              - F2,F3
              - ^End,Esc
Pohyb
Bloky
Konec
&barvau
 T e x t y
              -
,PgDn,PgUp
              - F2,F3
              - ^End,Esc
Pohyb
Bloky
Konec
&barvau
 Material
              -
,PgDn,PgUp
              - F2,F3
              - ^End,Esc
Pohyb
Bloky
Konec
 Prohl
 - post
               - ^PgUp,^PgDown
               - F2,F3
               - ^End,Esc
               - F1
Listov
-obj.
Bloky
Konec
 help
 Prohl
 - oper
               - ^PgUp,^PgDown
               -
,PgUp,PgDown
               - F2,F3
               - ^End,Esc
               - F5
               - F6
Listovan
-obj.
Pohyb
Bloky
Konec
Kalkulace
 Prohl
 - text
               - ^PgUp,^PgDown
               -
,PgUp,PgDown
               - F2,F3
               - ^End,Esc
Listovan
-obj.
Pohyb
Bloky
Konec
&barvas
99999.99
,79OPER
0 tNAZEV_OP
PNORM
nPOM_SL
,2 TBC
evKOOPERACE
POM_NH
tPREDPIS
9 NH_TIS
posKCSBC
5KCSAC
FFFZ^D
select &sel
ktabc=tabc*p_tarif->tarif&tr/60
ktac=tac*p_tarif->tarif&tr/60
&barvaz
kooperace:
&barvau
KOOPERACE
0 tKR
EV_OP
bKTBC
PKTAC
,2 P_TARIF
evTABC
KTABC
tKCSBC
9 KCSAC
posSUMKCSAC
SUMKCSBC
oSUMTBC
SUMTAC
pSUMKOOP
SUMKCS
SUMTB
bSUMTA
SUMKOO
 6DOL
say 'Ex
&barvau
ERACE
do proc&y
colorz
do zmen&y with 'say'
do zmen&y with 'say'
do menu&y
1veta
c1_px+
c1_px
c1_tx+
c1_tx
do menu&y
&barvau
c1_px+
c1_px
do menu&y
do proc&y
do menu&y
ERACE
0 tZ1
TARIF
KONEC
posMCOLO
pPOMOC
ZOBR_DET
bBARVA
BARVAS
 6HLAVA
TyPROC1
 6BARVAZ
'ExC1_O
  OPERACE
ayNUROV
  PROHL
 sayOPER
ifikaQ
endifPROC2
pPRIP
 opC1_PX
if yPOSTUP
 doCISLO
  hoPROC3
C1_TX
PROC4
barPOCOP
2,POCET
KLOBOUKYF
ERACE
OPER_NE
 tPODNIK
dMKOOP
D_KOOP
s01_Proc
ERACE
W_AKT
dDET_OPER
S01_PROC
bHLAVA
of().
OPERACE
y oper
PROC1
say n&
ZMEN1
  @r,
PROC2
ZMEN2
PROC3
say p
ZMEN3
32 sa
PROC4
 if p4'
ZMEN4
   @
NUROV
H_Tis
PROHL
99.99j*
MENU1
MENU2
_Sl sl/
MENU3
 if k
MENU4
MENU5
0+pom
MENUP1
MENUP2
MENUP3
1veta
   eg=
VYPOCET
HLASKA
ZMENY
KOOPERACE
ZOBR_DET
X:\OBEC\01\
S132Z.FXP
X:\OBEC\01\S132Z.PRG