diff --git a/ba/ba4200b.uml b/ba/ba4200b.uml index 25efc1892..acee61646 100755 --- a/ba/ba4200b.uml +++ b/ba/ba4200b.uml @@ -5,14 +5,14 @@ TOOLBAR "" 0 19 0 3 BUTTON DLG_CHGTIP 21 1 BEGIN - PROMPT -13 -3 "Persone Giuridiche" - MESSAGE K_F10 +PROMPT -13 -3 "Persone Giuridiche" +MESSAGE K_F10 END BUTTON DLG_DITTE 8 1 BEGIN - PROMPT -36 -3 "Ditte" - MESSAGE K_F5 +PROMPT -36 -3 "Ditte" +MESSAGE K_F5 END #include @@ -23,234 +23,234 @@ PAGE "Persone Fisiche" -1 -1 77 20 LIST DLG_NULL 1 BEGIN - PROMPT 0 0 "" - FIELD LF_ANAG->TIPOA - FLAGS "HG" - KEY 1 2 3 - ITEM "F|Fisica" +PROMPT 0 0 "" +FIELD LF_ANAG->TIPOA +FLAGS "HG" +KEY 1 2 3 +ITEM "F|Fisica" END GROUPBOX DLG_NULL 76 5 BEGIN - PROMPT 0 0 "Persone fisiche" - FLAGS "RG" +PROMPT 0 0 "Persone fisiche" +FLAGS "RG" END 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 - INPUT TIPOA "F" - INPUT CODANAGR FLD_CODANAGR - DISPLAY "Codice" CODANAGR - DISPLAY "Cognome@30" RAGSOC[1,30] - DISPLAY "Nome@20" RAGSOC[31,0] - DISPLAY "Codice Fiscale@16" COFI - OUTPUT FLD_CODANAGR CODANAGR - OUTPUT FLD_ANAG_RAGSOC1 RAGSOC[1,30] - OUTPUT FLD_ANAG_RAGSOC2 RAGSOC[31,0] - OUTPUT FLD_AF1_COFI COFI - MESSAGE COPY,1@ - CHECKTYPE REQUIRED +PROMPT 2 1 "Codice " +FIELD LF_ANAG->CODANAGR +HELP "Codice assegnato alla persona fisica" +FLAGS "RG" +KEY 1 +USE LF_ANAG +INPUT TIPOA "F" +INPUT CODANAGR FLD_CODANAGR +DISPLAY "Codice" CODANAGR +DISPLAY "Cognome@30" RAGSOC[1,30] +DISPLAY "Nome@20" RAGSOC[31,0] +DISPLAY "Codice Fiscale@16" COFI +OUTPUT FLD_CODANAGR CODANAGR +OUTPUT FLD_ANAG_RAGSOC1 RAGSOC[1,30] +OUTPUT FLD_ANAG_RAGSOC2 RAGSOC[31,0] +OUTPUT FLD_AF1_COFI COFI +MESSAGE COPY,1@ +CHECKTYPE REQUIRED END STRING FLD_ANAG_RAGSOC1 30 BEGIN - PROMPT 2 2 "Cognome " - FIELD LF_ANAG->RAGSOC[1,30] - KEY 2 - USE LF_ANAG KEY 2 - INPUT TIPOA "F" - INPUT RAGSOC[1,30] FLD_ANAG_RAGSOC1 +PROMPT 2 2 "Cognome " +FIELD LF_ANAG->RAGSOC[1,30] +KEY 2 +USE LF_ANAG KEY 2 +INPUT TIPOA "F" +INPUT RAGSOC[1,30] FLD_ANAG_RAGSOC1 // INPUT RAGSOC[31,] FLD_ANAG_RAGSOC2 - DISPLAY "Cognome@30" RAGSOC[1,30] - DISPLAY "Nome@20" RAGSOC[31,0] - DISPLAY "Codice" CODANAGR - DISPLAY "Codice Fiscale@16" COFI - OUTPUT FLD_CODANAGR CODANAGR - OUTPUT FLD_ANAG_RAGSOC1 RAGSOC[1,30] - OUTPUT FLD_ANAG_RAGSOC2 RAGSOC[31,0] - OUTPUT FLD_AF1_COFI COFI - HELP "Cognome della persona fisica" - MESSAGE COPY,2@ - CHECKTYPE REQUIRED - WARNING "Inserire il cognome" +DISPLAY "Cognome@30" RAGSOC[1,30] +DISPLAY "Nome@20" RAGSOC[31,0] +DISPLAY "Codice" CODANAGR +DISPLAY "Codice Fiscale@16" COFI +OUTPUT FLD_CODANAGR CODANAGR +OUTPUT FLD_ANAG_RAGSOC1 RAGSOC[1,30] +OUTPUT FLD_ANAG_RAGSOC2 RAGSOC[31,0] +OUTPUT FLD_AF1_COFI COFI +HELP "Cognome della persona fisica" +MESSAGE COPY,2@ +CHECKTYPE REQUIRED +WARNING "Inserire il cognome" END STRING FLD_ANAG_RAGSOC2 20 BEGIN - PROMPT 2 3 "Nome " - FIELD LF_ANAG->RAGSOC[31,0] - KEY 2 - HELP "Nome della persona fisica" - MESSAGE COPY,3@ - CHECKTYPE REQUIRED +PROMPT 2 3 "Nome " +FIELD LF_ANAG->RAGSOC[31,0] +KEY 2 +HELP "Nome della persona fisica" +MESSAGE COPY,3@ +CHECKTYPE REQUIRED END RADIOBUTTON LST_AF1_SESSO 1 13 BEGIN - PROMPT 0 5 "Sesso" - FIELD LF_ANAGFIS->SESSO - HELP "Sesso della persona fisica" - ITEM "M|Maschio" - ITEM "F|Femmina" +PROMPT 0 5 "Sesso" +FIELD LF_ANAGFIS->SESSO +HELP "Sesso della persona fisica" +ITEM "M|Maschio" +ITEM "F|Femmina" END GROUPBOX DLG_NULL 30 4 BEGIN - PROMPT 13 5 "Partita IVA " +PROMPT 13 5 "Partita IVA " END LIST FLD_AF1_STATOPAIV 18 BEGIN - PROMPT 14 6 "Stato " - FIELD LF_ANAG->STATOPAIV - HELP "Codice dello stato cui si riferisce la partita IVA" - ITEM " |Italia o extra CEE" - ITEM "BE|Belgio" - ITEM "DE|Germania" - ITEM "DK|Danimarca" - ITEM "EL|Grecia" - ITEM "ES|Spagna" - ITEM "FR|Francia" - ITEM "GB|Gran Bretagna" - ITEM "IE|Irlanda" - ITEM "IT|Italia" - ITEM "LU|Lussemburgo" - ITEM "NL|Olanda" - ITEM "PT|Portogallo" +PROMPT 14 6 "Stato " +FIELD LF_ANAG->STATOPAIV +HELP "Codice dello stato cui si riferisce la partita IVA" +ITEM " |Italia o extra CEE" +ITEM "BE|Belgio" +ITEM "DE|Germania" +ITEM "DK|Danimarca" +ITEM "EL|Grecia" +ITEM "ES|Spagna" +ITEM "FR|Francia" +ITEM "GB|Gran Bretagna" +ITEM "IE|Irlanda" +ITEM "IT|Italia" +ITEM "LU|Lussemburgo" +ITEM "NL|Olanda" +ITEM "PT|Portogallo" END STRING FLD_AF1_PAIV 12 BEGIN - PROMPT 14 7 "Codice " - FIELD LF_ANAG->PAIV - HELP "Partita IVA della persona" - VALIDATE XTZPI_FUNC FLD_AF1_STATOPAIV FLD_AF2_COMRF FLD_AF1_COMRES +PROMPT 14 7 "Codice " +FIELD LF_ANAG->PAIV +HELP "Partita IVA della persona" +VALIDATE XTZPI_FUNC FLD_AF1_STATOPAIV FLD_AF2_COMRF FLD_AF1_COMRES END NUMBER F_STATO 3 BEGIN - PROMPT 44 5 "Stato " - FIELD LF_ANAGFIS->STATO - FLAGS "Z" - USE %STA - INPUT CODTAB F_STATO - DISPLAY "Codice" CODTAB - DISPLAY "Stato@50" S0 - OUTPUT F_STATO CODTAB - OUTPUT FLD_AF1_STATONASC_TABSTE_S0 S2 - HELP "Codice dello stato della persona fisica" - CHECKTYPE NORMAL - WARNING "Stato assente" +PROMPT 44 5 "Stato " +FIELD LF_ANAGFIS->STATO +FLAGS "Z" +USE %STA +INPUT CODTAB F_STATO +DISPLAY "Codice" CODTAB +DISPLAY "Stato@50" S0 +OUTPUT F_STATO CODTAB +OUTPUT FLD_AF1_STATONASC_TABSTE_S0 S2 +HELP "Codice dello stato della persona fisica" +CHECKTYPE NORMAL +WARNING "Stato assente" END STRING FLD_AF1_STATONASC_TABSTE_S0 10 BEGIN - PROMPT 44 6 "Nazionalita' " - FIELD LF_ANAGFIS->NAZION - FLAGS "D" - HELP "Nazione di appartenenza della persona fisica" +PROMPT 44 6 "Nazionalita' " +FIELD LF_ANAGFIS->NAZION +FLAGS "D" +HELP "Nazione di appartenenza della persona fisica" END STRING FLD_AF1_COFI 16 BEGIN - PROMPT 44 7 "Codice fiscale " - FIELD LF_ANAG->COFI - FLAGS "U" - KEY 3 - USE LF_ANAG KEY 3 - INPUT TIPOA "F" - INPUT COFI FLD_AF1_COFI - DISPLAY "Codice Fiscale@16" COFI - DISPLAY "Cognome@30" RAGSOC[1,30] - DISPLAY "Nome@20" RAGSOC[31,0] - DISPLAY "Codice" CODANAGR - OUTPUT FLD_CODANAGR CODANAGR - OUTPUT FLD_AF1_COFI COFI - OUTPUT FLD_ANAG_RAGSOC1 RAGSOC[1,30] - OUTPUT FLD_ANAG_RAGSOC2 RAGSOC[31,0] - HELP "Codice fiscale della persona fisica" - CHECKTYPE REQUIRED - VALIDATE XTCF_FUNC FLD_AF1_STATOPAIV LST_AF1_SESSO FLD_AF1_DATANASC FLD_AF1_COMNASC +PROMPT 44 7 "Codice fiscale " +FIELD LF_ANAG->COFI +FLAGS "U" +KEY 3 +USE LF_ANAG KEY 3 +INPUT TIPOA "F" +INPUT COFI FLD_AF1_COFI +DISPLAY "Codice Fiscale@16" COFI +DISPLAY "Cognome@30" RAGSOC[1,30] +DISPLAY "Nome@20" RAGSOC[31,0] +DISPLAY "Codice" CODANAGR +OUTPUT FLD_CODANAGR CODANAGR +OUTPUT FLD_AF1_COFI COFI +OUTPUT FLD_ANAG_RAGSOC1 RAGSOC[1,30] +OUTPUT FLD_ANAG_RAGSOC2 RAGSOC[31,0] +HELP "Codice fiscale della persona fisica" +CHECKTYPE REQUIRED +VALIDATE XTCF_FUNC FLD_AF1_STATOPAIV LST_AF1_SESSO FLD_AF1_DATANASC FLD_AF1_COMNASC END STRING F_COFIEST 20 BEGIN - PROMPT 44 8 "C.F.estero " - FLAGS "U" - FIELD LF_ANAG->COFIEST +PROMPT 44 8 "C.F.estero " +FLAGS "U" +FIELD LF_ANAG->COFIEST END GROUPBOX DLG_NULL 76 6 BEGIN - PROMPT 0 9 "Dati di nascita" +PROMPT 0 9 "Dati di nascita" END DATE FLD_AF1_DATANASC BEGIN - PROMPT 2 10 "Data " - FIELD LF_ANAGFIS->DATANASC - HELP "Data di nascita della persona fisica" - WARNING "La data di nascita e' obbligatoria" - CHECKTYPE REQUIRED +PROMPT 2 10 "Data " +FIELD LF_ANAGFIS->DATANASC +HELP "Data di nascita della persona fisica" +WARNING "La data di nascita e' obbligatoria" +CHECKTYPE REQUIRED END STRING FLD_AF1_COMNASC 4 BEGIN - PROMPT 2 11 "Comune : Codice " - FIELD LF_ANAGFIS->COMNASC - FLAGS "U" - USE LF_COMUNI - INPUT STATO "" - INPUT COM FLD_AF1_COMNASC +PROMPT 2 11 "Comune : Codice " +FIELD LF_ANAGFIS->COMNASC +FLAGS "U" +USE LF_COMUNI +INPUT STATO "" +INPUT COM FLD_AF1_COMNASC #include - OUTPUT FLD_AF1_COMNASC COM - OUTPUT FLD_AFIS_COMNASC_COMUNI_DENCOM DENCOM - OUTPUT FLD_AFIS_COMNASC_COMUNI_PROV PROVCOM - HELP "Codice del comune di nascita della persona fisica" - CHECKTYPE REQUIRED - WARNING "Comune assente" - ADD RUN ba4 -0 +OUTPUT FLD_AF1_COMNASC COM +OUTPUT FLD_AFIS_COMNASC_COMUNI_DENCOM DENCOM +OUTPUT FLD_AFIS_COMNASC_COMUNI_PROV PROVCOM +HELP "Codice del comune di nascita della persona fisica" +CHECKTYPE REQUIRED +WARNING "Comune assente" +ADD RUN ba4 -0 END STRING FLD_AFIS_COMNASC_COMUNI_DENCOM 50 BEGIN - PROMPT 9 12 ": Denom. " - HELP "Nome del comune di nascita della persona fisica" - USE LF_COMUNI KEY 2 SELECT STATO=="" - INPUT DENCOM FLD_AFIS_COMNASC_COMUNI_DENCOM +PROMPT 9 12 ": Denom. " +HELP "Nome del comune di nascita della persona fisica" +USE LF_COMUNI KEY 2 SELECT STATO=="" +INPUT DENCOM FLD_AFIS_COMNASC_COMUNI_DENCOM #include - COPY OUTPUT FLD_AF1_COMNASC - ADD RUN ba4 -0 +COPY OUTPUT FLD_AF1_COMNASC +ADD RUN ba4 -0 END STRING FLD_AFIS_COMNASC_COMUNI_PROV 5 BEGIN - PROMPT 2 13 "Provincia " - FLAGS "D" +PROMPT 2 13 "Provincia " +FLAGS "D" END GROUPBOX DLG_NULL 76 3 BEGIN - PROMPT 0 15 "Ultimo aggiornamento" +PROMPT 0 15 "Ultimo aggiornamento" END DATE FLD_ANAG_DATAAGG BEGIN - PROMPT 2 16 "Data " - FIELD LF_ANAG->DATAAGG - FLAGS "DA" +PROMPT 2 16 "Data " +FIELD LF_ANAG->DATAAGG +FLAGS "DA" END STRING FLD_ANAG_UTAGG 10 BEGIN - PROMPT 56 16 "Utente " - FLAGS "D" +PROMPT 56 16 "Utente " +FLAGS "D" END ENDPAGE @@ -259,204 +259,204 @@ PAGE "Anagrafica persone fisiche" -1 -1 77 20 GROUPBOX DLG_NULL 76 5 BEGIN - PROMPT 0 0 "Persone fisiche" - FLAGS "R" +PROMPT 0 0 "Persone fisiche" +FLAGS "R" END NUMBER DLG_NULL 5 BEGIN - PROMPT 2 1 "Codice " - FIELD LF_ANAGFIS->CODANAGR - FLAGS "DR" - GROUP 1 +PROMPT 2 1 "Codice " +FIELD LF_ANAGFIS->CODANAGR +FLAGS "DR" +GROUP 1 END STRING DLG_NULL 30 BEGIN - PROMPT 2 2 "Cognome " - FLAGS "D" - GROUP 2 +PROMPT 2 2 "Cognome " +FLAGS "D" +GROUP 2 END STRING DLG_NULL 20 BEGIN - PROMPT 2 3 "Nome " - FLAGS "D" - GROUP 3 +PROMPT 2 3 "Nome " +FLAGS "D" +GROUP 3 END GROUPBOX DLG_NULL 76 7 BEGIN - PROMPT 0 5 "Residenza" +PROMPT 0 5 "Residenza" END STRING FLD_AF1_INDRES 35 BEGIN - PROMPT 2 6 "Indirizzo " - FIELD LF_ANAG->INDRES - HELP "Indirizzo della residenza" - WARNING "Completare l'indirizzo di residenza" +PROMPT 2 6 "Indirizzo " +FIELD LF_ANAG->INDRES +HELP "Indirizzo della residenza" +WARNING "Completare l'indirizzo di residenza" // VALIDATE REQIF_FUNC 1 FLD_AF1_COMRES - CHECKTYPE REQUIRED +CHECKTYPE REQUIRED END STRING FLD_AF1_CIVRES 10 BEGIN - PROMPT 56 6 "N." - FIELD LF_ANAG->CIVRES - HELP "Numero civico della residenza" +PROMPT 56 6 "N." +FIELD LF_ANAG->CIVRES +HELP "Numero civico della residenza" END NUMBER F_STATORES 3 BEGIN - PROMPT 2 7 "Comune : Stato " - FIELD LF_ANAG->STATORES - FLAGS "Z" - COPY USE F_STATO - INPUT CODTAB F_STATORES - COPY DISPLAY F_STATO - OUTPUT F_STATORES CODTAB - HELP "Codice dello stato di residenza" - CHECKTYPE NORMAL - WARNING "Stato assente" +PROMPT 2 7 "Comune : Stato " +FIELD LF_ANAG->STATORES +FLAGS "Z" +COPY USE F_STATO +INPUT CODTAB F_STATORES +COPY DISPLAY F_STATO +OUTPUT F_STATORES CODTAB +HELP "Codice dello stato di residenza" +CHECKTYPE NORMAL +WARNING "Stato assente" END STRING FLD_AF1_COMRES 4 BEGIN - PROMPT 9 8 ": Codice " - FIELD LF_ANAG->COMRES - FLAGS "U" - COPY USE FLD_AF1_COMNASC - INPUT STATO F_STATORES - INPUT COM FLD_AF1_COMRES - COPY DISPLAY FLD_AF1_COMNASC - OUTPUT F_STATORES STATO - OUTPUT FLD_AF1_COMRES COM - OUTPUT FLD_AF1_COMRES_COMUNI_DENCOM DENCOM - OUTPUT FLD_AF1_COMRES_COMUNI_PROVCOM PROVCOM - OUTPUT FLD_ANAG_CAPRES CAPCOM - HELP "Codice del comune di residenza" - CHECKTYPE REQUIRED - WARNING "Comune assente" - ADD RUN ba4 -0 +PROMPT 9 8 ": Codice " +FIELD LF_ANAG->COMRES +FLAGS "U" +COPY USE FLD_AF1_COMNASC +INPUT STATO F_STATORES +INPUT COM FLD_AF1_COMRES +COPY DISPLAY FLD_AF1_COMNASC +OUTPUT F_STATORES STATO +OUTPUT FLD_AF1_COMRES COM +OUTPUT FLD_AF1_COMRES_COMUNI_DENCOM DENCOM +OUTPUT FLD_AF1_COMRES_COMUNI_PROVCOM PROVCOM +OUTPUT FLD_ANAG_CAPRES CAPCOM +HELP "Codice del comune di residenza" +CHECKTYPE REQUIRED +WARNING "Comune assente" +ADD RUN ba4 -0 END STRING FLD_AF1_COMRES_COMUNI_PROVCOM 5 BEGIN - PROMPT 38 8 "Provincia " - FLAGS "D" +PROMPT 38 8 "Provincia " +FLAGS "D" END STRING FLD_ANAG_CAPRES 5 BEGIN - PROMPT 56 8 "CAP " - FIELD LF_ANAG->CAPRES - HELP "CAP del comune di residenza" +PROMPT 56 8 "CAP " +FIELD LF_ANAG->CAPRES +HELP "CAP del comune di residenza" END STRING FLD_AF1_COMRES_COMUNI_DENCOM 50 BEGIN - PROMPT 9 9 ": Denom. " - HELP "Nome del comune di residenza" - USE LF_COMUNI KEY 2 - INPUT DENCOM FLD_AF1_COMRES_COMUNI_DENCOM - COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM - OUTPUT F_STATORES STATO - OUTPUT FLD_AF1_COMRES COM - OUTPUT FLD_AF1_COMRES_COMUNI_DENCOM DENCOM - OUTPUT FLD_AF1_COMRES_COMUNI_PROVCOM PROVCOM - OUTPUT FLD_ANAG_CAPRES CAPCOM - ADD RUN ba4 -0 +PROMPT 9 9 ": Denom. " +HELP "Nome del comune di residenza" +USE LF_COMUNI KEY 2 +INPUT DENCOM FLD_AF1_COMRES_COMUNI_DENCOM +COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM +OUTPUT F_STATORES STATO +OUTPUT FLD_AF1_COMRES COM +OUTPUT FLD_AF1_COMRES_COMUNI_DENCOM DENCOM +OUTPUT FLD_AF1_COMRES_COMUNI_PROVCOM PROVCOM +OUTPUT FLD_ANAG_CAPRES CAPCOM +ADD RUN ba4 -0 END BOOLEAN CHK_AF4_SOGGNRES BEGIN - PROMPT 2 10 "Non residente" - FIELD LF_ANAG->SOGGNRES - HELP "Dire se si tratta di persone non residente" +PROMPT 2 10 "Non residente" +FIELD LF_ANAG->SOGGNRES +HELP "Dire se si tratta di persone non residente" END BOOLEAN F_VARSLORES BEGIN - PROMPT 21 10 "Variata" - FIELD LF_ANAG->VARSLORES - HELP "Indicare se e' stata variata la sede legale" - MESSAGE FALSE CLEAR,F_DVARSLORES - MESSAGE TRUE ENABLE,F_DVARSLORES +PROMPT 21 10 "Variata" +FIELD LF_ANAG->VARSLORES +HELP "Indicare se e' stata variata la sede legale" +MESSAGE FALSE CLEAR,F_DVARSLORES +MESSAGE TRUE ENABLE,F_DVARSLORES END DATE F_DVARSLORES BEGIN - PROMPT 38 10 "Data variazione " - FIELD LF_ANAG->DVARSLORES - HELP "Data di variazione della sede legale" +PROMPT 38 10 "Data variazione " +FIELD LF_ANAG->DVARSLORES +HELP "Data di variazione della sede legale" END GROUPBOX DLG_NULL 76 6 BEGIN - PROMPT 0 12 "Domicilio Fiscale (solo se diverso)" +PROMPT 0 12 "Domicilio Fiscale (solo se diverso)" END STRING FLD_AF2_INDRF 35 BEGIN - PROMPT 2 13 "Indirizzo " - FIELD LF_ANAG->INDRF - HELP "Inserire l'indirizzo del domicilio fiscale" - WARNING "Completare l'indirizzo di domicilio fiscale" - VALIDATE REQIF_FUNC 1 FLD_AF2_COMRF +PROMPT 2 13 "Indirizzo " +FIELD LF_ANAG->INDRF +HELP "Inserire l'indirizzo del domicilio fiscale" +WARNING "Completare l'indirizzo di domicilio fiscale" +VALIDATE REQIF_FUNC 1 FLD_AF2_COMRF END STRING FLD_AF2_CIVRF 10 BEGIN - PROMPT 56 13 "N." - FIELD LF_ANAG->CIVRF - HELP "Inserire il numero civico della domicilio fiscale" +PROMPT 56 13 "N." +FIELD LF_ANAG->CIVRF +HELP "Inserire il numero civico della domicilio fiscale" END STRING FLD_AF2_COMRF 4 BEGIN - PROMPT 2 14 "Comune : Codice " - FIELD LF_ANAG->COMRF - FLAGS "U" - COPY USE FLD_AF1_COMNASC - INPUT STATO "" - INPUT COM FLD_AF2_COMRF - COPY DISPLAY FLD_AF1_COMNASC - OUTPUT FLD_AF2_COMRF COM - 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 domicilio fiscale" - CHECKTYPE NORMAL - WARNING "Comune assente" - ADD RUN ba4 -0 +PROMPT 2 14 "Comune : Codice " +FIELD LF_ANAG->COMRF +FLAGS "U" +COPY USE FLD_AF1_COMNASC +INPUT STATO "" +INPUT COM FLD_AF2_COMRF +COPY DISPLAY FLD_AF1_COMNASC +OUTPUT FLD_AF2_COMRF COM +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 domicilio fiscale" +CHECKTYPE NORMAL +WARNING "Comune assente" +ADD RUN ba4 -0 END STRING FLD_AF2_COMRF_COMUNI_PROVCOM 5 BEGIN - PROMPT 38 14 "Provincia " - FLAGS "D" +PROMPT 38 14 "Provincia " +FLAGS "D" END STRING FLD_AF2_CAPRF 5 BEGIN - PROMPT 56 14 "CAP " - FIELD LF_ANAG->CAPRF - HELP "Inserire il CAP del comune di domicilio fiscale" +PROMPT 56 14 "CAP " +FIELD LF_ANAG->CAPRF +HELP "Inserire il CAP del comune di domicilio fiscale" END STRING FLD_AF2_COMRF_COMUNI_DENCOM 50 BEGIN - PROMPT 9 15 ": Denom. " - 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 - OUTPUT FLD_AF2_COMRF COM - OUTPUT FLD_AF2_COMRF_COMUNI_DENCOM DENCOM - OUTPUT FLD_AF2_COMRF_COMUNI_PROVCOM PROVCOM - OUTPUT FLD_AF2_CAPRF CAPCOM - ADD RUN ba4 -0 +PROMPT 9 15 ": Denom. " +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 +OUTPUT FLD_AF2_COMRF COM +OUTPUT FLD_AF2_COMRF_COMUNI_DENCOM DENCOM +OUTPUT FLD_AF2_COMRF_COMUNI_PROVCOM PROVCOM +OUTPUT FLD_AF2_CAPRF CAPCOM +ADD RUN ba4 -0 END ENDPAGE @@ -465,170 +465,170 @@ PAGE "Anagrafica persone fisiche" -1 -1 77 20 GROUPBOX DLG_NULL 76 5 BEGIN - PROMPT 0 0 "Persone fisiche" - FLAGS "R" +PROMPT 0 0 "Persone fisiche" +FLAGS "R" END NUMBER DLG_NULL 5 BEGIN - PROMPT 2 1 "Codice " - FIELD LF_ANAGFIS->CODANAGR - FLAGS "DR" - GROUP 1 +PROMPT 2 1 "Codice " +FIELD LF_ANAGFIS->CODANAGR +FLAGS "DR" +GROUP 1 END STRING DLG_NULL 30 BEGIN - PROMPT 2 2 "Cognome " - FLAGS "D" - GROUP 2 +PROMPT 2 2 "Cognome " +FLAGS "D" +GROUP 2 END STRING DLG_NULL 20 BEGIN - PROMPT 2 3 "Nome " - FLAGS "D" - GROUP 3 +PROMPT 2 3 "Nome " +FLAGS "D" +GROUP 3 END GROUPBOX DLG_NULL 76 7 BEGIN - PROMPT 0 5 "Corrispondenza" +PROMPT 0 5 "Corrispondenza" END STRING FLD_AF2_INDCORR 35 BEGIN - PROMPT 2 6 "Indirizzo " - FIELD LF_ANAG->INDCORR - HELP "Indirizzo al quale spedire la corrispondenza" - WARNING "Completare l'indirizzo di corrispondenza" - VALIDATE EMPTYCOPY_FUNC FLD_AF1_INDRES +PROMPT 2 6 "Indirizzo " +FIELD LF_ANAG->INDCORR +HELP "Indirizzo al quale spedire la corrispondenza" +WARNING "Completare l'indirizzo di corrispondenza" +VALIDATE EMPTYCOPY_FUNC FLD_AF1_INDRES END STRING FLD_AF2_CIVCORR 10 BEGIN - PROMPT 56 6 "N." - FIELD LF_ANAG->CIVCORR - HELP "Numero civico al quale spedire la corrispondenza" - VALIDATE EMPTYCOPY_FUNC FLD_AF1_CIVRES +PROMPT 56 6 "N." +FIELD LF_ANAG->CIVCORR +HELP "Numero civico al quale spedire la corrispondenza" +VALIDATE EMPTYCOPY_FUNC FLD_AF1_CIVRES END STRING F_LOCCORR 35 BEGIN - PROMPT 2 7 "Localita' " - FIELD LF_ANAG->LOCCORR - HELP "Localita' in cui spedire la corrispondenza" +PROMPT 2 7 "Localita' " +FIELD LF_ANAG->LOCCORR +HELP "Localita' in cui spedire la corrispondenza" END NUMBER FLD_AF2_STATOCORR 3 BEGIN - PROMPT 2 8 "Comune : Stato " - FIELD LF_ANAG->STATOCORR - FLAGS "Z" - COPY USE F_STATO - INPUT CODTAB FLD_AF2_STATOCORR - COPY DISPLAY F_STATO - OUTPUT FLD_AF2_STATOCORR CODTAB - HELP "Codice dello stato al quale spedire la corrispondenza" - CHECKTYPE NORMAL - WARNING "Stato assente" +PROMPT 2 8 "Comune : Stato " +FIELD LF_ANAG->STATOCORR +FLAGS "Z" +COPY USE F_STATO +INPUT CODTAB FLD_AF2_STATOCORR +COPY DISPLAY F_STATO +OUTPUT FLD_AF2_STATOCORR CODTAB +HELP "Codice dello stato al quale spedire la corrispondenza" +CHECKTYPE NORMAL +WARNING "Stato assente" END STRING FLD_AF2_COMCORR 4 BEGIN - PROMPT 9 9 ": Codice " - FIELD LF_ANAG->COMCORR - FLAGS "U" - COPY USE FLD_AF1_COMNASC - INPUT STATO FLD_AF2_STATOCORR - INPUT COM FLD_AF2_COMCORR - COPY DISPLAY FLD_AF1_COMNASC - OUTPUT FLD_AF2_STATOCORR STATO - OUTPUT FLD_AF2_COMCORR COM - OUTPUT FLD_AF2_COMCORR_COMUNI_DENCOM DENCOM - OUTPUT FLD_AF2_COMCORR_COMUNI_PROVCOM PROVCOM - OUTPUT FLD_AF2_CAPCORR CAPCOM - HELP "Codice del comune al quale spedire la corrispondenza" - CHECKTYPE NORMAL - ADD RUN ba4 -0 - WARNING "Comune assente" +PROMPT 9 9 ": Codice " +FIELD LF_ANAG->COMCORR +FLAGS "U" +COPY USE FLD_AF1_COMNASC +INPUT STATO FLD_AF2_STATOCORR +INPUT COM FLD_AF2_COMCORR +COPY DISPLAY FLD_AF1_COMNASC +OUTPUT FLD_AF2_STATOCORR STATO +OUTPUT FLD_AF2_COMCORR COM +OUTPUT FLD_AF2_COMCORR_COMUNI_DENCOM DENCOM +OUTPUT FLD_AF2_COMCORR_COMUNI_PROVCOM PROVCOM +OUTPUT FLD_AF2_CAPCORR CAPCOM +HELP "Codice del comune al quale spedire la corrispondenza" +CHECKTYPE NORMAL +ADD RUN ba4 -0 +WARNING "Comune assente" END STRING FLD_AF2_COMCORR_COMUNI_PROVCOM 5 BEGIN - PROMPT 38 9 "Provincia " - FLAGS "D" - VALIDATE EMPTYCOPY_FUNC FLD_AF1_COMRES_COMUNI_PROVCOM +PROMPT 38 9 "Provincia " +FLAGS "D" +VALIDATE EMPTYCOPY_FUNC FLD_AF1_COMRES_COMUNI_PROVCOM END STRING FLD_AF2_CAPCORR 5 BEGIN - PROMPT 56 9 "CAP " - FIELD LF_ANAG->CAPCORR - HELP "CAP del comune al quale spedire la corrispondenza" +PROMPT 56 9 "CAP " +FIELD LF_ANAG->CAPCORR +HELP "CAP del comune al quale spedire la corrispondenza" END STRING FLD_AF2_COMCORR_COMUNI_DENCOM 50 BEGIN - PROMPT 9 10 ": Denom. " - HELP "Nome del comune al quale spedire la corrispondenza" - COPY USE FLD_AF1_COMRES_COMUNI_DENCOM - INPUT DENCOM FLD_AF2_COMCORR_COMUNI_DENCOM - COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM - OUTPUT FLD_AF2_STATOCORR STATO - OUTPUT FLD_AF2_COMCORR COM - OUTPUT FLD_AF2_COMCORR_COMUNI_DENCOM DENCOM - OUTPUT FLD_AF2_COMCORR_COMUNI_PROVCOM PROVCOM - OUTPUT FLD_AF2_CAPCORR CAPCOM - ADD RUN ba4 -0 - VALIDATE EMPTYCOPY_FUNC FLD_AF1_COMRES_COMUNI_DENCOM +PROMPT 9 10 ": Denom. " +HELP "Nome del comune al quale spedire la corrispondenza" +COPY USE FLD_AF1_COMRES_COMUNI_DENCOM +INPUT DENCOM FLD_AF2_COMCORR_COMUNI_DENCOM +COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM +OUTPUT FLD_AF2_STATOCORR STATO +OUTPUT FLD_AF2_COMCORR COM +OUTPUT FLD_AF2_COMCORR_COMUNI_DENCOM DENCOM +OUTPUT FLD_AF2_COMCORR_COMUNI_PROVCOM PROVCOM +OUTPUT FLD_AF2_CAPCORR CAPCOM +ADD RUN ba4 -0 +VALIDATE EMPTYCOPY_FUNC FLD_AF1_COMRES_COMUNI_DENCOM END GROUPBOX DLG_NULL 76 5 BEGIN - PROMPT 0 12 "Telefoni" +PROMPT 0 12 "Telefoni" END STRING FLD_AF2_PTELRF 10 BEGIN - PROMPT 2 13 "Telefono : Prefisso " - FIELD LF_ANAG->PTELRF - HELP "Prefisso del numero di telefono" +PROMPT 2 13 "Telefono : Prefisso " +FIELD LF_ANAG->PTELRF +HELP "Prefisso del numero di telefono" END STRING FLD_AF2_TELRF 30 BEGIN - PROMPT 36 13 "Numero " - FIELD LF_ANAG->TELRF - HELP "Numero di telefono" +PROMPT 36 13 "Numero " +FIELD LF_ANAG->TELRF +HELP "Numero di telefono" END STRING FLD_AF2_PFAXRF 10 BEGIN - PROMPT 2 14 "Telefax : Prefisso " - FIELD LF_ANAG->PFAXRF - HELP "Prefisso del FAX" +PROMPT 2 14 "Telefax : Prefisso " +FIELD LF_ANAG->PFAXRF +HELP "Prefisso del FAX" END STRING FLD_AF2_FAXRF 30 BEGIN - PROMPT 36 14 "Numero " - FIELD LF_ANAG->FAXRF - HELP "Numero del FAX" +PROMPT 36 14 "Numero " +FIELD LF_ANAG->FAXRF +HELP "Numero del FAX" END STRING FLD_AF2_PTLEXRF 10 BEGIN - PROMPT 2 15 "Telex : Prefisso " - FIELD LF_ANAG->PTLEXRF - HELP "Prefisso del telex" +PROMPT 2 15 "Telex : Prefisso " +FIELD LF_ANAG->PTLEXRF +HELP "Prefisso del telex" END STRING FLD_AF2_TLEXRF 30 BEGIN - PROMPT 36 15 "Numero " - FIELD LF_ANAG->TLEXRFX - HELP "Numero del telex" +PROMPT 36 15 "Numero " +FIELD LF_ANAG->TLEXRFX +HELP "Numero del telex" END ENDPAGE @@ -637,202 +637,177 @@ PAGE "Anagrafica persone fisiche" -1 -1 77 20 GROUPBOX DLG_NULL 76 5 BEGIN - PROMPT 0 0 "Persone fisiche" - FLAGS "R" +PROMPT 0 0 "Persone fisiche" +FLAGS "R" END NUMBER DLG_NULL 5 BEGIN - PROMPT 2 1 "Codice " - FIELD LF_ANAGFIS->CODANAGR - FLAGS "DR" - GROUP 1 +PROMPT 2 1 "Codice " +FIELD LF_ANAGFIS->CODANAGR +FLAGS "DR" +GROUP 1 END STRING DLG_NULL 30 BEGIN - PROMPT 2 2 "Cognome " - FLAGS "D" - GROUP 2 +PROMPT 2 2 "Cognome " +FLAGS "D" +GROUP 2 END STRING DLG_NULL 20 BEGIN - PROMPT 2 3 "Nome " - FLAGS "D" - GROUP 3 +PROMPT 2 3 "Nome " +FLAGS "D" +GROUP 3 END GROUPBOX DLG_NULL 76 8 BEGIN - PROMPT 0 5 "Dati personali" +PROMPT 0 5 "Dati personali" END LIST LST_AF3_TITSTU 18 BEGIN - PROMPT 2 6 "Titolo Studio " - FIELD LF_ANAGFIS->TITSTU - HELP "Tipo di titolo di studio posseduto" - ITEM "1|Nessuno" - ITEM "2|Licenza elementare" - ITEM "3|Licenza media" - ITEM "4|Diploma" - ITEM "5|Laurea" +PROMPT 2 6 "Titolo Studio " +FIELD LF_ANAGFIS->TITSTU +HELP "Tipo di titolo di studio posseduto" +ITEM "1|Nessuno" +ITEM "2|Licenza elementare" +ITEM "3|Licenza media" +ITEM "4|Diploma" +ITEM "5|Laurea" END LIST LST_AF3_STATCIV 20 BEGIN - PROMPT 2 7 "Stato civile " - FIELD LF_ANAGFIS->STATCIV - HELP "Stato civile della persona fisica" - ITEM "1|Celibe/Nubile" - MESSAGE DISABLE,4@|RESET,4@ - ITEM "2|Coniugato/a" - MESSAGE ENABLE,4@ - ITEM "3|Vedovo/a" - MESSAGE ENABLE,4@ - ITEM "4|Separato/a" - MESSAGE ENABLE,4@ - ITEM "5|Divorziato/a" - MESSAGE DISABLE,4@|RESET,4@ - ITEM "6|Deceduto/a" - MESSAGE ENABLE,4@ - ITEM "7|Tutelato/a" - MESSAGE ENABLE,4@ - ITEM "8|Figlio/a minore" - MESSAGE DISABLE,4@|RESET,4@ +PROMPT 2 7 "Stato civile " +FIELD LF_ANAGFIS->STATCIV +HELP "Stato civile della persona fisica" +ITEM "1|Celibe/Nubile" +MESSAGE DISABLE,4@|RESET,4@ +ITEM "2|Coniugato/a" +MESSAGE ENABLE,4@ +ITEM "3|Vedovo/a" +MESSAGE ENABLE,4@ +ITEM "4|Separato/a" +MESSAGE ENABLE,4@ +ITEM "5|Divorziato/a" +MESSAGE DISABLE,4@|RESET,4@ +ITEM "6|Deceduto/a" +MESSAGE ENABLE,4@ +ITEM "7|Tutelato/a" +MESSAGE ENABLE,4@ +ITEM "8|Figlio/a minore" +MESSAGE DISABLE,4@|RESET,4@ END DATE FLD_AF3_DVARSCIV BEGIN - PROMPT 42 7 "Data variazione " - FIELD LF_ANAGFIS->DVARSCIV - HELP "Data di variazione dello stato civile" +PROMPT 42 7 "Data variazione " +FIELD LF_ANAGFIS->DVARSCIV +HELP "Data di variazione dello stato civile" END NUMBER FLD_AF1_CODCONIUGE 5 BEGIN - PROMPT 2 8 "Coniuge: Codice " - FIELD LF_ANAGFIS->CODCONIUGE - FLAGS "R" - GROUP 4 - COPY USE FLD_CODANAGR - INPUT TIPOA "F" - INPUT CODANAGR FLD_AF1_CODCONIUGE - DISPLAY "Codice" CODANAGR - DISPLAY "Cognome e Nome@50" RAGSOC - OUTPUT FLD_AF1_CODCONIUGE CODANAGR - OUTPUT FLD_AF1_CODCONIUGE_ANAGR_RAGSOC RAGSOC - HELP "Codice dell'anagrafica del coniuge" - CHECKTYPE NORMAL +PROMPT 2 8 "Coniuge: Codice " +FIELD LF_ANAGFIS->CODCONIUGE +FLAGS "R" +GROUP 4 +COPY USE FLD_CODANAGR +INPUT TIPOA "F" +INPUT CODANAGR FLD_AF1_CODCONIUGE +DISPLAY "Codice" CODANAGR +DISPLAY "Cognome e Nome@50" RAGSOC +OUTPUT FLD_AF1_CODCONIUGE CODANAGR +OUTPUT FLD_AF1_CODCONIUGE_ANAGR_RAGSOC RAGSOC +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" - INPUT RAGSOC FLD_AF1_CODCONIUGE_ANAGR_RAGSOC - DISPLAY "Cognome e Nome@50" RAGSOC - DISPLAY "Codice" CODANAGR - COPY OUTPUT FLD_AF1_CODCONIUGE - CHECKTYPE NORMAL +PROMPT 9 9 ": Nome " +HELP "Nome del coniuge" +GROUP 4 +COPY USE FLD_ANAG_RAGSOC1 +INPUT TIPOA "F" +INPUT RAGSOC FLD_AF1_CODCONIUGE_ANAGR_RAGSOC +DISPLAY "Cognome e Nome@50" RAGSOC +DISPLAY "Codice" CODANAGR +COPY OUTPUT FLD_AF1_CODCONIUGE +CHECKTYPE NORMAL END BOOLEAN CHK_AF3_SAUB BEGIN - PROMPT 2 10 "Soggetto SAUB" - FIELD LF_ANAGFIS->SAUB - HELP "Iscrizione al servizio sanitario nazionale" +PROMPT 2 10 "Soggetto SAUB" +FIELD LF_ANAGFIS->SAUB +HELP "Iscrizione al servizio sanitario nazionale" END -STRING 883 8 -BEGIN - PROMPT 32 10 "Firma " - USE LF_GOLEM - INPUT CLASSE "BITMAP" - INPUT CHIAVE 883 - DISPLAY "Codice@8" CHIAVE - DISPLAY "Descrizione@50" DESC - OUTPUT 883 CHIAVE - CHECKTYPE NORMAL -END - -STRING 884 8 -BEGIN - PROMPT 52 10 "Voce " - USE LF_GOLEM - INPUT CLASSE "SOUND" - INPUT CHIAVE 884 - DISPLAY "Codice@8" CHIAVE - DISPLAY "Descrizione@50" DESC - OUTPUT 884 CHIAVE - CHECKTYPE NORMAL -END - - LIST LST_AF3_CPARTRF 28 BEGIN - PROMPT 2 11 "Casi Particolari Domicilio Fiscale " - FIELD LF_ANAGFIS->CPARTRF - ITEM "1|Nessuno" - ITEM "2|Residente all'estero" - ITEM "3|Provvedimento amministrativo" - ITEM "4|Variato da meno di 60gg" - HELP "Soggetto a a casi particolari di residenza fiscale" +PROMPT 2 11 "Casi Particolari Domicilio Fiscale " +FIELD LF_ANAGFIS->CPARTRF +ITEM "1|Nessuno" +ITEM "2|Residente all'estero" +ITEM "3|Provvedimento amministrativo" +ITEM "4|Variato da meno di 60gg" +HELP "Soggetto a a casi particolari di residenza fiscale" END GROUPBOX DLG_NULL 76 4 BEGIN - PROMPT 0 13 "Dati conto fiscale" +PROMPT 0 13 "Dati conto fiscale" END BOOLEAN F_TITCF BEGIN - PROMPT 2 14 "Titolare conto fiscale" - FIELD LF_ANAG->TITCF - HELP "La persona e' titolare di un conto corrente fiscale" +PROMPT 2 14 "Titolare conto fiscale" +FIELD LF_ANAG->TITCF +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" - ITEM "2|Distinta" - ITEM "1|Bollettino" +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" +ITEM "2|Distinta" +ITEM "1|Bollettino" END NUMBER F_CODABI 5 BEGIN - PROMPT 2 15 "Codice ABI " - HELP "Codice ABI della banca di appoggio" - FIELD LF_ANAG->CODABI - FLAGS "Z" - USE %BAN - INPUT CODTAB[1,5] F_CODABI - INPUT CODTAB[6,10] F_CODCAB - DISPLAY "Codice ABI" CODTAB[1,5] - DISPLAY "Codice CAB" CODTAB[6,10] - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODABI CODTAB[1,5] - OUTPUT F_CODCAB CODTAB[6,10] - CHECKTYPE NORMAL +PROMPT 2 15 "Codice ABI " +HELP "Codice ABI della banca di appoggio" +FIELD LF_ANAG->CODABI +FLAGS "Z" +USE %BAN +INPUT CODTAB[1,5] F_CODABI +INPUT CODTAB[6,10] F_CODCAB +DISPLAY "Codice ABI" CODTAB[1,5] +DISPLAY "Codice CAB" CODTAB[6,10] +DISPLAY "Descrizione@50" S0 +OUTPUT F_CODABI CODTAB[1,5] +OUTPUT F_CODCAB CODTAB[6,10] +CHECKTYPE NORMAL END NUMBER F_CODCAB 5 BEGIN - PROMPT 42 15 "Codice CAB " - HELP "Codice CAB della banca di appoggio" - FIELD LF_ANAG->CODCAB - FLAGS "Z" - COPY ALL F_CODABI - CHECKTYPE NORMAL - VALIDATE REQIF_FUNC 1 F_CODABI +PROMPT 42 15 "Codice CAB " +HELP "Codice CAB della banca di appoggio" +FIELD LF_ANAG->CODCAB +FLAGS "Z" +COPY ALL F_CODABI +CHECKTYPE NORMAL +VALIDATE REQIF_FUNC 1 F_CODABI END ENDPAGE @@ -841,124 +816,124 @@ PAGE "Anagrafica persone fisiche" -1 -1 77 20 GROUPBOX DLG_NULL 76 5 BEGIN - PROMPT 0 0 "Persone fisiche" - FLAGS "R" +PROMPT 0 0 "Persone fisiche" +FLAGS "R" END NUMBER DLG_NULL 5 BEGIN - PROMPT 2 1 "Codice " - FIELD LF_ANAGFIS->CODANAGR - FLAGS "DR" - GROUP 1 +PROMPT 2 1 "Codice " +FIELD LF_ANAGFIS->CODANAGR +FLAGS "DR" +GROUP 1 END STRING DLG_NULL 30 BEGIN - PROMPT 2 2 "Cognome " - FLAGS "D" - GROUP 2 +PROMPT 2 2 "Cognome " +FLAGS "D" +GROUP 2 END STRING DLG_NULL 20 BEGIN - PROMPT 2 3 "Nome " - FLAGS "D" - GROUP 3 +PROMPT 2 3 "Nome " +FLAGS "D" +GROUP 3 END BOOLEAN CHK_AF4_RESZTERR BEGIN - PROMPT 2 5 "Residenza in zone terremotate" - FIELD LF_ANAG->RESZTERR - HELP "Residenza della persona fisica in zona dichiarate terremotate" +PROMPT 2 5 "Residenza in zone terremotate" +FIELD LF_ANAG->RESZTERR +HELP "Residenza della persona fisica in zona dichiarate terremotate" END NUMBER LST_AF4_EVECC 1 BEGIN - PROMPT 36 5 "Eventi di natura eccezionale " - HELP "Codice degli eventi di natura eccezionale" - FIELD LF_ANAG->EVECC - SHEET "Codice|Descrizione@70" - INPUT LST_AF4_EVECC - OUTPUT LST_AF4_EVECC - ITEM " |Nessuno" - ITEM "1|Richieste di natura estorsiva" - ITEM "2|Zone colpite da eventi alluvionali" - ITEM "3|Sospensione Versamenti creditori EFIM" +PROMPT 36 5 "Eventi di natura eccezionale " +HELP "Codice degli eventi di natura eccezionale" +FIELD LF_ANAG->EVECC +SHEET "Codice|Descrizione@70" +INPUT LST_AF4_EVECC +OUTPUT LST_AF4_EVECC +ITEM " |Nessuno" +ITEM "1|Richieste di natura estorsiva" +ITEM "2|Zone colpite da eventi alluvionali" +ITEM "3|Sospensione Versamenti creditori EFIM" END BOOLEAN FLD_AF4_RFDIVERSA BEGIN - PROMPT 2 7 "Domicilio fiscale diverso da sede legale " - FIELD LF_ANAG->RFDIVERSA - HELP "Dire se il domicilio fiscale e' diverso della sede legale" +PROMPT 2 7 "Domicilio fiscale diverso da sede legale " +FIELD LF_ANAG->RFDIVERSA +HELP "Dire se il domicilio fiscale e' diverso della sede legale" END GROUPBOX DLG_NULL 76 5 BEGIN - PROMPT 0 13 "Codici statistici" +PROMPT 0 13 "Codici statistici" END STRING FLD_AF5_CODSTAT1 7 BEGIN - PROMPT 2 14 "1 " - FIELD LF_ANAG->CODSTAT1 - USE %STT - INPUT CODTAB FLD_AF5_CODSTAT1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT FLD_AF5_CODSTAT1 CODTAB - OUTPUT FLD_AF5_CODSTAT1_TABSTT_S0 S0 - HELP "Numero del primo codice statistico" - CHECKTYPE NORMAL - WARNING "Codice assente" +PROMPT 2 14 "1 " +FIELD LF_ANAG->CODSTAT1 +USE %STT +INPUT CODTAB FLD_AF5_CODSTAT1 +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione@50" S0 +OUTPUT FLD_AF5_CODSTAT1 CODTAB +OUTPUT FLD_AF5_CODSTAT1_TABSTT_S0 S0 +HELP "Numero del primo codice statistico" +CHECKTYPE NORMAL +WARNING "Codice assente" END STRING FLD_AF5_CODSTAT1_TABSTT_S0 57 BEGIN - PROMPT 16 14 "" - FLAGS "D" +PROMPT 16 14 "" +FLAGS "D" END STRING FLD_AF5_CODSTAT2 7 BEGIN - PROMPT 2 15 "2 " - FIELD LF_ANAG->CODSTAT2 - COPY USE FLD_AF5_CODSTAT1 - INPUT CODTAB FLD_AF5_CODSTAT2 - COPY DISPLAY FLD_AF5_CODSTAT1 - OUTPUT FLD_AF5_CODSTAT2 CODTAB - OUTPUT FLD_AF5_CODSTAT2_TABSTT_S0 S0 - HELP "Numero del secondo codice statistico" - CHECKTYPE NORMAL - WARNING "Codice assente" +PROMPT 2 15 "2 " +FIELD LF_ANAG->CODSTAT2 +COPY USE FLD_AF5_CODSTAT1 +INPUT CODTAB FLD_AF5_CODSTAT2 +COPY DISPLAY FLD_AF5_CODSTAT1 +OUTPUT FLD_AF5_CODSTAT2 CODTAB +OUTPUT FLD_AF5_CODSTAT2_TABSTT_S0 S0 +HELP "Numero del secondo codice statistico" +CHECKTYPE NORMAL +WARNING "Codice assente" END STRING FLD_AF5_CODSTAT2_TABSTT_S0 57 BEGIN - PROMPT 16 15 "" - FLAGS "D" +PROMPT 16 15 "" +FLAGS "D" END STRING FLD_AF5_CODSTAT3 7 BEGIN - PROMPT 2 16 "3 " - FIELD LF_ANAG->CODSTAT3 - COPY USE FLD_AF5_CODSTAT1 - INPUT CODTAB FLD_AF5_CODSTAT3 - COPY DISPLAY FLD_AF5_CODSTAT1 - OUTPUT FLD_AF5_CODSTAT3 CODTAB - OUTPUT FLD_AF5_CODSTAT3_TABSTT_S0 S0 - HELP "Numero del terzo codice statistico" - CHECKTYPE NORMAL - WARNING "Codice assente" +PROMPT 2 16 "3 " +FIELD LF_ANAG->CODSTAT3 +COPY USE FLD_AF5_CODSTAT1 +INPUT CODTAB FLD_AF5_CODSTAT3 +COPY DISPLAY FLD_AF5_CODSTAT1 +OUTPUT FLD_AF5_CODSTAT3 CODTAB +OUTPUT FLD_AF5_CODSTAT3_TABSTT_S0 S0 +HELP "Numero del terzo codice statistico" +CHECKTYPE NORMAL +WARNING "Codice assente" END STRING FLD_AF5_CODSTAT3_TABSTT_S0 57 BEGIN - PROMPT 16 16 "" - FLAGS "D" +PROMPT 16 16 "" +FLAGS "D" END ENDPAGE @@ -968,199 +943,199 @@ PAGE "Anagrafica persone fisiche" -1 -1 77 20 GROUPBOX DLG_NULL 76 5 BEGIN - PROMPT 0 0 "Persone fisiche" - FLAGS "R" +PROMPT 0 0 "Persone fisiche" +FLAGS "R" END NUMBER DLG_NULL 5 BEGIN - PROMPT 2 1 "Codice " - FIELD LF_ANAGFIS->CODANAGR - FLAGS "DR" - GROUP 1 +PROMPT 2 1 "Codice " +FIELD LF_ANAGFIS->CODANAGR +FLAGS "DR" +GROUP 1 END STRING DLG_NULL 30 BEGIN - PROMPT 2 2 "Cognome " - FLAGS "D" - GROUP 2 +PROMPT 2 2 "Cognome " +FLAGS "D" +GROUP 2 END STRING DLG_NULL 20 BEGIN - PROMPT 2 3 "Nome " - FLAGS "D" - GROUP 3 +PROMPT 2 3 "Nome " +FLAGS "D" +GROUP 3 END GROUPBOX DLG_NULL 76 9 BEGIN - PROMPT 0 5 "Uffici competenti" +PROMPT 0 5 "Uffici competenti" END STRING F_IMP_DENCOM 50 BEGIN - PROMPT 1 6 "Comune " - FLAGS "D" +PROMPT 1 6 "Comune " +FLAGS "D" END STRING F_IMP_PROVCOM 5 BEGIN - PROMPT 62 6 "Prov." - FLAGS "D" +PROMPT 62 6 "Prov." +FLAGS "D" END STRING F_UFFIIDD 3 BEGIN - PROMPT 1 7 "Imposte Dirette " - FIELD LF_ANAG->UFFIIDD - FLAGS "Z" - USE %UID - INPUT CODTAB F_UFFIIDD - DISPLAY "Ufficio" CODTAB - DISPLAY "Denominazione@50" S0 - DISPLAY "C.C.@8" S4 - OUTPUT F_UFFIIDD CODTAB - OUTPUT F_DENUFFIIDD S0 - OUTPUT F_CC_ESATTORIA S4 - HELP "Numero dell'ufficio delle imposte dirette competente" - CHECKTYPE NORMAL - WARNING "Ufficio imposte assente" +PROMPT 1 7 "Imposte Dirette " +FIELD LF_ANAG->UFFIIDD +FLAGS "Z" +USE %UID +INPUT CODTAB F_UFFIIDD +DISPLAY "Ufficio" CODTAB +DISPLAY "Denominazione@50" S0 +DISPLAY "C.C.@8" S4 +OUTPUT F_UFFIIDD CODTAB +OUTPUT F_DENUFFIIDD S0 +OUTPUT F_CC_ESATTORIA S4 +HELP "Numero dell'ufficio delle imposte dirette competente" +CHECKTYPE NORMAL +WARNING "Ufficio imposte assente" 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 - DISPLAY "Ufficio" CODTAB - DISPLAY "C.C.@8" S4 - COPY OUTPUT F_UFFIIDD +PROMPT 23 7 " " +HELP "Descrizione dell'ufficio delle imposte dirette competente" +USE %UID KEY 2 +INPUT S0 F_DENUFFIIDD +DISPLAY "Denominazione@50" S0 +DISPLAY "Ufficio" CODTAB +DISPLAY "C.C.@8" S4 +COPY OUTPUT F_UFFIIDD END STRING F_NISCRIIDD 10 BEGIN - PROMPT 1 8 "N.ro iscrizione " - FIELD LF_ANAG->NISCRIIDD +PROMPT 1 8 "N.ro iscrizione " +FIELD LF_ANAG->NISCRIIDD END STRING F_UFFIVA 3 BEGIN - PROMPT 1 9 "Ufficio IVA " - FIELD LF_ANAG->UFFIVA - FLAGS "Z" - USE %UIV - INPUT CODTAB F_UFFIVA - DISPLAY "Ufficio" CODTAB - DISPLAY "Denominazione@50" S0 - OUTPUT F_UFFIVA CODTAB - OUTPUT F_DENUFFIVA S0 - OUTPUT F_CC_ESATTORIA S4 - HELP "Numero dell'ufficio delle imposte dirette competente" - CHECKTYPE NORMAL - WARNING "Ufficio imposte assente" +PROMPT 1 9 "Ufficio IVA " +FIELD LF_ANAG->UFFIVA +FLAGS "Z" +USE %UIV +INPUT CODTAB F_UFFIVA +DISPLAY "Ufficio" CODTAB +DISPLAY "Denominazione@50" S0 +OUTPUT F_UFFIVA CODTAB +OUTPUT F_DENUFFIVA S0 +OUTPUT F_CC_ESATTORIA S4 +HELP "Numero dell'ufficio delle imposte dirette competente" +CHECKTYPE NORMAL +WARNING "Ufficio imposte assente" END STRINF F_DENUFFIVA 50 48 BEGIN - PROMPT 23 9 " " - FLAGS "D" +PROMPT 23 9 " " +FLAGS "D" END STRING F_UFFREG 3 BEGIN - PROMPT 1 10 "Registro " - USE %URE - INPUT CODTAB F_UFFREG - OUTPUT F_UFFREG CODTAB - OUTPUT F_DENUFFREG S0 - CHECKTYPE NORMAL - FLAGS "UDG" +PROMPT 1 10 "Registro " +USE %URE +INPUT CODTAB F_UFFREG +OUTPUT F_UFFREG CODTAB +OUTPUT F_DENUFFREG S0 +CHECKTYPE NORMAL +FLAGS "UDG" END STRING F_DENUFFREG 50 48 BEGIN - PROMPT 24 10 "" - FLAGS "D" +PROMPT 24 10 "" +FLAGS "D" END NUMBER F_UFFCONC 3 BEGIN - PROMPT 1 11 "Concessioni " - FLAGS "Z" - USE %UCC - FIELD LF_ANAG->UFFCONC - INPUT CODTAB F_UFFCONC - DISPLAY "Codice" CODTAB - DISPLAY "Denominazione@50" S0 - OUTPUT F_UFFCONC CODTAB - OUTPUT F_DENUFFCONC S0 - CHECKTYPE NORMAL +PROMPT 1 11 "Concessioni " +FLAGS "Z" +USE %UCC +FIELD LF_ANAG->UFFCONC +INPUT CODTAB F_UFFCONC +DISPLAY "Codice" CODTAB +DISPLAY "Denominazione@50" S0 +OUTPUT F_UFFCONC CODTAB +OUTPUT F_DENUFFCONC S0 +CHECKTYPE NORMAL END STRING F_DENUFFCONC 50 48 BEGIN - PROMPT 24 11 "" - FLAGS "D" +PROMPT 24 11 "" +FLAGS "D" END NUMBER F_UFFSERV 3 BEGIN - PROMPT 1 12 "Centro Servizi " - FLAGS "DRZG" - USE %UCS - INPUT CODTAB F_UFFSERV - OUTPUT F_UFFSERV CODTAB - OUTPUT F_DENUFFSERV S0 - CHECKTYPE NORMAL +PROMPT 1 12 "Centro Servizi " +FLAGS "DRZG" +USE %UCS +INPUT CODTAB F_UFFSERV +OUTPUT F_UFFSERV CODTAB +OUTPUT F_DENUFFSERV S0 +CHECKTYPE NORMAL END STRING F_DENUFFSERV 50 48 BEGIN - PROMPT 24 12 "" - FLAGS "D" +PROMPT 24 12 "" +FLAGS "D" END GROUPBOX -1 76 4 BEGIN - PROMPT 0 14 "Codice contribuente" +PROMPT 0 14 "Codice contribuente" END STRING F_CODCONTR_EP 2 BEGIN - PROMPT 1 15 "Esattoria Prov." - FIELD CODCONTR[1,2] - FLAGS "D" +PROMPT 1 15 "Esattoria Prov." +FIELD CODCONTR[1,2] +FLAGS "D" END STRING F_CODCONTR_EC 3 BEGIN - PROMPT 23 15 "Esattoria Com." - FIELD CODCONTR[3,5] - FLAGS "D" +PROMPT 23 15 "Esattoria Com." +FIELD CODCONTR[3,5] +FLAGS "D" END STRING F_CODCONTR 8 BEGIN - PROMPT 46 15 "Codice " - FIELD CODCONTR[6,13] - HELP "Codice assegnato al contribuente" +PROMPT 46 15 "Codice " +FIELD CODCONTR[6,13] +HELP "Codice assegnato al contribuente" END STRING F_CODCONTR_CC 2 BEGIN - PROMPT 66 15 "C.c." - FIELD CODCONTR[14,15] - HELP "Codice assegnato al contribuente" +PROMPT 66 15 "C.c." +FIELD CODCONTR[14,15] +HELP "Codice assegnato al contribuente" END STRING F_CC_ESATTORIA 8 BEGIN - PROMPT 1 16 "C/C Esattoria " - FLAGS "D" +PROMPT 1 16 "C/C Esattoria " +FLAGS "D" END ENDPAGE