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

Patch level : 10.0 306

Browse Source 
Files correlati     : sc2.exe
Ricompilazione Demo : [ ]
Commento            :

Bug 0001305

Richieste: compilando data scaduto= oggi, stampa in valuta=si, scaduto e a scadere in fasce , il pgm va in crash.
Senza indicare la stampa in valuta va bene.

E' stata rimossa la stampa in valuta.
Per riaverla sarebbe utile avere un' analisi delle funzionalità richieste


git-svn-id: svn://10.65.10.50/trunk@18891 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2009-05-20 15:10:09 +00:00
parent ffc76e3eab
commit b3a8f42760
3 changed files with 7 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
sc/sc2600.cpp
View File

@ -86,7 +86,6 @@ class TProspettoScadenze : public TPrintapp
TLocalisamfile *_scad,*_pagsca;
tipo_st _tipost; // Tipo di stampa impostato
bool _end_printed,
_stvaluta,
_ordcod, // VERO=ordine per codice, FALSO=ordine per ragione sociale
_sinfasce,
_nsinfasce;
@ -140,9 +139,7 @@ inline TProspettoScadenze& app() {return (TProspettoScadenze&)main_app();}
void TProspettoScadenze::print_real(TString& dest, const real& num)
{
const bool stampa_in_valuta = _stvaluta && !_codval.blank();
const TString& val = stampa_in_valuta ? _codval : EMPTY_STRING;
const TCurrency cur(num, val);
const TCurrency cur(num, EMPTY_STRING);
dest = cur.string(true);
dest.right_just(10);
}
@ -190,7 +187,7 @@ void TProspettoScadenze::compute_unassigned(TPartita& p, const TDate & datalim)
{
const TRectype& rec = ra.row(r);
const TRiga_partite& sum = p.riga(rec.get_int(PAGSCA_NRIGP));
const char * field = (_stvaluta && sum.in_valuta() ? PAGSCA_IMPORTOVAL : PAGSCA_IMPORTO);
const char * field = PAGSCA_IMPORTO;
const TDate & datascad = sum.get_date(PART_DATAPAG);
if ((datascad <= datalim))
@ -232,11 +229,11 @@ void TProspettoScadenze::compute_all(TPartita& p, TBill& bill)
{
const TRiga_scadenze& rs = rp.rata(n);
const TDate d(rs.get_date(SCAD_DATASCAD));
const char* field = (_stvaluta && rs.in_valuta()) ? PAGSCA_IMPORTOVAL : PAGSCA_IMPORTO;
const char* sfield = (_stvaluta && rs.in_valuta()) ? SCAD_IMPORTOVAL : SCAD_IMPORTO;
const char* field = PAGSCA_IMPORTO;
const char* sfield = SCAD_IMPORTO;
const char ssez = rp.sezione();
TImporto scd(ssez,rs.get_real(sfield)); // Importo in scadenza...
TImporto pag(rs.importo_pagato(_stvaluta)); // Quanto e' stato pagato per questa scadenza?
TImporto pag(rs.importo_pagato(false)); // Quanto e' stato pagato per questa scadenza?
TImporto bf;
TImporto work_imp;
@ -358,7 +355,7 @@ void TProspettoScadenze::compute_all(TPartita& p, TBill& bill)
}
residuo += res;
bool sbf;
TImporto esp = rs.esposto(_stvaluta, _limscad, _limbf, sbf);
TImporto esp = rs.esposto(false, _limscad, _limbf, sbf);
esposto += esp.valore();
}
}
@ -459,8 +456,7 @@ bool TProspettoScadenze::preprocess_page(int file, int counter)
_numdoc = rp.get(PART_NUMDOC);
_protiva = rp.get(PART_PROTIVA);
_datadoc = (const char*) rp.get_date(PART_DATADOC);
_codval = (_stvaluta ? rp.get(PART_CODVAL): "");
if (_codval.empty()) _codval = " ";
_codval = " ";
// Now performing fulkrum...
compute_all(p, bill);
}
@ -537,7 +533,6 @@ bool TProspettoScadenze::user_create()
TConfig conf (CONFIG_DITTA,"cg");
_m = new TSelection_ext_mask("sc2600a");
_m->enable(F_VALUTA,conf.get_bool("GesVal"));
enable_print_menu();
return true;
@ -592,7 +587,6 @@ bool TProspettoScadenze::set_print(int)
_ordcod = false;
_end_printed = false;
_gcr = _m->get_int(F_GIORNI);
_stvaluta = _m->get_bool(F_VALUTA);
_datas = (const char *)(_m->get(F_DATASTAMPA));
_limop = (const char *)(_m->get(F_DATAOPERAZIONE));
_limscad = (const char *)(_m->get(F_DATASCADUTO));

1
sc/sc2600.h
View File

@ -6,7 +6,6 @@
#define F_DATAOPERAZIONE 104
#define F_DATASCADUTO 105
#define F_GIORNI 106
#define F_VALUTA 107
#define F_SCADINFASCE 201
#define F_SCADFASCE 202
#define F_ASCADINFASCE 203

6
sc/sc2600a.uml
View File

@ -86,12 +86,6 @@ BEGIN
HELP "Inserire il numero di giorni per il calcolo del rischio"
END
BOOLEAN F_VALUTA
BEGIN
PROMPT 2 7 "Stampa in valuta"
HELP "Selezionare se si vuole la stampa in valuta"
END
RADIOBUTTON SC_CLIFO 20
BEGIN
PROMPT 1 9 "Selezione"