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

Patch level : 12.00 1400

Browse Source 
Files correlati     : ca3.exe ca3A00.msk ca3A00a.rep ca3A00b.rep ca3A00c.rep ca0500a.msk

Commento                :
Stampa prospetto enti di ricerca
This commit is contained in:
Alessandro Bonazzi 2025-12-13 19:56:52 +01:00
parent c6f38c9deb
commit 486e299864
11 changed files with 1197 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/ca/ca0500a.h
View File

@ -9,6 +9,7 @@
#define H_CDC_MAG 207
#define F_CDC_DEP 208
#define F_CDC_DESCDEP 209
#define F_CDC_TIPCOS 210
#define F_CDCPDA1 601
#define F_CDCPDA4 605

29
src/ca/ca0500a.uml
View File

@ -37,10 +37,25 @@ BEGIN
FIELD APPOGGIO
END
LIST F_CDC_TIPCOS 2 54
BEGIN
PROMPT 2 18 "Tipo di costo "
ITEM " |Escluso"
ITEM "1|Attività non economiche"
ITEM "2|Locazione attrezzature a imprese"
ITEM "3|Fornitura di servizi a imprese e prestazioni tariffate"
ITEM "4|Contratti di ricerca commissionata"
ITEM "5|Trasferimento delle conoscenze"
ITEM "6|Altre attività economiche"
ITEM "7|Servizi e funzioni comuni"
ITEM "8|Valori non attribuibili"
FIELD TIPCOS
END
STRING F_CDC_MAG 3
BEGIN
FLAGS "U"
PROMPT 2 18 "Magazzino "
PROMPT 2 19 "Magazzino "
FIELD CODMAG[1,3]
USE MAG SELECT CODTAB[4,5]==""
INPUT CODTAB F_CDC_MAG
@ -52,19 +67,19 @@ BEGIN
MESSAGE EMPTY CLEAR,F_CDC_DEP
MESSAGE ENABLE,F_CDC_DEP
CHECKTYPE NORMAL
GROUP 1
GROUP 1
END
STRING F_CDC_DESCMAG 70 45
BEGIN
FLAGS "D"
PROMPT 32 18 ""
PROMPT 32 19 ""
END
BOOL H_CDC_MAG
BEGIN
FLAGS "HG"
PROMPT 2 18 "divisione in dep"
PROMPT 2 19 "divisione in dep"
MESSAGE FALSE CLEAR,F_CDC_DEP
MESSAGE TRUE ENABLE,F_CDC_DEP
END
@ -72,7 +87,7 @@ END
STRING F_CDC_DEP 2
BEGIN
FLAGS "U"
PROMPT 2 19 "Deposito "
PROMPT 2 20 "Deposito "
FIELD CODMAG[4,5]
USE MAG SELECT CODTAB[4,5]!=""
INPUT CODTAB[1,3] F_CDC_MAG SELECT
@ -82,14 +97,14 @@ BEGIN
OUTPUT F_CDC_MAG CODTAB[1,3]
OUTPUT F_CDC_DEP CODTAB[4,5]
OUTPUT F_CDC_DESCDEP S0
GROUP 1
GROUP 1
CHECKTYPE NORMAL
END
STRING F_CDC_DESCDEP 70 45
BEGIN
FLAGS "D"
PROMPT 32 19 ""
PROMPT 32 20 ""
END
ENDPAGE

1
src/ca/ca3.cpp
View File

@ -15,6 +15,7 @@ int main(int argc, char** argv)
case 6: ca3700(argc, argv); break; // stampa rendiconto
case 7: ca3800(argc, argv); break; // stampa bilancio di commessa per esercizio
case 8: ca3900(argc, argv); break; // stampa stima ricavi
case 9: ca3A00(argc, argv); break; // stampa
default:ca3100(argc, argv); break; // stampa movimenti
}
return 0;

1
src/ca/ca3.h
View File

@ -10,5 +10,6 @@ int ca3600(int argc, char* argv[]);
int ca3700(int argc, char* argv[]);
int ca3800(int argc, char* argv[]);
int ca3900(int argc, char* argv[]);
int ca3A00(int argc, char* argv[]);
#endif // __CA3_H

522
src/ca/ca3A00.cpp Normal file
View File

