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

Corretto errore MI1050

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2738 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-04-17 14:36:27 +00:00
parent ba1148bdab
commit 5537a7b7d7
3 changed files with 64 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
sc/sc2100.cpp
View File

@ -527,16 +527,18 @@ void TEC_array::add_row(const TRiga_partite& row)
const bool in_valuta = form().in_valuta() && row.in_valuta();
const char sezione = row.get_char(PART_TIPOCF) == 'C' ? 'D' : 'A';
const TDate data_op(row.get(PART_DATAREG));
if (data_op <= form().data_limite_operazione())
{
if (row.is_fattura())
{
for (int r = 1; r <= row.rate(); r++)
{
const TRiga_scadenze& rata = row.rata(r);
const TDate data(rata.get(SCAD_DATASCAD));
if (data <= form().data_limite_operazione())
{
TEC_row& rec = new_row(row, data, rata.importo(in_valuta), r);
if (data <= form().data_limite_scaduto())
const TDate data_scad(rata.get(SCAD_DATASCAD));
TEC_row& rec = new_row(row, data_scad, rata.importo(in_valuta), r);
if (data_scad <= form().data_limite_scaduto())
{
const real s = calcola_scaduto(rata, in_valuta);
rec.scaduto(s);
@ -549,14 +551,11 @@ void TEC_array::add_row(const TRiga_partite& row)
}
}
}
}
else
{
const TDate data(row.get(PART_DATAPAG));
if (data <= form().data_limite_operazione())
{
const TDate data_pag(row.get(PART_DATAPAG));
const TImporto imp(row.importo(in_valuta, 0x1)); // Importo pulito senza nient'altro
TEC_row& riga = new_row(row, data, imp, 1);
TEC_row& riga = new_row(row, data_pag, imp, 1);
const int tipo_pag = row.get_int(PART_TIPOPAG);
const tipo_movimento tipo_mov = row.tipo();
@ -565,7 +564,6 @@ void TEC_array::add_row(const TRiga_partite& row)
if ((tipo_mov == tm_pagamento || tipo_mov == tm_pagamento_insoluto) &&
(tipo_pag >= 2 && tipo_pag <= 7))
{
const TDate data_pag(row.get(PART_DATAPAG));
const TDate& dls = form().data_limite_scaduto();
const int gr = form().giorni_rischio();
@ -595,7 +593,7 @@ void TEC_array::add_row(const TRiga_partite& row)
const TImporto abbuoni(row.importo(in_valuta, 0x2));
if (!abbuoni.is_zero())
{
TEC_row& rec = new_row(row, data, abbuoni, 2);
TEC_row& rec = new_row(row, data_pag, abbuoni, 2);
rec.descrizione(form().describe(PEC_ABBUONI));
if (in_valuta)
{
@ -608,7 +606,7 @@ void TEC_array::add_row(const TRiga_partite& row)
TImporto diffcam(row.importo(FALSE, 0x4));
if (!diffcam.is_zero())
{
TEC_row& rec = new_row(row, data, TImporto('D', ZERO), 3);
TEC_row& rec = new_row(row, data_pag, TImporto('D', ZERO), 3);
rec.descrizione(form().describe(PEC_DIFFCAM));
if (in_valuta)
{
@ -622,7 +620,7 @@ void TEC_array::add_row(const TRiga_partite& row)
TImporto ritenute(row.importo(FALSE, 0x8));
if (!ritenute.is_zero())
{
TEC_row& rec = new_row(row, data, TImporto('D', ZERO), 4);
TEC_row& rec = new_row(row, data_pag, TImporto('D', ZERO), 4);
rec.descrizione(form().describe(PEC_RITENUTE));
if (in_valuta)
{
@ -694,8 +692,11 @@ TEC_array::TEC_array(const TPartita& game, const TEC_form* f)
}
}
}
if (items() > 0)
{
sort();
arrange_scaduto(game);
}
}

12
sc/sc2400a.uml
View File

@ -63,34 +63,34 @@ END
DATE F_DATALIMOP
BEGIN
PROMPT 30 4 "Data limite operazione "
PROMPT 1 4 "Data limite operazione "
END
DATE F_DATALIMSOL
BEGIN
PROMPT 1 4 "Data limite sollecito "
PROMPT 1 5 "Data limite sollecito "
FLAGS "A"
VALIDATE DATE_CMP_FUNC <= F_DATASEND
WARNING "La data limite sollecito deve essere specificata e non può essere superiore alla data di invio"
WARNING "La data limite sollecito deve essere specificata e non puo' essere superiore alla data di invio"
CHECKTYPE REQUIRED
END
NUMBER F_IMPORMIN 18
BEGIN
PROMPT 1 5 "Importo minimo "
PROMPT 1 6 "Importo minimo "
END
RADIOBUTTON F_RIFIMPMIN 10
BEGIN
PROMPT 45 4 ""
PROMPT 45 5 ""
ITEM "P|Partita"
ITEM "C|Cliente"
END
BOOLEAN F_STAMPESP
BEGIN
PROMPT 1 6 "Stampa esposizione"
PROMPT 1 7 "Stampa esposizione"
END
STRING F_LUOGOSEND 50 32

29
sc/sc2401.cpp
View File

@ -452,36 +452,35 @@ void TESSL_array::add_row(const TRiga_partite& row)
real importo_in_lire(ZERO);
const char sezione = form().sezione_normale();
const TDate data_op(row.get(PART_DATAREG));
if (data_op <= form().data_limite_operazione())
{
if (row.is_fattura())
{
for (int r = 1; r <= row.rate(); r++)
{
const TRiga_scadenze& rata = row.rata(r);
const TDate data(rata.get(SCAD_DATASCAD));
if (data <= form().data_limite_operazione())
{
TESSL_row& rec = new_row(row, data, rata.importo(in_valuta), r);
const TDate data_scad(rata.get(SCAD_DATASCAD));
TESSL_row& rec = new_row(row, data_scad, rata.importo(in_valuta), r);
if (in_valuta)
{
TImporto il(rata.importo(FALSE));
il.normalize(sezione);
rec.importo_in_lire(il.valore());
}
if (data <= form().data_limite_scaduto())
if (data_scad <= form().data_limite_scaduto())
{
const real s = calcola_scaduto(rata, in_valuta);
rec.scaduto(s);
}
}
}
}
else
{
const TDate data(row.get(PART_DATAPAG));
if (data <= form().data_limite_operazione())
{
const TDate data_pag(row.get(PART_DATAPAG));
const TImporto imp(row.importo(in_valuta, 0x1)); // Importo pulito senza nient'altro
TESSL_row& riga = new_row(row, data, imp, 1);
TESSL_row& riga = new_row(row, data_pag, imp, 1);
if (in_valuta)
{
TImporto i(row.importo(FALSE, 0x1));
@ -496,7 +495,6 @@ void TESSL_array::add_row(const TRiga_partite& row)
if ((tipo_mov == tm_pagamento || tipo_mov == tm_pagamento_insoluto) &&
(tipo_pag >= 2 && tipo_pag <= 7))
{
const TDate data_pag(row.get(PART_DATAPAG));
const TDate& dls = form().data_limite_scaduto();
const int gr = form().giorni_rischio();
@ -525,7 +523,7 @@ void TESSL_array::add_row(const TRiga_partite& row)
TImporto ritenute(row.importo(FALSE, 0x8));
if (!ritenute.is_zero())
{
TESSL_row& r = new_row(row, data, TImporto('D', ZERO), 4);
TESSL_row& r = new_row(row, data_pag, TImporto('D', ZERO), 4);
r.descrizione(form().describe(PEC_RITENUTE));
if (in_valuta)
{
@ -539,7 +537,7 @@ void TESSL_array::add_row(const TRiga_partite& row)
const TImporto abbuoni(row.importo(in_valuta, 0x2));
if (!abbuoni.is_zero())
{
TESSL_row& r = new_row(row, data, abbuoni, 2);
TESSL_row& r = new_row(row, data_pag, abbuoni, 2);
r.descrizione(form().describe(PEC_ABBUONI));
if (in_valuta)
{
@ -552,7 +550,7 @@ void TESSL_array::add_row(const TRiga_partite& row)
TImporto diffcam(row.importo(FALSE, 0x4));
if (!diffcam.is_zero())
{
TESSL_row& r = new_row(row, data, TImporto('D', ZERO), 3);
TESSL_row& r = new_row(row, data_pag, TImporto('D', ZERO), 3);
r.descrizione(form().describe(PEC_DIFFCAM));
if (in_valuta)
{
@ -624,8 +622,11 @@ TESSL_array::TESSL_array(const TPartita& game, const TESSL_form* f)
}
}
}
if (items() > 0)
{
sort();
arrange_scaduto(game);
}
}