ddad33ee19
ba883.cpp Aggiunto nome della maschera in apertura batbdel.uml Corretta ricerca ditta per ragione sociale git-svn-id: svn://10.65.10.50/trunk@1797 c028cbd2-c16b-5b4b-a496-9718f37d4682
169 lines
3.2 KiB
Plaintext
Executable File
169 lines
3.2 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 "RZ"
|
|
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 RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Ditta" CODDITTA
|
|
OUTPUT F_CODDITTA CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
WARNING "Ditta assente"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
LIST F_TIPO 20
|
|
BEGIN
|
|
PROMPT 4 3 "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
|
|
|
|
|
|
LIST F_MESE 10
|
|
BEGIN
|
|
PROMPT 4 4 "Mese "
|
|
FIELD CODTAB[10,11]
|
|
FLAGS "MA"
|
|
KEY 1
|
|
HELP "Mese di versamento"
|
|
ITEM "13|Annuale"
|
|
MESSAGE "2",F_TIPO
|
|
VALIDATE MTCHECK_FUNC
|
|
END
|
|
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 4 5 "Anno "
|
|
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_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"
|
|
// VALIDATE AUTOEXIT_FUNC 2 F_CODDITTA F_ANNO
|
|
GROUP GR_SEARCH
|
|
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 "DRZ"
|
|
END
|
|
|
|
NUMBER F_IMPORTO 15
|
|
BEGIN
|
|
PROMPT 4 10 "Importo "
|
|
FIELD R0
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
HELP "Importo versato"
|
|
NUM_CALC {ROUND(#THIS_FIELD, -3)}
|
|
END
|
|
|
|
BOOLEAN F_STAMPATO
|
|
BEGIN
|
|
PROMPT 4 12 "Stampato "
|
|
HELP "Indicare se si tratta di delega gia' stampata"
|
|
FIELD B0
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|