campo-sirio/m770/771100b.uml

#include "771100.h"

TOOLBAR "" 0 0 0 2

BUTTON F_GIURIDICA 2 2
BEGIN
  PROMPT 1 1 "~Giuridiche"
  PICTURE TOOL_USERS
END

BUTTON F_ATTIVITA 2 2
BEGIN
  PROMPT 2 1 "~Attività" 
  MESSAGE K_TAB,F_ATTIV
  PICTURE TOOL_EDIT
END

BUTTON DLG_SAVEREC 2 2
BEGIN
PROMPT 3 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 "GRD"
  USE LF_NDITTE KEY 1
  JOIN LF_ANAG TO LF_NDITTE INTO TIPOA=TIPOA CODANAGR=CODANAGR   
  JOIN LF_ANAGGIU TO LF_ANAG INTO CODANAGR=CODANAGR
  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 F_RAGSOC     LF_NDITTE->RAGSOC 
  OUTPUT F_ATTIV    LF_NDITTE->CODATTPREV
  OUTPUT F_ANAGR    LF_ANAG->CODANAGR
  OUTPUT F_COFI     LF_ANAG->COFI
  OUTPUT F_RAGIONE    LF_ANAG->RAGSOC
  OUTPUT F_COMRES     1@->DENCOM
  OUTPUT F_PROVRES    1@->PROVCOM   
  OUTPUT F_INDRES     LF_ANAG->INDRES
  OUTPUT F_CIVRES     LF_ANAG->CIVRES 
  OUTPUT F_CAPRES     LF_ANAG->CAPRES 
  OUTPUT F_EVECC    LF_ANAG->EVECC
  OUTPUT F_COMRF    2@->DENCOM
  OUTPUT F_PROVRF     2@->PROVCOM
  OUTPUT F_INDRF    LF_ANAG->INDRF
  OUTPUT F_CIVRF    LF_ANAG->CIVRF
  OUTPUT F_CAPRF    LF_ANAG->CAPRF
  OUTPUT F_PTELRF     LF_ANAG->PTELRF
  OUTPUT F_TELRF    LF_ANAG->TELRF   
  OUTPUT F_DATAAPPBIL   LF_ANAGGIU->DATAAPPBIL
  OUTPUT F_DATATAPPBI   LF_ANAGGIU->DATATAPPBI
  OUTPUT F_STATOSOC   LF_ANAGGIU->STATOSOC
  OUTPUT F_NATGIU     LF_ANAGGIU->NATGIU
  OUTPUT F_SITSOC     LF_ANAGGIU->SITSOC   
  OUTPUT F_SEDELEG    LF_ANAG->VARSLORES
  OUTPUT F_DOMFISC    LF_ANAG->VARDF
  MESSAGE COPY,1@
  MESSAGE DISABLE,F_SEDELEG|DISABLE,F_DOMFISC
  KEY 1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 1 2 "Ragione sociale   "
  FLAGS "D"      
  MESSAGE COPY,2@
END                                

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

STRING F_ATTIV 5
BEGIN
  PROMPT 1 4 "Attività        "
  USE LF_ATTIV
  INPUT CODDITTA  F_CODDITTA SELECT
  INPUT CODATT    F_ATTIV
  DISPLAY "Attivita'"   CODATT
  DISPLAY "Prevalente"  ATTPREV
  DISPLAY " @50"    DESCR
  OUTPUT F_DESCRATT   DESCR
  CHECKTYPE REQUIRED
  FLAGS "D"   
END

STRING F_DESCRATT 50
BEGIN
  PROMPT 26 4 ""
  FLAGS "D"
END

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

STRING F_RAGIONE 50
BEGIN
  PROMPT 1 7 "Denominazione   "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 8 ""
END

BOOLEAN F_SEDELEG
BEGIN
  PROMPT 1 9 "Sede legale"
END
          
STRING F_COMRES 50
BEGIN
  PROMPT 1 10 "Comune    "
  FLAGS "D"
END

STRING F_PROVRES 5
BEGIN
  PROMPT 63 10 "Prov.  "
  FLAGS "D"
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
               
GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 12 ""
END

BOOLEAN F_DOMFISC
BEGIN
  PROMPT 1 13 "Domicilio fiscale"
END

STRING F_PTELRF 10
BEGIN
  PROMPT 25 13 "Telefono "
  FLAGS "D"
END

STRING F_TELRF 30
BEGIN
  PROMPT 45 13 ""
  FLAGS "D"
END

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

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

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

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

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

DATE F_DATAAPPBIL
BEGIN
  PROMPT 1 17 "Data approvazione del bilancio "
  FLAGS "D"
END

DATE F_DATATAPPBI
BEGIN
  PROMPT 1 18 "Data termine del bilancio      "
  FLAGS "D"
END

NUMBER F_STATOSOC 1
BEGIN
  PROMPT 1 19 "Stato      "
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 15 19 "(Tab.A)"
END

NUMBER F_NATGIU 2
BEGIN
  PROMPT 48 19 "Natura giuridica "
  FLAGS "RD"
END

TEXT DLG_NULL 
BEGIN
  PROMPT 69 19 "(Tab.B)"
END

NUMBER F_SITSOC 1
BEGIN
  PROMPT 1 20 "Situazione "
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 15 20 "(Tab.E)"
END

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

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

ENDPAGE                          

ENDMASK