root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@17629 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2008-11-14 00:02:54 +00:00
parent 5cb56fdb07
commit e00e0393f8
2 changed files with 18 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
tp/tp0101.cpp
View File

@ -527,25 +527,27 @@ TPack_clifo::~TPack_clifo()
bool TPack_indsped::get_clifo(char& tipocf, long& codcf)
{
TString query = query_header();
query << "SELECT CodContab FROM Customers_Suppliers WHERE (FlagCustSupp=#TIPOCF) AND (CustSuppCode=#CODCF)";
query << "SELECT CodContab,FlagCustSupp FROM Customers_Suppliers WHERE CustSuppCode=#CODCF";
TODBC_recordset clifo(query);
const TVariant tipo(tipocf == 'C' ? "C": "S");
const TVariant& code = recordset().get("CustSuppRefCode");
clifo.set_var("#TIPOCF", tipo);
clifo.set_var("#CODCF", code);
bool ok = clifo.move_first();
if (ok)
{
tipocf = tipo.as_string()[0] == 'C' ? 'C' : 'F';
codcf = clifo.get(0u).as_int();
tipocf = clifo.get(1u).as_string()[0];
if (tipocf == 'T')
return false; // Ignora clienti temporanei senza dare segnalazioni
}
if (!ok || codcf <= 0)
{
TString msg = TR("Impossibile determinare il codice contabile del cliente/fornitore");
msg << ' ' << tipo.as_string() << ' ' << code.as_string();
TString msg;
msg << TR("Impossibile determinare il codice contabile dell'anagrafica");
msg << " Customers_Suppliers.CustSuppCode=" << code.as_string();
ok = log_error(msg);
}
@ -598,7 +600,7 @@ bool TPack_indsped::trasferisci()
codcontab.trim();
long codcf = -1;
int codind = 0;
if (codcontab.not_empty())
if (codcontab.full())
{
codcf = codcontab.get_long(0);
codind = codcontab.get_int();
@ -613,7 +615,7 @@ bool TPack_indsped::trasferisci()
good = clifo.read() == NOERR;
if (!good)
{
// custsupprefcode e' il cliente/fornitore a cui si riferisce l'indirizzo di spesione
// custsupprefcode e' il cliente/fornitore a cui si riferisce l'indirizzo di spedizione
const TString& custsupprefcode = get_str("CustSuppRefCode");
str.format(FR("Non esiste l'indirizzo di spedizione %ld/%d corrispondente a %s"),
codcf, codind, (const char*)custsupprefcode);
@ -634,7 +636,7 @@ bool TPack_indsped::trasferisci()
if (needs_creation && statusflag != 3 && good)
{
// inserisco indirizzo di spedizione
char tipo = tipocf=='C' ? 'C':'S';
char tipo = ' ';
if (get_clifo(tipo, codcf))
{
codind = get_next_key(tipocf, codcf);
@ -653,6 +655,7 @@ bool TPack_indsped::trasferisci()
{
if (statusflag == 3)
{
// NON cancellare il cliente in quanto potrebbe avere dei movimenti associati
//const int flag = cancella_clifo(clifo);
//update_statusflag_codcontab(custsuppcode, flag, "0");
}
@ -662,16 +665,17 @@ bool TPack_indsped::trasferisci()
TString80 dencom = get_str("Locality");
dencom.trim(); dencom.upper();
const TRectype& reccom = cache_comuni.get(dencom);
TString80 str = reccom.get(COM_DENCOM); str.trim();
TString256 str = reccom.get(COM_DENCOM);
str.trim(); str.upper();
if (str == dencom)
rec_indsped.put(IND_COM, reccom.get(COM_COM));
else
{
rec_clifo.put(IND_COM, " ");
rec_clifo.put(IND_LOCALITA, dencom);
rec_indsped.zero(IND_COM);
rec_indsped.put(IND_LOCALITA, dencom);
log("");
str.format(FR("Destinazioni diverse %d: comune non trovato %s"), codcf, (const char*) dencom);
str.format(FR("Destinazioni diverse %ld: comune non trovato %s"), codcf, (const char*) dencom);
log(str);
}
aggiorna_record(indsped, lista_indsped);

2
tp/tp0900.cpp
View File

@ -389,8 +389,6 @@ void TDichiarazione_CONAI::scrivi_csv(const TRectype& prima_riga, TDichiarazione
}
}
if (anno == 2008 && codnum == "NAC" && (numdoc == 74 || numdoc == 75))
int cazzone = 1;
if (n_riga_generata > 0)
scrivi_csv_doc_con_riga_generata(doc, n_riga_generata, csv, conai_specie);
else