campo-sirio/m770/771100a.uml

#include "771100.h"

TOOLBAR "" 0 0 0 2

BUTTON F_FISICA 10 2
BEGIN
  PROMPT -15 -1 "F~isiche"
  PICTURE TOOL_USERS
END

BUTTON F_ATTIVITA 10 2
BEGIN
  PROMPT -25 -1 "~Attivita'"
  PICTURE TOOL_EDIT
END

BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -35 -1 "~Registra"
MESSAGE EXIT,K_SAVE  
PICTURE TOOL_SAVEREC

END

#include "cancelbar.h"

ENDPAGE

PAGE "Dichiarante" 0 2 0 0

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 ""
  FLAGS "R"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 1 "Ditta             "
  FLAGS "RDG"
  USE LF_NDITTE KEY 1
  JOIN LF_ANAG TO LF_NDITTE INTO TIPOA=TIPOA CODANAGR=CODANAGR  
  JOIN LF_ANAGFIS TO LF_ANAG INTO CODANAGR=CODANAGR 
  JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC
  JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES 
  JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF 
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  OUTPUT APF_RAGSOC LF_NDITTE->RAGSOC
  OUTPUT F_ATTIV LF_NDITTE->CODATTPREV
  OUTPUT F_ANAGR LF_ANAG->CODANAGR 
  OUTPUT F_COFI LF_ANAG->COFI
  OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30]
  OUTPUT F_NOME LF_ANAG->RAGSOC[31,50]
  OUTPUT F_INDRES LF_ANAG->INDRES
  OUTPUT F_CIVRES LF_ANAG->CIVRES
  OUTPUT F_CAPRES LF_ANAG->CAPRES
  OUTPUT F_INDRF LF_ANAG->INDRF
  OUTPUT F_CIVRF LF_ANAG->CIVRF
  OUTPUT F_CAPRF LF_ANAG->CAPRF 
  OUTPUT F_EVECC LF_ANAG->EVECC
  OUTPUT F_SESSO LF_ANAGFIS->SESSO
  OUTPUT F_DATANASC LF_ANAGFIS->DATANASC
  OUTPUT F_COMNASC  LF_COMUNI->DENCOM
  OUTPUT F_PROVNASC LF_COMUNI->PROVCOM
  OUTPUT F_COMRES   1@->DENCOM
  OUTPUT F_PROVRES  1@->PROVCOM
  OUTPUT F_COMRF    2@->DENCOM
  OUTPUT F_PROVRF   2@->PROVCOM
  OUTPUT F_PTELRF   LF_ANAG->PTELRF
  OUTPUT F_TELRF    LF_ANAG->TELRF   
  OUTPUT F_DOMFISC  LF_ANAG->VARSLORES
  KEY 1
END

STRING APF_RAGSOC 50
BEGIN
  PROMPT 1 2 "Ragione sociale   "
  FLAGS "D"
END                                

NUMBER F_ANAGR 5
BEGIN
  PROMPT -1 -1 ""
  FLAGS "H"
END

STRING F_COFI 16
BEGIN
  PROMPT 1 4 "Codice fiscale "
  FLAGS "D" 
END                       

NUMBER F_EVECC 1
BEGIN
  PROMPT 46 4 "Eventi naturali eccezionali "
  FLAGS "D"
END

STRING F_COGNOME 30
BEGIN
  PROMPT 1 5 "Cognome        "
  FLAGS "D"
END                            

LIST F_RSS 7
BEGIN 
  PROMPT 58 5 "R.S.S.  "
  ITEM " |Nessuna"
  ITEM "1|VA"
  ITEM "2|SA"
  ITEM "3|SI"
  FIELD LF_BASE->RSS
END

STRING F_NOME 20
BEGIN
  PROMPT 1 6 "Nome           "
  FLAGS "D"
END 

STRING F_SESSO 1
BEGIN
  PROMPT 39 6 "Sesso "
  FLAGS "D"                  
END

DATE F_DATANASC 
BEGIN
  PROMPT 49 6 "Data di nascita "
  FLAGS "D"
END

STRING F_COMNASC 50
BEGIN
  PROMPT 1 7 "Comune nascita "
  FLAGS "D"
END

STRING F_PROVNASC 5
BEGIN
  PROMPT 70 7 ""
  FLAGS "D"
END

STRING F_ATTIV 5
BEGIN
  PROMPT 1 8 "Attivita'      "
  USE %AIS
  INPUT CODTAB F_ATTIV
  OUTPUT F_DESCRATT S0
  CHECKTYPE REQUIRED 
  FLAGS "D"
END

STRING F_DESCRATT 50
BEGIN
  PROMPT 25 8 ""
  FLAGS "D"
END

BOOLEAN F_DOMFISC
BEGIN
  PROMPT 1 9 "Dom.fiscale o residenza variati rispetto all'anno precedente "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 10 "Residenza"
END

STRING F_INDRES 35
BEGIN
  PROMPT 1 11 "Indirizzo "
  FLAGS "D"
END

STRING F_CIVRES 10
BEGIN
  PROMPT 47 11 ""
  FLAGS "D"
END

STRING F_CAPRES 5
BEGIN
  PROMPT 63 11 "C.A.P. "
  FLAGS "D"
END

STRING F_COMRES 50
BEGIN
  PROMPT 1 12 "Comune    "
  FLAGS "D"
END

STRING F_PROVRES 5
BEGIN
  PROMPT 63 12 "Prov.  "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 14 "Domicilio fiscale "
END

STRING F_PTELRF 10
BEGIN
  PROMPT 1 15 "Telefono  "
  FLAGS "D"
END

STRING F_TELRF 30
BEGIN
  PROMPT 20 15 ""
  FLAGS "D"
END

STRING F_INDRF 35
BEGIN
  PROMPT 1 16 "Indirizzo "
  FLAGS "D"
END

STRING F_CIVRF 10
BEGIN
  PROMPT 47 16 ""
  FLAGS "D"
END

STRING F_CAPRF 5
BEGIN
  PROMPT 63 16 "C.A.P. "
  FLAGS "D"
END

STRING F_COMRF 50
BEGIN
  PROMPT 1 17 "Comune    "
  FLAGS "D"
END

STRING F_PROVRF 5
BEGIN
  PROMPT 63 17 "Prov.  "
  FLAGS "D"
END

ENDPAGE 

ENDMASK