Filtri record in manutenzione archivi

git-svn-id: svn://10.65.10.50/branches/R_10_00@23133 c028cbd2-c16b-5b4b-a496-9718f37d4682

ba/ba1102.cpp

@@ -96,7 +96,7 @@ bool TEdit_file::browse_cursor(TCursor& cursor, const TFilename& fname)
 
   const bool superprassi = user() == ::dongle().administrator();
   
-  TCursor_sheet sheet(&cursor, trac, fname, head, superprassi ? 6 : 0);
+  TCursor_sheet sheet(&cursor, trac, fname, head, superprassi ? 0x26 : 0);
   KEY ch;
   while ((ch = sheet.run()) != K_ESC)
   {     
@@ -126,7 +126,7 @@ bool TEdit_file::browse_cursor(TCursor& cursor, const TFilename& fname)
       }
       
       // Forza update del cursore
-      cursor.set_filterfunction(NULL, TRUE);
+      cursor.set_filterfunction(NULL, true);
       if (cursor.items() > 0)
         sheet.select(1);
       continue;

ba/ba4200.cpp

@@ -372,13 +372,14 @@ bool cod_reg(TMask_field& f, KEY key)
 
 bool no_dup_fis(TMask_field& f, KEY key)
 {
-  if (f.mask().query_mode() || !f.to_check(key)) return TRUE;
+  if (f.mask().query_mode() || !f.to_check(key)) 
-  TPersone_app& app = (TPersone_app&)main_app();
+    return true;
-  TLocalisamfile&       anag = app.get_relation()->lfile(LF_ANAG) ;
   
-  const TString16 cofi(f.get());                     
+  const TString& cofi = f.get();
-  if ( cofi.not_empty() )
+  if (cofi.full())
   { 
+    TPersone_app& app = (TPersone_app&)main_app();
+    TLocalisamfile& anag = app.get_relation()->lfile(LF_ANAG) ;
     anag.zero() ;
     anag.put(N_TIPOA, app.tip_ana());
     anag.put(N_COFI, cofi ) ;
@@ -386,13 +387,13 @@ bool no_dup_fis(TMask_field& f, KEY key)
     anag.read() ;
     anag.setkey(1) ;
     const char t = anag.get_char(N_TIPOA), t1 = app.tip_ana();
-    const TString16     s = anag.get(N_CODANAGR), s1 = app.cod_ana();
+    const TString16 s = anag.get(N_CODANAGR), s1 = app.cod_ana();
 
     if (anag.good() && (t1 != t || s1 != s))
-      f.message_box(FR("Codice fiscale gia' utilizzato per il codice %c/%s"),
+      f.message_box(FR("Codice fiscale già utilizzato per il codice %c/%s"),
                     t, (const char*)s);
   }
-  return TRUE ;
+  return true;
 }
 
 bool gest_iva(TMask_field& f, KEY key , short   fd_sta ,short fd_iva )
@@ -415,7 +416,7 @@ bool gest_iva(TMask_field& f, KEY key , short   fd_sta ,short fd_iva )
     const char t  = anag.get_char(N_TIPOA), t1 = app.tip_ana();
     const TFixed_string s(anag.get(N_CODANAGR)),        s1(app.cod_ana());
     if (anag.good() && (t1 != t || s1 != s))
-      f.message_box(FR("Partita iva gia' definita per il codice : %c/%s"),
+      f.message_box(FR("Partita iva già definita per il codice : %c/%s"),
                     t, (const char*) s);
   }
   return TRUE ;

ba/ba4200b.uml

@@ -149,7 +149,7 @@ END
 
 STRING FLD_AF1_STATONASC_TABSTE_S0 10
 BEGIN
-PROMPT 44 6 "Nazionalita'         "
+PROMPT 44 6 "Nazionalità          "
 FIELD LF_ANAGFIS->NAZION
 FLAGS "D"
 HELP "Nazione di appartenenza della persona fisica"
@@ -526,9 +526,9 @@ END
 
 STRING F_LOCCORR 35
 BEGIN
-PROMPT 2 7 "Localita'       "
+PROMPT 2 7 "Località        "
 FIELD LF_ANAG->LOCCORR
-HELP "Localita' in cui spedire la corrispondenza"
+HELP "Località in cui spedire la corrispondenza"
 END
 
 NUMBER FLD_AF2_STATOCORR 3

ba/ba4200c.uml

@@ -106,13 +106,13 @@ BEGIN
   VALIDATE XTZPI_FUNC FLD_AG1_STATOPAIV FLD_AG1_COMRF FLD_AG2_COMRES
 END
 
-STRING FLD_AG1_COFI 12
+STRING FLD_AG1_COFI 16
 BEGIN
-  PROMPT 42 5 "Codice fiscale     "
+  PROMPT 42 5 "Codice fiscale "
   FIELD LF_ANAG->COFI
   FLAGS "U"
   HELP "Codice fiscale della persona giuridica"
-  VALIDATE CF_FUNC FLD_AG1_STATOPAIV
+  VALIDATE CF_FUNC FLD_AF1_STATOPAIV
   USE LF_ANAG KEY 3
   INPUT TIPOA "G" 
   INPUT COFI FLD_AG1_COFI
@@ -461,9 +461,9 @@ END
 
 STRING F_LOCCORR 35
 BEGIN
-  PROMPT 2 6 "Localita'       "
+  PROMPT 2 6 "Località        "
   FIELD LF_ANAG->LOCCORR
-  HELP "Localita' in cui spedire la corrispondenza"
+  HELP "Località in cui spedire la corrispondenza"
 END
 
 NUMBER FLD_AG2_STATOCORR 3
@@ -683,7 +683,7 @@ DATE FLD_AG3_DATASCAD
 BEGIN
   PROMPT 2 8 "Data scadenza   "
   FIELD LF_ANAGGIU->DATASCAD
-  HELP "Data di termine attivita' della società"
+  HELP "Data di termine attività della società"
   WARNING "La data di scadenza non puo' precedere quella di costituzione"
   VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST
 END
@@ -720,7 +720,7 @@ DATE FLD_AG3_DATACHIUS
 BEGIN
   PROMPT 2 12 "Data chiusura "
   FIELD LF_ANAGGIU->DATACHIUS
-  HELP "Data di chiusura dell'anno di contabilita'"
+  HELP "Data di chiusura dell'anno di contabilità"
 END
 
 NUMBER LST_AG3_STATOSOC 1
@@ -732,8 +732,8 @@ BEGIN
   OUTPUT LST_AG3_STATOSOC
   HELP "Stato in cui si trova la società"
   ITEM " |Sconosciuto"
-  ITEM "1|Soggetto in normale attivita'"
+  ITEM "1|Soggetto in normale attività"
-  ITEM "2|Soggetto in liquidazione per cessazione di attivita'"
+  ITEM "2|Soggetto in liquidazione per cessazione di attività"
   ITEM "3|Soggetto in fallimento o in liquidazione coatta amministrativa"
   ITEM "4|Soggetto estinto"
 END
@@ -767,21 +767,21 @@ BEGIN
   OUTPUT LST_AG3_NATGIU
   ITEM " |Sconosciuta"
   ITEM "1|società in accomandita per azioni"
-  ITEM "2|società a resposabilita' limitata"
+  ITEM "2|società a resposabilità limitata"
   ITEM "3|società per azioni"
   ITEM "4|società cooperative e loro consorzi iscritti nei registri prefettizi e nello schedario generale delle cooperazioni"
   ITEM "5|Altre società cooperative"
   ITEM "6|Mutue assicuratrici"
-  ITEM "7|Consorzi con personalita' giuridica"
+  ITEM "7|Consorzi con personalità giuridica"
   ITEM "8|Associazioni riconosciute"
   ITEM "9|Fondazioni"
-  ITEM "10|Altri enti od istituti con personalita' giuridica"
+  ITEM "10|Altri enti od istituti con personalità giuridica"
-  ITEM "11|Consorzi senza personalita' giuridica"
+  ITEM "11|Consorzi senza personalità giuridica"
   ITEM "12|Associazioni non riconosciute e comitati"
-  ITEM "13|Altre organizzazioni di persone o di beni senza personalita' giuridica (escluse le comunioni)"
+  ITEM "13|Altre organizzazioni di persone o di beni senza personalità 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 "16|Casse mutue e fondi di previdenza, assistenza, pensioni o simili con o senza personalità giuridica"
   ITEM "17|Opere pie e società di mutuo soccorso"
   ITEM "18|Enti ospedalieri"
   ITEM "19|Enti ed istituti di previdenza e asssistenza sociale"
@@ -795,19 +795,19 @@ BEGIN
   ITEM "27|Associazioni tra artisti e professionisti"
   ITEM "28|Aziende coniugali"
   ITEM "29|GEIE"
-  ITEM "30|societàsemplici irregolari e di fatto (Non residenti)"
+  ITEM "30|società semplici irregolari e di fatto (Non residenti)"
   ITEM "31|società in nome collettivo (Non residenti)"
   ITEM "32|società in accomandita semplice (Non residenti)"
   ITEM "33|società di armamento (Non residenti)"
   ITEM "34|Associazioni tra professionisti (Non residenti)"
   ITEM "35|società in accomandita per azioni (Non residenti)"
-  ITEM "36|società a responsabilita' limitata (Non residenti)"
+  ITEM "36|società a responsabilità limitata (Non residenti)"
   ITEM "37|società per azioni (Non residenti)"
   ITEM "38|Consorzi (Non residenti)"
   ITEM "39|Altri enti ed istituti (Non residenti)"
   ITEM "40|Associazioni riconosciute, non riconsciute e di fatto (Non residenti)"
   ITEM "41|Fondazioni (Non residenti)"
-  ITEM "42|Opere pie e societàdi mutuo soccorso (Non residenti)"
+  ITEM "42|Opere pie e società di mutuo soccorso (Non residenti)"
   ITEM "43|Altre organizzazioni di persone e di beni (Non residenti)"
 END