campo-sirio/ci/ci0300a.uml

#include "ci0300a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -33 -11 ""
  MESSAGE EXIT,K_QUIT
END

#include <helpbar.h>

ENDPAGE

PAGE "Configurazione" 0 2 0 0

SPREADSHEET F_SHEET -5 0
BEGIN
  PROMPT 0 1 ""
  ITEM "Filtro"
  ITEM "Descrizione@30"
  ITEM "Rimani in\ninserimento@11"
  ITEM "Rimani in\nmodifica@9"
  ITEM "Documento\ncollegato@9"
  ITEM "Numerazione"
  ITEM "Tipo\nDocumento"
  ITEM "Stato"
  ITEM "Modifica documento\ncollegato@18"
  ITEM "Campi modificati@50"
  ITEM "Cancella le\nCommesse chiuse@20"
END

BUTTON F_MOVEUP 2 2
BEGIN
  PROMPT -1 -37 ""
  PICTURE BMP_DARROWU
END

BUTTON F_MOVEDN 2 2
BEGIN
  PROMPT -1 -57 ""
  PICTURE BMP_DARROWD
END

ENDPAGE

ENDMASK

PAGE "Tipologia Documento" -1 -1 78 13

STRING FR_FILTRO 4
BEGIN
  PROMPT 1 1 "Filtro      "
  USE %NUM
  INPUT CODTAB FR_FILTRO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_FILTRO CODTAB
  OUTPUT FR_DES S0
  CHECKTYPE NORMAL
  FLAG "UPA"
END

STRING FR_DES 30
BEGIN
  PROMPT 1 2 "Descrizione "
END

BOOLEAN FR_INS
BEGIN
  PROMPT 1 3 "Rimani in inserimento"
END

BOOLEAN FR_MOD
BEGIN
  PROMPT 1 4 "Rimani in modifica"
END

BOOLEAN FR_COLL
BEGIN
  PROMPT 1 5 "Documento collegato"
	MESSAGE FALSE CLEAR,1@
	MESSAGE TRUE ENABLE,1@
END

BOOLEAN FR_MODCOLL
BEGIN
  PROMPT 23 5 "Modifica interattiva del documento collegato"
  GROUP 1
END

STRING FR_NUM 4
BEGIN
  PROMPT 1 6 "Numerazione "
  USE %NUM
  INPUT CODTAB FR_NUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_NUM CODTAB
  OUTPUT FR_DESNUM S0
  CHECKTYPE REQUIRED
  FLAG "UPA"
  GROUP 1
END

STRING FR_DESNUM 50
BEGIN
  PROMPT 23 6 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 FR_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FR_NUM
  GROUP 1
END

STRING FR_TIPODOC 4
BEGIN
  PROMPT 1 7 "Tipo        "
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB FR_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_TIPODOC CODTAB
  OUTPUT FR_DESTIPODOC S0
  CHECKTYPE REQUIRED
  FLAG "UP"
  GROUP 1
END

STRING FR_DESTIPODOC 50
BEGIN
  PROMPT 23 7 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 FR_DESTIPODOC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FR_TIPODOC
  GROUP 1
END

STRING FR_STATO 1
BEGIN
	PROMPT 1 8 "Stato       "
  USE %STD
  CHECKTYPE REQUIRED
  INPUT CODTAB FR_STATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_STATO CODTAB
  OUTPUT FR_DESSTA S0
  FLAG "U"
  GROUP 1
END

STRING FR_DESSTA 50
BEGIN
  PROMPT 23 8 ""
  HELP "Descrizione tipo documento"
  USE %STD KEY 2
  INPUT S0 FR_DESSTA
  DISPLAY "Descrizione@40" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FR_STATO
  GROUP 1
END

ZOOM FR_VAR 50
BEGIN
  PROMPT 1 9 "Campi variati "
  GROUP 1
END

BOOLEAN FR_DELCLOSE
BEGIN
  PROMPT 1 10 "Cancella i documenti di Commesse chiuse"
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK