campo-sirio/ve/vetbpci.uml

#include "vetbpci.h"

TOOLBAR "" 0 -3 0 3
#include <toolbar.h>

ENDPAGE

PAGE "Tabella piano dei conti industriale" -1 -1 78 18

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

STRING F_CODICE1 3
BEGIN
  PROMPT 2 2 "Gruppo      "
  FLAGS "Z"
  USE PCI
  FIELD CODTAB[1,3]
  KEY 1
  INPUT CODTAB[1,3] F_CODICE1
  INPUT CODTAB[4,6] F_CODICE2
  INPUT CODTAB[7,12] F_CODICE3
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Conto" CODTAB[4,6]
  DISPLAY "Sottoconto" CODTAB[7,12]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODICE1 CODTAB[1,3]
  OUTPUT F_CODICE2 CODTAB[4,6]
  OUTPUT F_CODICE3 CODTAB[7,12]
  OUTPUT F_DESCR S0
  CHECKTYPE REQUIRED
END

STRING F_CODICE2 3
BEGIN
  PROMPT 2 3 "Conto       "
  FLAGS "Z"
  USE PCI
  FIELD CODTAB[4,6]
  KEY 1
  COPY INPUT F_CODICE1
  COPY DISPLAY F_CODICE1
  COPY OUTPUT F_CODICE1
  CHECKTYPE NORMAL
END

STRING F_CODICE3 6
BEGIN
  PROMPT 2 4 "Sottoconto  "
  FLAGS "Z"
  USE PCI
  FIELD CODTAB[7,12]
  KEY 1
  COPY INPUT F_CODICE1
  COPY DISPLAY F_CODICE1
  COPY OUTPUT F_CODICE1
  CHECKTYPE NORMAL
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 6 "Descrizione "
  FIELD S0
  KEY 2
  USE PCI KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Conto" CODTAB[4,6]
  DISPLAY "Sottoconto" CODTAB[7,12]
  COPY OUTPUT F_CODICE1
  CHECKTYPE REQUIRED
  WARNING "Manca la descrizione"
END

ENDPAGE

ENDMASK