@ -0,0 +1,522 @@
#include <applicat.h>
#include <defmask.h>
#include <execp.h>
#include <golem.h>
#include <progind.h>
#include <repapp.h>
#include <textset.h>
#include <utility.h>
#include <doc.h>
#include <rdoc.h>
#include <partite.h>
#include "../cg/cglib.h"
#include "../ve/velib04.h"
#include "..\cg\cgsaldac.h"
#include "cdc.h"
#include "commesse.h"
#include "fasi.h"
#include "panapdc.h"
#include "pconana.h"
#include "pconti.h"
#include "movana.h"
#include "rmovana.h"
#include "saldana.h"
#include "ca3.h"
#include "ca3A00.h"
#include "calib01.h"
#include "calib02.h"
#define PROSP_LETTERA "LETTIVD"
#define PROSP_NUM "NUMIVD"
#define PROSP_SUB "SUBIVD"
#define PROSP_DESCR "DESCR"
#define PROSP_NONECON "NONECON"
#define PROSP_ATTREZZ "ATTREZZ"
#define PROSP_SERVIZI "SERVIZI"
#define PROSP_CONTR "CONTR"
#define PROSP_TRACON "TRACON"
#define PROSP_ALTRE "ALTRE"
#define PROSP_SERVCOM "SERVCOM"
#define PROSP_NONATTR "NONATTR"
#define PROSP_TOTALE "TOTALE"
#define PROSP_MOVIM "MOVIM"
////////////////////////////////////////////////////////
// MASCHERA
////////////////////////////////////////////////////////
class TPrint_prosp_ricerca_ca_mask : public TAnal_report_mask
{
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
const TString& get_report_class() const;
TPrint_prosp_ricerca_ca_mask() : TAnal_report_mask("ca3A00") {}
virtual ~TPrint_prosp_ricerca_ca_mask() = default;
};
bool TPrint_prosp_ricerca_ca_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
{
case F_TIPOSTAMPA:
if (e == fe_init || e == fe_modify)
set_report_class();
break;
case DLG_REPORT:
if (e == fe_init)
set_report_class();
break;
case F_DATAINI:
case F_DATAFIN:
if (e == fe_close)
{
const int anno = get_int(F_ANNO);
if (anno > 0) //se viene selezionato un esercizio..
{
TEsercizi_contabili esc; //..le date devono essere incluse nell'esercizio selezionato!
const TDate data = o.get();
if (!data.empty() && esc.date2esc(data) != anno)
return error_box(TR("La data deve appartenere all'anno selezionato"));
}
}
break;
default:
break;
}
return TAnal_report_mask::on_field_event(o, e, jolly);
}
const TString& TPrint_prosp_ricerca_ca_mask::get_report_class() const
{
TString& classe = get_tmp_string();
const int tipostampa = get_int(F_TIPOSTAMPA);
switch (tipostampa)
{
case 2: classe = "ca3A00c"; break;
case 1: classe = "ca3A00a"; break;
case 0:
default: classe = "ca3A00b"; break;
}
return classe;
}
///////////////////////////////////////////////////////////////
// RECORDSET
///////////////////////////////////////////////////////////////
class TPrint_prosp_ricerca_ca_recordset : public TISAM_recordset
{
int _anno;
TDate _dadata, _adata;
TTrec * _prosptrec;
TAssoc_array _ratrisc;
TPrint_prosp_ricerca_ca_mask * _mask;
TLog_report * _log;
protected:
void crea_filtro_rmovana(TRectype& da_rmovana, TRectype& a_rmovana, TString& filtro);
void crea_trr(const TFilename& trr);
bool is_causale_rateo_risconto(const char* codcaus) const;
virtual void requery();
public: //da libreria
virtual const TVariant& get(const char* column_name) const;
public:
TTrec * prosptrec() const { return _prosptrec; }
TPrint_prosp_ricerca_ca_recordset(TPrint_prosp_ricerca_ca_mask * mask, TLog_report * log, const char * sql = "USE PROSP.DBF")
: TISAM_recordset(sql), _mask(mask), _log(log), _prosptrec(nullptr) { }
~TPrint_prosp_ricerca_ca_recordset() { safe_delete(_prosptrec); }
};
const TVariant& TPrint_prosp_ricerca_ca_recordset::get(const char* column_name) const
{
return TISAM_recordset::get(column_name);
}
//controlla se la causale passata e' di tipo rateo/risconto
bool TPrint_prosp_ricerca_ca_recordset::is_causale_rateo_risconto(const char* codcaus) const
{
return _ratrisc.objptr(codcaus) != nullptr;
}
//nuovo modo di costruire il filtro e darec arec, da quando esistono le chiavi per codcm e codcdc su lf_rmovana
void TPrint_prosp_ricerca_ca_recordset::crea_filtro_rmovana(TRectype& da_rmovana, TRectype& a_rmovana, TString& filtro)
{
TDate dal, al;
//intanto sistema darec arec
//se siamo fortunati l'anno si può trovare così..
int anno = _mask->get_int(F_ANNO);
if (anno > 0)
{
TEsercizi_contabili esc;
esc.code2range(anno, dal, al);
}
if (_dadata.ok())
dal = _dadata;
if (_adata.ok())
al = _adata;
if (dal.ok() || al.ok())
filtro << "(BETWEEN(DATACOMP," << dal.date2ansi() << ',' << al.date2ansi() << "))";
}
void TPrint_prosp_ricerca_ca_recordset::crea_trr(const TFilename& trr)
{
ofstream of(trr);
of << 1000 << endl;
of << 14 << endl;
of << PROSP_LETTERA << "|1|1|0|Lettera IV direttiva" << endl;
of << PROSP_NUM << "|2|2|0|Numero arabo IV direttiva" << endl;
of << PROSP_SUB << "|2|6|0|Sub IV direttiva" << endl;
of << PROSP_DESCR << "|1|70|0|Descrizione" << endl;
of << PROSP_NONECON << "|4|18|2|Attività non economiche" << endl;
of << PROSP_ATTREZZ << "|4|18|2|Locazione attrezzature a imprese" << endl;
of << PROSP_SERVIZI << "|4|18|2|Fornitura di servizi a imprese e prestazioni tariffate" << endl;
of << PROSP_CONTR << "|4|18|2|Contratti di ricerca commissionata" << endl;
of << PROSP_TRACON << "|4|18|2|Trasferimento delle conoscenze" << endl;
of << PROSP_ALTRE << "|4|18|2|Altre attività economiche" << endl;
of << PROSP_SERVCOM << "|4|18|2|Servizi e funzioni comuni" << endl;
of << PROSP_NONATTR << "|4|18|2|Valori non attribuibili" << endl;
of << PROSP_TOTALE << "|4|18|2|Totale riga" << endl;
of << PROSP_MOVIM << "|8|1||Movimentato" << endl;
of << 1 << endl;
of << PROSP_LETTERA << "+" << PROSP_NUM << "+" << PROSP_SUB << endl;
of.close();
ifstream ifile (trr);
safe_delete(_prosptrec);
_prosptrec = new TTrec();
_prosptrec->read_from(ifile);
}
void TPrint_prosp_ricerca_ca_recordset::requery()
{
//se esiste il file temporano con tracciato persomalizzato lo cancella e lo ricrea vuoto
TFilename trr; //file tracciato record
trr.tempdir();
trr.add("prosp");
TFilename dbf(trr); //file dati
trr.ext("trr");
dbf.ext("dbf");
//crea il file .trr in base ai parametri del metodo
crea_trr(trr);
//crea in memoria il nuovo file temporaneo e lo azzera (non si sa mai..)
TExternisamfile tmp(dbf, trr, true);
TRectype& tmp_rec = tmp.curr();
tmp.zap();
// popola il file con la IVa direttiva
TCursor cur_ivd(new TRelation("%IVD"));
const TRecnotype ivd_items = cur_ivd.items();
const TRectype & curr_ivd = cur_ivd.curr();
cur_ivd.freeze();
for (cur_ivd = 0L; !cur_ivd.eoc(); ++cur_ivd)
{
const TString& codtab = curr_ivd.get("CODTAB");
if (codtab.sleft(1) == "9" && codtab.smid(1, 1) != "9" && atoi(codtab.smid(6, 2)) != 0)
{
tmp_rec.zero();
tmp_rec.put(PROSP_LETTERA, codtab.smid(1, 1));
tmp_rec.put(PROSP_NUM, codtab.smid(6, 2));
tmp_rec.put(PROSP_SUB, codtab.smid(8, 6));
tmp_rec.put(PROSP_DESCR, curr_ivd.get("S0"));
int err = tmp_rec.write(tmp);
if (err != NOERR && err != _isreinsert)
_log->log(2, format(FR("Errore %d nella creazione della tabella"), err));
}
}
//prende un po' di dati dalla maschera...
const bool movimentati = _mask->get_bool(F_SKIPNULL);
TRelation rel_rmovana(LF_RMOVANA);
TRectype da_rmovana(LF_RMOVANA);
TRectype a_rmovana(LF_RMOVANA);
TString filtro;
crea_filtro_rmovana(da_rmovana, a_rmovana, filtro);
TCursor cur_rmovana(&rel_rmovana, filtro, 3, &da_rmovana, &a_rmovana);
const TRecnotype rmovana_items = cur_rmovana.items();
//scorre le righe movimenti di analitica che soddisfano il filtro
//il join a movana serve nel caso necessitino dati di testata per la riga in questione
cur_rmovana.freeze();
if (rmovana_items > 0)
{
const TRectype& rmovana = cur_rmovana.curr();
TProgress_monitor pi((long)rmovana_items, "Scansione righe movimenti...", true);
TConfig& cfg = ca_config();
const bool use_pdcc = cfg.get_bool("UsePdcc");
const int tipostampa = _mask->get_int(F_TIPOSTAMPA);
for (cur_rmovana = 0; pi.addstatus(1) && cur_rmovana.pos() < rmovana_items; ++cur_rmovana)
{
TString conto = rmovana.get(RMOVANA_CODCONTO);
TImporto importo(rmovana.get_char(RMOVANA_SEZIONE), rmovana.get_real(RMOVANA_IMPORTO));
const TString codivd;
TToken_string key;
importo.normalize('A');
tmp_rec.zero();
if (!use_pdcc)
{
key = conto;
key.add(1);
const TRectype & panapdc_rec = cache().get(LF_PANAPDC, key);
if (panapdc_rec.full())
conto = format("%03d%03d", panapdc_rec.get(PANAPDC_GRUPPO),
panapdc_rec.get(PANAPDC_CONTO),
panapdc_rec.get(PANAPDC_SOTTOCONTO));
else
conto = "";
}
key = conto.sleft(3);
key.add(conto.smid(3, 3));
key.add(conto.smid(6));
const TRectype & pcon_rec = cache().get(LF_PCON, key);
const bool opposto = importo.valore() < ZERO && pcon_rec.get_int(PCN_SEZIVDOPP) > 0;
tmp_rec.put(PROSP_LETTERA, opposto ? pcon_rec.get(PCN_LETTIVDOPP) : pcon_rec.get(PCN_LETTIVD));
tmp_rec.put(PROSP_NUM, opposto ? pcon_rec.get(PCN_NUMIVDOPP).sleft(2) : pcon_rec.get(PCN_NUMIVD).sleft(2));
tmp_rec.put(PROSP_SUB, opposto ? pcon_rec.get(PCN_NUMIVDOPP).smid(2) : pcon_rec.get(PCN_NUMIVD).smid(2));
if (tmp_rec.read(tmp, _isequal) == NOERR)
{
const TString cdc = rmovana.get(RMOVANA_CODCCOSTO);
const TRectype & cdc_rec = cache().get(LF_CDC, cdc);
const int tipocosto = cdc_rec.get_int(CDC_TIPCOS);
if (tipocosto > 0 && !importo.is_zero())
{
tmp_rec.put(PROSP_MOVIM, true);
if ( tipostampa != 0 || tipocosto != 6)
tmp_rec.add(PROSP_TOTALE, importo.valore());
switch (tipocosto)
{
case 1:
tmp_rec.add(PROSP_NONECON, importo.valore());
break;
case 2:
tmp_rec.add(PROSP_SERVIZI, importo.valore());
break;
case 3:
tmp_rec.add(PROSP_CONTR, importo.valore());
break;
case 4:
tmp_rec.add(PROSP_TRACON, importo.valore());
break;
case 5:
tmp_rec.add(PROSP_ALTRE, importo.valore());
break;
case 6:
tmp_rec.add(PROSP_SERVCOM, importo.valore());
break;
case 7:
tmp_rec.add(PROSP_NONATTR, importo.valore());
break;
case 8:
tmp_rec.add(PROSP_MOVIM, importo.valore());
break;
default:
break;
}
int err = tmp_rec.rewrite(tmp);
if (err != NOERR)
_log->log(2, format(FR("Errore %d nell'aggiornamento della tabella"), err));
}
}
}
if (movimentati)
{
TCursor temp(new TRelation(&tmp));
const int tmp_items = temp.items();
TRectype & temp_rec = temp.curr();
for (temp = 0L; !temp.eoc(); ++temp)
{
if (!temp_rec.get_bool(PROSP_MOVIM))
temp_rec.remove();
}
}
}
}
////////////////////////////////////////////////////////
// REPORT
////////////////////////////////////////////////////////
class TPrint_prosp_ricerca_ca_rep : public TAnal_report
{
TLog_report *_log;
TPrint_prosp_ricerca_ca_mask * _mask;
protected:
virtual bool get_usr_val(const TString& name, TVariant& var) const override;
virtual void set_dbase_fixed_fields(bool on = true) override;
public:
virtual bool set_recordset(const TString& sql = "USE PROSP.DBF") override;
virtual const char * get_excel_disabled_field() override { return "H0.201|H0.202|H0.203|H0.204|H0.205|H0.206|H0.207"; }
TLog_report& log() { return *_log; }
TPrint_prosp_ricerca_ca_rep(TPrint_prosp_ricerca_ca_mask * _mask);
~TPrint_prosp_ricerca_ca_rep();
};
bool TPrint_prosp_ricerca_ca_rep::get_usr_val(const TString& name, TVariant& var) const
{
return TAnal_report::get_usr_val(name, var);
}
void TPrint_prosp_ricerca_ca_rep::set_dbase_fixed_fields(bool on)
{
/* field("B1.201")->show(on);
field("B1.202")->show(on);
field("B1.203")->show(on);
field("B1.204")->show(on);
field("B1.100")->show(!on);
field("B1.102")->show(!on); // perchè non va '
field("B1.104")->show(!on);*/
}
bool TPrint_prosp_ricerca_ca_rep::set_recordset(const TString& sql)
{
TPrint_prosp_ricerca_ca_recordset* rs = new TPrint_prosp_ricerca_ca_recordset(_mask, _log, sql);
return TAnal_report::set_recordset(rs);
}
TPrint_prosp_ricerca_ca_rep::TPrint_prosp_ricerca_ca_rep(TPrint_prosp_ricerca_ca_mask * mask) : _mask(mask)
{
//log report con segnalazioni su errori (tipo conti inesistenti o robaccia simile..)
_log = new TLog_report(TR("Errori rilevati"));
_log->kill_duplicates();
}
TPrint_prosp_ricerca_ca_rep::~TPrint_prosp_ricerca_ca_rep()
{
safe_delete(_log);
}
////////////////////////////////////////////////////////
// APPLICAZIONE
////////////////////////////////////////////////////////
class TPrint_prosp_ricerca_ca : public TReport_application
{
TPrint_prosp_ricerca_ca_mask* _msk;
TPrint_prosp_ricerca_ca_rep * _rep;
protected:
virtual TReport & get_report(const TAutomask & m);
virtual TTrec * get_dbase_recdesc(TReport & rep, const TAutomask & mask);
virtual TAutomask & get_mask();
virtual void execute_print(TReport_book & book, TAutomask & mask, TReport & rep, export_type & type);
virtual const char * output_name(const TAutomask & mask, const TReport & rep) const { return "rend"; }
// @cmember Distruzione dei dati dell'utente
virtual bool user_destroy();
public:
TPrint_prosp_ricerca_ca() : _msk(nullptr), _rep(nullptr) {}
~TPrint_prosp_ricerca_ca() {}
};
TReport & TPrint_prosp_ricerca_ca::get_report(const TAutomask & m)
{
if (_rep == nullptr)
_rep = new TPrint_prosp_ricerca_ca_rep(((TPrint_prosp_ricerca_ca_mask *)&m));
_rep->load(_msk->get(DLG_REPORT));
return *_rep;
}
TAutomask & TPrint_prosp_ricerca_ca::get_mask()
{
if (_msk == nullptr)
_msk = new TPrint_prosp_ricerca_ca_mask;
return *_msk;
}
TTrec * TPrint_prosp_ricerca_ca::get_dbase_recdesc(TReport & rep, const TAutomask & mask)
{
TXmltrec * desc = new TXmltrec;
desc->add_fielddef(PROSP_LETTERA, _alfafld, 1, 0, "Lettera IV direttiva");
desc->add_fielddef(PROSP_NUM, _intfld, 2, 0, "Numero arabo IV direttiva");
desc->add_fielddef(PROSP_SUB, _intfld, 6, 0, "Sub IV direttiva");
desc->add_fielddef(PROSP_DESCR, _alfafld, 70, 0, "Descrizione");
desc->add_fielddef(PROSP_NONECON, _realfld, 18, 2, "Attività non economiche");
desc->add_fielddef(PROSP_ATTREZZ, _realfld, 18, 2, "Locazione attrezzature a imprese");
desc->add_fielddef(PROSP_SERVIZI, _realfld, 18, 2, "Fornitura di servizi a imprese e prestazioni tariffate");
desc->add_fielddef(PROSP_CONTR, _realfld, 18, 2, "Contratti di ricerca commissionata");
desc->add_fielddef(PROSP_TRACON, _realfld, 18, 2, "Trasferimento delle conoscenze");
desc->add_fielddef(PROSP_ALTRE, _realfld, 18, 2, "Altre attività economiche");
desc->add_fielddef(PROSP_SERVCOM, _realfld, 18, 2, "Servizi e funzioni comuni");
desc->add_fielddef(PROSP_NONATTR, _realfld, 18, 2, "Valori non attribuibili");
desc->add_fielddef(PROSP_TOTALE, _realfld, 18, 2, "Totale riga");
desc->add_fielddef(PROSP_MOVIM, _boolfld, 1, 0, "Movimentato");
TToken_string keydef(PROSP_LETTERA, '+');
keydef.add(PROSP_NUM);
keydef.add(PROSP_SUB);
desc->add_keydef(keydef, true);
return desc;
}
void TPrint_prosp_ricerca_ca::execute_print(TReport_book & book, TAutomask & mask, TReport & rep, export_type & type)
{
TPrint_prosp_ricerca_ca_rep & ca_rep = (TPrint_prosp_ricerca_ca_rep &)rep;
TPrint_prosp_ricerca_ca_mask & ca_mask = (TPrint_prosp_ricerca_ca_mask &)mask;
ca_rep.set_recordset();
TString video_string; //stringa che compare nella progind
TDate dataini, datafin;
const int anno = mask.get_int(F_ANNO);
rep.set_export_sections(type);
book.add(rep); //aggiunge il report relativo alla cdc/cms corrente al book
rep.reset_export_sections();
//anteprima report degli errori rilevati
if (ca_rep.log().recordset()->items() > 0)
ca_rep.log().preview();
}
bool TPrint_prosp_ricerca_ca::user_destroy()
{
safe_delete(_msk);
safe_delete(_rep);
return TReport_application::user_destroy();
}
int ca3A00(int argc, char* argv[])
{
TPrint_prosp_ricerca_ca a;
a.run(argc, argv, TR("Stampa prospetto enti di ricerca"));
return 0;
}

