campo-sirio/mg/batbgcg.uml

#include "batbfcG.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
  OUTPUT F_AUTOINSERT B0
  CHECKTYPE FORCED
  ADD NONE
END

BOOL F_AUTOINSERT
BEGIN
  PROMPT 1 1 ""
  FLAG "HG"
  MESSAGE TRUE  NORMAL,F_DESGROUP
  MESSAGE FALSE REQUIRED,F_DESGROUP
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 SELECT CODTAB[1,1]==F_CODLIV
  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
ENDMASK