Patch level : 12.0 1096
Files correlati : xvaga.dll ba0100m.msk Commento : Aggiornata maschera di configurazione impostazioni email e aggiunta la possibilità di mettere il mittente in Ccn
This commit is contained in:
Macchina_Compilatrice
parent
4fe321d849
commit
3195480088
4
cd/test/sy1096.txt
Normal file
4
cd/test/sy1096.txt
Normal file
@ -0,0 +1,4 @@
|
||||
Aggiornata maschera di configurazione impostazioni email e aggiunta la possibilità di mettere il mittente in Ccn
|
||||
|
||||
xvaga.dll
|
||||
ba0100m.msk
|
||||
25
cd/test/sy1096a.ini
Normal file
25
cd/test/sy1096a.ini
Normal file
@ -0,0 +1,25 @@
|
||||
[Main]
|
||||
Demo=0
|
||||
|
||||
[sy1]
|
||||
File(55) = xvaga.dll|X
|
||||
File(57) = ba0100m.msk|X
|
||||
Patch = 1096
|
||||
Versione = 21511200
|
||||
|
||||
[sy99]
|
||||
Kill(0) = setup\teamviewerqs_it.exe|x
|
||||
|
||||
[sy]
|
||||
Data = 26-10-2021
|
||||
Descrizione = Sistema
|
||||
Dischi = 1
|
||||
Moduli =
|
||||
OEM =
|
||||
Patch = 1096
|
||||
PostProcess =
|
||||
PreProcess =
|
||||
Prezzo(1) =
|
||||
Prezzo(2) =
|
||||
Versione = 21511200
|
||||
|
||||
BIN
cd/test/sy1096a1.zip
Normal file
BIN
cd/test/sy1096a1.zip
Normal file
Binary file not shown.
246
src/include/repapp.cpp
Normal file
246
src/include/repapp.cpp
Normal file
@ -0,0 +1,246 @@
|
||||
#include <repapp.h>
|
||||
#include <utility.h>
|
||||
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TReport_application
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
bool TReport_application::create()
|
||||
{
|
||||
bool ok = user_create();
|
||||
if (ok)
|
||||
return TSkeleton_application::create();
|
||||
return false;
|
||||
}
|
||||
|
||||
|
||||
bool TReport_application::destroy()
|
||||
{
|
||||
user_destroy();
|
||||
return TSkeleton_application::destroy();
|
||||
}
|
||||
|
||||
void TReport_application::ini2mask(TConfig& ini, TMask& m, bool query)
|
||||
{
|
||||
const TString16 defpar = ini.get_paragraph();
|
||||
TString tmp;
|
||||
|
||||
for (int f = m.fields()-1; f >= 0; f--)
|
||||
{
|
||||
TMask_field& campo = m.fld(f);
|
||||
const TFieldref* fref = campo.field();
|
||||
if (fref)
|
||||
{
|
||||
if (!query || campo.in_key(0))
|
||||
{
|
||||
const TString& str = fref->read(ini, defpar);
|
||||
if (str.not_empty())
|
||||
{
|
||||
campo.set(str);
|
||||
if (query)
|
||||
{
|
||||
tmp.format("%d=%s", campo.dlg(), (const char *) str);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
ini.set_paragraph(defpar);
|
||||
}
|
||||
void TReport_application::mask2ini(const TMask& m, TConfig& ini)
|
||||
{
|
||||
ini.set("Firm", get_firm(), "Transaction");
|
||||
ini.set("User", user());
|
||||
ini.set("HostName", get_hostname());
|
||||
|
||||
int year, release, tag, patch;
|
||||
if (get_version_info(year, release, tag, patch))
|
||||
{
|
||||
TString80 ver;
|
||||
ver.format("%d %d.%d-%d", year, release, tag, patch);
|
||||
ini.set("Version", ver);
|
||||
}
|
||||
|
||||
for (int f = 0; f < m.fields(); f++)
|
||||
{
|
||||
TMask_field& campo = m.fld(f);
|
||||
if (campo.shown())
|
||||
{
|
||||
const TFieldref* fr = campo.field();
|
||||
if (fr)
|
||||
{
|
||||
if (campo.empty())
|
||||
fr->write(ini, "Main", " ");
|
||||
else
|
||||
{
|
||||
if (campo.class_id() == CLASS_DATE_FIELD && campo.right_justified())
|
||||
{
|
||||
const TDate d(campo.get());
|
||||
fr->write(ini, "Main", d.string(ANSI));
|
||||
}
|
||||
else
|
||||
fr->write(ini, "Main", campo.get());
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
ini.set_paragraph("Main"); // Reimposta paragrafo standard
|
||||
}
|
||||
|
||||
// @cmember Esegue la stampa
|
||||
void TReport_application::execute_print(TReport_book & book, TAutomask & mask, TReport & rep, export_type type)
|
||||
{
|
||||
book.add(rep, type);
|
||||
}
|
||||
|
||||
TTrec * TReport_application::get_dbase_recdesc(TReport & rep)
|
||||
{
|
||||
TTrec * desc = new TTrec;
|
||||
TReport_section * head = rep.find_section('H', 0);
|
||||
int header_row = -1;
|
||||
TToken_string key;
|
||||
int nfields = 0;
|
||||
int hrow = 0;
|
||||
|
||||
if (head != nullptr)
|
||||
{
|
||||
int secfields = head->items();
|
||||
|
||||
for (int i = secfields - 1; hrow == 0 && i >= 0; i--)
|
||||
{
|
||||
const TReport_field & fld = head->field(i);
|
||||
const TReport_rct& r = fld.get_rect();
|
||||
|
||||
if ((r.x < 1500) && (fld.type() == 'T'))
|
||||
hrow = r.y;
|
||||
}
|
||||
|
||||
TString fieldname;
|
||||
|
||||
for (int i = 0; i < secfields; i++)
|
||||
{
|
||||
const TReport_field & fld = head->field(i);
|
||||
const TReport_rct& r = fld.get_rect();
|
||||
|
||||
if ((r.y >= hrow - 50) && (r.y <= hrow + 50) && (fld.type() == 'T'))
|
||||
{
|
||||
fieldname = fld.formatted_text();
|
||||
fieldname.cut(9);
|
||||
fieldname.strip_spaces();
|
||||
fieldname.upper();
|
||||
|
||||
if (nfields == 0)
|
||||
key = fieldname;
|
||||
|
||||
const int nf = desc->fields();
|
||||
TString f;
|
||||
TToken_string def;
|
||||
bool found = false;
|
||||
|
||||
for (int n = nf - 1; !found && n >= 0; n--)
|
||||
{
|
||||
|
||||
def = desc->fielddef(n);
|
||||
f = def.get(0);
|
||||
if (f.starts_with(fieldname))
|
||||
{
|
||||
fieldname << atoi(f.mid(fieldname.len())) + 1;
|
||||
found = true;
|
||||
}
|
||||
}
|
||||
def = fieldname;
|
||||
def.add(_alfafld);
|
||||
def.add(80);
|
||||
desc->set_fields(nfields);
|
||||
desc->update_fielddef(nfields++, def);
|
||||
}
|
||||
}
|
||||
desc->set_keys(1);
|
||||
desc->update_keydef(0, key);
|
||||
}
|
||||
return desc;
|
||||
}
|
||||
|
||||
// @cmember Ciclo principale
|
||||
void TReport_application::main_loop()
|
||||
{
|
||||
TAutomask & m = get_mask();
|
||||
KEY k;
|
||||
|
||||
while ((k = m.run()) != K_QUIT)
|
||||
{
|
||||
TReport & rep = get_report(m);
|
||||
TReport_book b(title());
|
||||
TFilename name = get_filename(rep);
|
||||
bool ask_filename = name.blank();
|
||||
export_type type = _export_printer;
|
||||
|
||||
switch (k)
|
||||
{
|
||||
case K_EXCEL:
|
||||
type = _export_excel;
|
||||
break;
|
||||
case K_PDF:
|
||||
type = _export_pdf;
|
||||
break;
|
||||
case K_TEXT:
|
||||
type = _export_text;
|
||||
break;
|
||||
case K_DBF:
|
||||
type = _export_dbase;
|
||||
break;
|
||||
case K_VISUALIZE:
|
||||
type = _export_visualize;
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
|
||||
}
|
||||
execute_print(b, m, rep, type);
|
||||
switch (k)
|
||||
{
|
||||
case K_ENTER:
|
||||
case K_PRINT:
|
||||
b.print_or_preview();
|
||||
break;
|
||||
case K_EXPORT:
|
||||
b.esporta();
|
||||
break;
|
||||
case K_EXCEL:
|
||||
b.export_excel(name, false, true, ask_filename);
|
||||
break;
|
||||
case K_PDF:
|
||||
b.export_pdf(name, false, true, ask_filename);
|
||||
break;
|
||||
case K_TEXT:
|
||||
b.export_text(name, false, true, ask_filename);
|
||||
break;
|
||||
case K_DBF :
|
||||
b.export_dbase(name, false, get_dbase_recdesc(rep), true, ask_filename);
|
||||
break;
|
||||
case K_VISUALIZE:
|
||||
b.preview();
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
const char * TReport_application::get_filename(const TReport & rep)
|
||||
{
|
||||
short id = output_id();
|
||||
TFilename output;
|
||||
|
||||
if (id > 0)
|
||||
output = get_mask().get(id);
|
||||
else
|
||||
output.tempdir();
|
||||
output.add(output_name(rep));
|
||||
|
||||
TString & str = get_tmp_string(output.len());
|
||||
|
||||
str = output;
|
||||
return str;
|
||||
}
|
||||
72
src/include/repapp.h
Normal file
72
src/include/repapp.h
Normal file
@ -0,0 +1,72 @@
|
||||
#ifndef __REPAPP_H
|
||||
#define __REPAPP_H
|
||||
|
||||
#ifndef __APPLICAT_H
|
||||
#include <applicat.h>
|
||||
#endif
|
||||
|
||||
#ifndef __CONFIG_H
|
||||
#include <config.h>
|
||||
#endif
|
||||
|
||||
#ifndef __REPRINT_H
|
||||
#include <reprint.h>
|
||||
#endif
|
||||
|
||||
#ifndef __AUTOMASK_H
|
||||
#include <automask.h>
|
||||
#endif
|
||||
|
||||
// @doc EXTERNAL
|
||||
|
||||
// @class TReport_application | Classe per la gestione di una applicazione di stampa con report
|
||||
//
|
||||
// @base public | TApplication
|
||||
class TReport_application : public TSkeleton_application
|
||||
|
||||
// @author:(INTERNAL) Guido
|
||||
|
||||
// @access:(INTERNAL) Private Member
|
||||
{
|
||||
|
||||
|
||||
private:
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
|
||||
// @access Protected Member
|
||||
protected: // TApplication
|
||||
virtual bool firm_change_enabled() const { return true; }
|
||||
// @cmember Aggiorna i limiti di ricerca sul cambio ditta
|
||||
virtual void on_firm_change() { return TApplication::on_firm_change(); }
|
||||
// @cmember Ritorna il report
|
||||
virtual TReport & get_report(const TAutomask & m) pure;
|
||||
// @cmember Alloca e ritorna il report una volta usato va distrutto;
|
||||
virtual TTrec * get_dbase_recdesc(TReport & rep);
|
||||
// @cmember Ciclo principale
|
||||
virtual void main_loop();
|
||||
// @cmember Inizializzazione dei dati dell'utente
|
||||
virtual bool user_create() { return true; }
|
||||
// @cmember Distruzione dei dati dell'utente
|
||||
virtual bool user_destroy() { return true; }
|
||||
// @cmember ritorna la maschera
|
||||
virtual TAutomask & get_mask() pure;
|
||||
|
||||
void ini2mask(TConfig& ini, TMask& m, bool query);
|
||||
void mask2ini(const TMask& m, TConfig& ini);
|
||||
virtual void execute_print(TReport_book & book, TAutomask & mask, TReport & rep, export_type type = _export_printer);
|
||||
|
||||
public:
|
||||
virtual const char * title() const { return "Report application"; }
|
||||
virtual short output_id() const { return 0; }
|
||||
virtual const char * output_name(const TReport & rep) const { return rep.filename().name_only(); }
|
||||
const char * get_filename(const TReport & rep);
|
||||
// @cmember Costruttore
|
||||
TReport_application() { }
|
||||
// @cmember Distruttore
|
||||
virtual ~TReport_application() { }
|
||||
};
|
||||
|
||||
#endif
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user