15
src/ca/ca3A00.h Normal file
View File

@ -0,0 +1,15 @@
#ifndef __CA3A00_H
#define __CA3A00_H
//pagina 1
#define F_CODDITTA 101
#define F_RAGSOC 102
#define F_DATASTAMPA 103
#define F_ANNO 104
#define F_DATAINI 105
#define F_DATAFIN 106
#define F_TIPOSTAMPA 107
#define F_SKIPNULL 108
#endif // __CA3A00_H

84
src/ca/ca3A00.uml Normal file
View File

@ -0,0 +1,84 @@
#include "ca3A00.h"
#include "camask.h"
#define ALL_EXPORT
#define REPORT
#define CLASS_NAME "ca3A00"
TOOLBAR "topbar" 0 0 0 2
#include <aprintbar.h>
ENDPAGE
TOOLBAR "bottombar" 0 -3 0 1
#include <bprintbar.h>
ENDPAGE
PAGE "Prospetto enti di ricerca" 0 2 0 0
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
END
STRING F_RAGSOC 50
BEGIN
PROMPT 15 1 ""
FLAGS "D"
END
DATE F_DATASTAMPA
BEGIN
PROMPT 1 3 "Data stampa "
FLAGS "A"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 35 3 "Esercizio "
USE ESC
INPUT CODTAB F_ANNO
DISPLAY "Codice Esercizio" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio " D1
OUTPUT F_ANNO CODTAB
CHECKTYPE REQUIRED
FLAGS "RZ"
ADD NONE
END
DATE F_DATAINI
BEGIN
PROMPT 1 6 "Dalla data "
END
DATE F_DATAFIN
BEGIN
PROMPT 35 6 "Alla data "
END
LIST F_TIPOSTAMPA 1 37
BEGIN
PROMPT 1 9 "Tipo di stampa "
ITEM " |Stampa per attività senza allocazione"
ITEM "1|Stampa per attività con allocazione"
ITEM "2|Stampa riepologativa"
END
BOOLEAN F_SKIPNULL
BEGIN
PROMPT 1 12 "Non stampare conti a zero"
END
ENDPAGE
ENDMASK

209
src/ca/ca3A00a.rep Normal file
View File

@ -0,0 +1,209 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="ca3A00a" class="ca3A00a" command="" lpi="6" libraries="" use_printer_font="" save_printer="" orientation="2" page_split="" page_merge="">
<description>Prospetto enti di ricerca con allocazione</description>
<font face="Courier New" size="8" />
<section type="Head" level="" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="">
<field type="Testo" id="" y="2.5" width="170" height="3" dynamic_height="" hidden="" deactivated="" hide_zero="" align="center" border="1" radius="100" pattern="2" shade_offset="25" text="ALLEGATO A" codval="" link="">
<font face="Courier New" size="14" bold="1" />
</field>
<field type="Testo" id="" x="2" y="3.5" width="166" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="center" valign="center" pattern="1" shade_offset="" text="CONTO ECONOMICO SEPARATO PER ATTIVITA&apos; CON ALLOCAZIONE DI SERVIZI E FUNZIONI COMUNI" codval="" link="">
<font face="Courier New" size="14" bold="1" />
</field>
<field type="Linea" id="" y="6" width="170" height="0" dynamic_height="" hidden="" deactivated="" hide_zero="" border="2" pattern="1" shade_offset="" text="" codval="" link="" />
<field type="Linea" id="" y="8.75" width="170" height="0" dynamic_height="" hidden="" deactivated="" hide_zero="" border="2" pattern="1" shade_offset="" text="" codval="" link="" />
<field type="Testo" id="101" y="6.5" width="12" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="Codice" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="102" x="6" y="6.5" width="25" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="Descrizione" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="104" x="32" y="6.5" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Totale" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="105" x="47.75" y="6.5" width="15" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Non economiche" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="106" x="62.5" y="6.5" width="15" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Attrezzature" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="107" x="77.75" y="6.5" width="15" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Servizi" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="108" x="93" y="6.5" width="15" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Contratti" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="109" x="108.25" y="6.5" width="15" height="3" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Trasferimento delle conscenze" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="110" x="123.5" y="6.5" width="15" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Altre" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="111" x="138.75" y="6.5" width="15" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Servizi comuni" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="112" x="154" y="6.5" width="15" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Non attribuiti" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Stringa" id="201" y="0.5" width="50" height="1.2" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<source>#SYSTEM.RAGSOC</source>
</field>
<field type="Testo" id="202" x="139.5" y="0.5" width="15" height="1.2" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="Data stampa" codval="" link="">
<font face="Courier New" size="8" italic="1" />
</field>
<field type="Data" id="203" x="154.5" y="0.5" width="15" height="1.2" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<source>#SYSTEM.DATE</source>
</field>
</section>
<section type="Head" level="1" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="" />
<section type="Head" level="2" height="3" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="">
<groupby>LETTIVD</groupby>
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2.104
MESSAGE RESET,F2.105
MESSAGE RESET,F2.106
MESSAGE RESET,F2.107
MESSAGE RESET,F2.108
MESSAGE RESET,F2.109
MESSAGE RESET,F2.110
MESSAGE RESET,F2.111
MESSAGE RESET,F2.112
</prescript>
<field type="Testo" id="" x="2" width="1" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text=")" codval="" link="" />
<field type="Linea" id="" y="1.25" width="170" height="0" dynamic_height="" hidden="" deactivated="" hide_zero="" border="2" pattern="1" shade_offset="" text="" codval="" link="" />
<field type="Stringa" id="101" x="1" width="1" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<source>LETTIVD</source>
<postscript description="H2.101 POSTSCRIPT">MESSAGE COPY,F2.101</postscript>
</field>
<field type="Stringa" id="102" x="4" width="2" dynamic_height="" hidden="1" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<prescript description="H2.102 PRESCRIPT">&quot;9&quot; #101 @
+
#THIS !</prescript>
</field>
<field type="Stringa" id="103" x="6" width="70" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<prescript description="H2.103 PRESCRIPT">MESSAGE _TABLEREAD,%IVD,#102,S0
</prescript>
<postscript description="H2.103 POSTSCRIPT">MESSAGE COPY,F2.103</postscript>
</field>
</section>
<section type="Body" level="" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="" />
<section type="Body" level="1" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="1" keep_with_next="" repeat="">
<field type="Stringa" id="101" x="1" width="5" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<font face="Courier New" size="7" />
<source>NUMIVD</source>
<postscript description="B1.101 POSTSCRIPT">&quot;SUBIVD&quot; @
0
&lt;&gt;
IF
#THIS @
&quot; &quot; +
&quot;SUBIVD&quot; @
+
#THIS !
THEN</postscript>
</field>
<field type="Stringa" id="102" x="6" width="25" height="3" dynamic_height="1" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<font face="Courier New" size="7" />
<source>DESCR</source>
</field>
<field type="Valuta" id="104" x="32" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>TOTALE</source>
<prescript description="B1.104 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM
</prescript>
<postscript description="B1.104 POSTSCRIPT">MESSAGE ADD,F2.104</postscript>
</field>
<field type="Valuta" id="105" x="47.25" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>NONECON</source>
<prescript description="B1.105 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM</prescript>
<postscript description="B1.105 POSTSCRIPT">MESSAGE ADD,F2.105</postscript>
</field>
<field type="Valuta" id="106" x="62.5" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>ATTREZZ</source>
<prescript description="B1.106 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM
</prescript>
<postscript description="B1.106 POSTSCRIPT">MESSAGE ADD,F2.106</postscript>
</field>
<field type="Valuta" id="107" x="77.75" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>SERVIZI</source>
<prescript description="B1.107 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM
</prescript>
<postscript description="B1.107 POSTSCRIPT">MESSAGE ADD,F2.107</postscript>
</field>
<field type="Valuta" id="108" x="93" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>CONTR</source>
<prescript description="B1.108 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM
</prescript>
<postscript description="B1.108 POSTSCRIPT">MESSAGE ADD,F2.108</postscript>
</field>
<field type="Valuta" id="109" x="108.25" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>TRACON</source>
<prescript description="B1.109 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM</prescript>
<postscript description="B1.109 POSTSCRIPT">MESSAGE ADD,F2.109</postscript>
</field>
<field type="Valuta" id="110" x="123.5" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>ALTRE</source>
<prescript description="B1.110 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM
</prescript>
<postscript description="B1.110 POSTSCRIPT">MESSAGE ADD,F2.110</postscript>
</field>
<field type="Valuta" id="111" x="138.75" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>SERVCOM</source>
<prescript description="B1.111 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM
</prescript>
<postscript description="B1.111 POSTSCRIPT">MESSAGE ADD,F2.111</postscript>
</field>
<field type="Valuta" id="112" x="154" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>NONATTR</source>
<prescript description="B1.112 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM
</prescript>
<postscript description="B1.112 POSTSCRIPT">MESSAGE ADD,F2.112</postscript>
</field>
</section>
<section type="Foot" level="" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="" />
<section type="Foot" level="1" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="">
<field type="Valuta" id="111" x="144" y="5" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="112" x="160" y="5" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
</section>
<section type="Foot" level="2" height="5" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="">
<field type="Linea" id="" y="0.5" width="170" height="0" dynamic_height="" hidden="" deactivated="" hide_zero="" border="2" pattern="1" shade_offset="" text="" codval="" link="" />
<field type="Stringa" id="103" x="6" y="1" width="25" height="3" dynamic_height="1" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="" />
<field type="Valuta" id="104" x="32" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="105" x="47.25" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="106" x="62.5" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="107" x="77.75" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="108" x="93" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="109" x="108.25" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="110" x="123.5" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="111" x="138.75" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="112" x="154" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
</section>
</report>

