campo-sirio/cg/cg6800b.uml

#include "cg6800.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -15 -1 "~Registra"
MESSAGE EXIT,K_SAVE
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

NUMBER F_NUMRIG 2
BEGIN
  PROMPT 40 1 "Numero di riga           "
  HELP "Inserire il numero della riga desiderata. Se non viene specificata si entra in modifica della testata"
  FLAGS "RZ"
END

DATE F_DATAREG
BEGIN
  PROMPT 1 3 "Data registrazione     "
END

DATE F_DATACOMP
BEGIN
  PROMPT 40 3 "Data competenza "
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 68 3 "Anno "
  FLAGS "D"
END

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

STRING F_NUMDOC 7
BEGIN
  PROMPT 40 4 "Numero documento         "
END

STRING F_REGIVA 3
BEGIN
  PROMPT 1 6 "Registro IVA           "
  FLAGS "UZ"
END

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

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

NUMBER F_NUPROTIVA 5
BEGIN
  PROMPT 40 7 "Ultimo protoc. riepilog. "
  FLAGS "R"
END

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

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

STRING F_CODPAG 4
BEGIN
  PROMPT 1 9 "Codice pagamento       "
  FLAGS "U#"
END

STRING F_DESCRPAG 48
BEGIN
  PROMPT 29 9 ""
  FLAGS "D"
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 1 11 "Sottoconto partita     "
  FLAGS "R"
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 29 11 ""
  FLAGS "R"
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 34 11 ""
  FLAGS "R"
END

STRING F_DESCRPARTITA 50
BEGIN
  PROMPT 1 12 "Descrizione partita    "
  FLAGS "D"
END

LIST F_SEZIONE 9
BEGIN
  PROMPT 1 13 "Sezione                "
  ITEM " |Nessuna"
  ITEM "D|Dare"
  ITEM "A|Avere"
  CHECKTYPE REQUIRED
  WARNING "Valore non valido per sezione"
END

STRING F_DESCR 30
BEGIN
  PROMPT 1 14 "Descrizione aggiuntiva "
END

NUMBER F_IMPORTO 15
BEGIN
  PROMPT 1 15 "Importo                "
  FLAGS "R"
  PICTURE "."
END

NUMBER F_GRUPPOC 3
BEGIN
  PROMPT 1 16 "Sottoconto contropart. "
  FLAGS "R"
END

NUMBER F_CONTOC 3
BEGIN
  PROMPT 29 16 ""
  FLAGS "R"
END

NUMBER F_SOTTOC 6
BEGIN
  PROMPT 34 16 ""
  FLAGS "R"
END

STRING F_DESCRCPARTITA 50
BEGIN
  PROMPT 1 17 "Descrizione c/partita  "
  FLAGS "D"
END

ENDPAGE

ENDMASK