campo-sirio/src/tf/tf0500a.uml

#include "tf0500a.h"

TOOLBAR "topbar" 0 0 0 2

#include <elabar.h>
ENDPAGE

PAGE "Impostazioni" 0 2 0 0

STRING F_PATH 255 45
BEGIN
  PROMPT 0 1 "Cartella "
  DSELECT
  CHECKTYPE REQUIRED
  FLAGS "M"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 2 "Codice     "
  FLAGS "FZD"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 20 2 ""
  USE LF_NDITTE KEY 2
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@60" RAGSOC 
  DISPLAY "Codice" CODDITTA
  COPY OUTPUT F_CODDITTA
  CHECKTYPE REQUIRED
  FLAGS "D"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 3 "Anno       "
  USE LF_IVALIQ
  SELECT GENERATA=="U"
  INPUT ANNO F_ANNO 
  DISPLAY "Anno Liquid.IVA" ANNO
  DiSPLAY "Mese" MESE
  DISPLAY "Trimestre" TRIMESTRE
  OUTPUT F_ANNO ANNO
  OUTPUT F_DAMESE MESE
  OUTPUT F_DATRIMESTRE TRIMESTRE
  OUTPUT F_ATRIMESTRE TRIMESTRE
  FLAGS ""
  WARNING "Inserire un anno di liquidazione"
END

NUMBER F_DAMESE 2
BEGIN
	PROMPT 20 3 "Da mese      "
	SHEET "  |Mese@30"
	INPUT F_DAMESE
	OUTPUT F_DAMESE
	ITEM "|"
	ITEM "1|Gennaio"
	ITEM "2|Febbraio"
	ITEM "3|Marzo"
	ITEM "4|Aprile"
	ITEM "5|Maggio"
	ITEM "6|Giugno"
	ITEM "7|Luglio"
	ITEM "8|Agosto"
	ITEM "9|Settembre"
	ITEM "10|Ottobre"
	ITEM "11|Novembre"
	ITEM "12|Dicembre"
	ITEM "13|Mese mistico"
	HELP "Mese dichiarazione, lasciare vuoto per inserirne uno nuovo"
	FLAGS "D"
END

NUMBER F_AMESE 2
BEGIN
	PROMPT 40 3 "A mese      "
	SHEET "  |Mese@30"
	INPUT F_AMESE
	OUTPUT F_AMESE
	ITEM "|"
	ITEM "1|Gennaio"
	ITEM "2|Febbraio"
	ITEM "3|Marzo"
	ITEM "4|Aprile"
	ITEM "5|Maggio"
	ITEM "6|Giugno"
	ITEM "7|Luglio"
	ITEM "8|Agosto"
	ITEM "9|Settembre"
	ITEM "10|Ottobre"
	ITEM "11|Novembre"
	ITEM "12|Dicembre"
	ITEM "13|Mese mistico"
	HELP "Mese dichiarazione, lasciare vuoto per inserirne uno nuovo"
	FLAGS "D"
END

NUMBER F_DATRIMESTRE 2
BEGIN
	PROMPT 20 4 "Da trimestre "
	SHEET "  |Trimestre@30"
	INPUT F_DATRIMESTRE
	OUTPUT F_DATRIMESTRE
	ITEM "|"
	ITEM "1|Primo"
	ITEM "2|Secondo"
	ITEM "3|Terzo"
	ITEM "4|Quarto"
	HELP "Trimestre dichiarazione, lasciare vuoto per inserirne uno nuovo"
	FLAGS "D"
END

NUMBER F_ATRIMESTRE 2
BEGIN
	PROMPT 40 4 "A trimestre "
	SHEET "  |Trimestre@30"
	INPUT F_ATRIMESTRE
	OUTPUT F_ATRIMESTRE
	ITEM "|"
	ITEM "1|Primo"
	ITEM "2|Secondo"
	ITEM "3|Terzo"
	ITEM "4|Quarto"
	HELP "Trimestre dichiarazione, lasciare vuoto per inserirne uno nuovo"
	FLAGS "D"
END

STRING DLG_PROFILE 256
BEGIN
  PROMPT 1 -1 "Profilo "
  PSELECT
  FLAGS "H"
END

ENDPAGE
ENDMASK