campo-sirio/m770/771100b.uml

#include "771100.h"

TOOLBAR "" 0 20 0 2

BUTTON F_GIURIDICA 10 2
BEGIN
  PROMPT -15 -1 "~Giuridiche" 
END

BUTTON F_ATTIVITA 10 2
BEGIN
  PROMPT -25 -1 "~Attivit<69>" 
  MESSAGE K_TAB,F_ATTIV
END

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

BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC
END

BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT
END

ENDPAGE

PAGE "Dichiarante" -1 -1 78 18

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<69>        "
  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"
  //FLAGS "D"
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 13 ""
END

BOOLEAN F_DOMFISC
BEGIN
  PROMPT 1 14 "Domicilio fiscale"
  //FLAGS "D" 
END

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

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

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

STRING F_PROVRF 5
BEGIN
  PROMPT 63 15 "Prov.  "
  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

ENDPAGE                          

PAGE "Pag.2" -1 -1 78 18
        
GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 ""
  FLAGS "R"
END
         
NUMBER DLG_NULL 5
BEGIN
  PROMPT 1 1 "Ditta           "
  FLAGS "FRD"
  GROUP 1
END

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

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

DATE F_DATATAPPBI
BEGIN
  PROMPT 1 6 "Data termine del bilancio      "
  FLAGS "D"
END
                    
NUMBER F_STATOSOC 1
BEGIN
  PROMPT 1 8 "Stato      "
  FLAGS "D"
END

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

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

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

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

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

LIST F_RSS 7
BEGIN
  PROMPT 48 9 "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 11 "Eventi naturali eccezionali "
  FLAGS "D"
END      
              
ENDPAGE

ENDMASK