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

92
ba/ba4200b.uml
View File

@ -40,6 +40,7 @@ NUMBER FLD_CODANAGR 5
BEGIN
PROMPT 2 1 "Codice "
FIELD LF_ANAG->CODANAGR
HELP "Codice assegnato alla persona fisica"
FLAGS "RG"
KEY 1
USE LF_ANAG
@ -136,6 +137,7 @@ STRING FLD_AF1_STATONASC_TABSTE_S0 10
BEGIN
PROMPT 44 6 "Nazionalita' "
FIELD LF_ANAGFIS->NAZION
HELP "Nazione di appartenenza della persona fisica"
END
STRING FLD_AF1_COFI 16
@ -155,7 +157,7 @@ BEGIN
OUTPUT FLD_AF1_COFI COFI
OUTPUT FLD_ANAG_RAGSOC1 RAGSOC[1,30]
OUTPUT FLD_ANAG_RAGSOC2 RAGSOC[31,0]
HELP "Codice fiscale della persona"
HELP "Codice fiscale della persona fisica"
CHECKTYPE REQUIRED
VALIDATE XTCF_FUNC FLD_AF1_STATOPAIV LST_AF1_SESSO FLD_AF1_DATANASC FLD_AF1_COMNASC
END
@ -169,7 +171,7 @@ DATE FLD_AF1_DATANASC
BEGIN
PROMPT 2 10 "Data "
FIELD LF_ANAGFIS->DATANASC
HELP "Inserire la data di nascita"
HELP "Data di nascita della persona fisica"
END
STRING FLD_AF1_COMNASC 4
@ -185,7 +187,7 @@ BEGIN
OUTPUT FLD_AF1_COMNASC COM
OUTPUT FLD_AFIS_COMNASC_COMUNI_DENCOM DENCOM
OUTPUT FLD_AFIS_COMNASC_COMUNI_PROV PROVCOM
HELP "Inserire il codice del comune di nascita"
HELP "Codice del comune di nascita della persona fisica"
CHECKTYPE NORMAL
WARNING "Comune assente"
ADD MASK ba4100a
@ -194,6 +196,7 @@ END
STRING FLD_AFIS_COMNASC_COMUNI_DENCOM 50
BEGIN
PROMPT 9 12 ": Nome "
HELP "Nome del comune di nascita della persona fisica"
USE LF_COMUNI KEY 2
INPUT DENCOM FLD_AFIS_COMNASC_COMUNI_DENCOM
#include <comdden.h>
@ -217,7 +220,7 @@ BEGIN
DISPLAY "Codice" CODTAB
DISPLAY "Stato@50" S0
OUTPUT FLD_AF1_STATONASC CODTAB
HELP "Codice dello stato di nascita della persona"
HELP "Codice dello stato di nascita della persona fisica"
CHECKTYPE NORMAL
WARNING "Stato assente"
END
@ -281,7 +284,7 @@ STRING FLD_AF1_INDRES 35
BEGIN
PROMPT 2 6 "Indirizzo "
FIELD LF_ANAG->INDRES
HELP "Inserire l'indirizzo di residenza"
HELP "Indirizzo della residenza"
WARNING "Completare l'indirizzo di residenza"
// VALIDATE REQIF_FUNC 1 FLD_AF1_COMRES
CHECKTYPE REQUIRED
@ -291,7 +294,7 @@ STRING FLD_AF1_CIVRES 10
BEGIN
PROMPT 56 6 "N."
FIELD LF_ANAG->CIVRES
HELP "Inserire il numero civico della persona fisica"
HELP "Numero civico della residenza"
END
NUMBER FLD_AF1_STATORES 3
@ -303,7 +306,7 @@ BEGIN
INPUT CODTAB FLD_AF1_STATORES
COPY DISPLAY FLD_AF1_STATONASC
OUTPUT FLD_AF1_STATORES CODTAB
HELP "Inserire il codice dello stato di residenza"
HELP "Codice dello stato di residenza"
CHECKTYPE NORMAL
WARNING "Stato assente"
END
@ -322,7 +325,7 @@ BEGIN
OUTPUT FLD_AF1_COMRES_COMUNI_DENCOM DENCOM
OUTPUT FLD_AF1_COMRES_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_ANAG_CAPRES CAPCOM
HELP "Inserire il codice del comune di residenza"
HELP "Codice del comune di residenza"
CHECKTYPE REQUIRED
WARNING "Comune assente"
ADD MASK ba4100a
@ -338,12 +341,13 @@ STRING FLD_ANAG_CAPRES 5
BEGIN
PROMPT 56 8 "CAP "
FIELD LF_ANAG->CAPRES
HELP "Inserire il CAP del comune"
HELP "CAP del comune di residenza"
END
STRING FLD_AF1_COMRES_COMUNI_DENCOM 50
BEGIN
PROMPT 9 9 ": Nome "
HELP "Nome del comune di residenza"
COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM
INPUT DENCOM FLD_AF1_COMRES_COMUNI_DENCOM
COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM
@ -364,7 +368,7 @@ STRING FLD_AF2_INDRF 35
BEGIN
PROMPT 2 12 "Indirizzo "
FIELD LF_ANAG->INDRF
HELP "Inserire l'indirizzo della residenza fiscale"
HELP "Indirizzo della residenza fiscale"
WARNING "Completare l'indirizzo di residenza fiscale"
VALIDATE REQIF_FUNC 1 FLD_AF2_COMRF
END
@ -373,7 +377,7 @@ STRING FLD_AF2_CIVRF 10
BEGIN
PROMPT 56 12 "N."
FIELD LF_ANAG->CIVRF
HELP "Inserire il numero civico della residenza fiscale"
HELP "Numero civico della residenza fiscale"
END
NUMBER FLD_AF2_STATORF 3
@ -385,7 +389,7 @@ BEGIN
INPUT CODTAB FLD_AF2_STATORF
COPY DISPLAY FLD_AF1_STATONASC
OUTPUT FLD_AF2_STATORF CODTAB
HELP "Inserire il codice dello stato di residenza fiscale"
HELP "Codice dello stato di residenza fiscale"
CHECKTYPE NORMAL
WARNING "Stato assente"
END
@ -404,7 +408,7 @@ BEGIN
OUTPUT FLD_AF2_COMRF_COMUNI_DENCOM DENCOM
OUTPUT FLD_AF2_COMRF_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_AF2_CAPRF CAPCOM
HELP "Inserire il codice del comune di residenza fiscale"
HELP "Codice del comune di residenza fiscale"
CHECKTYPE NORMAL
WARNING "Comune assente"
ADD MASK ba4100a
@ -420,12 +424,13 @@ STRING FLD_AF2_CAPRF 5
BEGIN
PROMPT 56 14 "CAP "
FIELD LF_ANAG->CAPRF
HELP "Inserire il CAP del comune di residenza fiscale"
HELP "CAP del comune di residenza fiscale"
END
STRING FLD_AF2_COMRF_COMUNI_DENCOM 50
BEGIN
PROMPT 9 15 ": Nome "
HELP "Nome del comune di residenza fiscale"
COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM
INPUT DENCOM FLD_AF2_COMRF_COMUNI_DENCOM
COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM
@ -478,7 +483,7 @@ STRING FLD_AF2_INDCORR 35
BEGIN
PROMPT 2 6 "Indirizzo "
FIELD LF_ANAG->INDCORR
HELP "Inserire l'indirizzo al quale spedire la corrispondenza"
HELP "Indirizzo al quale spedire la corrispondenza"
WARNING "Completare l'indirizzo di corrispondenza"
VALIDATE EMPTYCOPY_FUNC FLD_AF1_INDRES
END
@ -487,7 +492,7 @@ STRING FLD_AF2_CIVCORR 10
BEGIN
PROMPT 56 6 "N."
FIELD LF_ANAG->CIVCORR
HELP "Inserire il numero civico al quale spedire la corrispondenza"
HELP "Numero civico al quale spedire la corrispondenza"
VALIDATE EMPTYCOPY_FUNC FLD_AF1_CIVRES
END
@ -500,7 +505,7 @@ BEGIN
INPUT CODTAB FLD_AF2_STATOCORR
COPY DISPLAY FLD_AF1_STATONASC
OUTPUT FLD_AF2_STATOCORR CODTAB
HELP "Inserire il codice dello stato"
HELP "Codice dello stato al quale spedire la corrispondenza"
CHECKTYPE NORMAL
WARNING "Stato assente"
VALIDATE EMPTYCOPY_FUNC FLD_AF1_STATORES
@ -520,7 +525,7 @@ BEGIN
OUTPUT FLD_AF2_COMCORR_COMUNI_DENCOM DENCOM
OUTPUT FLD_AF2_COMCORR_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_AF2_CAPCORR CAPCOM
HELP "Inserire il codice del comune al quale spedire la corrispondenza"
HELP "Codice del comune al quale spedire la corrispondenza"
CHECKTYPE NORMAL
ADD MASK ba4100a
VALIDATE EMPTYCOPY_FUNC FLD_AF1_COMRES
@ -537,13 +542,14 @@ STRING FLD_AF2_CAPCORR 5
BEGIN
PROMPT 56 8 "CAP "
FIELD LF_ANAG->CAPCORR
HELP "Inserire il CAP del comune"
HELP "CAP del comune al quale spedire la corrispondenza"
VALIDATE EMPTYCOPY_FUNC FLD_ANAG_CAPRES
END
STRING FLD_AF2_COMCORR_COMUNI_DENCOM 50
BEGIN
PROMPT 9 9 ": Nome "
HELP "Nome del comune al quale spedire la corrispondenza"
COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM
INPUT DENCOM FLD_AF2_COMCORR_COMUNI_DENCOM
COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM
@ -565,42 +571,42 @@ STRING FLD_AF2_PTELRF 10
BEGIN
PROMPT 2 13 "Telefono : Prefisso "
FIELD LF_ANAG->PTELRF
HELP "Inserire il prefisso del numero di telefono"
HELP "Prefisso del numero di telefono"
END
STRING FLD_AF2_TELRF 30
BEGIN
PROMPT 36 13 "Numero "
FIELD LF_ANAG->TELRF
HELP "Inserire il numero di telefono"
HELP "Numero di telefono"
END
STRING FLD_AF2_PFAXRF 10
BEGIN
PROMPT 2 14 "Telefax : Prefisso "
FIELD LF_ANAG->PFAXRF
HELP "Inserire il prefisso del FAX"
HELP "Prefisso del FAX"
END
STRING FLD_AF2_FAXRF 30
BEGIN
PROMPT 36 14 "Numero "
FIELD LF_ANAG->FAXRF
HELP "Inserire il numero del FAX"
HELP "Numero del FAX"
END
STRING FLD_AF2_PTLEXRF 10
BEGIN
PROMPT 2 15 "Telex : Prefisso "
FIELD LF_ANAG->PTLEXRF
HELP "Inserire il prefisso del telex"
HELP "Prefisso del telex"
END
STRING FLD_AF2_TLEXRF 30
BEGIN
PROMPT 36 15 "Numero "
FIELD LF_ANAG->TLEXRFX
HELP "Inserire il numero del telex"
HELP "Numero del telex"
END
ENDPAGE
@ -644,7 +650,7 @@ LIST LST_AF3_TITSTU 18
BEGIN
PROMPT 2 6 "Titolo Studio "
FIELD LF_ANAGFIS->TITSTU
HELP "Scegliere il tipo di titolo di studio posseduto"
HELP "Tipo di titolo di studio posseduto"
ITEM "1|Nessuno"
ITEM "2|Licenza elementare"
ITEM "3|Licenza media"
@ -656,7 +662,7 @@ LIST LST_AF3_STATCIV 20
BEGIN
PROMPT 2 7 "Stato civile "
FIELD LF_ANAGFIS->STATCIV
HELP "Indicare lo stato civile della persona fisica"
HELP "Stato civile della persona fisica"
ITEM "1|Celibe/Nubile"
MESSAGE DISABLE,4@|RESET,4@
ITEM "2|Coniugato/a"
@ -679,7 +685,7 @@ DATE FLD_AF3_DVARSCIV
BEGIN
PROMPT 42 7 "Data variazione "
FIELD LF_ANAGFIS->DVARSCIV
HELP "Indicare la data di variazione dello stato civile"
HELP "Data di variazione dello stato civile"
END
NUMBER FLD_AF1_CODCONIUGE 5
@ -695,13 +701,14 @@ BEGIN
DISPLAY "Cognome e Nome@50" RAGSOC
OUTPUT FLD_AF1_CODCONIUGE CODANAGR
OUTPUT FLD_AF1_CODCONIUGE_ANAGR_RAGSOC RAGSOC
HELP "Inserire il codice del coniuge"
HELP "Codice dell'anagrafica del coniuge"
CHECKTYPE NORMAL
END
STRING FLD_AF1_CODCONIUGE_ANAGR_RAGSOC 50
BEGIN
PROMPT 9 9 ": Nome "
HELP "Nome del coniuge"
GROUP 4
COPY USE FLD_ANAG_RAGSOC1
INPUT TIPOA "F"
@ -716,20 +723,21 @@ BOOLEAN CHK_AF3_SAUB
BEGIN
PROMPT 2 10 "Soggetto SAUB"
FIELD LF_ANAGFIS->SAUB
HELP "Dire se e' soggetto al SAUB"
HELP "Iscrizione al servizio sanitario nazionale"
END
STRING FLD_AF3_ISCRCAF 10
BEGIN
PROMPT 42 10 "Iscrizione CAF "
FIELD LF_ANAGFIS->ISCRCAF
HELP "Indicare il numero di iscrizione al CAF"
HELP "Numero di iscrizione al CAF"
END
BOOLEAN LST_AF3_CPARTRF
BEGIN
PROMPT 2 11 "Casi Particolari Residenza Fiscale"
FIELD LF_ANAGFIS->CPARTRF
HELP "Soggetto a a casi particolari di residenza fiscale"
END
GROUPBOX DLG_NULL 76 4
@ -741,12 +749,13 @@ BOOLEAN F_TITCF
BEGIN
PROMPT 2 14 "Titolare conto fiscale"
FIELD LF_ANAG->TITCF
HELP "Indica se la persona e' titolare di conto fiscale"
HELP "La persona e' titolare di un conto corrente fiscale"
END
LIST F_TIPOSTDEL 12
BEGIN
PROMPT 42 14 "Stampa "
HELP "Tipo di stampa per la regolazione del contenzioso fiscale"
FIELD LF_ANAG->TIPOSTDEL
HELP "Tipo di ducumento da stampare"
ITEM "0|Delega"
@ -757,6 +766,7 @@ END
NUMBER F_CODABI 5
BEGIN
PROMPT 2 15 "Codice ABI "
HELP "Codice ABI della banca di appoggio"
FIELD LF_ANAG->CODABI
FLAGS "RZ"
USE %BAN
@ -772,6 +782,7 @@ END
NUMBER F_CODCAB 5
BEGIN
PROMPT 42 15 "Codice CAB "
HELP "Codice CAB della banca di appoggio"
FIELD LF_ANAG->CODCAB
FLAGS "RZ"
COPY ALL F_CODABI
@ -813,19 +824,20 @@ BOOLEAN CHK_AF4_RESZTERR
BEGIN
PROMPT 2 5 "Residenza in zone terremotate"
FIELD LF_ANAG->RESZTERR
HELP "Indicare se risiede in zona terremotata"
HELP "Residenza della persona fisica in zona dichiarate terremotate"
END
BOOLEAN CHK_AF4_RFDIVERSA
BEGIN
PROMPT 2 6 "Residenza fiscale variata"
FIELD LF_ANAG->RFDIVERSA
HELP "Indicare se e' stata variata la residenza fiscale"
HELP "Indicare se la persona ha variato la residenza fiscale"
END
NUMBER LST_AF4_EVECC 1
BEGIN
PROMPT 36 6 "Eventi di natura eccezionale "
HELP "Codice degli eventi di natura eccezionale"
FIELD LF_ANAG->EVECC
SHEET "Codice|Descrizione@40"
INPUT LST_AF4_EVECC
@ -851,7 +863,7 @@ DATE FLD_AF4_DVARSLORES
BEGIN
PROMPT 36 7 "Data variazione "
FIELD LF_ANAG->DVARSLORES
HELP "Inserire la data di variazione della sede legale o residenza"
HELP "Data di variazione della sede legale o residenza"
END
BOOLEAN CHK_AF4_SOGGNRES
@ -865,7 +877,7 @@ LIST FLD_AF4_RFDIVERSA 28
BEGIN
PROMPT 2 9 "Domicilio fiscale diverso da sede legale "
FIELD LF_ANAG->RFDIVERSA
HELP "Dire se il domicilio fiscale e' diverso della sede legale"
HELP "Descrizione per eventuale domicilio fiscale diverso diverso da sede legale"
ITEM "1|Nessuno"
ITEM "2|Residente all'estero"
ITEM "3|Provvedimento amministrativo"
@ -887,7 +899,7 @@ BEGIN
DISPLAY "Descrizione " S0
OUTPUT FLD_AF5_CODSTAT1 CODTAB
OUTPUT FLD_AF5_CODSTAT1_TABSTT_S0 S0
HELP "Inserire il numero del primo codice statistico"
HELP "Numero del primo codice statistico"
CHECKTYPE NORMAL
WARNING "Codice assente"
END
@ -907,7 +919,7 @@ BEGIN
COPY DISPLAY FLD_AF5_CODSTAT1
OUTPUT FLD_AF5_CODSTAT2 CODTAB
OUTPUT FLD_AF5_CODSTAT2_TABSTT_S0 S0
HELP "Inserire il numero del secondo codice statistico"
HELP "Numero del secondo codice statistico"
CHECKTYPE NORMAL
WARNING "Codice assente"
END
@ -927,7 +939,7 @@ BEGIN
COPY DISPLAY FLD_AF5_CODSTAT1
OUTPUT FLD_AF5_CODSTAT3 CODTAB
OUTPUT FLD_AF5_CODSTAT3_TABSTT_S0 S0
HELP "Inserire il numero del terzo codice statistico"
HELP "Numero del terzo codice statistico"
CHECKTYPE NORMAL
WARNING "Codice assente"
END
@ -1009,6 +1021,7 @@ END
STRING F_DENUFFIIDD 50 48
BEGIN
PROMPT 23 7 " "
HELP "Descrizione dell'ufficio delle imposte dirette competente"
USE %UID KEY 2
INPUT S0 F_DENUFFIIDD
DISPLAY "Denominazione@50" S0
@ -1097,6 +1110,7 @@ STRING F_CODCONTR 8
BEGIN
PROMPT 46 14 "Codice "
FIELD CODCONTR[6,13]
HELP "Codice assegnato al contribuente"
END
STRING F_CODCONTR_CC 2

