Current File : //data/www_bck/varak.net_bck/nextcloud.varak.net/data/monami/files/Programy/ImportDL/sklade.PRG
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 EU
SCAN
SELECT 1
APPEND blank
replace nazmat with b.tit_nazev
replace sklad with 0
replace cismat WITH b.tit_ean
replace ean 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 nazmatc WITH b.tit_autor
replace nazmatr WITH b.zanr
replace drumat1 WITH 'KV'
endscan
SELECT 3
USE prijem
DELETE ALL
PACK
select 2
use EU
scan
SELECT 3
APPEND BLANK
replace cispri with 129
replace cisdod WITH b.cislo_dl
replace sklad with 1
replace zahcen WITH b.tit_moc
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'
replace um WITH MONTH(datpri)
replace str WITH 'P'
ENDSCAN
USE sklkar
DELETE ALL
PACK
APPEND FROM prijem
USE vydej
DELETE ALL
PACK
close all
Mini Shell