183 lines
3.6 KiB
Plaintext
Executable File
183 lines
3.6 KiB
Plaintext
Executable File
#include "batbdel.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
#include <toolbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Versamenti" -1 -1 78 15
|
|
|
|
NUMBER F_DITTA 5
|
|
BEGIN
|
|
PROMPT 4 1 "Ditta "
|
|
HELP "Codice ditta a cui si riferisce la delega"
|
|
FIELD CODTAB[1,5]
|
|
FLAGS "RZ"
|
|
KEY 1
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA F_DITTA
|
|
DISPLAY "Ditta" CODDITTA
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_DITTA CODDITTA
|
|
OUTPUT F_RSOC RAGSOC
|
|
CHECKTYPE FORCED
|
|
WARNING "Ditta assente"
|
|
END
|
|
|
|
STRING F_RSOC 50
|
|
BEGIN
|
|
PROMPT 4 2 "Ragione sociale "
|
|
HELP "Ragione sociale ditta a cui si riferisce la delega"
|
|
KEY 1
|
|
USE LF_NDITTE KEY 2
|
|
INPUT RAGSOC F_RSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Ditta" CODDITTA
|
|
OUTPUT F_DITTA CODDITTA
|
|
OUTPUT F_RSOC RAGSOC
|
|
CHECKTYPE NORMAL
|
|
WARNING "Ditta assente"
|
|
END
|
|
|
|
NUMBER F_ANNODEL 4
|
|
BEGIN
|
|
PROMPT 4 3 "Anno versamento "
|
|
FIELD CODTAB[6,9]
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "RZ"
|
|
KEY 1
|
|
USE %DEL
|
|
JOIN LF_NDITTE TO %DEL INTO CODDITTA=CODTAB[1,5]
|
|
INPUT CODTAB[1,5] F_DITTA
|
|
INPUT CODTAB[6,9] F_ANNODEL
|
|
INPUT CODTAB[10,11] F_MESEDEL
|
|
INPUT CODTAB[12,12] F_TIPODEL
|
|
DISPLAY "Anno" CODTAB[6,9]
|
|
DISPLAY "Mese" CODTAB[10,11]
|
|
DISPLAY "Ditta" CODTAB[1,5]
|
|
DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
|
|
DISPLAY "Tipo" CODTAB[12,12]
|
|
OUTPUT F_DITTA CODTAB[1,5]
|
|
OUTPUT F_ANNODEL CODTAB[6,9]
|
|
OUTPUT F_MESEDEL CODTAB[10,11]
|
|
OUTPUT F_TIPODEL CODTAB[12,12]
|
|
HELP "Anno di versamento"
|
|
// VALIDATE AUTOEXIT_FUNC 2 F_CODDITTA F_ANNO
|
|
// GROUP GR_SEARCH
|
|
END
|
|
|
|
LIST F_TIPODEL 20
|
|
BEGIN
|
|
PROMPT 4 4 "Tipo versamento "
|
|
FIELD CODTAB[12,12]
|
|
KEY 1
|
|
HELP "Tipo di versamento"
|
|
ITEM "1|normale"
|
|
MESSAGE ENABLE,F_MESEDEL
|
|
ITEM "2|annuale"
|
|
MESSAGE "13",F_MESEDEL|DISABLE,F_MESEDEL
|
|
ITEM "3|art. 74"
|
|
MESSAGE ENABLE,F_MESEDEL
|
|
ITEM "4|cessazione attivita'"
|
|
MESSAGE ENABLE,F_MESEDEL
|
|
ITEM "5|integrativa"
|
|
MESSAGE ENABLE,F_MESEDEL
|
|
ITEM "7|acconti IVA"
|
|
MESSAGE "12",F_MESEDEL|DISABLE,F_MESEDEL
|
|
END
|
|
|
|
LIST F_MESEDEL 10
|
|
BEGIN
|
|
PROMPT 4 5 "Mese versamento "
|
|
HELP "Mese di versamento"
|
|
FIELD CODTAB[10,11]
|
|
FLAGS "MG"
|
|
KEY 1
|
|
ITEM "13|Annuale"
|
|
MESSAGE "2",F_TIPODEL
|
|
// VALIDATE MTCHECK_FUNC
|
|
// WARNING "Ditta trimestrale: indicare trimestre"
|
|
END
|
|
|
|
DATE F_DATA
|
|
BEGIN
|
|
PROMPT 4 7 "Data "
|
|
FIELD D0
|
|
HELP "Data di versamento"
|
|
END
|
|
|
|
NUMBER F_BANCA1 5
|
|
BEGIN
|
|
PROMPT 4 8 "Codice ABI "
|
|
HELP "Codice ABI banca di appoggio"
|
|
FIELD S7
|
|
FLAGS "RZ"
|
|
USE %BAN
|
|
INPUT CODTAB[1,5] F_BANCA1
|
|
INPUT CODTAB[6,10] F_BANCA2
|
|
DISPLAY "Codice ABI" CODTAB[1,5]
|
|
DISPLAY "Codice CAB" CODTAB[6,10]
|
|
DISPLAY "Descrizione @50" S0
|
|
OUTPUT F_BANCA1 CODTAB[1,5]
|
|
OUTPUT F_BANCA2 CODTAB[6,10]
|
|
CHECKTYPE NORMAL
|
|
WARNING "Banca assente"
|
|
END
|
|
|
|
NUMBER F_BANCA2 5
|
|
BEGIN
|
|
PROMPT 40 8 "Codice CAB "
|
|
HELP "Codice CAB banca di appoggio"
|
|
FIELD S8
|
|
FLAGS "RZ"
|
|
COPY ALL F_BANCA1
|
|
CHECKTYPE NORMAL
|
|
WARNING "Banca assente"
|
|
END
|
|
|
|
NUMBER F_CONCESSIONE 3
|
|
BEGIN
|
|
PROMPT 4 9 "Concessione "
|
|
HELP "Codice concessione del comune di residenza fiscale"
|
|
FIELD S9
|
|
FLAGS "RZ"
|
|
USE %UCC
|
|
INPUT CODTAB F_CONCESSIONE
|
|
DISPLAY "Concessione " CODTAB[1,5]
|
|
DISPLAY "Descrizione @50" S0
|
|
OUTPUT F_CONCESSIONE CODTAB
|
|
CHECKTYPE NORMAL
|
|
WARNING "Concessione assente"
|
|
END
|
|
|
|
NUMBER F_IMPORTO 15
|
|
BEGIN
|
|
PROMPT 4 10 "Importo versato "
|
|
FIELD R0
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
HELP "Importo versato"
|
|
NUM_CALC {ROUND(#THIS_FIELD, -3)}
|
|
END
|
|
|
|
NUMBER F_INTERESSI 15
|
|
BEGIN
|
|
PROMPT 4 11 "Di cui interessi "
|
|
FIELD R1
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
HELP "Interessi da pagare"
|
|
END
|
|
|
|
BOOLEAN F_STAMPATO
|
|
BEGIN
|
|
PROMPT 4 13 "Stampato "
|
|
HELP "Indicare se si tratta di versamento gia' stampato"
|
|
FIELD B0
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|