campo-sirio/m770/771200h.uml

#include "771200.h"
TOOLBAR "" 0 19 0 3
#include <toolbar.h>
ENDPAGE

PAGE "Quadro A3" -1 -1 78 18

TEXT DLG_NULL 
BEGIN
  PROMPT 1 1 "@bDipendente"
END

NUMBER QAF_CODDITTA 5
BEGIN
  FLAGS "HG"
  FIELD LF_QUAA3->CODDITTA
  KEY 1            
END

NUMBER F_CODIP 5
BEGIN
  PROMPT 17 1 ""
  FIELD LF_QUAA3->CODIP
  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 CODIP 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

DATE F_DIRAPTI
BEGIN
  PROMPT 1 4 "8 Data inizio rapporto a tempo indeterminato "
  FIELD LF_QUAA3->DIRAPTI
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 6 "@bDATI DAL 1/1/95 A FINE PERIODO D'IMPOSTA"
END

NUMBER F_NGINC15 3
BEGIN
  PROMPT 1 7 "9 Num. giorni in incremento "
  FIELD LF_QUAA3->NGINC15
END

NUMBER F_REDCOR16 15
BEGIN
  PROMPT 1 8 "10 Reddito corrisposto      "
  FIELD LF_QUAA3->REDCOR16
  PICTURE "."
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 10 "@bDATI DA INIZIO SUCCESSIVO PERIODO D'IMPOSTA FINO AL 31/12/95"
END

NUMBER F_NGINC17 3
BEGIN
  PROMPT 1 11 "11 Num. giorni in incremento"
  FIELD LF_QUAA3->NGINC17
END

NUMBER F_REDCOR18 15
BEGIN
  PROMPT 1 12 "12 Reddito corrisposto      "
  FIELD LF_QUAA3->REDCOR18
  PICTURE "."
END

ENDPAGE

PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21

TEXT DLG_NULL 
BEGIN
  PROMPT 1 1 "@bDipendente"
END

NUMBER F_CODDITTA_2 5
BEGIN
  FLAGS "HG"
  KEY 1 
END

NUMBER F_CODIP_2 5
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 CODIP 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 "@bSocieta' 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 

DATE F_DIRAPTI_2
BEGIN
  PROMPT 1 5 "8 Data inizio rapporto a tempo indeterminato "
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 7 "@bDATI DAL 1/1/95 A FINE PERIODO D'IMPOSTA"
END

NUMBER F_NGINC15_2 3
BEGIN
  PROMPT 1 8 "9 Num. giorni in incremento "
END

NUMBER F_REDCOR16_2 15
BEGIN
  PROMPT 1 9 "10 Reddito corrisposto      "
  PICTURE "."
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 11 "@bDATI DA INIZIO SUCCESSIVO PERIODO D'IMPOSTA FINO AL 31/12/95"
END

NUMBER F_NGINC17_2 3
BEGIN
  PROMPT 1 12 "11 Num. giorni in incremento"
END

NUMBER F_REDCOR18_2 15
BEGIN
  PROMPT 1 13 "12 Reddito corrisposto      "
  PICTURE "."
END

ENDPAGE

ENDMASK