#include <batb%del.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            "
  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 REQUIRED
  WARNING "Ragione sociale assente"
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 4 2 "Ragione sociale  "
  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 "Ragione sociale 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 "Introdurre l'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 "Introdurre il 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 "Introdurre il 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 "Introdurre la data di versamento"
END

NUMBER F_BANCA1 5
BEGIN
  PROMPT 4 8 "Codice ABI       "
  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       "
  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 "Introdurre l'importo versato"
END

BOOLEAN F_STAMPATO
BEGIN
  PROMPT 4 12 "Stampato "
  FIELD B0
END

ENDPAGE

ENDMASK