4ed0c1c7d8
Files correlati : li Commento : Modificati programmi lettere intento: - li0300: Aggiunta di un secondo codice IVA per le esenzioni - li0400: Disabilitata funzione di controllo per molteplici dichiarazioni di intento aperte, adesso posso aprirne quante ne voglio git-svn-id: svn://10.65.10.50/branches/R_10_00@24179 c028cbd2-c16b-5b4b-a496-9718f37d4682
136 lines
2.3 KiB
Plaintext
136 lines
2.3 KiB
Plaintext
#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
|
|
|
|
STRING FLD_TABIVA_CODTAB_ALT 4
|
|
BEGIN
|
|
PROMPT 2 2 "Codice IVA alternativo: "
|
|
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_ALT CODTAB
|
|
HELP "Inserire il codice IVA"
|
|
VALIDATE ZEROFILL_FUNC 2
|
|
END
|
|
|
|
SPREADSHEET DOC_STATO 45 10
|
|
BEGIN
|
|
PROMPT 2 4 ""
|
|
ITEM "Tipo Documento"
|
|
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 "Tipo Documento "
|
|
FIELD TIPODOC
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
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
|
|
NUM_EXPR #FLD_STATODOCA>=#FLD_STATODOCDA
|
|
//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
|