home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
04
/
MOD48E.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1998-04-03
|
6KB
|
194 lines
m1_plan
x1_plan
m1_zas
x1_zas
m1_kalk
x1_kalk
m1_ident
ident
r polo
ek s podlimitn
sobou ...
c1_ident
c1_ident
ehled podlimitn
RIIS 4.1
mod48e
Zadejte
slo polo
hl_ident with m1_ident.ident in mod11b
soucet
ident
ident
zev polo
m1_ident.nazev
m1_ident.nazev
Z
str(m1_zas.zasoba,12,3)
m1_zas.zasoba
Poj.zas.
str(m1_plan.poza,12,3)
m1_plan.poza
Rozd
str(m1_plan.poza-m1_zas.zasoba,12,3)
m1_plan.poza-m1_zas.zasoba
' '+m1_ident.kod_pol
m1_ident.kod_pol
m1_ident.mj
m1_ident.mj
Jakostn
norma
m1_ident.jak_csn
m1_ident.jak_csn
norma
m1_ident.rozm_csn
m1_ident.rozm_csn
Hl. sklad
m1_zas.skl_hlavni+'/'+m1_zas.skl_hl_um
m1_zas.skl_hlavni
str(m1_kalk.uvn,11,2)
m1_kalk.uvn
Cena celkem
str((m1_plan.poza-m1_zas.zasoba)*m1_kalk.uvn,11,2)
(m1_plan.poza-m1_zas.zasoba)*m1_kalk.uvn
M1_PLAN
sX1_PLAN
PoM1_ZAS
sX1_ZAS
se M1_KALK
xcX1_KALK
=M1_IDENT
lIDENT
dajeOBRXX
ltriMESS
(w_klMOD_SYS
pC1_IDENT
ZASOBA
CPOZA
prubePOLEX
yFREEZE
- LEVA
kladuPRAVA
blankDOL
lace cRAMECEK
pNAZEVT
ithRIIS
ti odNADPIS
witPROCX
in wF1
max witF3
popis_F4
th ' 'F6
zev witF7
ext3, ;F9KEY
rvniF9
h ' ',F9PRG
withF10
IS 1.1F10_JM
y wF10PRG
SoWZAHL
JMENO
witHODN
dpisI
_y wMOD_PSV
Konec
Pohyb
- Esc
- Home,End,PgUp,PgDn
Konec
Pohyb
- Esc
,Home,End,PgUp,PgDn
colora
set color to &color
sCOLOR
PoST_I
se OBR
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
sM_COLOR
PoM_DAT
sGERMAN
se _QZAZ
xcM_DGRPOP
=C_POPGR
lWTEXT3
jeW_KLIC
triPODNADPIS
PNAKL
IDENT
POPIS_X
CDRUH
prubeYMIN
yYMAX
- POPIS_N
duNAZEV
aPRVNI
ankTRETI
ce cCTVRTY
pDRUHY
ithPOPIS_Y
DGRPOP
witM_DGRDAT
wC_DATGR
M1_KALK
itIDENT
s_TYP_NAKL
'NOR_Y
witY
PIS_X
;PL_OD
niUVN
',DGRDAT
thMM_DGR2D
1MMGR
y wPTH
colora
set color to &color
sCOLOR
...
Celkem: K
999,999,999,999.99
ST_ZAZ
sSOUC
PoCELKEM_KC
se M1_PLAN
xcPOZA
=M1_ZAS
lZASOBA
jeM1_KALK
riUVN
ADPIS
MOD48E
HELP1
HELP2
HLASKA
SOUCET
W:\04\
MOD48E.FXP
W:\04\MOD48E.PRG