#include "cg5500a.h"

TOOLBAR "" 0 20 0 2

#include "cg5500t.h"

ENDPAGE

PAGE "Visualizzazione liquidazione"  -1 -1 77 20
		 
GROUPBOX F_YEAR 79 3
BEGIN
  PROMPT 0 0 "@bDitta corrente"
END                 

NUMBER F_CODDITTA 5
BEGIN         
	PROMPT 2 1  "Codice "
	FLAGS "FRD"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 37 50
BEGIN                       
	PROMPT 16 1 "Rag. soc. "
	FLAGS "D"
END                                                           


BROWSEFILE F_VISFLQ 78 11
BEGIN
	PROMPT 1 3 ""
END

/* gruppo 1: edit rimborso */

NUMBER F_RIMBORSO 15 0
BEGIN 
	PROMPT 3 16 "Rimborso infraannuale: "
	GROUP 1
    FLAGS "HR"
    PICTURE "."
END                         
                         
/* gruppo 2: edit rettifiche */

NUMBER F_RETTIFICA 15 0
BEGIN 
	PROMPT 2 15 "Importo rettif.  "
	GROUP 2
    FLAGS "HR" 
    PICTURE "."
END                         
            
LIST F_DEBCRE 7
BEGIN
	PROMPT 35 15 " a "  
	GROUP 2
	ITEM "D|Debito"
	ITEM "C|Credito"
	FLAGS "H"
END          
            
STRING F_DESCR1 60
BEGIN
	PROMPT 2 16 "Descrizione      " 
	GROUP 2
    FLAGS "H"
END

STRING F_DESCR2 60
BEGIN
	PROMPT 2 17 "                 " 
	GROUP 2
    FLAGS "H"
END

/* gruppo 3: edit acconto */

NUMBER F_ACCONTO 15 0
BEGIN 
	PROMPT 3 16 "Acconto versato:      "
	GROUP 3
    FLAGS "HR"
    PICTURE "."
END                         

/* gruppo 4: edit delega */

DATE F_DELDATE
BEGIN
	PROMPT 3 15 "Data       "
	GROUP 4
	FLAGS "H"
END

NUMBER F_DELIMP 15 0
BEGIN 
	PROMPT 26 15 "Importo versato "
	GROUP 4
	PICTURE "."
	FLAGS "HR"
END

NUMBER F_DELABI 5
BEGIN
  PROMPT 3 16 "Codice ABI "
  HELP "Codice ABI banca di appoggio"
  FIELD S7
  FLAGS "RZH" 
  GROUP 4
  USE %BAN
  INPUT CODTAB[1,5] F_DELABI
  INPUT CODTAB[6,10] F_DELCAB
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Descrizione @50" S0
  OUTPUT F_DELABI CODTAB[1,5]
  OUTPUT F_DELCAB CODTAB[6,10]
  CHECKTYPE NORMAL
END


NUMBER F_DELCAB 5
BEGIN
  PROMPT 26 16 "Codice CAB      "
  HELP "Codice CAB banca di appoggio"
  FIELD S8
  FLAGS "RZH"
  GROUP 4
  COPY ALL F_DELABI
  CHECKTYPE NORMAL
  WARNING "Banca assente"
END


NUMBER F_DELCON 3
BEGIN
  PROMPT 51 16 "Concessione "  
  HELP "Codice Concessione del Comune di residenza fiscale"
  FLAGS "RZH" 
  GROUP 4
END


GROUPBOX DLG_NULL 80 5
BEGIN
	PROMPT 1 14 ""
END
                         
ENDPAGE

ENDMASK