196
src/ca/ca3A00b.rep Normal file
View File

@ -0,0 +1,196 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="ca3A00b" class="ca3A00b" command="" lpi="6" libraries="" use_printer_font="" save_printer="" orientation="2" page_split="" page_merge="">
<description>Prospetto enti di ricerca senza allocazione</description>
<font face="Courier New" size="8" />
<section type="Head" level="" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="">
<field type="Testo" id="" y="2.5" width="155" height="3" dynamic_height="" hidden="" deactivated="" hide_zero="" align="center" border="1" radius="100" pattern="2" shade_offset="25" text="ALLEGATO A" codval="" link="">
<font face="Courier New" size="14" bold="1" />
</field>
<field type="Testo" id="" x="2" y="3.5" width="151" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="center" valign="center" pattern="1" shade_offset="" text="CONTO ECONOMICO SEPARATO PER ATTIVITA&apos; SENZA ALLOCAZIONE DI SERVIZI E FUNZIONI COMUNI" codval="" link="">
<font face="Courier New" size="14" bold="1" />
</field>
<field type="Linea" id="" y="6" width="155" height="0" dynamic_height="" hidden="" deactivated="" hide_zero="" border="2" pattern="1" shade_offset="" text="" codval="" link="" />
<field type="Linea" id="" y="8.75" width="155" height="0" dynamic_height="" hidden="" deactivated="" hide_zero="" border="2" pattern="1" shade_offset="" text="" codval="" link="" />
<field type="Testo" id="101" y="6.5" width="12" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="Codice" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="102" x="6" y="6.5" width="25" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="Descrizione" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="104" x="32" y="6.5" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Totale" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="105" x="47.75" y="6.5" width="15" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Non economiche" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="106" x="62.5" y="6.5" width="15" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Attrezzature" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="107" x="77.75" y="6.5" width="15" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Servizi" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="108" x="93" y="6.5" width="15" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Contratti" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="109" x="108.25" y="6.5" width="15" height="3" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Trasferimento delle conscenze" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="110" x="123.5" y="6.5" width="15" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Altre" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="112" x="138.75" y="6.5" width="15" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Non attribuiti" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Stringa" id="201" y="0.5" width="50" height="1.2" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<source>#SYSTEM.RAGSOC</source>
</field>
<field type="Testo" id="202" x="120.5" y="0.5" width="15" height="1.2" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="Data stampa" codval="" link="">
<font face="Courier New" size="8" italic="1" />
</field>
<field type="Data" id="203" x="139.5" y="0.5" width="15" height="1.2" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<source>#SYSTEM.DATE</source>
</field>
</section>
<section type="Head" level="1" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="" />
<section type="Head" level="2" height="3" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="">
<groupby>LETTIVD</groupby>
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2.104
MESSAGE RESET,F2.105
MESSAGE RESET,F2.106
MESSAGE RESET,F2.107
MESSAGE RESET,F2.108
MESSAGE RESET,F2.109
MESSAGE RESET,F2.110
MESSAGE RESET,F2.111
MESSAGE RESET,F2.112
</prescript>
<field type="Testo" id="" x="2" width="1" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text=")" codval="" link="" />
<field type="Linea" id="" y="1.25" width="155" height="0" dynamic_height="" hidden="" deactivated="" hide_zero="" border="2" pattern="1" shade_offset="" text="" codval="" link="" />
<field type="Stringa" id="101" x="1" width="1" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<source>LETTIVD</source>
<postscript description="H2.101 POSTSCRIPT">MESSAGE COPY,F2.101</postscript>
</field>
<field type="Stringa" id="102" x="4" width="2" dynamic_height="" hidden="1" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<prescript description="H2.102 PRESCRIPT">&quot;9&quot; #101 @
+
#THIS !</prescript>
</field>
<field type="Stringa" id="103" x="6" width="70" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<prescript description="H2.103 PRESCRIPT">MESSAGE _TABLEREAD,%IVD,#102,S0
</prescript>
<postscript description="H2.103 POSTSCRIPT">MESSAGE COPY,F2.103</postscript>
</field>
</section>
<section type="Body" level="" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="" />
<section type="Body" level="1" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="1" keep_with_next="" repeat="">
<field type="Stringa" id="101" x="1" width="5" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<font face="Courier New" size="7" />
<source>NUMIVD</source>
<postscript description="B1.101 POSTSCRIPT">&quot;SUBIVD&quot; @
0
&lt;&gt;
IF
#THIS @
&quot; &quot; +
&quot;SUBIVD&quot; @
+
#THIS !
THEN</postscript>
</field>
<field type="Stringa" id="102" x="6" width="25" height="3" dynamic_height="1" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<font face="Courier New" size="7" />
<source>DESCR</source>
</field>
<field type="Valuta" id="104" x="32" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>TOTALE</source>
<prescript description="B1.104 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM
</prescript>
<postscript description="B1.104 POSTSCRIPT">MESSAGE ADD,F2.104</postscript>
</field>
<field type="Valuta" id="105" x="47.25" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>NONECON</source>
<prescript description="B1.105 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM</prescript>
<postscript description="B1.105 POSTSCRIPT">MESSAGE ADD,F2.105</postscript>
</field>
<field type="Valuta" id="106" x="62.5" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>ATTREZZ</source>
<prescript description="B1.106 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM
</prescript>
<postscript description="B1.106 POSTSCRIPT">MESSAGE ADD,F2.106</postscript>
</field>
<field type="Valuta" id="107" x="77.75" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>SERVIZI</source>
<prescript description="B1.107 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM
</prescript>
<postscript description="B1.107 POSTSCRIPT">MESSAGE ADD,F2.107</postscript>
</field>
<field type="Valuta" id="108" x="93" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>CONTR</source>
<prescript description="B1.108 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM
</prescript>
<postscript description="B1.108 POSTSCRIPT">MESSAGE ADD,F2.108</postscript>
</field>
<field type="Valuta" id="109" x="108.25" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>TRACON</source>
<prescript description="B1.109 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM</prescript>
<postscript description="B1.109 POSTSCRIPT">MESSAGE ADD,F2.109</postscript>
</field>
<field type="Valuta" id="110" x="123.5" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>ALTRE</source>
<prescript description="B1.110 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM
</prescript>
<postscript description="B1.110 POSTSCRIPT">MESSAGE ADD,F2.110</postscript>
</field>
<field type="Valuta" id="112" x="138.75" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>NONATTR</source>
<prescript description="B1.112 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM
</prescript>
<postscript description="B1.112 POSTSCRIPT">MESSAGE ADD,F2.112</postscript>
</field>
</section>
<section type="Foot" level="" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="" />
<section type="Foot" level="1" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="">
<field type="Valuta" id="111" x="144" y="5" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="112" x="160" y="5" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
</section>
<section type="Foot" level="2" height="5" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="">
<field type="Linea" id="" y="0.5" width="155" height="0" dynamic_height="" hidden="" deactivated="" hide_zero="" border="2" pattern="1" shade_offset="" text="" codval="" link="" />
<field type="Stringa" id="103" x="6" y="1" width="25" height="3" dynamic_height="1" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="" />
<field type="Valuta" id="104" x="32" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="105" x="47.25" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="106" x="62.5" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="107" x="77.75" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="108" x="93" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="109" x="108.25" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="110" x="123.5" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="112" x="138.75" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
</section>
</report>

