Current File : //data/www_bck/varak.net_bck/nextcloud.varak.net/data/monami/files/Programy/ImportDL/skladgrada.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 grada
SCAN
SELECT 1
APPEND blank
replace nazmat with b.n3
replace sklad with 0
replace cismat WITH b.n1
replace ean WITH b.n1
replace sazdph WITH b.n7*100
replace procen1 WITH b.n5
replace procen5 WITH procen1/(1+sazdph/100)
replace datpri WITH DATE()
replace icokod WITH 'grada'
*replace posnakcen WITH b.n7
replace nazmatc WITH b.N2
replace drumat1 WITH 'KOM'
replace drumat3 WITH 'GRA'
endscan
SELECT 3
USE prijem
DELETE ALL
PACK
select 2
use GRADA
scan
SELECT 3
APPEND BLANK
replace cispri with 124
REPLACE um WITH MONTH(DATE())
replace sklad with 1
replace nazmat with b.n3
replace cismat WITH b.n1
replace datpri WITH DATE()
replace mnozst WITH b.n4
replace nakcen WITH b.n5*(1-b.n6)/(1+b.n7)*b.n4
replace drumat1 WITH 'KOM'
replace drumat3 WITH 'GRA'
replace icokod with 'grada'
replace str WITH 'P'
ENDSCAN
USE sklkar
DELETE ALL
PACK
APPEND FROM prijem
close all
Mini Shell