diff --git a/ba/ba4200b.uml b/ba/ba4200b.uml index f618cc67f..d3d69663f 100755 --- a/ba/ba4200b.uml +++ b/ba/ba4200b.uml @@ -1,1110 +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 - 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 -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" - 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 "Inserire la data di nascita" -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 "Inserire il codice del comune di nascita" - CHECKTYPE NORMAL - WARNING "Comune assente" - ADD MASK ba4100a -END - -STRING FLD_AFIS_COMNASC_COMUNI_DENCOM 50 -BEGIN - PROMPT 9 12 ": Nome " - 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" - 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 "Inserire l'indirizzo di 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 "Inserire il numero civico della persona fisica" -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 "Inserire il 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 "Inserire il 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 "Inserire il CAP del comune" -END - -STRING FLD_AF1_COMRES_COMUNI_DENCOM 50 -BEGIN - PROMPT 9 9 ": Nome " - 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 "Inserire l'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 "Inserire il 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 "Inserire il 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 "Inserire il 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 "Inserire il CAP del comune di residenza fiscale" -END - -STRING FLD_AF2_COMRF_COMUNI_DENCOM 50 -BEGIN - PROMPT 9 15 ": Nome " - 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 "Inserire l'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 "Inserire il 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 "Inserire il codice dello stato" - 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 "Inserire il 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 "Inserire il CAP del comune" - VALIDATE EMPTYCOPY_FUNC FLD_ANAG_CAPRES -END - -STRING FLD_AF2_COMCORR_COMUNI_DENCOM 50 -BEGIN - PROMPT 9 9 ": Nome " - 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 "Inserire il prefisso del numero di telefono" -END - -STRING FLD_AF2_TELRF 30 -BEGIN - PROMPT 36 13 "Numero " - FIELD LF_ANAG->TELRF - HELP "Inserire il numero di telefono" -END - -STRING FLD_AF2_PFAXRF 10 -BEGIN - PROMPT 2 14 "Telefax : Prefisso " - FIELD LF_ANAG->PFAXRF - HELP "Inserire il prefisso del FAX" -END - -STRING FLD_AF2_FAXRF 30 -BEGIN - PROMPT 36 14 "Numero " - FIELD LF_ANAG->FAXRF - HELP "Inserire il numero del FAX" -END - -STRING FLD_AF2_PTLEXRF 10 -BEGIN - PROMPT 2 15 "Telex : Prefisso " - FIELD LF_ANAG->PTLEXRF - HELP "Inserire il prefisso del telex" -END - -STRING FLD_AF2_TLEXRF 30 -BEGIN - PROMPT 36 15 "Numero " - FIELD LF_ANAG->TLEXRFX - HELP "Inserire il 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 "Scegliere il 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 "Indicare lo 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 "Indicare la 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 "Inserire il codice del coniuge" - CHECKTYPE NORMAL -END - -STRING FLD_AF1_CODCONIUGE_ANAGR_RAGSOC 50 -BEGIN - PROMPT 9 9 ": Nome " - 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 "Dire se e' soggetto al SAUB" -END - -STRING FLD_AF3_ISCRCAF 10 -BEGIN - PROMPT 42 10 "Iscrizione CAF " - FIELD LF_ANAGFIS->ISCRCAF - HELP "Indicare il numero di iscrizione al CAF" -END - -BOOLEAN LST_AF3_CPARTRF -BEGIN - PROMPT 2 11 "Casi Particolari Residenza Fiscale" - FIELD LF_ANAGFIS->CPARTRF -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 "Indica se la persona e' titolare di conto fiscale" -END - -LIST F_TIPOSTDEL 12 -BEGIN - PROMPT 42 14 "Stampa " - FIELD LF_ANAG->TIPOSTDEL - HELP "Tipo di ducumento da stampare" - ITEM "0|Delega" - ITEM "1|Bollettino" - ITEM "2|Distinta" -END - -NUMBER F_CODABI 5 -BEGIN - PROMPT 2 15 "Codice ABI " - 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 " - 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 "Indicare se risiede in zona terremotata" -END - -BOOLEAN CHK_AF4_RFDIVERSA -BEGIN - PROMPT 2 6 "Residenza fiscale variata" - FIELD LF_ANAG->RFDIVERSA - HELP "Indicare se e' stata variata la residenza fiscale" -END - -NUMBER LST_AF4_EVECC 1 -BEGIN - PROMPT 36 6 "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 "Inserire la 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 "Dire se il domicilio fiscale e' diverso della 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 "Inserire il 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 "Inserire il 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 "Inserire il 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 " " - 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] -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 bce708f33..d16b580d0 100755 --- a/ba/ba4200c.uml +++ b/ba/ba4200c.uml @@ -1,1224 +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 " - 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 ditta" - 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 ditta" - 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 ditta" - 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 ditta" -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 ditta" -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 della ditta" - 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 ditta" -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 della ditta" - 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 ditta" - 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 della ditta" -END - -STRING FLD_AG2_COMRES_COMUNI_DENCOM 50 -BEGIN - PROMPT 9 8 ": Nome " - 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 della ditta" - 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 della ditta" -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 della ditta" - 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 della ditta" - 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 della ditta" -END - -STRING FLD_AG1_COMRF_COMUNI_DENCOM 50 -BEGIN - PROMPT 9 14 ": Nome " - 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 della ditta" - 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 della ditta" - 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 " - 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 ditta" -END - -STRING FLD_AG2_TELRF 30 -BEGIN - PROMPT 35 11 "Numero " - FIELD LF_ANAG->TELRF - HELP "Numero di telefono della ditta" -END - -STRING FLD_AG2_PFAXRF 10 -BEGIN - PROMPT 2 12 "Telefax : Prefisso " - FIELD LF_ANAG->PFAXRF - HELP "Prefisso del fax della ditta" -END - -STRING FLD_AG2_FAXRF 30 -BEGIN - PROMPT 35 12 "Numero " - FIELD LF_ANAG->FAXRF - HELP "Numero di telefono della ditta" -END - -STRING FLD_AG2_PTLEXRF 10 -BEGIN - PROMPT 2 13 "Telex : Prefisso " - FIELD LF_ANAG->PTLEXRF - HELP "Prefisso del telex della ditta" -END - -STRING FLD_AG2_TLEXRF 30 -BEGIN - PROMPT 35 13 "Numero " - FIELD LF_ANAG->TLEXRFX - HELP "Numero del telex della ditta" -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 sede della ditta" - CHECKTYPE NORMAL - WARNING "Comune assente" - ADD MASK ba4100a -END - -STRING F_DENCOMCOST 50 46 -BEGIN - PROMPT 26 5 "" - 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 ditta" -END - -DATE FLD_AG3_DATAOMOL -BEGIN - PROMPT 31 6 "Data omologa " - FIELD LF_ANAGGIU->DATAOMOL - HELP "Data di omologazione della ditta" - 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 ditta" - 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 di scadenza degli organismi amministrativi" -END - -DATE FLD_AG3_DATASCAD -BEGIN - PROMPT 2 8 "Data scadenza " - FIELD LF_ANAGGIU->DATASCAD - HELP "Data di scadenza della ditta" - 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 di scadenza delo collegio sindacale" -END - -DATE FLD_AG3_DATATAPPBI -BEGIN - PROMPT 2 10 "Data termine " - FIELD LF_ANAGGIU->DATATAPPBI - HELP "Data di termine dell'anno che compare sul bilancio" -END - -BOOLEAN CHK_AGIU2_VARDEN -BEGIN - PROMPT 29 10 "Variata denominazione" - FIELD LF_ANAGGIU->VARDEN - HELP "Indicare se e' variate la denominazione della ditta" -END - -DATE FLD_AG3_DATAAPPBIL -BEGIN - PROMPT 2 11 "Data approv. " - FIELD LF_ANAGGIU->DATAAPPBIL - HELP "Data di approvazione del bilancio della ditta" -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 della 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 della ditta" - 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 ditta" - 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 "Indicare l'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 "Indicare l'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 "Dire se e' titolare di conto fiscale" -END - -LIST F_TIPOSTDEL 12 -BEGIN - PROMPT 42 14 "Stampa " - FIELD LF_ANAG->TIPOSTDEL - HELP "Tipo di ducumento da stampare" - ITEM "0|Delega" - ITEM "1|Bollettino" - ITEM "2|Distinta" -END - -NUMBER F_CODABI 5 -BEGIN - PROMPT 2 15 "Codice ABI " - 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 " - 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 "Indicare la 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 "Indicare le eventuali note relative alla ditta" -END - -STRING FLD_AG6_NOTE2 70 -BEGIN - PROMPT 3 14 "" - FIELD LF_ANAGGIU->NOTE2 - HELP "Indicare le eventuali note relative alla ditta" -END - -STRING FLD_AG6_NOTE3 70 -BEGIN - PROMPT 3 15 "" - FIELD LF_ANAGGIU->NOTE3 - HELP "Indicare le eventuali note relative alla ditta" -END - -STRING FLD_AG6_NOTE4 70 -BEGIN - PROMPT 3 16 "" - FIELD LF_ANAGGIU->NOTE4 - HELP "Indicare le eventuali note relative alla ditta" -END - -STRING FLD_AG6_NOTE5 70 -BEGIN - PROMPT 3 17 "" - FIELD LF_ANAGGIU->NOTE5 - HELP "Indicare le eventuali note relative alla ditta" -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 "Numero dell'ufficio delle imposte dirette competente" - CHECKTYPE NORMAL - WARNING "Ufficio imposte assente" -END - -STRINF F_DENUFFIIDD 50 48 -BEGIN - PROMPT 23 7 " " - 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] -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 diff --git a/ba/ba4300a.uml b/ba/ba4300a.uml index 85bc1c365..1635e49b3 100755 --- a/ba/ba4300a.uml +++ b/ba/ba4300a.uml @@ -59,6 +59,7 @@ END NUMBER FLD_GD1_CODDITTAH 5 BEGIN PROMPT 1 1 "Codice " + HELP "Codice della ditta" FIELD LF_NDITTE->CODDITTA FLAGS "RG" USE LF_NDITTE KEY 3 @@ -88,7 +89,7 @@ BEGIN DISPLAY "Ragione sociale@50" RAGSOC OUTPUT FLD_GD1_CODDITTA CODDITTA OUTPUT FLD_GD1_RAGSOC RAGSOC - HELP "Inserire la ragione sociale della ditta" + HELP "Ragione sociale della ditta" CHECKTYPE REQUIRED FLAGS "G" MESSAGE COPY,2@ @@ -102,6 +103,7 @@ END LIST FLD_GD1_TIPOA 11 BEGIN PROMPT 1 5 "Tipo " + HELP "Natura della ditta" FIELD LF_NDITTE->TIPOA ITEM "F|Fisica" ITEM "G|Giuridica" @@ -121,7 +123,7 @@ BEGIN OUTPUT FLD_GD1_CODANAGR CODANAGR OUTPUT FLD_GD1_TIPOA TIPOA OUTPUT FLD_GD1_CODANAGR_ANAGR_RAGSOC RAGSOC - HELP "Inserire il codice della anagrafica" + HELP "Codice della anagrafica di riferimento" CHECKTYPE REQUIRED WARNING "Anagrafica assente" ADD RUN ba4 -1 @@ -130,6 +132,7 @@ END STRING FLD_GD1_CODANAGR_ANAGR_RAGSOC 50 BEGIN PROMPT 1 6 "Denominazione " + HELP "Nome della anagrafica di riferimento" USE LF_ANAG KEY 2 INPUT TIPOA FLD_GD1_TIPOA INPUT RAGSOC FLD_GD1_CODANAGR_ANAGR_RAGSOC @@ -158,7 +161,7 @@ BEGIN DISPLAY "Attivita'@50" S0 OUTPUT FLD_GD1_CODATTPREV CODTAB OUTPUT FLD_GD1_CODATTPREV_TABATT_DESCR S0 - HELP "Inserire il codice dell'attivita' prevalente della ditta" + HELP "Codice dell'attivita' prevalente della ditta" CHECKTYPE REQUIRED WARNING "Codice attivita' assente" END @@ -179,28 +182,28 @@ STRING FLD_GD1_PTEL 10 BEGIN PROMPT 1 13 "Telefono : Prefisso " FIELD LF_NDITTE->PTEL - HELP "Inserire il prefisso telefonico della ditta" + HELP "Prefisso telefonico della ditta" END STRING FLD_GD1_TEL 30 BEGIN PROMPT 34 13 "Numero " FIELD LF_NDITTE->TEL - HELP "Inserire il numero di telefono della ditta" + HELP "Numero telefonico della ditta" END STRING FLD_GD1_PFAX 10 BEGIN PROMPT 1 14 "FAX : Prefisso " FIELD LF_NDITTE->PFAX - HELP "Inserire il prefisso telefonico del fax della ditta" + HELP "Prefisso telefonico del fax della ditta" END STRING FLD_GD1_FAX 30 BEGIN PROMPT 34 14 "Numero " FIELD LF_NDITTE->FAX - HELP "Inserire il numero di telefono del fax della ditta" + HELP "Numero telefonico del fax della ditta" END ENDPAGE @@ -231,7 +234,7 @@ RADIOBUTTON RDB_GD1_FREQVIVA 20 BEGIN PROMPT 1 4 "Frequenza IVA" FIELD LF_NDITTE->FREQVIVA - HELP "Inserire la frequenza di liquidazione dell'IVA" + HELP "Frequenza di liquidazione dell'IVA" ITEM "M|Mensile" ITEM "T|Trimestrale" END @@ -240,7 +243,7 @@ STRING FLD_GD1_PERRIF 20 BEGIN PROMPT 24 5 "Persona di riferimento " FIELD LF_NDITTE->PERRIF - HELP "Inserire il nominativo della persona a cui fare rfierimento" + HELP "Nominativo della persona a cui fare rfierimento" END BOOLEAN CHK_GD1_ARTIG @@ -262,7 +265,7 @@ BEGIN PROMPT 1 10 "Iscriz. Albo N." FIELD LF_NDITTE->NISCRAA FLAGS "R" - HELP "Inserire il numero di iscrizione all'albo" + HELP "Numero di iscrizione all'albo" GROUP 3 END @@ -271,7 +274,7 @@ BEGIN PROMPT 52 10 "Data " FIELD LF_NDITTE->DATAISCRAA FLAGS "R" - HELP "Inserire la data di iscrizione all'albo" + HELP "Data di iscrizione all'albo" WARNING "Data non coerente" VALIDATE DATE_CMP_FUNC >= FLD_GD2_DINIZIOATT GROUP 3 @@ -289,7 +292,7 @@ BEGIN OUTPUT FLD_GD1_COMAA COM OUTPUT FLD_GD1_COMAA_COMUNI_DESCR DENCOM OUTPUT FLD_GD1_CAPAA CAPCOM - HELP "Inserire il codice del comune a cui si e' iscritti all'albo" + HELP "Codice del comune in cui e' iscritta all'albo" CHECKTYPE NORMAL WARNING "Comune assente" ADD MASK ba4100a @@ -301,13 +304,14 @@ BEGIN PROMPT 52 11 "CAP " FIELD LF_NDITTE->CAPAA FLAGS "RZ" - HELP "Inserire il CAP del comune a cui si e' iscritti all'albo" + HELP "CAP del comune in cui e' iscritta all'albo" GROUP 3 END STRING FLD_GD1_COMAA_COMUNI_DESCR 50 BEGIN PROMPT 8 12 ": Nome " + HELP "Nome del comune in cui Š iscritta all'albo" USE LF_COMUNI KEY 2 SELECT STATO="" INPUT DENCOM FLD_GD1_COMAA_COMUNI_DESCR #include @@ -322,14 +326,14 @@ BOOLEAN CHK_GD1_CONTORD BEGIN PROMPT 1 14 "Contabilit… ordinaria" FIELD LF_NDITTE->CONTORD - HELP "Indicare se la ditta tiene una contabilita' ordinaria" + HELP "Dire se la ditta tiene una contabilita' ordinaria" END BOOLEAN CHK_GD1_REGMAG BEGIN PROMPT 52 14 "Regime Magazzino" FIELD LF_NDITTE->REGMAG - HELP "Indicare se si utilizza un regime di magazzino" + HELP "Dire se si utilizza un regime di magazzino" END BOOLEAN CHK_GD1_IMPRFAM @@ -374,7 +378,7 @@ LIST LST_GD2_DATLAV 20 BEGIN PROMPT 1 4 "Datore lavoro " FIELD LF_NDITTE->DATLAV - HELP "Inserire il tipo di datore di lavoro" + HELP "Tipo di datore di lavoro" ITEM "1|Datore di lavoro" ITEM "2|Non datore di lavoro" ITEM "3|Datore Agricolo" @@ -385,14 +389,14 @@ BEGIN PROMPT 45 4 "Numero apprendisti " FIELD LF_NDITTE->NAPP FLAGS "R" - HELP "Inserire il numero di apprendisti presenti in ditta" + HELP "Numero di apprendisti presenti in ditta" END DATE FLD_GD2_DINIZIOATT BEGIN PROMPT 1 5 "Inizio Attivit… " FIELD LF_NDITTE->DINIZIOATT - HELP "Inserire la data di inizio attivita'" + HELP "Data di inizio attivita'" END NUMBER FLD_GD2_NULC 3 @@ -400,14 +404,14 @@ BEGIN PROMPT 45 5 "Numero Unit… Locali " FIELD LF_NDITTE->NULC FLAGS "RZ" - HELP "Inserire il numero dell'unit' locale di appartenenza" + HELP "Numero delle unita' locali di appartenenza" END STRING FLD_GD2_NENASARCO 12 BEGIN PROMPT 1 6 "Enasarco " FIELD LF_NDITTE->NENASARCO - HELP "Inserire il numero di iscrizione all'ENASARCO" + HELP "Numero di iscrizione all'ENASARCO" END NUMBER FLD_GD2_MESIREDD 3 @@ -416,7 +420,7 @@ BEGIN FIELD LF_NDITTE->MESIREDD NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)} FLAGS "R" - HELP "Inserire il numero di mesi di produzione reddito" + HELP "Numero di mesi di produzione reddito" WARNING "Numero di mesi non corretto" END @@ -434,7 +438,7 @@ BEGIN OUTPUT FLD_GD2_ABIBAN CODTAB[1,5] OUTPUT FLD_GD2_CABBAN CODTAB[6,10] OUTPUT FLD_GD2_ABIBAN_TABBANCHE_DESCR S0 - HELP "Inserire il ABI della banca della ditta" + HELP "Codice ABI della banca della ditta" CHECKTYPE NORMAL WARNING "Banca assente" END @@ -445,7 +449,7 @@ BEGIN FIELD LF_NDITTE->CABBAN FLAGS "RZ" COPY ALL FLD_GD2_ABIBAN - HELP "Inserire il codice CAB della banca" + HELP "Codice CAB della banca" CHECKTYPE NORMAL WARNING "Banca assente" END @@ -463,7 +467,7 @@ BEGIN SHEET "Codice|Situazione@70" INPUT LST_GD2_SITSOC OUTPUT LST_GD2_SITSOC - HELP "Inserire il codice della situazione della societ…" + HELP "Codice della situazione della societ…" ITEM " |Sconosciuta" ITEM "1|Periodo d'imposta in cui ha avuto inizio la liquidazione" ITEM "2|Periodi d'imposta successivi a quello in cui ha avuto inizio la liquidazione" @@ -480,7 +484,7 @@ BEGIN SHEET "Codice|Stato@70" INPUT LST_GD2_STATOSOC OUTPUT LST_GD2_STATOSOC - HELP "Inserire il codice dello stato della societ…" + HELP "Codice dello stato della societ…" ITEM " |Sconosciuto" ITEM "1|Soggetto in normale attivita'" ITEM "2|Soggetto in liquidazione per cessazione di attivita'" @@ -503,7 +507,7 @@ BEGIN DISPLAY "Descrizione@50" S0 OUTPUT FLD_GD2_CODSTAT1 CODTAB OUTPUT FLD_GD2_CODSTAT1_TABSTT_S0 S0 - HELP "Inserire il primo codice statistico" + HELP "Primo codice statistico" CHECKTYPE NORMAL WARNING "Codice assente" END @@ -524,7 +528,7 @@ BEGIN COPY DISPLAY FLD_GD2_CODSTAT1 OUTPUT FLD_GD2_CODSTAT2 CODTAB OUTPUT FLD_GD2_CODSTAT2_TABSTT_S0 S0 - HELP "Inserire il secondo codice statistico" + HELP "Secondo codice statistico" WARNING "Codice assente" END @@ -544,7 +548,7 @@ BEGIN COPY DISPLAY FLD_GD2_CODSTAT1 OUTPUT FLD_GD2_CODSTAT3 CODTAB OUTPUT FLD_GD2_CODSTAT3_TABSTT_S0 S0 - HELP "Inserire il terzo codice statistico" + HELP "Terzo codice statistico" CHECKTYPE NORMAL WARNING "Codice assente" END @@ -593,7 +597,7 @@ BEGIN DISPLAY "Nome@50" RAGSOC OUTPUT FLD_GD3_FIRMAT CODANAGR OUTPUT FLD_GD3_FIRMAT_ANAGR_RAGSOC RAGSOC - HELP "Inserire il codice anagrafico del firmatario" + HELP "Codice anagrafico del firmatario degli atti" CHECKTYPE NORMAL WARNING "Anagrafica assente" ADD RUN ba4 -1 @@ -602,6 +606,7 @@ END STRING FLD_GD3_FIRMAT_ANAGR_RAGSOC 50 BEGIN PROMPT 17 5 "" + HELP "Nome del firmatario degli atti" USE LF_ANAG KEY 2 INPUT TIPOA "F" INPUT RAGSOC FLD_GD3_FIRMAT_ANAGR_RAGSOC @@ -617,14 +622,14 @@ BOOLEAN CHK_GD3_ESILOR BEGIN PROMPT 1 6 "Esenzione ILOR" FIELD LF_NDITTE->ESILOR - HELP "Indicare l'eventuale esenzione ILOR della ditta" + HELP "Indicare se la ditta Š soggetta ad esenzione ILOR" END BOOLEAN CHK_GD3_REGSTATSP BEGIN PROMPT 27 6 "Statuto speciale" FIELD LF_NDITTE->REGSTATSP - HELP "Indicare se la regione di residenza e' ha statuto speciale" + HELP "Indicare se la regione di residenza e' a statuto speciale" END BOOLEAN CHK_GD3_AZCONIUG @@ -645,7 +650,7 @@ BOOLEAN CHK_GD3_DEDART13 BEGIN PROMPT 27 7 "Deduzioni art.13" FIELD LF_NDITTE->DEDART13 - HELP "Indicare se la ditta ha diritto a deduzioni secondo l'articolo 13" + HELP "Indicare se la ditta ha diritto a deduzioni ex articolo 13" END BOOLEAN CHK_GD3_RICSUP20 @@ -659,7 +664,7 @@ LIST FLD_GD3_CARRAPP 21 BEGIN PROMPT 1 8 "Carica " FIELD LF_NDITTE->CARRAPP - HELP "Inserire il codice della carica del rappresentante" + HELP "Codice della carica del rappresentante legale" ITEMS " |Nessun rappresentante" MESSAGE RESET,4@|DISABLE,4@ ITEMS "1|Rappresentante legale" @@ -677,7 +682,7 @@ BEGIN PROMPT 50 8 "Decorrenza " FIELD LF_NDITTE->DECCARRAPP GROUP 4 - HELP "Inserire la data di decorrenza della rappresentanza" + HELP "Data di decorrenza della rappresentanza legale" WARNING "Data non coerente" VALIDATE DATE_CMP_FUNC >= FLD_GD2_DINIZIOATT END @@ -694,7 +699,7 @@ BEGIN COPY DISPLAY FLD_GD3_FIRMAT OUTPUT FLD_GD3_RAPPR CODANAGR OUTPUT FLD_GD3_RAPPR_ANAGR_RAGSOC RAGSOC - HELP "Inserire il codice del rapppresentante legale" + HELP "Codice dell'anagrafica del rappresentante legale" CHECKTYPE NORMAL WARNING "Anagrafica assente" ADD RUN ba4 -1 @@ -703,6 +708,7 @@ END STRING FLD_GD3_RAPPR_ANAGR_RAGSOC 50 BEGIN PROMPT 17 10 "" + HELP "Nome del rappresentate legale" COPY USE FLD_GD3_FIRMAT_ANAGR_RAGSOC INPUT RAGSOC FLD_GD3_RAPPR_ANAGR_RAGSOC COPY DISPLAY FLD_GD3_FIRMAT_ANAGR_RAGSOC @@ -721,21 +727,21 @@ STRING FLD_DE_DENEST1 70 BEGIN PROMPT 3 12 "" FIELD LF_NDITTE->DENEST1 - HELP "Inserire la prima riga della denominazione estesa" + HELP "Denominazione estesa della ditta" END STRING FLD_DE_DENEST2 70 BEGIN PROMPT 3 13 "" FIELD LF_NDITTE->DENEST2 - HELP "Inserire la seconda riga della denominazione estesa" + HELP "Denominazione estesa della ditta" END STRING FLD_DE_DENEST3 70 BEGIN PROMPT 3 14 "" FIELD LF_NDITTE->DENEST3 - HELP "Inserire la terza riga della denominazione estesa" + HELP "Denominazione estesa della ditta" END ENDPAGE diff --git a/ba/ba4400a.uml b/ba/ba4400a.uml index fe0bbe86e..e7a46f96b 100755 --- a/ba/ba4400a.uml +++ b/ba/ba4400a.uml @@ -24,7 +24,7 @@ BEGIN DISPLAY "Ragione Sociale@50" RAGSOC OUTPUT FLD_UL1_CODDITTA CODDITTA OUTPUT FLD_UL1_CODDITTA_NDITTE_RAGSOC RAGSOC - HELP "Inserire il codice della ditta di riferimento" + HELP "Codice della ditta di riferimento" MESSAGE COPY,2@ CHECKTYPE FORCED WARNING "Ditta assente" @@ -41,7 +41,7 @@ BEGIN DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Codice" CODDITTA COPY OUTPUT FLD_UL1_CODDITTA - HELP "Inserire la ragione sociale della ditta di riferimento" + HELP "Ragione sociale della ditta di riferimento" MESSAGE COPY,3@ ADD MASK BA4300A END @@ -64,7 +64,7 @@ BEGIN DISPLAY "N.ro civico@35" CIVULC OUTPUT FLD_UL1_CODDITTA CODDITTA OUTPUT FLD_UL1_CODULC CODULC - HELP "Inserire il codice dell'unita' locale" + HELP "Codice dell'unita' locale" MESSAGE COPY,4@ CHECKTYPE REQUIRED VALIDATE NOT_EMPTY_FUNC @@ -74,7 +74,7 @@ STRING FLD_UL1_INDULC 35 BEGIN PROMPT 19 2 "Via " FIELD LF_UNLOC->INDULC - HELP "Indicare l'indirizzo dell'unita' locale" + HELP "Indirizzo dell'unita' locale" MESSAGE COPY,5@ WARNING "Completare l'indirizzo dell'unita' locale" VALIDATE REQIF_FUNC 1 FLD_UL1_COMULC @@ -84,7 +84,7 @@ STRING FLD_UL1_CIVULC 10 BEGIN PROMPT 61 2 "N." FIELD LF_UNLOC->CIVULC - HELP "Indicare il numero civico dll'unita' locale" + HELP "Numero civico dll'unita' locale" MESSAGE COPY,6@ END @@ -101,7 +101,7 @@ BEGIN OUTPUT FLD_UL1_COMULC_COMUNI_DENCOM DENCOM OUTPUT FLD_UL1_COMULC_COMUNI_PROVCOM PROVCOM OUTPUT FLD_UL1_CAPULC CAPCOM - HELP "Inserire il codice del comune dell'unita' locale" + HELP "Codice del comune dell'unita' locale" MESSAGE COPY,7@ CHECKTYPE REQUIRED WARNING "Comune assente" @@ -120,13 +120,14 @@ BEGIN PROMPT 61 3 "CAP " FIELD LF_UNLOC->CAPULC FLAGS "RZ" - HELP "Inserire il CAP dell'unita' locale" + HELP "CAP dell'unita' locale" MESSAGE COPY,9@ END STRING FLD_UL1_COMULC_COMUNI_DENCOM 50 BEGIN PROMPT 1 4 "Nome " + HELP "Nome del comune dell'unita' locale" USE LF_COMUNI KEY 2 SELECT STATO="" INPUT DENCOM FLD_UL1_COMULC_COMUNI_DENCOM #include @@ -148,14 +149,14 @@ BEGIN PROMPT 1 7 "Numero " FIELD LF_UNLOC->NUMCCIAA FLAGS "R" - HELP "Inserire il numero dell'autorizzazione alla camera di commercio" + HELP "Numero autorizzazione alla camera di commercio" END DATE FLD_UL1_DATAICCIAA BEGIN PROMPT 40 7 "Data iscrizione " FIELD LF_UNLOC->DATAICCIAA - HELP "Inserire la data di iscrizione alla CCIAA" + HELP "Data di iscrizione alla camera di commercio" END STRING FLD_UL1_NUMMECC 7 @@ -163,14 +164,14 @@ BEGIN PROMPT 1 8 "N.Mecc." FIELD LF_UNLOC->NUMMECC FLAGS "R" - HELP "Inserire il numero meccanografico dell'iscrizione" + HELP "Numero meccanografico dell'iscrizione" END DATE FLD_UL1_DATAVCCIAA BEGIN PROMPT 40 8 "Data ultima variazione " FIELD LF_UNLOC->DATAVCCIAA - HELP "Inserire la data dell'ultima variazione alla CCIAA" + HELP "Data dell'ultima variazione alla camera di commercio" WARNING "Data non corretta" VALIDATE DATE_CMP_FUNC >= FLD_UL1_DATAICCIAA END @@ -187,7 +188,7 @@ BEGIN COPY DISPLAY FLD_UL1_COMULC OUTPUT FLD_UL1_COMCCIAA COM OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM - HELP "Inserire il codice del comune della CCIAA" + HELP "Codice del comune della camera di commercio" CHECKTYPE NORMAL WARNING "Comune assente" VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC @@ -196,6 +197,7 @@ END STRING FLD_UL1_COMCCIAA_COMUNI_DENCOM 50 BEGIN PROMPT 1 10 "Nome " + HELP "Nome del comune delle camera di commercio" COPY USE FLD_UL1_COMULC_COMUNI_DENCOM INPUT DENCOM FLD_UL1_COMCCIAA_COMUNI_DENCOM COPY DISPLAY FLD_UL1_COMULC_COMUNI_DENCOM @@ -214,7 +216,7 @@ BEGIN PROMPT 1 13 "Numero R.E.C. " FIELD LF_UNLOC->NUMREC FLAGS "R" - HELP "Inserire il numero R.E.C." + HELP "Numero R.E.C." END STRING FLD_UL1_AUTCOM 5 @@ -222,7 +224,7 @@ BEGIN PROMPT 50 13 "N. comunale " FIELD LF_UNLOC->AUTCOM FLAGS "R" - HELP "Inserire il numero dell'autorizzazione comunale all'esercizio" + HELP "Numero dell'autorizzazione comunale all'esercizio" END STRING FLD_UL1_AUTPS 7 @@ -230,14 +232,14 @@ BEGIN PROMPT 1 14 "Numero PS " FIELD LF_UNLOC->AUTPS FLAGS "R" - HELP "Inserire il numero PS" + HELP "Numero dell'autorizzazione della Pubblica Sicurezza" END NUMBER FLD_UL1_ALTAUT 1 BEGIN PROMPT 50 14 "Altre autorizzazioni " FIELD LF_UNLOC->ALTAUT - HELP "Inserire il numero di altre autorizzazioni" + HELP "Numero di eventuali altre autorizzazioni" END ENDPAGE @@ -323,7 +325,7 @@ BEGIN PROMPT 1 7 "INPS " FIELD LF_UNLOC->POSINPS FLAGS "R" - HELP "Inserire il numero della posizione INPS" + HELP "Numero della posizione INPS" END STRING FLD_UL2_POSINAIL 12 @@ -331,7 +333,7 @@ BEGIN PROMPT 55 7 "INAIL " FIELD LF_UNLOC->POSINAIL FLAGS "R" - HELP "Inserire il numero della posizione INAIL" + HELP "Numero della posizione INAIL" END GROUPBOX DLG_NULL 76 5 @@ -343,7 +345,7 @@ STRING FLD_UL2_REGTRIB 10 BEGIN PROMPT 1 10 "Regist." FIELD LF_UNLOC->REGTRIB - HELP "Inserire il numero di registro del tribunale in cui e' iscritta la ditta" + HELP "Numero di registro del tribunale in cui e' iscritta la ditta" END STRING FLD_UL2_VOLTRIB 8 @@ -351,7 +353,7 @@ BEGIN PROMPT 30 10 "Volume " FIELD LF_UNLOC->VOLTRIB FLAGS "R" - HELP "Inserire il numero del volume del tribunale in cui e' iscritta la ditta" + HELP "Numero del volume del tribunale in cui e' iscritta la ditta" END STRING FLD_UL2_FSCTRIB 6 @@ -359,7 +361,7 @@ BEGIN PROMPT 57 10 "Fascicolo " FIELD LF_UNLOC->FASCTRIB FLAGS "R" - HELP "Inserire il numero del fascicolo del tribunale in cui e' iscritta la ditta" + HELP "Numero del fascicolo del tribunale in cui e' iscritta la ditta" END STRING FLD_UL2_COMTRIB 4 @@ -375,7 +377,7 @@ BEGIN OUTPUT FLD_UL2_COMTRIB COM OUTPUT FLD_UL2_COMTRIB_COMUNI_DENCOM DENCOM OUTPUT FLD_UL2_CAPTRIB CAPCOM - HELP "Inserire il codice del comune del tribunale" + HELP "Codice del comune del tribunale" CHECKTYPE NORMAL VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC WARNING "Comune assente" @@ -386,12 +388,13 @@ BEGIN PROMPT 57 11 "CAP " FIELD LF_UNLOC->CAPTRIB FLAGS "RZ" - HELP "Inserire il CAP del comune del tribunale" + HELP "CAP del comune del tribunale" END STRING FLD_UL2_COMTRIB_COMUNI_DENCOM 50 BEGIN PROMPT 1 12 "Nome " + HELP "Nome del comune del tribunale" COPY USE FLD_UL1_COMULC_COMUNI_DENCOM INPUT DENCOM FLD_UL2_COMTRIB_COMUNI_DENCOM COPY DISPLAY FLD_UL1_COMULC_COMUNI_DENCOM @@ -406,7 +409,7 @@ BEGIN PROMPT 1 14 "Mq. Locali " FIELD LF_UNLOC->MQULC FLAGS "R" - HELP "Inserire il numero di metri quadri dei locali" + HELP "Numero di metri quadri dei locali" NUM_EXPR {#THIS_FIELD >= 0} WARNING "N.ro mq. errati" END @@ -416,7 +419,7 @@ BEGIN PROMPT 45 14 "Di cui a magazzino " FIELD LF_UNLOC->MQULCMAG FLAGS "R" - HELP "Inserire il numero di metri quadri del locale adibiti a magazzino" + HELP "Numero di metri quadri del locale adibiti a magazzino" WARNING "N.ro mq. errati" NUM_EXPR {#THIS_FIELD >= 0} END diff --git a/ba/ba4500a.uml b/ba/ba4500a.uml index d29c3b7ea..956a9bc8d 100755 --- a/ba/ba4500a.uml +++ b/ba/ba4500a.uml @@ -24,7 +24,7 @@ BEGIN DISPLAY "Ditta@50" RAGSOC OUTPUT FLD_AT1_CODDITTA CODDITTA OUTPUT FLD_AT1_PROGD_NDITTE_RAGSOC RAGSOC - HELP "Inserire il codice della ditta" + HELP "Codice della ditta" MESSAGE COPY,1@|COPY,FLD_AT1_CODDITTAH CHECKTYPE FORCED WARNING "Ditta assente" @@ -49,6 +49,7 @@ END STRING FLD_AT1_PROGD_NDITTE_RAGSOC 50 BEGIN PROMPT 1 2 "Ragione sociale " + HELP "Ragione sociale della ditta" FLAGS "DG" KEY 1 USE LF_NDITTE KEY 2 @@ -91,7 +92,7 @@ BEGIN OUTPUT FLD_AT1_CODATT CODTAB OUTPUT FLD_AT1_CODATTH CODTAB OUTPUT FLD_AT1_ATTCODATT_TABATT_DESCR S0 - HELP "Inserire il codice dell'attivita'" + HELP "Codice dell'attivita'" MESSAGE COPY,3@ CHECKTYPE FORCED WARNING "Attivita' assente" @@ -103,7 +104,7 @@ BEGIN PROMPT 1 4 "Nome Attivita' " FIELD LF_ATTIV->DESCR MESSAGE COPY,4@ - HELP "" + HELP "Nome dell'attivita'" END STRING FLD_AT1_OLDCODATT 4 @@ -119,7 +120,7 @@ BEGIN OUTPUT FLD_AT1_OLDCODATT CODTAB[1,4] OUTPUT FLD_AT1_SUBCOD CODTAB[5,] OUTPUT FLD_AT1_OLDCODATT_OLDATT_DESCR S0 - HELP "Inserire il vecchio codice attivita'" + HELP "Vecchio codice attivita'" CHECKTYPE NORMAL WARNING "Attivita' assente" END @@ -130,7 +131,7 @@ BEGIN FIELD LF_ATTIV->SUBCOD FLAGS "U" COPY ALL FLD_AT1_OLDCODATT - HELP "Inserire il subcodice del vecchio codice" + HELP "Subcodice del vecchio codice attivita'" CHECKTYPE NORMAL WARNING "Attivita' assente" END @@ -145,14 +146,14 @@ DATE FLD_AT1_DATAISCIVA BEGIN PROMPT 1 8 "Inizio Attivita'" FIELD LF_ATTIV->DATAISCIVA - HELP "Inserire la data di inizio attivita'" + HELP "Data di inizio attivita'" END DATE FLD_AT1_DATAVARIVA BEGIN PROMPT 44 8 "Variazione " FIELD LF_ATTIV->DATAVARIVA - HELP "Inserire la data di variazione IVA" + HELP "Data di variazione dati IVA" WARNING "Data non corretta" VALIDATE DATE_CMP_FUNC >= FLD_AT1_DATAISCIVA END @@ -161,7 +162,7 @@ DATE FLD_ATT_DCESSATT BEGIN PROMPT 1 9 "Termine " FIELD LF_ATTIV->DCESSATT - HELP "Inserire la data di termine attivita'" + HELP "Data del termine previsto attivita'" WARNING "Data non corretta" VALIDATE DATE_CMP_FUNC >= FLD_AT1_DATAISCIVA END @@ -180,7 +181,7 @@ BEGIN DISPLAY "Indirizzo@35" INDULC DISPLAY "N.ro civico@10" CIVULC OUTPUT FLD_AT1_CODULIVA11 CODULC - HELP "Inserire il codice dell'unita' locale" + HELP "Codice dell'unita' locale" ADD MASK ba4400a END @@ -188,7 +189,7 @@ LIST LST_AT1_TIPOATT 26 BEGIN PROMPT 1 10 "Tipo Attivita' " FIELD LF_ATTIV->TIPOATT - HELP "" + HELP "Tipo di attivita'" ITEM " |Altre" ITEM "M|Mista" ITEM "E|Mista evidenziata" @@ -199,7 +200,7 @@ BOOLEAN CHK_AT1_MEDCONV BEGIN PROMPT 1 11 "Medici convenzionati ??" FIELD LF_ATTIV->MEDCONV - HELP "Indicare se esistono medici convenzionati" + HELP "Indicare se esistono medici convenzionati nell'attivita'" END BOOLEAN CHK_AT1_ATTLAVDIP @@ -234,7 +235,7 @@ BOOLEAN FLD_AT1_ART74_4 BEGIN PROMPT 44 13 "Gestione Art.74/4" FIELD LF_ATTIV->ART74/4 - HELP "Indicare se si tratta di gestione secondo art 74 comma 4" + HELP "Indicare se si tratta di gestione exo art 74 comma 4" END BOOLEAN CHK_AT1_ATTSTAG @@ -253,10 +254,10 @@ END NUMBER FLD_AT1_NSOCILDIP 3 BEGIN - PROMPT 1 15 "N.soci lavoro dipendente " + PROMPT 1 15 "N.soci lavoro dipendente " FIELD LF_ATTIV->NSOCILDIP FLAGS "R" - HELP "Indicare il numero di soci lavoratori dipendenti" + HELP "Numero di soci lavoratori dipendenti" END NUMBER FLD_AT1_GIATTANN 3 @@ -264,7 +265,7 @@ BEGIN PROMPT 44 15 "gg.attivita' annuali " FIELD LF_ATTIV->GIATTANN FLAGS "R" - HELP "Indicare il numero di giorni di attivita' all'anno" + HELP "Numero di giorni di attivita' all'anno" WARNING "N.ro di giorni non valido " END @@ -273,7 +274,7 @@ BEGIN PROMPT 1 16 "gg.lav.attivita' stagionale " FIELD LF_ATTIV->GILAVASTAG FLAGS "R" - HELP "Indicare il numero di giorni per l'attivita' stagionale" + HELP "Numero di giorni per l'attivita' stagionale" WARNING "N.ro di giorni non valido" END @@ -324,7 +325,7 @@ LIST LST_AT2_TIPOADS 9 BEGIN PROMPT 1 7 "Depositario : Tipo " FIELD LF_ATTIV->TIPOADS - HELP "" + HELP "Tipo anagrafico del depositario dei registri" ITEM "F|Fisica" ITEM "G|Giuridica" END @@ -348,7 +349,7 @@ BEGIN OUTPUT FLD_AT2_ANAGR_DEP_CIV CIVRES OUTPUT FLD_AT2_ANAGR_DEP_CAP CAPRES // OUTPUT FLD_AT2_DEP_ANAGR_COMUNI_DESCR LF_COMUNI->DENCOM - HELP "Inserire il codice del depositario dei registri" + HELP "Codice del depositario dei registri" CHECKTYPE REQUIRED WARNING "Anagrafica assente" ADD RUN ba4 -1 @@ -364,14 +365,12 @@ STRING FLD_AT2_ANAGR_DEP_IND 35 BEGIN PROMPT 1 9 "Via " FLAGS "D" - HELP "" END STRING FLD_AT2_ANAGR_DEP_CIV 10 BEGIN PROMPT 49 9 "N." FLAGS "D" - HELP "" END STRING FLD_AT2_ANAGR_DEP_CAP 5 @@ -396,7 +395,7 @@ STRING FLD_ATT2_INDCS 35 BEGIN PROMPT 1 12 "Via " FIELD LF_ATTIV->INDCS - HELP "Indicare l'indirizzo in cui sono conservati i registri" + HELP "Indirizzo in cui sono conservati i registri" WARNING "Completare l'indirizzo in cui sono conservati i registri" VALIDATE REQIF_FUNC 1 FLD_AT2_COMCS END @@ -405,7 +404,7 @@ STRING FLD_AT2_CIVCS 10 BEGIN PROMPT 49 12 "N." FIELD LF_ATTIV->CIVCS - HELP "Inserire il numero civico in cui sono tenuti i registri" + HELP "Numero civico in cui sono tenuti i registri" END STRING FLD_AT2_COMCS 4 @@ -421,7 +420,7 @@ BEGIN OUTPUT FLD_AT2_COMUNI_DESCR DENCOM OUTPUT FLD_AT2_COMUNI_PROVCOM PROVCOM OUTPUT FLD_AT2_CAPCS CAPCOM - HELP "Inserire il codice del comune in cui sono tenuti i registri" + HELP "Codice del comune in cui sono tenuti i registri" CHECKTYPE NORMAL WARNING "Comune assente" ADD MASK ba4100a @@ -438,7 +437,7 @@ BEGIN PROMPT 64 13 "CAP " FIELD LF_ATTIV->CAPCS FLAGS "RZ" - HELP "Inserire il CAP del comune" + HELP "CAP del comune in cui sono tenuti i registri" END STRING FLD_AT2_COMUNI_DESCR 50 @@ -451,14 +450,14 @@ STRING FLD_AT2_PTELCS 10 BEGIN PROMPT 1 15 "Prefisso " FIELD LF_ATTIV->PTELCS - HELP "Inserire il prefisso telefonico" + HELP "Prefisso telefonico del luogo in cui sono tenuti i registri" END STRING FLD_AT2_TELCS 32 BEGIN PROMPT 31 15 "Telefono " FIELD LF_ATTIV->TELCS - HELP "Inserire il numero di telefono" + HELP "Numero telefonico del luogo in cui sono tenuti i regitri" END BOOLEAN CHK_AT2_TSCRPARZ diff --git a/ba/ba4600a.uml b/ba/ba4600a.uml index 5638e4c1e..0e3942f89 100755 --- a/ba/ba4600a.uml +++ b/ba/ba4600a.uml @@ -24,7 +24,7 @@ BEGIN DISPLAY "Ragione Sociale@50" RAGSOC OUTPUT FLD_SC1_CODDITTA CODDITTA OUTPUT FLD_SC1_CODDITTA_NDITTE_RAGSOC RAGSOC - HELP "Inserire il codice della ditta riferita al socio" + HELP "Codice della ditta riferita al socio" MESSAGE COPY,2@ CHECKTYPE FORCED WARNING "Ditta assente" @@ -33,6 +33,7 @@ END STRING FLD_SC1_CODDITTA_NDITTE_RAGSOC 50 BEGIN PROMPT 1 2 "Ragione sociale " + HELP "Ragione sociale della ditta riferita al socio" FLAGS "DG" KEY 1 USE LF_NDITTE KEY 2 @@ -50,7 +51,7 @@ BEGIN FIELD LF_SOCI->TIPOASOC KEY 1 FLAGS "G" - HELP "Indicare se si tratta di persona fisica o giuridica" + HELP "Tipo anagrafico del socio" ITEM "F|Fisica" MESSAGE ENABLE,1@|MESSAGE COPY,4@ ITEM "G|Giuridica" @@ -100,7 +101,7 @@ BEGIN OUTPUT LST_SC1_TIPOASOC TIPOA OUTPUT FLD_SC1_CODANAGRSO CODANAGR OUTPUT FLD_SC1_CODANAGR_ANAGR_RAGSOC RAGSOC - HELP "Inserire il codice dell'anagrafica del socio" + HELP "Codice dell'anagrafica del socio" MESSAGE COPY,5@|COPY,8@ CHECKTYPE REQUIRED WARNING "Anagrafica assente o nulla" @@ -110,6 +111,7 @@ END STRING FLD_SC1_CODANAGR_ANAGR_RAGSOC 50 BEGIN PROMPT 7 4 ": Nome " + HELP "Nome dell'anagrafica del socio" KEY 1 USE LF_ANAG KEY 2 FLAGS "G" @@ -131,7 +133,7 @@ BEGIN FLAGS "A" KEY 1 CHECKTYPE REQUIRED - WARNING "Inserire l'anno" + WARNING "Inserire l'anno per le dichiarazioni o le analisi di bilancio" MESSAGE COPY,7@ END @@ -146,7 +148,7 @@ BEGIN DISPLAY "Carica " S0 OUTPUT FLD_SC1_CODCAR CODTAB OUTPUT F_DENCAR S0 - HELP "Inserire il codice della carica del socio" + HELP "Codice della carica del socio" CHECKTYPE NORMAL WARNING "Carica assente" END @@ -161,7 +163,7 @@ DATE FLD_SC1_SCADCAR BEGIN PROMPT 1 8 "Scadenza carica " FIELD LF_SOCI->SCADCAR - HELP "Inserire la data di scadenza di tale carica" + HELP "Data di scadenza di tale carica" END GROUPBOX DLG_NULL 76 4 @@ -174,7 +176,7 @@ BEGIN PROMPT 1 10 "Numero quote " FIELD LF_SOCI->NQUOTEAZ FLAGS "R" - HELP "Inserire il numero di azioni possedute dal socio" + HELP "Numero di azioni possedute dal socio" END NUMBER FLD_SC1_PERCQUAZ 7 @@ -182,7 +184,7 @@ BEGIN PROMPT 29 10 "= " FIELD LF_SOCI->PERCQUAZ FLAGS "R" - HELP "Inserire la percentuale delle azioni possedute dal socio" + HELP "Percentuale delle azioni possedute dal socio" WARNING "Percentuale quote non corretta" NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)} END @@ -192,7 +194,7 @@ BEGIN PROMPT 41 10 "% Reddito da quota az. " FIELD LF_SOCI->PERCAZREDD FLAGS "R" - HELP "Inserire il reddito derivante da quote aziendali" + HELP "Reddito derivante da quote aziendali" WARNING "Percentuale quote non corretta" NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)} END @@ -202,7 +204,7 @@ BEGIN PROMPT 45 11 "Perdita da quota az. " FIELD LF_SOCI->PERCAZPERD FLAGS "R" - HELP "Inserire la perdita derivante da quote aziendali" + HELP "Perdita derivante da quote aziendali" WARNING "Percentuale quote non corretta" NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)} END @@ -211,7 +213,7 @@ LIST LST_SC1_RICQUAL 18 BEGIN PROMPT 1 13 "Richiesta qualifica " FIELD LF_SOCI->RICQUAL - HELP "Inserire la qualifica del socio" + HELP "Qualifica del socio" ITEM " |Nessuna" ITEM "A|Amministratore(A)" ITEM "B|Amministratore(B)" @@ -229,7 +231,7 @@ BEGIN FIELD LF_SOCI->EMOLUMENTO FLAGS "R" PICTURE "." - HELP "Inserire l'ammontare dell'emolumnento dovuto al socio" + HELP "Ammontare dell'emolumento dovuto al socio" END LIST LST_SC1_PROP 1 23 @@ -243,7 +245,7 @@ BEGIN ITEM "5|Compratore a termine" ITEM "U|Usufruttuario" ITEM "T|Tit. di altro vincolo" - HELP "Inserire i titoli di proprieta' del socio" + HELP "Titoli di proprieta' del socio" END LIST LST_SC1_TIPOAZ 1 16 @@ -253,7 +255,7 @@ BEGIN ITEM "O|Ordinarie" ITEM "P|Privilegiate" ITEM "R|Risparmio" - HELP "Inserire il tipo di azione posseduta dal socio" + HELP "Tipo di azioni posseduta dal socio" END DATE FLD_SC1_DATAGG @@ -261,7 +263,6 @@ BEGIN PROMPT 1 16 "Data " FIELD LF_SOCI->DATAAGG FLAGS "DA" - HELP "Inserire la data dell'ultimo aggiornamento relativo al socio" END GROUPBOX DLG_NULL 76 3 @@ -349,14 +350,14 @@ DATE FLD_SC1_PARTECDAL BEGIN PROMPT 1 9 "Data inizio " FIELD LF_SOCI->PARTECDAL - HELP "Inserire la data di inizio partecipazione alle assemblee" + HELP "Data di inizio partecipazione alle assemblee" END DATE FLD_SC2_PARTECAL BEGIN PROMPT 1 10 "Data fine " FIELD LF_SOCI->PARTECAL - HELP "Inserire la data di fine partecipazione alle assemblee" + HELP "Data di fine partecipazione alle assemblee" WARNING "Data non corretta" VALIDATE DATE_CMP_FUNC >= FLD_SC1_PARTECDAL END @@ -365,7 +366,7 @@ LIST LST_SC2_QUATTPREV 10 BEGIN PROMPT 27 9 "Quadro 750 " FIELD LF_SOCI->QUATTPREV - HELP "Inserire il rigo in cui compare il socio sul quadro 750" + HELP "Quadro in cui compare il socio sul 750" ITEM " |Nessuno" ITEM "A1|Quadro A1" ITEM "B|Quadro B" @@ -377,7 +378,7 @@ LIST LST_SC2_Q740 10 BEGIN PROMPT 27 10 "Quadro 740 " FIELD LF_SOCI->Q740 - HELP "Inserire il rigo in cui compare il socio sul modello 740" + HELP "Quadro in cui compare il socio sul modello 740" ITEM " |Nessuno" ITEM "A|Quadro A" ITEM "F|Quadro F" @@ -402,7 +403,7 @@ BEGIN PROMPT 53 9 "Art 120 comma 1 " FIELD LF_SOCI->MLAV120C1 FLAGS "R" - HELP "Inserire il numero di mesi lavorati secondo art.120 comma 1" + HELP "Numero di mesi lavorati ex art.120 comma 1" WARNING "N.ro di mesi non corretto" NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)} END @@ -412,7 +413,7 @@ BEGIN PROMPT 53 10 "Art 120 comma 2 " FIELD LF_SOCI->MLAV120C2 FLAGS "R" - HELP "Inserire il numero di mesi lavorati secondo art.120 comma 2" + HELP "Numero di mesi lavorati ex art.120 comma 2" WARNING "N.ro di mesi non corretto" NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)} END @@ -430,7 +431,7 @@ BEGIN DISPLAY "Nome " RAGSOC OUTPUT FLD_SC2_CODANAGCON CODANAGR OUTPUT FLD_SC2_CODANAGCON_ANAFIS_RAGSOC RAGSOC - HELP "Inserire il codice anagrafico del coniuge" + HELP "Codice anagrafico del coniuge" CHECKTYPE NORMAL WARNING "Anagrafica assente" ADD RUN ba4 -1 @@ -439,6 +440,7 @@ END STRING FLD_SC2_CODANAGCON_ANAFIS_RAGSOC 50 BEGIN PROMPT 8 13 ": Nome " + HELP "Nome del coniuge del socio" USE LF_ANAG KEY 2 INPUT TIPOA "F" INPUT RAGSOC FLD_SC2_CODANAGCON_ANAFIS_RAGSOC @@ -453,7 +455,7 @@ STRING FLD_SC2_NOTE 60 BEGIN PROMPT 1 15 "Note " FIELD LF_SOCI->NOTE - HELP "Inserire eventuali note riferite al socio" + HELP "Eventuali note riferite al socio" END ENDPAGE diff --git a/ba/ba5000.uml b/ba/ba5000.uml index 99af6f1ff..919c12a54 100755 --- a/ba/ba5000.uml +++ b/ba/ba5000.uml @@ -6,7 +6,7 @@ RADIOBUTTON LST_SC1_TIPOASOC 12 BEGIN PROMPT 1 1 "Persona" FIELD LF_SOCI->TIPOASOC - HELP "Indicare se si tratta di persona fisica o giuridica" + HELP "Tipo anagrafico del socio" ITEM "F|Fisica" ITEM "G|Giuridica" END @@ -14,6 +14,7 @@ END NUMBER FLD_SC1_ANNO 4 BEGIN PROMPT 20 2 "Anno " + HELP "Anno su cui effettuare la ricerca" FIELD LF_SOCI->ANNO FLAGS "A" END @@ -28,7 +29,7 @@ BEGIN DISPLAY "Codice" CODTAB DISPLAY "Carica@30" S0 OUTPUT FLD_SC1_CODCAR CODTAB - HELP "Inserire il codice della carica del socio" + HELP "Codice della carica del socio" CHECKTYPE NORMAL WARNING "Carica assente" END @@ -42,7 +43,7 @@ LIST LST_SC1_RICQUAL 2 24 BEGIN PROMPT 1 6 "" FIELD LF_SOCI->CODCAR - HELP "Inserire la qualifica del socio" + HELP "Qualifica del socio" ITEM " |Nessuna" ITEM "A|Amministratore(A)" ITEM "B|Amministratore(B)" @@ -58,7 +59,7 @@ LIST LST_SC2_Q740 1 12 BEGIN PROMPT 1 7 "Modello 740 " FIELD LF_SOCI->Q740 - HELP "Inserire il rigo in cui compare il socio sul modello 740" + HELP "Quadro in cui compare il socio sul modello 740" ITEM " |Nessuno" ITEM "A|Quadro A" ITEM "F|Quadro F" @@ -70,7 +71,7 @@ LIST LST_SC2_QUATTPREV 2 12 BEGIN PROMPT 1 8 "Quadro 750 " FIELD LF_SOCI->QUATTPREV - HELP "Inserire il rigo in cui comapare il socio sul quadro 750" + HELP "Quadro in cui comapare il socio sul quadro 750" ITEM " |Nessuno" ITEM "A|Quadro A" ITEM "B|Quadro B" @@ -92,7 +93,3 @@ END ENDPAGE ENDMASK - - - -