campo-sirio/cg/cg5500a.uml

84 lines
1.3 KiB
Plaintext
Raw Normal View History

/*
* Visualizzazione liquidazione
* mask scelta ditta e mese liq.
*/
#include "cg5500a.h"
PAGE "Visualizzazione Liquidazione" -1 -1 70 6
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Codice ditta "
HELP "Codice della ditta da attivare"
END
BUTTON F_SELECT 2 1
BEGIN
PROMPT 20 1 "*"
PICTURE 109
MESSAGE EXIT,DLG_SELECT
END
STRING F_RAGSOC 50 30
BEGIN
PROMPT 25 1 "Rag. soc. "
HELP "Ragione sociale della ditta da selezionare"
END
BUTTON F_SELECT 2 1
BEGIN
PROMPT 66 1 "*"
PICTURE 109
MESSAGE EXIT,DLG_SELECT
END
NUMBER F_YEAR 4
BEGIN
PROMPT 1 2 "Anno liquid. "
FLAGS "AR"
END
LIST F_MONTHS 30
BEGIN
PROMPT 25 2 "Mese liq. "
ITEM " |Prospetto complessivo"
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|Annuale"
END
LIST F_TRIMS 30
BEGIN
PROMPT 25 2 "Trim. liq."
ITEM " |Prospetto complessivo"
ITEM "3|1<> Trimestre"
ITEM "6|2<> Trimestre"
ITEM "9|3<> Trimestre"
ITEM "12|4<> Trimestre"
FLAGS "H"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK