campo-sirio/tp/tp0900a.uml

#include "tp0900a.h"

TOOLBAR "" 0 -3 0 3

STRING DLG_PROFILE 50
BEGIN
  PROMPT 9 0 "Profilo "
  PSELECT
  FLAGS "H"
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -11 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -11 "Fine"
END

ENDPAGE

PAGE "Dichiarazione CONAI" -1 -1 78 20

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 1 "@bDitta"
END

NUMBER F_FIRM 5
BEGIN
  PROMPT 2 2 ""
  USE LF_NDITTE
  INPUT CODDITTA F_FIRM
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
  FLAGS "DF"
END

STRING F_RAGSOC 60
BEGIN
  PROMPT 17 2 ""
  FLAGS "D"
  FIELD #RAGSOC
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 4 "@bPeriodo da considerare"
END

RADIOBUTTON F_PERIODO 16
BEGIN
  PROMPT 2 4 ""
  ITEM "1|Annuale"     MESSAGE HIDE,F_TRIMESTRE|HIDE,F_MESE
  ITEM "2|Trimestrale" MESSAGE SHOW,F_TRIMESTRE|HIDE,F_MESE
  ITEM "3|Mensile"     MESSAGE HIDE,F_TRIMESTRE|SHOW,F_MESE
  FIELD #PERIODO
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 28 5 "Anno      "
  HELP "Anno per cui effettuare la dichiarazione"
  CHECKTYPE REQUIRED
  FIELD #ANNO
END

LIST F_MESE 15
BEGIN
  PROMPT 28 6 "Periodo   "
  HELP "Mese per cui effettuare la dichiarazione"
  FLAGS "AM"
  FIELD #MESE
END

LIST F_TRIMESTRE 15
BEGIN
  PROMPT 28 6 "Periodo   "
  HELP "Trimestre di cui effettuare la dichiarazione"
  ITEM "3|1 Trimestre   "
  ITEM "6|2 Trimestre   "
  ITEM "9|3 Trimestre   "
  ITEM "12|4 Trimestre"
  FIELD #TRIMESTRE
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 9 "@bNumerazioni e tipi documento da considerare"
END

SPREADSHEET F_TIPI 0 4
BEGIN
  PROMPT 1 10 ""
  ITEM "Numerazione"
  ITEM "Descrizione@50"
  ITEM "Tipo"
  ITEM "Descrizione@50"
END

LIST F_SPECIECONAI 12
BEGIN
  PROMPT 1 15 "@bSpecie CONAI da considerare"
  ITEM "0|Acciaio   "
  ITEM "1|Alluminio "
  ITEM "2|Carta     "
  ITEM "3|Plastica  "
  ITEM "4|Legno     "
  ITEM "5|Vetro     "
  HELP "Codice spesa per contributo CONAI"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 16 "@bDati Dichiarante"
END

STRING F_SOCIO 6
BEGIN
  PROMPT 2 17 "Cod.Socio "
  FIELD #SOCIO
END

STRING F_UFFADD 12
BEGIN
  PROMPT 20 17 "Uff.Addetto "
  FIELD #UFFADD
END

STRING F_RESP 12
BEGIN
  PROMPT 48 17 "Responsabile "
  FIELD #RESP
END

RADIOBUTTON F_PRODUT 28
BEGIN
  PROMPT 2 18 ""
  ITEM "1|Produttore"
  ITEM "2|Utilizzatore"
  FLAGS "Z"
  FIELD #PRODUT
END

ENDPAGE

ENDMASK

//maschera dello sheet sulle numerazioni/tipi documento
PAGE "Tipi" -1 -1 68 9

STRING 101 4
BEGIN
  PROMPT 1 1 "Numerazione "
  USE %NUM
  INPUT CODTAB 101
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 101 CODTAB
  OUTPUT 102 S0
  CHECKTYPE NORMAL
  FLAGS "U"
END

STRING 102 50
BEGIN
  PROMPT 13 2 ""
  USE %NUM KEY 2
  INPUT S0 102
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT 101
  CHECKTYPE NORMAL
END

STRING 103 4
BEGIN
  PROMPT 1 3 "Tipo documento "
  USE %TIP
  INPUT CODTAB 103
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 103 CODTAB
  OUTPUT 104 S0
  CHECKTYPE NORMAL
  FLAGS "U"
END

STRING 104 50
BEGIN
  PROMPT 13 4 ""
  USE %TIP KEY 2
  INPUT S0 104
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT 103
  CHECKTYPE NORMAL
END

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

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

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

ENDPAGE

ENDMASK