campo-sirio/m770/77qbb.uml

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

PAGE "MODULO 770 - QUADRO B" -1 -1 78 18

NUMBER QBF_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "H"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA QBF_CODDITTA
  FIELD LF_QUAB->CODDITTA
  CHECKTYPE REQUIRED             
  KEY 1
END

TEXT DLG_NULL 
BEGIN
  PROMPT 1 1 "@bDipendente"
END

NUMBER QBF_CODDIP 6
BEGIN   
  PROMPT 17 1 ""
  USE LF_DIPEND KEY 1
  FIELD LF_QUAB->CODDIP
  INPUT CODDITTA 	QBF_CODDITTA 
  INPUT CODDIP 		QBF_CODDIP
  DISPLAY "Cognome@24" 	COGNOME
  DISPLAY "Nome@20" 	NOME
  OUTPUT QBF_COGNOME 	COGNOME
  OUTPUT QBF_NOME 		NOME
  CHECKTYPE REQUIRED
  FLAGS "DG"  
  KEY 1
END  

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

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

NUMBER QBF_NPROG 4
BEGIN
  PROMPT 72 1 ""
  FIELD LF_QUAB->NPROG
  FLAGS "DG"
  KEY 1          
END

GROUPBOX DLG_NULL 25 4
BEGIN
  PROMPT 0 4 "Rapporto di lavoro "
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 5 "11 Inizio"
END

DATE QBF_DATAINI
BEGIN
  PROMPT 1 6 ""
  FIELD LF_QUAB->DATAINI
  GROUP GROUP_ALL
END

TEXT DLG_NULL
BEGIN
  PROMPT 13 5 "12 Cessaz."
END

DATE QBF_DATAFIN
BEGIN
  PROMPT 13 6 ""
  FIELD LF_QUAB->DATAFIN
  GROUP GROUP_ALL
END

#define	COLCOMM	27
#define	COLCOMM1	28
#define	COLCOMM6	34

TEXT DLG_NULL 
BEGIN
  PROMPT COLCOMM 3 "13 Periodo "
END

GROUPBOX DLG_NULL 14 4
BEGIN
  PROMPT COLCOMM 4 "commisurazione "
END

TEXT DLG_NULL
BEGIN
  PROMPT COLCOMM1 5 "Anni"
END

NUMBER QBF_ANNICOMM 2
BEGIN         
  PROMPT COLCOMM1 6 ""  
  FIELD LF_QUAB->ANNICOMM
  GROUP GROUP_ALL
END

TEXT DLG_NULL
BEGIN
  PROMPT COLCOMM6 5 "Mesi"
END

NUMBER QBF_MESICOMM 2
BEGIN                    
  PROMPT COLCOMM6 6 ""
  FIELD LF_QUAB->MESICOMM
  GROUP GROUP_ALL
END

#define	COLCONV	43
#define	COLCONV1	44
#define	COLCONV6	51

TEXT DLG_NULL 
BEGIN
  PROMPT COLCONV 3 "14 Periodo "
END

GROUPBOX DLG_NULL 14 4
BEGIN
  PROMPT COLCONV 4 "convenzionale "
END

TEXT DLG_NULL
BEGIN
  PROMPT COLCONV1 5 "Anni"
END

NUMBER QBF_ANNICONV 2
BEGIN         
  PROMPT COLCONV1 6 ""  
  FIELD LF_QUAB->ANNICONV
  GROUP GROUP_ALL
END

TEXT DLG_NULL
BEGIN
  PROMPT COLCONV6 5 "Mesi"
END

NUMBER QBF_MESICONV 2
BEGIN                    
  PROMPT COLCONV6 6 ""
  FIELD LF_QUAB->MESICONV
  GROUP GROUP_ALL
END

#define	COLPAR0	58
#define	COLPAR1	59
#define	COLPAR2	64
#define	COLPAR3	69

GROUPBOX DLG_NULL 20 4
BEGIN
  PROMPT COLPAR0 4 "15 Tempo parziale"
END

TEXT DLG_NULL
BEGIN
  PROMPT COLPAR1 5 "Anni"
END

