campo-sirio/ve/batbgmc.uml

#include "BATBGMC.h"

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

PAGE "Gruppi merceologici " 11 60 14

STRING F_CODICE1 3
BEGIN
  PROMPT 4 4 "Codice merceologico    "
  FIELD %GMC->CODTAB[1,3]
  KEY 1
  FLAG "U"
END

STRING F_CODICE2 2
BEGIN
  PROMPT 32 4 ""
  FIELD %GMC->CODTAB[4,5]
  KEY 1
  USE %GMC
  FLAG "UR"
  INPUT CODTAB[1,3] F_CODICE1
  INPUT CODTAB[4,5] F_CODICE2
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODICE1 CODTAB[1,3]
  OUTPUT F_CODICE2 CODTAB[4,5]
  OUTPUT F_DESCR      S0 
  CHECKTYPE NORMAL
  VALIDATE AUTOEXIT_FUNC 1 F_CODICE1
END

STRING F_DESCR 50
BEGIN
  PROMPT 4 6 "Descrizione  "
  FIELD %GMC->S0
  KEY 2
  USE %GMC KEY 2
  INPUT S0  F_DESCR
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODICE1 CODTAB[1,3]
  OUTPUT F_CODICE2 CODTAB[4,5]
  OUTPUT F_DESCR      S0 
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 70 7
BEGIN
  PROMPT 3 2 ""
  FLAG "R"
END

ENDPAGE

ENDMASK