%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /data/www_bck/varak.net_bck/nextcloud.varak.net/data/monami/files/Programy/ImportDL/
Upload File :
Create Path :
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



Zerion Mini Shell 1.0