Maschere di Andrea

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

View File

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

View File

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

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

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

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

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

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