104
ba/ba4200c.uml
View File

@ -36,6 +36,7 @@ END
NUMBER FLD_CODANAGR 5
BEGIN
PROMPT 2 1 "Codice "
HELP "Codice identificativo della persona fisica"
FIELD LF_ANAG->CODANAGR
FLAGS "RG"
USE LF_ANAG
@ -56,7 +57,7 @@ STRING FLD_AG1_RAGSOC 50
BEGIN
PROMPT 2 2 "Ragione sociale "
FIELD LF_ANAG->RAGSOC
HELP "Ragione sociale della ditta"
HELP "Ragione sociale della persona giuridica"
MESSAGE COPY,2@
FLAGS "G"
WARNING "Inserire la ragione sociale"
@ -100,7 +101,7 @@ STRING FLD_AG1_PAIV 12
BEGIN
PROMPT 2 6 "Codice "
FIELD LF_ANAG->PAIV
HELP "Partita IVA della ditta"
HELP "Partita IVA della persona giuridica"
VALIDATE XTZPI_FUNC FLD_AG1_STATOPAIV FLD_AG1_COMRF FLD_AG2_COMRES
END
@ -109,7 +110,7 @@ BEGIN
PROMPT 46 5 "Codice fiscale "
FIELD LF_ANAG->COFI
FLAGS "U"
HELP "Codice fiscale della ditta"
HELP "Codice fiscale della persona giuridica"
VALIDATE XTZPI_FUNC FLD_AG1_STATOPAIV FLD_AG1_COMRF FLD_AG2_COMRES
USE LF_ANAG KEY 3
INPUT TIPOA "G"
@ -131,7 +132,7 @@ STRING FLD_AG1_OGGSOC 60
BEGIN
PROMPT 2 9 "Oggetto "
FIELD LF_ANAGGIU->OGGSOC
HELP "Oggetto sociale della ditta"
HELP "Oggetto sociale della persona giuridica"
END
STRING FLD_AG1_PERRIF 20
@ -152,7 +153,7 @@ STRING FLD_AG1_SIGLA 20
BEGIN
PROMPT 2 11 "Sigla "
FIELD LF_ANAGGIU->SIGLA
HELP "Indicare la sigla identificativa della ditta"
HELP "Indicare la sigla identificativa della persona giuridica"
END
GROUPBOX DLG_NULL 76 3
@ -207,9 +208,8 @@ STRING FLD_AG2_INDRES 35
BEGIN
PROMPT 2 5 "Indirizzo "
FIELD LF_ANAG->INDRES
HELP "Indirizzo della sede della ditta"
HELP "Indirizzo della sede legale"
WARNING "Completare l'indirizzo di residenza"
CHECKTYPE REQUIRED
END
@ -217,7 +217,7 @@ STRING FLD_AG2_CIVRES 10
BEGIN
PROMPT 56 5 "N."
FIELD LF_ANAG->CIVRES
HELP "Numero civico della ditta"
HELP "Numero civico della sede legale"
END
NUMBER FLD_AG2_STATORES 3
@ -230,7 +230,7 @@ BEGIN
DISPLAY "Codice" CODTAB
DISPLAY "Stato@50" S0
OUTPUT FLD_AG2_STATORES CODTAB
HELP "Codice dello stato sede della ditta"
HELP "Codice dello stato sede"
CHECKTYPE NORMAL
WARNING "Stato assente"
END
@ -249,7 +249,7 @@ BEGIN
OUTPUT FLD_AG2_COMRES_COMUNI_DENCOM DENCOM
OUTPUT FLD_AG2_COMRES_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_AG2_CAPRES CAPCOM
HELP "Codice del comune sede della ditta"
HELP "Codice del comune sede della persoan giuridica"
CHECKTYPE REQUIRED
WARNING "Comune assente"
ADD MASK ba4100a
@ -265,12 +265,13 @@ STRING FLD_AG2_CAPRES 5
BEGIN
PROMPT 56 7 "CAP "
FIELD LF_ANAG->CAPRES
HELP "CAP del comune sede della ditta"
HELP "CAP del comune sede legale"
END
STRING FLD_AG2_COMRES_COMUNI_DENCOM 50
BEGIN
PROMPT 9 8 ": Nome "
HELP "Nome del comune sede legale"
USE LF_COMUNI KEY 2
INPUT DENCOM FLD_AG2_COMRES_COMUNI_DENCOM
#include <comdden.h>
@ -291,7 +292,7 @@ STRING FLD_AG1_INDRF 35
BEGIN
PROMPT 2 11 "Indirizzo "
FIELD LF_ANAG->INDRF
HELP "Indirizzo della residenza fiscale della ditta"
HELP "Indirizzo della residenza fiscale"
WARNING "Completare l'indirizzo di residenza fiscale"
VALIDATE REQIF_FUNC 1 FLD_AG1_COMRF
END
@ -300,7 +301,7 @@ STRING FLD_AG1_CIVRF 10
BEGIN
PROMPT 56 11 "N."
FIELD LF_ANAG->CIVRF
HELP "Numero civico della residenza fiscale della ditta"
HELP "Numero civico della residenza fiscale"
END
NUMBER FLD_AG1_STATORF 3
@ -312,7 +313,7 @@ BEGIN
INPUT CODTAB FLD_AG2_STATORES
COPY DISPLAY FLD_AG2_STATORES
OUTPUT FLD_AG1_STATORF CODTAB
HELP "Codice dello stato residenza fiscale della ditta"
HELP "Codice dello stato residenza fiscale"
CHECKTYPE NORMAL
WARNING "Stato assente"
END
@ -331,7 +332,7 @@ BEGIN
OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM
OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_AG1_CAPRF CAPCOM
HELP "Codice del comune residenza fiscale della ditta"
HELP "Codice del comune residenza fiscale"
CHECKTYPE NORMAL
WARNING "Comune assente"
ADD MASK ba4100a
@ -347,12 +348,13 @@ STRING FLD_AG1_CAPRF 5
BEGIN
PROMPT 56 13 "CAP "
FIELD LF_ANAG->CAPRF
HELP "CAP del comune residenza fiscale della ditta"
HELP "CAP del comune residenza fiscale"
END
STRING FLD_AG1_COMRF_COMUNI_DENCOM 50
BEGIN
PROMPT 9 14 ": Nome "
HELP "Nome del comune residenza fiscale"
USE LF_COMUNI KEY 2
COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
INPUT DENCOM FLD_AG1_COMRF_COMUNI_DENCOM
@ -399,7 +401,7 @@ STRING FLD_AG2_INDCORR 35
BEGIN
PROMPT 2 5 "Indirizzo "
FIELD LF_ANAG->INDCORR
HELP "Indirizzo a cui mandare la corrispondenza della ditta"
HELP "Indirizzo a cui mandare la corrispondenza"
WARNING "Completare l'indirizzo di corrispondenza"
VALIDATE EMPTYCOPY_FUNC FLD_AG2_INDRES
END
@ -408,7 +410,7 @@ STRING FLD_AG2_CIVCORR 10
BEGIN
PROMPT 56 5 "N."
FIELD LF_ANAG->CIVCORR
HELP "Numero civico a cui mandare la corrispondenza della ditta"
HELP "Numero civico a cui mandare la corrispondenza"
VALIDATE EMPTYCOPY_FUNC FLD_AG2_CIVRES
END
@ -464,6 +466,7 @@ END
STRING FLD_AG2_COMCORR_COMUNI_DENCOM 50
BEGIN
PROMPT 9 8 ": Nome "
HELP "Nome del comune a cui mandare la corrispondenza"
COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
INPUT DENCOM FLD_AG2_COMCORR_COMUNI_DENCOM
COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM
@ -485,42 +488,42 @@ STRING FLD_AG2_PTELRF 10
BEGIN
PROMPT 2 11 "Telefono : Prefisso "
FIELD LF_ANAG->PTELRF
HELP "Prefisso telefonico della ditta"
HELP "Prefisso telefonico della persona giuridica"
END
STRING FLD_AG2_TELRF 30
BEGIN
PROMPT 35 11 "Numero "
FIELD LF_ANAG->TELRF
HELP "Numero di telefono della ditta"
HELP "Numero di telefono della persona giuridica"
END
STRING FLD_AG2_PFAXRF 10
BEGIN
PROMPT 2 12 "Telefax : Prefisso "
FIELD LF_ANAG->PFAXRF
HELP "Prefisso del fax della ditta"
HELP "Prefisso del fax della persona giuridica"
END
STRING FLD_AG2_FAXRF 30
BEGIN
PROMPT 35 12 "Numero "
FIELD LF_ANAG->FAXRF
HELP "Numero di telefono della ditta"
HELP "Numero di telefono della persona giuridica"
END
STRING FLD_AG2_PTLEXRF 10
BEGIN
PROMPT 2 13 "Telex : Prefisso "
FIELD LF_ANAG->PTLEXRF
HELP "Prefisso del telex della ditta"
HELP "Prefisso del telex della persona giuridica"
END
STRING FLD_AG2_TLEXRF 30
BEGIN
PROMPT 35 13 "Numero "
FIELD LF_ANAG->TLEXRFX
HELP "Numero del telex della ditta"
HELP "Numero del telex della perosna giuridica"
END
ENDPAGE
@ -570,7 +573,7 @@ BEGIN
#include <comdcod.h>
OUTPUT F_COMCOST COM
OUTPUT F_DENCOMCOST DENCOM
HELP "Codice del comune sede della ditta"
HELP "Codice del comune dove e' stata costituita la societa'"
CHECKTYPE NORMAL
WARNING "Comune assente"
ADD MASK ba4100a
@ -579,6 +582,7 @@ END
STRING F_DENCOMCOST 50 46
BEGIN
PROMPT 26 5 ""
HELP "Nome del comune dove e' stata costituita la societa'"
COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
INPUT DENCOM F_DENCOMCOST
#include <comdden.h>
@ -591,14 +595,14 @@ DATE FLD_AG3_DATACOST
BEGIN
PROMPT 2 6 "Data costituz. "
FIELD LF_ANAGGIU->DATACOST
HELP "Data di costituzione della ditta"
HELP "Data di costituzione della societa'"
END
DATE FLD_AG3_DATAOMOL
BEGIN
PROMPT 31 6 "Data omologa "
FIELD LF_ANAGGIU->DATAOMOL
HELP "Data di omologazione della ditta"
HELP "Data di omologazione della societa'"
WARNING "Data non corretta"
VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST
END
@ -607,7 +611,7 @@ DATE FLD_AG3_DATAISCRIZ
BEGIN
PROMPT 2 7 "Data iscrizione "
FIELD LF_ANAGGIU->DATAISCRIZ
HELP "Data di iscrizione della ditta"
HELP "Data di iscrizione della societa'"
WARNING "Data non corretta"
VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST
END
@ -616,14 +620,14 @@ DATE FLD_AG3_DATASORAMM
BEGIN
PROMPT 31 7 "Data scadenza organo amministr. "
FIELD LF_ANAGGIU->DATASORAMM
HELP "Data di scadenza degli organismi amministrativi"
HELP "Data in cui decadono gli organi amministrativi"
END
DATE FLD_AG3_DATASCAD
BEGIN
PROMPT 2 8 "Data scadenza "
FIELD LF_ANAGGIU->DATASCAD
HELP "Data di scadenza della ditta"
HELP "Data di termine attivita' della societa'"
WARNING "La data di scadenza non puo' precedere quella di costituzione"
VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST
END
@ -632,28 +636,28 @@ DATE FLD_AG3_DATASCSIND
BEGIN
PROMPT 31 8 "Data scadenza collegio sindac. "
FIELD LF_ANAGGIU->DATASCSIND
HELP "Data di scadenza delo collegio sindacale"
HELP "Data in cui decade il colleggio sindacale"
END
DATE FLD_AG3_DATATAPPBI
BEGIN
PROMPT 2 10 "Data termine "
FIELD LF_ANAGGIU->DATATAPPBI
HELP "Data di termine dell'anno che compare sul bilancio"
HELP "Data termine dell'anno che compare sul bilancio"
END
BOOLEAN CHK_AGIU2_VARDEN
BEGIN
PROMPT 29 10 "Variata denominazione"
FIELD LF_ANAGGIU->VARDEN
HELP "Indicare se e' variate la denominazione della ditta"
HELP "Indicare se e' variata la denominazione della persona giuridica"
END
DATE FLD_AG3_DATAAPPBIL
BEGIN
PROMPT 2 11 "Data approv. "
FIELD LF_ANAGGIU->DATAAPPBIL
HELP "Data di approvazione del bilancio della ditta"
HELP "Data di approvazione del bilancio"
END
BOOLEAN CHK_AGIU2_VARRF
@ -694,7 +698,7 @@ BEGIN
SHEET "Codice|Stato@50"
INPUT LST_AG3_STATOSOC
OUTPUT LST_AG3_STATOSOC
HELP "Stato della societa'"
HELP "Stato in cui si trova la societa'"
ITEM " |Sconosciuto"
ITEM "1|Soggetto in normale attivita'"
ITEM "2|Soggetto in liquidazione per cessazione di attivita'"
@ -709,7 +713,7 @@ BEGIN
SHEET "Codice|Situazione@88"
INPUT LST_AG3_SITSOC
OUTPUT LST_AG3_SITSOC
HELP "Situazione della ditta"
HELP "Situazione in cui si trova la societa'"
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"
@ -724,7 +728,7 @@ NUMBER LST_AG3_NATGIU 2
BEGIN
PROMPT 53 15 "Natura Giuridica "
FIELD LF_ANAGGIU->NATGIU
HELP "Natura giuridica della ditta"
HELP "Natura giuridica della societa'"
SHEET "Codice|Natura Giuridica@120"
INPUT LST_AG3_NATGIU
OUTPUT LST_AG3_NATGIU
@ -794,7 +798,7 @@ BEGIN
FIELD LF_ANAGGIU->CAPSOC
FLAGS "R"
PICTURE "."
HELP "Indicare l'importo del capitale sociale della ditta"
HELP "Importo del capitale sociale della ditta"
END
NUMBER FLD_AG4_CAPVER 15
@ -803,7 +807,7 @@ BEGIN
FIELD LF_ANAGGIU->CAPVER
FLAGS "R"
PICTURE "."
HELP "Indicare l'importo del capitale sociale versato della ditta"
HELP "Importo del capitale sociale versato della ditta"
END
NUMBER FLD_AG4_NAZIONI 9
@ -853,14 +857,14 @@ BOOLEAN F_TITCF
BEGIN
PROMPT 2 14 "Titolare conto fiscale"
FIELD LF_ANAG->TITCF
HELP "Dire se e' titolare di conto fiscale"
HELP "Indicare se e' titolare di conto fiscale"
END
LIST F_TIPOSTDEL 12
BEGIN
PROMPT 42 14 "Stampa "
FIELD LF_ANAG->TIPOSTDEL
HELP "Tipo di ducumento da stampare"
HELP "Tipo di documento per i versamenti"
ITEM "0|Delega"
ITEM "1|Bollettino"
ITEM "2|Distinta"
@ -869,6 +873,7 @@ END
NUMBER F_CODABI 5
BEGIN
PROMPT 2 15 "Codice ABI "
HELP "Codice ABI della banca di appoggio"
FIELD LF_ANAG->CODABI
FLAGS "RZ"
USE %BAN
@ -884,6 +889,7 @@ END
NUMBER F_CODCAB 5
BEGIN
PROMPT 42 15 "Codice CAB "
HELP "Codice CAB della banca di appoggio"
FIELD LF_ANAG->CODCAB
FLAGS "RZ"
COPY ALL F_CODABI
@ -947,7 +953,7 @@ DATE DLG_AG5_DVARSLOR
BEGIN
PROMPT 37 6 "Data variazione "
FIELD LF_ANAG->DVARSLORES
HELP "Indicare la data di variazione delle sede legale"
HELP "Data di variazione delle sede legale"
END
BOOLEAN CHK_AG5_RFDSL
@ -1032,35 +1038,35 @@ STRING FLD_AG6_NOTE1 70
BEGIN
PROMPT 3 13 ""
FIELD LF_ANAGGIU->NOTE1
HELP "Indicare le eventuali note relative alla ditta"
HELP "Eventuali note relative alla societa'"
END
STRING FLD_AG6_NOTE2 70
BEGIN
PROMPT 3 14 ""
FIELD LF_ANAGGIU->NOTE2
HELP "Indicare le eventuali note relative alla ditta"
HELP "Eventuali note relative alla societa'"
END
STRING FLD_AG6_NOTE3 70
BEGIN
PROMPT 3 15 ""
FIELD LF_ANAGGIU->NOTE3
HELP "Indicare le eventuali note relative alla ditta"
HELP "Eventuali note relative alla societa'"
END
STRING FLD_AG6_NOTE4 70
BEGIN
PROMPT 3 16 ""
FIELD LF_ANAGGIU->NOTE4
HELP "Indicare le eventuali note relative alla ditta"
HELP "Eventuali note relative alla societa'"
END
STRING FLD_AG6_NOTE5 70
BEGIN
PROMPT 3 17 ""
FIELD LF_ANAGGIU->NOTE5
HELP "Indicare le eventuali note relative alla ditta"
HELP "Eventuali note relative alla societa'"
END
ENDPAGE
@ -1117,7 +1123,7 @@ BEGIN
OUTPUT F_UFFIIDD CODTAB
OUTPUT F_DENUFFIIDD S0
OUTPUT F_CC_ESATTORIA S4
HELP "Numero dell'ufficio delle imposte dirette competente"
HELP "Codice ufficio delle imposte dirette competente"
CHECKTYPE NORMAL
WARNING "Ufficio imposte assente"
END
@ -1125,6 +1131,7 @@ END
STRINF F_DENUFFIIDD 50 48
BEGIN
PROMPT 23 7 " "
HELP "Denominazione ufficio delle imposte dirette competente"
USE %UID KEY 2
INPUT S0 F_DENUFFIIDD
DISPLAY "Denominazione@50" S0
@ -1212,6 +1219,7 @@ END
STRING F_CODCONTR 8
BEGIN
PROMPT 46 14 "Codice "
HELP "Codice contribuente assegnato alla persona giuridica"
FIELD CODCONTR[6,13]
END

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

49
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
@ -256,7 +257,7 @@ BEGIN
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