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

Tolti control emme

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2265 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-12-11 11:52:19 +00:00
parent dc1243ae57
commit 837818b2e3
1 changed files with 296 additions and 296 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

592
sc/sc2402.cpp
View File

@ -1,296 +1,296 @@
#include "../cg/saldacon.h" #include "../cg/saldacon.h"
#include <pagsca.h> #include <pagsca.h>
#include <scadenze.h> #include <scadenze.h>
#include <partite.h> #include <partite.h>
#include "sc21pec.h" #include "sc21pec.h"
#include "sc2102.h" #include "sc2102.h"
#include "sc2402.h" #include "sc2402.h"
#include <causali.h> #include <causali.h>
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
// TSol_row // TSol_row
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
TSol_row::TSol_row(const TRiga_partite& row, const TDate& data, const TImporto& imp, int rata): _num_prot(0) { TSol_row::TSol_row(const TRiga_partite& row, const TDate& data, const TImporto& imp, int rata): _num_prot(0) {
_riga = row.get_int(PART_NRIGA); _riga = row.get_int(PART_NRIGA);
_rata = rata; _rata = rata;
_data = data; _data = data;
_causale = row.get(PART_CODCAUS); _causale = row.get(PART_CODCAUS);
_data_doc = row.get(PART_DATADOC); _data_doc = row.get(PART_DATADOC);
_num_prot = row.get_long(PART_PROTIVA); _num_prot = row.get_long(PART_PROTIVA);
_importo = imp; _importo.normalize(); _importo = imp; _importo.normalize();
_totale = row.get_real(PART_IMPTOTPAG); _totale = row.get_real(PART_IMPTOTPAG);
_valuta.get(row); _valuta.get(row);
} }
TSol_row::TSol_row(const char* desc, const TImporto& imp): _num_prot(0) { TSol_row::TSol_row(const char* desc, const TImporto& imp): _num_prot(0) {
_descrizione = desc; _descrizione = desc;
_importo = imp; _importo.normalize(); _importo = imp; _importo.normalize();
} }
// le righe dell'estratto conto sono ordinate per data, riga partita, numero rata, // le righe dell'estratto conto sono ordinate per data, riga partita, numero rata,
// posizione iniziale nell'array (in caso di uguaglianza di tutto il resto) // posizione iniziale nell'array (in caso di uguaglianza di tutto il resto)
int TSol_row::compare(const TSortable& s) const { int TSol_row::compare(const TSortable& s) const {
const TSol_row& r = (const TSol_row&)s; const TSol_row& r = (const TSol_row&)s;
int c = 0; int c = 0;
if (_data == r._data) { if (_data == r._data) {
c = r._riga - _riga; c = r._riga - _riga;
if (c == 0) c = r._rata - _rata; if (c == 0) c = r._rata - _rata;
} else c = _data < r._data ? +1 : -1; } else c = _data < r._data ? +1 : -1;
return c; return c;
} }
void TSol_row::print_on(TPrint_section& body) { void TSol_row::print_on(TPrint_section& body) {
TSol_form& form = (TSol_form&)body.form(); TSol_form& form = (TSol_form&)body.form();
TForm_item& causale = body.find_field(PEC_CODCAUS); TForm_item& causale = body.find_field(PEC_CODCAUS);
causale.set(_causale); causale.set(_causale);
if (_causale.not_empty() && _descrizione.empty()) { if (_causale.not_empty() && _descrizione.empty()) {
TDecoder& causali = form.causali(); TDecoder& causali = form.causali();
_descrizione = causali.decode(_causale); _descrizione = causali.decode(_causale);
} }
TForm_item& descr = body.find_field(PEC_DESCR1); TForm_item& descr = body.find_field(PEC_DESCR1);
descr.set(_descrizione); descr.set(_descrizione);
TForm_item& datadoc = body.find_field(PEC_DATADOC); TForm_item& datadoc = body.find_field(PEC_DATADOC);
datadoc.set(_data_doc.string()); datadoc.set(_data_doc.string());
TForm_item& numdoc = body.find_field(PEC_NUMDOC); TForm_item& numdoc = body.find_field(PEC_NUMDOC);
numdoc.set(_num_doc); numdoc.set(_num_doc);
TForm_item& numprot = body.find_field(PEC_PROTIVA); TForm_item& numprot = body.find_field(PEC_PROTIVA);
TString16 protiva; protiva << _num_prot; TString16 protiva; protiva << _num_prot;
numprot.set(protiva); numprot.set(protiva);
TForm_item& datapag = body.find_field(PEC_DATAPAG); TForm_item& datapag = body.find_field(PEC_DATAPAG);
datapag.set(_data.string()); datapag.set(_data.string());
const real& imp = _importo.valore(); const real& imp = _importo.valore();
TForm_item& dare = body.find_field(PEC_DARE); TForm_item& dare = body.find_field(PEC_DARE);
TForm_item& avere = body.find_field(PEC_AVERE); TForm_item& avere = body.find_field(PEC_AVERE);
if (_importo.sezione() == 'D') { if (_importo.sezione() == 'D') {
dare.set(imp.string()); dare.set(imp.string());
avere.set(""); avere.set("");
} else { } else {
avere.set(imp.string()); avere.set(imp.string());
dare.set(""); dare.set("");
} }
TForm_item& scaduto = body.find_field(PEC_SCADUTO); TForm_item& scaduto = body.find_field(PEC_SCADUTO);
scaduto.set(_scaduto.string()); scaduto.set(_scaduto.string());
TForm_item& cambio = body.find_field(PEC_CAMBIO); TForm_item& cambio = body.find_field(PEC_CAMBIO);
cambio.set(_valuta.cambio().string()); cambio.set(_valuta.cambio().string());
TForm_item& datacambio = body.find_field(PEC_DATACAM); TForm_item& datacambio = body.find_field(PEC_DATACAM);
datacambio.set(_valuta.data().string()); datacambio.set(_valuta.data().string());
body.update(); body.update();
} }
static int val_compare(const void* o1, const void* o2) { static int val_compare(const void* o1, const void* o2) {
const THash_object* h1 = (const THash_object*)o1; const THash_object* h1 = (const THash_object*)o1;
const THash_object* h2 = (const THash_object*)o2; const THash_object* h2 = (const THash_object*)o2;
const TString& s1 = (const TString&)h1->obj(); const TString& s1 = (const TString&)h1->obj();
const TString& s2 = (const TString&)h2->obj(); const TString& s2 = (const TString&)h2->obj();
return s2.compare(s1, -1, TRUE); // same as stricmp(s1, s2) in reverse order return s2.compare(s1, -1, TRUE); // same as stricmp(s1, s2) in reverse order
} }
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
// TSol_array // TSol_array
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
void TSol_array::calcola_scaduto(const TRiga_scadenze& rata, real& scaduto) const { void TSol_array::calcola_scaduto(const TRiga_scadenze& rata, real& scaduto) const {
const TPartita& game = rata.partita(); const TPartita& game = rata.partita();
TImporto imp_scaduto = rata.importo(TRUE); TImporto imp_scaduto = rata.importo(TRUE);
const char* const field = rata.in_valuta() ? PAGSCA_IMPORTOVAL : PAGSCA_IMPORTO; const char* const field = rata.in_valuta() ? PAGSCA_IMPORTOVAL : PAGSCA_IMPORTO;
TImporto imp; TImporto imp;
for (int p = rata.last(); p > 0; p = rata.pred(p)) { for (int p = rata.last(); p > 0; p = rata.pred(p)) {
const TRectype& pag = rata.row(p); const TRectype& pag = rata.row(p);
const TRiga_partite& sum = game.riga(pag.get_int(PAGSCA_NRIGP)); const TRiga_partite& sum = game.riga(pag.get_int(PAGSCA_NRIGP));
const tipo_movimento tm = sum.tipo(); const tipo_movimento tm = sum.tipo();
if (tm != tm_insoluto && tm != tm_pagamento_insoluto) { if (tm != tm_insoluto && tm != tm_pagamento_insoluto) {
imp.set(sum.sezione(), pag.get_real(field)); imp.set(sum.sezione(), pag.get_real(field));
imp_scaduto += imp; imp_scaduto += imp;
} }
} }
const char sezione = game.conto().tipo() == 'C' ? 'D' : 'A'; const char sezione = game.conto().tipo() == 'C' ? 'D' : 'A';
imp_scaduto.normalize(sezione); imp_scaduto.normalize(sezione);
scaduto = imp_scaduto.valore(); scaduto = imp_scaduto.valore();
} }
TSol_row& TSol_array::new_row(const TRiga_partite& row, const TDate& data, const TImporto& imp, int n) { TSol_row& TSol_array::new_row(const TRiga_partite& row, const TDate& data, const TImporto& imp, int n) {
if (n == 0) n = items(); if (n == 0) n = items();
TSol_row* riga = new TSol_row(row, data, imp, n); TSol_row* riga = new TSol_row(row, data, imp, n);
add(riga, n); add(riga, n);
return *riga; return *riga;
} }
void TSol_array::add_row(const TRiga_partite& row) { void TSol_array::add_row(const TRiga_partite& row) {
if (row.is_fattura()) { if (row.is_fattura()) {
for (int r = 1; r <= row.rate(); r++) { for (int r = 1; r <= row.rate(); r++) {
const TRiga_scadenze& rata = row.rata(r); const TRiga_scadenze& rata = row.rata(r);
const TDate data(rata.get(SCAD_DATASCAD)); const TDate data(rata.get(SCAD_DATASCAD));
if (data <= form().data_limite_operazione()) { if (data <= form().data_limite_operazione()) {
TSol_row& rec = new_row(row, data, rata.importo(TRUE), r); TSol_row& rec = new_row(row, data, rata.importo(TRUE), r);
if (data <= form().data_limite_scaduto()) { if (data <= form().data_limite_scaduto()) {
real s; real s;
calcola_scaduto(rata, s); calcola_scaduto(rata, s);
rec.scaduto(s); rec.scaduto(s);
} }
} }
} }
} else { } else {
const TDate data(row.get(PART_DATAPAG)); const TDate data(row.get(PART_DATAPAG));
if (data <= form().data_limite_operazione()) { if (data <= form().data_limite_operazione()) {
const TImporto imp(row.importo(FALSE, 0x1)); const TImporto imp(row.importo(FALSE, 0x1));
new_row(row, data, imp); new_row(row, data, imp);
const TImporto abbuoni(row.importo(FALSE, 0x2)); const TImporto abbuoni(row.importo(FALSE, 0x2));
if (!abbuoni.is_zero()) { if (!abbuoni.is_zero()) {
TSol_row& r = new_row(row, data, abbuoni); TSol_row& r = new_row(row, data, abbuoni);
const TForm_item& desc_abb = form().find_field('B', odd_page, 302); const TForm_item& desc_abb = form().find_field('B', odd_page, 302);
r.descrizione(desc_abb.prompt()); r.descrizione(desc_abb.prompt());
} }
const TImporto diffcam(row.importo(FALSE, 0x4)); const TImporto diffcam(row.importo(FALSE, 0x4));
if (!diffcam.is_zero()) { if (!diffcam.is_zero()) {
TSol_row& r = new_row(row, data, diffcam); TSol_row& r = new_row(row, data, diffcam);
const TForm_item& desc_dif = form().find_field('B', odd_page, 303); const TForm_item& desc_dif = form().find_field('B', odd_page, 303);
r.descrizione(desc_dif.prompt()); r.descrizione(desc_dif.prompt());
} }
} }
} }
} }
TSol_array::TSol_array(const TPartita& game, const TSol_form* f): _form(f) { TSol_array::TSol_array(const TPartita& game, const TSol_form* f): _form(f) {
for (int r = game.last(); r > 0; r = game.pred(r)) add_row(game.riga(r)); for (int r = game.last(); r > 0; r = game.pred(r)) add_row(game.riga(r));
sort(); sort();
} }
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
// TSol_form: form speciale per solleciti // TSol_form: form speciale per solleciti
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
TSol_form* TSol_form::_form = NULL; TSol_form* TSol_form::_form = NULL;
void TSol_form::sol_header_handler(TPrinter& pr) { void TSol_form::sol_header_handler(TPrinter& pr) {
TPrint_section& head = _form->section('H'); TPrint_section& head = _form->section('H');
head.reset(); head.reset();
pr.resetheader(); pr.resetheader();
head.update(); head.update();
for (word j = 0; j < head.height(); j++) pr.setheaderline(j, head.row(j)); for (word j = 0; j < head.height(); j++) pr.setheaderline(j, head.row(j));
} }
void TSol_form::sol_footer_handler(TPrinter& pr) { void TSol_form::sol_footer_handler(TPrinter& pr) {
TPrint_section& foot = _form->section('F'); TPrint_section& foot = _form->section('F');
pr.resetfooter(); pr.resetfooter();
const word MAXTOT = 32; const word MAXTOT = 32;
THash_object* tot[MAXTOT]; THash_object* tot[MAXTOT];
// i totali sono in un assoc array disordinato per cui li copio in un array e li ordino // i totali sono in un assoc array disordinato per cui li copio in un array e li ordino
// alfabeticamente in base al loro codice valuta // alfabeticamente in base al loro codice valuta
TTotalizer& totali = _form->totali(); TTotalizer& totali = _form->totali();
totali.restart(); totali.restart();
word numtot = 0; word numtot = 0;
for (THash_object* obj = totali.get_hashobj(); numtot < MAXTOT && obj != NULL; obj = totali.get_hashobj()) tot[numtot++] = obj; for (THash_object* obj = totali.get_hashobj(); numtot < MAXTOT && obj != NULL; obj = totali.get_hashobj()) tot[numtot++] = obj;
qsort(tot, numtot, sizeof(THash_object*), val_compare); qsort(tot, numtot, sizeof(THash_object*), val_compare);
if (numtot > foot.height()) numtot = foot.height(); if (numtot > foot.height()) numtot = foot.height();
TPrint_section& body = _form->section('B'); TPrint_section& body = _form->section('B');
for (word j = 0; j < numtot; j++) { for (word j = 0; j < numtot; j++) {
const TString& key = tot[j]->key(); const TString& key = tot[j]->key();
TImporto& imp = (TImporto&)tot[j]->obj(); TImporto& imp = (TImporto&)tot[j]->obj();
TSol_row r(key, imp.normalize()); TSol_row r(key, imp.normalize());
r.print_on(body); r.print_on(body);
const TPrintrow& ri = body.row(0); const TPrintrow& ri = body.row(0);
pr.setfooterline(j, ri); pr.setfooterline(j, ri);
} }
} }
bool TSol_form::print_game(const TPartita& game) bool TSol_form::print_game(const TPartita& game)
{ {
bool ok = FALSE; bool ok = FALSE;
TSol_array righe(game, this); TSol_array righe(game, this);
TPrinter& pr = printer(); TPrinter& pr = printer();
TPrintrow prow; TPrintrow prow;
TPrint_section& body = section('B'); TPrint_section& body = section('B');
TImporto saldo; TImporto saldo;
// stampa le righe di partita // stampa le righe di partita
for (int r = 0; r < righe.items(); r++) for (int r = 0; r < righe.items(); r++)
{ {
TSol_row& riga = righe.row(r); TSol_row& riga = righe.row(r);
if (pr.rows_left() < body.height()) if (pr.rows_left() < body.height())
pr.formfeed(); pr.formfeed();
riga.print_on(body); riga.print_on(body);
pr.print(body.row(0)); pr.print(body.row(0));
totali().add(riga.importo(), ZERO, ZERO, riga.valuta().codice()); totali().add(riga.importo(), ZERO, ZERO, riga.valuta().codice());
saldo += riga.importo(); saldo += riga.importo();
ok = TRUE; ok = TRUE;
} }
if (ok) { if (ok) {
saldo.normalize(); saldo.normalize();
const TForm_item& desc_sld = body.find_field(301); const TForm_item& desc_sld = body.find_field(301);
TSol_row sld(desc_sld.prompt(), saldo); TSol_row sld(desc_sld.prompt(), saldo);
sld.print_on(body); sld.print_on(body);
// salta una riga vuota // salta una riga vuota
TPrintrow vuota; TPrintrow vuota;
pr.print(vuota); pr.print(vuota);
} }
return ok; return ok;
} }
TSol_form::TSol_form(const TSol_mask& m, short datafld): TForm(BASE_EC_PROFILE, m.get_prof_code()), _causali(LF_CAUSALI, CAU_CODCAUS, CAU_DESCR) { TSol_form::TSol_form(const TSol_mask& m, short datafld): TForm(BASE_EC_PROFILE, m.get_prof_code()), _causali(LF_CAUSALI, CAU_CODCAUS, CAU_DESCR) {
_form = this; _form = this;
_lingua = m.get_prof_lang(); _lingua = m.get_prof_lang();
TCursor_sheet& cs = m.cur_sheet(); TCursor_sheet& cs = m.cur_sheet();
_cursore = cs.cursor(); _cursore = cs.cursor();
_dlo = _dls = m.get(datafld); // prende il campo con la data limite sollecito _dlo = _dls = m.get(datafld); // prende il campo con la data limite sollecito
TPrinter& pr = printer(); TPrinter& pr = printer();
pr.setheaderhandler(sol_header_handler); pr.setheaderhandler(sol_header_handler);
pr.headerlen(section('H').height()); pr.headerlen(section('H').height());
pr.setfooterhandler(sol_footer_handler); pr.setfooterhandler(sol_footer_handler);
pr.footerlen(section('F').height()); pr.footerlen(section('F').height());
} }
TSol_form::~TSol_form() { TSol_form::~TSol_form() {
TPrinter& pr = printer(); TPrinter& pr = printer();
pr.setheaderhandler(NULL); pr.setheaderhandler(NULL);
pr.setfooterhandler(NULL); pr.setfooterhandler(NULL);
_form = NULL; _form = NULL;
} }