Current File : //data/www_bck/varak.net_bck/nextcloud.varak.net/data/monami/files/1MONAMI/export/skladadv.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 adv
SCAN
SELECT 1
APPEND blank
replace nazmat with b.nazev
replace sklad with 0
replace cismat WITH b.ean
replace ean WITH b.ean
replace sazdph WITH b.dph*100
replace procen1 WITH b.prodcena
replace procen5 WITH b.prodcena/(1+b.dph)
replace datpri WITH DATE()
replace ean WITH b.ean
replace icokod WITH 'advicel'
replace posnakcen WITH b.nakupcena
* replace nazmatr WITH b.zanr
replace nazmatc WITH b.autor
replace drumat1 WITH 'KOM', drumat3 WITH 'ADV'
endscan
SELECT 3
USE prijem
DELETE ALL
PACK
select 2
use adv
scan
SELECT 3
APPEND BLANK
replace cispri with 127
replace sklad with 1
replace cismat WITH b.ean
replace nakcen WITH b.nakupcena*b.kusy
replace datpri WITH DATE()
replace mnozst WITH b.kusy
replace nazmat with b.nazev
replace icokod WITH 'advicel'
replace cisfak WITH b.prodcena
replace cisdod WITH b.nakladatel
replace um WITH MONTH(datpri)
replace str WITH 'P'
replace drumat1 WITH 'KOM', drumat3 WITH 'ADV'
ENDSCAN
USE sklkar
DELETE ALL
PACK
APPEND FROM prijem
USE vydej
DELETE ALL
PACK
close all
Mini Shell