Current File : //data/www_bck/varak.net_bck/nextcloud.varak.net/data/monami/files/1MONAMI/export/sklad.BAK
SET DATE german
CLOSE ALL
*SET FILTER TO datvyd >= CTOD("1.1.2015") AND DATVYD <= CTOD("31.1.2015")
SELECT 1
USE cenmat
DELETE ALL
PACK
SELECT 2
USE dl
SCAN
SELECT 1
APPEND blank
replace nazmat with b.tit_nazev
replace sklad with 0
replace cismat WITH b.tit_ean
replace sazdph WITH b.tit_dph
replace procen1 WITH b.tit_moc
replace procen5 WITH b.tit_moc/(1+b.tit_dph/100)
replace datpri WITH DATE()
replace ean WITH b.tit_ean
replace icokod WITH 'euromed'
replace posnakcen WITH b.tit_ncena
replace nazmatr WITH b.tit_autor
replace nazmatc WITH b.zanr
replace drumat1 WITH 'KV'
endscan
SELECT 3
USE prijem
DELETE ALL
PACK
select 2
use dl1
scan
SELECT 3
APPEND BLANK
replace cispri with 23
replace sklad with 1
replace cismat WITH b.tit_ean
replace nakcen WITH b.tit_ncena*b.pocet_ks
replace datpri WITH DATE()
replace mnozst WITH b.pocet_ks
replace nazmat with b.tit_nazev
replace drumat1 WITH 'KV'
replace icokod WITH 'euromed'
endscan
close all
Mini Shell