#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