NUMBER QBF_ANNIPARZ 2
BEGIN                    
  PROMPT COLPAR1 6 ""
  FIELD LF_QUAB->ANNIPARZ
  GROUP GROUP_ALL
END

TEXT DLG_NULL
BEGIN
  PROMPT COLPAR2 5 "Mesi"
END

NUMBER QBF_MESIPARZ 2
BEGIN                    
  PROMPT COLPAR2 6 ""
  FIELD LF_QUAB->MESIPARZ
  GROUP GROUP_ALL
END

TEXT DLG_NULL
BEGIN
  PROMPT COLPAR3 5 "  %"
END

NUMBER QBF_PERCPARZ 6
BEGIN                    
  PROMPT COLPAR3 6 ""
  FIELD LF_QUAB->PERCPARZ
  PICTURE ".2"
  GROUP GROUP_ALL
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 8 "16 Quota eccedente"
END

NUMBER QBF_QUOTAECC 15
BEGIN
  PROMPT 1 9 ""
  FIELD LF_QUAB->QUOTAECC
  FLAGS "R"
  PICTURE "."
  GROUP GROUP_ALL
END

#define	COLTFR0 25
#define	COLTFR1 26
#define	COLTFR2 35 //27
#define	COLTFR3 49 //33
#define COLTFR4	59 //40      

#define RIGTFR1	9
#define	RIGTFR2	10

GROUPBOX DLG_NULL 53 4
BEGIN
  PROMPT COLTFR0 8 "TFR o ind.equip. corrisposti nel 1995  "
END

TEXT DLG_NULL
BEGIN
  PROMPT COLTFR1 RIGTFR1 "17 Mese"
END

