167 lines
3.5 KiB
Plaintext
Executable File
167 lines
3.5 KiB
Plaintext
Executable File
#include "batb%del.h"
|
|
|
|
PAGE "" -1 -1 78 15
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 4 1 "Ditta "
|
|
FLAGS "FRZ"
|
|
FIELD %DEL->CODTAB[1,5]
|
|
USE LF_NDITTE KEY 1
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODDITTA F_CODDITTA
|
|
DISPLAY "Ditta" CODDITTA
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_CODDITTA CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
WARNING "Ragione sociale assente"
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 4 2 "Ragione sociale "
|
|
USE LF_NDITTE KEY 2
|
|
CHECKTYPE NORMAL
|
|
INPUT CODDITTA F_CODDITTA
|
|
DISPLAY "Ditta" CODDITTA
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_CODDITTA CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
WARNING "Ragione sociale assente"
|
|
KEY 1
|
|
END
|
|
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 4 3 "Anno "
|
|
HELP "Introdurre l'anno di versamento"
|
|
FIELD %DEL->CODTAB[6,9]
|
|
FLAGS "RA"
|
|
USE %DEL
|
|
JOIN LF_NDITTE TO %DEL INTO CODDITTA=CODTAB[1,5]
|
|
INPUT CODTAB[1,5] F_CODDITTA
|
|
INPUT CODTAB[6,9] F_ANNO
|
|
INPUT CODTAB[10,11] F_MESE
|
|
INPUT CODTAB[12,12] F_TIPO
|
|
DISPLAY "Ditta" CODTAB[1,5]
|
|
DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
|
|
DISPLAY "Anno" CODTAB[6,9]
|
|
DISPLAY "Mese" CODTAB[10,11]
|
|
DISPLAY "Tipo" CODTAB[12,12]
|
|
OUTPUT F_CODDITTA CODTAB[1,5]
|
|
OUTPUT F_ANNO CODTAB[6,9]
|
|
OUTPUT F_MESE CODTAB[10,11]
|
|
OUTPUT F_TIPO CODTAB[12,12]
|
|
KEY 1
|
|
END
|
|
|
|
LIST F_MESE
|
|
BEGIN
|
|
PROMPT 4 4 "Mese "
|
|
HELP "Introdurre il mese di versamento"
|
|
FIELD %DEL->CODTAB[10,11]
|
|
FLAGS "MA"
|
|
ITEM "13|Annuale"
|
|
MESSAGE "2",F_TIPO
|
|
COPY USE F_ANNO
|
|
INPUT CODTAB[1,5] F_CODDITTA
|
|
INPUT CODTAB[6,9] F_ANNO
|
|
INPUT CODTAB[10,11] F_MESE
|
|
INPUT CODTAB[12,12] F_TIPO
|
|
DISPLAY "Ditta" CODTAB[1,5]
|
|
DISPLAY "Anno" CODTAB[6,9]
|
|
DISPLAY "Mese" CODTAB[10,11]
|
|
DISPLAY "Tipo" CODTAB[12,12]
|
|
OUTPUT F_CODDITTA CODTAB[1,5]
|
|
OUTPUT F_ANNO CODTAB[6,9]
|
|
OUTPUT F_MESE CODTAB[10,11]
|
|
OUTPUT F_TIPO CODTAB[12,12]
|
|
VALIDATE MTCHECK_FUNC
|
|
KEY 1
|
|
END
|
|
|
|
LIST F_TIPO 20
|
|
BEGIN
|
|
PROMPT 4 5 "Tipo "
|
|
HELP "Introdurre il tipo di versamento"
|
|
FIELD %DEL->CODTAB[12,12]
|
|
ITEM "1|normale" MESSAGE ENABLE,F_MESE
|
|
ITEM "2|annuale" MESSAGE "13",F_MESE|DISABLE,F_MESE
|
|
ITEM "3|art. 74" MESSAGE ENABLE,F_MESE
|
|
ITEM "4|cessazione attivita'" MESSAGE ENABLE,F_MESE
|
|
ITEM "5|integrativa" MESSAGE ENABLE,F_MESE
|
|
ITEM "7|acconti IVA" MESSAGE ENABLE,F_MESE
|
|
KEY 1
|
|
END
|
|
|
|
DATE F_DATA
|
|
BEGIN
|
|
PROMPT 4 7 "Data "
|
|
HELP "Introdurre la data di versamento"
|
|
FIELD %DEL->D0
|
|
END
|
|
|
|
NUMBER F_BANCA1 5
|
|
BEGIN
|
|
PROMPT 4 8 "Codice ABI "
|
|
FIELD %DEL->S7
|
|
FLAGS "RZ"
|
|
USE %BAN
|
|
CHECKTYPE NORMAL
|
|
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]
|
|
WARNING "Banca assente"
|
|
END
|
|
|
|
NUMBER F_BANCA2 5
|
|
BEGIN
|
|
PROMPT 4 9 "Codice CAB "
|
|
FIELD %DEL->S8
|
|
FLAGS "RZ"
|
|
COPY USE F_BANCA1
|
|
CHECKTYPE NORMAL
|
|
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]
|
|
WARNING "Codice CAB assente"
|
|
END
|
|
|
|
NUMBER F_IMPORTO 15
|
|
BEGIN
|
|
PROMPT 4 10 "Importo "
|
|
HELP "Introdurre l'importo versato"
|
|
FIELD %DEL->R0
|
|
FLAGS "R"
|
|
END
|
|
|
|
BOOLEAN F_STAMPATO
|
|
BEGIN
|
|
PROMPT 4 11 "Stampato "
|
|
FIELD %DEL->B0
|
|
END
|
|
|
|
BUTTON DLG_OK
|
|
BEGIN
|
|
PROMPT 35 13 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL
|
|
BEGIN
|
|
PROMPT 46 13 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|