// Quadro B-1
#include "77qb1.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE

PAGE "1" -1 -1 78 18

NUMBER QB1F_CODDITTA 5
BEGIN
  PROMPT 80 80 ""
  FLAGS "D"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA QB1F_CODDITTA
  FIELD LF_QUAB1->CODDITTA
  CHECKTYPE REQUIRED             
  KEY 1
END

TEXT DLG_NULL 
BEGIN
  PROMPT 1 1 "@bDipendente"
END

NUMBER QB1F_CODDIP 5
BEGIN   
  PROMPT 17 1 ""
  USE LF_DIPEND KEY 1
  FIELD LF_QUAB1->CODDIP
  INPUT CODDITTA 	QB1F_CODDITTA 
  INPUT CODDIP 		QB1F_CODDIP
  DISPLAY "Cognome@24" 	COGNOME
  DISPLAY "Nome@20" 	NOME
  OUTPUT QB1F_COGNOME 	COGNOME
  OUTPUT QB1F_NOME 		NOME
  CHECKTYPE REQUIRED
  FLAGS "DG"  
  KEY 1
END  

STRING QB1F_COGNOME 24
BEGIN
  PROMPT 25 1 ""
  FLAGS "DG"      
END

STRING QB1F_NOME 20
BEGIN
  PROMPT 49 1 ""
  FLAGS "DG"      
END

NUMBER QB1F_NPROG 4
BEGIN
  PROMPT 72 1 ""
  FIELD LF_QUAB1->NPROG
  FLAGS "DG"
  KEY 1          
END

NUMBER QB1F_INDEN 15
BEGIN
  PROMPT 1 6 "11 Ammontare indennita' di anzianita' di previdenza    "
  PICTURE "."                                                        
  FLAGS "R"
  FIELD LF_QUAB1->INDEN
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 7 "@bImposta di ricchezza mobile  "
END

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 1 7 ""
END

#define	COL1	3
#define	COL2	33
#define	COL3	60

TEXT DLG_NULL
BEGIN
  PROMPT COL1 8 "12 Ammontare impon. "
END

NUMBER QB1F_AMMIMP 15
BEGIN
  PROMPT COL1 9 ""    
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB1->AMMIMP
END

TEXT DLG_NULL
BEGIN
  PROMPT COL2 8 "13 Imponibile 4%"
END

NUMBER QB1F_IMP4 15
BEGIN
  PROMPT COL2 9 ""  
  FIELD LF_QUAB1->IMP4
  PICTURE "."  
  FLAGS "R"         
END

TEXT DLG_NULL
BEGIN
  PROMPT COL3 8 "14 Imponibile 8% "
END

NUMBER QB1F_IMP8 15
BEGIN
  PROMPT COL3 9 ""
  FIELD LF_QUAB1->IMP8
  PICTURE "."  
  FLAGS "R"         
END

TEXT DLG_NULL
BEGIN
  PROMPT COL1 10 "15 Imponibile 10% "
END

NUMBER QB1F_IMP10 15
BEGIN
  PROMPT COL1 11 ""
  FIELD LF_QUAB1->IMP10
  PICTURE "."  
  FLAGS "R" 
END                                          

TEXT DLG_NULL
BEGIN
  PROMPT COL2 10 "16 Imponibile 12% "
END

NUMBER QB1F_IMP12 15
BEGIN
  PROMPT COL2 11 ""
  FIELD LF_QUAB1->IMP12
  PICTURE "."  
  FLAGS "R" 
END                                          

TEXT DLG_NULL
BEGIN
  PROMPT COL3 10 "17 Imponibile 15% "
END

NUMBER QB1F_IMP15 15
BEGIN
  PROMPT COL3 11 ""
  FIELD LF_QUAB1->IMP15
  PICTURE "."  
  FLAGS "R" 
END                                          

NUMBER QB1F_IMPNETTO 15
BEGIN
  PROMPT COL1 12 "18 Amm. impon. (al netto delle rit.di ricchezza mobile)  "
  FIELD LF_QUAB1->IMPNETTO
  PICTURE "."  
  FLAGS "R" 
END

#define	RIGA1	14
#define	RIGA2	15
#define	RIGA3	16

TEXT DLG_NULL
BEGIN
  PROMPT 1 RIGA1 "@bImposta complementare  "
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 RIGA1 ""
END

TEXT DLG_NULL
BEGIN
  PROMPT COL1 RIGA2 "19 Imponibile 1,5%"
END

NUMBER QB1F_IMPO15 15
BEGIN
  PROMPT COL1 RIGA3 ""    
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB1->IMPO15
END

TEXT DLG_NULL
BEGIN
  PROMPT COL2 RIGA2 "20 Imponibile 4%"
END

NUMBER QB1F_IMPO4 15
BEGIN
  PROMPT COL2 RIGA3 ""  
  FIELD LF_QUAB1->IMPO4
  PICTURE "."  
  FLAGS "R"         
END

ENDPAGE

ENDMASK