#include "batbfca.h"

TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE

PAGE "Gruppi Livelli di giacenza" 11 60 14

// codice parte del formato codice
NUMBER F_CODLIV 1
BEGIN
  PROMPT 2 2 "Numero livello "
  FIELD CODTAB[1,1]
        KEY 1
  FLAG "UP"
  USE FCG
  INPUT CODTAB[1,1] F_CODLIV
  DISPLAY "N.Liv." CODTAB[1,1]
  DISPLAY "Descrizione@50 " S0
  OUTPUT F_CODLIV CODTAB
  OUTPUT F_DESLIV S0
  OUTPUT F_FORMLIV S1
        CHECKTYPE FORCED
        ADD NONE
END

// descrizione parte del formato codice
STRING F_DESLIV 50
BEGIN
  PROMPT 2 3 "Descrizione    "
  USE FCG KEY 2
        INPUT S0 F_DESLIV
  DISPLAY "Descrizione@50 " S0
  DISPLAY "N.Liv." CODTAB[1,1]
        COPY OUTPUT F_CODLIV
        CHECKTYPE FORCED
        ADD NONE
END

// STRINGA DEL FORMATO CODICE
STRING F_FORMLIV 23
BEGIN
  PROMPT 2 5 "Formato previsto per il codice gruppo "
        FLAGS "D"
END

STRING F_CODGROUP 23
BEGIN
        FLAGS "U"
  PROMPT 22 6 "Codice del gruppo "
        FIELD CODTAB[2,25]
        KEY 1
  USE GCG
        JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1]  F_CODLIV SELECT
  INPUT CODTAB[2,25]  F_CODGROUP
  DISPLAY "N.Liv." CODTAB[1,1]
  DISPLAY "Livello@20 " 500@->S0
  DISPLAY "Codice@23" CODTAB[2,25]
  DISPLAY "Descrizione@50 " GCG->S0
  OUTPUT F_CODLIV CODTAB[1,1]
  OUTPUT F_CODGROUP CODTAB[2,25]
  OUTPUT F_DESGROUP S0
        MESSAGE DISABLE,F_DESLIV
        MESSAGE EMPTY ENABLE,F_DESLIV
        CHECKTYPE REQUIRED
END

STRING F_DESGROUP 50
BEGIN
  PROMPT 2 7 "Descr. gruppo  "
        FIELD S0
        KEY 2
  USE GCG KEY 2
        JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT S0 F_DESGROUP
  DISPLAY "Descrizione@50 " GCG->S0
  DISPLAY "N.Liv." CODTAB[1,1]
  DISPLAY "Livello@20 " 500@->S0
  DISPLAY "Codice@23" CODTAB[2,25]
  COPY OUTPUT F_CODGROUP
        CHECKTYPE REQUIRED
END

ENDPAGE