14425f7b0e
Corretto errore n. MI1079 git-svn-id: svn://10.65.10.50/trunk@657 c028cbd2-c16b-5b4b-a496-9718f37d4682
154 lines
2.9 KiB
Plaintext
Executable File
154 lines
2.9 KiB
Plaintext
Executable File
#include "batbdel.h"
|
||
|
||
TOOLBAR "" 0 20 0 2
|
||
|
||
#include <toolbar.h>
|
||
|
||
ENDPAGE
|
||
|
||
PAGE "Tabella deleghe IVA" -1 -1 78 15
|
||
|
||
NUMBER F_CODDITTA 5
|
||
BEGIN
|
||
PROMPT 4 1 "Ditta "
|
||
HELP "Codice ditta a cui si riferisce la delega"
|
||
FIELD CODTAB[1,5]
|
||
FLAGS "FR"
|
||
KEY 1
|
||
USE LF_NDITTE KEY 1
|
||
INPUT CODDITTA F_CODDITTA
|
||
DISPLAY "Ditta" CODDITTA
|
||
DISPLAY "Ragione sociale@50" RAGSOC
|
||
OUTPUT F_CODDITTA CODDITTA
|
||
OUTPUT F_RAGSOC RAGSOC
|
||
CHECKTYPE FORCED
|
||
WARNING "Ditta assente"
|
||
END
|
||
|
||
STRING F_RAGSOC 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 CODDITTA F_CODDITTA
|
||
DISPLAY "Ditta" CODDITTA
|
||
DISPLAY "Ragione sociale@50" RAGSOC
|
||
OUTPUT F_CODDITTA CODDITTA
|
||
OUTPUT F_RAGSOC RAGSOC
|
||
WARNING "Ditta assente"
|
||
END
|
||
|
||
NUMBER F_ANNO 4
|
||
BEGIN
|
||
PROMPT 4 3 "Anno "
|
||
FIELD CODTAB[6,9]
|
||
CHECKTYPE REQUIRED
|
||
FLAGS "RA"
|
||
KEY 1
|
||
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]
|
||
HELP "Anno di versamento"
|
||
END
|
||
|
||
LIST F_MESE 10
|
||
BEGIN
|
||
PROMPT 4 4 "Mese "
|
||
FIELD CODTAB[10,11]
|
||
FLAGS "MA"
|
||
KEY 1
|
||
COPY ALL F_ANNO
|
||
HELP "Mese di versamento"
|
||
ITEM "13|Annuale"
|
||
MESSAGE "2",F_TIPO
|
||
VALIDATE MTCHECK_FUNC
|
||
END
|
||
|
||
LIST F_TIPO 20
|
||
BEGIN
|
||
PROMPT 4 5 "Tipo "
|
||
FIELD CODTAB[12,12]
|
||
KEY 1
|
||
HELP "Tipo di versamento"
|
||
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 "12",F_MESE|DISABLE,F_MESE
|
||
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 4 9 "Codice CAB "
|
||
HELP "Codice CAB banca di appoggio"
|
||
FIELD S8
|
||
FLAGS "RZ"
|
||
COPY ALL F_BANCA1
|
||
CHECKTYPE NORMAL
|
||
WARNING "Banca assente"
|
||
END
|
||
|
||
NUMBER F_IMPORTO 15
|
||
BEGIN
|
||
PROMPT 4 10 "Importo "
|
||
FIELD R0
|
||
FLAGS "R"
|
||
HELP "Importo versato"
|
||
END
|
||
|
||
BOOLEAN F_STAMPATO
|
||
BEGIN
|
||
PROMPT 4 12 "Stampato "
|
||
HELP "Indicare se si tratta di delega gi<67> stampata"
|
||
FIELD B0
|
||
END
|
||
|
||
ENDPAGE
|
||
|
||
ENDMASK
|