145
src/ca/ca3A00c.rep Normal file
View File

@ -0,0 +1,145 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="ca3A00c" class="ca3A00c" command="" lpi="6" libraries="" use_printer_font="" save_printer="" orientation="2" page_split="" page_merge="">
<description>Prospetto enti di ricerca sintetico</description>
<font face="Courier New" size="8" />
<section type="Head" level="" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="">
<field type="Testo" id="" y="2.5" width="95" height="3" dynamic_height="" hidden="" deactivated="" hide_zero="" align="center" border="1" radius="100" pattern="2" shade_offset="25" text="ALLEGATO A" codval="" link="">
<font face="Courier New" size="14" bold="1" />
</field>
<field type="Testo" id="" x="2" y="3.5" width="91" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="center" valign="center" pattern="1" shade_offset="" text="CONTO ECONOMICO RIEPILOGATIVO" codval="" link="">
<font face="Courier New" size="14" bold="1" />
</field>
<field type="Linea" id="" y="6" width="95" height="0" dynamic_height="" hidden="" deactivated="" hide_zero="" border="2" pattern="1" shade_offset="" text="" codval="" link="" />
<field type="Linea" id="" y="8.75" width="95" height="0" dynamic_height="" hidden="" deactivated="" hide_zero="" border="2" pattern="1" shade_offset="" text="" codval="" link="" />
<field type="Testo" id="101" y="6.5" width="12" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="Codice" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="102" x="6" y="6.5" width="25" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="Descrizione" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="104" x="32" y="6.5" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Totale" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="105" x="47.75" y="6.5" width="15" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Non economiche" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="106" x="62.5" y="6.5" width="15" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Attivit&agrave; economiche" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Testo" id="106" x="78" y="6.5" width="15" height="2" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="Non attribuiti" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Stringa" id="201" y="0.5" width="50" height="1.2" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<source>#SYSTEM.RAGSOC</source>
</field>
<field type="Testo" id="202" x="64.5" y="0.5" width="15" height="1.2" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="Data stampa" codval="" link="">
<font face="Courier New" size="8" italic="1" />
</field>
<field type="Data" id="203" x="79.5" y="0.5" width="15" height="1.2" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<source>#SYSTEM.DATE</source>
</field>
</section>
<section type="Head" level="1" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="" />
<section type="Head" level="2" height="3" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="">
<groupby>LETTIVD</groupby>
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2.104
MESSAGE RESET,F2.105
MESSAGE RESET,F2.106
MESSAGE RESET,F2.107
MESSAGE RESET,F2.108
MESSAGE RESET,F2.109
MESSAGE RESET,F2.110
MESSAGE RESET,F2.111
MESSAGE RESET,F2.112
</prescript>
<field type="Testo" id="" x="2" width="1" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text=")" codval="" link="" />
<field type="Linea" id="" y="1.25" width="170" height="0" dynamic_height="" hidden="" deactivated="" hide_zero="" border="2" pattern="1" shade_offset="" text="" codval="" link="" />
<field type="Stringa" id="101" x="1" width="1" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<source>LETTIVD</source>
<postscript description="H2.101 POSTSCRIPT">MESSAGE COPY,F2.101</postscript>
</field>
<field type="Stringa" id="102" x="4" width="2" dynamic_height="" hidden="1" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<prescript description="H2.102 PRESCRIPT">&quot;9&quot; #101 @
+
#THIS !</prescript>
</field>
<field type="Stringa" id="103" x="6" width="70" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<prescript description="H2.103 PRESCRIPT">MESSAGE _TABLEREAD,%IVD,#102,S0
</prescript>
<postscript description="H2.103 POSTSCRIPT">MESSAGE COPY,F2.103</postscript>
</field>
</section>
<section type="Body" level="" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="" />
<section type="Body" level="1" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="1" keep_with_next="" repeat="">
<field type="Stringa" id="101" x="1" width="5" dynamic_height="" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<font face="Courier New" size="7" />
<source>NUMIVD</source>
<postscript description="B1.101 POSTSCRIPT">&quot;SUBIVD&quot; @
0
&lt;&gt;
IF
#THIS @
&quot; &quot; +
&quot;SUBIVD&quot; @
+
#THIS !
THEN</postscript>
</field>
<field type="Stringa" id="102" x="6" width="25" height="3" dynamic_height="1" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="">
<font face="Courier New" size="7" />
<source>DESCR</source>
</field>
<field type="Valuta" id="104" x="32" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>TOTALE</source>
<prescript description="B1.104 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM
</prescript>
<postscript description="B1.104 POSTSCRIPT">MESSAGE ADD,F2.104</postscript>
</field>
<field type="Valuta" id="105" x="47.25" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>NONECON</source>
<prescript description="B1.105 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM</prescript>
<postscript description="B1.105 POSTSCRIPT">MESSAGE ADD,F2.105</postscript>
</field>
<field type="Valuta" id="106" x="62.5" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>ATTREZZ+SERVIZI+CONTR+TRACON+ALTRE+SERVCOM</source>
<prescript description="B1.106 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM
</prescript>
<postscript description="B1.106 POSTSCRIPT">MESSAGE ADD,F2.106</postscript>
</field>
<field type="Valuta" id="112" x="77.75" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
<source>NONATTR</source>
<prescript description="B1.112 PRESCRIPT">MESSAGE _ALIGN,#102,BOTTOM
</prescript>
<postscript description="B1.112 POSTSCRIPT">MESSAGE ADD,F2.112</postscript>
</field>
</section>
<section type="Foot" level="" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="" />
<section type="Foot" level="1" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="">
<field type="Valuta" id="111" x="144" y="5" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="112" x="160" y="5" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
</section>
<section type="Foot" level="2" height="5" pattern="1" hidden="" deactivated="" hidden_if_needed="" page_break="" can_break="" keep_with_next="" repeat="">
<field type="Linea" id="" y="0.5" width="95" height="0" dynamic_height="" hidden="" deactivated="" hide_zero="" border="2" pattern="1" shade_offset="" text="" codval="" link="" />
<field type="Stringa" id="103" x="6" y="1" width="25" height="3" dynamic_height="1" hidden="" deactivated="" hide_zero="" pattern="1" shade_offset="" text="" codval="" link="" />
<field type="Valuta" id="104" x="32" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="105" x="47.25" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="106" x="62.5" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
<field type="Valuta" id="112" x="77.75" y="1" width="15" dynamic_height="" hidden="" deactivated="" hide_zero="1" align="right" pattern="1" shade_offset="" text="###.###.###,@@" codval="" link="">
<font face="Courier New" size="7" />
</field>
</section>
</report>

1
src/ca/cdc.h
View File

@ -8,5 +8,6 @@
#define CDC_GESTFASI "GESTFASI"
#define CDC_APPOGGIO "APPOGGIO"
#define CDC_CODCONTO "CODCONTO"
#define CDC_TIPCOS "TIPCOS"
#endif