From ddfee1f32ce3723f7c0a8e0ccfc68f30035fd92c Mon Sep 17 00:00:00 2001 From: guy Date: Thu, 3 Nov 1994 12:45:16 +0000 Subject: [PATCH] Non lo so, ho fatto tanti di quei commit che non capisco piu' alcunche' git-svn-id: svn://10.65.10.50/trunk@518 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ba/ba4200b.uml | 2248 +++++++++++++++++++++---------------------- ba/ba4200c.uml | 2464 ++++++++++++++++++++++++------------------------ 2 files changed, 2356 insertions(+), 2356 deletions(-) diff --git a/ba/ba4200b.uml b/ba/ba4200b.uml index d3d69663f..4dc3adc0c 100755 --- a/ba/ba4200b.uml +++ b/ba/ba4200b.uml @@ -1,1124 +1,1124 @@ -#include "ba4200.h" - -TOOLBAR "" 0 19 0 3 - - -BUTTON DLG_CHGTIP 21 1 -BEGIN - PROMPT -13 -3 "Persone Giuridiche" - MESSAGE K_F10 -END - -BUTTON DLG_DITTE 8 1 -BEGIN - PROMPT -36 -3 "Ditte" - MESSAGE K_F5 -END - -#include - -ENDPAGE - -PAGE "Anagrafica 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" -END - -GROUPBOX DLG_NULL 76 5 -BEGIN - 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 -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 - 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" -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 -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" -END - -GROUPBOX DLG_NULL 30 4 -BEGIN - 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" -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 -END - -STRING FLD_AF1_STATONASC_TABSTE_S0 10 -BEGIN - PROMPT 44 6 "Nazionalita' " - FIELD LF_ANAGFIS->NAZION - HELP "Nazione di appartenenza della persona fisica" -END - -STRING FLD_AF1_COFI 16 -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 -END - -GROUPBOX DLG_NULL 76 6 -BEGIN - 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" -END - -STRING FLD_AF1_COMNASC 4 -BEGIN - PROMPT 2 11 "Comune : Codice " - FIELD LF_ANAGFIS->COMNASC - FLAGS "U" - USE LF_COMUNI - INPUT STATO FLD_AF1_STATONASC - INPUT COM FLD_AF1_COMNASC -#include - OUTPUT FLD_AF1_STATONASC STATO - 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 NORMAL - WARNING "Comune assente" - ADD MASK ba4100a -END - -STRING FLD_AFIS_COMNASC_COMUNI_DENCOM 50 -BEGIN - PROMPT 9 12 ": Nome " - HELP "Nome del comune di nascita della persona fisica" - USE LF_COMUNI KEY 2 - INPUT DENCOM FLD_AFIS_COMNASC_COMUNI_DENCOM -#include - COPY OUTPUT FLD_AF1_COMNASC - ADD MASK ba4100a -END - -STRING FLD_AFIS_COMNASC_COMUNI_PROV 5 -BEGIN - PROMPT 2 13 "Provincia " - FLAGS "D" -END - -NUMBER FLD_AF1_STATONASC 3 -BEGIN - PROMPT 49 13 "Stato " - FIELD LF_ANAGFIS->STATONASC - FLAGS "RZ" - USE %STA - INPUT CODTAB FLD_AF1_STATONASC - DISPLAY "Codice" CODTAB - DISPLAY "Stato@50" S0 - OUTPUT FLD_AF1_STATONASC CODTAB - HELP "Codice dello stato di nascita della persona fisica" - CHECKTYPE NORMAL - WARNING "Stato assente" -END - -GROUPBOX DLG_NULL 76 3 -BEGIN - PROMPT 0 15 "Ultimo aggiornamento" -END - -DATE FLD_ANAG_DATAAGG -BEGIN - PROMPT 2 16 "Data " - FIELD LF_ANAG->DATAAGG - FLAGS "DA" -END - -STRING FLD_ANAG_UTAGG 10 -BEGIN - PROMPT 56 16 "Utente " - FLAGS "D" -END - -ENDPAGE - -PAGE "Anagrafica persone fisiche" -1 -1 77 20 - -GROUPBOX DLG_NULL 76 5 -BEGIN - 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 -END - -STRING DLG_NULL 30 -BEGIN - PROMPT 2 2 "Cognome " - FLAGS "D" - GROUP 2 -END - -STRING DLG_NULL 20 -BEGIN - PROMPT 2 3 "Nome " - FLAGS "D" - GROUP 3 -END - -GROUPBOX DLG_NULL 76 6 -BEGIN - 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" -// VALIDATE REQIF_FUNC 1 FLD_AF1_COMRES - CHECKTYPE REQUIRED -END - -STRING FLD_AF1_CIVRES 10 -BEGIN - PROMPT 56 6 "N." - FIELD LF_ANAG->CIVRES - HELP "Numero civico della residenza" -END - -NUMBER FLD_AF1_STATORES 3 -BEGIN - PROMPT 2 7 "Comune : Stato " - FIELD LF_ANAG->STATORES - FLAGS "RZ" - COPY USE FLD_AF1_STATONASC - INPUT CODTAB FLD_AF1_STATORES - COPY DISPLAY FLD_AF1_STATONASC - OUTPUT FLD_AF1_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 FLD_AF1_STATORES - INPUT COM FLD_AF1_COMRES - COPY DISPLAY FLD_AF1_COMNASC - OUTPUT FLD_AF1_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 MASK ba4100a -END - -STRING FLD_AF1_COMRES_COMUNI_PROVCOM 5 -BEGIN - 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" -END - -STRING FLD_AF1_COMRES_COMUNI_DENCOM 50 -BEGIN - PROMPT 9 9 ": Nome " - HELP "Nome del comune di residenza" - COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM - INPUT DENCOM FLD_AF1_COMRES_COMUNI_DENCOM - COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM - OUTPUT FLD_AF1_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 MASK ba4100a -END - -GROUPBOX DLG_NULL 76 6 -BEGIN - PROMPT 0 11 "Residenza Fiscale (solo se diversa)" -END - -STRING FLD_AF2_INDRF 35 -BEGIN - PROMPT 2 12 "Indirizzo " - FIELD LF_ANAG->INDRF - HELP "Indirizzo della residenza fiscale" - WARNING "Completare l'indirizzo di residenza fiscale" - VALIDATE REQIF_FUNC 1 FLD_AF2_COMRF -END - -STRING FLD_AF2_CIVRF 10 -BEGIN - PROMPT 56 12 "N." - FIELD LF_ANAG->CIVRF - HELP "Numero civico della residenza fiscale" -END - -NUMBER FLD_AF2_STATORF 3 -BEGIN - PROMPT 2 13 "Comune : Stato " - FIELD LF_ANAG->STATORF - FLAGS "RZ" - COPY USE FLD_AF1_STATONASC - INPUT CODTAB FLD_AF2_STATORF - COPY DISPLAY FLD_AF1_STATONASC - OUTPUT FLD_AF2_STATORF CODTAB - HELP "Codice dello stato di residenza fiscale" - CHECKTYPE NORMAL - WARNING "Stato assente" -END - -STRING FLD_AF2_COMRF 4 -BEGIN - PROMPT 9 14 ": Codice " - FIELD LF_ANAG->COMRF - FLAGS "U" - COPY USE FLD_AF1_COMNASC - INPUT STATO FLD_AF2_STATORF - INPUT COM FLD_AF2_COMRF - COPY DISPLAY FLD_AF1_COMNASC - OUTPUT FLD_AF2_STATORF STATO - 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 "Codice del comune di residenza fiscale" - CHECKTYPE NORMAL - WARNING "Comune assente" - ADD MASK ba4100a -END - -STRING FLD_AF2_COMRF_COMUNI_PROVCOM 5 -BEGIN - PROMPT 38 14 "Provincia " - FLAGS "D" -END - -STRING FLD_AF2_CAPRF 5 -BEGIN - PROMPT 56 14 "CAP " - FIELD LF_ANAG->CAPRF - HELP "CAP del comune di residenza fiscale" -END - -STRING FLD_AF2_COMRF_COMUNI_DENCOM 50 -BEGIN - PROMPT 9 15 ": Nome " - HELP "Nome del comune di residenza fiscale" - COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM - INPUT DENCOM FLD_AF2_COMRF_COMUNI_DENCOM - COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM - OUTPUT FLD_AF2_STATORF STATO - 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 MASK ba4100a -END - -ENDPAGE - -PAGE "Anagrafica persone fisiche" -1 -1 77 20 - -GROUPBOX DLG_NULL 76 5 -BEGIN - 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 -END - -STRING DLG_NULL 30 -BEGIN - PROMPT 2 2 "Cognome " - FLAGS "D" - GROUP 2 -END - -STRING DLG_NULL 20 -BEGIN - PROMPT 2 3 "Nome " - FLAGS "D" - GROUP 3 -END - -GROUPBOX DLG_NULL 76 6 -BEGIN - 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 -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 -END - -NUMBER FLD_AF2_STATOCORR 3 -BEGIN - PROMPT 2 7 "Comune : Stato " - FIELD LF_ANAG->STATOCORR - FLAGS "RZ" - COPY USE FLD_AF1_STATONASC - INPUT CODTAB FLD_AF2_STATOCORR - COPY DISPLAY FLD_AF1_STATONASC - OUTPUT FLD_AF2_STATOCORR CODTAB - HELP "Codice dello stato al quale spedire la corrispondenza" - CHECKTYPE NORMAL - WARNING "Stato assente" - VALIDATE EMPTYCOPY_FUNC FLD_AF1_STATORES -END - -STRING FLD_AF2_COMCORR 4 -BEGIN - PROMPT 9 8 ": 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 MASK ba4100a - VALIDATE EMPTYCOPY_FUNC FLD_AF1_COMRES -END - -STRING FLD_AF2_COMCORR_COMUNI_PROVCOM 5 -BEGIN - PROMPT 38 8 "Provincia " - FLAGS "D" - VALIDATE EMPTYCOPY_FUNC FLD_AF1_COMRES_COMUNI_PROVCOM -END - -STRING FLD_AF2_CAPCORR 5 -BEGIN - PROMPT 56 8 "CAP " - FIELD LF_ANAG->CAPCORR - HELP "CAP del comune al quale spedire la corrispondenza" - VALIDATE EMPTYCOPY_FUNC FLD_ANAG_CAPRES -END - -STRING FLD_AF2_COMCORR_COMUNI_DENCOM 50 -BEGIN - PROMPT 9 9 ": Nome " - HELP "Nome del comune al quale spedire la corrispondenza" - COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM - INPUT DENCOM FLD_AF2_COMCORR_COMUNI_DENCOM - COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM - 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 MASK ba4100a - VALIDATE EMPTYCOPY_FUNC FLD_AF1_COMRES_COMUNI_DENCOM -END - -GROUPBOX DLG_NULL 76 5 -BEGIN - 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" -END - -STRING FLD_AF2_TELRF 30 -BEGIN - 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" -END - -STRING FLD_AF2_FAXRF 30 -BEGIN - 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" -END - -STRING FLD_AF2_TLEXRF 30 -BEGIN - PROMPT 36 15 "Numero " - FIELD LF_ANAG->TLEXRFX - HELP "Numero del telex" -END - -ENDPAGE - -PAGE "Anagrafica persone fisiche" -1 -1 77 20 - -GROUPBOX DLG_NULL 76 5 -BEGIN - 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 -END - -STRING DLG_NULL 30 -BEGIN - PROMPT 2 2 "Cognome " - FLAGS "D" - GROUP 2 -END - -STRING DLG_NULL 20 -BEGIN - PROMPT 2 3 "Nome " - FLAGS "D" - GROUP 3 -END - -GROUPBOX DLG_NULL 76 8 -BEGIN - 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" -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@ -END - -DATE FLD_AF3_DVARSCIV -BEGIN - 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 -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 -END - -BOOLEAN CHK_AF3_SAUB -BEGIN - PROMPT 2 10 "Soggetto SAUB" - FIELD LF_ANAGFIS->SAUB - HELP "Iscrizione al servizio sanitario nazionale" -END - -STRING FLD_AF3_ISCRCAF 10 -BEGIN - PROMPT 42 10 "Iscrizione CAF " - FIELD LF_ANAGFIS->ISCRCAF - HELP "Numero di iscrizione al CAF" -END - -BOOLEAN LST_AF3_CPARTRF -BEGIN - PROMPT 2 11 "Casi Particolari Residenza Fiscale" - FIELD LF_ANAGFIS->CPARTRF - HELP "Soggetto a a casi particolari di residenza fiscale" -END - -GROUPBOX DLG_NULL 76 4 -BEGIN - 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" -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 "1|Bollettino" - ITEM "2|Distinta" -END - -NUMBER F_CODABI 5 -BEGIN - PROMPT 2 15 "Codice ABI " - HELP "Codice ABI della banca di appoggio" - FIELD LF_ANAG->CODABI - FLAGS "RZ" - USE %BAN - 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] -END - -NUMBER F_CODCAB 5 -BEGIN - PROMPT 42 15 "Codice CAB " - HELP "Codice CAB della banca di appoggio" - FIELD LF_ANAG->CODCAB - FLAGS "RZ" - COPY ALL F_CODABI -END - -ENDPAGE - -PAGE "Anagrafica persone fisiche" -1 -1 77 20 - -GROUPBOX DLG_NULL 76 5 -BEGIN - 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 -END - -STRING DLG_NULL 30 -BEGIN - PROMPT 2 2 "Cognome " - FLAGS "D" - GROUP 2 -END - -STRING DLG_NULL 20 -BEGIN - 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" -END - -BOOLEAN CHK_AF4_RFDIVERSA -BEGIN - PROMPT 2 6 "Residenza fiscale variata" - FIELD LF_ANAG->RFDIVERSA - HELP "Indicare se la persona ha variato la residenza fiscale" -END - -NUMBER LST_AF4_EVECC 1 -BEGIN - PROMPT 36 6 "Eventi di natura eccezionale " - HELP "Codice degli eventi di natura eccezionale" - FIELD LF_ANAG->EVECC - SHEET "Codice|Descrizione@40" - INPUT LST_AF4_EVECC - OUTPUT LST_AF4_EVECC - ITEM " |Non definito" - ITEM "1|Nessuno" - ITEM "2|Eventi criminosi RM FI 1993" - ITEM "3|Sisma Dicembre 1990 in Sicilia" - ITEM "4|Richieste di natura estorsiva" -END - -BOOLEAN CHK_AF4_VARSLORES -BEGIN - PROMPT 2 7 "Sede legale variata" - FIELD LF_ANAG->VARSLORES - HELP "Indicare se e' stata variata la sede legale" - MESSAGE FALSE DISABLE,FLD_AF4_DVARSLORES - MESSAGE FALSE RESET,FLD_AF4_DVARSLORES - MESSAGE TRUE ENABLE,FLD_AF4_DVARSLORES -END - -DATE FLD_AF4_DVARSLORES -BEGIN - PROMPT 36 7 "Data variazione " - FIELD LF_ANAG->DVARSLORES - HELP "Data di variazione della sede legale o residenza" -END - -BOOLEAN CHK_AF4_SOGGNRES -BEGIN - PROMPT 2 8 "Non residente" - FIELD LF_ANAG->SOGGNRES - HELP "Dire se si tratta di persone non residente" -END - -LIST FLD_AF4_RFDIVERSA 28 -BEGIN - PROMPT 2 9 "Domicilio fiscale diverso da sede legale " - FIELD LF_ANAG->RFDIVERSA - HELP "Descrizione per eventuale domicilio fiscale diverso diverso da sede legale" - ITEM "1|Nessuno" - ITEM "2|Residente all'estero" - ITEM "3|Provvedimento amministrativo" - ITEM "4|Variato da meno di 60gg" -END - -GROUPBOX DLG_NULL 76 5 -BEGIN - 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 " 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" -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" -END - -STRING FLD_AF5_CODSTAT2_TABSTT_S0 57 -BEGIN - 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" -END - -STRING FLD_AF5_CODSTAT3_TABSTT_S0 57 -BEGIN - PROMPT 16 16 "" - FLAGS "D" -END - -ENDPAGE - - -PAGE "Anagrafica persone fisiche" -1 -1 77 20 - -GROUPBOX DLG_NULL 76 5 -BEGIN - 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 -END - -STRING DLG_NULL 30 -BEGIN - PROMPT 2 2 "Cognome " - FLAGS "D" - GROUP 2 -END - -STRING DLG_NULL 20 -BEGIN - PROMPT 2 3 "Nome " - FLAGS "D" - GROUP 3 -END - -GROUPBOX DLG_NULL 76 8 -BEGIN - PROMPT 0 5 "Uffici competenti" -END - -STRING F_IMP_DENCOM 50 -BEGIN - PROMPT 1 6 "Comune " - FLAGS "D" -END - -STRING F_IMP_PROVCOM 5 -BEGIN - PROMPT 62 6 "Prov." - FLAGS "D" -END - -STRING F_UFFIIDD 3 -BEGIN - PROMPT 1 7 "Imposte Dirette " - FIELD LF_ANAG->UFFIIDD - FLAGS "RZ" - 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 -END - -STRING F_CC_ESATTORIA 8 -BEGIN - PROMPT 1 8 "C/C Esattoria " - FLAGS "D" -END - -STRING F_UFFREG 3 -BEGIN - PROMPT 1 9 "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 9 "" - FLAGS "D" -END - -NUMBER F_UFFCONC 3 -BEGIN - PROMPT 1 10 "Concessioni " - FLAGS "DRZG" - USE %UCC - INPUT CODTAB F_UFFCONC - OUTPUT F_UFFCONC CODTAB - OUTPUT F_DENUFFCONC S0 - CHECKTYPE NORMAL -END - -STRING F_DENUFFCONC 50 48 -BEGIN - PROMPT 24 10 "" - FLAGS "D" -END - -NUMBER F_UFFSERV 3 -BEGIN - PROMPT 1 11 "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 11 "" - FLAGS "D" -END - -GROUPBOX -1 76 3 -BEGIN - PROMPT 0 13 "Codice contribuente" -END - -STRING F_CODCONTR_EP 2 -BEGIN - PROMPT 1 14 "Esattoria Prov." - FIELD CODCONTR[1,2] - FLAGS "D" -END - -STRING F_CODCONTR_EC 3 -BEGIN - PROMPT 23 14 "Esattoria Com." - FIELD CODCONTR[3,5] - FLAGS "D" -END - -STRING F_CODCONTR 8 -BEGIN - PROMPT 46 14 "Codice " - FIELD CODCONTR[6,13] - HELP "Codice assegnato al contribuente" -END - -STRING F_CODCONTR_CC 2 -BEGIN - PROMPT 66 14 "C.c." - FIELD CODCONTR[14,15] -END - -ENDPAGE - -ENDMASK +#include "ba4200.h" + +TOOLBAR "" 0 19 0 3 + + +BUTTON DLG_CHGTIP 21 1 +BEGIN + PROMPT -13 -3 "Persone Giuridiche" + MESSAGE K_F10 +END + +BUTTON DLG_DITTE 8 1 +BEGIN + PROMPT -36 -3 "Ditte" + MESSAGE K_F5 +END + +#include + +ENDPAGE + +PAGE "Anagrafica 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" +END + +GROUPBOX DLG_NULL 76 5 +BEGIN + 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 +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 + 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" +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 +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" +END + +GROUPBOX DLG_NULL 30 4 +BEGIN + 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" +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 +END + +STRING FLD_AF1_STATONASC_TABSTE_S0 10 +BEGIN + PROMPT 44 6 "Nazionalita' " + FIELD LF_ANAGFIS->NAZION + HELP "Nazione di appartenenza della persona fisica" +END + +STRING FLD_AF1_COFI 16 +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 +END + +GROUPBOX DLG_NULL 76 6 +BEGIN + 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" +END + +STRING FLD_AF1_COMNASC 4 +BEGIN + PROMPT 2 11 "Comune : Codice " + FIELD LF_ANAGFIS->COMNASC + FLAGS "U" + USE LF_COMUNI + INPUT STATO FLD_AF1_STATONASC + INPUT COM FLD_AF1_COMNASC +#include + OUTPUT FLD_AF1_STATONASC STATO + 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 NORMAL + WARNING "Comune assente" + ADD MASK ba4100a +END + +STRING FLD_AFIS_COMNASC_COMUNI_DENCOM 50 +BEGIN + PROMPT 9 12 ": Nome " + HELP "Nome del comune di nascita della persona fisica" + USE LF_COMUNI KEY 2 + INPUT DENCOM FLD_AFIS_COMNASC_COMUNI_DENCOM +#include + COPY OUTPUT FLD_AF1_COMNASC + ADD MASK ba4100a +END + +STRING FLD_AFIS_COMNASC_COMUNI_PROV 5 +BEGIN + PROMPT 2 13 "Provincia " + FLAGS "D" +END + +NUMBER FLD_AF1_STATONASC 3 +BEGIN + PROMPT 49 13 "Stato " + FIELD LF_ANAGFIS->STATONASC + FLAGS "RZ" + USE %STA + INPUT CODTAB FLD_AF1_STATONASC + DISPLAY "Codice" CODTAB + DISPLAY "Stato@50" S0 + OUTPUT FLD_AF1_STATONASC CODTAB + HELP "Codice dello stato di nascita della persona fisica" + CHECKTYPE NORMAL + WARNING "Stato assente" +END + +GROUPBOX DLG_NULL 76 3 +BEGIN + PROMPT 0 15 "Ultimo aggiornamento" +END + +DATE FLD_ANAG_DATAAGG +BEGIN + PROMPT 2 16 "Data " + FIELD LF_ANAG->DATAAGG + FLAGS "DA" +END + +STRING FLD_ANAG_UTAGG 10 +BEGIN + PROMPT 56 16 "Utente " + FLAGS "D" +END + +ENDPAGE + +PAGE "Anagrafica persone fisiche" -1 -1 77 20 + +GROUPBOX DLG_NULL 76 5 +BEGIN + 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 +END + +STRING DLG_NULL 30 +BEGIN + PROMPT 2 2 "Cognome " + FLAGS "D" + GROUP 2 +END + +STRING DLG_NULL 20 +BEGIN + PROMPT 2 3 "Nome " + FLAGS "D" + GROUP 3 +END + +GROUPBOX DLG_NULL 76 6 +BEGIN + 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" +// VALIDATE REQIF_FUNC 1 FLD_AF1_COMRES + CHECKTYPE REQUIRED +END + +STRING FLD_AF1_CIVRES 10 +BEGIN + PROMPT 56 6 "N." + FIELD LF_ANAG->CIVRES + HELP "Numero civico della residenza" +END + +NUMBER FLD_AF1_STATORES 3 +BEGIN + PROMPT 2 7 "Comune : Stato " + FIELD LF_ANAG->STATORES + FLAGS "RZ" + COPY USE FLD_AF1_STATONASC + INPUT CODTAB FLD_AF1_STATORES + COPY DISPLAY FLD_AF1_STATONASC + OUTPUT FLD_AF1_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 FLD_AF1_STATORES + INPUT COM FLD_AF1_COMRES + COPY DISPLAY FLD_AF1_COMNASC + OUTPUT FLD_AF1_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 MASK ba4100a +END + +STRING FLD_AF1_COMRES_COMUNI_PROVCOM 5 +BEGIN + 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" +END + +STRING FLD_AF1_COMRES_COMUNI_DENCOM 50 +BEGIN + PROMPT 9 9 ": Nome " + HELP "Nome del comune di residenza" + COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM + INPUT DENCOM FLD_AF1_COMRES_COMUNI_DENCOM + COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM + OUTPUT FLD_AF1_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 MASK ba4100a +END + +GROUPBOX DLG_NULL 76 6 +BEGIN + PROMPT 0 11 "Residenza Fiscale (solo se diversa)" +END + +STRING FLD_AF2_INDRF 35 +BEGIN + PROMPT 2 12 "Indirizzo " + FIELD LF_ANAG->INDRF + HELP "Indirizzo della residenza fiscale" + WARNING "Completare l'indirizzo di residenza fiscale" + VALIDATE REQIF_FUNC 1 FLD_AF2_COMRF +END + +STRING FLD_AF2_CIVRF 10 +BEGIN + PROMPT 56 12 "N." + FIELD LF_ANAG->CIVRF + HELP "Numero civico della residenza fiscale" +END + +NUMBER FLD_AF2_STATORF 3 +BEGIN + PROMPT 2 13 "Comune : Stato " + FIELD LF_ANAG->STATORF + FLAGS "RZ" + COPY USE FLD_AF1_STATONASC + INPUT CODTAB FLD_AF2_STATORF + COPY DISPLAY FLD_AF1_STATONASC + OUTPUT FLD_AF2_STATORF CODTAB + HELP "Codice dello stato di residenza fiscale" + CHECKTYPE NORMAL + WARNING "Stato assente" +END + +STRING FLD_AF2_COMRF 4 +BEGIN + PROMPT 9 14 ": Codice " + FIELD LF_ANAG->COMRF + FLAGS "U" + COPY USE FLD_AF1_COMNASC + INPUT STATO FLD_AF2_STATORF + INPUT COM FLD_AF2_COMRF + COPY DISPLAY FLD_AF1_COMNASC + OUTPUT FLD_AF2_STATORF STATO + 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 "Codice del comune di residenza fiscale" + CHECKTYPE NORMAL + WARNING "Comune assente" + ADD MASK ba4100a +END + +STRING FLD_AF2_COMRF_COMUNI_PROVCOM 5 +BEGIN + PROMPT 38 14 "Provincia " + FLAGS "D" +END + +STRING FLD_AF2_CAPRF 5 +BEGIN + PROMPT 56 14 "CAP " + FIELD LF_ANAG->CAPRF + HELP "CAP del comune di residenza fiscale" +END + +STRING FLD_AF2_COMRF_COMUNI_DENCOM 50 +BEGIN + PROMPT 9 15 ": Nome " + HELP "Nome del comune di residenza fiscale" + COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM + INPUT DENCOM FLD_AF2_COMRF_COMUNI_DENCOM + COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM + OUTPUT FLD_AF2_STATORF STATO + 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 MASK ba4100a +END + +ENDPAGE + +PAGE "Anagrafica persone fisiche" -1 -1 77 20 + +GROUPBOX DLG_NULL 76 5 +BEGIN + 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 +END + +STRING DLG_NULL 30 +BEGIN + PROMPT 2 2 "Cognome " + FLAGS "D" + GROUP 2 +END + +STRING DLG_NULL 20 +BEGIN + PROMPT 2 3 "Nome " + FLAGS "D" + GROUP 3 +END + +GROUPBOX DLG_NULL 76 6 +BEGIN + 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 +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 +END + +NUMBER FLD_AF2_STATOCORR 3 +BEGIN + PROMPT 2 7 "Comune : Stato " + FIELD LF_ANAG->STATOCORR + FLAGS "RZ" + COPY USE FLD_AF1_STATONASC + INPUT CODTAB FLD_AF2_STATOCORR + COPY DISPLAY FLD_AF1_STATONASC + OUTPUT FLD_AF2_STATOCORR CODTAB + HELP "Codice dello stato al quale spedire la corrispondenza" + CHECKTYPE NORMAL + WARNING "Stato assente" + VALIDATE EMPTYCOPY_FUNC FLD_AF1_STATORES +END + +STRING FLD_AF2_COMCORR 4 +BEGIN + PROMPT 9 8 ": 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 MASK ba4100a + VALIDATE EMPTYCOPY_FUNC FLD_AF1_COMRES +END + +STRING FLD_AF2_COMCORR_COMUNI_PROVCOM 5 +BEGIN + PROMPT 38 8 "Provincia " + FLAGS "D" + VALIDATE EMPTYCOPY_FUNC FLD_AF1_COMRES_COMUNI_PROVCOM +END + +STRING FLD_AF2_CAPCORR 5 +BEGIN + PROMPT 56 8 "CAP " + FIELD LF_ANAG->CAPCORR + HELP "CAP del comune al quale spedire la corrispondenza" + VALIDATE EMPTYCOPY_FUNC FLD_ANAG_CAPRES +END + +STRING FLD_AF2_COMCORR_COMUNI_DENCOM 50 +BEGIN + PROMPT 9 9 ": Nome " + HELP "Nome del comune al quale spedire la corrispondenza" + COPY USE FLD_AFIS_COMNASC_COMUNI_DENCOM + INPUT DENCOM FLD_AF2_COMCORR_COMUNI_DENCOM + COPY DISPLAY FLD_AFIS_COMNASC_COMUNI_DENCOM + 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 MASK ba4100a + VALIDATE EMPTYCOPY_FUNC FLD_AF1_COMRES_COMUNI_DENCOM +END + +GROUPBOX DLG_NULL 76 5 +BEGIN + 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" +END + +STRING FLD_AF2_TELRF 30 +BEGIN + 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" +END + +STRING FLD_AF2_FAXRF 30 +BEGIN + 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" +END + +STRING FLD_AF2_TLEXRF 30 +BEGIN + PROMPT 36 15 "Numero " + FIELD LF_ANAG->TLEXRFX + HELP "Numero del telex" +END + +ENDPAGE + +PAGE "Anagrafica persone fisiche" -1 -1 77 20 + +GROUPBOX DLG_NULL 76 5 +BEGIN + 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 +END + +STRING DLG_NULL 30 +BEGIN + PROMPT 2 2 "Cognome " + FLAGS "D" + GROUP 2 +END + +STRING DLG_NULL 20 +BEGIN + PROMPT 2 3 "Nome " + FLAGS "D" + GROUP 3 +END + +GROUPBOX DLG_NULL 76 8 +BEGIN + 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" +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@ +END + +DATE FLD_AF3_DVARSCIV +BEGIN + 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 +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 +END + +BOOLEAN CHK_AF3_SAUB +BEGIN + PROMPT 2 10 "Soggetto SAUB" + FIELD LF_ANAGFIS->SAUB + HELP "Iscrizione al servizio sanitario nazionale" +END + +STRING FLD_AF3_ISCRCAF 10 +BEGIN + PROMPT 42 10 "Iscrizione CAF " + FIELD LF_ANAGFIS->ISCRCAF + HELP "Numero di iscrizione al CAF" +END + +BOOLEAN LST_AF3_CPARTRF +BEGIN + PROMPT 2 11 "Casi Particolari Residenza Fiscale" + FIELD LF_ANAGFIS->CPARTRF + HELP "Soggetto a a casi particolari di residenza fiscale" +END + +GROUPBOX DLG_NULL 76 4 +BEGIN + 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" +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 "1|Bollettino" + ITEM "2|Distinta" +END + +NUMBER F_CODABI 5 +BEGIN + PROMPT 2 15 "Codice ABI " + HELP "Codice ABI della banca di appoggio" + FIELD LF_ANAG->CODABI + FLAGS "RZ" + USE %BAN + 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] +END + +NUMBER F_CODCAB 5 +BEGIN + PROMPT 42 15 "Codice CAB " + HELP "Codice CAB della banca di appoggio" + FIELD LF_ANAG->CODCAB + FLAGS "RZ" + COPY ALL F_CODABI +END + +ENDPAGE + +PAGE "Anagrafica persone fisiche" -1 -1 77 20 + +GROUPBOX DLG_NULL 76 5 +BEGIN + 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 +END + +STRING DLG_NULL 30 +BEGIN + PROMPT 2 2 "Cognome " + FLAGS "D" + GROUP 2 +END + +STRING DLG_NULL 20 +BEGIN + 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" +END + +BOOLEAN CHK_AF4_RFDIVERSA +BEGIN + PROMPT 2 6 "Residenza fiscale variata" + FIELD LF_ANAG->RFDIVERSA + HELP "Indicare se la persona ha variato la residenza fiscale" +END + +NUMBER LST_AF4_EVECC 1 +BEGIN + PROMPT 36 6 "Eventi di natura eccezionale " + HELP "Codice degli eventi di natura eccezionale" + FIELD LF_ANAG->EVECC + SHEET "Codice|Descrizione@40" + INPUT LST_AF4_EVECC + OUTPUT LST_AF4_EVECC + ITEM " |Non definito" + ITEM "1|Nessuno" + ITEM "2|Eventi criminosi RM FI 1993" + ITEM "3|Sisma Dicembre 1990 in Sicilia" + ITEM "4|Richieste di natura estorsiva" +END + +BOOLEAN CHK_AF4_VARSLORES +BEGIN + PROMPT 2 7 "Sede legale variata" + FIELD LF_ANAG->VARSLORES + HELP "Indicare se e' stata variata la sede legale" + MESSAGE FALSE DISABLE,FLD_AF4_DVARSLORES + MESSAGE FALSE RESET,FLD_AF4_DVARSLORES + MESSAGE TRUE ENABLE,FLD_AF4_DVARSLORES +END + +DATE FLD_AF4_DVARSLORES +BEGIN + PROMPT 36 7 "Data variazione " + FIELD LF_ANAG->DVARSLORES + HELP "Data di variazione della sede legale o residenza" +END + +BOOLEAN CHK_AF4_SOGGNRES +BEGIN + PROMPT 2 8 "Non residente" + FIELD LF_ANAG->SOGGNRES + HELP "Dire se si tratta di persone non residente" +END + +LIST FLD_AF4_RFDIVERSA 28 +BEGIN + PROMPT 2 9 "Domicilio fiscale diverso da sede legale " + FIELD LF_ANAG->RFDIVERSA + HELP "Descrizione per eventuale domicilio fiscale diverso diverso da sede legale" + ITEM "1|Nessuno" + ITEM "2|Residente all'estero" + ITEM "3|Provvedimento amministrativo" + ITEM "4|Variato da meno di 60gg" +END + +GROUPBOX DLG_NULL 76 5 +BEGIN + 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 " 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" +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" +END + +STRING FLD_AF5_CODSTAT2_TABSTT_S0 57 +BEGIN + 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" +END + +STRING FLD_AF5_CODSTAT3_TABSTT_S0 57 +BEGIN + PROMPT 16 16 "" + FLAGS "D" +END + +ENDPAGE + + +PAGE "Anagrafica persone fisiche" -1 -1 77 20 + +GROUPBOX DLG_NULL 76 5 +BEGIN + 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 +END + +STRING DLG_NULL 30 +BEGIN + PROMPT 2 2 "Cognome " + FLAGS "D" + GROUP 2 +END + +STRING DLG_NULL 20 +BEGIN + PROMPT 2 3 "Nome " + FLAGS "D" + GROUP 3 +END + +GROUPBOX DLG_NULL 76 8 +BEGIN + PROMPT 0 5 "Uffici competenti" +END + +STRING F_IMP_DENCOM 50 +BEGIN + PROMPT 1 6 "Comune " + FLAGS "D" +END + +STRING F_IMP_PROVCOM 5 +BEGIN + PROMPT 62 6 "Prov." + FLAGS "D" +END + +STRING F_UFFIIDD 3 +BEGIN + PROMPT 1 7 "Imposte Dirette " + FIELD LF_ANAG->UFFIIDD + FLAGS "RZ" + 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 +END + +STRING F_CC_ESATTORIA 8 +BEGIN + PROMPT 1 8 "C/C Esattoria " + FLAGS "D" +END + +STRING F_UFFREG 3 +BEGIN + PROMPT 1 9 "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 9 "" + FLAGS "D" +END + +NUMBER F_UFFCONC 3 +BEGIN + PROMPT 1 10 "Concessioni " + FLAGS "DRZG" + USE %UCC + INPUT CODTAB F_UFFCONC + OUTPUT F_UFFCONC CODTAB + OUTPUT F_DENUFFCONC S0 + CHECKTYPE NORMAL +END + +STRING F_DENUFFCONC 50 48 +BEGIN + PROMPT 24 10 "" + FLAGS "D" +END + +NUMBER F_UFFSERV 3 +BEGIN + PROMPT 1 11 "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 11 "" + FLAGS "D" +END + +GROUPBOX -1 76 3 +BEGIN + PROMPT 0 13 "Codice contribuente" +END + +STRING F_CODCONTR_EP 2 +BEGIN + PROMPT 1 14 "Esattoria Prov." + FIELD CODCONTR[1,2] + FLAGS "D" +END + +STRING F_CODCONTR_EC 3 +BEGIN + PROMPT 23 14 "Esattoria Com." + FIELD CODCONTR[3,5] + FLAGS "D" +END + +STRING F_CODCONTR 8 +BEGIN + PROMPT 46 14 "Codice " + FIELD CODCONTR[6,13] + HELP "Codice assegnato al contribuente" +END + +STRING F_CODCONTR_CC 2 +BEGIN + PROMPT 66 14 "C.c." + FIELD CODCONTR[14,15] +END + +ENDPAGE + +ENDMASK diff --git a/ba/ba4200c.uml b/ba/ba4200c.uml index d16b580d0..caf61aad6 100755 --- a/ba/ba4200c.uml +++ b/ba/ba4200c.uml @@ -1,1232 +1,1232 @@ -#include "ba4200.h" - -TOOLBAR "" 0 19 0 3 - -BUTTON DLG_CHGTIP 21 1 -BEGIN - PROMPT -13 -3 "Persone Fisiche" - MESSAGE K_F10 -END - -BUTTON DLG_DITTE 8 1 -BEGIN - PROMPT -36 -3 "Ditte" - MESSAGE K_F5 -END - -#include -ENDPAGE - -PAGE "Anagrafica persone giuridiche" -1 -1 77 20 - - LIST DLG_NULL 1 - BEGIN - FIELD LF_ANAG->TIPOA - ITEM "G|Giuridica" - FLAGS "H" - KEY 1 2 3 - END - -GROUPBOX DLG_NULL 76 4 -BEGIN - PROMPT 0 0 "Persone giuridiche" - FLAGS "R" -END - -NUMBER FLD_CODANAGR 5 -BEGIN - PROMPT 2 1 "Codice " - HELP "Codice identificativo della persona fisica" - FIELD LF_ANAG->CODANAGR - FLAGS "RG" - USE LF_ANAG - CHECKTYPE REQUIRED - INPUT TIPOA "G" - INPUT CODANAGR FLD_CODANAGR - DISPLAY "Codice" CODANAGR - DISPLAY "Ragione sociale@50" RAGSOC - DISPLAY "Codice Fiscale@16" COFI - OUTPUT FLD_CODANAGR CODANAGR - OUTPUT FLD_AG1_RAGSOC RAGSOC - OUTPUT FLD_AG1_COFI COFI - MESSAGE COPY,1@ - KEY 1 -END - -STRING FLD_AG1_RAGSOC 50 -BEGIN - PROMPT 2 2 "Ragione sociale " - FIELD LF_ANAG->RAGSOC - HELP "Ragione sociale della persona giuridica" - MESSAGE COPY,2@ - FLAGS "G" - WARNING "Inserire la ragione sociale" - USE LF_ANAG KEY 2 - INPUT TIPOA "G" - CHECKTYPE REQUIRED - INPUT RAGSOC FLD_AG1_RAGSOC - DISPLAY "Ragione sociale@50" RAGSOC - DISPLAY "Codice" CODANAGR - DISPLAY "Codice Fiscale " COFI - COPY OUTPUT FLD_CODANAGR - KEY 2 -END - -GROUPBOX DLG_NULL 40 4 -BEGIN - PROMPT 0 4 "Partita IVA " -END - -LIST FLD_AG1_STATOPAIV 18 -BEGIN - PROMPT 2 5 "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_AG1_PAIV 12 -BEGIN - PROMPT 2 6 "Codice " - FIELD LF_ANAG->PAIV - HELP "Partita IVA della persona giuridica" - VALIDATE XTZPI_FUNC FLD_AG1_STATOPAIV FLD_AG1_COMRF FLD_AG2_COMRES -END - -STRING FLD_AG1_COFI 12 -BEGIN - PROMPT 46 5 "Codice fiscale " - FIELD LF_ANAG->COFI - FLAGS "U" - HELP "Codice fiscale della persona giuridica" - VALIDATE XTZPI_FUNC FLD_AG1_STATOPAIV FLD_AG1_COMRF FLD_AG2_COMRES - USE LF_ANAG KEY 3 - INPUT TIPOA "G" - INPUT COFI FLD_AG1_COFI - DISPLAY "Codice Fiscale@16" COFI - DISPLAY "Ragione sociale@50" RAGSOC - DISPLAY "Codice" CODANAGR - COPY OUTPUT FLD_CODANAGR - CHECKTYPE REQUIRED - KEY 3 -END - -GROUPBOX DLG_NULL 76 5 -BEGIN - PROMPT 0 8 "Dati societari " -END - -STRING FLD_AG1_OGGSOC 60 -BEGIN - PROMPT 2 9 "Oggetto " - FIELD LF_ANAGGIU->OGGSOC - HELP "Oggetto sociale della persona giuridica" -END - -STRING FLD_AG1_PERRIF 20 -BEGIN - PROMPT 2 10 "Riferimento " - FIELD LF_ANAGGIU->PERRIF - HELP "Nome della persona cui fare riferimento" -END - -BOOLEAN CHK_AG1_ENTENCOMM -BEGIN - PROMPT 47 10 "Ente non commerciale" - FIELD LF_ANAGGIU->ENTENCOMM - HELP "Indicare se si tratta di un ente non commerciale" -END - -STRING FLD_AG1_SIGLA 20 -BEGIN - PROMPT 2 11 "Sigla " - FIELD LF_ANAGGIU->SIGLA - HELP "Indicare la sigla identificativa della persona giuridica" -END - -GROUPBOX DLG_NULL 76 3 -BEGIN - PROMPT 0 13 "Ultimo aggiornamento" -END - -DATE FLD_ANAG_DATAAGG -BEGIN - PROMPT 2 14 "Data " - FIELD LF_ANAG->DATAAGG - FLAGS "DA" -END - -STRING FLD_ANAG_UTAGG 10 -BEGIN - PROMPT 56 14 "Utente " - FLAGS "DA" -END - -ENDPAGE - -PAGE "Anagrafica persone giuridiche" -1 -1 77 20 - -GROUPBOX DLG_NULL 76 4 -BEGIN - PROMPT 0 0 "Persone giuridiche" - FLAGS "R" -END - -NUMBER DLG_NULL 5 -BEGIN - PROMPT 2 1 "Codice " - FIELD LF_ANAGGIU->CODANAGR - FLAGS "DR" - GROUP 1 -END - -STRING DLG_NULL 50 -BEGIN - PROMPT 2 2 "Ragione sociale " - FLAGS "D" - GROUP 2 -END - -GROUPBOX DLG_NULL 76 6 -BEGIN - PROMPT 0 4 "Sede Legale" -END - -STRING FLD_AG2_INDRES 35 -BEGIN - PROMPT 2 5 "Indirizzo " - FIELD LF_ANAG->INDRES - HELP "Indirizzo della sede legale" - WARNING "Completare l'indirizzo di residenza" - CHECKTYPE REQUIRED -END - -STRING FLD_AG2_CIVRES 10 -BEGIN - PROMPT 56 5 "N." - FIELD LF_ANAG->CIVRES - HELP "Numero civico della sede legale" -END - -NUMBER FLD_AG2_STATORES 3 -BEGIN - PROMPT 2 6 "Comune : Stato " - FIELD LF_ANAG->STATORES - FLAGS "RZ" - USE %STA - INPUT CODTAB FLD_AG2_STATORES - DISPLAY "Codice" CODTAB - DISPLAY "Stato@50" S0 - OUTPUT FLD_AG2_STATORES CODTAB - HELP "Codice dello stato sede" - CHECKTYPE NORMAL - WARNING "Stato assente" -END - -STRING FLD_AG2_COMRES 4 -BEGIN - PROMPT 9 7 ": Codice " - FIELD LF_ANAG->COMRES - FLAGS "U" - USE LF_COMUNI - INPUT STATO FLD_AG2_STATORES - INPUT COM FLD_AG2_COMRES -#include - OUTPUT FLD_AG2_STATORES STATO - OUTPUT FLD_AG2_COMRES COM - OUTPUT FLD_AG2_COMRES_COMUNI_DENCOM DENCOM - OUTPUT FLD_AG2_COMRES_COMUNI_PROVCOM PROVCOM - OUTPUT FLD_AG2_CAPRES CAPCOM - HELP "Codice del comune sede della persoan giuridica" - CHECKTYPE REQUIRED - WARNING "Comune assente" - ADD MASK ba4100a -END - -STRING FLD_AG2_COMRES_COMUNI_PROVCOM 5 -BEGIN - PROMPT 38 7 "Provincia " - FLAGS "D" -END - -STRING FLD_AG2_CAPRES 5 -BEGIN - PROMPT 56 7 "CAP " - FIELD LF_ANAG->CAPRES - HELP "CAP del comune sede legale" -END - -STRING FLD_AG2_COMRES_COMUNI_DENCOM 50 -BEGIN - PROMPT 9 8 ": Nome " - HELP "Nome del comune sede legale" - USE LF_COMUNI KEY 2 - INPUT DENCOM FLD_AG2_COMRES_COMUNI_DENCOM -#include - OUTPUT FLD_AG2_STATORES STATO - OUTPUT FLD_AG2_COMRES COM - OUTPUT FLD_AG2_COMRES_COMUNI_DENCOM DENCOM - OUTPUT FLD_AG2_COMRES_COMUNI_PROVCOM PROVCOM - OUTPUT FLD_AG2_CAPRES CAPCOM - ADD MASK ba4100a -END - -GROUPBOX DLG_NULL 76 6 -BEGIN - PROMPT 0 10 "Residenza Fiscale" -END - -STRING FLD_AG1_INDRF 35 -BEGIN - PROMPT 2 11 "Indirizzo " - FIELD LF_ANAG->INDRF - HELP "Indirizzo della residenza fiscale" - WARNING "Completare l'indirizzo di residenza fiscale" - VALIDATE REQIF_FUNC 1 FLD_AG1_COMRF -END - -STRING FLD_AG1_CIVRF 10 -BEGIN - PROMPT 56 11 "N." - FIELD LF_ANAG->CIVRF - HELP "Numero civico della residenza fiscale" -END - -NUMBER FLD_AG1_STATORF 3 -BEGIN - PROMPT 2 12 "Comune : Stato " - FIELD LF_ANAG->STATORF - FLAGS "RZ" - COPY USE FLD_AG2_STATORES - INPUT CODTAB FLD_AG2_STATORES - COPY DISPLAY FLD_AG2_STATORES - OUTPUT FLD_AG1_STATORF CODTAB - HELP "Codice dello stato residenza fiscale" - CHECKTYPE NORMAL - WARNING "Stato assente" -END - -STRING FLD_AG1_COMRF 4 -BEGIN - PROMPT 9 13 ": Codice " - FIELD LF_ANAG->COMRF - FLAGS "U" - COPY USE FLD_AG2_COMRES - INPUT STATO FLD_AG1_STATORF - INPUT COM FLD_AG1_COMRF - COPY DISPLAY FLD_AG2_COMRES - OUTPUT FLD_AG1_STATORF STATO - OUTPUT FLD_AG1_COMRF COM - OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM - OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM - OUTPUT FLD_AG1_CAPRF CAPCOM - HELP "Codice del comune residenza fiscale" - CHECKTYPE NORMAL - WARNING "Comune assente" - ADD MASK ba4100a -END - -STRING FLD_AG1_COMRF_COMUNI_PROVCOM 5 -BEGIN - PROMPT 38 13 "Provincia " - FLAGS "D" -END - -STRING FLD_AG1_CAPRF 5 -BEGIN - PROMPT 56 13 "CAP " - FIELD LF_ANAG->CAPRF - HELP "CAP del comune residenza fiscale" -END - -STRING FLD_AG1_COMRF_COMUNI_DENCOM 50 -BEGIN - PROMPT 9 14 ": Nome " - HELP "Nome del comune residenza fiscale" - USE LF_COMUNI KEY 2 - COPY USE FLD_AG2_COMRES_COMUNI_DENCOM - INPUT DENCOM FLD_AG1_COMRF_COMUNI_DENCOM - COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM - OUTPUT FLD_AG1_STATORF STATO - OUTPUT FLD_AG1_COMRF COM - OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM - OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM - OUTPUT FLD_AG1_CAPRF CAPCOM - ADD MASK ba4100a -END - -ENDPAGE - -PAGE "Anagrafica persone giuridiche" -1 -1 77 20 - -GROUPBOX DLG_NULL 76 4 -BEGIN - PROMPT 0 0 "Persone giuridiche" - FLAGS "R" -END - -NUMBER DLG_NULL 5 -BEGIN - PROMPT 2 1 "Codice " - FIELD LF_ANAGGIU->CODANAGR - FLAGS "DR" - GROUP 1 -END - -STRING DLG_NULL 50 -BEGIN - PROMPT 2 2 "Ragione sociale " - FLAGS "D" - GROUP 2 -END - -GROUPBOX DLG_NULL 75 6 -BEGIN - PROMPT 0 4 "Corrispondenza" -END - -STRING FLD_AG2_INDCORR 35 -BEGIN - PROMPT 2 5 "Indirizzo " - FIELD LF_ANAG->INDCORR - HELP "Indirizzo a cui mandare la corrispondenza" - WARNING "Completare l'indirizzo di corrispondenza" - VALIDATE EMPTYCOPY_FUNC FLD_AG2_INDRES -END - -STRING FLD_AG2_CIVCORR 10 -BEGIN - PROMPT 56 5 "N." - FIELD LF_ANAG->CIVCORR - HELP "Numero civico a cui mandare la corrispondenza" - VALIDATE EMPTYCOPY_FUNC FLD_AG2_CIVRES -END - -NUMBER FLD_AG2_STATOCORR 3 -BEGIN - PROMPT 2 6 "Comune : Stato " - FIELD LF_ANAG->STATOCORR - FLAGS "RZ" - COPY USE FLD_AG2_STATORES - INPUT CODTAB FLD_AG2_STATOCORR - INPUT CODTAB FLD_AG2_STATORES - OUTPUT FLD_AG2_STATOCORR CODTAB - HELP "Codice dello stato a cui mandare la corrispondenza" - CHECKTYPE NORMAL - VALIDATE EMPTYCOPY_FUNC FLD_AG2_STATORES -END - -STRING FLD_AG2_COMCORR 4 -BEGIN - PROMPT 9 7 ": Codice " - FIELD LF_ANAG->COMCORR - FLAGS "U" - COPY USE FLD_AG2_COMRES - INPUT STATO FLD_AG2_STATOCORR - INPUT COM FLD_AG2_COMCORR - COPY DISPLAY FLD_AG2_COMRES - OUTPUT FLD_AG2_STATOCORR STATO - OUTPUT FLD_AG2_COMCORR COM - OUTPUT FLD_AG2_COMCORR_COMUNI_DENCOM DENCOM - OUTPUT FLD_AG2_COMCORR_COMUNI_PROVCOM PROVCOM - OUTPUT FLD_AG2_CAPCORR CAPCOM - HELP "Codice del comune a cui mandare la corrispondenza" - CHECKTYPE NORMAL - VALIDATE EMPTYCOPY_FUNC FLD_AG2_COMRES - ADD MASK ba4100a -END - -STRING FLD_AG2_COMCORR_COMUNI_PROVCOM 5 -BEGIN - PROMPT 38 7 "Provincia " - FLAGS "D" - VALIDATE EMPTYCOPY_FUNC FLD_AG2_COMRES_COMUNI_PROVCOM -END - -STRING FLD_AG2_CAPCORR 5 -BEGIN - PROMPT 56 7 "CAP " - FIELD LF_ANAG->CAPCORR - HELP "CAP al quale spedire la corrispondenza" - VALIDATE EMPTYCOPY_FUNC FLD_AG2_CAPRES -END - -STRING FLD_AG2_COMCORR_COMUNI_DENCOM 50 -BEGIN - PROMPT 9 8 ": Nome " - HELP "Nome del comune a cui mandare la corrispondenza" - COPY USE FLD_AG2_COMRES_COMUNI_DENCOM - INPUT DENCOM FLD_AG2_COMCORR_COMUNI_DENCOM - COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM - OUTPUT FLD_AG2_STATOCORR STATO - OUTPUT FLD_AG2_COMCORR COM - OUTPUT FLD_AG2_COMCORR_COMUNI_DENCOM DENCOM - OUTPUT FLD_AG2_COMCORR_COMUNI_PROVCOM PROVCOM - OUTPUT FLD_AG2_CAPCORR CAPCOM - ADD MASK ba4100a - VALIDATE EMPTYCOPY_FUNC FLD_AG2_COMRES_COMUNI_DENCOM -END - -GROUPBOX DLG_NULL 75 5 -BEGIN - PROMPT 0 10 "Telefoni" -END - -STRING FLD_AG2_PTELRF 10 -BEGIN - PROMPT 2 11 "Telefono : Prefisso " - FIELD LF_ANAG->PTELRF - HELP "Prefisso telefonico della persona giuridica" -END - -STRING FLD_AG2_TELRF 30 -BEGIN - PROMPT 35 11 "Numero " - FIELD LF_ANAG->TELRF - HELP "Numero di telefono della persona giuridica" -END - -STRING FLD_AG2_PFAXRF 10 -BEGIN - PROMPT 2 12 "Telefax : Prefisso " - FIELD LF_ANAG->PFAXRF - HELP "Prefisso del fax della persona giuridica" -END - -STRING FLD_AG2_FAXRF 30 -BEGIN - PROMPT 35 12 "Numero " - FIELD LF_ANAG->FAXRF - HELP "Numero di telefono della persona giuridica" -END - -STRING FLD_AG2_PTLEXRF 10 -BEGIN - PROMPT 2 13 "Telex : Prefisso " - FIELD LF_ANAG->PTLEXRF - HELP "Prefisso del telex della persona giuridica" -END - -STRING FLD_AG2_TLEXRF 30 -BEGIN - PROMPT 35 13 "Numero " - FIELD LF_ANAG->TLEXRFX - HELP "Numero del telex della perosna giuridica" -END - -ENDPAGE - -PAGE "Anagrafica persone giuridiche" -1 -1 77 20 - -GROUPBOX DLG_NULL 76 4 -BEGIN - PROMPT 0 0 "Persone giuridiche" - FLAGS "R" -END - -NUMBER DLG_NULL 5 -BEGIN - PROMPT 2 1 "Codice " - FIELD LF_ANAGGIU->CODANAGR - FLAGS "DR" - GROUP 1 -END - -STRING DLG_NULL 50 -BEGIN - PROMPT 2 2 "Ragione sociale " - FLAGS "D" - GROUP 2 -END - -GROUPBOX DLG_NULL 28 5 -BEGIN - PROMPT 1 9 "Bilancio" -END - -GROUPBOX DLG_NULL 76 13 -BEGIN - PROMPT 0 4 "Dati Societa'" -END - -STRING F_COMCOST 4 -BEGIN - PROMPT 2 5 "Luogo costituz. " - FIELD LF_ANAGGIU->COMCOST - FLAGS "U" - USE LF_COMUNI - COPY USE FLD_AG2_COMRES - INPUT STATO "" - INPUT COM F_COMCOST -#include - OUTPUT F_COMCOST COM - OUTPUT F_DENCOMCOST DENCOM - HELP "Codice del comune dove e' stata costituita la societa'" - CHECKTYPE NORMAL - WARNING "Comune assente" - ADD MASK ba4100a -END - -STRING F_DENCOMCOST 50 46 -BEGIN - PROMPT 26 5 "" - HELP "Nome del comune dove e' stata costituita la societa'" - COPY USE FLD_AG2_COMRES_COMUNI_DENCOM - INPUT DENCOM F_DENCOMCOST -#include - COPY OUTPUT F_COMCOST - CHECKTYPE NORMAL - ADD MASK ba4100a -END - -DATE FLD_AG3_DATACOST -BEGIN - PROMPT 2 6 "Data costituz. " - FIELD LF_ANAGGIU->DATACOST - HELP "Data di costituzione della societa'" -END - -DATE FLD_AG3_DATAOMOL -BEGIN - PROMPT 31 6 "Data omologa " - FIELD LF_ANAGGIU->DATAOMOL - HELP "Data di omologazione della societa'" - WARNING "Data non corretta" - VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST -END - -DATE FLD_AG3_DATAISCRIZ -BEGIN - PROMPT 2 7 "Data iscrizione " - FIELD LF_ANAGGIU->DATAISCRIZ - HELP "Data di iscrizione della societa'" - WARNING "Data non corretta" - VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST -END - -DATE FLD_AG3_DATASORAMM -BEGIN - PROMPT 31 7 "Data scadenza organo amministr. " - FIELD LF_ANAGGIU->DATASORAMM - HELP "Data in cui decadono gli organi amministrativi" -END - -DATE FLD_AG3_DATASCAD -BEGIN - PROMPT 2 8 "Data scadenza " - FIELD LF_ANAGGIU->DATASCAD - HELP "Data di termine attivita' della societa'" - WARNING "La data di scadenza non puo' precedere quella di costituzione" - VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST -END - -DATE FLD_AG3_DATASCSIND -BEGIN - PROMPT 31 8 "Data scadenza collegio sindac. " - FIELD LF_ANAGGIU->DATASCSIND - HELP "Data in cui decade il colleggio sindacale" -END - -DATE FLD_AG3_DATATAPPBI -BEGIN - PROMPT 2 10 "Data termine " - FIELD LF_ANAGGIU->DATATAPPBI - HELP "Data termine dell'anno che compare sul bilancio" -END - -BOOLEAN CHK_AGIU2_VARDEN -BEGIN - PROMPT 29 10 "Variata denominazione" - FIELD LF_ANAGGIU->VARDEN - HELP "Indicare se e' variata la denominazione della persona giuridica" -END - -DATE FLD_AG3_DATAAPPBIL -BEGIN - PROMPT 2 11 "Data approv. " - FIELD LF_ANAGGIU->DATAAPPBIL - HELP "Data di approvazione del bilancio" -END - -BOOLEAN CHK_AGIU2_VARRF -BEGIN - PROMPT 29 11 "Variata residenza fiscale " - FIELD LF_ANAGGIU->VARRF - HELP "Indicare se e' stata variata la residenza fiscale" - MESSAGE FALSE DISABLE,FLD_AG3_DATAVARRF - MESSAGE FALSE RESET,FLD_AG3_DATAVARRF - MESSAGE TRUE ENABLE,FLD_AG3_DATAVARRF -END - -DATE FLD_AG3_DATAVARRF -BEGIN - PROMPT 60 11 "il " - FIELD LF_ANAGGIU->DATAVARRF - HELP "Data di variazione della residenza fiscale" -END - -DATE FLD_AG3_DATACHIUS -BEGIN - PROMPT 2 12 "Data chiusura " - FIELD LF_ANAGGIU->DATACHIUS - HELP "Data di chiusura dell'anno di contabilita'" -END - -BOOLEAN CHK_AG5_NONRES -BEGIN - PROMPT 29 12 "Non residente" - FIELD LF_ANAG->SOGGNRES - HELP "Indicare se si tratta di persona giuridica non residente" -END - -NUMBER LST_AG3_STATOSOC 1 -BEGIN - PROMPT 2 15 "Stato Societa' " - FIELD LF_ANAGGIU->STATOSOC - SHEET "Codice|Stato@50" - INPUT LST_AG3_STATOSOC - OUTPUT LST_AG3_STATOSOC - HELP "Stato in cui si trova la societa'" - ITEM " |Sconosciuto" - ITEM "1|Soggetto in normale attivita'" - ITEM "2|Soggetto in liquidazione per cessazione di attivita'" - ITEM "3|Soggetto in fallimento o in liquidazione coatta amministrativa" - ITEM "4|Soggetto estinto" -END - -NUMBER LST_AG3_SITSOC 1 -BEGIN - PROMPT 29 15 "Situazione societa'" - FIELD LF_ANAGGIU->SITSOC - SHEET "Codice|Situazione@88" - INPUT LST_AG3_SITSOC - OUTPUT LST_AG3_SITSOC - HELP "Situazione in cui si trova la societa'" - ITEM " |Sconosciuta" - ITEM "1|Periodo d'imposta in cui ha avuto inizio la liquidazione" - ITEM "2|Periodi d'imposta successivi a quello in cui ha avuto inizio la liquidazione" - ITEM "3|Periodo d'imposta in cui ha avuto termine la liquidazione" - ITEM "4|Periodo d'imposta in cui si e' verificata l' estinzione del soggetto" - ITEM "5|Periodo d'imposta in cui si e' variato l' assoggettamento IRPEG del soggetto" - ITEM "6|Periodo d'imposta normale" - ITEM "7|Periodo d'imposta in cui si e' verificata l'estinzione del soggetto per scissione totale" -END - -NUMBER LST_AG3_NATGIU 2 -BEGIN - PROMPT 53 15 "Natura Giuridica " - FIELD LF_ANAGGIU->NATGIU - HELP "Natura giuridica della societa'" - SHEET "Codice|Natura Giuridica@120" - INPUT LST_AG3_NATGIU - OUTPUT LST_AG3_NATGIU - ITEM " |Sconosciuta" - ITEM "1|Societa' in accomandita per azioni" - ITEM "2|Societa' a resposabilita' limitata" - ITEM "3|Societa' per azioni" - ITEM "4|Societa' cooperative e loro consorzi iscritti nei registri prefettizi e nello schedario generale delle cooperazioni" - ITEM "5|Altre societa' cooperative" - ITEM "6|Mutue assicuratrici" - ITEM "7|Consorzi con personalita' giuridica" - ITEM "8|Associazioni riconosciute" - ITEM "9|Fondazioni" - ITEM "10|Altri enti od istituti con personalita' giuridica" - ITEM "11|Consorzi senza personalita' giuridica" - ITEM "12|Associazioni non riconosciute e comitati" - ITEM "13|Altre organizzazioni di persone o di beni senza personalita' giuridica (escluse le comunioni)" - ITEM "14|Enti pubblici economici" - ITEM "15|Enti pubblici non economici" - ITEM "16|Casse mutue e fondi di previdenza, assistenza, pensioni o simili con o senza personalita' giuridica" - ITEM "17|Opere pie e societa' di mutuo soccorso" - ITEM "18|Enti ospedalieri" - ITEM "19|Enti ed istituti di previdenza e asssistenza sociale" - ITEM "20|Aziende autonome di cure, soggiorno e turismo" - ITEM "21|Aziende regionai, provinciali, comunali e loro consorzi" - ITEM "22|Societa', organizzazaioni ed enti costituiti all'estero e non altrimenti classificabili con sede dell'amministrazione ad oggetto principale in Italia" - ITEM "23|Societa' semplici, irregolari o di fatto" - ITEM "24|Societa' in nome collettivo" - ITEM "25|Societa' in accomamdita semplice" - ITEM "26|Societa' d'armamento" - ITEM "27|Associazioni" -END - -ENDPAGE - -PAGE "Anagrafica persone giuridiche" -1 -1 77 20 - -GROUPBOX DLG_NULL 76 4 -BEGIN - PROMPT 0 0 "Persone giuridiche" - FLAGS "R" -END - -NUMBER DLG_NULL 5 -BEGIN - PROMPT 2 1 "Codice " - FIELD LF_ANAGGIU->CODANAGR - FLAGS "DR" - GROUP 1 -END - -STRING DLG_NULL 50 -BEGIN - PROMPT 2 2 "Ragione sociale " - FLAGS "D" - GROUP 2 -END - -GROUPBOX DLG_NULL 76 9 -BEGIN - PROMPT 0 4 "Dati Aziendali" -END - -NUMBER FLD_AG4_CAPSOC 15 -BEGIN - PROMPT 1 5 "Capitale Sociale " - FIELD LF_ANAGGIU->CAPSOC - FLAGS "R" - PICTURE "." - HELP "Importo del capitale sociale della ditta" -END - -NUMBER FLD_AG4_CAPVER 15 -BEGIN - PROMPT 1 6 "Capitale versato " - FIELD LF_ANAGGIU->CAPVER - FLAGS "R" - PICTURE "." - HELP "Importo del capitale sociale versato della ditta" -END - -NUMBER FLD_AG4_NAZIONI 9 -BEGIN - PROMPT 42 5 "Numero azioni " - FIELD LF_ANAGGIU->NAZIONI - FLAGS "R" - HELP "Numero di azioni emesse dalla societa'" -END - -NUMBER FLD_AG4_VALNOM 12 -BEGIN - PROMPT 42 6 "Valore nominale " - FIELD LF_ANAGGIU->VALNOM - FLAGS "R" - PICTURE "." - HELP "Valore nominale delle azioni emesse" -END - -NUMBER FLD_AG4_FATT 15 -BEGIN - PROMPT 1 7 "Fatturato " - FIELD LF_ANAGGIU->FATT - FLAGS "R" - PICTURE "." - HELP "Fatturato annuo medio della ditta" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 8 "Estratto atto costitutivo" -END - -STRING FLD_AG4_ESTROMOL 60 -BEGIN - PROMPT 13 9 "" - FIELD LF_ANAGGIU->ESTROMOL - HELP "Estremi dell'estratto dell'atto costituzionale" -END - -GROUPBOX DLG_NULL 76 4 -BEGIN - PROMPT 0 13 "Dati conto fiscale" -END - -BOOLEAN F_TITCF -BEGIN - PROMPT 2 14 "Titolare conto fiscale" - FIELD LF_ANAG->TITCF - HELP "Indicare se e' titolare di conto fiscale" -END - -LIST F_TIPOSTDEL 12 -BEGIN - PROMPT 42 14 "Stampa " - FIELD LF_ANAG->TIPOSTDEL - HELP "Tipo di documento per i versamenti" - ITEM "0|Delega" - ITEM "1|Bollettino" - ITEM "2|Distinta" -END - -NUMBER F_CODABI 5 -BEGIN - PROMPT 2 15 "Codice ABI " - HELP "Codice ABI della banca di appoggio" - FIELD LF_ANAG->CODABI - FLAGS "RZ" - USE %BAN - 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] -END - -NUMBER F_CODCAB 5 -BEGIN - PROMPT 42 15 "Codice CAB " - HELP "Codice CAB della banca di appoggio" - FIELD LF_ANAG->CODCAB - FLAGS "RZ" - COPY ALL F_CODABI -END - -ENDPAGE - -PAGE "Anagrafica persone giuridiche" -1 -1 77 20 - -GROUPBOX DLG_NULL 76 4 -BEGIN - PROMPT 0 0 "Persone giuridiche" - FLAGS "R" -END - -NUMBER DLG_NULL 5 -BEGIN - PROMPT 2 1 "Codice " - FIELD LF_ANAGGIU->CODANAGR - FLAGS "DR" - GROUP 1 -END - -STRING DLG_NULL 50 -BEGIN - PROMPT 2 2 "Ragione sociale " - FLAGS "D" - GROUP 2 -END - -LIST LST_AG5_EVECC 2 -BEGIN - PROMPT 37 4 "Eventi di natura eccezionale " - FIELD LF_ANAG->EVECC - HELP "Codice degli eventi naturali eccezionali accaduti alla ditta" - ITEM " | " - ITEM "A|A" - ITEM "B|B" - ITEM "C|C" - ITEM "D|D" -END - -BOOLEAN CHK_AG5_RESZTERR -BEGIN - PROMPT 2 5 "Residente in zona terremotata" - FIELD LF_ANAG->RESZTERR - HELP "Indicare se la ditta ha residenza in zona terremotata" -END - -BOOLEAN CHK_AG5_VARSLORES -BEGIN - PROMPT 2 6 "Sede legale variata" - FIELD LF_ANAG->VARSLORES - HELP "Indicare se e' stata variata la sede legale della ditta" - MESSAGE FALSE DISABLE,DLG_AG5_DVARSLOR - MESSAGE FALSE RESET,DLG_AG5_DVARSLOR - MESSAGE TRUE ENABLE,DLG_AG5_DVARSLOR -END - -DATE DLG_AG5_DVARSLOR -BEGIN - PROMPT 37 6 "Data variazione " - FIELD LF_ANAG->DVARSLORES - HELP "Data di variazione delle sede legale" -END - -BOOLEAN CHK_AG5_RFDSL -BEGIN - PROMPT 37 5 "Dom. fiscale diverso sede legale" - FIELD LF_ANAG->RFDIVERSA - HELP "Indicare se il domicilio fiscale e' diverso dalla sede legale" -END - -GROUPBOX DLG_NULL 76 5 -BEGIN - PROMPT 0 7 "Codici statistici" -END - -STRING FLD_AG6_CODSTAT1 7 -BEGIN - PROMPT 2 8 "1 " - FIELD LF_ANAG->CODSTAT1 - USE %STT - INPUT CODTAB FLD_AG6_CODSTAT1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT FLD_AG6_CODSTAT1 CODTAB - OUTPUT FLD_AG6_CODSTAT1_TABSTT_S0 S0 - HELP "Primo codice statistico" - CHECKTYPE NORMAL - WARNING "Codice assente" -END - -STRING FLD_AG6_CODSTAT1_TABSTT_S0 57 -BEGIN - PROMPT 16 8 "" - FLAGS "D" -END - -STRING FLD_AG6_CODSTAT2 7 -BEGIN - PROMPT 2 9 "2 " - FIELD LF_ANAG->CODSTAT2 - COPY USE FLD_AG6_CODSTAT1 - INPUT CODTAB FLD_AG6_CODSTAT2 - COPY DISPLAY FLD_AG6_CODSTAT1 - OUTPUT FLD_AG6_CODSTAT2 CODTAB - OUTPUT FLD_AG6_CODSTAT2_TABSTT_S0 S0 - HELP "Secondo codice statistico" - CHECKTYPE NORMAL - WARNING "Codice assente" -END - -STRING FLD_AG6_CODSTAT2_TABSTT_S0 57 -BEGIN - PROMPT 16 9 "" - FLAGS "D" -END - -STRING FLD_AG6_CODSTAT3 7 -BEGIN - PROMPT 2 10 "3 " - FIELD LF_ANAG->CODSTAT3 - COPY USE FLD_AG6_CODSTAT1 - INPUT CODTAB FLD_AG6_CODSTAT3 - COPY DISPLAY FLD_AG6_CODSTAT1 - OUTPUT FLD_AG6_CODSTAT3 CODTAB - OUTPUT FLD_AG6_CODSTAT3_TABSTT_S0 S0 - HELP "Terzo codice statistico" - CHECKTYPE NORMAL - WARNING "Codice assente" -END - -STRING FLD_AG6_CODSTAT3_TABSTT_S0 57 -BEGIN - PROMPT 16 10 "" - FLAGS "D" -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 12 "Note" -END - -STRING FLD_AG6_NOTE1 70 -BEGIN - PROMPT 3 13 "" - FIELD LF_ANAGGIU->NOTE1 - HELP "Eventuali note relative alla societa'" -END - -STRING FLD_AG6_NOTE2 70 -BEGIN - PROMPT 3 14 "" - FIELD LF_ANAGGIU->NOTE2 - HELP "Eventuali note relative alla societa'" -END - -STRING FLD_AG6_NOTE3 70 -BEGIN - PROMPT 3 15 "" - FIELD LF_ANAGGIU->NOTE3 - HELP "Eventuali note relative alla societa'" -END - -STRING FLD_AG6_NOTE4 70 -BEGIN - PROMPT 3 16 "" - FIELD LF_ANAGGIU->NOTE4 - HELP "Eventuali note relative alla societa'" -END - -STRING FLD_AG6_NOTE5 70 -BEGIN - PROMPT 3 17 "" - FIELD LF_ANAGGIU->NOTE5 - HELP "Eventuali note relative alla societa'" -END - -ENDPAGE - -PAGE "Anagrafica persone giuridiche" -1 -1 77 20 - -GROUPBOX DLG_NULL 76 4 -BEGIN - PROMPT 0 0 "Persone giuridiche" - FLAGS "R" -END - -NUMBER DLG_NULL 5 -BEGIN - PROMPT 2 1 "Codice " - FIELD LF_ANAGGIU->CODANAGR - FLAGS "DR" - GROUP 1 -END - -STRING DLG_NULL 50 -BEGIN - PROMPT 2 2 "Ragione sociale " - FLAGS "D" - GROUP 2 -END - -GROUPBOX DLG_NULL 76 8 -BEGIN - PROMPT 0 5 "Uffici competenti" -END - -STRING F_IMP_DENCOM 50 -BEGIN - PROMPT 1 6 "Comune " - FLAGS "D" -END - -STRING F_IMP_PROVCOM 5 -BEGIN - PROMPT 62 6 "Prov." - FLAGS "D" -END - -STRING F_UFFIIDD 3 -BEGIN - PROMPT 1 7 "Imposte Dirette " - FIELD LF_ANAG->UFFIIDD - FLAGS "RZ" - USE %UID - INPUT CODTAB F_UFFIIDD - DISPLAY "Ufficio" CODTAB - DISPLAY "Denominazione@50" S0 - OUTPUT F_UFFIIDD CODTAB - OUTPUT F_DENUFFIIDD S0 - OUTPUT F_CC_ESATTORIA S4 - HELP "Codice ufficio delle imposte dirette competente" - CHECKTYPE NORMAL - WARNING "Ufficio imposte assente" -END - -STRINF F_DENUFFIIDD 50 48 -BEGIN - PROMPT 23 7 " " - HELP "Denominazione ufficio delle imposte dirette competente" - USE %UID KEY 2 - INPUT S0 F_DENUFFIIDD - DISPLAY "Denominazione@50" S0 - DISPLAY "Ufficio" CODTAB - DISPLAY "C.C.@8" S4 - COPY OUTPUT F_UFFIIDD -END - -STRING F_CC_ESATTORIA 8 -BEGIN - PROMPT 1 8 "C/C Esattoria " - FLAGS "D" -END - -STRING F_UFFREG 3 -BEGIN - PROMPT 1 9 "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 9 "" - FLAGS "D" -END - -NUMBER F_UFFCONC 3 -BEGIN - PROMPT 1 10 "Concessioni " - FLAGS "DRZG" - USE %UCC - INPUT CODTAB F_UFFCONC - OUTPUT F_UFFCONC CODTAB - OUTPUT F_DENUFFCONC S0 - CHECKTYPE NORMAL -END - -STRING F_DENUFFCONC 50 48 -BEGIN - PROMPT 24 10 "" - FLAGS "D" -END - -NUMBER F_UFFSERV 3 -BEGIN - PROMPT 1 11 "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 11 "" - FLAGS "D" -END - -GROUPBOX -1 76 3 -BEGIN - PROMPT 0 13 "Codice contribuente" -END - -STRING F_CODCONTR_EP 2 -BEGIN - PROMPT 1 14 "Esattoria Prov." - FIELD CODCONTR[1,2] - FLAGS "D" -END - -STRING F_CODCONTR_EC 3 -BEGIN - PROMPT 23 14 "Esattoria Com." - FIELD CODCONTR[3,5] - FLAGS "D" -END - -STRING F_CODCONTR 8 -BEGIN - PROMPT 46 14 "Codice " - HELP "Codice contribuente assegnato alla persona giuridica" - FIELD CODCONTR[6,13] -END - -STRING F_CODCONTR_CC 2 -BEGIN - PROMPT 66 14 "C.c." - FIELD CODCONTR[14,15] -END - -ENDMASK +#include "ba4200.h" + +TOOLBAR "" 0 19 0 3 + +BUTTON DLG_CHGTIP 21 1 +BEGIN + PROMPT -13 -3 "Persone Fisiche" + MESSAGE K_F10 +END + +BUTTON DLG_DITTE 8 1 +BEGIN + PROMPT -36 -3 "Ditte" + MESSAGE K_F5 +END + +#include +ENDPAGE + +PAGE "Anagrafica persone giuridiche" -1 -1 77 20 + + LIST DLG_NULL 1 + BEGIN + FIELD LF_ANAG->TIPOA + ITEM "G|Giuridica" + FLAGS "H" + KEY 1 2 3 + END + +GROUPBOX DLG_NULL 76 4 +BEGIN + PROMPT 0 0 "Persone giuridiche" + FLAGS "R" +END + +NUMBER FLD_CODANAGR 5 +BEGIN + PROMPT 2 1 "Codice " + HELP "Codice identificativo della persona fisica" + FIELD LF_ANAG->CODANAGR + FLAGS "RG" + USE LF_ANAG + CHECKTYPE REQUIRED + INPUT TIPOA "G" + INPUT CODANAGR FLD_CODANAGR + DISPLAY "Codice" CODANAGR + DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Codice Fiscale@16" COFI + OUTPUT FLD_CODANAGR CODANAGR + OUTPUT FLD_AG1_RAGSOC RAGSOC + OUTPUT FLD_AG1_COFI COFI + MESSAGE COPY,1@ + KEY 1 +END + +STRING FLD_AG1_RAGSOC 50 +BEGIN + PROMPT 2 2 "Ragione sociale " + FIELD LF_ANAG->RAGSOC + HELP "Ragione sociale della persona giuridica" + MESSAGE COPY,2@ + FLAGS "G" + WARNING "Inserire la ragione sociale" + USE LF_ANAG KEY 2 + INPUT TIPOA "G" + CHECKTYPE REQUIRED + INPUT RAGSOC FLD_AG1_RAGSOC + DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Codice" CODANAGR + DISPLAY "Codice Fiscale " COFI + COPY OUTPUT FLD_CODANAGR + KEY 2 +END + +GROUPBOX DLG_NULL 40 4 +BEGIN + PROMPT 0 4 "Partita IVA " +END + +LIST FLD_AG1_STATOPAIV 18 +BEGIN + PROMPT 2 5 "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_AG1_PAIV 12 +BEGIN + PROMPT 2 6 "Codice " + FIELD LF_ANAG->PAIV + HELP "Partita IVA della persona giuridica" + VALIDATE XTZPI_FUNC FLD_AG1_STATOPAIV FLD_AG1_COMRF FLD_AG2_COMRES +END + +STRING FLD_AG1_COFI 12 +BEGIN + PROMPT 46 5 "Codice fiscale " + FIELD LF_ANAG->COFI + FLAGS "U" + HELP "Codice fiscale della persona giuridica" + VALIDATE XTZPI_FUNC FLD_AG1_STATOPAIV FLD_AG1_COMRF FLD_AG2_COMRES + USE LF_ANAG KEY 3 + INPUT TIPOA "G" + INPUT COFI FLD_AG1_COFI + DISPLAY "Codice Fiscale@16" COFI + DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Codice" CODANAGR + COPY OUTPUT FLD_CODANAGR + CHECKTYPE REQUIRED + KEY 3 +END + +GROUPBOX DLG_NULL 76 5 +BEGIN + PROMPT 0 8 "Dati societari " +END + +STRING FLD_AG1_OGGSOC 60 +BEGIN + PROMPT 2 9 "Oggetto " + FIELD LF_ANAGGIU->OGGSOC + HELP "Oggetto sociale della persona giuridica" +END + +STRING FLD_AG1_PERRIF 20 +BEGIN + PROMPT 2 10 "Riferimento " + FIELD LF_ANAGGIU->PERRIF + HELP "Nome della persona cui fare riferimento" +END + +BOOLEAN CHK_AG1_ENTENCOMM +BEGIN + PROMPT 47 10 "Ente non commerciale" + FIELD LF_ANAGGIU->ENTENCOMM + HELP "Indicare se si tratta di un ente non commerciale" +END + +STRING FLD_AG1_SIGLA 20 +BEGIN + PROMPT 2 11 "Sigla " + FIELD LF_ANAGGIU->SIGLA + HELP "Indicare la sigla identificativa della persona giuridica" +END + +GROUPBOX DLG_NULL 76 3 +BEGIN + PROMPT 0 13 "Ultimo aggiornamento" +END + +DATE FLD_ANAG_DATAAGG +BEGIN + PROMPT 2 14 "Data " + FIELD LF_ANAG->DATAAGG + FLAGS "DA" +END + +STRING FLD_ANAG_UTAGG 10 +BEGIN + PROMPT 56 14 "Utente " + FLAGS "DA" +END + +ENDPAGE + +PAGE "Anagrafica persone giuridiche" -1 -1 77 20 + +GROUPBOX DLG_NULL 76 4 +BEGIN + PROMPT 0 0 "Persone giuridiche" + FLAGS "R" +END + +NUMBER DLG_NULL 5 +BEGIN + PROMPT 2 1 "Codice " + FIELD LF_ANAGGIU->CODANAGR + FLAGS "DR" + GROUP 1 +END + +STRING DLG_NULL 50 +BEGIN + PROMPT 2 2 "Ragione sociale " + FLAGS "D" + GROUP 2 +END + +GROUPBOX DLG_NULL 76 6 +BEGIN + PROMPT 0 4 "Sede Legale" +END + +STRING FLD_AG2_INDRES 35 +BEGIN + PROMPT 2 5 "Indirizzo " + FIELD LF_ANAG->INDRES + HELP "Indirizzo della sede legale" + WARNING "Completare l'indirizzo di residenza" + CHECKTYPE REQUIRED +END + +STRING FLD_AG2_CIVRES 10 +BEGIN + PROMPT 56 5 "N." + FIELD LF_ANAG->CIVRES + HELP "Numero civico della sede legale" +END + +NUMBER FLD_AG2_STATORES 3 +BEGIN + PROMPT 2 6 "Comune : Stato " + FIELD LF_ANAG->STATORES + FLAGS "RZ" + USE %STA + INPUT CODTAB FLD_AG2_STATORES + DISPLAY "Codice" CODTAB + DISPLAY "Stato@50" S0 + OUTPUT FLD_AG2_STATORES CODTAB + HELP "Codice dello stato sede" + CHECKTYPE NORMAL + WARNING "Stato assente" +END + +STRING FLD_AG2_COMRES 4 +BEGIN + PROMPT 9 7 ": Codice " + FIELD LF_ANAG->COMRES + FLAGS "U" + USE LF_COMUNI + INPUT STATO FLD_AG2_STATORES + INPUT COM FLD_AG2_COMRES +#include + OUTPUT FLD_AG2_STATORES STATO + OUTPUT FLD_AG2_COMRES COM + OUTPUT FLD_AG2_COMRES_COMUNI_DENCOM DENCOM + OUTPUT FLD_AG2_COMRES_COMUNI_PROVCOM PROVCOM + OUTPUT FLD_AG2_CAPRES CAPCOM + HELP "Codice del comune sede della persoan giuridica" + CHECKTYPE REQUIRED + WARNING "Comune assente" + ADD MASK ba4100a +END + +STRING FLD_AG2_COMRES_COMUNI_PROVCOM 5 +BEGIN + PROMPT 38 7 "Provincia " + FLAGS "D" +END + +STRING FLD_AG2_CAPRES 5 +BEGIN + PROMPT 56 7 "CAP " + FIELD LF_ANAG->CAPRES + HELP "CAP del comune sede legale" +END + +STRING FLD_AG2_COMRES_COMUNI_DENCOM 50 +BEGIN + PROMPT 9 8 ": Nome " + HELP "Nome del comune sede legale" + USE LF_COMUNI KEY 2 + INPUT DENCOM FLD_AG2_COMRES_COMUNI_DENCOM +#include + OUTPUT FLD_AG2_STATORES STATO + OUTPUT FLD_AG2_COMRES COM + OUTPUT FLD_AG2_COMRES_COMUNI_DENCOM DENCOM + OUTPUT FLD_AG2_COMRES_COMUNI_PROVCOM PROVCOM + OUTPUT FLD_AG2_CAPRES CAPCOM + ADD MASK ba4100a +END + +GROUPBOX DLG_NULL 76 6 +BEGIN + PROMPT 0 10 "Residenza Fiscale" +END + +STRING FLD_AG1_INDRF 35 +BEGIN + PROMPT 2 11 "Indirizzo " + FIELD LF_ANAG->INDRF + HELP "Indirizzo della residenza fiscale" + WARNING "Completare l'indirizzo di residenza fiscale" + VALIDATE REQIF_FUNC 1 FLD_AG1_COMRF +END + +STRING FLD_AG1_CIVRF 10 +BEGIN + PROMPT 56 11 "N." + FIELD LF_ANAG->CIVRF + HELP "Numero civico della residenza fiscale" +END + +NUMBER FLD_AG1_STATORF 3 +BEGIN + PROMPT 2 12 "Comune : Stato " + FIELD LF_ANAG->STATORF + FLAGS "RZ" + COPY USE FLD_AG2_STATORES + INPUT CODTAB FLD_AG2_STATORES + COPY DISPLAY FLD_AG2_STATORES + OUTPUT FLD_AG1_STATORF CODTAB + HELP "Codice dello stato residenza fiscale" + CHECKTYPE NORMAL + WARNING "Stato assente" +END + +STRING FLD_AG1_COMRF 4 +BEGIN + PROMPT 9 13 ": Codice " + FIELD LF_ANAG->COMRF + FLAGS "U" + COPY USE FLD_AG2_COMRES + INPUT STATO FLD_AG1_STATORF + INPUT COM FLD_AG1_COMRF + COPY DISPLAY FLD_AG2_COMRES + OUTPUT FLD_AG1_STATORF STATO + OUTPUT FLD_AG1_COMRF COM + OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM + OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM + OUTPUT FLD_AG1_CAPRF CAPCOM + HELP "Codice del comune residenza fiscale" + CHECKTYPE NORMAL + WARNING "Comune assente" + ADD MASK ba4100a +END + +STRING FLD_AG1_COMRF_COMUNI_PROVCOM 5 +BEGIN + PROMPT 38 13 "Provincia " + FLAGS "D" +END + +STRING FLD_AG1_CAPRF 5 +BEGIN + PROMPT 56 13 "CAP " + FIELD LF_ANAG->CAPRF + HELP "CAP del comune residenza fiscale" +END + +STRING FLD_AG1_COMRF_COMUNI_DENCOM 50 +BEGIN + PROMPT 9 14 ": Nome " + HELP "Nome del comune residenza fiscale" + USE LF_COMUNI KEY 2 + COPY USE FLD_AG2_COMRES_COMUNI_DENCOM + INPUT DENCOM FLD_AG1_COMRF_COMUNI_DENCOM + COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM + OUTPUT FLD_AG1_STATORF STATO + OUTPUT FLD_AG1_COMRF COM + OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM + OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM + OUTPUT FLD_AG1_CAPRF CAPCOM + ADD MASK ba4100a +END + +ENDPAGE + +PAGE "Anagrafica persone giuridiche" -1 -1 77 20 + +GROUPBOX DLG_NULL 76 4 +BEGIN + PROMPT 0 0 "Persone giuridiche" + FLAGS "R" +END + +NUMBER DLG_NULL 5 +BEGIN + PROMPT 2 1 "Codice " + FIELD LF_ANAGGIU->CODANAGR + FLAGS "DR" + GROUP 1 +END + +STRING DLG_NULL 50 +BEGIN + PROMPT 2 2 "Ragione sociale " + FLAGS "D" + GROUP 2 +END + +GROUPBOX DLG_NULL 75 6 +BEGIN + PROMPT 0 4 "Corrispondenza" +END + +STRING FLD_AG2_INDCORR 35 +BEGIN + PROMPT 2 5 "Indirizzo " + FIELD LF_ANAG->INDCORR + HELP "Indirizzo a cui mandare la corrispondenza" + WARNING "Completare l'indirizzo di corrispondenza" + VALIDATE EMPTYCOPY_FUNC FLD_AG2_INDRES +END + +STRING FLD_AG2_CIVCORR 10 +BEGIN + PROMPT 56 5 "N." + FIELD LF_ANAG->CIVCORR + HELP "Numero civico a cui mandare la corrispondenza" + VALIDATE EMPTYCOPY_FUNC FLD_AG2_CIVRES +END + +NUMBER FLD_AG2_STATOCORR 3 +BEGIN + PROMPT 2 6 "Comune : Stato " + FIELD LF_ANAG->STATOCORR + FLAGS "RZ" + COPY USE FLD_AG2_STATORES + INPUT CODTAB FLD_AG2_STATOCORR + INPUT CODTAB FLD_AG2_STATORES + OUTPUT FLD_AG2_STATOCORR CODTAB + HELP "Codice dello stato a cui mandare la corrispondenza" + CHECKTYPE NORMAL + VALIDATE EMPTYCOPY_FUNC FLD_AG2_STATORES +END + +STRING FLD_AG2_COMCORR 4 +BEGIN + PROMPT 9 7 ": Codice " + FIELD LF_ANAG->COMCORR + FLAGS "U" + COPY USE FLD_AG2_COMRES + INPUT STATO FLD_AG2_STATOCORR + INPUT COM FLD_AG2_COMCORR + COPY DISPLAY FLD_AG2_COMRES + OUTPUT FLD_AG2_STATOCORR STATO + OUTPUT FLD_AG2_COMCORR COM + OUTPUT FLD_AG2_COMCORR_COMUNI_DENCOM DENCOM + OUTPUT FLD_AG2_COMCORR_COMUNI_PROVCOM PROVCOM + OUTPUT FLD_AG2_CAPCORR CAPCOM + HELP "Codice del comune a cui mandare la corrispondenza" + CHECKTYPE NORMAL + VALIDATE EMPTYCOPY_FUNC FLD_AG2_COMRES + ADD MASK ba4100a +END + +STRING FLD_AG2_COMCORR_COMUNI_PROVCOM 5 +BEGIN + PROMPT 38 7 "Provincia " + FLAGS "D" + VALIDATE EMPTYCOPY_FUNC FLD_AG2_COMRES_COMUNI_PROVCOM +END + +STRING FLD_AG2_CAPCORR 5 +BEGIN + PROMPT 56 7 "CAP " + FIELD LF_ANAG->CAPCORR + HELP "CAP al quale spedire la corrispondenza" + VALIDATE EMPTYCOPY_FUNC FLD_AG2_CAPRES +END + +STRING FLD_AG2_COMCORR_COMUNI_DENCOM 50 +BEGIN + PROMPT 9 8 ": Nome " + HELP "Nome del comune a cui mandare la corrispondenza" + COPY USE FLD_AG2_COMRES_COMUNI_DENCOM + INPUT DENCOM FLD_AG2_COMCORR_COMUNI_DENCOM + COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM + OUTPUT FLD_AG2_STATOCORR STATO + OUTPUT FLD_AG2_COMCORR COM + OUTPUT FLD_AG2_COMCORR_COMUNI_DENCOM DENCOM + OUTPUT FLD_AG2_COMCORR_COMUNI_PROVCOM PROVCOM + OUTPUT FLD_AG2_CAPCORR CAPCOM + ADD MASK ba4100a + VALIDATE EMPTYCOPY_FUNC FLD_AG2_COMRES_COMUNI_DENCOM +END + +GROUPBOX DLG_NULL 75 5 +BEGIN + PROMPT 0 10 "Telefoni" +END + +STRING FLD_AG2_PTELRF 10 +BEGIN + PROMPT 2 11 "Telefono : Prefisso " + FIELD LF_ANAG->PTELRF + HELP "Prefisso telefonico della persona giuridica" +END + +STRING FLD_AG2_TELRF 30 +BEGIN + PROMPT 35 11 "Numero " + FIELD LF_ANAG->TELRF + HELP "Numero di telefono della persona giuridica" +END + +STRING FLD_AG2_PFAXRF 10 +BEGIN + PROMPT 2 12 "Telefax : Prefisso " + FIELD LF_ANAG->PFAXRF + HELP "Prefisso del fax della persona giuridica" +END + +STRING FLD_AG2_FAXRF 30 +BEGIN + PROMPT 35 12 "Numero " + FIELD LF_ANAG->FAXRF + HELP "Numero di telefono della persona giuridica" +END + +STRING FLD_AG2_PTLEXRF 10 +BEGIN + PROMPT 2 13 "Telex : Prefisso " + FIELD LF_ANAG->PTLEXRF + HELP "Prefisso del telex della persona giuridica" +END + +STRING FLD_AG2_TLEXRF 30 +BEGIN + PROMPT 35 13 "Numero " + FIELD LF_ANAG->TLEXRFX + HELP "Numero del telex della perosna giuridica" +END + +ENDPAGE + +PAGE "Anagrafica persone giuridiche" -1 -1 77 20 + +GROUPBOX DLG_NULL 76 4 +BEGIN + PROMPT 0 0 "Persone giuridiche" + FLAGS "R" +END + +NUMBER DLG_NULL 5 +BEGIN + PROMPT 2 1 "Codice " + FIELD LF_ANAGGIU->CODANAGR + FLAGS "DR" + GROUP 1 +END + +STRING DLG_NULL 50 +BEGIN + PROMPT 2 2 "Ragione sociale " + FLAGS "D" + GROUP 2 +END + +GROUPBOX DLG_NULL 28 5 +BEGIN + PROMPT 1 9 "Bilancio" +END + +GROUPBOX DLG_NULL 76 13 +BEGIN + PROMPT 0 4 "Dati Societa'" +END + +STRING F_COMCOST 4 +BEGIN + PROMPT 2 5 "Luogo costituz. " + FIELD LF_ANAGGIU->COMCOST + FLAGS "U" + USE LF_COMUNI + COPY USE FLD_AG2_COMRES + INPUT STATO "" + INPUT COM F_COMCOST +#include + OUTPUT F_COMCOST COM + OUTPUT F_DENCOMCOST DENCOM + HELP "Codice del comune dove e' stata costituita la societa'" + CHECKTYPE NORMAL + WARNING "Comune assente" + ADD MASK ba4100a +END + +STRING F_DENCOMCOST 50 46 +BEGIN + PROMPT 26 5 "" + HELP "Nome del comune dove e' stata costituita la societa'" + COPY USE FLD_AG2_COMRES_COMUNI_DENCOM + INPUT DENCOM F_DENCOMCOST +#include + COPY OUTPUT F_COMCOST + CHECKTYPE NORMAL + ADD MASK ba4100a +END + +DATE FLD_AG3_DATACOST +BEGIN + PROMPT 2 6 "Data costituz. " + FIELD LF_ANAGGIU->DATACOST + HELP "Data di costituzione della societa'" +END + +DATE FLD_AG3_DATAOMOL +BEGIN + PROMPT 31 6 "Data omologa " + FIELD LF_ANAGGIU->DATAOMOL + HELP "Data di omologazione della societa'" + WARNING "Data non corretta" + VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST +END + +DATE FLD_AG3_DATAISCRIZ +BEGIN + PROMPT 2 7 "Data iscrizione " + FIELD LF_ANAGGIU->DATAISCRIZ + HELP "Data di iscrizione della societa'" + WARNING "Data non corretta" + VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST +END + +DATE FLD_AG3_DATASORAMM +BEGIN + PROMPT 31 7 "Data scadenza organo amministr. " + FIELD LF_ANAGGIU->DATASORAMM + HELP "Data in cui decadono gli organi amministrativi" +END + +DATE FLD_AG3_DATASCAD +BEGIN + PROMPT 2 8 "Data scadenza " + FIELD LF_ANAGGIU->DATASCAD + HELP "Data di termine attivita' della societa'" + WARNING "La data di scadenza non puo' precedere quella di costituzione" + VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST +END + +DATE FLD_AG3_DATASCSIND +BEGIN + PROMPT 31 8 "Data scadenza collegio sindac. " + FIELD LF_ANAGGIU->DATASCSIND + HELP "Data in cui decade il colleggio sindacale" +END + +DATE FLD_AG3_DATATAPPBI +BEGIN + PROMPT 2 10 "Data termine " + FIELD LF_ANAGGIU->DATATAPPBI + HELP "Data termine dell'anno che compare sul bilancio" +END + +BOOLEAN CHK_AGIU2_VARDEN +BEGIN + PROMPT 29 10 "Variata denominazione" + FIELD LF_ANAGGIU->VARDEN + HELP "Indicare se e' variata la denominazione della persona giuridica" +END + +DATE FLD_AG3_DATAAPPBIL +BEGIN + PROMPT 2 11 "Data approv. " + FIELD LF_ANAGGIU->DATAAPPBIL + HELP "Data di approvazione del bilancio" +END + +BOOLEAN CHK_AGIU2_VARRF +BEGIN + PROMPT 29 11 "Variata residenza fiscale " + FIELD LF_ANAGGIU->VARRF + HELP "Indicare se e' stata variata la residenza fiscale" + MESSAGE FALSE DISABLE,FLD_AG3_DATAVARRF + MESSAGE FALSE RESET,FLD_AG3_DATAVARRF + MESSAGE TRUE ENABLE,FLD_AG3_DATAVARRF +END + +DATE FLD_AG3_DATAVARRF +BEGIN + PROMPT 60 11 "il " + FIELD LF_ANAGGIU->DATAVARRF + HELP "Data di variazione della residenza fiscale" +END + +DATE FLD_AG3_DATACHIUS +BEGIN + PROMPT 2 12 "Data chiusura " + FIELD LF_ANAGGIU->DATACHIUS + HELP "Data di chiusura dell'anno di contabilita'" +END + +BOOLEAN CHK_AG5_NONRES +BEGIN + PROMPT 29 12 "Non residente" + FIELD LF_ANAG->SOGGNRES + HELP "Indicare se si tratta di persona giuridica non residente" +END + +NUMBER LST_AG3_STATOSOC 1 +BEGIN + PROMPT 2 15 "Stato Societa' " + FIELD LF_ANAGGIU->STATOSOC + SHEET "Codice|Stato@50" + INPUT LST_AG3_STATOSOC + OUTPUT LST_AG3_STATOSOC + HELP "Stato in cui si trova la societa'" + ITEM " |Sconosciuto" + ITEM "1|Soggetto in normale attivita'" + ITEM "2|Soggetto in liquidazione per cessazione di attivita'" + ITEM "3|Soggetto in fallimento o in liquidazione coatta amministrativa" + ITEM "4|Soggetto estinto" +END + +NUMBER LST_AG3_SITSOC 1 +BEGIN + PROMPT 29 15 "Situazione societa'" + FIELD LF_ANAGGIU->SITSOC + SHEET "Codice|Situazione@88" + INPUT LST_AG3_SITSOC + OUTPUT LST_AG3_SITSOC + HELP "Situazione in cui si trova la societa'" + ITEM " |Sconosciuta" + ITEM "1|Periodo d'imposta in cui ha avuto inizio la liquidazione" + ITEM "2|Periodi d'imposta successivi a quello in cui ha avuto inizio la liquidazione" + ITEM "3|Periodo d'imposta in cui ha avuto termine la liquidazione" + ITEM "4|Periodo d'imposta in cui si e' verificata l' estinzione del soggetto" + ITEM "5|Periodo d'imposta in cui si e' variato l' assoggettamento IRPEG del soggetto" + ITEM "6|Periodo d'imposta normale" + ITEM "7|Periodo d'imposta in cui si e' verificata l'estinzione del soggetto per scissione totale" +END + +NUMBER LST_AG3_NATGIU 2 +BEGIN + PROMPT 53 15 "Natura Giuridica " + FIELD LF_ANAGGIU->NATGIU + HELP "Natura giuridica della societa'" + SHEET "Codice|Natura Giuridica@120" + INPUT LST_AG3_NATGIU + OUTPUT LST_AG3_NATGIU + ITEM " |Sconosciuta" + ITEM "1|Societa' in accomandita per azioni" + ITEM "2|Societa' a resposabilita' limitata" + ITEM "3|Societa' per azioni" + ITEM "4|Societa' cooperative e loro consorzi iscritti nei registri prefettizi e nello schedario generale delle cooperazioni" + ITEM "5|Altre societa' cooperative" + ITEM "6|Mutue assicuratrici" + ITEM "7|Consorzi con personalita' giuridica" + ITEM "8|Associazioni riconosciute" + ITEM "9|Fondazioni" + ITEM "10|Altri enti od istituti con personalita' giuridica" + ITEM "11|Consorzi senza personalita' giuridica" + ITEM "12|Associazioni non riconosciute e comitati" + ITEM "13|Altre organizzazioni di persone o di beni senza personalita' giuridica (escluse le comunioni)" + ITEM "14|Enti pubblici economici" + ITEM "15|Enti pubblici non economici" + ITEM "16|Casse mutue e fondi di previdenza, assistenza, pensioni o simili con o senza personalita' giuridica" + ITEM "17|Opere pie e societa' di mutuo soccorso" + ITEM "18|Enti ospedalieri" + ITEM "19|Enti ed istituti di previdenza e asssistenza sociale" + ITEM "20|Aziende autonome di cure, soggiorno e turismo" + ITEM "21|Aziende regionai, provinciali, comunali e loro consorzi" + ITEM "22|Societa', organizzazaioni ed enti costituiti all'estero e non altrimenti classificabili con sede dell'amministrazione ad oggetto principale in Italia" + ITEM "23|Societa' semplici, irregolari o di fatto" + ITEM "24|Societa' in nome collettivo" + ITEM "25|Societa' in accomamdita semplice" + ITEM "26|Societa' d'armamento" + ITEM "27|Associazioni" +END + +ENDPAGE + +PAGE "Anagrafica persone giuridiche" -1 -1 77 20 + +GROUPBOX DLG_NULL 76 4 +BEGIN + PROMPT 0 0 "Persone giuridiche" + FLAGS "R" +END + +NUMBER DLG_NULL 5 +BEGIN + PROMPT 2 1 "Codice " + FIELD LF_ANAGGIU->CODANAGR + FLAGS "DR" + GROUP 1 +END + +STRING DLG_NULL 50 +BEGIN + PROMPT 2 2 "Ragione sociale " + FLAGS "D" + GROUP 2 +END + +GROUPBOX DLG_NULL 76 9 +BEGIN + PROMPT 0 4 "Dati Aziendali" +END + +NUMBER FLD_AG4_CAPSOC 15 +BEGIN + PROMPT 1 5 "Capitale Sociale " + FIELD LF_ANAGGIU->CAPSOC + FLAGS "R" + PICTURE "." + HELP "Importo del capitale sociale della ditta" +END + +NUMBER FLD_AG4_CAPVER 15 +BEGIN + PROMPT 1 6 "Capitale versato " + FIELD LF_ANAGGIU->CAPVER + FLAGS "R" + PICTURE "." + HELP "Importo del capitale sociale versato della ditta" +END + +NUMBER FLD_AG4_NAZIONI 9 +BEGIN + PROMPT 42 5 "Numero azioni " + FIELD LF_ANAGGIU->NAZIONI + FLAGS "R" + HELP "Numero di azioni emesse dalla societa'" +END + +NUMBER FLD_AG4_VALNOM 12 +BEGIN + PROMPT 42 6 "Valore nominale " + FIELD LF_ANAGGIU->VALNOM + FLAGS "R" + PICTURE "." + HELP "Valore nominale delle azioni emesse" +END + +NUMBER FLD_AG4_FATT 15 +BEGIN + PROMPT 1 7 "Fatturato " + FIELD LF_ANAGGIU->FATT + FLAGS "R" + PICTURE "." + HELP "Fatturato annuo medio della ditta" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 8 "Estratto atto costitutivo" +END + +STRING FLD_AG4_ESTROMOL 60 +BEGIN + PROMPT 13 9 "" + FIELD LF_ANAGGIU->ESTROMOL + HELP "Estremi dell'estratto dell'atto costituzionale" +END + +GROUPBOX DLG_NULL 76 4 +BEGIN + PROMPT 0 13 "Dati conto fiscale" +END + +BOOLEAN F_TITCF +BEGIN + PROMPT 2 14 "Titolare conto fiscale" + FIELD LF_ANAG->TITCF + HELP "Indicare se e' titolare di conto fiscale" +END + +LIST F_TIPOSTDEL 12 +BEGIN + PROMPT 42 14 "Stampa " + FIELD LF_ANAG->TIPOSTDEL + HELP "Tipo di documento per i versamenti" + ITEM "0|Delega" + ITEM "1|Bollettino" + ITEM "2|Distinta" +END + +NUMBER F_CODABI 5 +BEGIN + PROMPT 2 15 "Codice ABI " + HELP "Codice ABI della banca di appoggio" + FIELD LF_ANAG->CODABI + FLAGS "RZ" + USE %BAN + 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] +END + +NUMBER F_CODCAB 5 +BEGIN + PROMPT 42 15 "Codice CAB " + HELP "Codice CAB della banca di appoggio" + FIELD LF_ANAG->CODCAB + FLAGS "RZ" + COPY ALL F_CODABI +END + +ENDPAGE + +PAGE "Anagrafica persone giuridiche" -1 -1 77 20 + +GROUPBOX DLG_NULL 76 4 +BEGIN + PROMPT 0 0 "Persone giuridiche" + FLAGS "R" +END + +NUMBER DLG_NULL 5 +BEGIN + PROMPT 2 1 "Codice " + FIELD LF_ANAGGIU->CODANAGR + FLAGS "DR" + GROUP 1 +END + +STRING DLG_NULL 50 +BEGIN + PROMPT 2 2 "Ragione sociale " + FLAGS "D" + GROUP 2 +END + +LIST LST_AG5_EVECC 2 +BEGIN + PROMPT 37 4 "Eventi di natura eccezionale " + FIELD LF_ANAG->EVECC + HELP "Codice degli eventi naturali eccezionali accaduti alla ditta" + ITEM " | " + ITEM "A|A" + ITEM "B|B" + ITEM "C|C" + ITEM "D|D" +END + +BOOLEAN CHK_AG5_RESZTERR +BEGIN + PROMPT 2 5 "Residente in zona terremotata" + FIELD LF_ANAG->RESZTERR + HELP "Indicare se la ditta ha residenza in zona terremotata" +END + +BOOLEAN CHK_AG5_VARSLORES +BEGIN + PROMPT 2 6 "Sede legale variata" + FIELD LF_ANAG->VARSLORES + HELP "Indicare se e' stata variata la sede legale della ditta" + MESSAGE FALSE DISABLE,DLG_AG5_DVARSLOR + MESSAGE FALSE RESET,DLG_AG5_DVARSLOR + MESSAGE TRUE ENABLE,DLG_AG5_DVARSLOR +END + +DATE DLG_AG5_DVARSLOR +BEGIN + PROMPT 37 6 "Data variazione " + FIELD LF_ANAG->DVARSLORES + HELP "Data di variazione delle sede legale" +END + +BOOLEAN CHK_AG5_RFDSL +BEGIN + PROMPT 37 5 "Dom. fiscale diverso sede legale" + FIELD LF_ANAG->RFDIVERSA + HELP "Indicare se il domicilio fiscale e' diverso dalla sede legale" +END + +GROUPBOX DLG_NULL 76 5 +BEGIN + PROMPT 0 7 "Codici statistici" +END + +STRING FLD_AG6_CODSTAT1 7 +BEGIN + PROMPT 2 8 "1 " + FIELD LF_ANAG->CODSTAT1 + USE %STT + INPUT CODTAB FLD_AG6_CODSTAT1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT FLD_AG6_CODSTAT1 CODTAB + OUTPUT FLD_AG6_CODSTAT1_TABSTT_S0 S0 + HELP "Primo codice statistico" + CHECKTYPE NORMAL + WARNING "Codice assente" +END + +STRING FLD_AG6_CODSTAT1_TABSTT_S0 57 +BEGIN + PROMPT 16 8 "" + FLAGS "D" +END + +STRING FLD_AG6_CODSTAT2 7 +BEGIN + PROMPT 2 9 "2 " + FIELD LF_ANAG->CODSTAT2 + COPY USE FLD_AG6_CODSTAT1 + INPUT CODTAB FLD_AG6_CODSTAT2 + COPY DISPLAY FLD_AG6_CODSTAT1 + OUTPUT FLD_AG6_CODSTAT2 CODTAB + OUTPUT FLD_AG6_CODSTAT2_TABSTT_S0 S0 + HELP "Secondo codice statistico" + CHECKTYPE NORMAL + WARNING "Codice assente" +END + +STRING FLD_AG6_CODSTAT2_TABSTT_S0 57 +BEGIN + PROMPT 16 9 "" + FLAGS "D" +END + +STRING FLD_AG6_CODSTAT3 7 +BEGIN + PROMPT 2 10 "3 " + FIELD LF_ANAG->CODSTAT3 + COPY USE FLD_AG6_CODSTAT1 + INPUT CODTAB FLD_AG6_CODSTAT3 + COPY DISPLAY FLD_AG6_CODSTAT1 + OUTPUT FLD_AG6_CODSTAT3 CODTAB + OUTPUT FLD_AG6_CODSTAT3_TABSTT_S0 S0 + HELP "Terzo codice statistico" + CHECKTYPE NORMAL + WARNING "Codice assente" +END + +STRING FLD_AG6_CODSTAT3_TABSTT_S0 57 +BEGIN + PROMPT 16 10 "" + FLAGS "D" +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 12 "Note" +END + +STRING FLD_AG6_NOTE1 70 +BEGIN + PROMPT 3 13 "" + FIELD LF_ANAGGIU->NOTE1 + HELP "Eventuali note relative alla societa'" +END + +STRING FLD_AG6_NOTE2 70 +BEGIN + PROMPT 3 14 "" + FIELD LF_ANAGGIU->NOTE2 + HELP "Eventuali note relative alla societa'" +END + +STRING FLD_AG6_NOTE3 70 +BEGIN + PROMPT 3 15 "" + FIELD LF_ANAGGIU->NOTE3 + HELP "Eventuali note relative alla societa'" +END + +STRING FLD_AG6_NOTE4 70 +BEGIN + PROMPT 3 16 "" + FIELD LF_ANAGGIU->NOTE4 + HELP "Eventuali note relative alla societa'" +END + +STRING FLD_AG6_NOTE5 70 +BEGIN + PROMPT 3 17 "" + FIELD LF_ANAGGIU->NOTE5 + HELP "Eventuali note relative alla societa'" +END + +ENDPAGE + +PAGE "Anagrafica persone giuridiche" -1 -1 77 20 + +GROUPBOX DLG_NULL 76 4 +BEGIN + PROMPT 0 0 "Persone giuridiche" + FLAGS "R" +END + +NUMBER DLG_NULL 5 +BEGIN + PROMPT 2 1 "Codice " + FIELD LF_ANAGGIU->CODANAGR + FLAGS "DR" + GROUP 1 +END + +STRING DLG_NULL 50 +BEGIN + PROMPT 2 2 "Ragione sociale " + FLAGS "D" + GROUP 2 +END + +GROUPBOX DLG_NULL 76 8 +BEGIN + PROMPT 0 5 "Uffici competenti" +END + +STRING F_IMP_DENCOM 50 +BEGIN + PROMPT 1 6 "Comune " + FLAGS "D" +END + +STRING F_IMP_PROVCOM 5 +BEGIN + PROMPT 62 6 "Prov." + FLAGS "D" +END + +STRING F_UFFIIDD 3 +BEGIN + PROMPT 1 7 "Imposte Dirette " + FIELD LF_ANAG->UFFIIDD + FLAGS "RZ" + USE %UID + INPUT CODTAB F_UFFIIDD + DISPLAY "Ufficio" CODTAB + DISPLAY "Denominazione@50" S0 + OUTPUT F_UFFIIDD CODTAB + OUTPUT F_DENUFFIIDD S0 + OUTPUT F_CC_ESATTORIA S4 + HELP "Codice ufficio delle imposte dirette competente" + CHECKTYPE NORMAL + WARNING "Ufficio imposte assente" +END + +STRINF F_DENUFFIIDD 50 48 +BEGIN + PROMPT 23 7 " " + HELP "Denominazione ufficio delle imposte dirette competente" + USE %UID KEY 2 + INPUT S0 F_DENUFFIIDD + DISPLAY "Denominazione@50" S0 + DISPLAY "Ufficio" CODTAB + DISPLAY "C.C.@8" S4 + COPY OUTPUT F_UFFIIDD +END + +STRING F_CC_ESATTORIA 8 +BEGIN + PROMPT 1 8 "C/C Esattoria " + FLAGS "D" +END + +STRING F_UFFREG 3 +BEGIN + PROMPT 1 9 "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 9 "" + FLAGS "D" +END + +NUMBER F_UFFCONC 3 +BEGIN + PROMPT 1 10 "Concessioni " + FLAGS "DRZG" + USE %UCC + INPUT CODTAB F_UFFCONC + OUTPUT F_UFFCONC CODTAB + OUTPUT F_DENUFFCONC S0 + CHECKTYPE NORMAL +END + +STRING F_DENUFFCONC 50 48 +BEGIN + PROMPT 24 10 "" + FLAGS "D" +END + +NUMBER F_UFFSERV 3 +BEGIN + PROMPT 1 11 "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 11 "" + FLAGS "D" +END + +GROUPBOX -1 76 3 +BEGIN + PROMPT 0 13 "Codice contribuente" +END + +STRING F_CODCONTR_EP 2 +BEGIN + PROMPT 1 14 "Esattoria Prov." + FIELD CODCONTR[1,2] + FLAGS "D" +END + +STRING F_CODCONTR_EC 3 +BEGIN + PROMPT 23 14 "Esattoria Com." + FIELD CODCONTR[3,5] + FLAGS "D" +END + +STRING F_CODCONTR 8 +BEGIN + PROMPT 46 14 "Codice " + HELP "Codice contribuente assegnato alla persona giuridica" + FIELD CODCONTR[6,13] +END + +STRING F_CODCONTR_CC 2 +BEGIN + PROMPT 66 14 "C.c." + FIELD CODCONTR[14,15] +END + +ENDMASK