Current File : //data/www_bck/varak.net_bck/nextcloud.varak.net/data/monami/files/Programy/ImportDL/skladsvd.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 svd
SCAN
SELECT 1
APPEND blank
replace nazmat with b.nazev
replace sklad with 0
replace cismat WITH b.kod
replace ean WITH b.kod
replace sazdph WITH b.dph
replace procen1 WITH b.cena
replace procen5 WITH procen1/(1+sazdph/100)
replace datpri WITH DATE()
replace icokod WITH 'svd'
*replace posnakcen WITH b.n7
replace drumat1 WITH 'KOM'
replace drumat3 WITH 'SVD'
endscan
SELECT 3
USE prijem
DELETE ALL
PACK
select 2
use svd
scan
SELECT 3
APPEND BLANK
replace cispri with 107
replace um WITH MONTH(datpri)
replace sklad with 1
replace nazmat with b.nazev
replace cismat WITH b.kod
replace nakcen WITH b.nc*b.mnozst
replace datpri WITH DATE()
replace mnozst WITH b.mnozst
replace drumat1 WITH 'KOM'
replace drumat3 WITH 'SVD'
replace icokod with 'svd'
replace str WITH 'P'
ENDSCAN
USE sklkar
DELETE ALL
PACK
APPEND FROM prijem
close all
Mini Shell