Current File : //data/www_bck/varak.net_bck/nextcloud.varak.net/data/monami/files/Programy/ImportDL/skladk.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 kosmas
SCAN
SELECT 1
APPEND blank
replace nazmat with b.n2
replace sklad with 0
replace ean WITH b.n1
replace cismat WITH b.n1
replace ean WITH b.n1
replace sazdph WITH b.n3
replace procen1 WITH b.n4
replace procen5 WITH procen1/(1+sazdph/100)
replace datpri WITH DATE()
replace icokod WITH 'kosmas'
*replace posnakcen WITH b.n7
replace nazmatr WITH 'Beletrie'
replace nazmatc WITH b.n9
replace drumat1 WITH 'KV'
endscan
SELECT 3
USE prijem
DELETE ALL
PACK
select 2
use kosmas
scan
SELECT 3
APPEND BLANK
replace cispri with 122
replace datpri WITH DATE()
replace um WITH MONTH(datpri)
replace sklad with 1
replace nazmat with b.n2
replace cismat WITH b.n1
replace nakcen WITH b.n8
replace mnozst WITH b.n6
replace nazmat with b.n2
replace drumat1 WITH 'KV'
replace icokod WITH 'kosmas'
replace cisdod with b.n11
replace str WITH 'P'
ENDSCAN
USE sklkar
DELETE ALL
PACK
APPEND FROM prijem
USE vydej
DELETE ALL
PACK
close all
Mini Shell