campo-sirio/m770/771200h.uml

#include "771200.h"

TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "1" -1 -1 78 21

TEXT DLG_NULL 
BEGIN
  PROMPT 1 1 "@bDipendente"
END

NUMBER QAF_CODDITTA 5
BEGIN     
  PROMPT 80 80 ""
  FLAGS "D"
  FIELD LF_QUAA3->CODDITTA
  KEY 1            
END

NUMBER F_CODIP 6
BEGIN
  PROMPT 17 1 ""
  FIELD LF_QUAA3->CODDIP
  MESSAGE COPY,F_CODIP2 
  FLAGS "DG"
  KEY 1       
  MESSAGE COPY,1@   
END

NUMBER F_CODIP2 5
BEGIN
  USE LF_DIPEND KEY 1  
  INPUT CODDITTA QAF_CODDITTA
  INPUT CODDIP F_CODIP
  DISPLAY "Cognome - Nome o Ragione sociale@50"    RAGSOC
  OUTPUT QAF_COGNOME COGNOME
  OUTPUT QAF_NOME NOME
  CHECKTYPE REQUIRED
  FLAGS "HG"
END  

STRING QAF_COGNOME 24
BEGIN
  PROMPT 25 1 ""
  FLAGS "DG"     
  MESSAGE COPY,2@
END

STRING QAF_NOME 20
BEGIN
  PROMPT 49 1 ""
  FLAGS "DG"     
  MESSAGE COPY,3@
END

NUMBER QAF_NPROG 1
BEGIN
  PROMPT 80 80 ""
  FLAGS "DG" 
  FIELD LF_QUAA3->NPROG
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 3 " 8 Data inizio rapporto a tempo indeterminato"
END

DATE F_DIRAPTI
BEGIN
  PROMPT STDIMP 3 ""
  FIELD LF_QUAA3->DIRAPTI
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 5 "@bDati dal 01/01/96 a fine periodo d'imposta"
END

TEXT DLG_NULL
BEGIN
	PROMPT 2 6 " 9 Numero giorni in incremento" 
END	

NUMBER F_NGINC15 3
BEGIN
  PROMPT STDIMP 6 ""
  FIELD LF_QUAA3->NGINC15
END          

TEXT DLG_NULL
BEGIN
	PROMPT 2 7 "10 Reddito corrisposto" 
END	

NUMBER F_REDCOR16 15
BEGIN
  PROMPT STDIMP 7 ""
  FIELD LF_QUAA3->REDCOR16
  PICTURE "."
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 10 "@bDati da inizio successivo periodo d'imposta fino al 31/12/96"
END

TEXT DLG_NULL
BEGIN
	PROMPT 2 11 "11 Numero giorni in incremento" 
END	

NUMBER F_NGINC17 3
BEGIN
  PROMPT STDIMP 11 ""
  FIELD LF_QUAA3->NGINC17
END

TEXT DLG_NULL
BEGIN
	PROMPT 2 12 "12 Reddito corrisposto" 
END	

NUMBER F_REDCOR18 15
BEGIN
  PROMPT STDIMP 12 ""
  FIELD LF_QUAA3->REDCOR18
  PICTURE "."
END

ENDPAGE

PAGE "2" -1 -1 78 21

TEXT DLG_NULL 
BEGIN
  PROMPT 1 1 "@bDipendente"
END

NUMBER F_CODDITTA_2 5
BEGIN     
  PROMPT 80 80 ""
  FLAGS "D"
  KEY 1 
END

NUMBER F_CODIP_2 6
BEGIN
  PROMPT 17 1 ""
  MESSAGE COPY,F_CODIP2 
  FLAGS "DG"
  KEY 1 
  GROUP 1 
END

NUMBER F_CODIP2_2 5
BEGIN
  USE LF_DIPEND KEY 1  
  INPUT CODDITTA QAF_CODDITTA
  INPUT CODDIP F_CODIP
  DISPLAY "Cognome - Nome o Ragione sociale@50"    RAGSOC
  OUTPUT QAF_COGNOME COGNOME
  OUTPUT QAF_NOME NOME
  CHECKTYPE REQUIRED
  FLAGS "HG"
END  

STRING F_COGNOME_2 24
BEGIN
  PROMPT 25 1 ""
  FLAGS "DG"
  GROUP 2      
END

STRING F_NOME_2 20
BEGIN
  PROMPT 49 1 ""
  FLAGS "DG" 
  GROUP 3
END

NUMBER F_NPROG_2 1
BEGIN
  PROMPT 80 80 ""
  FLAGS "DG" 
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 3 "@bSociet<65> trasformata"
END

STRING F_DENTRASF 40
BEGIN
  PROMPT 25 3 ""
  FLAGS "D"
END

STRING F_COGNTRASF 30
BEGIN
  PROMPT 25 3 "" 
  FLAGS "D"
END

STRING F_NOMETRASF 20
BEGIN
  PROMPT 56 3 ""
  FLAGS "D"
END 

TEXT DLG_NULL 
BEGIN
  PROMPT 2 5 " 8 Data inizio rapporto a tempo indeterminato"
END

DATE F_DIRAPTI_2
BEGIN
  PROMPT STDIMP 5 ""
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 7 "@bDati dal 01/01/96 a fine periodo d'imposta"
END

TEXT DLG_NULL
BEGIN
	PROMPT 2 8 " 9 Numero giorni in incremento" 
END	

NUMBER F_NGINC15_2 3
BEGIN
  PROMPT STDIMP 8 ""
END

TEXT DLG_NULL
BEGIN
	PROMPT 2 9 "10 Reddito corrisposto" 
END	

NUMBER F_REDCOR16_2 15
BEGIN
  PROMPT STDIMP 9 ""
  PICTURE "."
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 12 "@bDati da inizio successivo periodo d'imposta fino al 31/12/96"
END

TEXT DLG_NULL
BEGIN
	PROMPT 2 13 "11 Numero giorni in incremento" 
END	

NUMBER F_NGINC17_2 3
BEGIN
  PROMPT STDIMP 13 ""
END

TEXT DLG_NULL
BEGIN
	PROMPT 2 14 "12 Reddito corrisposto" 
END	

NUMBER F_REDCOR18_2 15
BEGIN
  PROMPT STDIMP 14 ""
  PICTURE "."
END

ENDPAGE

ENDMASK