Current File : //data/www_bck/varak.net_bck/nextcloud.varak.net/data/monami/files/1MONAMI/INVENTURA/inventura.BAK
SELECT 1
USE inv
SET FILTER TO cismat = SPACE(15)
DELETE ALL
PACK
SET FILTER TO mnozst = 0
replace ALL mnozst WITH 1
SET FILTER TO
INDEX on cismat+lokalisk TAG matloka
TOTAL ON cismat+lokalisk TO invsum FIELDS mnozst
USE invsum
ALTER TABLE invsum ADD COLUMN pocet n(5) NULL
replace ALL pocet with 1
ALTER TABLE invsum ADD COLUMN nazmat c(30) NULL
INDEX on cismat TAG cismat
TOTAL ON cismat TO sumvice FIELDS pocet
SELECT 3
USE cenmat
INDEX on substr(ean,1,13) TAG ean
SELECT 2
USE sumvice
INDEX on cismat TAG cismat
SET FILTER TO pocet > 1
select 1
SET RELATION TO CISMAT INTO B, substr(cismat,1,13) INTO c
SET FILTER TO CISMAT = B.CISMAT
replace ALL nazmat WITH c.nazmat
SET MARK TO "-"
COPY TO ("duplicity"+".xls") TYPE xls
COPY TO duplicity
CLOSE ALL
SELECT 1
USE inv
INDEX on cismAT TAG CISMAT
SELECT 2
USE duplicity
INDEX on cismat TAG cismat
SELECT 1
SET RELATION TO cismat INTO b
DELETE ALL FOR cismat = b.cismat
PACK
SET RELATION to
SELECT 2
BROWSE
SELECT 1
APPEND FROM duplicity
SELECT 1
USE cenmat
INDEX on SUBSTR(ean,1,13) TAG ean
TOTAL ON SUBSTR(ean,1,13) TO stavsk FIELDS clo
USE stavsk
INDEX on substr(ean,1,13) tag ean
SELECT 2
USE invsum
INDEX on SUBSTR(cismat,1,13) TAG ean
SELECT 1
SET RELATION TO SUBSTR(cismat,1,13) INTO b
replace all lokali with b.lokalisk
SET FILTER TO clo <> b.mnozst
COPY TO ("inventura"+".xls") TYPE xls
CLOSE ALL
SELECT 2
USE cenmat
Mini Shell