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

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

Browse Source
This commit is contained in:
guy 2015-05-15 08:49:01 +00:00
parent f69454010a
commit 49319d0200
2 changed files with 168 additions and 101 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ps/pd6142100.cpp
View File

@ -5,16 +5,16 @@
// (il mese 13 copia tutti i movimenti dell'anno).
#include <applicat.h>
#include <tabutil.h>
#include <mask.h>
#include <sheet.h>
#include <prefix.h>
#include <relation.h>
#include <progind.h>
#include <relation.h>
#include <sheet.h>
#include <tabutil.h>
#include <urldefid.h>
#include <nditte.h>
#include <mov.h>
#include <rmoviva.h>
#include "pd6142100a.h"
// La parte di selezione delle ditte e' tratta dal programma di liquidazione IVA (cg4300.cpp)
@ -74,7 +74,7 @@ bool TCopia_movimenti::firm_handler(TMask_field& f, KEY k)
const long codditta = atol(f.get());
const int anno = f.mask().get_int(F_ANNO);
if (!prefix().exist(codditta))
return f.error_box("La ditta specificata non e' abilitata in contabilita'.");
return f.error_box("La ditta specificata non è abilitata in contabilità.");
if (!app().look_lia(codditta,anno))
return f.error_box("Non esistono i parametri di liquidazione per la ditta specificata.");
}
@ -257,7 +257,7 @@ void TCopia_movimenti::main_loop()
_anno = msk.get_int(F_ANNO);
_mese = msk.get_int(F_MESE);
_rcv_firm = msk.get_long(F_RCVFIRM);
if (yesno_box("E' stata selezionata la ditta %ld come ditta ricevente. Continuo?",_rcv_firm))
if (yesno_box("E' stata selezionata la ditta %ld come ditta ricevente. Continuare?",_rcv_firm))
{
copia_mov();
message_box("Copia movimenti completata.");
@ -403,8 +403,7 @@ void TCopia_movimenti::copia_mov()
bool TCopia_movimenti::create()
{
_ditte = new TArray_sheet(-1, -1, -4, -4, "Selezione Ditte",
"@1|Cod.@5R|Ragione Sociale@50");
_ditte = new TArray_sheet(-1, -1, -4, -4, "Selezione Ditte", "@1|Cod.@5R|Ragione Sociale@50");
_nditte = new TLocalisamfile(LF_NDITTE);
_lia = new TTable("%LIA");
_firm = TApplication::get_firm();
@ -427,4 +426,3 @@ int pd6142100 (int argc, char** argv)
a.run(argc,argv,"Liquidazione riepilogativa IVA");
return 0;
}

251
ps/ps0430400.cpp
View File

@ -98,7 +98,8 @@ protected:
virtual void main_loop();
public:
long find_clifo(const TString& cf_pi, TLocalisamfile& clifo) const;
void cli_ragsoc(const TCBA_recset& cli, TString& ragsoc) const;
long find_customer(const TString& cf_pi, const TString& codpag, const TString& ragsoc) const;
const TRectype& find_codart(TString& codart) const;
bool find_or_create_clifo(const TCBA_recset& cli, TLocalisamfile& clifo,
const TString& cdc, TLog_report& log) const;
@ -109,41 +110,82 @@ public:
bool importa_fatture(const TFilename& fname, const TString& codnum, const TString& cdc, TLog_report& log) const;
};
long TImport_app::find_clifo(const TString& cf_pi, TLocalisamfile& clifo) const
static void normalize_code(TString& code)
{
if (cf_pi.blank() || cf_pi.len() < 9)
return 0;
code.trim();
if (code.not_empty())
{
code.upper();
if (code.len() < 11 && real::is_natural(code))
code.right_just(11, '0');
}
}
TString80 cod = cf_pi;
cod.trim();
cod.upper();
long TImport_app::find_customer(const TString& cf_pi, const TString& codpag, const TString& ragsoc) const
{
long codice = 0L;
if (cf_pi.blank() || cf_pi.len() < 9)
return codice;
TString20 cod = cf_pi;
normalize_code(cod);
const bool numeric = cod.len() < 16 && real::is_natural(cod);
// Tento prima il codice fiscale o la partita IVA?
const char* const cofi_paiv = cod.len() < 16 ? "PC" : "CP";
int err = 204;
for (int tentativo = 0; tentativo < 2; tentativo++)
const char* const cofi_paiv = numeric ? "PC" : "CP";
for (int t = 0; t < 2 && codice <= 0; t++)
{
clifo.zero();
clifo.put(CLI_TIPOCF, 'C');
if (cofi_paiv[tentativo] == 'C')
const int key = cofi_paiv[t] == 'C' ? 4 : 5;
TString query;
query << "USE " << LF_CLIFO << " KEY " << key;
for (int f = 0; f < 2; f++)
query << (f ? "\nTO " : "\nFROM ") << CLI_TIPOCF << "=C " << (key==4 ? CLI_COFI : CLI_PAIV) << '=' << cod;
TISAM_recordset recset(query);
if (recset.move_first())
{
clifo.setkey(4);
clifo.put(CLI_COFI, cod);
codice = recset.get(CLI_CODCF).as_int();
const TRecnotype candidates = recset.items();
if (candidates > 1) // Cliente ambiguo
{
if (ragsoc.full()) // Ricerca da clifo
{
codice = 0;
for (TRecnotype i = 0; recset.move_to(i); i++)
{
TString80 kr; recset.get(CLI_RAGSOC).as_string(kr);
if (ragsoc == kr)
{
codice = recset.get(CLI_CODCF).as_int();
break;
}
}
} else
if (codpag.full()) // Ricerca da fatt
{
TRecnotype best = -1;
for (TRecnotype i = 0; recset.move_to(i); i++)
{
TString4 kp; recset.get(CLI_CODPAG).as_string(kp);
if (codpag == kp || (kp.blank() && best < 0))
{
best = i;
if (codpag == kp)
break;
}
}
if (best > 0)
{
recset.move_to(best);
codice = recset.get(CLI_CODCF).as_int();
}
}
}
}
else
{
clifo.setkey(5);
if (cod.len() < 11 && real::is_natural(cod))
cod.right_just(11, '0');
clifo.put(CLI_PAIV, cod);
}
err = clifo.read();
if (err == NOERR)
break;
}
return err == NOERR ? clifo.get_long(CLI_CODCF) : 0;
return codice;
}
const TRectype& TImport_app::find_codart(TString& cod) const
@ -153,17 +195,38 @@ const TRectype& TImport_app::find_codart(TString& cod) const
return anamag;
}
void TImport_app::cli_ragsoc(const TCBA_recset& cli, TString& ragsoc) const
{
TString80 rs1, rs2;
cli.get(6).as_string(rs1); rs1.trim();
cli.get(7).as_string(rs2); rs2.trim();
TString80 str;
if (rs2.blank())
{
const int spc = rs1.find(' ');
if (spc > 0)
{
str = rs1.left(spc);
str.left_just(30);
str << rs1.mid(spc+1);
}
}
if (str.blank())
{
str << rs1 << ' ' << rs2;
str.strip_double_spaces();
}
TParagraph_string ps(str, 50);
ragsoc = ps.get();
}
bool TImport_app::find_or_create_clifo(const TCBA_recset& cli, TLocalisamfile& clifo, const TString& cdc, TLog_report& log) const
{
TString16 cofi = cli.get(2).as_string();
if (cofi.full() && find_clifo(cofi, clifo))
return true;
TString16 piva = cli.get(1).as_string();
if (piva.full() && find_clifo(piva, clifo))
return true;
const TString80 ragsoc = cli.get(6).as_string();
TString16 piva; cli.get(1).as_string(piva);
TString20 cofi; cli.get(2).as_string(cofi);
TString80 ragsoc; cli_ragsoc(cli, ragsoc);
TString4 codpag; cli.get(20).as_string(codpag);
if (piva.blank() && cofi.blank())
{
@ -174,6 +237,20 @@ bool TImport_app::find_or_create_clifo(const TCBA_recset& cli, TLocalisamfile& c
return false;
}
long codcf = 0;
if (cofi.full())
codcf = find_customer(cofi, codpag, ragsoc);
if (codcf <= 0 && piva.full())
codcf = find_customer(piva, codpag, ragsoc);
if (codcf > 0)
{
clifo.setkey(1);
clifo.zero();
clifo.put(CLI_TIPOCF, 'C');
clifo.put(CLI_CODCF, codcf);
return clifo.read() == NOERR;
}
long next_clifo = 1;
TISAM_recordset recset("USE CLIFO\tTO TIPOCF=C");
if (recset.move_last())
@ -185,12 +262,10 @@ bool TImport_app::find_or_create_clifo(const TCBA_recset& cli, TLocalisamfile& c
clifo.put(CLI_CODCF, next_clifo);
clifo.put(CLI_RAGSOC, ragsoc);
cofi.trim(); cofi.upper();
normalize_code(cofi);
clifo.put(CLI_COFI, cofi);
piva.trim(); piva.upper();
if (piva.len() < 11 && real::is_natural(piva))
piva.right_just(11, '0');
normalize_code(piva);
clifo.put(CLI_PAIV, piva);
const int err = clifo.write();
@ -219,13 +294,9 @@ bool TImport_app::importa_clienti(const TFilename& fname, const TString& cdc, TL
bool done = true;
TProgind pi(cli.items(), str);
TProgress_monitor pi(cli.items(), str);
for (bool ok = cli.move_first(); ok && done; ok = cli.move_next())
{
done = pi.addstatus(1);
if (!done)
break;
if (cli.get(0).is_empty()) // Salta righe vuote
continue;
@ -234,13 +305,12 @@ bool TImport_app::importa_clienti(const TFilename& fname, const TString& cdc, TL
break;
// Aggiorna dati cliente
TString16 piva = cli.get(1).as_string();
piva.upper();
if (piva.len() < 11 && real::is_natural(piva))
piva.right_just(11, '0');
TString16 piva; cli.get(1).as_string(piva);
normalize_code(piva);
TString16 cofi = cli.get(2).as_string();
cofi.upper();
TString20 cofi; cli.get(2).as_string(cofi);
normalize_code(cofi);
const int privato = cli.get(27).as_int();
TRectype& curr = clifo.curr();
@ -249,31 +319,12 @@ bool TImport_app::importa_clienti(const TFilename& fname, const TString& cdc, TL
curr.put(CLI_COFI, cofi);
if (cofi.len() == 16)
{
curr.put(CLI_SESSO, cofi.mid(9, 1) > "3" ? 'F': 'M');
curr.put(CLI_SESSO, cofi[9] > '3' ? 'F': 'M');
curr.put(CLI_COMNASC, cofi.mid(11, 4));
}
TString rs1 = cli.get(6).as_string(); rs1.trim();
TString rs2 = cli.get(7).as_string(); rs2.trim();
str.cut(0);
if (rs2.blank())
{
const int spc = rs1.find(' ');
if (spc > 0)
{
str = rs1.left(spc);
str.left_just(30);
str << rs1.mid(spc+1);
}
}
if (str.empty())
{
str << rs1 << ' ' << rs2;
str.strip_double_spaces();
}
TParagraph_string ragsoc(str, 50);
curr.put(CLI_RAGSOC, ragsoc.get());
TString80 ragsoc; cli_ragsoc(cli, ragsoc);
curr.put(CLI_RAGSOC, ragsoc);
curr.put(CLI_REFERENTE, curr.get(CLI_RAGSOC));
const TString& indir = cli.get(8).as_string();
@ -303,8 +354,8 @@ bool TImport_app::importa_clienti(const TFilename& fname, const TString& cdc, TL
alleg = naz == 1 ? 5 : 9;
else
{
if (piva.empty())
alleg = 6;
if (piva.blank())
alleg = real::is_natural(cofi) ? 7 : 6;
}
}
curr.put(CLI_ALLEG, alleg);
@ -374,6 +425,8 @@ bool TImport_app::importa_clienti(const TFilename& fname, const TString& cdc, TL
cfven.put(CFV_CODPRCF, cdc.right(3));
cfven.rewrite();
}
done = pi.add_status();
}
log.log(0, str.cut(0));
@ -463,8 +516,6 @@ bool TImport_app::importa_fatture(const TFilename& fname, const TString& codnum,
TString str = TR("Importazione documenti");
log.log(0, str);
TLocalisamfile clifo(LF_CLIFO);
TCBA_recset fat;
fat.load_file(fname);
@ -475,19 +526,16 @@ bool TImport_app::importa_fatture(const TFilename& fname, const TString& codnum,
bool done = true;
long codcf = 0;
TString80 cofi_paiv;
TString4 codpag;
TString periodo;
TToken_string ospiti(256, '@');
TDocumento* doc = NULL;
TProgind pi(fat.items(), str);
TProgress_monitor pi(fat.items(), str);
for (bool ok = fat.move_first(); ok && done; ok = fat.move_next())
{
done = pi.addstatus(1);
if (!done)
break;
const char tipo = fat.get(8).as_string()[0];
if (tipo == 'T')
@ -499,17 +547,17 @@ bool TImport_app::importa_fatture(const TFilename& fname, const TString& codnum,
doc = NULL;
}
TString80 cofi_paiv = fat.get(14).as_string();
cofi_paiv.trim(); cofi_paiv.upper();
codcf = find_clifo(cofi_paiv, clifo);
fat.get(11).as_string(codpag);
fat.get(14).as_string(cofi_paiv);
normalize_code(cofi_paiv);
codcf = find_customer(cofi_paiv, codpag, EMPTY_STRING);
if (codcf <= 0)
{
str.format("Impossibile associare un cliente al C.F./P.I '%s' alla riga %ld",
str.format("Impossibile associare un cliente al codice '%s' alla riga %ld",
(const char*)cofi_paiv, fat.current_row()+1);
log.log(2, str);
}
periodo = get_periodo(fat); // 10 + 9
fat.get(11).as_string(codpag);
fat.get(15).as_string(ospiti);
const char* ospite = ospiti.get(0);
@ -531,7 +579,7 @@ bool TImport_app::importa_fatture(const TFilename& fname, const TString& codnum,
continue;
}
TString80 codart;
TCodice_articolo codart;
codart << fat.get(12); codart.trim();
codart << '.' << cdc.right(3);
@ -548,8 +596,28 @@ bool TImport_app::importa_fatture(const TFilename& fname, const TString& codnum,
if (doc == NULL)
{
doc = new TDocumento('D', datadoc.year(), codnum, 0);
doc->put(DOC_TIPODOC, "F01");
TString4 numerazione = codnum;
TToken_string key;
key << "C|" << codcf;
TString4 tipo_doc = cache().get(LF_CFVEN, key, CFV_TIPODOCFAT);
if (tipo_doc.full())
{
TString_array num_doc;
const int nd = numerazioni_documenti(num_doc, tipo_doc);
if (nd > 0 && num_doc.find(numerazione) < 0)
numerazione = num_doc.row(0);
}
else
{
const TCodice_numerazione& cn = cached_numerazione(codnum);
tipo_doc = "F01";
if (cn.find_tipo_doc(tipo_doc) < 0)
tipo_doc = cn.tipo_doc(0);
}
doc = new TDocumento('D', datadoc.year(), numerazione, 0);
doc->put(DOC_TIPODOC, tipo_doc);
doc->put(DOC_STATO, 2); // Stampato
doc->put(DOC_TIPOCF, 'C');
@ -560,7 +628,6 @@ bool TImport_app::importa_fatture(const TFilename& fname, const TString& codnum,
doc->put(DOC_STATO, 1);
doc->put(DOC_CODCMS, cdc);
TToken_string key;
key = "C";
key.add(codcf);
key.add("N");
@ -612,6 +679,8 @@ bool TImport_app::importa_fatture(const TFilename& fname, const TString& codnum,
TRiga_documento& rdesc = doc->new_row("05");
save_rdoc_desc(desc, rdesc);
}
done = pi.add_status();
}
if (doc != NULL)