campo-sirio/cg/cgtbinv.uml

#include "cgtbinv.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Tabella invii ditta" 0 2 0 0

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

NUMBER F_CODICE 4
BEGIN
  PROMPT 4 2 "Numero invio "
  FIELD CODTAB
  KEY 1
  USE INV
  INPUT CODTAB F_CODICE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR S0
  FLAGS "Z"
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50
BEGIN
  PROMPT 4 4 "Descrizione "
  HELP "Descrizione del codice di invio"
  FIELD S0
  KEY 2
  USE INV KEY 2
  INPUT CODTAB F_CODICE
  INPUT S0 F_DESCR
  DISPLAY "Descrizione @50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR S0
  CHECKTYPE REQUIRED
END

NUMBER F_DA_NREGCG 7
BEGIN
  PROMPT 4 8  "Numero di registrazione iniziale  "
  FIELD I0
  FLAGS "R"
  CHECKTYPE NORMAL
END

NUMBER F_A_NREGCG 7
BEGIN
  PROMPT 4 10 "Numero di registrazione finale    "
  FIELD I1
  FLAGS "R"
  CHECKTYPE NORMAL
END

BOOLEAN F_RIFARE
BEGIN
  PROMPT 4 12 "Da rifare                         "
  FIELD B0
END

ENDPAGE
ENDMASK