Current File : //data/www_bck/varak.net_bck/nextcloud.varak.net/data/monami/files/Programy/ImportDL/skladp.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 dl
SCAN
SELECT 1
APPEND blank
replace nazmat with b.sortnazev
replace sklad with 0
replace cismat WITH b.ean
replace sazdph WITH b.sazbadph
IF b.akcnicena=0
replace procen1 WITH b.moc
ELSE
replace procen1 with b.akcnicena
endif
replace procen5 WITH procen1/(1+sazdph/100)
replace datpri WITH DATE()
replace ean WITH b.ean
replace icokod WITH 'pemic'
replace posnakcen WITH b.prodcena
replace nazmatc WITH b.sortautor
replace nazmatr WITH b.skupnazev
replace drumat1 WITH 'KV'
endscan
SELECT 3
USE prijem
DELETE ALL
PACK
select 2
use dl
scan
SELECT 3
APPEND BLANK
replace cispri with 131
REPLACE um WITH MONTH(DATE())
replace sklad with 1
replace cisdod with b.cisdokl
replace cismat WITH b.ean
replace nakcen WITH (b.prodcena/(1+b.sazbadph/100))*b.mnozstvi
replace datpri WITH DATE()
replace mnozst WITH b.mnozstvi
replace nazmat with b.sortnazev
replace drumat1 WITH 'KV'
replace icokod WITH 'pemic'
replace str with 'P'
endscan
use sklkar
delete all
pack
appen from prijem
use vydej
delete all
pack
close all
Mini Shell