home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
04
/
MOD41C.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-02-04
|
13KB
|
279 lines
MOD41CX
RIIS 4
0FFF$K
FFF$K
FFFF$m
v4_skl_z
x4_skl_z
Sklad (9999)
Datum inventury (MMRR)
@!XXXX
t uveden
daj 'Sklad'
v4_sklad
x4_sklad
Sklad neexistuje
VYROBA
EXPEDICE
MATERIAL
Nepovolen
druh skladu
v4_skl_z
x4_skl_z
Pro zadan
sklad nem
te opr
m1_um
sklad
m1_zas
x1_zas
m1_ident
ident
m1_plan
x1_plan
m1_kalk
x1_kalk
m7_nvpar
m_param
c1_um
c1_um
xc1_um
V zadan
m skladu nebyla nalezena
polo
Prob
r dat ...
c1_um
c_pom
c_pom
ky k inventarizaci ve skladu
RIIS 4.1
tisk_prg
mod41c
ident
ident
' '+um_skl
um_skl
substr(d.nazev,1,20)
d.nazev
d.typ
d.typ
Cena/MJ
str(c1_um.uvn,11,2)
c1_um.uvn
Z
str(zasoba,12,3)
zasoba
m1_ident.rada
m1_ident.rada
enZDAT
ru prV4_SKL_Z
-X4_SKL_Z
-PRIHLAS
mmSKLAD
tr(zHLASKA
rV4_SKLAD
(X4_SKLAD
DRUH_SKL
aW_MODUL
MOD_SYS
mM1_UM
w_M1_ZAS
+w_X1_ZAS
M1_IDENT
+IDENT
m+'.M1_PLAN
t X1_PLAN
daM1_KALK
=X1_KALK
w_M7_NVPAR
&M_PARAM
naPOLE4
ni dW_PRUMER
iW_OCEN_EXPPOLE2
odm1W_OCEN_VYRPOLE5
,podC1_UM
UM_SKL
m1_ZASOBA
zsUVN
f eof(XC1_UM
hlMM
with 'RR
m sW_MM
nebylW_DAT
ena PODM1
PODM2
retPODM3
PODM4
coloPODM5
PODM6
leaPOCET
4,57POCETC
toBERU
@ VYBER_POL
PROCENTA
C_POM
at .W_UVN
STAN_NAKL
RAMECEK
NAZEVT
NADPIS
pPRAVA
eccoHOR
ifDOL
ltrim(ID_ORG
at)POLEX
FREEZE
ileF1
f() andF2
ad=zsklF3
F4
ct m1_zF4PRG
F5
ek m1_uF6
PROCX
u = ZAHL
JMENO
r_poHODN
if bMOD_PSV
colora
set color to &color
enCOLOR
u prOBR
POCET
enPOCETC
prPOC
TYP_INV
prBERU
-DATUM_PINVRR
UM_PINVDATUM_INV
W_DAT
mod_lib
Chcete ze sestavy vylou
daj Z
SOBA? (a/N)
mod_lib
tisk ...
P_SETUP
enP_RESET
prP_6LPI
-P_8LPI
INVP_10CPI
NVP_12CPI
P_16CPI
rP_20CPI
(P_BOLDON
P_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
_P_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
'.P_SUBOFF
P_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
&P_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
P_KODY
podMOD_LIB
m1_ZRUSIT
zsW_TISK
of(NASTAV_PRNOBR_T
'MESS
m sSTRANA
ylRAD
ena TISK_HL
TISK_S
retC1_UM
Cena/MJ
Inv. z
Cena/MJ
Inv. z
Cena/MJ
Inv. z
Cena/MJ
Inv.z
Cena/MJ
Z
Inv. z
enP_10CPI
prP_SUBON
-RIIS
INVPODNIK
NVP_SUBOFF
rNAZEVT
(P_LETRQUALP_BOLDON
P_BOLDOFF
P_DRAFT
FFP_12CPI
ITALOFF
ZRUSIT
ID_ORG
99999999.99
................
99999999.99
................
99999999.99
................
99999999.99
99999.999
...........
99999999.99
99999999.999
...............
enRAD
prPOC
-P_12CPI
NVP_8LPI
rIDENT
(UM_SKL
UALM1_IDENT
NAZEV
ZRUSIT
FFID_ORG
IDENT
.ZASOBA
P_10CPI
10CPI
FFSTRANA
UALP_SUBON
&P_6LPI
colora
set color to &color
enCOLOR
VYROBA
EXPEDICE
W_IDENT
enW_NAKL_N
rM1_IDENT
-M1_KALK
VPL_OD
NVTYP_NAKL
IDENT
rKOD_POL
(W_PRUMER
W_MODUL
W_OCEN_VYRM7_NVPAR
LMATER
MAT2_KOOP
MAT2_MVV
FKOOP
.MZDA
KUSY_D
FKUSOV
UALVR
NVPAR
W_OCEN_EXPMOD41C
MOD41CX
HLASKA
PROCENTA
VYBER_POL
TISK_PRG
TISK_HL
TISK_S
STAN_NAKL
X:\OBEC\04\
MOD41C.FXP
X:\OBEC\04\MOD41C.PRG