Patch level : 4.0 911

Files correlati     :
Ricompilazione Demo : [ ]
Commento           :

Riportata la versione 3.2 1010


git-svn-id: svn://10.65.10.50/trunk@16380 c028cbd2-c16b-5b4b-a496-9718f37d4682

cg/cg3900.cpp

@@ -1054,7 +1054,7 @@ void TAlleg_mask::add_0_9(int trc, TPadoaSchioppa_set& pss, TAlleg_log& log)
 
   // Dati dell'intermediario che si cucca 50 Euro senza fare una mazza!
   const TString& inter = get(F_INTR);
-  if (inter.full())
+  if (inter.full() && codfis != inter)
   {
     pss.set("CodiceIntermediario"    , inter); 
     pss.set("NumeroIscrizioneAlboCAF", get(F_CAF)); 

cg/cg3900a.uml

@@ -98,8 +98,8 @@ END
 STRING F_INTR 16
 BEGIN
   PROMPT 2 13 "Codice fiscale "
-  STR_EXPR #F_INTR!=#F_CONT
+//  STR_EXPR #F_INTR!=#F_CONT
-  WARNING "Il codice dell'intermediario deve essere diverso da quello del contribuente"
+//  WARNING "Il codice dell'intermediario deve essere diverso da quello del contribuente"
   FLAGS "U"
   FIELD INTERMEDIARIO
 END

ps/pt0002100.cpp

@@ -1,14 +1,9 @@
 #include <applicat.h>
 #include <automask.h>
-#include <execp.h>
 #include <progind.h>
 #include <reputils.h>
 #include <utility.h>
-#include <config.h>
-#include <recarray.h>
 #include <relation.h>
-#include <sheet.h>
-#include <tabutil.h>
 #include <textset.h>
 #include <reprint.h>
 
@@ -191,7 +186,7 @@ long TClifoCSV::find_clifo(const char tipo, const TString& cofi, const TString&
   TString up_ragsoc = ragsoc;
   up_ragsoc.upper();
 
-  for (int key = 2; key<=5 && !found; key++)
+  for (int key = 4; key<=5 && !found; key++)
   {
     bool good_key = false; // Assumiamo che la chiave sia icompleta
     
@@ -199,7 +194,6 @@ long TClifoCSV::find_clifo(const char tipo, const TString& cofi, const TString&
     rec.put(CLI_TIPOCF,tipo);
     switch (key)
     {    
-    case 2: rec.put(CLI_RAGSOC,ragsoc); good_key = ragsoc.full(); break;
     case 4: rec.put(CLI_COFI,cofi);     good_key = cofi.full(); break;
     case 5: rec.put(CLI_PAIV,paiv);     good_key = paiv.full(); break;
     default: break;

tc/tc0600.cpp

@@ -244,6 +244,12 @@ void TDocTS::upload_causali(const TFilename& file, TLog_report& log) const
       log.log(2,errore);
     }
     
+    //il codice causale deve essere sempre di tre caratteri zero-filled
+    while (cod.len() < 3)
+    {
+      cod.insert("0",0);
+    }
+
     causa.zero();
 
     causa.put(CAU_CODCAUS,cod);

tc/tc8.cpp

@@ -0,0 +1,20 @@
+#include <xvt.h>
+
+#include "tc8.h"
+
+int main(int argc, char** argv)
+{
+  const int op = argc < 2 ? 0 : argv[1][1]-'0';
+  switch (op)
+  {
+    case  0: tc8100(argc,argv); break;	// importazione da Semetra
+    default: tc8100(argc,argv); break;
+  }
+  exit(0);
+  return 0;
+}
+
+
+
+
+

tc/tc8.h

@@ -0,0 +1,20 @@
+#ifndef __TC8_H
+#define __TC8_H
+
+int tc8100(int argc, char** argv);
+
+#endif // __TC8_H
+
+
+
+
+
+
+
+
+
+
+
+
+
+

tc/tc8100.cpp

@@ -5,8 +5,8 @@
 #include <textset.h>
 #include <reprint.h>
 
-#include "tc0.h"
+#include "tc8.h"
-#include "tc0900a.h"
+#include "tc8100a.h"
 
 #include "../ve/velib.h"
 
@@ -122,7 +122,7 @@ public:
   TImportaClifo_mask();
 };
   
-TImportaClifo_mask::TImportaClifo_mask() :TAutomask ("tc0900a")
+TImportaClifo_mask::TImportaClifo_mask() :TAutomask ("tc8100a")
 {
 }  
 
@@ -797,10 +797,10 @@ void TClifoCSV::upload_fattEric(const TFilename& file, TLog_report& log, const i
     
     const long cod = s.get(4).as_int(); //estrai dal file il codice utente
 
-    if (find_clifo('C',cod)) //controllo se il cliente esiste sulla tabella delle anagrafiche
+    if (!find_clifo('C',cod)) //controllo se il cliente esiste sulla tabella delle anagrafiche
     {
       TString str;
-      str << "Il cliente con codice " << cod << " non è presente nella tabella delle anagrafiche ";
+      str << "Il cliente con codice " << cod << " non è presente in anagrafica ";
       log.log(1, str);
     }
 
@@ -931,14 +931,14 @@ void TClifoCSV::main_loop()
   {
     if (transfer())
 		{
-			message_box(TR("Importazione documenti completata"));
+			message_box(TR("Importazione completata"));
 		}
   }   
 }
 
-int tc0900 (int argc, char* argv[])
+int tc8100 (int argc, char* argv[])
 {
   TClifoCSV main_app;
-  main_app.run(argc, argv, TR("Importazione Documenti da Teamsystem"));
+  main_app.run(argc, argv, TR("Importazione da Semetra"));
   return true;
 }

tc/tc8100a.h

@@ -1,9 +1,9 @@
-// campi della maschera pt003100a Importazione Clienti/Fornitori, Fatture, Ricevute da file CSV
+// campi della maschera tc8100a Importazione da Semetra
 
 #define F_CODDITTA      101
 #define F_RAGSOC        102
-#define F_PATH		      103
+#define F_PATH		103
-#define F_CLIFIS   		  104
+#define F_CLIFIS  	104
 #define F_CLIGIU        105
 #define F_NAMEFAT       106
 #define F_NUMFAT        107

tc/tc8100a.uml

@@ -1,4 +1,4 @@
-#include "tc0900a.h"
+#include "tc8100a.h"
 
 TOOLBAR "" 0 -3 0 3
 
@@ -23,7 +23,7 @@ END
 
 ENDPAGE
 
-PAGE "Importazione documenti da TeamSystem" 0 0 0 -3
+PAGE "Importazione da Semetra" 0 0 0 -3
 
 GROUPBOX DLG_NULL 76 3
 BEGIN

tc/tcmenu.men

@@ -7,6 +7,7 @@ Item_01 = "TeamSystem", [TCMENU_002]
 Item_02 = "Zucchetti", [TCMENU_005]
 Item_03 = "Proforma", "tc9 -0", ""
 Item_04 = "Sispac", "tc9 -1", ""
+Item_05 = "Semetra", "tc8 -0", ""
 
 [TCMENU_002]
 Caption = "TeamSystem"

ve/velib04a.cpp

@@ -67,7 +67,7 @@ void TFatturazione_bolle::campi_raggruppamento(TToken_string& campi) const
   const char* cond[] = { "CAMBIO", "SCONTO", "TIPODOC", "CODNUM",
                          "CODPAG", "CODABIA|CODCABA", "CODLIST", "CODAG",
                          "CODSPMEZZO", "CODPORTO", "CAUSTRASP", "CODVETT1|CODVETT2|CODVETT3", 
-                         "CODINDSP",
+                         "CODINDSP", "CODCMS", 
                          NULL };
   
   for (int u = 0; cond[u]; u++)  

ve/velib06.cpp

@@ -2579,6 +2579,7 @@ bool TElabora_mask::elabora()
 		set(F_CODNUM_ELAB, num_in);
 		set(F_NDOC_ELAB, "");
 		set(F_NUMDOCRIF_ELAB, "");
+				((TDocumento_mask *)_main)->set_focus_field(F_SHEET);
 	}				 
 	if (e->tipo() == _consegna_ordini)
 	{