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

53
ba/ba4400a.uml
View File

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

51
ba/ba4500a.uml
View File

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

48
ba/ba4600a.uml
View File

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

15
ba/ba5000.uml
View File

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