Alessandro Bonazzi
2032eebfb3
Files correlati : ve0.exe ve1.exe fp0.exe batbtpe.msk Commento : Resa opzionale la data di registrazione nelle descrizione va indicato nella tabella tipi di esenzione.
147 lines
2.5 KiB
Plaintext
147 lines
2.5 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 "Cofigurazione dichiarazioni d'intento" 0 2 0 0
|
|
|
|
STRING F_CODIVA 4
|
|
BEGIN
|
|
PROMPT 2 1 "Codice IVA plafond: "
|
|
FIELD CODTAB
|
|
KEY 1
|
|
USE %IVA
|
|
FLAGS "U"
|
|
INPUT CODTAB F_CODIVA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Tipo" S1
|
|
DISPLAY "%@5" R0
|
|
DISPLAY "Vent." S6
|
|
DISPLAY "Sospeso" B2
|
|
OUTPUT F_CODIVA CODTAB
|
|
HELP "Inserire il codice IVA"
|
|
CHECKTYPE REQUIRED
|
|
VALIDATE ZEROFILL_FUNC 2
|
|
END
|
|
|
|
STRING F_CODIVA_ALT 4
|
|
BEGIN
|
|
PROMPT 2 2 "Codice IVA alternativo: "
|
|
FIELD CODTAB
|
|
KEY 1
|
|
USE %IVA
|
|
FLAGS "U"
|
|
INPUT CODTAB F_CODIVA_ALT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Tipo" S1
|
|
DISPLAY "%@5" R0
|
|
DISPLAY "Vent." S6
|
|
DISPLAY "Sospeso" B2
|
|
OUTPUT F_CODIVA_ALT CODTAB
|
|
HELP "Inserire il codice IVA"
|
|
VALIDATE ZEROFILL_FUNC 2
|
|
END
|
|
|
|
BOOLEAN F_ENABLE_FATTURE
|
|
BEGIN
|
|
PROMPT 2 3 "Considera attivi tutti i documenti fattura e nota di credito"
|
|
END
|
|
|
|
BOOLEAN F_ADD_UTILIZZATO
|
|
BEGIN
|
|
PROMPT 2 4 "Aggiungi l'importo utilizzato insieme al protocollo nelle fatture"
|
|
END
|
|
|
|
BOOLEAN F_CF_ORIG
|
|
BEGIN
|
|
PROMPT 2 5 "Utilizza il cliente originale nelle fatture"
|
|
END
|
|
|
|
SPREADSHEET F_DOC_SHEET 45 -1
|
|
BEGIN
|
|
PROMPT 2 8 ""
|
|
ITEM "Tipo Documento"
|
|
ITEM "Da stato"
|
|
ITEM "A stato"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Riga tipo numerazione" -1 -1 78 8
|
|
|
|
STRING S_TIPODOC 4
|
|
BEGIN
|
|
PROMPT 2 1 "Tipo Documento "
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
INPUT CODTAB S_TIPODOC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_TIPODOC CODTAB
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING S_STATODOCDA 4
|
|
BEGIN
|
|
PROMPT 2 2 "Da Numerazione "
|
|
KEY 1
|
|
USE %STD
|
|
FLAGS "U"
|
|
INPUT CODTAB S_STATODOCA
|
|
DISPLAY "Stato" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_STATODOCDA CODTAB
|
|
END
|
|
|
|
STRING S_STATODOCA 4
|
|
BEGIN
|
|
PROMPT 2 3 "A Numerazione "
|
|
FIELD CODTAB
|
|
KEY 1
|
|
USE %STD
|
|
FLAGS "U"
|
|
INPUT CODTAB S_STATODOCA
|
|
DISPLAY "Stato" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_STATODOCA CODTAB
|
|
NUM_EXPR #S_STATODOCA>=#S_STATODOCDA
|
|
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
|