7164ce314e
Files correlati : ba2.exe ba2200.msk ba6100a.msk ba6300a.msk Ricompilazione Demo : [ ] Commento : 0001336: Backup Se nel campo directory imposto una directory che non esiste (con l'intenzione quindi di fargliela creare la pgm stesso) la procedura và in errore. Aggiunte toolbar moderne. git-svn-id: svn://10.65.10.50/trunk@18920 c028cbd2-c16b-5b4b-a496-9718f37d4682
92 lines
1.4 KiB
C++
Executable File
92 lines
1.4 KiB
C++
Executable File
//Programma per la stampa anagrafiche utilizzando i files .rep (21/06/2004)
|
|
|
|
#include <applicat.h>
|
|
#include <mask.h>
|
|
#include <reprint.h>
|
|
|
|
#include "ba6300a.h"
|
|
|
|
class TPrint_anagraph : public TSkeleton_application
|
|
{
|
|
TMask* _mask;
|
|
|
|
protected:
|
|
virtual void main_loop();
|
|
virtual bool create();
|
|
virtual bool destroy();
|
|
|
|
public:
|
|
bool get_rep_name(TFilename& repname) const;
|
|
};
|
|
|
|
|
|
bool TPrint_anagraph::create()
|
|
{
|
|
_mask = new TMask("ba6300a");
|
|
return TSkeleton_application::create();
|
|
}
|
|
|
|
bool TPrint_anagraph::destroy()
|
|
{
|
|
delete _mask;
|
|
return TSkeleton_application::destroy();
|
|
}
|
|
|
|
bool TPrint_anagraph::get_rep_name(TFilename& repname) const
|
|
{
|
|
return repname.custom_path();
|
|
}
|
|
|
|
void TPrint_anagraph::main_loop()
|
|
{
|
|
KEY key = K_ENTER;
|
|
while (key != K_QUIT)
|
|
{
|
|
key = _mask->run();
|
|
TFilename rep_name = _mask->get(F_PERSREP);
|
|
if (rep_name.empty())
|
|
{
|
|
rep_name = "ba63";
|
|
rep_name << _mask->get(F_TIPOSTAMPA);
|
|
rep_name << _mask->get(F_TIPO);
|
|
}
|
|
rep_name.ext("rep");
|
|
|
|
if (rep_name.custom_path())
|
|
{
|
|
TReport rep; rep.load(rep_name);
|
|
TReport_book book;
|
|
book.add(rep);
|
|
book.print_or_preview();
|
|
}
|
|
else
|
|
error_box(FR("Il file %s non esiste"), (const char*)rep_name);
|
|
}
|
|
}
|
|
|
|
|
|
int ba6300(int argc, char* argv[])
|
|
{
|
|
TPrint_anagraph app;
|
|
app.run(argc, argv, TR("Stampa Anagrafiche"));
|
|
return 0;
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|