Chip 1999 June/Chip_1999-06_cd.bin/tema/SoWa/OBEC.EXE/04/MOD41D.FXP

MS Visual FoxPro App | 1997-04-15 | 11KB | 325 lines

hledej1
Funkce
zob_fun
A r ch
 v    polo
RIIS 1.1
mod11b
a1_plan
ident
a1_zas
ident
a1_kalk
ident
a1_kalks
ident
a1_pozid
ident
m_dat
x_dat
m_cis1
x_cis1
a1_ident
material
DUP-CIZI
ident
MATERIAL
material
VYROBA
soucasti
FPSABC
EXPEDICE
ident
SLEVARNA1
ident
MNTUXYZOJKG
SLEVARNA2
odlitky
SLEVARNA3
odlitky
ident
ka
a->ident
a->ident
zev polo
ky
a->nazev
a->nazev
'  '+a->kod_pol
a->kod_pol
a->mj
a->mj
Jakostn
 norma
a->jak_csn
a->jak_csn
 norma
a->rozm_csn
a->rozm_csn
' '+m1_plan->zz
m1_plan->zz
Hl. sklad
m1_zas->skl_hlavni+'/'+m1_zas->skl_hl_um
m1_zas->skl_hlavni
       Cena
str(m1_plan->naklad,11,2)
m1_plan->naklad
      Z
str(m1_zas->zasoba,12,3)
m1_zas->zasoba
m1_plan->zs_kmd
m1_plan->zs_kmd
' '+m1_plan->klas_zas
m1_plan->klas_zas
tran(m1_zas->datum_prij,'@E')
(b->datum_prij)
tran(m1_zas->datum_vyd,'@E')
(b->datum_vyd )
P.invent.
tran(m1_zas->datum_inv,'@E')
(b->datum_inv )
Sekund. kli
a->sek_ident
a->sek_ident
Aktual.
tran(datum,'@E')
(a.datum )
Autor
autor
autor
PS_RETURN
POLEX
i) =PROCX
1_zaRTOP
hlavnRBOT
m1_zaCLEFT
l_umCRIGHT
dn(FREEZE
as.ORDER
vni"ZAHL
 = i+JMENO
  HODN
i)=' TITLE
VN'TITLECOLORF1
 "str(mF2
an.naklF3
1,2)"
odn(i)=F6
plan.naF7
   iF9
   F10
 zahl(DETAIL
F1PRG
o(i)F4_JM
an.zF4PRG
   F7_JM
="m1F7PRG
s_kmF9KEY
i = F10_JM
F10PRG
i)=DET_JM
dobDETPRG
menRAMECEK
(mNAZEVT
r_dRIIS
 hodn(i)F5
F9PRG
iNADPIS
-----PRAVA
----HOR
------DOL
------A1_PLAN
IDENT
   PM1_PLAN
LAA1_ZAS
OLOM1_ZAS
---A1_KALK
--M1_KALK
--A1_KALKS
-M1_KALKS
-A1_POZID
lM1_POZID
 M_DAT
w_X_DAT
= suM_CIS1
e4,X_CIS1
A1_IDENT
3MATERIAL
dM1_IDENT
nW_MODUL
**KOD_POL
**SOUCASTI
*ODLITKY
**M_ORD1
**MOD_PSV
colorz
 Vyhled
Zadejte rozpisku nebo n
zev rozpisky
ident
soucasti
nazev
nazev
'ident'
ident
 Rozpiska nebyla nalezena
'ident'
ident
MCOLOR
i) =M1_IDENT
IDENT
nKLIC
m1_zaM_ORD1
_umNAZEV
dn(W_CESTINA
vni"UPPERCS
i+HLASKA
A1_ZAZNAM
VOLBA
M1_IDENT
aPS_RETURN
 Polo
ka: F
sobovac
daje
novac
daje
kladov
daje
 Dopl
 text
 Konec
mod_proc
mod_proc
mod_proc
Typ text
TYP_TX
typ_p
M1_IDENT
aIDENT
m1_zaPS_LINE
umZOBR_ZAS
(MOD_PROC
ZOBR_PL
i"ZOBR_NAKL
TYP_P
 JMENO_C
' WJMENO_C
'MOD_C2
LORRADEK_C
(mSLOUPEC_C
MOD_C1
ZOBR_TXT
Konec
Pohyb
- Esc
- Home,End,PgUp,PgDn
Konec
Pohyb
- Esc
,Home,End,PgUp,PgDn
 detailn
znamy neexistuj
set color to &barva
aLMEZ
m1_zaR
_LINE
umZAZNAM
(M1_POZID
W_KLIC
"M1_IDENT
IDENT
 TYP_P
LORHLASKA
(mPS_LINE
HELP1
an.naSTREC
   iBARVA
   TYP_TX
hl(SAY_TXT
 Dopl
 texty polo
ky - typ textu
dek       Text
WTEXT4
TYP_P
set color to &barx
RAD_TX
aTEXT_TX
colora
set color to &color
COLOR
XT_TX
m1_za
colorz
datez
german
m_dgrpop
c_PopGr
c_PopGr
     N
kladov
daje FF
         Casovy prubeh nakladovych udaju - typ nakladu
 Plati od
 RIIS 1.1
   SoWA
 UVN/Kc
dgrpop
m_dgrdat
c_DatGr
c_DatGr
c_DatGr
dgrdat
mm_dgr2d
!&mmgr 1 6306270498 2
set color to &m_color
set date to &M_dat
OBRGR
M_COLOR
M_DAT
aGERMAN
_QZAZ
1_zaM_DGRPOP
mC_POPGR
(WTEXT3
W_KLIC
"PODNADPIS
PNAKL
' POPIS_X
'DRUH
LORYMIN
(mYMAX
POPIS_N
NAZEV
=PRVNI
.naTRETI
   iCTVRTY
   DRUHY
hl(POPIS_Y
DGRPOP
(i)M_DGRDAT
zC_DATGR
  M1_KALK
m1IDENT
kmTYP_NAKL
 NOR_Y
PIS_X
)=PL_OD
obUVN
enDGRDAT
(mMM_DGR2D
dMMGR
odn(i)MOD41D
HLEDEJ1
ZOB_FUN
VOLBA
HELP1
HELP2
ZOBR_TXT
SAY_TXT
HLASKA
L:\OBEC\04\
MOD41D.FXP
L:\OBEC\04\MOD41D.PRG