NUMBER QBF_MESEEROG 2
BEGIN
  PROMPT 28 RIGTFR2 ""   
  NUM_EXPR {(#THIS>=0) && (#THIS<13)}
  WARNING "Mese non valido"       
  FIELD LF_QUAB->MESEEROG
  GROUP GROUP_ALL
END

TEXT DLG_NULL
BEGIN
  PROMPT COLTFR2 RIGTFR1 "18 Titolo"
END

STRING QBF_TITEROG 1 
BEGIN
  PROMPT 39 RIGTFR2 ""
  SHEET "Codice|Descrizione@15"
  INPUT QBF_TITEROG     
  ITEM "|"  
  ITEM "A|Anticipazione"
  ITEM "B|Saldo"
  ITEM "C|Acconto"
  OUTPUT QBF_TITEROG
  FIELD LF_QUAB->TITEROG
  FLAGS "U"
  GROUP GROUP_ALL
END

TEXT DLG_NULL
BEGIN
  PROMPT COLTFR3 RIGTFR1 "19 % abb."
END

NUMBER QBF_PERCABB 6
BEGIN                    
  PROMPT COLTFR3 RIGTFR2 ""
  FIELD LF_QUAB->PERCABB
  PICTURE ".2"   
  GROUP GROUP_ALL  
END

TEXT DLG_NULL
BEGIN
  PROMPT COLTFR4 RIGTFR1 "20 Ammontare netto"
END

NUMBER QBF_AMMNETTO 15
BEGIN
  PROMPT COLTFR4 RIGTFR2 ""
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->AMMNETTO
  GROUP GROUP_ALL
END

#define	COLTFRB0 2
#define	COLTFRB1 2
#define	COLTFRB2 7
#define	COLTFRB3 14
#define COLTFRB4	31

#define RIGTFRB0	14
#define RIGTFRB1	15
#define	RIGTFRB2	16

GROUPBOX DLG_NULL 48 6
BEGIN
  PROMPT 1 13 "Altre indennit<69> corrisposte nel 1995"
END

TEXT DLG_NULL
BEGIN
  PROMPT COLTFRB1 RIGTFRB0 "21"
END

TEXT DLG_NULL
BEGIN
  PROMPT COLTFRB1 RIGTFRB1 "Mese"
END


NUMBER QBF_MESEEROG2 2
BEGIN
  PROMPT COLTFRB1 RIGTFRB2 ""
  FIELD LF_QUAB->MESEEROG2
  NUM_EXPR {(#THIS>=0) && (#THIS<13)}
  WARNING "Mese non valido"       
  GROUP GROUP_ALL
END

TEXT DLG_NULL
BEGIN
  PROMPT COLTFRB2 RIGTFRB0 "22"
END

TEXT DLG_NULL
BEGIN
  PROMPT COLTFRB2 RIGTFRB1 "Titolo"
END

STRING QBF_TITEROG2 1
BEGIN
  PROMPT /*COLTFR2*/ 8 RIGTFRB2 ""
  SHEET "Codice|Descrizione@15"
  INPUT QBF_TITEROG2
  ITEM "|"
  ITEM "A|Anticipazione"
  ITEM "B|Saldo"
  ITEM "C|Acconto"
  OUTPUT QBF_TITEROG2
  FIELD LF_QUAB->TITEROG2
  FLAGS "U"
  GROUP GROUP_ALL  
END

TEXT DLG_NULL
BEGIN
  PROMPT COLTFRB3 RIGTFRB0 "23"
END

TEXT DLG_NULL
BEGIN
  PROMPT COLTFRB3 RIGTFRB1 "Abbattimento"
END

NUMBER QBF_PERCABB2 15
BEGIN                    
  PROMPT COLTFRB3 RIGTFRB2 ""
  FIELD LF_QUAB->ABBATT
  PICTURE "."
  GROUP GROUP_ALL  
END

TEXT DLG_NULL
BEGIN
  PROMPT COLTFRB4 RIGTFRB0 "24"
END

TEXT DLG_NULL
BEGIN
  PROMPT COLTFRB4 RIGTFRB1 "Ammontare netto"
END

NUMBER QBF_AMMNETTO2 15
BEGIN
  PROMPT COLTFRB4 RIGTFRB2 ""
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->AMMNETTO2
  GROUP GROUP_ALL  
END

TEXT DLG_NULL
BEGIN
  PROMPT 57 RIGTFRB1 "25 Cont.obblig.lav."
END                               

NUMBER QBF_CONTLAV 15
BEGIN
  PROMPT 59 RIGTFRB2 ""
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->CONTLAV
  GROUP GROUP_ALL  
END        

ENDPAGE

PAGE "MODULO 770 - QUADRO B" -1 -1 78 18

#define	C1	2
#define	C2	22
#define	C3  57

GROUPBOX DLG_NULL 41 4
BEGIN
  PROMPT 1 1 "Acconti e anticipazioni erogati dal 74 al 94"
END

TEXT DLG_NULL 
BEGIN
  PROMPT C1 2 "26 TFR ind.equi."
END

NUMBER QBF_TFR7494 15
BEGIN
  PROMPT C1 3 ""
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->TFR7494
  GROUP GROUP_ALL  
END

TEXT DLG_NULL 
BEGIN
  PROMPT C2 2 "27 Altre inden."
END

NUMBER QBF_INDEN7494 15
BEGIN
  PROMPT C2 3 ""
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->INDEN7494
  GROUP GROUP_ALL  
END

TEXT DLG_NULL 
BEGIN
  PROMPT C3 2 "28 Tot.indennit<69>"
END

NUMBER QBF_TIND7494 15 
BEGIN
  PROMPT C3 3 ""
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->TIND7494
  GROUP GROUP_ALL  
END

TEXT DLG_NULL 
BEGIN
  PROMPT C1 5 "29 Tot.riduzioni"
END

NUMBER QBF_TRID 15 
BEGIN
  PROMPT C1 6 ""
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->TRID
  GROUP GROUP_ALL  
END

TEXT DLG_NULL 
BEGIN
  PROMPT 30 5 "30 TFR o inden. equipollenti"
END

NUMBER QBF_TFRIND 15 
BEGIN
  PROMPT 30 6 "per reddito di riferimento "
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->TFRIND
  GROUP GROUP_ALL  
END

TEXT DLG_NULL
BEGIN
  PROMPT C1 7 "31 Aliq."
END

NUMBER QBF_ALIQUOTA 6
BEGIN                    
  PROMPT C1 8 ""
  FIELD LF_QUAB->ALIQUOTA
  PICTURE ".2"   
  GROUP GROUP_ALL  
END

#define	GD0	24 //11
#define	GD1	25 //12
#define GD2	64 //51

GROUPBOX DLG_NULL 49 4
BEGIN
  PROMPT GD0 7 "Art.4 3<> comma L.482/1985"
END

TEXT DLG_NULL
BEGIN
  PROMPT GD1 8 "32 Retrib. media  "
END

NUMBER QBF_RETRMEDIA 15
BEGIN
  PROMPT GD1 9 "biennio precedente "
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->RETRMEDIA
  GROUP GROUP_ALL  
END

TEXT DLG_NULL
BEGIN
  PROMPT GD2 8 "33 Aliq."
END

NUMBER QBF_ALIQUOTA2 6
BEGIN                    
  PROMPT GD2 9 ""
  FIELD LF_QUAB->ALIQUOTA2
  PICTURE ".2"   
  GROUP GROUP_ALL  
END

// QUARTA RIGA
TEXT DLG_NULL
BEGIN
  PROMPT 1 11 "34 Impon. TFR "
END

NUMBER QBF_IMPTFR 15
BEGIN
  PROMPT 1 12 ""
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->IMPTFR
  GROUP GROUP_ALL  
END

TEXT DLG_NULL
BEGIN
  PROMPT 19 11 "35 Imp.altre ind."
END

NUMBER QBF_IMPIND 15
BEGIN
  PROMPT 19 12 ""
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->IMPIND
  GROUP GROUP_ALL  
END

TEXT DLG_NULL
BEGIN
  PROMPT 37 11 "36 Impon. anno "
END

NUMBER QBF_IMPANNO 15
BEGIN
  PROMPT 37 12 ""
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->IMPANNO
  GROUP GROUP_ALL  
END

TEXT DLG_NULL
BEGIN
  PROMPT 54 11 "37 Totale reddito impon. "
END

NUMBER QBF_TOTIMP 15
BEGIN
  PROMPT 57 12 ""
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->TOTIMP
  GROUP GROUP_ALL  
END

// QUINTA RIGA
TEXT DLG_NULL
BEGIN
  PROMPT 1 13 "38 Rit. operate su acc.ant. erogati "
END

NUMBER QBF_ROPEACC 15
BEGIN
  PROMPT 1 14 "dal 74 al 93      "
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->ROPEACC 
  GROUP GROUP_ALL  
END

TEXT DLG_NULL
BEGIN
  PROMPT 37 13 "39 Impos. dov."
END

NUMBER QBF_IMPDOV 15
BEGIN
  PROMPT 37 14 ""
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->IMPDOV
  GROUP GROUP_ALL  
END

TEXT DLG_NULL
BEGIN
  PROMPT 57 13 "40 Ritenute in ecced."
END

NUMBER QBF_RITECC 15
BEGIN
  PROMPT 57 14 ""
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->RITECC
  GROUP GROUP_ALL  
END

// SESTA RIGA
GROUPBOX DLG_NULL 38 4
BEGIN
  PROMPT 1 15 "Art.2122 COD. CIV."
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 16 "41 Quota spett."
END

NUMBER QBF_QUOTASPET 15
BEGIN
  PROMPT 2 17 ""
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->QUOTASPET
  GROUP GROUP_DIPDEC GROUP_EREDE
END

TEXT DLG_NULL 
BEGIN
  PROMPT 19 16 "42 Indennit<69> spett."
END

NUMBER QBF_INDSPETT 15
BEGIN
  PROMPT 19 17 ""
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->INDSPETT
  GROUP GROUP_DIPDEC GROUP_EREDE  
END

TEXT DLG_NULL
BEGIN
  PROMPT 40 16 "43 Rit. operate "
END

NUMBER QBF_ROPE 15
BEGIN
  PROMPT 40 17 ""
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->ROPE           
  GROUP GROUP_EREDE  
END

TEXT DLG_NULL
BEGIN
  PROMPT 57 16 "44 Impon. CSSN "
END

NUMBER QBF_IMPOCSSN 15
BEGIN
  PROMPT 57 17 ""
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAB->IMPOCSSN
  GROUP GROUP_ALL  
END

ENDPAGE

ENDMASK