// ATTENZIONE: riuso gli stessi id di mgtbfca
#include "mgtbfsa.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE  

PAGE "Formato Sottocodice Articoli" 0 0 0 0

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 1 1 "Sottocodici Articolo"
  FLAGS "R"
END

// codice parte del formato codice
STRING F_CODLIV 3
BEGIN
  PROMPT 2 2 "Codice      "
  FLAG "UZ"
  FIELD CODTAB
  KEY 1
  USE FSA
  INPUT CODTAB  F_CODLIV
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Formato@20" S1
  OUTPUT F_CODLIV CODTAB  
  OUTPUT F_DESLIV S0  
  CHECKTYPE REQUIRED
  VALIDATE FIXLEN_FUNC 3
END

BOOLEAN F_ROOT
BEGIN
  PROMPT 28 2 "Livello radice (Primo livello della gerarchia)"
  FIELD B0
  MESSAGE FALSE ENABLE,F_SEPDESC
  MESSAGE TRUE  CLEAR,F_SEPDESC
END

STRING F_SEPDESC 3
BEGIN
  PROMPT 2 6 "Sep.Descriz."
  FIELD S11
  HELP "Separatore per la descrizione (_= spazio)"
END

// descrizione parte del formato codice
STRING F_DESLIV 50
BEGIN
  PROMPT 2 3 "Descrizione "
  FIELD S0
  KEY 2
  USE FSA 
  INPUT S0 F_DESLIV 
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice Parte" CODTAB
  DISPLAY "Formato@20" S1
  COPY OUTPUT F_CODLIV
  CHECKTYPE REQUIRED
END

STRING F_FORMLIV 24
BEGIN
  PROMPT 2 5 "Formato    "
  FIELD S1
  CHECKTYPE REQUIRED
END

ENDPAGE

ENDMASK