Patch level : 12.0 982

Files correlati     : f90.exe
Commento            :
- Esportato numdoc scritto sull'fppro a prescindere.
- Corretto nuovamente codice fiscale che inizia con 8 o 9. Controllo prima la partita iva.

src/f1/f1lib.cpp

@@ -244,6 +244,15 @@ const char* TFppro::get_tipodoc() const
 	return tipodoc.cut(0) << _db->sq_get("TIPODOC");
 }
 
+const char* TFppro::get_numdoc() const
+{
+  TString query;
+  static TString numdoc;
+  query << "SELECT PZ_NUMERO AS NUMDOC FROM FPPRO00F\r\n" << where_str();
+  _db->sq_set_exec(query);
+  return numdoc.cut(0) << _db->sq_get("NUMDOC");
+}
+
 TDate TFppro::get_data_first_doc() const
 {
 	TString query;

src/f1/f1lib.h

@@ -93,6 +93,7 @@ public:
   const char* get_annoprot()    const;
   const char* get_dataoraric()  const;
   const char* get_tipodoc()     const;
+  const char* get_numdoc()      const;
 
   TFppro();
   TFppro(TToken_string& keys) : TFppro() { set_keys(keys); }

src/f9/f9lib01.cpp

@@ -219,14 +219,17 @@ void TEstrazione::fill_id(TLocalisamfile& clifo, TString& statopaiv, TString& id
   if (IS_ITALIANO(statopaiv))
   {
     // Se ho un codice fiscale che inizia per 8 o 9 e' come un privato e devo considerarlo solo come codice fiscale senza partita IVA.
-    if (codfis.full() && codfis.len() == 11 && (codfis[0] == '8' || codfis[0] == '9'))
-      paiv.cut(0);
-    else if (paiv.full() && paiv.len() == 11 && (paiv[0] == '8' || paiv[0] == '9'))
+    if (paiv.full())
+    {
+      if (paiv.len() == 11 && (paiv[0] == '8' || paiv[0] == '9'))
       {
         codfis = paiv;
         paiv.cut(0);
       }
     }
+    else if (codfis.full() && codfis.len() == 11 && (codfis[0] == '8' || codfis[0] == '9'))
+      paiv.cut(0);
+  }
 
   if (paiv == "0")
     paiv.cut(0);
@@ -642,6 +645,7 @@ const char* TEstrazione::diagnostica_mov()
         case correct:
           ok &= true;
           mov_i.err     = false;
+          mov_i.numdoc  = fppro_db().get_numdoc();
           break;
 
           // ERRORS

src/ve/velib04.h

@@ -10,7 +10,7 @@
 #endif
 
 #ifndef __CG2101_H
-#include "../cg/cg2101.h"
+#include "../cg/cglib.h"
 #endif
 
 class TLista_documenti : public TObject  // velib04