campo-sirio/src/li/li0300a.uml

118 lines
1.8 KiB
Plaintext
Raw Normal View History

#include "li0300a.h"
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_SAVEREC 2 2
BEGIN
PROMPT 2 1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE TOOL_SAVEREC
END
#include <cancelbar.h>
ENDPAGE
PAGE "Impostazioni dichiarazioni d'intento" 0 2 0 0
STRING FLD_TABIVA_CODTAB 4
BEGIN
PROMPT 2 1 "Codice IVA plafond: "
FIELD CODTAB
KEY 1
USE %IVA
FLAGS "U"
INPUT CODTAB FLD_TABIVA_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Tipo" S1
DISPLAY "%@5" R0
DISPLAY "Vent." S6
DISPLAY "Sospeso" B2
OUTPUT FLD_TABIVA_CODTAB CODTAB
HELP "Inserire il codice IVA"
CHECKTYPE REQUIRED
VALIDATE ZEROFILL_FUNC 2
END
SPREADSHEET DOC_STATO 45 10
BEGIN
PROMPT 30 1 ""
ITEM "Tipo Numerazione"
ITEM "Da stato"
ITEM "A stato"
END
ENDPAGE
ENDMASK
PAGE "Riga tipo numerazione" -1 -1 78 8
STRING FLD_TIPODOC 4
BEGIN
PROMPT 2 1 "Codice Numerazione "
FIELD CODTAB
KEY 1
USE %NUM
FLAGS "U"
INPUT CODTAB FLD_TIPODOC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FLD_TIPODOC CODTAB
CHECKTYPE REQUIRED
END
STRING FLD_STATODOCDA 4
BEGIN
PROMPT 2 2 "Da Numerazione "
FIELD CODTAB
KEY 1
USE %STD
FLAGS "U"
INPUT CODTAB FLD_STATODOCA
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FLD_STATODOCDA CODTAB
//CHECKTYPE REQUIRED
END
STRING FLD_STATODOCA 4
BEGIN
PROMPT 2 3 "A Numerazione "
FIELD CODTAB
KEY 1
USE %STD
FLAGS "U"
INPUT CODTAB FLD_STATODOCA
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FLD_STATODOCA CODTAB
//CHECKTYPE REQUIRED
END
ENDPAGE
TOOLBAR "Documento" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_DELREC 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 1 1 ""
END
ENDPAGE
ENDMASK