#include "batbgmc.h"

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

PAGE "Tabella gruppi merceologici " 11 60 14

GROUPBOX DLG_NULL 75 7
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

STRING F_CODGRU 3
BEGIN
  PROMPT 2 2 "Codice gruppo      "
  FLAG "U"
  FIELD CODTAB[1,3]
  KEY 1
  USE GMC SELECT CODTAB[4,5]==""
  INPUT CODTAB F_CODGRU
  DISPLAY "Gruppo"         CODTAB[1,3]
  DISPLAY "Descrizione gruppo@50" S0
  OUTPUT F_CODGRU CODTAB[1,3]
  OUTPUT H_DESGRU S0
  MESSAGE COPY,H_CODGRU

END

STRING F_CODSGR 2
BEGIN
  PROMPT 30 2 "Codice sottogruppo "
  FIELD CODTAB[4,5]
  FLAGS "U"
  KEY 1
  USE GMC
  INPUT CODTAB[1,3] F_CODGRU
  INPUT CODTAB[4,5] F_CODSGR
  DISPLAY "Codice gruppo" CODTAB[1,3]
  DISPLAY "Codice sottogruppo" CODTAB[4,5]
  DISPLAY "Descrizione sottogruppo@50" S0
  OUTPUT F_CODGRU CODTAB[1,3]
  OUTPUT F_CODSGR CODTAB[4,5]
  OUTPUT F_DESSGR S0
  MESSAGE SHOW,F_DESGRU|HIDE,H_DESGRU|SHOW,F_DESSGR
  MESSAGE EMPTY HIDE,F_DESGRU|SHOW,H_DESGRU|HIDE,F_DESSGR
  VALIDATE AUTOEXIT_FUNC 2 F_CODGRU F_CODSGR
  GROUP GR_SEARCH
END

STRING H_CODGRU 3
BEGIN
  FLAGS "H"
  COPY USE F_CODGRU
  INPUT CODTAB F_CODGRU
  COPY DISPLAY F_CODGRU
  OUTPUT F_DESGRU S0
  CHECKTYPE NORMAL
END

STRING F_DESGRU 50
BEGIN
  PROMPT 2 4 "Descrizione gruppo "
  FLAGS "D"
END

STRING F_DESSGR 50
BEGIN
  PROMPT 2 8 "Descrizione sottogruppo "
  FIELD S0
  USE GMC KEY 2
  KEY 2
  INPUT S0 F_DESSGR
  DISPLAY "Descrizione sottogruppo@50" S0
  DISPLAY "Codice gruppo" CODTAB[1,3]
  DISPLAY "Codice sottogruppo" CODTAB[4,5]
  COPY OUTPUT F_CODSGR
  MESSAGE K_TAB,F_CODSGR
  CHECKTYPE REQUIRED
  WARNING "Manca la descrizione"
END

STRING H_DESGRU 50
BEGIN
  PROMPT 2 4 "Descrizione gruppo "
  FIELD S0
  KEY 2
  USE GMC KEY 2
  INPUT S0 H_DESGRU
  DISPLAY "Descrizione gruppo@50" S0
  DISPLAY "Codice gruppo" CODTAB[1,3]
  DISPLAY "Codice sottogruppo" CODTAB[4,5]
  COPY OUTPUT F_CODSGR
  OUTPUT H_DESGRU S0
  MESSAGE K_TAB,F_CODSGR
  CHECKTYPE REQUIRED
  WARNING "Manca la descrizione del gruppo"
END

STRING F_CODAGGDOC 2
BEGIN
  PROMPT 2 8  "Codice aggiornamento documenti  "
  FIELD LIC->S4
END

STRING F_CODAGGOMA 2
BEGIN
  PROMPT 2 9  "Codice aggiornamento omaggi     "
  FIELD LIC->S5
END

STRING F_CODAGGSCO 2
BEGIN
  PROMPT 2 10  "Codice aggiornamento sconti     "
  FIELD LIC->S6
END

ENDPAGE


ENDMASK
