Current File : //data/www_bck/varak.net_bck/nextcloud.varak.net/data/monami/files/1MONAMI/export/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 portal
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 10
* IF b.akcnicena=0
*replace procen1 WITH b.moc
*ELSE
*replace procen1 with b.akcnicena
*endif
replace procen5 WITH b.dpc/1.1
replace datpri WITH DATE()
replace ean WITH b.ean
replace icokod WITH 'pemic'
replace posnakcen WITH b.nc
*replace nazmatc WITH b.sortautor
*replace nazmatr WITH b.skupnazev
replace drumat1 WITH 'KOM'
replace drumat3 WITH 'POR'
endscan
SELECT 3
USE prijem
DELETE ALL
PACK
select 2
use portal
scan
SELECT 3
APPEND BLANK
replace cispri with 17040
REPLACE um WITH MONTH(DATE())
replace sklad with 1
replace cismat WITH b.ean
replace nakcen WITH b.Nc*b.Ks
replace datpri WITH DATE()
replace mnozst WITH b.ks
replace nazmat with b.nazev
replace drumat1 WITH 'KOM'
replace drumat3 WITH 'POR'
replace icokod WITH 'portal'
replace str WITH 'P'
ENDSCAN
CLOSE all
USE sklkar
DELETE ALL
PACK
APPEND FROM cenmat
close all
Mini Shell