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

PAGE "Parametri" 0 2 0 0

LISTBOX F_DETTDISP 6
BEGIN 
	PROMPT 2 2 "Dettaglio disponibilità "
	ITEM "G|Giorno"
	ITEM "M|Mese"
	ITEM "A|Anno"
	FIELD DETTDISP
END

LISTBOX F_DETTCONS 6
BEGIN 
	PROMPT 2 4 "Dettaglio Consuntivi    "
	ITEM "G|Giorno"
	ITEM "M|Mese"
	ITEM "A|Anno"
	FIELD DETTCONS
END

STRING F_CODNUMPR 4
BEGIN
  PROMPT 2 6 "Num.preventivi "
  FIELD CODNUMPR
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUMPR
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUMPR CODTAB
  OUTPUT F_DESNUMPR S0
  CHECKTYPE NORMAL
  FLAG "UPA"
  WARNING "Numerazione assente"
  KEY 1 2
END

STRING F_DESNUMPR 50
BEGIN
  PROMPT 26 6 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 F_DESNUMPR
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUMPR
END

STRING F_TIPODOCPR 4
BEGIN
  PROMPT 2 8 "Tipo preventivi"
  FIELD TIPODOCPR
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOCPR
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOCPR CODTAB
  OUTPUT F_DESTIPODOCPR S0
  CHECKTYPE NORMAL
  FLAG "UP"
END

STRING F_DESTIPODOCPR 50
BEGIN
  PROMPT 26 8 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 F_DESTIPODOCPR
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPODOCPR
END

STRING F_CODNUMCN 4
BEGIN
  PROMPT 2 10 "Num.preventivi "
  FIELD CODNUMCN
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUMCN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUMCN CODTAB
  OUTPUT F_DESNUMCN S0
  CHECKTYPE NORMAL
  FLAG "UPA"
  WARNING "Numerazione assente"
  KEY 1 2
END

STRING F_DESNUMCN 50
BEGIN
  PROMPT 26 10 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 F_DESNUMCN
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUMCN
END

STRING F_TIPODOCCN 4
BEGIN
  PROMPT 2 12 "Tipo consuntivi"
  FIELD TIPODOCPR
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOCCN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOCCN CODTAB
  OUTPUT F_DESTIPODOCCN S0
  CHECKTYPE NORMAL
  FLAG "UP"
END

STRING F_DESTIPODOCCN 50
BEGIN
  PROMPT 26 12 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 F_DESTIPODOCCN
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPODOCCN
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