135 lines
2.4 KiB
Plaintext
135 lines
2.4 KiB
Plaintext
|
#include "li0200a.h"
|
||
|
|
|
||
|
|
TOOLBAR "topbar" 0 0 0 2
|
||
|
|
#include <stdbar.h>
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
PAGE "Impostazioni dichiarazioni d'intento" 0 2 0 0
|
||
|
|
|
||
|
|
STRING FLD_TABIVA_CODTAB 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 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
|
||
|
|
|
||
|
|
NUMBER F_CODICE_CLIFO_DA 6
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 2 "Da cod. cliente "
|
||
|
|
FLAG "UR"
|
||
|
|
USE LF_CLIFO
|
||
|
|
INPUT TIPOCF "C"
|
||
|
|
INPUT CODCF F_CODICE_CLIFO_DA
|
||
|
|
DISPLAY "Cliente" CODCF
|
||
|
|
DISPLAY "Ragione sociale@60" RAGSOC
|
||
|
|
OUTPUT F_CODICE_CLIFO_DA CODCF
|
||
|
|
GROUP 1
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_CODICE_CLIFO_A 6
|
||
|
|
BEGIN
|
||
|
|
PROMPT 32 2 "a "
|
||
|
|
FLAG "UR"
|
||
|
|
USE LF_CLIFO
|
||
|
|
INPUT TIPOCF "C"
|
||
|
|
INPUT CODCF F_CODICE_CLIFO_A
|
||
|
|
COPY DISPLAY F_CODICE_CLIFO_DA
|
||
|
|
OUTPUT F_CODICE_CLIFO_A CODCF
|
||
|
|
NUM_EXPR #F_CODICE_CLIFO_A>=#F_CODICE_CLIFO_DA
|
||
|
|
WARNING "Digitare un codice maggiore o uguale al campo 'da codice cliente'"
|
||
|
|
GROUP 1
|
||
|
|
END
|
||
|
|
|
||
|
|
SPREADSHEET DOCUMENTI_STATO 45 10
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 5 ""
|
||
|
|
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 "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
|