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

Patch level :

Browse Source 
Files correlati     : fe0.exe
Ricompilazione Demo : [ ]
Commento            :
Terminate (per ora) modifiche a gestione note di variazione


git-svn-id: svn://10.65.10.50/branches/R_10_00@22434 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2011-09-29 10:36:03 +00:00
parent ebc7983a16
commit a3f110a82f
1 changed files with 120 additions and 117 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

237
fe/fe0100.cpp
View File

@ -1,6 +1,7 @@
#include <applicat.h> #include <applicat.h>
#include <automask.h> #include <automask.h>
#include <defmask.h> #include <defmask.h>
#include <modaut.h>
#include <progind.h> #include <progind.h>
#include <recarray.h> #include <recarray.h>
#include <textset.h> #include <textset.h>
@ -465,13 +466,13 @@ void TDati_rilevanti_trc::create_fields(int tipo, TAS400_recordset& recset)
add_field( 2, 2,12,11, "Partita IVA", PI); add_field( 2, 2,12,11, "Partita IVA", PI);
add_field( 3,13,28,16, "Codice Fiscale", CF); add_field( 3,13,28,16, "Codice Fiscale", CF);
add_field( 4,29,36, 8, "Data dell'operazione", DT, "", OBBLIG); add_field( 4,29,36, 8, "Data dell'operazione", DT, "", OBBLIG);
add_field( 5,37,51,10, "Numero della Nota di Variazione", AN, "", OBBLIG); add_field( 5,37,51,15, "Numero della Nota di Variazione", AN, "", OBBLIG);
add_field( 6,52,60, 9, "Imponibile Nota di Variazione", NU); add_field( 6,52,60, 9, "Imponibile Nota di Variazione", NU);
add_field( 7,61,69, 9, "Imposta Nota di Variazione", NU); add_field( 7,61,69, 9, "Imposta Nota di Variazione", NU);
add_field( 8,70,77, 8, "Data della Fattura da rettificare", DT, "", OBBLIG); add_field( 8,70,77, 8, "Data della Fattura da rettificare", DT, "", OBBLIG);
add_field( 9,78,92,15, "Numero della Fattura da rettificare", AN, "", OBBLIG); add_field( 9,78,92,15, "Numero della Fattura da rettificare", AN, "", OBBLIG);
add_field(10,93,93, 9, "Variazione imponib. (Debito/Credito)",AN); add_field(10,93,93, 1, "Variazione imponib. (Debito/Credito)",AN);
add_field(11,94,94, 9, "Variazione imposta (Debito/Credito)", AN); add_field(11,94,94, 1, "Variazione imposta (Debito/Credito)", AN);
add_field(11,95,1797,1703, "Filler", AN); add_field(11,95,1797,1703, "Filler", AN);
add_field(12,1798,1798,1,"Carattere di controllo", AN, "A", OBBLIG); add_field(12,1798,1798,1,"Carattere di controllo", AN, "A", OBBLIG);
@ -495,8 +496,8 @@ void TDati_rilevanti_trc::create_fields(int tipo, TAS400_recordset& recset)
add_field(15,274,282, 9, "Imposta Nota di Variazione", NU); add_field(15,274,282, 9, "Imposta Nota di Variazione", NU);
add_field(16,283,290, 8, "Data della Fattura da rettificare", DT, "", OBBLIG); add_field(16,283,290, 8, "Data della Fattura da rettificare", DT, "", OBBLIG);
add_field(17,291,305,15, "Numero della Fattura da rettificare", AN, "", OBBLIG); add_field(17,291,305,15, "Numero della Fattura da rettificare", AN, "", OBBLIG);
add_field(18,306,306, 9, "Variazione imponib. (Debito/Credito)",AN); add_field(18,306,306, 1, "Variazione imponib. (Debito/Credito)",AN);
add_field(19,307,307, 9, "Variazione imposta (Debito/Credito)", AN); add_field(19,307,307, 1, "Variazione imposta (Debito/Credito)", AN);
add_field(20,308,1797,1490, "Filler", AN); add_field(20,308,1797,1490, "Filler", AN);
add_field(21,1798,1798,1,"Carattere di controllo", AN, "A", OBBLIG); add_field(21,1798,1798,1,"Carattere di controllo", AN, "A", OBBLIG);
@ -566,32 +567,32 @@ void TDati_rilevanti_set::add_control_rec(int zon, int num_inv, int tot_inv)
TString4 tipo; tipo << zon; TString4 tipo; tipo << zon;
new_rec(tipo); new_rec(tipo);
set(6, ditta.codice_fiscale()); set(7, ditta.codice_fiscale());
set(7, ditta.partita_IVA()); set(8, ditta.partita_IVA());
if (ditta.giuridica()) if (ditta.giuridica())
{ {
TString den; TString den;
set(8, ditta.ragione_sociale()); set( 9, ditta.ragione_sociale());
set(9, ditta.comune_residenza()); set(10, ditta.comune_residenza());
set(10, ditta.provincia_residenza()); set(11, ditta.provincia_residenza());
} }
else else
{ {
set(11, ditta.cognome()); set(12, ditta.cognome());
set(12, ditta.nome()); set(13, ditta.nome());
set(13, ditta.sesso()); set(14, ditta.sesso());
set(14, ditta.data_nascita()); set(15, ditta.data_nascita());
set(15, ditta.comune_nascita()); set(16, ditta.comune_nascita());
set(16, ditta.provincia_nascita()); set(17, ditta.provincia_nascita());
} }
set(17, _anno); set(18, _anno);
if (tot_inv < 1) tot_inv = 1; if (tot_inv < 1) tot_inv = 1;
if (num_inv <= 0) num_inv = 1; if (num_inv <= 0) num_inv = 1;
if (num_inv > tot_inv) num_inv = tot_inv; if (num_inv > tot_inv) num_inv = tot_inv;
set(19, num_inv); set(20, num_inv);
set(20, tot_inv); set(21, tot_inv);
} }
bool TDati_rilevanti_set::split(const TFilename& name, const TRecnotype maxalleg) bool TDati_rilevanti_set::split(const TFilename& name, const TRecnotype maxalleg)
@ -683,13 +684,14 @@ protected:
TRecnotype nuovo_progr() const; TRecnotype nuovo_progr() const;
bool check_rows(bool show_error); bool check_rows(bool show_error);
bool send_nc(const TISAM_recordset& alleg, TDati_rilevanti_set& operaz); bool send_nota_variazione(const TISAM_recordset& alleg, TDati_rilevanti_set& operaz);
bool send_fatt(const TISAM_recordset& alleg, TDati_rilevanti_set& operaz); bool send_fatt(const TISAM_recordset& alleg, TDati_rilevanti_set& operaz);
bool send_rec(const TISAM_recordset& alleg, TDati_rilevanti_set& operaz); bool send_rec(const TISAM_recordset& alleg, TDati_rilevanti_set& operaz);
TExclusion_mode segnala_movimento(const TRectype& mov, TExclusion_mode motivo); TExclusion_mode segnala_movimento(const TRectype& mov, TExclusion_mode motivo);
bool is_nota_variazione(const TRectype& mov) const; bool is_nota_variazione(const TRectype& mov) const;
real importo_limite(int anno) const; real importo_limite(int anno) const;
void elabora_note(const TArray& note, TFast_isamfile& falleg, long& nprog); void elabora_note(const TArray& note, TFast_isamfile& falleg, long& nprog);
long fattura_associata(long numreg_var) const;
public: public:
TRecnotype genera_alleg(); TRecnotype genera_alleg();
@ -800,21 +802,52 @@ TExclusion_mode TDati_rilevanti_msk::validate_mov(const TRectype& mov)
bool TDati_rilevanti_msk::is_nota_variazione(const TRectype& mov) const bool TDati_rilevanti_msk::is_nota_variazione(const TRectype& mov) const
{ {
const int tipomov = mov.get_int(MOV_TIPOMOV);
if (tipomov == 2) // Nota di credito/debito per saldaconto
return true;
const TString& tipodoc = mov.get(MOV_TIPODOC);
if (tipodoc == "NC" || tipodoc == "ND") // Nota di credito/debito senza saldaconto
return true;
const real totdoc = mov.get_real(MOV_TOTDOC); const real totdoc = mov.get_real(MOV_TOTDOC);
if (totdoc < ZERO) if (totdoc < ZERO)
return true; return true;
const int tipomov = mov.get_int(MOV_TIPOMOV);
if (tipomov == 2)
return true;
const TString& tipodoc = mov.get(MOV_TIPODOC);
if (tipodoc == "NC" || tipodoc == "ND")
return true;
return false; return false;
} }
long TDati_rilevanti_msk::fattura_associata(long numreg_var) const
{
long numreg_fatt = 0;
if (main_app().has_module(SCAUT))
{
TLocalisamfile partite(LF_PARTITE);
TRectype& part = partite.curr();
partite.setkey(2);
part.put(PART_NREG, numreg_var);
part.put(PART_NUMRIG, 1);
if (partite.read() == NOERR) // Ho trovato la partita ora cerco la fattura di riferimento
{
int nriga = part.get_int(PART_NRIGA);
part.zero(PART_NRIGA); // Uso il record come chiave per leggere l'intera partita
TRecord_array partita(part, PART_NRIGA);
for (nriga = partita.pred_row(nriga); nriga >= 1; nriga = partita.pred_row(nriga))
{
const TRectype& riga = partita.row(nriga);
const int tipomov = riga.get_int(PART_TIPOMOV);
const long nreg_part = riga.get_long(PART_NREG);
if (tipomov == 1 && nreg_part > 0) // Fattura
{
numreg_fatt = nreg_part;
break;
}
}
}
}
return numreg_fatt;
}
bool TDati_rilevanti_msk::salva_allegato(const TRectype& mov, TFast_isamfile& falleg, TRecnotype& progr, bool TDati_rilevanti_msk::salva_allegato(const TRectype& mov, TFast_isamfile& falleg, TRecnotype& progr,
const real& importo, const real& imposta, int tipope) const real& importo, const real& imposta, int tipope)
{ {
@ -822,6 +855,7 @@ bool TDati_rilevanti_msk::salva_allegato(const TRectype& mov, TFast_isamfile& fa
const int anno = mov.get_int(MOV_ANNOIVA); const int anno = mov.get_int(MOV_ANNOIVA);
const long numreg_mov = mov.get_long(MOV_NUMREG); const long numreg_mov = mov.get_long(MOV_NUMREG);
const bool is_variazione = importo < ZERO || is_nota_variazione(mov);
long num_fatt = 0; // Numero di registrazione rettificabile long num_fatt = 0; // Numero di registrazione rettificabile
long num_rett = 0; // Numero di registrazione rettificata long num_rett = 0; // Numero di registrazione rettificata
@ -862,70 +896,39 @@ bool TDati_rilevanti_msk::salva_allegato(const TRectype& mov, TFast_isamfile& fa
else else
{ {
// Gestione note di credito // Gestione note di credito
if (importo < ZERO || is_nota_variazione(mov)) if (is_variazione)
{ {
TLocalisamfile partite(LF_PARTITE); num_fatt = fattura_associata(numreg_mov);
TRectype& part = partite.curr(); if (num_fatt > 0 && num_fatt < INVALID_NUMREG)
partite.setkey(2);
part.put(PART_NREG, numreg_mov);
part.put(PART_NUMRIG, 1);
if (partite.read() == NOERR) // Ho trovato la partita ora cerco la fattura di riferimento
{ {
int nriga = part.get_int(PART_NRIGA); TLocalisamfile recset(LF_ALLEG);
part.zero(PART_NRIGA); // Uso il record come chiave per leggere l'intera partita recset.setkey(3);
TRecord_array partita(part, PART_NRIGA); recset.put(ALL_NUMREG, num_fatt);
for (nriga = partita.pred_row(nriga); nriga >= 1; nriga = partita.pred_row(nriga)) if (recset.read(_isgteq) == NOERR && recset.get_long(ALL_NUMREG) == num_fatt)
{ {
const TRectype& riga = partita.row(nriga); const TDate data_fatt = recset.get(ALL_DATAREG);
const int tipomov = riga.get_int(PART_TIPOMOV); const int anno_fatt = data_fatt.year();
const long nreg_part = riga.get_long(PART_NREG); num_rett = num_fatt; // Memorizzo comunque il numero fattura da rettificare
if (tipomov == 1 && nreg_part > 0) // Fattura
if (anno_fatt == anno) // Se sono dello stesso anno vario la fattura e non registro la nota di variazione
{ {
num_fatt = nreg_part; update_existing_row = true;
alleg = recset.curr();
TLocalisamfile recset(LF_ALLEG); }
recset.setkey(3); else
recset.put(ALL_NUMREG, num_fatt); {
if (recset.read(_isgteq) == NOERR && recset.get_long(ALL_NUMREG) == num_fatt) if (anno_fatt < 2010 || anno_fatt > anno)
{ {
const TDate data_fatt = riga.get(PART_DATAREG); num_rett = 0;
const int anno_fatt = data_fatt.year(); _why = em_data_limite; // Non pertinente
num_rett = num_fatt; // Memorizzo comunque il numero fattura da rettificare
if (anno_fatt == anno) // Se sono dello stesso anno vario la fattura e non registro la nota di variazione
{
update_existing_row = true;
alleg = recset.curr();
}
else
{
if (anno_fatt < 2010 || anno_fatt > anno)
{
num_rett = 0;
_why = em_data_limite; // Non pertinente
}
else
{
// Variazione di fattura non rilevante
if (_why == em_incluso && abs(importo) < importo_limite(anno))
_why = em_importo_limite;
}
}
break;
}
else
{
// Variazione di fattura non rilevante
if (_why == em_incluso && abs(importo) < importo_limite(anno))
_why = em_importo_limite;
} }
} }
} }
} }
const char* tipocf = part.get_char(PART_TIPOCF) == 'F' ? TR("Fornitore") : TR("Cliente"); const char* tipocf = mov.get_char(MOV_TIPO) == 'F' ? TR("Fornitore") : TR("Cliente");
const long codcf = part.get_long(PART_SOTTOCONTO); const long codcf = mov.get_long(MOV_CODCF);
TString msg; msg.format(FR("%s %6ld - Nota di variazione %7ld "), tipocf, codcf, numreg_mov); TString msg; msg.format(FR("%s %6ld - Nota di variazione %ld "), tipocf, codcf, numreg_mov);
if (num_rett > 0) if (num_rett > 0)
{ {
@ -938,16 +941,10 @@ bool TDati_rilevanti_msk::salva_allegato(const TRectype& mov, TFast_isamfile& fa
} }
else else
{ {
if (num_fatt <= 0) // Variazione di fattura non rilevante: considero importo della variazione
{ if (_why == em_incluso && abs(importo) < importo_limite(anno))
num_rett = INVALID_NUMREG; _why = em_importo_limite;
msg << TR("NON associata a nessuna fattura!"); num_rett = INVALID_NUMREG;
_log->log(1, msg);
}
else
{
num_rett = num_fatt;
}
} }
} }
} }
@ -1003,11 +1000,9 @@ bool TDati_rilevanti_msk::salva_allegato(const TRectype& mov, TFast_isamfile& fa
_why = em_importo_limite; // Contratto inutile :-) _why = em_importo_limite; // Contratto inutile :-)
} }
} else } else
if (num_rett > 0) if (is_variazione)
{ {
alleg.put(ALL_NUMRETT, num_rett); alleg.put(ALL_NUMRETT, num_rett);
if (num_rett >= INVALID_NUMREG && _why == em_incluso)
_why = em_altro;
} }
alleg.put(ALL_IGNORA, int(_why)); alleg.put(ALL_IGNORA, int(_why));
@ -1253,33 +1248,41 @@ bool TDati_rilevanti_msk::elabora_alleg()
return prog > 1; return prog > 1;
} }
bool TDati_rilevanti_msk::send_nc(const TISAM_recordset& alleg, TDati_rilevanti_set& operaz) bool TDati_rilevanti_msk::send_nota_variazione(const TISAM_recordset& alleg, TDati_rilevanti_set& operaz)
{ {
const long num_rett = alleg.get(ALL_NUMRETT).as_int(); const TDate datareg = alleg.get(ALL_DATAREG).as_date();
if (num_rett <= 0 || num_rett >= INVALID_NUMREG) const long numreg = alleg.get(ALL_NUMREG).as_int();
return false;
TRectype rec_fatt(LF_MOV); TDate data_fatt(31, 12, datareg.year());
TRectype rec_nota(LF_MOV); TString16 num_fatt;
TLocalisamfile mov(LF_MOV); TLocalisamfile mov(LF_MOV);
mov.put(MOV_NUMREG, num_rett); TRectype& rec_nota = mov.curr();
if (mov.read() == NOERR)
rec_fatt = mov.curr(); const long num_rett = alleg.get(ALL_NUMRETT).as_int();
else if (num_rett > 0 && num_rett < INVALID_NUMREG)
return false; {
mov.put(MOV_NUMREG, num_rett);
if (mov.read() == NOERR)
{
data_fatt = mov.get(MOV_DATAREG);
num_fatt = mov.get(MOV_NUMDOC);
}
}
const long numreg = alleg.get(ALL_NUMREG).as_int();
mov.put(MOV_NUMREG, numreg); mov.put(MOV_NUMREG, numreg);
if (mov.read() == NOERR) if (mov.read() != NOERR)
rec_nota = mov.curr(); {
CHECKD(false, "Registrazione fantasma ", numreg);
return false;
}
const TAnagrafica anag(alleg.cursor()->curr()); const TAnagrafica anag(alleg.cursor()->curr());
real imponibile = alleg.get(ALL_IMPORTO).as_real(); real imponibile = alleg.get(ALL_IMPORTO).as_real();
real imposta = alleg.get(ALL_IMPOSTA).as_real(); real imposta = alleg.get(ALL_IMPOSTA).as_real();
const char tipocf = rec_fatt.get_char(MOV_TIPO); const char tipocf = rec_nota.get_char(MOV_TIPO);
char segno_imponibile = tipocf == 'C' ? 'D' : 'C'; // Normalmente sono negative e quindi a debito del dichiarante char segno_imponibile = tipocf == 'C' ? 'D' : 'C'; // Normalmente sono negative e quindi a debito del dichiarante
char segno_imposta = segno_imponibile; char segno_imposta = segno_imponibile;
@ -1311,12 +1314,12 @@ bool TDati_rilevanti_msk::send_nc(const TISAM_recordset& alleg, TDati_rilevanti_
operaz.set(10, anag.stato_estero()); operaz.set(10, anag.stato_estero());
operaz.set(11, EMPTY_STRING); // TBI? Indirizzo estero operaz.set(11, EMPTY_STRING); // TBI? Indirizzo estero
} }
operaz.set(12, alleg.get(ALL_DATAREG)); operaz.set(12, datareg);
operaz.set(13, rec_nota.get(MOV_NUMDOC).left(15)); operaz.set(13, rec_nota.get(MOV_NUMDOC).left(15));
operaz.set(14, imponibile); operaz.set(14, imponibile);
operaz.set(15, imposta); operaz.set(15, imposta);
operaz.set(16, rec_fatt.get_date(MOV_DATAREG)); operaz.set(16, data_fatt);
operaz.set(17, rec_fatt.get(MOV_NUMDOC).left(15)); operaz.set(17, num_fatt);
operaz.set(18, segno_imponibile); operaz.set(18, segno_imponibile);
operaz.set(19, segno_imposta); operaz.set(19, segno_imposta);
} }
@ -1328,12 +1331,12 @@ bool TDati_rilevanti_msk::send_nc(const TISAM_recordset& alleg, TDati_rilevanti_
else else
operaz.set(3, anag.codice_fiscale()); operaz.set(3, anag.codice_fiscale());
operaz.set(4, alleg.get(ALL_DATAREG)); operaz.set(4, datareg);
operaz.set(5, rec_nota.get(MOV_NUMDOC).left(15)); operaz.set(5, rec_nota.get(MOV_NUMDOC).left(15));
operaz.set(6, imponibile); operaz.set(6, imponibile);
operaz.set(7, imposta); operaz.set(7, imposta);
operaz.set(8, rec_fatt.get_date(MOV_DATAREG)); operaz.set(8, data_fatt);
operaz.set(9, rec_fatt.get(MOV_NUMDOC).left(15)); operaz.set(9, num_fatt);
operaz.set(10, segno_imponibile); operaz.set(10, segno_imponibile);
operaz.set(11, segno_imposta); operaz.set(11, segno_imposta);
} }
@ -1420,7 +1423,7 @@ bool TDati_rilevanti_msk::send_fatt(const TISAM_recordset& alleg, TDati_rilevant
bool TDati_rilevanti_msk::send_rec(const TISAM_recordset& alleg, TDati_rilevanti_set& operaz) bool TDati_rilevanti_msk::send_rec(const TISAM_recordset& alleg, TDati_rilevanti_set& operaz)
{ {
const long numrett = alleg.get(ALL_NUMRETT).as_int(); const long numrett = alleg.get(ALL_NUMRETT).as_int();
return numrett > 0 ? send_nc(alleg, operaz) : send_fatt(alleg, operaz); return numrett > 0 ? send_nota_variazione(alleg, operaz) : send_fatt(alleg, operaz);
} }
// Genera file per invio telematico // Genera file per invio telematico