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
This commit is contained in:
alex 2008-03-26 14:17:46 +00:00
parent 87d96f2733
commit d16bbbeb15
12 changed files with 67 additions and 25 deletions

@ -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));

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

@ -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,15 +186,14 @@ 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
rec.zero();
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;

@ -243,6 +243,12 @@ void TDocTS::upload_causali(const TFilename& file, TLog_report& log) const
errore <<" la causale con codice " << cod << " non può essere inserita (codice max 3 caratteri)";
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();

20
tc/tc8.cpp Executable file

@ -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;
}

20
tc/tc8.h Executable file

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

@ -5,8 +5,8 @@
#include <textset.h>
#include <reprint.h>
#include "tc0.h"
#include "tc0900a.h"
#include "tc8.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;
}

@ -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_CLIFIS 104
#define F_PATH 103
#define F_CLIFIS 104
#define F_CLIGIU 105
#define F_NAMEFAT 106
#define F_NUMFAT 107

@ -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

@ -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"

@ -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++)

@ -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)
{