campo-sirio/cg/cg6802b.uml

#include "cg6800.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_DELREC 8 2
BEGIN
PROMPT -15 -1 "~Elimina"
MESSAGE EXIT,K_DEL
END

BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC
END

BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT
END

ENDPAGE

PAGE "" -1 -1 78 18
     
NUMBER F_NUMREG 6
BEGIN
  PROMPT 1 1 "Numero registrazione   "
  HELP "Inserire il numero di registrazione che si vuole modificare"
  FLAGS "RZ"
  CHECKTYPE REQUIRED
END

DATE F_DATAREG
BEGIN
  PROMPT 1 3 "Data registrazione     "
END

STRING F_NUMDOC 7
BEGIN
  PROMPT 1 5 "Numero documento       " 
END

DATE F_DATADOC
BEGIN
  PROMPT 1 6 "Data del documento     "
END

STRING F_REGIVA 3
BEGIN
  PROMPT 1 8 "Registro IVA           "
END

STRING F_DESCRREG 49
BEGIN
  PROMPT 28 8 ""
  FLAGS "D"
END

NUMBER F_PROTIVA 5
BEGIN
  PROMPT 1 9 "Numero protocollo iva  " 
  FLAGS "R"
END

STRING F_CODCAUS 3
BEGIN
  PROMPT 1 11 "Codice causale         "
  FLAGS "Z"
END

STRING F_DESCRCAU 49
BEGIN
  PROMPT 28 11 ""
  FLAGS "D"
END

STRING F_DESCR 30
BEGIN
  PROMPT 1 13 "Descrizione aggiuntiva "
  FLAGS "D"
END

ENDPAGE

ENDMASK