From 371036b4ba96c0ba5493df9a945a698c28d5e987 Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Thu, 8 Oct 2009 14:57:44 +0000
Subject: [PATCH] Patch level : Files correlati : pd62192.exe
Ricompilazione Demo : [ ] Commento :
Stampa previsione incassi pagamenti pharmatex
git-svn-id: svn://10.65.10.50/trunk@19408 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
ps/indice_programmi.txt | 3 +
ps/pd6292.cpp | 18 +
ps/pd6292.h | 6 +
ps/pd6292100.cpp | 1095 +++++++++++++++++++++++++++++++++++++++
ps/pd6292100.h | 29 ++
ps/pd6292100a.uml | 331 ++++++++++++
6 files changed, 1482 insertions(+)
create mode 100755 ps/pd6292.cpp
create mode 100755 ps/pd6292.h
create mode 100755 ps/pd6292100.cpp
create mode 100755 ps/pd6292100.h
create mode 100755 ps/pd6292100a.uml
diff --git a/ps/indice_programmi.txt b/ps/indice_programmi.txt
index ae7e1316e..98e115548 100755
--- a/ps/indice_programmi.txt
+++ b/ps/indice_programmi.txt
@@ -28,6 +28,9 @@ Stampa clienti Press Color
PD6142
liquidazione iva Suore Dorotee
+PD6292
+Stampa previsioni incassi e pagamenti Pharmatex
+
PG0001
Generazione documenti da paghe
Trasferimento Maestri a TeamSystem
diff --git a/ps/pd6292.cpp b/ps/pd6292.cpp
new file mode 100755
index 000000000..a29f225ff
--- /dev/null
+++ b/ps/pd6292.cpp
@@ -0,0 +1,18 @@
+#include <xvt.h>
+#include <checks.h>
+
+#include "pd6292.h"
+
+int main(int argc,char** argv)
+{
+ const int n = (argc > 1) ? atoi(&argv[1][1]) : 0;
+
+ switch(n)
+ {
+ case 0:
+ pd6292100(argc, argv); break;
+ default:
+ error_box("Usare: pd6292 -0");break;
+ }
+ return 0;
+}
diff --git a/ps/pd6292.h b/ps/pd6292.h
new file mode 100755
index 000000000..22a6d5495
--- /dev/null
+++ b/ps/pd6292.h
@@ -0,0 +1,6 @@
+#ifndef __PD6292_H
+#define __PD6292_H
+
+int pd6292100(int argc, char** argv);
+
+#endif // __PD6292_H
diff --git a/ps/pd6292100.cpp b/ps/pd6292100.cpp
new file mode 100755
index 000000000..6cdd0d8a4
--- /dev/null
+++ b/ps/pd6292100.cpp
@@ -0,0 +1,1095 @@
+#include <printapp.h>
+#include <utility.h>
+#include <tabutil.h>
+
+#include "../cg/cgsaldac.h"
+#include "../cg/cglib02.h"
+#include "../sc/sc2.h"
+#include "../sc/sc2201.h"
+#include "pd6292100.h"
+
+#include <clifo.h>
+#include <nditte.h>
+#include <pconti.h>
+#include <textset.h>
+
+class TPRSC_recordset : public TAS400_recordset
+{
+public:
+ TPRSC_recordset(const TString_array & colnames);
+};
+
+TPRSC_recordset::TPRSC_recordset(const TString_array & colnames) : TAS400_recordset("AS400(256,0,0)")
+{
+ create_field("Cliente", 0, 6, _longfld);
+ create_field("RagioneSociale", -1, 50);
+ create_field("Valuta", -1, 3);
+ for (int i = 0; i < colnames.items(); i++)
+ create_field(colnames.row(i), -1, 15, _realfld);
+ create_field("Totale", -1, 15, _realfld);
+ create_field("Esposto", -1, 15, _realfld);
+ create_field("Saldo", -1, 15, _realfld);
+ create_field("Differenza", -1, 15, _realfld);
+}
+
+///////////////////////////////////////////////////////////
+// Stampa prospetto scadenze
+///////////////////////////////////////////////////////////
+
+#define NUMERO_FASCE 9
+// #define LIMITI {0, 30, 60, 90, 120, 150, 180, 210, 240, 270}
+
+enum tipo_st {clienti=0, fornitori=1};
+
+class TLineTotal : public TObject //Oggetto di base per i TAssoc_array dei totali
+{
+public:
+ real _s[NUMERO_FASCE];// Scaglioni scaduto
+ real _ns[NUMERO_FASCE];// Scaglioni a scadere
+ real _es; // esposto
+ real _sl; // saldo
+
+ virtual TObject* dup() const { return new TLineTotal(*this); }
+ virtual TLineTotal & copy(const TLineTotal & l);
+ virtual void zero();
+ TLineTotal(const TLineTotal* l) { copy(*l); }
+ TLineTotal() { zero();}
+};
+
+TLineTotal & TLineTotal::copy(const TLineTotal & l)
+{
+ for (int i = 0; i < NUMERO_FASCE; i++)
+ {
+ _s[i] = l._s[i];
+ _ns[i] = l._ns[i];
+ }
+ _es=l._es;
+ _sl=l._sl;
+ return *this;
+}
+
+void TLineTotal::zero()
+{
+ for (int i = 0; i < NUMERO_FASCE; i++)
+ {
+ _s[i] = ZERO;
+ _ns[i] = ZERO;
+ }
+ _es=ZERO;
+ _sl=ZERO;
+}
+
+class TProspettoScadenze : public TPrintapp
+{
+ TRelation *_rel1, *_rel2; // Relazioni di lavoro...
+ int _cur1, _cur2, // Identificatori dei cursori di lavoro...
+ _cur3, _cur4;
+ TSelection_ext_mask *_m;
+ TLocalisamfile *_scad,*_pagsca;
+ TTable *_val;
+ tipo_st _tipost; // Tipo di stampa impostato
+ bool _end_printed,
+ _start,
+ _error,
+ _stvaluta,
+ _ordcod, // VERO=ordine per codice, FALSO=ordine per ragione sociale
+ _sinfasce,
+ _nsinfasce;
+ TString _anno,_numdoc,_protiva,_datadoc,_codval, _codvalsel,
+ _cod, _cod_pre, _des, _des_pre;
+ TDate _limop, _limscad, _datas, _limbf; // Data limite operazione, data limite scaduto e data di stampa
+ int _gcr, // Giorni per Calcolo Rischio (valido solo per stampa clienti)
+ _sfasce,
+ _nsfasce;
+ real _unsnc,_uns, _unsesp; // Unassigned per partita.
+ TArray _conti_cf, // array per conti mastro
+ _t, // Array per i totali
+ _ns_date, // Date per non scaduto
+ _s_date; // Date per lo scaduto
+ bool _excel;
+ TPRSC_recordset * _recset;
+
+ static TString _last_game;
+ static bool fil_function(const TRelation *);
+ TString_array _colnames;
+ int _slimiti[NUMERO_FASCE];
+ int _nslimiti[NUMERO_FASCE];
+
+public:
+ virtual const char * extra_modules() const {return "sc";}
+ virtual bool preprocess_page(int file, int counter);
+ virtual bool open_print();
+ virtual void postclose_print();
+ virtual print_action postprocess_print(int file, int counter);
+ virtual print_action postprocess_page(int file, int counter);
+ virtual void close_print();
+ virtual void preprocess_header() {};
+ virtual void preprocess_footer() ;
+ virtual bool user_create();
+ virtual bool user_destroy();
+ virtual bool set_print(int);
+ virtual void set_page (int file, int counter);
+ void print_totali_rows(int nriga, bool what);
+ void export_totali_rows();
+ void print_totali(int nriga);
+ void print_header();
+
+ int calc_last_column();
+ void update_totals(bool what, real& esp, real s[NUMERO_FASCE], real ns[NUMERO_FASCE]);
+ void compute_unassigned(TPartita& p, const TDate & datalim);
+ void compute_all(TPartita& p, TBill& bill);
+ void print_real(TString& dest, const real& num);
+ void riempi_conti_mastro(const char cf);
+ void calcola_saldo();
+ TProspettoScadenze();
+};
+
+TString TProspettoScadenze::_last_game;
+
+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);
+ dest = cur.string(true);
+ dest.right_just(10);
+}
+
+bool TProspettoScadenze::fil_function(const TRelation *r)
+{
+ TRectype& part = r->curr(LF_PARTITE);
+
+ TString80 key;
+ key.format("%03d%03d%06ld%4d",
+ part.get_int(PART_GRUPPO), part.get_int(PART_CONTO),
+ part.get_long(PART_SOTTOCONTO), part.get_int(PART_ANNO));
+ key << part.get(PART_NUMPART);
+
+ const bool rt = key != _last_game;
+ if (rt)
+ _last_game = key;
+ return rt;
+}
+
+void TProspettoScadenze::update_totals(bool what, real& esp,
+ real s[NUMERO_FASCE], real ns[NUMERO_FASCE])
+{
+ TAssoc_array& a = (TAssoc_array&) _t[what];
+ TLineTotal *ll = (TLineTotal *) a.objptr(_codval);
+ if (ll == NULL)
+ {
+ ll = new TLineTotal;
+ a.add(_codval, ll);
+ }
+ for (int i = 0; i < NUMERO_FASCE; i++)
+ {
+ ll->_s[i] += s[i];
+ ll->_ns[i] += ns[i];
+ }
+ ll->_es += esp;
+}
+
+void TProspettoScadenze::compute_unassigned(TPartita& p, const TDate & datalim)
+{
+ TRecord_array& ra = p.unassigned();
+
+ _uns = _unsnc = _unsesp = ZERO;
+ for (int r = ra.last_row(); r > 0; r = ra.pred_row(r))
+ {
+ 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 TDate & datascad = sum.get_date(PART_DATAPAG);
+
+ if ((datascad <= datalim))
+ {
+ if (sum.get_int(PART_TIPOMOV) == 2) // Is it a credit note ?
+ _unsnc += rec.get_real(field);
+ else
+ _uns += rec.get_real(field);
+ }
+ else
+ {
+ if (sum.get_int(PART_TIPOMOV) == 2) // Is it a credit note ?
+ _unsesp -= rec.get_real(field);
+ else
+ _unsesp += rec.get_real(field);
+ }
+
+ }
+}
+
+void TProspettoScadenze::compute_all(TPartita& p, TBill& bill)
+{
+ real residuo;
+ real s[NUMERO_FASCE];
+ real ns[NUMERO_FASCE];
+ real res_pagati;
+ real esposto;
+
+ compute_unassigned(p, _limbf);
+ esposto = _unsesp;
+ for (int r = p.last(); r > 0; r = p.pred(r)) // Browse all rows (partite)
+ {
+ const TRiga_partite& rp = p.riga(r);
+ // se la data di registrazione della partita ' > di _limop (data lim operazione)
+ // non deve scorrere le scadenze
+ const TDate data_reg(rp.get_date(PART_DATAREG));
+ if (data_reg > _limop) continue;
+ for (int n = rp.rate(); n > 0; n--) // Browse all rows (scadenze)
+ {
+ 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 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 bf;
+ TImporto work_imp;
+
+ // Scorre le righe di pagamento per trovare la riga corripondente alla prima data pagamento
+ // di questa rata. Motivo: il primo pagamento delle rata corrente, effettuato tramite effetto
+ // (ai fini del calcolo B.F.) deve essere considerato con la data scadenza
+ const int lst = rs.last();
+ int prima_riga_pagamento = -1;
+ TDate first_date;// data relativa alla prima riga di pagamento
+
+ int pp;
+ for (pp = rs.first(); pp <= lst; pp = rs.succ(pp))
+ {
+ const TRiga_partite& sum = p.riga(pp);
+ TDate current_date(sum.get_date(PART_DATAPAG));
+ int tipo_pag = rs.get_int(SCAD_TIPOPAG);
+ const tipo_movimento tipomov = (tipo_movimento) sum.get_int(PART_TIPOMOV);
+
+ if (tipomov != tm_insoluto && tipo_pag >= 2 && tipo_pag <= 7) //Incasso tramite effetto
+ if (prima_riga_pagamento==-1 || first_date > current_date)
+ {
+ first_date = current_date;
+ prima_riga_pagamento = pp;
+ }
+ }
+
+ for (pp = rs.first(); pp <= lst; pp = rs.succ(pp)) // Browse all rows (pagamenti)
+ {
+ const TRectype pg = rs.row(pp);
+ const TRiga_partite& sum = p.riga(pp);
+ const char sez = sum.sezione();
+ const int tipomov = sum.get_int(PART_TIPOMOV);
+ // se tipomov e' 2 (Nota di credito assegnata)
+ // storna da scdz. In entrambi i casi si ha l'operatore +=, perche' nel TImporto e' gia'
+ // compresa la sezione opposta
+ if (tipomov == tm_nota_credito)
+ {
+ work_imp = TImporto(sez,pg.get_real(field));
+ scd += work_imp;
+ pag -= work_imp;
+ }
+ if ((tipomov == tm_pagamento || tipomov == tm_pagamento_insoluto) && _tipost == clienti)
+ {
+ TDate data_pag(sum.get_date(PART_DATAPAG));
+ int tipo_pag = sum.get_int(PART_TIPOPAG);
+ if (tipo_pag>=2 && tipo_pag<=7 && data_pag.ok()) //Incasso tramite effetto
+ {
+ if (prima_riga_pagamento > -1 && prima_riga_pagamento == pp)
+ data_pag = d; // Se e' il primo pagamento(in ordine di data) di questa rata
+ // prende la data di scadenza relativa.
+ if (data_pag > _limbf) // && data_pag <= _limscad)
+ bf += TImporto(sez,pg.get_real(field));
+ }
+ }
+ }
+
+ const char scd_sez = (_tipost == fornitori ? 'A' : 'D');
+ const char pag_sez = (_tipost == fornitori ? 'D' : 'A');
+
+ scd.normalize(scd_sez);
+
+ real rscd = scd.valore();
+
+ pag -= bf;
+ pag.normalize(pag_sez);
+
+ real rpag = pag.valore();
+
+ real res = rscd - rpag; // Scadenze - pagati = scaduto per questo gruppo di rate
+
+ if (_uns > ZERO) // Rettifica i pagamenti con i non assegnati (calcolo sul residuo: scadenza-pagamento)
+ {
+ real gap = (_uns > res ? res : _uns); // questo e' quanto manca per completare questa scadenza
+ res -= gap;
+ _uns -= gap; // aggiorna la cache..
+ }
+ if (_unsnc > ZERO) // Rettifica le scadenze con le N.C non assegnate.
+ {
+ real gap = (_unsnc > rscd ? rscd : _unsnc);
+ rscd -= gap;
+ _unsnc -= gap;
+ }
+ if (rscd == ZERO) // Se le scadenze sono a zero, vuol dire che sono state stornate
+ res = ZERO; // da qualche nota di credito o non assegnato percio' non si ha residuo
+
+ if (d > _limscad)
+ {
+ if (_nsinfasce)
+ {
+ for (int i = _nsfasce + 1; i >= 0; i--)
+ {
+ const TDate & limdate = (TDate&)_ns_date[i];
+ if (limdate.ok() && d > limdate)
+ {
+ ns[i] += res;
+ break;
+ }
+ }
+ }
+ else
+ ns[0] += res;
+ }
+ else
+ {
+ if (_sinfasce)
+ {
+ for (int i = _sfasce + 1; i >= 0; i--)
+ {
+ const TDate & limdate = (TDate&)_s_date[i];
+ if (limdate.ok() && d <= limdate)
+ {
+ s[i] += res;
+ break;
+ }
+ }
+ }
+ else
+ s[0] += res;
+ }
+ residuo += res;
+ bool sbf;
+ TImporto esp = rs.esposto(_stvaluta, _limscad, _limbf, sbf);
+ esposto += esp.valore();
+ }
+ }
+
+ // Aggiorna i totali...
+ update_totals(0, esposto, s, ns); // Singolo...
+ update_totals(1, esposto, s, ns); // ...Generale
+}
+
+void TProspettoScadenze::calcola_saldo()
+{
+ TAssoc_array& a = (TAssoc_array&) _t[0];
+ TLineTotal *ll = (TLineTotal *) a.objptr(_codval);
+ TEsercizi_contabili e;
+ TSaldo saldo;
+ int g,c;
+ const long s = atol(_cod_pre);
+
+ for (int i = 0; i < _conti_cf.items(); i++)
+ {
+ TToken_string& cf = (TToken_string&)_conti_cf[i];
+ g = cf.get_int(0);
+ c = cf.get_int(1);
+ TToken_string key;
+ key.add(g); key.add(c); key.add("");
+ const TRectype& pc = cache().get(LF_PCON, key);
+ int indbil_conto = pc.get_int (PCN_INDBIL);
+ const int codes = e.date2esc(_limop);
+ saldo.set_annoes(codes);
+ TDate dataini(e.esercizio(codes).inizio());
+ saldo.data_limite_bilancio( 1, g, c, s, dataini, _limop, indbil_conto, false);
+ if (_tipost == fornitori)
+ ll->_sl -= saldo.saldo();
+ else
+ ll->_sl += saldo.saldo();
+ }
+ // aggiorno il totale generale
+ TAssoc_array& at = (TAssoc_array&) _t[1];
+ TLineTotal *lt = (TLineTotal *) at.objptr(_codval);
+ if (lt == NULL)
+ {
+ lt = new TLineTotal;
+ at.add(_codval, lt);
+ }
+ lt->_sl += ll->_sl;
+}
+
+bool TProspettoScadenze::preprocess_page(int file, int counter)
+{
+ if (file == LF_PARTITE)
+ {
+ const TRectype& curr = current_cursor()->curr(file);
+
+ TBill bill(curr);
+ const bool checked = _m->selected(bill);
+
+ if (!checked && !_end_printed) // Se non e' stato selezionato salta al prossimo record
+ return false;
+
+// int nriga = 1;
+ if (_tipost == clienti || _tipost == fornitori)
+ {
+ const TRectype& clifo = current_cursor()->curr(LF_CLIFO);
+ _des = clifo.get(CLI_RAGSOC);
+ _cod = clifo.get(CLI_CODCF);
+ }
+ else
+ {
+ const TRectype& pcon = current_cursor()->curr(LF_PCON);
+ _des = pcon.get(PCN_DESCR);
+ _cod = pcon.get(PCN_GRUPPO);
+ _cod << " " << pcon.get(PCN_CONTO);
+ _cod << " " << pcon.get(PCN_SOTTOCONTO);
+ }
+
+ if (_cod != _cod_pre || _end_printed) // Controlla se e' cambiato il codice cli/fo/conto
+ {
+ reset_print();
+ if (((TAssoc_array&) _t[0]).items() > 0)
+ print_totali(1);
+ _des.trim();
+ _cod_pre = _cod;
+ _des_pre = _des;
+ }
+
+ if (!curr.empty())
+ {
+ TPartita p(curr);
+
+ //Pesca gli estremi dalla prima riga di fattura, che non e' necessariamente la riga #1
+ const int r = p.prima_fattura();
+
+ if (r > 0) //Skip next partita if no fatture!
+ {
+ TRiga_partite& rp = p.riga(r);
+ _anno = rp.get(PART_ANNO);
+ _anno.ltrim(2);
+ _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 = " ";
+ // Now performing fulkrum...
+ compute_all(p, bill);
+ }
+ current_cursor()->repos(); // Very, very necessary...
+ }
+ }
+ return true;
+}
+
+bool TProspettoScadenze::open_print()
+{
+ if (_error)
+ return false;
+ if (_stvaluta)
+ {
+ const int err = _start ? _val->first() : _val->next();
+ if (err != NOERR)
+ return false;
+ }
+ _codvalsel = _val->get("CODTAB");
+ reset_files();
+ reset_print();
+ printer().footerlen(5);
+ if (_m->get_who() == 'C')
+ _tipost = clienti;
+ else
+ _tipost = fornitori;
+ riempi_conti_mastro(_m->get_who());
+ if (_m->get_key() == 1)
+ _ordcod = true;
+ else
+ _ordcod = false;
+ _end_printed = false;
+ _gcr = _m->get_int(F_GIORNI);
+ _datas = (const char *)(_m->get(F_DATASTAMPA));
+ _limop = (const char *)(_m->get(F_DATAOPERAZIONE));
+ _limscad = (const char *)(_m->get(F_DATASCADUTO));
+ _limbf = _limscad - (long)_gcr; // Limite inferiore per le scadenze a Buon Fine.
+ _sinfasce = _m->get_bool(F_SCADINFASCE);
+ _nsinfasce = _m->get_bool(F_ASCADINFASCE);
+ _s_date.destroy();
+ _ns_date.destroy();
+ for (int i = 0; i <= NUMERO_FASCE; i++)
+ {
+ _s_date.add(new TDate);
+ _ns_date.add(new TDate);
+ }
+ for (int j = 0; j < _sfasce; j++)
+ {
+ TDate & d = (TDate &)_s_date[j];
+ d = _limscad;
+ d.addmonth(-_slimiti[j]);
+ }
+ for (int k = 0; k < _nsfasce; k++)
+ {
+ TDate & d = (TDate &)_ns_date[k];
+ d = _limscad;
+ d.addmonth(_nslimiti[k]);
+ }
+ _anno.cut(0);_numdoc.cut(0);_protiva.cut(0);_datadoc.cut(0);
+ _codval.cut(0);_cod.cut(0); _des.cut(0); _cod_pre.cut(0);
+ for (int it=0; it < _t.items(); it++)
+ {
+ TAssoc_array& aa = (TAssoc_array&) _t[it];
+ aa.destroy(); // Totali lineari (singolo e generale)
+ }
+
+ get_cursor(_cur1)->set_filterfunction(fil_function,true);
+ get_cursor(_cur2)->set_filterfunction(fil_function,true);
+ get_cursor(_cur3)->set_filterfunction(fil_function,true);
+ get_cursor(_cur4)->set_filterfunction(fil_function,true);
+ _last_game.cut(0);
+
+ TRectype filter_from(LF_PARTITE), filter_to(LF_PARTITE);
+
+ switch (_tipost)
+ {
+ case clienti:
+ case fornitori:
+ {
+ TString filter;
+
+ filter_from.put("TIPOC", _tipost == clienti ? "C" : "F");
+ filter_to = filter_from;
+ if (_stvaluta)
+ {
+ if (is_firm_value(_codvalsel))
+ filter << "(CODVAL==\"\")||";
+ filter << "(CODVAL==\"" << _codvalsel << "\")";
+ }
+ if (_ordcod) // Per codice...
+ {
+ select_cursor(_cur1);
+ get_cursor(_cur1)->setregion(filter_from, filter_to);
+ get_cursor(_cur1)->setfilter(filter);
+ }
+ else // ... e ragione sociale
+ {
+ select_cursor(_cur2);
+ get_cursor(_cur2)->setregion(filter_from, filter_to);
+ get_cursor(_cur2)->setfilter(filter);
+ }
+ add_file(LF_PARTITE);
+ add_file(LF_CLIFO,LF_PARTITE);
+ }
+ break;
+ default: break;
+ } // End of inner switch
+ if (_excel)
+ {
+ _colnames.destroy();
+ if (_sinfasce)
+ {
+ _colnames.add(format("Scaduto > %3d gg", _slimiti[_sfasce - 1] * 30));
+ for (int i = _sfasce - 1; i > 0; i--)
+ _colnames.add(format("Scaduto <= %3d gg", _slimiti[i - 1] * 30));
+ }
+ else
+ _colnames.add("Scaduto");
+ if (_nsinfasce)
+ {
+ for (int i = 0; i < _nsfasce; i++)
+ _colnames.add(format("A Scadere <= %3d gg", _nslimiti[i] * 30));
+ _colnames.add(format("A Scadere > %3d gg", _nslimiti[_nsfasce - 1] * 30));
+ }
+ else
+ _colnames.add("A Scadere");
+ _recset = new TPRSC_recordset(_colnames);
+ }
+ _start = false ;
+ return true;
+}
+
+print_action TProspettoScadenze::postprocess_print(int file, int counter)
+{
+ print_action rt = NEXT_PAGE;
+ if (!_end_printed)
+ {
+ if ((file == LF_PARTITE))
+ {
+ rt = REPEAT_PAGE;
+ _end_printed = true;
+ }
+ }
+ else
+ {
+ if (((TAssoc_array&) _t[0]).items() > 0)
+ {
+ print_totali(1);
+ print_one(0);
+ }
+ if (((TAssoc_array&) _t[1]).items() > 0)
+ {
+ print_totali_rows(1,1);
+ print_one(0);
+ }
+ }
+ return rt;
+}
+
+void TProspettoScadenze::postclose_print()
+{
+ if (_excel)
+ {
+ TFilename slk; slk.tempdir(); slk.add("prosscad.slk");
+ _recset->save_as(slk, fmt_silk);
+ xvt_sys_goto_url(slk, "open");
+ delete _recset;
+ _recset = NULL;
+ }
+}
+
+void TProspettoScadenze::close_print()
+{
+ if (_stvaluta)
+ repeat_print();
+}
+
+print_action TProspettoScadenze::postprocess_page(int file, int counter)
+{
+ return NEXT_PAGE;
+}
+
+bool TProspettoScadenze::user_create()
+{
+ _rel1 = new TRelation(LF_PARTITE);
+ _rel1->add(LF_CLIFO,"TIPOCF=TIPOC|CODCF=SOTTOCONTO",1);
+ _cur1 = add_cursor(new TCursor(_rel1));
+ _cur2 = add_cursor(new TSorted_cursor(_rel1,"UPPER(20->RAGSOC)||NUMPART","",1));
+
+ _rel2 = new TRelation(LF_PARTITE);
+ _rel2->add(LF_PCON,"GRUPPO=GRUPPO|CONTO=CONTO|SOTTOCONTO=SOTTOCONTO",1);
+ _cur3 = add_cursor(new TCursor(_rel2));
+ _cur4 = add_cursor(new TSorted_cursor(_rel2,"UPPER(19->DESCR)|ANNO|NUMPART","",1));
+
+ _scad = new TLocalisamfile(LF_SCADENZE);
+ _pagsca = new TLocalisamfile(LF_PAGSCA);
+ _val = new TTable("%VAL");
+ _t.add(new TAssoc_array);_t.add(new TAssoc_array);
+
+ TConfig conf (CONFIG_DITTA,"cg");
+ _m = new TSelection_ext_mask("pd6292100a");
+ _m->enable(F_VALUTA,conf.get_bool("GesVal"));
+ _stvaluta = false;
+ _start = true;
+
+ enable_print_menu();
+ return true;
+}
+
+bool TProspettoScadenze::user_destroy()
+{
+ if (_rel1) delete _rel1;
+ if (_rel2) delete _rel2;
+ if (_scad) delete _scad;
+ if (_pagsca) delete _pagsca;
+ if (_val) delete _val;
+ if (_m) delete _m;
+ _t.destroy();
+ return true;
+}
+
+void TProspettoScadenze::riempi_conti_mastro(const char cf)
+{
+ _conti_cf.destroy();
+ TRelation rel = TRelation(LF_PCON);
+ TString80 filtro;
+ filtro.format("TMCF==\'%c\'", cf);
+ TCursor cur(&rel, filtro);
+ TToken_string gc(10);
+ for (cur=0; cur.pos() < cur.items(); ++cur)
+ {
+ const int g = cur.curr().get_int(PCN_GRUPPO);
+ const int c = cur.curr().get_int(PCN_CONTO);
+ gc.add(g,0);
+ gc.add(c,1);
+ _conti_cf.add(gc);
+ }
+}
+
+bool TProspettoScadenze::set_print(int)
+{
+ const bool repeat = _stvaluta && need_to_repeat_print();
+ bool print = repeat;
+
+ if (!repeat)
+ {
+ KEY k = _m->run();
+ _excel = k != K_ENTER;
+ _sfasce = 0;
+ for (short id = F_SCADFASCE1; id <= F_SCADFASCE9; id++)
+ {
+ int nmesi = _m->get_int(id);
+
+ if (nmesi == 0)
+ break;
+ if (_sfasce > 0)
+ nmesi += _slimiti[_sfasce - 1];
+ _slimiti[_sfasce++] = nmesi;
+ }
+ _nsfasce = 0;
+ for (short id = F_ASCADFASCE1; id <= F_ASCADFASCE9; id++)
+ {
+ int nmesi = _m->get_int(id);
+
+ if (nmesi == 0)
+ break;
+ if (_nsfasce > 0)
+ nmesi += _nslimiti[_nsfasce - 1];
+ _nslimiti[_nsfasce++] = nmesi;
+ }
+ print = k != K_QUIT;
+ _error = false;
+ if (print && (_sfasce + _nsfasce) > 9)
+ _error = !error_box("Il numero di totale fasce non puo' superare 9");
+ _start = true;
+ }
+ _stvaluta = _m->get_bool(F_VALUTA);
+ return print;
+}
+
+void TProspettoScadenze::print_totali_rows(int nriga, bool what)
+// If what is 0 prints single total... else prints also general total
+{
+ reset_print();
+ TAssoc_array& xassoc = (TAssoc_array&) _t[what];
+ if (_cod_pre.blank())
+ {
+ xassoc.destroy();
+ return;
+ }
+ TString_array as;
+ const int items = xassoc.items();
+
+ xassoc.get_keys(as);
+ as.sort();
+ for (int i=0; i < items; i++)
+ {
+ if (!what && !_excel)
+ calcola_saldo();
+
+ TString k(as.row(i)); // Chiave di ordinamento(valuta)
+ TString value;
+ TLineTotal& v = (TLineTotal&)xassoc[k];
+ real tot = ZERO;
+ int pos = 40;
+ TString rw(255);
+
+ rw = "";
+ if (_sinfasce)
+ {
+ for (int i = _sfasce; i >= 0; i--)
+ {
+ if (v._s[i] != ZERO)
+ {
+ print_real(value, v._s[i]);
+ rw << format("@%dg%12s", pos, (const char*) value);
+ tot += v._s[i];
+ }
+ pos += 12;
+ }
+ }
+ else
+ {
+ if (v._s[0] != ZERO)
+ {
+ print_real(value, v._s[0]);
+ rw << format("@%dg%12s", pos, (const char*) value);
+ tot += v._s[0];
+ }
+ pos += 12;
+ }
+
+ if (_nsinfasce)
+ {
+ for (int i = 0; i <= _nsfasce; i++)
+ {
+ if (v._ns[i] != ZERO)
+ {
+ print_real(value, v._ns[i]);
+ rw << format("@%dg%12s", pos, (const char*) value);
+ tot += v._ns[i];
+ }
+ pos += 12;
+ }
+ }
+ else
+ {
+ if (v._ns[0] != ZERO)
+ {
+ print_real(value, v._ns[0]);
+ rw << format("@%dg%12s", pos, (const char*) value);
+ tot += v._ns[0];
+ }
+ pos += 12;
+ }
+
+ if (tot != ZERO)
+ {
+ print_real(value, tot);
+ rw << format("@%dg%12s", pos, (const char*) value);
+ }
+ pos += 12;
+ if (v._es != ZERO)
+ {
+ print_real(value, v._es);
+ rw << format("@%dg%12s", pos, (const char*) value);
+ }
+ pos += 12;
+ if (v._sl != ZERO)
+ {
+ print_real(value, v._sl);
+ rw << format("@%dg%12s", pos, (const char*) value);
+ }
+ pos += 12;
+
+ const real diff = v._sl - (tot - v._es);
+ if (diff != ZERO)
+ {
+ print_real(value, diff);
+ rw << format("@%dg%12s", pos, (const char*) value);
+ }
+
+ if (rw.not_empty())
+ {
+ if (!what)
+ {
+ TString s = _des_pre.left(25);
+ rw.insert(format("%6s@8g%-25s", (const char*) _cod_pre, (const char*) s));
+ }
+ else
+ {
+ TString meno;
+ const int last_column = calc_last_column();
+
+ meno.fill('-', last_column);
+ set_row(nriga++, meno);
+ rw.insert("@8gTOTALE GENERALE");
+ }
+ set_row(nriga, rw);
+ }
+ }
+ xassoc.destroy(); // Distrugge il totale appena stampato
+}
+
+
+void TProspettoScadenze::export_totali_rows()
+// If what is 0 prints single total... else prints also general total
+{
+ if (_cod_pre.blank())
+ return;
+ TAssoc_array& xassoc = (TAssoc_array&) _t[0];
+ TString_array as;
+ const int items = xassoc.items();
+
+ xassoc.get_keys(as);
+ as.sort();
+ for (int i=0; i < items; i++)
+ {
+ TVariant var(_cod_pre);
+ TString k(as.row(i)); // Chiave di ordinamento(valuta)
+ TLineTotal& v = (TLineTotal&)xassoc[k];
+ real t1;
+ real t2;
+
+ calcola_saldo();
+ for (int j = NUMERO_FASCE; j >= 0; j--)
+ t1 += v._s[j];
+ for (int jj = 0; jj <= NUMERO_FASCE; jj++)
+ t2 += v._ns[jj];
+ if (t1 == ZERO && t2 == ZERO && v._es == ZERO && v._sl == ZERO)
+ continue;
+ _recset->new_rec();
+ _recset->set("Cliente", var);
+ var = _des_pre;
+ _recset->set("RagioneSociale", var);
+ var = k;
+ _recset->set("Valuta", var);
+ int col = 0;
+ real tot = ZERO;
+
+ if (_sinfasce)
+ {
+ for (int i = _sfasce; i >= 0; i--)
+ {
+ _recset->set(_colnames.row(col++), v._s[i]);
+ tot += v._s[i];
+ }
+ }
+ else
+ {
+ _recset->set(_colnames.row(col++), v._s[0]);
+ tot += v._s[0];
+ }
+
+ if (_nsinfasce)
+ {
+ for (int i = 0; i <= _nsfasce; i++)
+ {
+ _recset->set(_colnames.row(col++), v._ns[i]);
+ tot += v._ns[i];
+ }
+ }
+ else
+ {
+ _recset->set(_colnames.row(col++), v._ns[0]);
+ tot += v._ns[0];
+ col++;
+ }
+
+ const real diff = v._sl - (tot - v._es);
+
+ _recset->set("Totale", tot);
+ _recset->set("Esposto", v._es);
+ _recset->set("Saldo", v._sl);
+ _recset->set("Differenza", diff);
+ }
+}
+
+void TProspettoScadenze::print_totali(int nriga)
+{
+ reset_row(nriga);
+ if (_excel)
+ export_totali_rows();
+ print_totali_rows(nriga,0);
+}
+
+void TProspettoScadenze::print_header()
+// Setta le righe dell'intestazione
+{
+ int soh = 1;
+ const int last_column = calc_last_column();
+ const long firm = get_firm();
+ TString rw(last_column);
+ TString meno(last_column);
+
+ reset_header ();
+ TLocalisamfile ditte(LF_NDITTE);
+ ditte.zero();
+ ditte.put(NDT_CODDITTA, firm);
+ ditte.read();
+ if (ditte.bad()) ditte.zero();
+
+ TString s;
+ s = ditte.get(NDT_RAGSOC);
+ TString datas = _datas.string();
+ TString limop = _limop.string();
+ TString limscad = _limscad.string();
+ TString s1;
+
+ if (_stvaluta)
+ s1 << "Valuta : " << _codvalsel << " " << _val->get("S0");
+
+ set_header (soh++, "Ditta : %ld %s@%ldg%s@%ldgData %s @%ldgPag. @#",
+ firm, (const char *)s, (last_column - s1.len()) / 2, (const char *)s1,last_column - 30, (const char *)datas, last_column - 10);
+
+ switch (_tipost)
+ {
+ case fornitori:
+ case clienti:
+ {
+ TString s1,s2, s3, lim;
+ int o = 0; // Offset per scaglioni.
+
+
+ if (_tipost==fornitori)
+ set_header(soh++,"@%ldg** PREVISIONE PAGAMENTI FORNITORI **", (last_column - 37) / 2);
+ else
+ set_header(soh++,"@%ldg** PREVISIONE INCASSI CLIENTI **", (last_column - 34) / 2);
+ set_header (soh++,"@%ldgAl %s - Operazioni al %s", (last_column - 40) / 2, (const char*)limscad, (const char*)limop);
+ meno.fill('-', last_column);
+ set_header(soh++,(const char *)meno);
+ set_header(soh,"CODICE@8gC O G N O M E E N O M E ");
+ int pos = 40;
+
+ rw.cut(0);
+ if (_sinfasce)
+ {
+ rw << format("@%dg >%3d gg", pos, _slimiti[_sfasce - 1] * 30);
+ pos += 12;
+ for (int i = _sfasce -1 ; i >= 0; i--)
+ {
+ rw << format("@%dg <= %3d gg", pos, _slimiti[i] * 30);
+ pos += 12;
+ }
+ set_header(soh, format("@%dg%s", 40+((pos-40)/2), "SCADUTO"));
+ }
+ else
+ {
+ set_header(soh, format("@%dg%12s", pos, "SCADUTO"));
+ pos += 12;
+ }
+
+ const int pos_ascad = pos;
+ if (_nsinfasce)
+ {
+ for (int i = 0; i < _nsfasce; i++)
+ {
+ rw << format("@%dg <= %3d gg", pos, _nslimiti[i] * 30);
+ pos = pos + 12;
+ }
+ rw << format("@%dg >%3d gg", pos, _nslimiti[_nsfasce - 1] * 30);
+ pos = pos + 12;
+ set_header(soh, format("@%dg%s", pos_ascad+((pos-pos_ascad)/2)-5, "A SCADERE"));
+ }
+ else
+ {
+ set_header(soh, format("@%dg%12s", pos, "A SCADERE"));
+ pos += 12;
+ }
+ set_header(soh, format("@%dg%12s", pos, "TOTALE"));
+ pos += 12;
+ set_header(soh, format("@%dg%12s", pos, "ESPOSTO"));
+ pos += 12;
+ set_header(soh, format("@%dg%12s", pos, "SALDO"));
+ pos += 12;
+ set_header(soh, format("@%dg%12s", pos, " DIFFERENZA"));
+ set_header(++soh,(const char *)rw);
+ break;
+ }
+ default:
+ break;
+ }
+ set_header(++soh, (const char *) meno);
+}
+
+void TProspettoScadenze::preprocess_footer()
+{
+}
+
+int TProspettoScadenze::calc_last_column()
+// Setta le righe dell'intestazione
+{
+ int pos = 112;
+
+ if (_sinfasce)
+ pos += _sfasce * 12;
+ else
+ pos += 12;
+ if (_nsinfasce)
+ pos = pos + _nsfasce * 12;
+ else
+ pos += 12;
+ return pos;
+}
+
+void TProspettoScadenze::set_page(int file, int counter)
+{
+ print_header();
+}
+
+TProspettoScadenze::TProspettoScadenze()
+{
+ _rel1 = _rel2 = NULL;
+}
+
+int pd6292100(int argc, char** argv)
+{
+ TProspettoScadenze app;
+ app.run(argc, argv, "Stampa Previsione Incassi/Pagamenti");
+ return 0;
+}
diff --git a/ps/pd6292100.h b/ps/pd6292100.h
new file mode 100755
index 000000000..882d9a84f
--- /dev/null
+++ b/ps/pd6292100.h
@@ -0,0 +1,29 @@
+#include "../sc/scselmsk.h"
+
+#define F_CODDITTA 101
+#define F_RAGSOC 102
+#define F_DATASTAMPA 103
+#define F_DATAOPERAZIONE 104
+#define F_DATASCADUTO 105
+#define F_GIORNI 106
+#define F_VALUTA 107
+#define F_SCADINFASCE 201
+#define F_ASCADINFASCE 202
+#define F_SCADFASCE1 206
+#define F_SCADFASCE2 207
+#define F_SCADFASCE3 208
+#define F_SCADFASCE4 209
+#define F_SCADFASCE5 210
+#define F_SCADFASCE6 211
+#define F_SCADFASCE7 212
+#define F_SCADFASCE8 213
+#define F_SCADFASCE9 214
+#define F_ASCADFASCE1 215
+#define F_ASCADFASCE2 216
+#define F_ASCADFASCE3 217
+#define F_ASCADFASCE4 218
+#define F_ASCADFASCE5 219
+#define F_ASCADFASCE6 220
+#define F_ASCADFASCE7 221
+#define F_ASCADFASCE8 222
+#define F_ASCADFASCE9 223
diff --git a/ps/pd6292100a.uml b/ps/pd6292100a.uml
new file mode 100755
index 000000000..fdb97d727
--- /dev/null
+++ b/ps/pd6292100a.uml
@@ -0,0 +1,331 @@
+#include "pd6292100.h"
+
+TOOLBAR "" 0 0 0 2
+
+BUTTON DLG_EDIT 10 2
+BEGIN
+ PROMPT -25 -1 "~Edit"
+ MESSAGE EXIT,69
+ PICTURE TOOL_EDIT
+END
+
+#include <printbar.h>
+
+ENDPAGE
+
+PAGE "Stampa Previsione Incassi/PagamentI" 0 0 0 0
+
+NUMBER F_CODDITTA 5
+BEGIN
+ PROMPT 2 1 "Cod. "
+ FLAGS "DFR"
+ USE LF_NDITTE
+ INPUT CODDITTA F_CODDITTA
+ OUTPUT F_RAGSOC RAGSOC
+ CHECKTYPE REQUIRED
+END
+
+STRING F_RAGSOC 50 46
+BEGIN
+ PROMPT 14 1 "R.S. "
+ FLAGS "D"
+END
+
+GROUPBOX DLG_NULL 68 7
+BEGIN
+ PROMPT 1 2 ""
+END
+
+DATE F_DATASTAMPA
+BEGIN
+ PROMPT 2 3 "Data di stampa "
+ HELP "Data di stampa"
+ CHECKTYPE REQUIRED
+ WARNING "Si deve specificare la data di stampa"
+ FLAGS "A"
+END
+
+DATE F_DATAOPERAZIONE
+BEGIN
+ PROMPT 2 4 "Data limite operazione "
+ HELP "Data limite operazione"
+ CHECKTYPE REQUIRED
+ FLAGS "A"
+END
+
+DATE F_DATASCADUTO
+BEGIN
+ PROMPT 2 5 "Data limite scaduto "
+ HELP "Data limite scaduto"
+ CHECKTYPE REQUIRED
+ WARNING "Data limite scaduto non valida"
+END
+
+NUMBER F_GIORNI 3
+BEGIN
+ PROMPT 2 6 "Giorni per calcolo rischio "
+ 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"
+ ITEM "C|Clienti" MESSAGE ENABLE, F_GIORNI|K_SPACE,SC_SORTCF
+ ITEM "F|Fornitori" MESSAGE DISABLE, F_GIORNI|K_SPACE,SC_SORTCF
+ //ITEM "P|Conti" MESSAGE DISABLE, F_GIORNI|K_SPACE,SC_SORTCF
+END
+
+RADIOBUTTON SC_SORTCF 29
+BEGIN
+ GROUP 1
+ PROMPT 23 9 "Ordinamento"
+ ITEM "1|Per codice/conto"
+ ITEM "2|Per rag.soc./descrizione"
+END
+
+BUTTON SC_SELECT 10 1
+BEGIN
+ PROMPT 55 10 "S~elezione"
+END
+
+BUTTON SC_RESET 10 1
+BEGIN
+ PROMPT 55 11 "A~zzera"
+END
+
+NUMBER SC_CFCODFR 6
+BEGIN
+ PROMPT 2 14 "Da codice "
+ FLAGS "B"
+ GROUP 3
+END
+
+NUMBER SC_CFCODTO 6
+BEGIN
+ PROMPT 37 14 "a codice "
+ FLAGS "B"
+ GROUP 3
+END
+
+STRING SC_CFDESFR 50 40
+BEGIN
+ PROMPT 2 14 "Da ragione sociale "
+ GROUP 4
+ FLAGS "HB"
+END
+
+STRING SC_CFDESTO 50 40
+BEGIN
+ PROMPT 2 15 "A ragione sociale "
+ GROUP 4
+ FLAGS "HB"
+END
+
+NUMBER SC_PCONCODFR1 3
+BEGIN
+ PROMPT 2 14 "Da conto "
+ GROUP 5
+END
+
+NUMBER SC_PCONCODFR2 3
+BEGIN
+ PROMPT 15 14 ""
+ GROUP 5
+END
+
+NUMBER SC_PCONCODFR3 6
+BEGIN
+ PROMPT 19 14 ""
+ FLAGS "B"
+ GROUP 5
+END
+
+NUMBER SC_PCONCODTO1 3
+BEGIN
+ PROMPT 31 14 "a conto "
+ GROUP 5
+END
+
+NUMBER SC_PCONCODTO2 3
+BEGIN
+ PROMPT 43 14 ""
+ GROUP 5
+END
+
+NUMBER SC_PCONCODTO3 6
+BEGIN
+ PROMPT 47 14 ""
+ FLAGS "B"
+ GROUP 5
+END
+
+STRING SC_PCONDESFR 50 40
+BEGIN
+ PROMPT 2 14 "Da descrizione "
+ GROUP 6
+ FLAGS "HB"
+END
+
+STRING SC_PCONDESTO 50 40
+BEGIN
+ PROMPT 2 15 "A descrizione "
+ GROUP 6
+ FLAGS "HB"
+END
+
+NUMBER SC_NSEL 3
+BEGIN
+ PROMPT 60 13 "N. "
+ FLAGS "D"
+END
+
+BOOLEAN F_SCADINFASCE
+BEGIN
+ PROMPT 2 16 "Scaduto suddiviso in fasce"
+ HELP "Selezionare se si vuole la stampa scaduto suddiviso in fasce"
+ MESSAGE TRUE ENABLE,10@
+ MESSAGE FALSE RESET,10@|DISABLE,10@
+END
+
+TEXT DLG_NULL
+BEGIN
+ PROMPT 2 17 "Giorni fascia"
+ GROUP 10
+END
+
+NUMBER F_SCADFASCE1 2
+BEGIN
+ PROMPT 20 17 "1 "
+ GROUP 10
+END
+
+NUMBER F_SCADFASCE2 2
+BEGIN
+ PROMPT 25 17 "2 "
+ GROUP 10
+END
+
+NUMBER F_SCADFASCE3 2
+BEGIN
+ PROMPT 30 17 "2 "
+ GROUP 10
+END
+
+NUMBER F_SCADFASCE4 2
+BEGIN
+ PROMPT 35 17 "2 "
+ GROUP 10
+END
+
+NUMBER F_SCADFASCE5 2
+BEGIN
+ PROMPT 40 17 "5 "
+ GROUP 10
+END
+
+NUMBER F_SCADFASCE6 2
+BEGIN
+ PROMPT 45 17 "6 "
+ GROUP 10
+END
+
+NUMBER F_SCADFASCE7 2
+BEGIN
+ PROMPT 50 17 "7 "
+ GROUP 10
+END
+
+NUMBER F_SCADFASCE8 2
+BEGIN
+ PROMPT 55 17 "8 "
+ GROUP 10
+END
+
+NUMBER F_SCADFASCE9 2
+BEGIN
+ PROMPT 60 17 "9 "
+ GROUP 10
+END
+
+BOOLEAN F_ASCADINFASCE
+BEGIN
+ PROMPT 2 18 "A scadere suddiviso in fasce"
+ HELP "Selezionare se si vuole la stampa a scadere suddiviso in fasce"
+ MESSAGE TRUE ENABLE,11@
+ MESSAGE FALSE RESET,11@|DISABLE,11@
+END
+
+TEXT DLG_NULL
+BEGIN
+ PROMPT 2 19 "Giorni fascia"
+ GROUP 11
+END
+
+NUMBER F_ASCADFASCE1 2
+BEGIN
+ PROMPT 20 19 "1 "
+ GROUP 11
+END
+
+NUMBER F_ASCADFASCE2 2
+BEGIN
+ PROMPT 25 19 "2 "
+ GROUP 11
+END
+
+NUMBER F_ASCADFASCE3 2
+BEGIN
+ PROMPT 30 19 "3 "
+ GROUP 11
+END
+
+NUMBER F_ASCADFASCE4 2
+BEGIN
+ PROMPT 35 19 "4 "
+ GROUP 11
+END
+
+NUMBER F_ASCADFASCE5 2
+BEGIN
+ PROMPT 40 19 "5 "
+ GROUP 11
+END
+
+NUMBER F_ASCADFASCE6 2
+BEGIN
+ PROMPT 45 19 "6 "
+ GROUP 11
+END
+
+NUMBER F_ASCADFASCE7 2
+BEGIN
+ PROMPT 50 19 "7 "
+ GROUP 11
+END
+
+NUMBER F_ASCADFASCE8 2
+BEGIN
+ PROMPT 55 19 "8 "
+ GROUP 11
+END
+
+NUMBER F_ASCADFASCE9 2
+BEGIN
+ PROMPT 60 19 "9 "
+ GROUP 11
+END
+
+STRING DLG_PROFILE 50
+BEGIN
+ PROMPT 2 -2 "Profilo "
+ PSELECT
+END
+
+ENDPAGE
+ENDMASK