#include "ve2600a.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Relazioni Articoli Livelli di Giacenza" -1 -1 80 20

LIST F_COD 5
BEGIN
  PROMPT 50 50 ""
  ITEM "ARTLV|ARTLV"
  FIELD COD
  FLAGS "H"
  KEY 1
END

NUMBER F_CODTAB 3
BEGIN
  PROMPT 50 50 ""
  USE LF_MULTIREL
  INPUT COD F_COD SELECT
  INPUT FIRST F_CODTAB
  DISPLAY "Codice" FIRST
  DISPLAY "Descrizione@60" DATA
  DISPLAY "Causale Collegata" SECOND
  OUTPUT F_CODTAB FIRST
	CHECKTYPE REQUIRED
  FIELD FIRST
  FLAGS "H"
  KEY 1
END


STRING F_CODART 20
BEGIN
  PROMPT 4 2 "Codice Articolo "
  FLAG "UG"
  USE LF_ANAMAG SELECT LIVPERART!=""
  INPUT CODART F_CODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART CODART
  OUTPUT F_DESCRART DESCR
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_CODTAB
	KEY 1
END

STRING F_DESCRART 50
BEGIN
  PROMPT 4 3 "Descrizione     "
  USE LF_ANAMAG KEY 2 SELECT LIVPERART!=""
  INPUT DESCR F_DESCRART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  COPY OUTPUT F_CODART
  CHECKTYPE SEARCH
	KEY 2
END

SPREADSHEET F_LIVGIAC 85 -3
BEGIN
	PROMPT 1 5 "Livelli di giacenza"
  ITEM "Liv1@10"
  ITEM "Liv2@6"
  ITEM "Liv3@6"
  ITEM "Liv4@6"
  ITEM "Descrizione@50"
  ITEM "Attivo"
END

ENDPAGE

ENDMASK

PAGE "Righe" -1 -1 80 18

STRING F_LIV1 10
BEGIN
  FLAGS "U"
  PROMPT 2 2 "Livello 1  "
  USE GCG //SELECT CODTAB[1,1]=="1"
  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1] "1" 
  INPUT CODTAB[2,11] F_LIV1
  DISPLAY "Livello@20" 500@->S0
  DISPLAY "Gruppo@10" CODTAB[2,20]
  DISPLAY "Descr.@30" S0
  OUTPUT F_LIV1 CODTAB[2,12] 
	OUTPUT F_DESCR S0
  CHECKTYPE NORMAL

  MESSAGE EMPTY CLEAR,F_LIV2|CLEAR,F_LIV3|CLEAR,F_LIV4
  MESSAGE ENABLE,F_LIV2
END

STRING F_LIV2 10
BEGIN
  FLAGS "U"
  PROMPT  40 2 "Livello 2  "
  USE GCG //SELECT CODTAB[1,1]=="2"
  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1] "2" 
  INPUT CODTAB[2,12] F_LIV2
  COPY DISPLAY F_LIV1
  OUTPUT F_LIV2 CODTAB[2,12] 
	OUTPUT F_DESCR S0
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,F_LIV3|CLEAR,F_LIV4
  MESSAGE ENABLE,F_LIV3
END

STRING F_LIV3 10
BEGIN
  FLAGS "U"
  PROMPT 2 3 "Livello 3  "
  USE GCG //SELECT CODTAB[1,1]=="3"
  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1] "3" 
  INPUT CODTAB[2,12] F_LIV3
  COPY DISPLAY F_LIV1
  OUTPUT F_LIV3 CODTAB[2,12] 
	OUTPUT F_DESCR S0
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,F_LIV4
  MESSAGE ENABLE,F_LIV4
END

STRING F_LIV4 10
BEGIN
  FLAGS "U"
  PROMPT 40 3 "Livello 4  "
  USE GCG //SELECT CODTAB[1,1]=="4"
  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1] "4" 
  INPUT CODTAB[2,12] F_LIV4
  COPY DISPLAY F_LIV1
  OUTPUT F_LIV4 CODTAB[2,12] 
	OUTPUT F_DESCR S0
  CHECKTYPE NORMAL
END

STRING F_DESCR 50 
BEGIN
  PROMPT 20 4 ""
	FLAGS "D"
END

BOOLEAN F_ATTIVO
BEGIN
  PROMPT 2 5 "Attivo per questo utente"
END

BUTTON DLG_OK 11 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 11 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 11 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK