%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /data/www_bck/varak.net_bck/nextcloud.varak.net/data/monami/files/1MONAMI/INVENTURA/
Upload File :
Create Path :
Current File : //data/www_bck/varak.net_bck/nextcloud.varak.net/data/monami/files/1MONAMI/INVENTURA/dopln.PRG

CLOSE ALL
SELECT 1
USE regaly
SELECT 2
USE cenmat_sql
SELECT 1
SCAN
   cism = SUBSTR(a.cismat,1,13)
   SELECT 2
   SET FILTER TO SUBSTR(cismat,1,13) = cism
   COUNT TO i
   DO case
   case i = 1
      replace lokali WITH a.lokalisk, vahamno WITH a.mnozst
   CASE i = 2
      GO top
      IF cismat = cism+"K"
         replace lokali WITH a.lokalisk, vahamno WITH a.mnozst
      ELSE
         SKIP 1
         replace lokali WITH a.lokalisk, vahamno WITH a.mnozst
      endif
   CASE i > 2
      replace ALL lokali WITH a.lokalisk, vahamno WITH 100+a.mnozst
   ENDcase
   SELECT 1
ENDSCAN

Zerion Mini Shell 1.0