campo-sirio/cg/cg1300e.uml

#include "cg1300.h"

PAGE "Impostazione mese liquidazione" -1 -1 78 10

GROUPBOX DLG_NULL 77 4
BEGIN
    PROMPT 1 1 "@bRegistro"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 2 "Anno            "
  FLAGS "Z"
END

STRING F_REG 3
BEGIN
  PROMPT 2 3 "Codice registro "
  USE REG SELECT (I0=1)
  FLAGS "UZ"
  INPUT CODTAB[1,4] F_ANNO
  INPUT CODTAB[5,7] F_REG
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice" CODTAB[5,7]
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" I0
  OUTPUT F_ANNO CODTAB[1,4]
  OUTPUT F_REG CODTAB[5,7]
  OUTPUT F_RAGSOC S0
  CHECKTYPE REQUIRED
  WARNING "Registro inesistente"
END

STRING F_RAGSOC 50
BEGIN
    PROMPT 25 3 ""
    FLAGS "D"
END

NUMBER F_DA 5
BEGIN
  PROMPT 2 5 "Da nr. protocollo "
END

NUMBER F_A 5
BEGIN
  PROMPT 2 6 "A nr. protocollo  "
END

LISTBOX F_PASS 12
BEGIN
  PROMPT 27 5 "Mese da impostare "
  ITEM "0|<Normale>"
  FLAGS "M"
END

BUTTON DLG_OK 9 2
BEGIN
 PROMPT -12 -1 "~Conferma"
 MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 9 2
BEGIN
 PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK