root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Maschere di Andrea

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@516 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-11-03 12:20:27 +00:00
parent f4b7533179
commit cd56f9aecc
7 changed files with 2484 additions and 2455 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2234
ba/ba4200b.uml
View File

File diff suppressed because it is too large Load Diff

2456
ba/ba4200c.uml
View File

File diff suppressed because it is too large Load Diff

82
ba/ba4300a.uml
View File

@ -59,6 +59,7 @@ END
NUMBER FLD_GD1_CODDITTAH 5
BEGIN
PROMPT 1 1 "Codice "
HELP "Codice della ditta"
FIELD LF_NDITTE->CODDITTA
FLAGS "RG"
USE LF_NDITTE KEY 3
@ -88,7 +89,7 @@ BEGIN
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT FLD_GD1_CODDITTA CODDITTA
OUTPUT FLD_GD1_RAGSOC RAGSOC
HELP "Inserire la ragione sociale della ditta"
HELP "Ragione sociale della ditta"
CHECKTYPE REQUIRED
FLAGS "G"
MESSAGE COPY,2@
@ -102,6 +103,7 @@ END
LIST FLD_GD1_TIPOA 11
BEGIN
PROMPT 1 5 "Tipo "
HELP "Natura della ditta"
FIELD LF_NDITTE->TIPOA
ITEM "F|Fisica"
ITEM "G|Giuridica"
@ -121,7 +123,7 @@ BEGIN
OUTPUT FLD_GD1_CODANAGR CODANAGR
OUTPUT FLD_GD1_TIPOA TIPOA
OUTPUT FLD_GD1_CODANAGR_ANAGR_RAGSOC RAGSOC
HELP "Inserire il codice della anagrafica"
HELP "Codice della anagrafica di riferimento"
CHECKTYPE REQUIRED
WARNING "Anagrafica assente"
ADD RUN ba4 -1
@ -130,6 +132,7 @@ END
STRING FLD_GD1_CODANAGR_ANAGR_RAGSOC 50
BEGIN
PROMPT 1 6 "Denominazione "
HELP "Nome della anagrafica di riferimento"
USE LF_ANAG KEY 2
INPUT TIPOA FLD_GD1_TIPOA
INPUT RAGSOC FLD_GD1_CODANAGR_ANAGR_RAGSOC
@ -158,7 +161,7 @@ BEGIN
DISPLAY "Attivita'@50" S0
OUTPUT FLD_GD1_CODATTPREV CODTAB
OUTPUT FLD_GD1_CODATTPREV_TABATT_DESCR S0
HELP "Inserire il codice dell'attivita' prevalente della ditta"
HELP "Codice dell'attivita' prevalente della ditta"
CHECKTYPE REQUIRED
WARNING "Codice attivita' assente"
END
@ -179,28 +182,28 @@ STRING FLD_GD1_PTEL 10
BEGIN
PROMPT 1 13 "Telefono : Prefisso "
FIELD LF_NDITTE->PTEL
HELP "Inserire il prefisso telefonico della ditta"
HELP "Prefisso telefonico della ditta"
END
STRING FLD_GD1_TEL 30
BEGIN
PROMPT 34 13 "Numero "
FIELD LF_NDITTE->TEL
HELP "Inserire il numero di telefono della ditta"
HELP "Numero telefonico della ditta"
END
STRING FLD_GD1_PFAX 10
BEGIN
PROMPT 1 14 "FAX : Prefisso "
FIELD LF_NDITTE->PFAX
HELP "Inserire il prefisso telefonico del fax della ditta"
HELP "Prefisso telefonico del fax della ditta"
END
STRING FLD_GD1_FAX 30
BEGIN
PROMPT 34 14 "Numero "
FIELD LF_NDITTE->FAX
HELP "Inserire il numero di telefono del fax della ditta"
HELP "Numero telefonico del fax della ditta"
END
ENDPAGE
@ -231,7 +234,7 @@ RADIOBUTTON RDB_GD1_FREQVIVA 20
BEGIN
PROMPT 1 4 "Frequenza IVA"
FIELD LF_NDITTE->FREQVIVA
HELP "Inserire la frequenza di liquidazione dell'IVA"
HELP "Frequenza di liquidazione dell'IVA"
ITEM "M|Mensile"
ITEM "T|Trimestrale"
END
@ -240,7 +243,7 @@ STRING FLD_GD1_PERRIF 20
BEGIN
PROMPT 24 5 "Persona di riferimento "
FIELD LF_NDITTE->PERRIF
HELP "Inserire il nominativo della persona a cui fare rfierimento"
HELP "Nominativo della persona a cui fare rfierimento"
END
BOOLEAN CHK_GD1_ARTIG
@ -262,7 +265,7 @@ BEGIN
PROMPT 1 10 "Iscriz. Albo N."
FIELD LF_NDITTE->NISCRAA
FLAGS "R"
HELP "Inserire il numero di iscrizione all'albo"
HELP "Numero di iscrizione all'albo"
GROUP 3
END
@ -271,7 +274,7 @@ BEGIN
PROMPT 52 10 "Data "
FIELD LF_NDITTE->DATAISCRAA
FLAGS "R"
HELP "Inserire la data di iscrizione all'albo"
HELP "Data di iscrizione all'albo"
WARNING "Data non coerente"
VALIDATE DATE_CMP_FUNC >= FLD_GD2_DINIZIOATT
GROUP 3
@ -289,7 +292,7 @@ BEGIN
OUTPUT FLD_GD1_COMAA COM
OUTPUT FLD_GD1_COMAA_COMUNI_DESCR DENCOM
OUTPUT FLD_GD1_CAPAA CAPCOM
HELP "Inserire il codice del comune a cui si e' iscritti all'albo"
HELP "Codice del comune in cui e' iscritta all'albo"
CHECKTYPE NORMAL
WARNING "Comune assente"
ADD MASK ba4100a
@ -301,13 +304,14 @@ BEGIN
PROMPT 52 11 "CAP "
FIELD LF_NDITTE->CAPAA
FLAGS "RZ"
HELP "Inserire il CAP del comune a cui si e' iscritti all'albo"
HELP "CAP del comune in cui e' iscritta all'albo"
GROUP 3
END
STRING FLD_GD1_COMAA_COMUNI_DESCR 50
BEGIN
PROMPT 8 12 ": Nome "
HELP "Nome del comune in cui Š iscritta all'albo"
USE LF_COMUNI KEY 2 SELECT STATO=""
INPUT DENCOM FLD_GD1_COMAA_COMUNI_DESCR
#include <comdden.h>
@ -322,14 +326,14 @@ BOOLEAN CHK_GD1_CONTORD
BEGIN
PROMPT 1 14 "Contabilit… ordinaria"
FIELD LF_NDITTE->CONTORD
HELP "Indicare se la ditta tiene una contabilita' ordinaria"
HELP "Dire se la ditta tiene una contabilita' ordinaria"
END
BOOLEAN CHK_GD1_REGMAG
BEGIN
PROMPT 52 14 "Regime Magazzino"
FIELD LF_NDITTE->REGMAG
HELP "Indicare se si utilizza un regime di magazzino"
HELP "Dire se si utilizza un regime di magazzino"
END
BOOLEAN CHK_GD1_IMPRFAM
@ -374,7 +378,7 @@ LIST LST_GD2_DATLAV 20
BEGIN
PROMPT 1 4 "Datore lavoro "
FIELD LF_NDITTE->DATLAV
HELP "Inserire il tipo di datore di lavoro"
HELP "Tipo di datore di lavoro"
ITEM "1|Datore di lavoro"
ITEM "2|Non datore di lavoro"
ITEM "3|Datore Agricolo"
@ -385,14 +389,14 @@ BEGIN
PROMPT 45 4 "Numero apprendisti "
FIELD LF_NDITTE->NAPP
FLAGS "R"
HELP "Inserire il numero di apprendisti presenti in ditta"
HELP "Numero di apprendisti presenti in ditta"
END
DATE FLD_GD2_DINIZIOATT
BEGIN
PROMPT 1 5 "Inizio Attivit… "
FIELD LF_NDITTE->DINIZIOATT
HELP "Inserire la data di inizio attivita'"
HELP "Data di inizio attivita'"
END
NUMBER FLD_GD2_NULC 3
@ -400,14 +404,14 @@ BEGIN
PROMPT 45 5 "Numero Unit… Locali "
FIELD LF_NDITTE->NULC
FLAGS "RZ"
HELP "Inserire il numero dell'unit' locale di appartenenza"
HELP "Numero delle unita' locali di appartenenza"
END
STRING FLD_GD2_NENASARCO 12
BEGIN
PROMPT 1 6 "Enasarco "
FIELD LF_NDITTE->NENASARCO
HELP "Inserire il numero di iscrizione all'ENASARCO"
HELP "Numero di iscrizione all'ENASARCO"
END
NUMBER FLD_GD2_MESIREDD 3
@ -416,7 +420,7 @@ BEGIN
FIELD LF_NDITTE->MESIREDD
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)}
FLAGS "R"
HELP "Inserire il numero di mesi di produzione reddito"
HELP "Numero di mesi di produzione reddito"
WARNING "Numero di mesi non corretto"
END
@ -434,7 +438,7 @@ BEGIN
OUTPUT FLD_GD2_ABIBAN CODTAB[1,5]
OUTPUT FLD_GD2_CABBAN CODTAB[6,10]
OUTPUT FLD_GD2_ABIBAN_TABBANCHE_DESCR S0
HELP "Inserire il ABI della banca della ditta"
HELP "Codice ABI della banca della ditta"
CHECKTYPE NORMAL
WARNING "Banca assente"
END
@ -445,7 +449,7 @@ BEGIN
FIELD LF_NDITTE->CABBAN
FLAGS "RZ"
COPY ALL FLD_GD2_ABIBAN
HELP "Inserire il codice CAB della banca"
HELP "Codice CAB della banca"
CHECKTYPE NORMAL
WARNING "Banca assente"
END
@ -463,7 +467,7 @@ BEGIN
SHEET "Codice|Situazione@70"
INPUT LST_GD2_SITSOC
OUTPUT LST_GD2_SITSOC
HELP "Inserire il codice della situazione della societ…"
HELP "Codice della situazione della societ…"
ITEM " |Sconosciuta"
ITEM "1|Periodo d'imposta in cui ha avuto inizio la liquidazione"
ITEM "2|Periodi d'imposta successivi a quello in cui ha avuto inizio la liquidazione"
@ -480,7 +484,7 @@ BEGIN
SHEET "Codice|Stato@70"
INPUT LST_GD2_STATOSOC
OUTPUT LST_GD2_STATOSOC
HELP "Inserire il codice dello stato della societ…"
HELP "Codice dello stato della societ…"
ITEM " |Sconosciuto"
ITEM "1|Soggetto in normale attivita'"
ITEM "2|Soggetto in liquidazione per cessazione di attivita'"
@ -503,7 +507,7 @@ BEGIN
DISPLAY "Descrizione@50" S0
OUTPUT FLD_GD2_CODSTAT1 CODTAB
OUTPUT FLD_GD2_CODSTAT1_TABSTT_S0 S0
HELP "Inserire il primo codice statistico"
HELP "Primo codice statistico"
CHECKTYPE NORMAL
WARNING "Codice assente"
END
@ -524,7 +528,7 @@ BEGIN
COPY DISPLAY FLD_GD2_CODSTAT1
OUTPUT FLD_GD2_CODSTAT2 CODTAB
OUTPUT FLD_GD2_CODSTAT2_TABSTT_S0 S0
HELP "Inserire il secondo codice statistico"
HELP "Secondo codice statistico"
WARNING "Codice assente"
END
@ -544,7 +548,7 @@ BEGIN
COPY DISPLAY FLD_GD2_CODSTAT1
OUTPUT FLD_GD2_CODSTAT3 CODTAB
OUTPUT FLD_GD2_CODSTAT3_TABSTT_S0 S0
HELP "Inserire il terzo codice statistico"
HELP "Terzo codice statistico"
CHECKTYPE NORMAL
WARNING "Codice assente"
END
@ -593,7 +597,7 @@ BEGIN
DISPLAY "Nome@50" RAGSOC
OUTPUT FLD_GD3_FIRMAT CODANAGR
OUTPUT FLD_GD3_FIRMAT_ANAGR_RAGSOC RAGSOC
HELP "Inserire il codice anagrafico del firmatario"
HELP "Codice anagrafico del firmatario degli atti"
CHECKTYPE NORMAL
WARNING "Anagrafica assente"
ADD RUN ba4 -1
@ -602,6 +606,7 @@ END
STRING FLD_GD3_FIRMAT_ANAGR_RAGSOC 50
BEGIN
PROMPT 17 5 ""
HELP "Nome del firmatario degli atti"
USE LF_ANAG KEY 2
INPUT TIPOA "F"
INPUT RAGSOC FLD_GD3_FIRMAT_ANAGR_RAGSOC
@ -617,14 +622,14 @@ BOOLEAN CHK_GD3_ESILOR
BEGIN
PROMPT 1 6 "Esenzione ILOR"
FIELD LF_NDITTE->ESILOR
HELP "Indicare l'eventuale esenzione ILOR della ditta"
HELP "Indicare se la ditta Š soggetta ad esenzione ILOR"
END
BOOLEAN CHK_GD3_REGSTATSP
BEGIN
PROMPT 27 6 "Statuto speciale"
FIELD LF_NDITTE->REGSTATSP
HELP "Indicare se la regione di residenza e' ha statuto speciale"
HELP "Indicare se la regione di residenza e' a statuto speciale"
END
BOOLEAN CHK_GD3_AZCONIUG
@ -645,7 +650,7 @@ BOOLEAN CHK_GD3_DEDART13
BEGIN
PROMPT 27 7 "Deduzioni art.13"
FIELD LF_NDITTE->DEDART13
HELP "Indicare se la ditta ha diritto a deduzioni secondo l'articolo 13"
HELP "Indicare se la ditta ha diritto a deduzioni ex articolo 13"
END
BOOLEAN CHK_GD3_RICSUP20
@ -659,7 +664,7 @@ LIST FLD_GD3_CARRAPP 21
BEGIN
PROMPT 1 8 "Carica "
FIELD LF_NDITTE->CARRAPP
HELP "Inserire il codice della carica del rappresentante"
HELP "Codice della carica del rappresentante legale"
ITEMS " |Nessun rappresentante"
MESSAGE RESET,4@|DISABLE,4@
ITEMS "1|Rappresentante legale"
@ -677,7 +682,7 @@ BEGIN
PROMPT 50 8 "Decorrenza "
FIELD LF_NDITTE->DECCARRAPP
GROUP 4
HELP "Inserire la data di decorrenza della rappresentanza"
HELP "Data di decorrenza della rappresentanza legale"
WARNING "Data non coerente"
VALIDATE DATE_CMP_FUNC >= FLD_GD2_DINIZIOATT
END
@ -694,7 +699,7 @@ BEGIN
COPY DISPLAY FLD_GD3_FIRMAT
OUTPUT FLD_GD3_RAPPR CODANAGR
OUTPUT FLD_GD3_RAPPR_ANAGR_RAGSOC RAGSOC
HELP "Inserire il codice del rapppresentante legale"
HELP "Codice dell'anagrafica del rappresentante legale"
CHECKTYPE NORMAL
WARNING "Anagrafica assente"
ADD RUN ba4 -1
@ -703,6 +708,7 @@ END
STRING FLD_GD3_RAPPR_ANAGR_RAGSOC 50
BEGIN
PROMPT 17 10 ""
HELP "Nome del rappresentate legale"
COPY USE FLD_GD3_FIRMAT_ANAGR_RAGSOC
INPUT RAGSOC FLD_GD3_RAPPR_ANAGR_RAGSOC
COPY DISPLAY FLD_GD3_FIRMAT_ANAGR_RAGSOC
@ -721,21 +727,21 @@ STRING FLD_DE_DENEST1 70
BEGIN
PROMPT 3 12 ""
FIELD LF_NDITTE->DENEST1
HELP "Inserire la prima riga della denominazione estesa"
HELP "Denominazione estesa della ditta"
END
STRING FLD_DE_DENEST2 70
BEGIN
PROMPT 3 13 ""
FIELD LF_NDITTE->DENEST2
HELP "Inserire la seconda riga della denominazione estesa"
HELP "Denominazione estesa della ditta"
END
STRING FLD_DE_DENEST3 70
BEGIN
PROMPT 3 14 ""
FIELD LF_NDITTE->DENEST3
HELP "Inserire la terza riga della denominazione estesa"
HELP "Denominazione estesa della ditta"
END
ENDPAGE

53
ba/ba4400a.uml
View File

@ -24,7 +24,7 @@ BEGIN
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT FLD_UL1_CODDITTA CODDITTA
OUTPUT FLD_UL1_CODDITTA_NDITTE_RAGSOC RAGSOC
HELP "Inserire il codice della ditta di riferimento"
HELP "Codice della ditta di riferimento"
MESSAGE COPY,2@
CHECKTYPE FORCED
WARNING "Ditta assente"
@ -41,7 +41,7 @@ BEGIN
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODDITTA
COPY OUTPUT FLD_UL1_CODDITTA
HELP "Inserire la ragione sociale della ditta di riferimento"
HELP "Ragione sociale della ditta di riferimento"
MESSAGE COPY,3@
ADD MASK BA4300A
END
@ -64,7 +64,7 @@ BEGIN
DISPLAY "N.ro civico@35" CIVULC
OUTPUT FLD_UL1_CODDITTA CODDITTA
OUTPUT FLD_UL1_CODULC CODULC
HELP "Inserire il codice dell'unita' locale"
HELP "Codice dell'unita' locale"
MESSAGE COPY,4@
CHECKTYPE REQUIRED
VALIDATE NOT_EMPTY_FUNC
@ -74,7 +74,7 @@ STRING FLD_UL1_INDULC 35
BEGIN
PROMPT 19 2 "Via "
FIELD LF_UNLOC->INDULC
HELP "Indicare l'indirizzo dell'unita' locale"
HELP "Indirizzo dell'unita' locale"
MESSAGE COPY,5@
WARNING "Completare l'indirizzo dell'unita' locale"
VALIDATE REQIF_FUNC 1 FLD_UL1_COMULC
@ -84,7 +84,7 @@ STRING FLD_UL1_CIVULC 10
BEGIN
PROMPT 61 2 "N."
FIELD LF_UNLOC->CIVULC
HELP "Indicare il numero civico dll'unita' locale"
HELP "Numero civico dll'unita' locale"
MESSAGE COPY,6@
END
@ -101,7 +101,7 @@ BEGIN
OUTPUT FLD_UL1_COMULC_COMUNI_DENCOM DENCOM
OUTPUT FLD_UL1_COMULC_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_UL1_CAPULC CAPCOM
HELP "Inserire il codice del comune dell'unita' locale"
HELP "Codice del comune dell'unita' locale"
MESSAGE COPY,7@
CHECKTYPE REQUIRED
WARNING "Comune assente"
@ -120,13 +120,14 @@ BEGIN
PROMPT 61 3 "CAP "
FIELD LF_UNLOC->CAPULC
FLAGS "RZ"
HELP "Inserire il CAP dell'unita' locale"
HELP "CAP dell'unita' locale"
MESSAGE COPY,9@
END
STRING FLD_UL1_COMULC_COMUNI_DENCOM 50
BEGIN
PROMPT 1 4 "Nome "
HELP "Nome del comune dell'unita' locale"
USE LF_COMUNI KEY 2 SELECT STATO=""
INPUT DENCOM FLD_UL1_COMULC_COMUNI_DENCOM
#include <comdden.h>
@ -148,14 +149,14 @@ BEGIN
PROMPT 1 7 "Numero "
FIELD LF_UNLOC->NUMCCIAA
FLAGS "R"
HELP "Inserire il numero dell'autorizzazione alla camera di commercio"
HELP "Numero autorizzazione alla camera di commercio"
END
DATE FLD_UL1_DATAICCIAA
BEGIN
PROMPT 40 7 "Data iscrizione "
FIELD LF_UNLOC->DATAICCIAA
HELP "Inserire la data di iscrizione alla CCIAA"
HELP "Data di iscrizione alla camera di commercio"
END
STRING FLD_UL1_NUMMECC 7
@ -163,14 +164,14 @@ BEGIN
PROMPT 1 8 "N.Mecc."
FIELD LF_UNLOC->NUMMECC
FLAGS "R"
HELP "Inserire il numero meccanografico dell'iscrizione"
HELP "Numero meccanografico dell'iscrizione"
END
DATE FLD_UL1_DATAVCCIAA
BEGIN
PROMPT 40 8 "Data ultima variazione "
FIELD LF_UNLOC->DATAVCCIAA
HELP "Inserire la data dell'ultima variazione alla CCIAA"
HELP "Data dell'ultima variazione alla camera di commercio"
WARNING "Data non corretta"
VALIDATE DATE_CMP_FUNC >= FLD_UL1_DATAICCIAA
END
@ -187,7 +188,7 @@ BEGIN
COPY DISPLAY FLD_UL1_COMULC
OUTPUT FLD_UL1_COMCCIAA COM
OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM
HELP "Inserire il codice del comune della CCIAA"
HELP "Codice del comune della camera di commercio"
CHECKTYPE NORMAL
WARNING "Comune assente"
VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC
@ -196,6 +197,7 @@ END
STRING FLD_UL1_COMCCIAA_COMUNI_DENCOM 50
BEGIN
PROMPT 1 10 "Nome "
HELP "Nome del comune delle camera di commercio"
COPY USE FLD_UL1_COMULC_COMUNI_DENCOM
INPUT DENCOM FLD_UL1_COMCCIAA_COMUNI_DENCOM
COPY DISPLAY FLD_UL1_COMULC_COMUNI_DENCOM
@ -214,7 +216,7 @@ BEGIN
PROMPT 1 13 "Numero R.E.C. "
FIELD LF_UNLOC->NUMREC
FLAGS "R"
HELP "Inserire il numero R.E.C."
HELP "Numero R.E.C."
END
STRING FLD_UL1_AUTCOM 5
@ -222,7 +224,7 @@ BEGIN
PROMPT 50 13 "N. comunale "
FIELD LF_UNLOC->AUTCOM
FLAGS "R"
HELP "Inserire il numero dell'autorizzazione comunale all'esercizio"
HELP "Numero dell'autorizzazione comunale all'esercizio"
END
STRING FLD_UL1_AUTPS 7
@ -230,14 +232,14 @@ BEGIN
PROMPT 1 14 "Numero PS "
FIELD LF_UNLOC->AUTPS
FLAGS "R"
HELP "Inserire il numero PS"
HELP "Numero dell'autorizzazione della Pubblica Sicurezza"
END
NUMBER FLD_UL1_ALTAUT 1
BEGIN
PROMPT 50 14 "Altre autorizzazioni "
FIELD LF_UNLOC->ALTAUT
HELP "Inserire il numero di altre autorizzazioni"
HELP "Numero di eventuali altre autorizzazioni"
END
ENDPAGE
@ -323,7 +325,7 @@ BEGIN
PROMPT 1 7 "INPS "
FIELD LF_UNLOC->POSINPS
FLAGS "R"
HELP "Inserire il numero della posizione INPS"
HELP "Numero della posizione INPS"
END
STRING FLD_UL2_POSINAIL 12
@ -331,7 +333,7 @@ BEGIN
PROMPT 55 7 "INAIL "
FIELD LF_UNLOC->POSINAIL
FLAGS "R"
HELP "Inserire il numero della posizione INAIL"
HELP "Numero della posizione INAIL"
END
GROUPBOX DLG_NULL 76 5
@ -343,7 +345,7 @@ STRING FLD_UL2_REGTRIB 10
BEGIN
PROMPT 1 10 "Regist."
FIELD LF_UNLOC->REGTRIB
HELP "Inserire il numero di registro del tribunale in cui e' iscritta la ditta"
HELP "Numero di registro del tribunale in cui e' iscritta la ditta"
END
STRING FLD_UL2_VOLTRIB 8
@ -351,7 +353,7 @@ BEGIN
PROMPT 30 10 "Volume "
FIELD LF_UNLOC->VOLTRIB
FLAGS "R"
HELP "Inserire il numero del volume del tribunale in cui e' iscritta la ditta"
HELP "Numero del volume del tribunale in cui e' iscritta la ditta"
END
STRING FLD_UL2_FSCTRIB 6
@ -359,7 +361,7 @@ BEGIN
PROMPT 57 10 "Fascicolo "
FIELD LF_UNLOC->FASCTRIB
FLAGS "R"
HELP "Inserire il numero del fascicolo del tribunale in cui e' iscritta la ditta"
HELP "Numero del fascicolo del tribunale in cui e' iscritta la ditta"
END
STRING FLD_UL2_COMTRIB 4
@ -375,7 +377,7 @@ BEGIN
OUTPUT FLD_UL2_COMTRIB COM
OUTPUT FLD_UL2_COMTRIB_COMUNI_DENCOM DENCOM
OUTPUT FLD_UL2_CAPTRIB CAPCOM
HELP "Inserire il codice del comune del tribunale"
HELP "Codice del comune del tribunale"
CHECKTYPE NORMAL
VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC
WARNING "Comune assente"
@ -386,12 +388,13 @@ BEGIN
PROMPT 57 11 "CAP "
FIELD LF_UNLOC->CAPTRIB
FLAGS "RZ"
HELP "Inserire il CAP del comune del tribunale"
HELP "CAP del comune del tribunale"
END
STRING FLD_UL2_COMTRIB_COMUNI_DENCOM 50
BEGIN
PROMPT 1 12 "Nome "
HELP "Nome del comune del tribunale"
COPY USE FLD_UL1_COMULC_COMUNI_DENCOM
INPUT DENCOM FLD_UL2_COMTRIB_COMUNI_DENCOM
COPY DISPLAY FLD_UL1_COMULC_COMUNI_DENCOM
@ -406,7 +409,7 @@ BEGIN
PROMPT 1 14 "Mq. Locali "
FIELD LF_UNLOC->MQULC
FLAGS "R"
HELP "Inserire il numero di metri quadri dei locali"
HELP "Numero di metri quadri dei locali"
NUM_EXPR {#THIS_FIELD >= 0}
WARNING "N.ro mq. errati"
END
@ -416,7 +419,7 @@ BEGIN
PROMPT 45 14 "Di cui a magazzino "
FIELD LF_UNLOC->MQULCMAG
FLAGS "R"
HELP "Inserire il numero di metri quadri del locale adibiti a magazzino"
HELP "Numero di metri quadri del locale adibiti a magazzino"
WARNING "N.ro mq. errati"
NUM_EXPR {#THIS_FIELD >= 0}
END

51
ba/ba4500a.uml
View File

@ -24,7 +24,7 @@ BEGIN
DISPLAY "Ditta@50" RAGSOC
OUTPUT FLD_AT1_CODDITTA CODDITTA
OUTPUT FLD_AT1_PROGD_NDITTE_RAGSOC RAGSOC
HELP "Inserire il codice della ditta"
HELP "Codice della ditta"
MESSAGE COPY,1@|COPY,FLD_AT1_CODDITTAH
CHECKTYPE FORCED
WARNING "Ditta assente"
@ -49,6 +49,7 @@ END
STRING FLD_AT1_PROGD_NDITTE_RAGSOC 50
BEGIN
PROMPT 1 2 "Ragione sociale "
HELP "Ragione sociale della ditta"
FLAGS "DG"
KEY 1
USE LF_NDITTE KEY 2
@ -91,7 +92,7 @@ BEGIN
OUTPUT FLD_AT1_CODATT CODTAB
OUTPUT FLD_AT1_CODATTH CODTAB
OUTPUT FLD_AT1_ATTCODATT_TABATT_DESCR S0
HELP "Inserire il codice dell'attivita'"
HELP "Codice dell'attivita'"
MESSAGE COPY,3@
CHECKTYPE FORCED
WARNING "Attivita' assente"
@ -103,7 +104,7 @@ BEGIN
PROMPT 1 4 "Nome Attivita' "
FIELD LF_ATTIV->DESCR
MESSAGE COPY,4@
HELP ""
HELP "Nome dell'attivita'"
END
STRING FLD_AT1_OLDCODATT 4
@ -119,7 +120,7 @@ BEGIN
OUTPUT FLD_AT1_OLDCODATT CODTAB[1,4]
OUTPUT FLD_AT1_SUBCOD CODTAB[5,]
OUTPUT FLD_AT1_OLDCODATT_OLDATT_DESCR S0
HELP "Inserire il vecchio codice attivita'"
HELP "Vecchio codice attivita'"
CHECKTYPE NORMAL
WARNING "Attivita' assente"
END
@ -130,7 +131,7 @@ BEGIN
FIELD LF_ATTIV->SUBCOD
FLAGS "U"
COPY ALL FLD_AT1_OLDCODATT
HELP "Inserire il subcodice del vecchio codice"
HELP "Subcodice del vecchio codice attivita'"
CHECKTYPE NORMAL
WARNING "Attivita' assente"
END
@ -145,14 +146,14 @@ DATE FLD_AT1_DATAISCIVA
BEGIN
PROMPT 1 8 "Inizio Attivita'"
FIELD LF_ATTIV->DATAISCIVA
HELP "Inserire la data di inizio attivita'"
HELP "Data di inizio attivita'"
END
DATE FLD_AT1_DATAVARIVA
BEGIN
PROMPT 44 8 "Variazione "
FIELD LF_ATTIV->DATAVARIVA
HELP "Inserire la data di variazione IVA"
HELP "Data di variazione dati IVA"
WARNING "Data non corretta"
VALIDATE DATE_CMP_FUNC >= FLD_AT1_DATAISCIVA
END
@ -161,7 +162,7 @@ DATE FLD_ATT_DCESSATT
BEGIN
PROMPT 1 9 "Termine "
FIELD LF_ATTIV->DCESSATT
HELP "Inserire la data di termine attivita'"
HELP "Data del termine previsto attivita'"
WARNING "Data non corretta"
VALIDATE DATE_CMP_FUNC >= FLD_AT1_DATAISCIVA
END
@ -180,7 +181,7 @@ BEGIN
DISPLAY "Indirizzo@35" INDULC
DISPLAY "N.ro civico@10" CIVULC
OUTPUT FLD_AT1_CODULIVA11 CODULC
HELP "Inserire il codice dell'unita' locale"
HELP "Codice dell'unita' locale"
ADD MASK ba4400a
END
@ -188,7 +189,7 @@ LIST LST_AT1_TIPOATT 26
BEGIN
PROMPT 1 10 "Tipo Attivita' "
FIELD LF_ATTIV->TIPOATT
HELP ""
HELP "Tipo di attivita'"
ITEM " |Altre"
ITEM "M|Mista"
ITEM "E|Mista evidenziata"
@ -199,7 +200,7 @@ BOOLEAN CHK_AT1_MEDCONV
BEGIN
PROMPT 1 11 "Medici convenzionati ??"
FIELD LF_ATTIV->MEDCONV
HELP "Indicare se esistono medici convenzionati"
HELP "Indicare se esistono medici convenzionati nell'attivita'"
END
BOOLEAN CHK_AT1_ATTLAVDIP
@ -234,7 +235,7 @@ BOOLEAN FLD_AT1_ART74_4
BEGIN
PROMPT 44 13 "Gestione Art.74/4"
FIELD LF_ATTIV->ART74/4
HELP "Indicare se si tratta di gestione secondo art 74 comma 4"
HELP "Indicare se si tratta di gestione exo art 74 comma 4"
END
BOOLEAN CHK_AT1_ATTSTAG
@ -253,10 +254,10 @@ END
NUMBER FLD_AT1_NSOCILDIP 3
BEGIN
PROMPT 1 15 "N.soci lavoro dipendente "
PROMPT 1 15 "N.soci lavoro dipendente "
FIELD LF_ATTIV->NSOCILDIP
FLAGS "R"
HELP "Indicare il numero di soci lavoratori dipendenti"
HELP "Numero di soci lavoratori dipendenti"
END
NUMBER FLD_AT1_GIATTANN 3
@ -264,7 +265,7 @@ BEGIN
PROMPT 44 15 "gg.attivita' annuali "
FIELD LF_ATTIV->GIATTANN
FLAGS "R"
HELP "Indicare il numero di giorni di attivita' all'anno"
HELP "Numero di giorni di attivita' all'anno"
WARNING "N.ro di giorni non valido "
END
@ -273,7 +274,7 @@ BEGIN
PROMPT 1 16 "gg.lav.attivita' stagionale "
FIELD LF_ATTIV->GILAVASTAG
FLAGS "R"
HELP "Indicare il numero di giorni per l'attivita' stagionale"
HELP "Numero di giorni per l'attivita' stagionale"
WARNING "N.ro di giorni non valido"
END
@ -324,7 +325,7 @@ LIST LST_AT2_TIPOADS 9
BEGIN
PROMPT 1 7 "Depositario : Tipo "
FIELD LF_ATTIV->TIPOADS
HELP ""
HELP "Tipo anagrafico del depositario dei registri"
ITEM "F|Fisica"
ITEM "G|Giuridica"
END
@ -348,7 +349,7 @@ BEGIN
OUTPUT FLD_AT2_ANAGR_DEP_CIV CIVRES
OUTPUT FLD_AT2_ANAGR_DEP_CAP CAPRES
// OUTPUT FLD_AT2_DEP_ANAGR_COMUNI_DESCR LF_COMUNI->DENCOM
HELP "Inserire il codice del depositario dei registri"
HELP "Codice del depositario dei registri"
CHECKTYPE REQUIRED
WARNING "Anagrafica assente"
ADD RUN ba4 -1
@ -364,14 +365,12 @@ STRING FLD_AT2_ANAGR_DEP_IND 35
BEGIN
PROMPT 1 9 "Via "
FLAGS "D"
HELP ""
END
STRING FLD_AT2_ANAGR_DEP_CIV 10
BEGIN
PROMPT 49 9 "N."
FLAGS "D"
HELP ""
END
STRING FLD_AT2_ANAGR_DEP_CAP 5
@ -396,7 +395,7 @@ STRING FLD_ATT2_INDCS 35
BEGIN
PROMPT 1 12 "Via "
FIELD LF_ATTIV->INDCS
HELP "Indicare l'indirizzo in cui sono conservati i registri"
HELP "Indirizzo in cui sono conservati i registri"
WARNING "Completare l'indirizzo in cui sono conservati i registri"
VALIDATE REQIF_FUNC 1 FLD_AT2_COMCS
END
@ -405,7 +404,7 @@ STRING FLD_AT2_CIVCS 10
BEGIN
PROMPT 49 12 "N."
FIELD LF_ATTIV->CIVCS
HELP "Inserire il numero civico in cui sono tenuti i registri"
HELP "Numero civico in cui sono tenuti i registri"
END
STRING FLD_AT2_COMCS 4
@ -421,7 +420,7 @@ BEGIN
OUTPUT FLD_AT2_COMUNI_DESCR DENCOM
OUTPUT FLD_AT2_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_AT2_CAPCS CAPCOM
HELP "Inserire il codice del comune in cui sono tenuti i registri"
HELP "Codice del comune in cui sono tenuti i registri"
CHECKTYPE NORMAL
WARNING "Comune assente"
ADD MASK ba4100a
@ -438,7 +437,7 @@ BEGIN
PROMPT 64 13 "CAP "
FIELD LF_ATTIV->CAPCS
FLAGS "RZ"
HELP "Inserire il CAP del comune"
HELP "CAP del comune in cui sono tenuti i registri"
END
STRING FLD_AT2_COMUNI_DESCR 50
@ -451,14 +450,14 @@ STRING FLD_AT2_PTELCS 10
BEGIN
PROMPT 1 15 "Prefisso "
FIELD LF_ATTIV->PTELCS
HELP "Inserire il prefisso telefonico"
HELP "Prefisso telefonico del luogo in cui sono tenuti i registri"
END
STRING FLD_AT2_TELCS 32
BEGIN
PROMPT 31 15 "Telefono "
FIELD LF_ATTIV->TELCS
HELP "Inserire il numero di telefono"
HELP "Numero telefonico del luogo in cui sono tenuti i regitri"
END
BOOLEAN CHK_AT2_TSCRPARZ

48
ba/ba4600a.uml
View File

@ -24,7 +24,7 @@ BEGIN
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT FLD_SC1_CODDITTA CODDITTA
OUTPUT FLD_SC1_CODDITTA_NDITTE_RAGSOC RAGSOC
HELP "Inserire il codice della ditta riferita al socio"
HELP "Codice della ditta riferita al socio"
MESSAGE COPY,2@
CHECKTYPE FORCED
WARNING "Ditta assente"
@ -33,6 +33,7 @@ END
STRING FLD_SC1_CODDITTA_NDITTE_RAGSOC 50
BEGIN
PROMPT 1 2 "Ragione sociale "
HELP "Ragione sociale della ditta riferita al socio"
FLAGS "DG"
KEY 1
USE LF_NDITTE KEY 2
@ -50,7 +51,7 @@ BEGIN
FIELD LF_SOCI->TIPOASOC
KEY 1
FLAGS "G"
HELP "Indicare se si tratta di persona fisica o giuridica"
HELP "Tipo anagrafico del socio"
ITEM "F|Fisica"
MESSAGE ENABLE,1@|MESSAGE COPY,4@
ITEM "G|Giuridica"
@ -100,7 +101,7 @@ BEGIN
OUTPUT LST_SC1_TIPOASOC TIPOA
OUTPUT FLD_SC1_CODANAGRSO CODANAGR
OUTPUT FLD_SC1_CODANAGR_ANAGR_RAGSOC RAGSOC
HELP "Inserire il codice dell'anagrafica del socio"
HELP "Codice dell'anagrafica del socio"
MESSAGE COPY,5@|COPY,8@
CHECKTYPE REQUIRED
WARNING "Anagrafica assente o nulla"
@ -110,6 +111,7 @@ END
STRING FLD_SC1_CODANAGR_ANAGR_RAGSOC 50
BEGIN
PROMPT 7 4 ": Nome "
HELP "Nome dell'anagrafica del socio"
KEY 1
USE LF_ANAG KEY 2
FLAGS "G"
@ -131,7 +133,7 @@ BEGIN
FLAGS "A"
KEY 1
CHECKTYPE REQUIRED
WARNING "Inserire l'anno"
WARNING "Inserire l'anno per le dichiarazioni o le analisi di bilancio"
MESSAGE COPY,7@
END
@ -146,7 +148,7 @@ BEGIN
DISPLAY "Carica " S0
OUTPUT FLD_SC1_CODCAR CODTAB
OUTPUT F_DENCAR S0
HELP "Inserire il codice della carica del socio"
HELP "Codice della carica del socio"
CHECKTYPE NORMAL
WARNING "Carica assente"
END
@ -161,7 +163,7 @@ DATE FLD_SC1_SCADCAR
BEGIN
PROMPT 1 8 "Scadenza carica "
FIELD LF_SOCI->SCADCAR
HELP "Inserire la data di scadenza di tale carica"
HELP "Data di scadenza di tale carica"
END
GROUPBOX DLG_NULL 76 4
@ -174,7 +176,7 @@ BEGIN
PROMPT 1 10 "Numero quote "
FIELD LF_SOCI->NQUOTEAZ
FLAGS "R"
HELP "Inserire il numero di azioni possedute dal socio"
HELP "Numero di azioni possedute dal socio"
END
NUMBER FLD_SC1_PERCQUAZ 7
@ -182,7 +184,7 @@ BEGIN
PROMPT 29 10 "= "
FIELD LF_SOCI->PERCQUAZ
FLAGS "R"
HELP "Inserire la percentuale delle azioni possedute dal socio"
HELP "Percentuale delle azioni possedute dal socio"
WARNING "Percentuale quote non corretta"
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)}
END
@ -192,7 +194,7 @@ BEGIN
PROMPT 41 10 "% Reddito da quota az. "
FIELD LF_SOCI->PERCAZREDD
FLAGS "R"
HELP "Inserire il reddito derivante da quote aziendali"
HELP "Reddito derivante da quote aziendali"
WARNING "Percentuale quote non corretta"
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)}
END
@ -202,7 +204,7 @@ BEGIN
PROMPT 45 11 "Perdita da quota az. "
FIELD LF_SOCI->PERCAZPERD
FLAGS "R"
HELP "Inserire la perdita derivante da quote aziendali"
HELP "Perdita derivante da quote aziendali"
WARNING "Percentuale quote non corretta"
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)}
END
@ -211,7 +213,7 @@ LIST LST_SC1_RICQUAL 18
BEGIN
PROMPT 1 13 "Richiesta qualifica "
FIELD LF_SOCI->RICQUAL
HELP "Inserire la qualifica del socio"
HELP "Qualifica del socio"
ITEM " |Nessuna"
ITEM "A|Amministratore(A)"
ITEM "B|Amministratore(B)"
@ -229,7 +231,7 @@ BEGIN
FIELD LF_SOCI->EMOLUMENTO
FLAGS "R"
PICTURE "."
HELP "Inserire l'ammontare dell'emolumnento dovuto al socio"
HELP "Ammontare dell'emolumento dovuto al socio"
END
LIST LST_SC1_PROP 1 23
@ -243,7 +245,7 @@ BEGIN
ITEM "5|Compratore a termine"
ITEM "U|Usufruttuario"
ITEM "T|Tit. di altro vincolo"
HELP "Inserire i titoli di proprieta' del socio"
HELP "Titoli di proprieta' del socio"
END
LIST LST_SC1_TIPOAZ 1 16
@ -253,7 +255,7 @@ BEGIN
ITEM "O|Ordinarie"
ITEM "P|Privilegiate"
ITEM "R|Risparmio"
HELP "Inserire il tipo di azione posseduta dal socio"
HELP "Tipo di azioni posseduta dal socio"
END
DATE FLD_SC1_DATAGG
@ -261,7 +263,6 @@ BEGIN
PROMPT 1 16 "Data "
FIELD LF_SOCI->DATAAGG
FLAGS "DA"
HELP "Inserire la data dell'ultimo aggiornamento relativo al socio"
END
GROUPBOX DLG_NULL 76 3
@ -349,14 +350,14 @@ DATE FLD_SC1_PARTECDAL
BEGIN
PROMPT 1 9 "Data inizio "
FIELD LF_SOCI->PARTECDAL
HELP "Inserire la data di inizio partecipazione alle assemblee"
HELP "Data di inizio partecipazione alle assemblee"
END
DATE FLD_SC2_PARTECAL
BEGIN
PROMPT 1 10 "Data fine "
FIELD LF_SOCI->PARTECAL
HELP "Inserire la data di fine partecipazione alle assemblee"
HELP "Data di fine partecipazione alle assemblee"
WARNING "Data non corretta"
VALIDATE DATE_CMP_FUNC >= FLD_SC1_PARTECDAL
END
@ -365,7 +366,7 @@ LIST LST_SC2_QUATTPREV 10
BEGIN
PROMPT 27 9 "Quadro 750 "
FIELD LF_SOCI->QUATTPREV
HELP "Inserire il rigo in cui compare il socio sul quadro 750"
HELP "Quadro in cui compare il socio sul 750"
ITEM " |Nessuno"
ITEM "A1|Quadro A1"
ITEM "B|Quadro B"
@ -377,7 +378,7 @@ LIST LST_SC2_Q740 10
BEGIN
PROMPT 27 10 "Quadro 740 "
FIELD LF_SOCI->Q740
HELP "Inserire il rigo in cui compare il socio sul modello 740"
HELP "Quadro in cui compare il socio sul modello 740"
ITEM " |Nessuno"
ITEM "A|Quadro A"
ITEM "F|Quadro F"
@ -402,7 +403,7 @@ BEGIN
PROMPT 53 9 "Art 120 comma 1 "
FIELD LF_SOCI->MLAV120C1
FLAGS "R"
HELP "Inserire il numero di mesi lavorati secondo art.120 comma 1"
HELP "Numero di mesi lavorati ex art.120 comma 1"
WARNING "N.ro di mesi non corretto"
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)}
END
@ -412,7 +413,7 @@ BEGIN
PROMPT 53 10 "Art 120 comma 2 "
FIELD LF_SOCI->MLAV120C2
FLAGS "R"
HELP "Inserire il numero di mesi lavorati secondo art.120 comma 2"
HELP "Numero di mesi lavorati ex art.120 comma 2"
WARNING "N.ro di mesi non corretto"
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)}
END
@ -430,7 +431,7 @@ BEGIN
DISPLAY "Nome " RAGSOC
OUTPUT FLD_SC2_CODANAGCON CODANAGR
OUTPUT FLD_SC2_CODANAGCON_ANAFIS_RAGSOC RAGSOC
HELP "Inserire il codice anagrafico del coniuge"
HELP "Codice anagrafico del coniuge"
CHECKTYPE NORMAL
WARNING "Anagrafica assente"
ADD RUN ba4 -1
@ -439,6 +440,7 @@ END
STRING FLD_SC2_CODANAGCON_ANAFIS_RAGSOC 50
BEGIN
PROMPT 8 13 ": Nome "
HELP "Nome del coniuge del socio"
USE LF_ANAG KEY 2
INPUT TIPOA "F"
INPUT RAGSOC FLD_SC2_CODANAGCON_ANAFIS_RAGSOC
@ -453,7 +455,7 @@ STRING FLD_SC2_NOTE 60
BEGIN
PROMPT 1 15 "Note "
FIELD LF_SOCI->NOTE
HELP "Inserire eventuali note riferite al socio"
HELP "Eventuali note riferite al socio"
END
ENDPAGE

15
ba/ba5000.uml
View File

@ -6,7 +6,7 @@ RADIOBUTTON LST_SC1_TIPOASOC 12
BEGIN
PROMPT 1 1 "Persona"
FIELD LF_SOCI->TIPOASOC
HELP "Indicare se si tratta di persona fisica o giuridica"
HELP "Tipo anagrafico del socio"
ITEM "F|Fisica"
ITEM "G|Giuridica"
END
@ -14,6 +14,7 @@ END
NUMBER FLD_SC1_ANNO 4
BEGIN
PROMPT 20 2 "Anno "
HELP "Anno su cui effettuare la ricerca"
FIELD LF_SOCI->ANNO
FLAGS "A"
END
@ -28,7 +29,7 @@ BEGIN
DISPLAY "Codice" CODTAB
DISPLAY "Carica@30" S0
OUTPUT FLD_SC1_CODCAR CODTAB
HELP "Inserire il codice della carica del socio"
HELP "Codice della carica del socio"
CHECKTYPE NORMAL
WARNING "Carica assente"
END
@ -42,7 +43,7 @@ LIST LST_SC1_RICQUAL 2 24
BEGIN
PROMPT 1 6 ""
FIELD LF_SOCI->CODCAR
HELP "Inserire la qualifica del socio"
HELP "Qualifica del socio"
ITEM " |Nessuna"
ITEM "A|Amministratore(A)"
ITEM "B|Amministratore(B)"
@ -58,7 +59,7 @@ LIST LST_SC2_Q740 1 12
BEGIN
PROMPT 1 7 "Modello 740 "
FIELD LF_SOCI->Q740
HELP "Inserire il rigo in cui compare il socio sul modello 740"
HELP "Quadro in cui compare il socio sul modello 740"
ITEM " |Nessuno"
ITEM "A|Quadro A"
ITEM "F|Quadro F"
@ -70,7 +71,7 @@ LIST LST_SC2_QUATTPREV 2 12
BEGIN
PROMPT 1 8 "Quadro 750 "
FIELD LF_SOCI->QUATTPREV
HELP "Inserire il rigo in cui comapare il socio sul quadro 750"
HELP "Quadro in cui comapare il socio sul quadro 750"
ITEM " |Nessuno"
ITEM "A|Quadro A"
ITEM "B|Quadro B"
@ -92,7 +93,3 @@ END
ENDPAGE
ENDMASK