#include "mgtbfcg.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE  


PAGE "Formato Codice Livelli di giacenza"  0 0 0 0

GROUPBOX DLG_NULL 75 6
BEGIN
 PROMPT 1 1 "@bLivello"
 FLAGS "R"
END

// codice parte del formato codice
NUMBER F_CODLIV 1
BEGIN
  PROMPT 2 2 "Numero  "
  FIELD CODTAB[1,1]
  KEY 1
  USE FCG
  INPUT CODTAB[1,1]  F_CODLIV
  DISPLAY "Codice Parte" CODTAB[1,2]
  DISPLAY "Descrizione@50 " S0
  OUTPUT F_CODLIV CODTAB  
  OUTPUT F_DESLIV S0  
  OUTPUT F_FORMLIV S1  
  CHECKTYPE REQUIRED
  NUM_EXPR (#F_CODLIV<5)
  WARNING "Sono ammessi solo quattro livelli di giacenza"
END

// descrizione parte del formato codice
STRING F_DESLIV 50
BEGIN
  PROMPT 2 3 "Descr.  "
  FIELD S0
  KEY 2
  USE FCG
  INPUT S0 F_DESLIV 
  DISPLAY "Descrizione@50 " S0
  DISPLAY "Codice Parte" CODTAB[1,2]
  COPY OUTPUT F_CODLIV
  CHECKTYPE REQUIRED
END

// STRINGA DEL FORMATO CODICE
STRING F_FORMLIV 15
BEGIN
  PROMPT 2 4 "Formato "
  FIELD S1
  CHECKTYPE REQUIRED
END

BOOLEAN F_AUTOINSERT
BEGIN
  PROMPT 2 5 "Abilita auto inserimento"
  FIELD B0
END

BOOLEAN F_CODICEADATA
BEGIN
  PROMPT 2 6 "Codice come data"
  FLAG "H"
  FIELD B1
END

NUMBER F_LENFORM 2
BEGIN
  PROMPT 2 100 ""
  FLAG "D"
	FIELD I0
END

ENDPAGE
ENDMASK