#include "cg5500a.h"

TOOLBAR "" 0 20 0 2

#include "cg5500t.h"

ENDPAGE

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

//GROUPBOX DLG_NULL 78 5
//BEGIN
//  PROMPT 1 15 ""
//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 50
BEGIN                       
  PROMPT 16 1 "Rag. soc. "
  FLAGS "D"
END                                                           


BROWSEFILE F_VISFLQ 76 11
BEGIN
  PROMPT 1 3 ""
END

/* gruppo 1: edit rimborso */

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

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

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

/* gruppo 3: edit acconto */

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

/* gruppo 4: edit delega */

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

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

NUMBER F_DELABI 5
BEGIN
  PROMPT 3 18 "Codice ABI "
  HELP "Codice ABI banca di appoggio"
  FIELD S7
  FLAGS "RZH" 
  GROUP 4
  USE %BAN KEY 1 SELECT CODTAB ?= "?????"
  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
  MESSAGE EMPTY RESET,F_DELCAB
END


NUMBER F_DELCAB 5
BEGIN
  PROMPT 26 18 "Codice CAB      "
  HELP "Codice CAB banca di appoggio"
  FIELD S8
  FLAGS "RZH"
  GROUP 4
  USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
  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 "Denominazione@50" S0
  OUTPUT F_DELABI CODTAB[1,5]
  OUTPUT F_DELCAB CODTAB[6,10]
  VALIDATE REQIF_FUNC 1 F_DELABI
  //COPY ALL F_DELABI
  CHECKTYPE NORMAL
  WARNING "Banca assente"
END


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


ENDPAGE

ENDMASK
