scan rest while Kedni <= m.Vyp_Dat2 for not empty(Kedni) and &Vyp_F
STAV6
stav
FirMat
scan all for StavOb <> 0 and &Vyp_FPS
STAV6
Tisknu..
TMP.LST
Vybran
polo
ky od
Vratn
obaly od 8F
Pln
FF
Jen sklad
Jen skl.
Pro firmy
Pro skupinu firem
Sklad Skladov
slo N
zev Cena/ks P
ijal Vr
til Saldo Cena celk.
========== C E L K E M FIRMA ==========
Firma:
???????8
========== C E L K E M FIRMA ==========
============= C E L K E M ==============
XXINI
_PDPARMS
XSINI
VYP_DAT1
VYP_DAT2
VYP_FIR
VYP_SKUP
VYP_SKLAD
VYP_SKLC
VYP_VSE
VYP_M
VYP_REC
P_READ
VYP_F
VYP_FPS
SKL_DOK
CISLO
ZKRATKA
SKL_KAR
MATERIAL
PRIJAL
VRATIL
SKL_ZM
KEDNI
STAVOB
DOKLAD
VYP_I
TERIAL
POCET
FIRMAT
PRI25_IN
TPCOMPRI
TPCOMPRN
PDHEAD25
VYP_IF
VYP_P1
VYP_V1
VYP_C1
VYP_C
VYP_P2
VYP_V2
VYP_C2
SKL_M1
FIRMA
CENA_NAK
SKLAD
SKLAD_CIS
NAZEV
SKL_TISK
DB_HELPK
SKL_HELPS
Sklad
Sklad.
zev
Typ
Cen.skup.
Harm.
JKPOV
DPH
Limit
*********
Dodavatel
soba
Nakupovat
vat
Jsou nastaven
sleduj
ry pro sklad. karty:
VS_V1
SKL_V1
VYP_VYB
Sklad
edisko
Platba
zka
ada
s.dokl.
s.fakt.
im
Objedn
*********
Firma
Stav
Jsou nastaven
sleduj
ry pro doklady:
VD_V1
SKL_V1
VYP_VYB
bk%"c
Firemn
Jen pro firmu
Jen skl.
Tisknu..
TMP.LST
Firemn
Pro firmy:
Pro sklad.
sla:
Firma Skladov
slo Cena s dan
Jednotka Datum Pozn.
Zkratka
Firma:
?????????????
======== konec firemn
ho cen
ku =========
endifXXINI
end_PDPARMS
dXSINI
sVYP_VYB
VYP_MC
if VYP_FIR
aVYP_SKL
oVYP_REC
P_READ
<PRI25_IN
oFIRMA
_PS PDHEAD25
? Skl.ZKRATKA
, VYP_KLIC
"SKLAD_CIS
TPTUCNY
TPPODTR
p_TPTUCNN
_CTPPODTRN
SCENA
JEDNOTKA
DATUM
VS, POZOR
C, mSKL_TISK
m.DB_HELPK
VSKL_HELPS
SKL_TCEF
ehled receptur
Vybran
karty
echny karty8
*C Kalkulovat do
*C Suroviny ocenit pr
rnou cenou
Chcete je
r z karet?
M Ano,Ne
Ano - nastaven
r bude zkombinov
n s t
m, kter
*T \!O.K.
r pro tisk:
Material
Tisknu..
TMP.LST
Sklad - P
ehled receptur
Parametry v
ru na str. 18
Sklad Skladov
slo N
zev Jedn. V
ch.cena Kalkulace Suroviny Pozn.
Sklad_Cis2
set filter to &VS_F1 and &Vyp_F1
set filter to &VS_F1
set filter to &Vyp_F1
NKomp
e r u
e n o
mka Nkomp: Receptura nen
kompletn
T_1.DBF
T_1.CDX
XXINI
_PDPARMS
XSINI
SKL_DPH
VX_USER
VYP_VYB
VYP_VYP
VYP_MEZI
SKLAD_CIS
VYP_REC
VYP_UROT
VYP_UROTF
VYP_PRUM
VYP_OK
SKL_F1
SKL_K1
SKL_V1
SKL_FSAY
DOTAZ2
VYP_F1
VYP_DBF
MATERIAL
POCET
VS_DEFDM
VS_DEFNC
VS_DEFDC
PRI25_IN
TPCOMPRI
TPCOMPRN
PDHEAD25
SKL_PISV
4VYP_SKLAD
SKLAD_CIS2SKLAD
VYP_KALK
VYP_CSUR
VYP_KOMPL
SKL_TREP1
VYP_RUN
NAZEV
JEDNOTKA
CENA_NAK
SKL_M2
SKL_TISK
DB_HELPK
SKL_HELPS
VYP_VNOR
VYP_KOMPL
VYP_STACK
VYP_SUM
MATERIAL
VYP_FREC
P_FREC
RECEPT
ERIAL
VYP_UROT
VYP_CENA
VYP_PRUM
ODLOZENO
CENA_CELK
CENA_NAK
POCET
VYP_RUN
VYP_KALK
VYP_CSUR
SKL_TREP1
3 Po m
voj z
Ode dne
Do dne
Jen sklad
Jen Sklad.
Materi
l/obaly
M ,Materi
l ,Obaly
Chci jen platby
Nechci platby
Posledn
dodav.
Jak podrobn
M 1 Po dnech ,2 Po dek
ch,3 Po m
ch,4 Po kvart
*C Podle sklad
*T \!O.K.
and SKZ.Typ = "
and SKZ.Typ <> "S"
and Skl.Sklad="
and Sklad_Cis="
and Skl.Zkratka="
IN ("FF
and placeni
IN ("FF
and placeni NOT
ipravuji data
select all Skz.Rada, chrtran( S, "OV", " C") as S, Skl.Sklad, Skz.Kedni, Sum( Cena_Prod) as Cena_Prod, Sum( Skz.Cena_Nak) as Cena_Nak, Sum( iif( Skz.S="O",1,0)) as NPrec from SKZ, SKL, SKD group by Skz.Rada, S, Skl.Sklad, Skz.Kedni where Skl.Material = SKZ.Material and Skd.Cislo = Skz.doklad and Skz.Kedni <> {} and Skz.Kedni <= m.Vyp_Dat2 &Vyp_F1 into cursor S1
ipravuji sestavu
TMP.LST
voj z
sob od F
, Mat.+Obaly
Obaly
Materi
, Sklad
, Skl.
, Dodavatel
, Jen vybran
Stav a pohyby na skladech v po
izovac
ch cen
Sklad Od - Do Po
stav P
jmy V
deje Kon.stav Prod
no Ne
XXX Jen vybran
soby platby:
XXX Mimo t
chto zp
platby:
echny sklady celkem:
*** v sloupci Ne
: Hodnoty nejsou kone
li odlo
m doklad
e r u
e n o
XXINI
_PDPARMS
XSINI
VX_USER
VYP_REC
VYP_DAT1
VYP_DAT2
VYP_SKLAD
VYP_SKLC
VYP_SKLADYVYP_TYP
VYP_DODA
VYP_OK
VYP_INT
VYP_PLA
VYP_PLN
ADYTALK
VYP_F1
VYP_A
VYP_B
VYP_RUN
KEDNI
SKLAD
CENA_NAK
CENA_PROD
NPREC
? PRI25_IN
?TPCOMPRI
TPCOMPRN
?PDHEAD25
VYP_SUM
?TISKNI
ADYSKL_TISK
?DOTAZ2
? SKL
CELKEM
SKLAD
VYP_SUM
VYP_S1
VYP_D1
VYP_RUN
KEDNI
VYP_DAT1
TPCOMPRI
YSKL_M1
TPCOMPRN
NPREC
VYP_DAT1
VYP_INT
P_INT
VYP_INT
VYP_D1
TISKNI
3 Po m
voj tr
Ode dne
Do dne
Jen sklad
Jen Sklad.
Materi
l/obaly
M ,Materi
l ,Obaly
Chci jen platby
Nechci platby
Posledn
dodav.
Jen odb
ratel
Jak podrobn
M 1 Po dnech ,2 Po dek
ch,3 Po m
ch,4 Po kvart
*C Podle sklad
*T \!O.K.
and SKZ.Typ in ("
","S")
and Skl.Sklad="
and Sklad_Cis="
and Skl.Zkratka="
and Skd.Zkratka="
IN ("FF
and placeni
IN ("FF
and placeni NOT
ipravuji data
select all Skz.Rada, chrtran( S, "OV", " C") as S, Skl.Sklad, Skz.Typ, Skz.Kedni, Sum( Skz.Cena_Prod * Skd.Kurs_Dok) as Cena_Prod, Sum( Skz.Cena_Nak) as Cena_Nak, Sum( iif( Skz.S="O",1,0)) as NPrec from SKZ, SKL, SKD group by Skz.Rada, Skz.Typ, S, Skl.Sklad, Skz.Kedni where Skl.Material = SKZ.Material and Skd.Cislo = Skz.doklad and Skz.Rada = "P" and Skd.Stav in ("Z", "O") and Skz.Kedni >= m.Vyp_Dat1 and Skz.Kedni <= m.Vyp_Dat2 &Vyp_F1 into cursor S1
ipravuji sestavu
TMP.LST
voj tr
eb od F
, Mat.+Obaly
Obaly
Materi
, Sklad
, Skl.
, Dod.
, Odb.
, Jen vybran
Tr
by v cen
ch bez dan
Sklad Od - Do Materi
l Slu
by Celkem Po
.cena Hrub
zisk Rabat Ne
XXX Jen vybran
soby platby:
XXX Mimo t
chto zp
platby:
echny sklady celkem:
daje ve sloupci Celkem se m
e nepatrn
it od celkov
stky na dokladech,
proto
e celkov
stky se zaokrouhluj
na desetn
ky pro ka
dou sazbu DPH
*** v sloupci Ne
: Hodnoty nejsou kone
li odlo
m doklad
e r u
e n o
XXINI
**",_PDPARMS
pXSINI
VX_USER
I VYP_REC
VYP_DAT1
[VYP_DAT2
]VYP_SKLAD
VYP_SKLC
]VYP_SKLADYVYP_TYP
1]VYP_DODA
SVYP_ODB
_IVYP_OK
enVYP_INT
kiVYP_PLA
iiVYP_PLN
+ III
ADYTALK
VYP_F1
VYP_A
VYP_B
ELKEVYP_RUN
DDD
Vyp_SKEDNI
, m.K2
M1), trTYP
yp_SumSKLAD
m.SkRADA
CENA_PROD
NA_PROD
CENA_NAK
lNPREC
m[4,S2
kl_MS3
PRI25_IN
TPCOMPRI
TPCOMPRN
1PDHEAD25
)VYP_SUM
TISKNI
ADYSKL_TISK
>DOTAZ2
", SKL
CELKEM
SKLAD
**",VYP_SUM
pVYP_S1
VYP_D1
VYP_RUN
[KEDNI
SKL_M1
]RABAT
DYVYP_I
1]TYP
SCENA_PROD
CENA_NAK
NPREC
kiIII
**",VYP_DAT1
pVYP_INT
P_INT
VYP_INT
",VYP_D1
9999.99c
****.**
P_INT
",VYP_SUM
pTISKNI
T_ZM.DB
RABAT
Tato karta nem
recepturu
TALKz
COMPATIBLEz
skl_trec
SKL_TREC
SKL_TREC.PJX
SKL_TREC
SKL_TREC.SCX
SKL_TREC
SKL_TREC.MNX
SKL_TREC
SKL_TREC.PRG
SKL_TREC
SKL_TREC.FRX
SKL_TREC
SKL_TREC.QPR
Tisk receptury
skl_trec
Text:
!!!!!!!!!!
slo v
Libovoln
text do hlavi
ky tisku
, kter
chcete vyrobit
@*C Tisknout recepturu
@*C Tisknout suroviny
@*C Rozepsat do hloubky
Touto volbou omez
te hloubku receptur, kter
se pou
@K 99
Do jak
m kalkulovat (1-jen prvn
@*C Suroviny ocenit pr
rnou cenou
Jako cena surovin bude pou
ita pr
cena, jinak v
cena
@*C Tisknout
kolov
Pro ka
dou sazbu se vytiskne
kolov
@*HT \!O.K.
skl_trec
Tisknu..
Material
TMP.LST
sklad
- receptura
pro mno
no pr
rnou cenou surovin
Nn Skl.
slo Jedn. mno
Jedn.cena Cena/jedn Mno
celk. Cena celk. N
******* Chyb
skladov
karta **********
CELKEM F
C E L K E M
Pozor. Receptura nen
kompletn
Rozpis surovin:
C E L K E M
Pozor. Rozpis nen
kompletn
Pracovn
stek P
robek
l
Operace
Normo
/ks Mzda
/ks
Provedl
Dne
et
Normo
as
Mzda
ADAVEK
999,999.99c
9999,999.99c
9999,999.99c
C E L K E M
T_U.DBF
T_U.CDX
T_1.DBF
T_1.CDX
XXINI
y ti_PDPARMS
XSINI
VX_USER
MATERIAL
nCHYBA
VYP_REC
VYP_MNOZ
VYP_VYP
2]VYP_SUR
VYP_UROT
nVYP_UROTF
VYP_PRUM
VYP_UKOL
vVYP_TEXT
hVYP_PRIKAZCURRAREA
TALKSTAT
COMPSTAT
SKL_TREC
tSKLAD_CIS
NAZEV
JEDNOTKA
ZVYP_OK
RECEPT
TisPOCET
pVS_DEFDM
Vyp_SuCENA
VS_DEFNC
VS_DEFDC
rovVYP_VNOR
VYP_KOMPL
VYP_STACK
VYP_SUM
ozSKR
lVYP_FREC
PRI25_IN
vSKLAD
TPTUCNY
TPTUCNN
ZTPCOMPRI
TPCOMPRN
PDHEAD25
P_FREC
VYP_CENA
ODLOZENO
CENA_CELK
CENA_NAK
SKL_M2
SKL_M1
AD_CIS
PDSPACE
VYP_LICHY
VYP_RECE
VYP_PRIPORVYP_PRIPRIDBF
LICHY
ulovatDB_HELPK
vSKL_HELPS
SKL_TISK
TALKz
COMPATIBLEz
skl_tobr
SKL_TOBR
SKL_TOBR.PJX
SKL_TOBR
SKL_TOBR.SCX
SKL_TOBR
SKL_TOBR.MNX
SKL_TOBR
SKL_TOBR.PRG
SKL_TOBR
SKL_TOBR.FRX
SKL_TOBR
SKL_TOBR.QPR
Obratov
sestava
skl_tobr
Sklad - obratov
sestava
Ode dne
Do dne
Chcete je
r z karet?
Chcete v
r i z doklad
Mezisou
ty skupiny:
sazeb?
Nulov
odhady?
Podrobn
Jen karty s pohybem?
podskupiny:
Ignorovat
slo skladu?
Vybran
karty
echny karty8
Den, od kter
ho po
adujete sestavu
Den, do kter
ho po
adujete sestavu
ty za skupiny, za
n stejn
mi znaky
ty za podskupiny, za
n stejn
mi znaky
@M Ano,Ne_
Ano - m
ete ur
r z karet
@M Ano,Ne_
Ano - m
ete vybrat pouze ur
doklady
@M Ano,Ne_
Ano - vytisknou se i sazby
@M Ano,Ne_
Ano - p
erpan
souby budou ocen
ny nulovou cenou
@M Ano,Ne_
Ano - jednotliv
polo
ky, Ne - je sou
@M Ano,Ne_
Ano - nulov
karty bez pohybu se nevytisknou
@M Ano,Ne_
Ano - se
te stejn
sklad.
sla bez ohledu na sklad
@*HT \!O.K.
skl_tobr
** odhad
r pro tisk:
r pro tisk:
Skl_Dok
Cislo
set filter to &Skl_F1D
Skl_Zm
Material
Sklad_Cis2
for .t.
for Typ <> [S]
and
ipravuji podklady
scan all &Vyp_Filtr
1234567890NPV
Tisknu..
TMP.LST
Obratov
sestava odF
Parametry v
ru na str. 18
, jen zm
ny stavu8
sazeb
, s odhady
, nulov
odhady8
Sklad.
. Sklad Stav po
. Cena po
. Stav kon. Cena kon. N
Pohyb Zm
na ks Zm
Cena prod. Po
.pohyb
Pozn.
Sklad
Typ
Podskup.
celkem:
Skupina
celkem:
Sklad
celkem:
Podskup.
celkem:
Skupina
celkem:
Sklad
celkem:
C E L K E M :
e r u
e n o
T_1.DBF
T_1.CDX
XXINI
"@M _PDPARMS
XSINI
VX_USER
noCURRAREA
tTALKSTAT
.COMPSTAT
SKL_TOBR
sVYP_VSE
VYP_REC
VyVYP_DAT1
VYP_DAT2
VYP_VYB
*HVYP_VYBD
VYP_VYP
VYP_MEZI
SKLAD_CIS
VYP_MEZI2
VYP_MP
VYP_ODHAD
VYP_SAZBY
VYP_ODHA
VYP_OK
VYP_IGNSKLVS_Y
SKL_F1
SKLSKL_K1
SKL_V1
SKL_FSAY
SKL_V1S
SKL_F1S
SKL_V1D
SKL_F1D
SKL_DOK
CISLO
SKL_ZM
MATERIAL
KEDNI
DOKLAD
SKLAD_CIS2VYP_FILTR
VS_F1
SKLAD
NAZEV
STAV_P
VS_DEFDM
STAV_C
STAV_ODH
POCET_N
CENA_N
ODHAD_N
POCET_V
CENA_V
ODHAD_V
POCET_P
CENA_P
ODHAD_P
CENA_PN
CENA_PP
CENA_PV
NSKLDISPOZICE
VYP_PRUM
ODLOZENO
CENA_CELK
CENA_NAK
POCET
AV_ODH
CENA_PROD
VYP_RUN
PRI25_IN
TPCOMPRI
TPCOMPRN
PDHEAD25
LSKL_PISV
VYP_VYBS
DOK_PISV
VYP_S
VYP_SKL
VYP_SKL2
VYP_SKLAD
VYP_X1
SKL_TOBRT
SKL_TISK
DB_HELPK
SKL_HELPS
P
jmy
999,999 c
V
dejky
999,999 c
Prodeje
999,999 c
"@M URO
VYP_VYP
noVYP_S
tVYP_MP
.SKL_M1
NAZEV
sVYP_ODHAD
VYP_MEZI
VYP_MEZI2
P_DAT2
P_VYB
*HSKL_TOBRT
TALKz
COMPATIBLEz
skl_tobn
SKL_TOBN
SKL_TOBN.PJX
SKL_TOBN
SKL_TOBN.SCX
SKL_TOBN
SKL_TOBN.MNX
SKL_TOBN
SKL_TOBN.PRG
SKL_TOBN
SKL_TOBN.FRX
SKL_TOBN
SKL_TOBN.QPR
Obratov
sestava pro PHM p
i 15st.C
skl_tobn
Sklad - obratov
sestava
Ode dne
Do dne
Chcete je
r z karet?
Mezisou
ty skupiny:
sazeb?
Podrobn
Jen karty s pohybem?
podskupiny:
Ignorovat
slo skladu?
Vybran
karty
echny karty8
Den, od kter
ho po
adujete sestavu
Den, do kter
ho po
adujete sestavu
ty za skupiny, za
n stejn
mi znaky
ty za podskupiny, za
n stejn
mi znaky
@M Ano,Ne_
Ano - m
ete ur
r z karet
@M Ano,Ne_
Ano - vytisknou se i sazby
@M Ano,Ne_
Ano - jednotliv
polo
ky, Ne - je sou
@M Ano,Ne_
Ano - nulov
karty bez pohybu se nevytisknou
@M Ano,Ne_
Ano - se
te stejn
sklad.
sla bez ohledu na sklad
@*HT \!O.K.
skl_tobn
r pro tisk:
ipravuji stavy
Zm.Material, (Zm.Kedni < m.Vyp_Dat1) as Pred, Skl.Dispozice, Skl.Jednotka, Zm.Rada, Zm.S, sum( X_Objem( Zm.Pocet, Zm.Objem, Zm.Mer_Hmot, Zm.Teplota, Zm.Teplota_X, Skl.Dispozice)) as Objem, sum(Zm.Cena_Prod) as Cena_Prod,
sum(Zm.Cena_Nak) as Cena_Nak
from (dbf("SKZ")) Zm, (dbf("SKL")) Skl
into cursor Zmen where Skl.Material = Zm.Material and Zm.Kedni > {} and Zm.Kedni <= m.Vyp_Dat2
group by Zm.Material, Pred, Rada, S order by Zm.Material