Patch level : 1.7 at
Files correlati : at5.exe at5600a.msk Ricompilazione Demo : [ ] Commento : aggiunta stampa disponibili in aferesi git-svn-id: svn://10.65.10.50/trunk@12517 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris
parent
7dfd0bf514
commit
badb0c3231
@ -4,7 +4,7 @@
|
|||||||
|
|
||||||
#include "at5.h"
|
#include "at5.h"
|
||||||
|
|
||||||
#define usage "Error - usage : %s -[0|1|2|3|4]"
|
#define usage "Error - usage : %s -[0|1|2|4|5]"
|
||||||
|
|
||||||
int main(int argc, char** argv)
|
int main(int argc, char** argv)
|
||||||
{
|
{
|
||||||
@ -23,6 +23,8 @@ int main(int argc, char** argv)
|
|||||||
//rt = at5400(argc, argv); break;
|
//rt = at5400(argc, argv); break;
|
||||||
case 4:
|
case 4:
|
||||||
rt = at5500(argc, argv); break;
|
rt = at5500(argc, argv); break;
|
||||||
|
case 5:
|
||||||
|
rt = at5600(argc, argv); break;
|
||||||
default:
|
default:
|
||||||
error_box(usage, argv[0]) ; rt = 1; break;
|
error_box(usage, argv[0]) ; rt = 1; break;
|
||||||
}
|
}
|
||||||
|
|||||||
1
at/at5.h
1
at/at5.h
@ -6,6 +6,7 @@ int at5200(int argc, char* argv[]); // situazione sanitaria
|
|||||||
int at5300(int argc, char* argv[]); // turni per controlli
|
int at5300(int argc, char* argv[]); // turni per controlli
|
||||||
//int at5400(int argc, char* argv[]); // stampa di controllo donazioni
|
//int at5400(int argc, char* argv[]); // stampa di controllo donazioni
|
||||||
int at5500(int argc, char* argv[]); // stampa scadenze per controlli
|
int at5500(int argc, char* argv[]); // stampa scadenze per controlli
|
||||||
|
int at5600(int argc, char* argv[]); // stampa disponibilita aferesi
|
||||||
|
|
||||||
#endif // __AT5_H
|
#endif // __AT5_H
|
||||||
|
|
||||||
|
|||||||
431
at/at5600.cpp
Executable file
431
at/at5600.cpp
Executable file
@ -0,0 +1,431 @@
|
|||||||
|
#include <form.h>
|
||||||
|
#include <mask.h>
|
||||||
|
#include <printapp.h>
|
||||||
|
#include <utility.h>
|
||||||
|
|
||||||
|
#include "soggetti.h"
|
||||||
|
#include "sezioni.h"
|
||||||
|
|
||||||
|
#include "at5.h"
|
||||||
|
#include "at5600a.h"
|
||||||
|
#include "atlib.h"
|
||||||
|
|
||||||
|
#define ALIAS_LCP 100
|
||||||
|
#define ALIAS_TCS 200
|
||||||
|
|
||||||
|
enum ts { undefined = 0, elenco = 1, etichette = 2 };
|
||||||
|
|
||||||
|
// definizione form per etichette
|
||||||
|
class TEti_disponibili_form : public TForm
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
|
||||||
|
virtual TCursor* cursor() const;
|
||||||
|
virtual TRelation* relation() const;
|
||||||
|
TPrint_section& get_body() { return section('B'); } ;
|
||||||
|
TEti_disponibili_form(): TForm() {};
|
||||||
|
TEti_disponibili_form(const char* form, const char * code = "", int editlevel = 0, const char* desc = "")
|
||||||
|
: TForm(form,code,editlevel,desc) {};
|
||||||
|
virtual ~TEti_disponibili_form() {};
|
||||||
|
};
|
||||||
|
|
||||||
|
class StampaDisponibili : public TPrintapp
|
||||||
|
{
|
||||||
|
TRelation* _rel;
|
||||||
|
TMask* _msk;
|
||||||
|
TEti_disponibili_form* _form_eti;
|
||||||
|
TAssoc_array _categorie;
|
||||||
|
TString16 _disp1, _disp2;
|
||||||
|
TParagraph_string _cognome_nome;
|
||||||
|
TDate _data_stampa;
|
||||||
|
ts _tipostampa;
|
||||||
|
TString16 _codsez, _codsot;
|
||||||
|
int _etlarghezza, _etcolonne, _stampa, _numdisp, _contatore, _totale;
|
||||||
|
|
||||||
|
static bool filter_func_disponibili(const TRelation* rel);
|
||||||
|
|
||||||
|
protected:
|
||||||
|
virtual bool user_create();
|
||||||
|
virtual bool user_destroy();
|
||||||
|
virtual bool set_print(int m);
|
||||||
|
virtual void set_page(int file, int cnt);
|
||||||
|
virtual bool preprocess_page(int file, int counter);
|
||||||
|
virtual print_action postprocess_print(int file, int counter);
|
||||||
|
|
||||||
|
public:
|
||||||
|
void crea_intestazione();
|
||||||
|
void filtra_sezioni();
|
||||||
|
void header_sezione(const TString16 codsez, const TString16 codsot);
|
||||||
|
void footer_sezione();
|
||||||
|
void fine_stampa();
|
||||||
|
TMask& app_mask() { return *_msk; }
|
||||||
|
StampaDisponibili() : _data_stampa(TODAY), _cognome_nome("",25) {}
|
||||||
|
};
|
||||||
|
|
||||||
|
HIDDEN inline StampaDisponibili& app() { return (StampaDisponibili&) main_app(); }
|
||||||
|
|
||||||
|
TCursor* TEti_disponibili_form::cursor() const { return app().current_cursor(); }
|
||||||
|
|
||||||
|
TRelation* TEti_disponibili_form::relation() const { return cursor()->relation(); }
|
||||||
|
|
||||||
|
void StampaDisponibili::fine_stampa()
|
||||||
|
{
|
||||||
|
// stampa totale soggetti a fine stampa
|
||||||
|
if (_tipostampa==elenco)
|
||||||
|
{
|
||||||
|
reset_footer();
|
||||||
|
TString sep(80);
|
||||||
|
sep.fill('-');
|
||||||
|
set_footer(2, (const char *) sep);
|
||||||
|
if (_totale > 0 && _totale != _contatore)
|
||||||
|
{
|
||||||
|
set_footer(3,"TOTALE SOGGETTI STAMPATI %d", _totale);
|
||||||
|
printer().formfeed();
|
||||||
|
}
|
||||||
|
reset_footer();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
void StampaDisponibili::footer_sezione()
|
||||||
|
{
|
||||||
|
// stampa totale soggetti appartenenti alla sezione
|
||||||
|
if (_tipostampa==elenco)
|
||||||
|
{
|
||||||
|
reset_footer();
|
||||||
|
TString sep(80);
|
||||||
|
sep.fill('-');
|
||||||
|
set_footer(2, (const char *) sep);
|
||||||
|
set_footer(3,"TOTALE SOGGETTI STAMPATI %d", _contatore);
|
||||||
|
printer().formfeed();
|
||||||
|
reset_footer();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
void StampaDisponibili::filtra_sezioni()
|
||||||
|
{
|
||||||
|
const TString16 sezini = _msk->get(F_SEZINI);
|
||||||
|
const TString16 sotini = _msk->get(F_SOTINI);
|
||||||
|
const TString16 sezfin = _msk->get(F_SEZFIN);
|
||||||
|
const TString16 sotfin = _msk->get(F_SOTFIN);
|
||||||
|
TRectype da(LF_SOGGETTI);
|
||||||
|
TRectype a(LF_SOGGETTI);
|
||||||
|
if (sezini.not_empty())
|
||||||
|
da.put(SOG_CODSEZ, sezini);
|
||||||
|
if (sotini.not_empty())
|
||||||
|
da.put(SOG_CODSOT, sotini);
|
||||||
|
if (sezfin.not_empty())
|
||||||
|
a.put(SOG_CODSEZ, sezfin);
|
||||||
|
if (sotfin.not_empty())
|
||||||
|
a.put(SOG_CODSOT, sotfin);
|
||||||
|
current_cursor()->setregion(da, a);
|
||||||
|
}
|
||||||
|
|
||||||
|
void StampaDisponibili::set_page(int file, int cnt)
|
||||||
|
{
|
||||||
|
// costruzione etichette
|
||||||
|
switch (_tipostampa)
|
||||||
|
{
|
||||||
|
case etichette:
|
||||||
|
{
|
||||||
|
TPrint_section& corpo = _form_eti->get_body();
|
||||||
|
for (int r=1;r<=_etcolonne;r++)
|
||||||
|
{
|
||||||
|
if (current_cursor()->pos()<current_cursor()->items())
|
||||||
|
{
|
||||||
|
force_setpage(TRUE);
|
||||||
|
corpo.update();
|
||||||
|
for (word i = 0; i < corpo.height(); i++)
|
||||||
|
{
|
||||||
|
TPrintrow& riga = corpo.row(i);
|
||||||
|
TString256 riga1 = riga.row();
|
||||||
|
riga1.cut(_etlarghezza);
|
||||||
|
int colonna = ((r-1)*_etlarghezza);
|
||||||
|
TString16 formato;
|
||||||
|
formato << '@' << colonna << "g";
|
||||||
|
riga1.insert(formato,0);
|
||||||
|
set_row(i+1,riga1);
|
||||||
|
}
|
||||||
|
if (r < _etcolonne)
|
||||||
|
++(*current_cursor());
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case elenco:
|
||||||
|
{
|
||||||
|
set_row(1,"@0g@pn", FLD(LF_SOGGETTI,SOG_CODICE,"########"));
|
||||||
|
set_row(2,"@0g@8,rs", FLD(LF_SOGGETTI,SOG_TESSAVIS));
|
||||||
|
set_row(1,"@9g@S", FLD(LF_SOGGETTI,SOG_CATDON));
|
||||||
|
set_row(1,"@12g#a", &_cognome_nome);
|
||||||
|
set_row(1,"@38g@ld", FLD(LF_SOGGETTI,SOG_DATANASC));
|
||||||
|
set_row(2,"@38g@S", FLD(LF_SOGGETTI,SOG_GRUPPOAB0));
|
||||||
|
set_row(2,"@45g@S", FLD(LF_SOGGETTI,SOG_RHANTID));
|
||||||
|
set_row(1,"@49g@ld", FLD(LF_SOGGETTI,SOG_DATASTATO)); // potremmo mettere anche datastato
|
||||||
|
set_row(1,"@60g@S", FLD(LF_SOGGETTI,SOG_IDON1));
|
||||||
|
set_row(1,"@63g@S", FLD(LF_SOGGETTI,SOG_IDON2));
|
||||||
|
set_row(2,"@60g@S", FLD(LF_SOGGETTI,SOG_IDON3));
|
||||||
|
set_row(2,"@63g@S", FLD(LF_SOGGETTI,SOG_IDON4));
|
||||||
|
set_row(2,"@52g@S", FLD(LF_SOGGETTI,SOG_STATO));
|
||||||
|
set_row(1,"@66g@pn", FLD(LF_SOGGETTI,SOG_INTSI,"###"));
|
||||||
|
set_row(2,"@66g@pn", FLD(LF_SOGGETTI,SOG_INTAF,"###"));
|
||||||
|
set_row(1,"@70g@ld", FLD(LF_SOGGETTI,SOG_DATAULTDON));
|
||||||
|
set_row(2,"@73g@S", FLD(LF_SOGGETTI,SOG_TIPOULTDON));
|
||||||
|
set_row(1,"@82g@S", FLD(LF_SOGGETTI,SOG_DISP_AF_1));
|
||||||
|
set_row(2,"@82g@S", FLD(LF_SOGGETTI,SOG_DISP_AF_2));
|
||||||
|
set_row(3,"");
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
bool StampaDisponibili::filter_func_disponibili(const TRelation * rel)
|
||||||
|
{
|
||||||
|
bool filtrato = TRUE;
|
||||||
|
TLocalisamfile& sog = rel->lfile();
|
||||||
|
// filtro per categorie
|
||||||
|
TAssoc_array& categorie = app()._categorie;
|
||||||
|
if (categorie.items() != 0)
|
||||||
|
{
|
||||||
|
const TString16 catsog = sog.get(SOG_CATDON);
|
||||||
|
filtrato = categorie.is_key((const char*) catsog);
|
||||||
|
}
|
||||||
|
// filtro per disponibilita
|
||||||
|
if (filtrato)
|
||||||
|
{
|
||||||
|
TAssoc_array disponibilita;
|
||||||
|
TString16 dispsog = sog.get(SOG_DISP_AF_1);
|
||||||
|
if (dispsog.not_empty())
|
||||||
|
disponibilita.add((const char*) dispsog);
|
||||||
|
dispsog = sog.get(SOG_DISP_AF_2);
|
||||||
|
if (dispsog.not_empty())
|
||||||
|
disponibilita.add((const char*) dispsog);
|
||||||
|
if (disponibilita.items() != 0)
|
||||||
|
{
|
||||||
|
if (app()._stampa < 2)
|
||||||
|
{
|
||||||
|
if (app()._disp1.not_empty())
|
||||||
|
filtrato = disponibilita.is_key((const char*) app()._disp1);
|
||||||
|
if (app()._disp2.not_empty())
|
||||||
|
filtrato = filtrato && disponibilita.is_key((const char*) app()._disp2);
|
||||||
|
if (app()._stampa == 1)
|
||||||
|
filtrato = (filtrato && (app()._numdisp == disponibilita.items()));
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if (app()._disp1.not_empty())
|
||||||
|
filtrato = disponibilita.is_key((const char*) app()._disp1);
|
||||||
|
if (app()._disp2.not_empty())
|
||||||
|
filtrato = filtrato || disponibilita.is_key((const char*) app()._disp2);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
if (!(app()._disp1.empty() && app()._disp2.empty()))
|
||||||
|
filtrato = FALSE;
|
||||||
|
}
|
||||||
|
return filtrato;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool StampaDisponibili::preprocess_page(int file, int counter)
|
||||||
|
{
|
||||||
|
if (_tipostampa == elenco)
|
||||||
|
{
|
||||||
|
TRectype& recsog = current_cursor()->curr();
|
||||||
|
TString80 nome = recsog.get(SOG_COGNOME);
|
||||||
|
nome << " ";
|
||||||
|
nome << recsog.get(SOG_NOME);
|
||||||
|
_cognome_nome = nome;
|
||||||
|
// salto pagina se cambio sezione
|
||||||
|
const TString16 codsez = recsog.get(SOG_CODSEZ);
|
||||||
|
const TString16 codsot = recsog.get(SOG_CODSOT);
|
||||||
|
if ((_codsez!=codsez)||(_codsot!=codsot))
|
||||||
|
{
|
||||||
|
if (_codsez != "**")
|
||||||
|
footer_sezione();
|
||||||
|
_contatore = 0;
|
||||||
|
_codsez = codsez;
|
||||||
|
_codsot = codsot;
|
||||||
|
header_sezione(codsez, codsot);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (_tipostampa==etichette)
|
||||||
|
if (printer().rows_left() < _form_eti->get_body().height())
|
||||||
|
printer().formfeed();
|
||||||
|
_contatore++;
|
||||||
|
_totale++;
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
print_action StampaDisponibili::postprocess_print(int file, int counter)
|
||||||
|
{
|
||||||
|
if (_contatore > 0)
|
||||||
|
footer_sezione();
|
||||||
|
fine_stampa();
|
||||||
|
return NEXT_PAGE;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
void StampaDisponibili::header_sezione(const TString16 codsez, const TString16 codsot)
|
||||||
|
{
|
||||||
|
const TString80 densez = current_cursor()->curr(LF_SEZIONI).get(SEZ_DENSEZ);
|
||||||
|
const TString80 densot = current_cursor()->curr(LF_SEZIONI).get(SEZ_DENSOT);
|
||||||
|
TString intestazione(80);
|
||||||
|
intestazione = "Sezione: ";
|
||||||
|
intestazione << codsez;
|
||||||
|
intestazione << "/";
|
||||||
|
intestazione << codsot;
|
||||||
|
intestazione << " ";
|
||||||
|
intestazione << densez;
|
||||||
|
if (densot.not_empty())
|
||||||
|
{
|
||||||
|
intestazione << "/";
|
||||||
|
intestazione << densot;
|
||||||
|
}
|
||||||
|
intestazione.center_just();
|
||||||
|
set_header(1,"@0g%s", (const char*) intestazione);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool StampaDisponibili::set_print(int m)
|
||||||
|
{
|
||||||
|
TPrinter& p = printer();
|
||||||
|
p.read_configuration();
|
||||||
|
_tipostampa = undefined;
|
||||||
|
KEY tasto;
|
||||||
|
tasto = _msk->run();
|
||||||
|
switch (tasto)
|
||||||
|
{
|
||||||
|
case F_ELENCO:
|
||||||
|
{
|
||||||
|
_tipostampa = elenco;
|
||||||
|
_codsez = "**";
|
||||||
|
_codsot = "**";
|
||||||
|
_contatore = 0;
|
||||||
|
_totale = 0;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case F_ETICHETTE:
|
||||||
|
_tipostampa = (configura_stampante(p, "AT_ETICHETTE", "etichette")) ? etichette : undefined;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
if (_tipostampa != undefined)
|
||||||
|
{
|
||||||
|
reset_files();
|
||||||
|
add_file(LF_SOGGETTI);
|
||||||
|
// filtro per sezioni selezionati
|
||||||
|
filtra_sezioni();
|
||||||
|
// filtro per categorie
|
||||||
|
_categorie.destroy();
|
||||||
|
const TString16 catpri = _msk->get(F_CAT1);
|
||||||
|
const TString16 catsec = _msk->get(F_CAT2);
|
||||||
|
const TString16 catter = _msk->get(F_CAT3);
|
||||||
|
const TString16 catqua = _msk->get(F_CAT4);
|
||||||
|
const TString16 catqui = _msk->get(F_CAT5);
|
||||||
|
const TString16 catses = _msk->get(F_CAT6);
|
||||||
|
if (catpri.not_empty())
|
||||||
|
_categorie.add((const char*) catpri);
|
||||||
|
if (catsec.not_empty())
|
||||||
|
_categorie.add((const char*) catsec);
|
||||||
|
if (catter.not_empty())
|
||||||
|
_categorie.add((const char*) catter);
|
||||||
|
if (catqua.not_empty())
|
||||||
|
_categorie.add((const char*) catqua);
|
||||||
|
if (catqui.not_empty())
|
||||||
|
_categorie.add((const char*) catqui);
|
||||||
|
if (catses.not_empty())
|
||||||
|
_categorie.add((const char*) catses);
|
||||||
|
// filtro per disponibilita
|
||||||
|
_disp1 = _msk->get(F_DISP1);
|
||||||
|
_disp2 = _msk->get(F_DISP2);
|
||||||
|
_stampa = _msk->get_int(F_STAMPA);
|
||||||
|
_numdisp = 0;
|
||||||
|
if (_disp1.not_empty())
|
||||||
|
_numdisp++;
|
||||||
|
if (_disp2.not_empty())
|
||||||
|
_numdisp++;
|
||||||
|
current_cursor()->set_filterfunction(filter_func_disponibili);
|
||||||
|
reset_print();
|
||||||
|
crea_intestazione();
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
return FALSE;
|
||||||
|
}
|
||||||
|
|
||||||
|
void StampaDisponibili::crea_intestazione()
|
||||||
|
{
|
||||||
|
reset_header();
|
||||||
|
if (_tipostampa == elenco)
|
||||||
|
{
|
||||||
|
TString sep(86);
|
||||||
|
sep = "ELENCO DISPONIBILI";
|
||||||
|
if (_disp1.not_empty())
|
||||||
|
{
|
||||||
|
sep << " per ";
|
||||||
|
sep << _disp1;
|
||||||
|
}
|
||||||
|
if (_disp2.not_empty())
|
||||||
|
{
|
||||||
|
sep << " ";
|
||||||
|
sep << _disp2;
|
||||||
|
}
|
||||||
|
switch (_stampa)
|
||||||
|
{
|
||||||
|
case 0:
|
||||||
|
sep << " - Tutte queste disp.";
|
||||||
|
break;
|
||||||
|
case 1:
|
||||||
|
sep << " - Esclusivamente queste disp.";
|
||||||
|
break;
|
||||||
|
case 2:
|
||||||
|
sep << " - Almeno una disp.";
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
sep.center_just();
|
||||||
|
set_header(2, "@0g%s", (const char*) sep);
|
||||||
|
const TString16 data_stampa = _data_stampa.string();
|
||||||
|
set_header(2,"@0g%10s", (const char*) data_stampa);
|
||||||
|
sep = "";
|
||||||
|
sep << "Pag. @#";
|
||||||
|
set_header(2, "@70g%s", (const char*) sep);
|
||||||
|
sep = "";
|
||||||
|
sep.fill('-');
|
||||||
|
set_header(3, (const char *) sep);
|
||||||
|
set_header(4,"@0gCodice@9gC.@12gCognome e nome@38gNato il@49gData stato@60gIdon.@66g SI@70gUltima don.@81gDisp.");
|
||||||
|
set_header(5,"@0gTessera@38gGruppo Rh@49g Stato@66g AF");
|
||||||
|
set_header(6,"@0g--------@9g--@12g-------------------------@38g----------@49g----------@60g-- --@66g---@70g----------@81g-----");
|
||||||
|
printer().footerlen(3);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
bool StampaDisponibili::user_create()
|
||||||
|
{
|
||||||
|
_rel = new TRelation(LF_SOGGETTI);
|
||||||
|
//_rel->add("TCS", "CODTAB==STATO",1,0,ALIAS_TCS);
|
||||||
|
_rel->add("LCP", "CODTAB==DOM_CODLOC",1,0,ALIAS_LCP);
|
||||||
|
_rel->add(LF_COMUNI, "COM==DOM_CODCOM");
|
||||||
|
_rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT");
|
||||||
|
add_cursor(new TCursor(_rel, "", 3));
|
||||||
|
_msk = new TMask("at5600a");
|
||||||
|
|
||||||
|
TConfig config(CONFIG_STUDIO);
|
||||||
|
TString16 etformato = config.get("EtFormato");
|
||||||
|
_etlarghezza = config.get_int("EtLarghezza");
|
||||||
|
_etcolonne = config.get_int("EtColonne");
|
||||||
|
_form_eti = new TEti_disponibili_form(etformato);
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool StampaDisponibili::user_destroy()
|
||||||
|
{
|
||||||
|
delete _form_eti;
|
||||||
|
delete _msk;
|
||||||
|
delete _rel;
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
int at5600(int argc, char* argv[])
|
||||||
|
{
|
||||||
|
StampaDisponibili a;
|
||||||
|
a.run(argc, argv, "Soggetti disponibili per aferesi");
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
33
at/at5600a.h
Executable file
33
at/at5600a.h
Executable file
@ -0,0 +1,33 @@
|
|||||||
|
// stampa soggetti disponibili alla donazione in aferesi
|
||||||
|
// definizione campi per maschera di selezione
|
||||||
|
|
||||||
|
#define F_SEZINI 101
|
||||||
|
#define F_D_SEZINI 102
|
||||||
|
#define F_SOTINI 103
|
||||||
|
#define F_D_SOTINI 104
|
||||||
|
#define F_SEZFIN 105
|
||||||
|
#define F_D_SEZFIN 106
|
||||||
|
#define F_SOTFIN 107
|
||||||
|
#define F_D_SOTFIN 108
|
||||||
|
|
||||||
|
#define F_CAT1 201
|
||||||
|
#define F_D_CAT1 202
|
||||||
|
#define F_CAT2 203
|
||||||
|
#define F_D_CAT2 204
|
||||||
|
#define F_CAT3 205
|
||||||
|
#define F_D_CAT3 206
|
||||||
|
#define F_CAT4 207
|
||||||
|
#define F_D_CAT4 208
|
||||||
|
#define F_CAT5 209
|
||||||
|
#define F_D_CAT5 210
|
||||||
|
#define F_CAT6 211
|
||||||
|
#define F_D_CAT6 212
|
||||||
|
|
||||||
|
#define F_DISP1 301
|
||||||
|
#define F_DISP2 302
|
||||||
|
#define F_D_DISP1 303
|
||||||
|
#define F_D_DISP2 304
|
||||||
|
#define F_STAMPA 305
|
||||||
|
|
||||||
|
#define F_ELENCO 401
|
||||||
|
#define F_ETICHETTE 402
|
||||||
324
at/at5600a.uml
Executable file
324
at/at5600a.uml
Executable file
@ -0,0 +1,324 @@
|
|||||||
|
#include "at5600a.h"
|
||||||
|
|
||||||
|
TOOLBAR "" 0 20 0 2
|
||||||
|
|
||||||
|
BUTTON F_ELENCO 9 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -13 -11 "E~lenco"
|
||||||
|
MESSAGE EXIT,F_ELENCO
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON F_ETICHETTE 9 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -23 -11 "~Etichette"
|
||||||
|
MESSAGE EXIT,F_ETICHETTE
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_QUIT 9 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -33 -11 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
PAGE "Stampa soggetti disponibili per aferesi" -1 -1 78 20
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 77 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 1 "Scelta sezioni/sottogruppi"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_SEZINI 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 2 "Da "
|
||||||
|
FLAGS "U"
|
||||||
|
USE LF_SEZIONI
|
||||||
|
INPUT CODSEZ F_SEZINI
|
||||||
|
INPUT CODSOT F_SOTINI
|
||||||
|
DISPLAY "Cod.sez" CODSEZ
|
||||||
|
DISPLAY "Cod.sot." CODSOT
|
||||||
|
DISPLAY "Sezione@25" DENSEZ
|
||||||
|
DISPLAY "Sottogruppo@25" DENSOT
|
||||||
|
OUTPUT F_SEZINI CODSEZ
|
||||||
|
OUTPUT F_D_SEZINI DENSEZ
|
||||||
|
OUTPUT F_SOTINI CODSOT
|
||||||
|
OUTPUT F_D_SOTINI DENSOT
|
||||||
|
CHECKTYPE SEARCH
|
||||||
|
HELP "Codice sezione da cui partire"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_D_SEZINI 25
|
||||||
|
BEGIN
|
||||||
|
PROMPT 11 2 ""
|
||||||
|
FLAGS "U"
|
||||||
|
USE LF_SEZIONI KEY 2
|
||||||
|
INPUT DENSEZ F_D_SEZINI
|
||||||
|
DISPLAY "Sezione@25" DENSEZ
|
||||||
|
DISPLAY "Sottogruppo@25" DENSOT
|
||||||
|
DISPLAY "Cod.sez" CODSEZ
|
||||||
|
DISPLAY "Cod.sot." CODSOT
|
||||||
|
COPY OUTPUT F_SEZINI
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
HELP "Sezione da cui partire"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_SOTINI 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 3 " "
|
||||||
|
COPY ALL F_SEZINI
|
||||||
|
CHECKTYPE SEARCH
|
||||||
|
HELP "Codice sottogruppo da cui partire"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_D_SOTINI 25
|
||||||
|
BEGIN
|
||||||
|
PROMPT 11 3 ""
|
||||||
|
FLAGS "U"
|
||||||
|
COPY USE F_D_SEZINI
|
||||||
|
INPUT DENSEZ F_D_SEZINI
|
||||||
|
INPUT DENSOT F_D_SOTINI
|
||||||
|
COPY DISPLAY F_D_SEZINI
|
||||||
|
COPY OUTPUT F_D_SEZINI
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
HELP "Sottogruppo da cui partire"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_SEZFIN 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 41 2 "A "
|
||||||
|
FLAGS "U"
|
||||||
|
USE LF_SEZIONI
|
||||||
|
INPUT CODSEZ F_SEZFIN
|
||||||
|
INPUT CODSOT F_SOTFIN
|
||||||
|
DISPLAY "Cod.sez" CODSEZ
|
||||||
|
DISPLAY "Cod.sot." CODSOT
|
||||||
|
DISPLAY "Sezione@25" DENSEZ
|
||||||
|
DISPLAY "Sottogruppo@25" DENSOT
|
||||||
|
OUTPUT F_SEZFIN CODSEZ
|
||||||
|
OUTPUT F_D_SEZFIN DENSEZ
|
||||||
|
OUTPUT F_SOTFIN CODSOT
|
||||||
|
OUTPUT F_D_SOTFIN DENSOT
|
||||||
|
CHECKTYPE SEARCH
|
||||||
|
HELP "Codice sezione finale"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_D_SEZFIN 25
|
||||||
|
BEGIN
|
||||||
|
PROMPT 49 2 ""
|
||||||
|
FLAGS "U"
|
||||||
|
USE LF_SEZIONI KEY 2
|
||||||
|
INPUT DENSEZ F_D_SEZFIN
|
||||||
|
DISPLAY "Sezione@25" DENSEZ
|
||||||
|
DISPLAY "Sottogruppo@25" DENSOT
|
||||||
|
DISPLAY "Cod.sez" CODSEZ
|
||||||
|
DISPLAY "Cod.sot." CODSOT
|
||||||
|
COPY OUTPUT F_SEZFIN
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
HELP "Sezione finale"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_SOTFIN 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 41 3 " "
|
||||||
|
COPY ALL F_SEZFIN
|
||||||
|
CHECKTYPE SEARCH
|
||||||
|
HELP "Codice sottogruppo finale"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_D_SOTFIN 25
|
||||||
|
BEGIN
|
||||||
|
PROMPT 49 3 ""
|
||||||
|
FLAGS "U"
|
||||||
|
COPY USE F_D_SEZFIN
|
||||||
|
INPUT DENSEZ F_D_SEZFIN
|
||||||
|
INPUT DENSOT F_D_SOTFIN
|
||||||
|
COPY DISPLAY F_D_SEZFIN
|
||||||
|
COPY OUTPUT F_D_SEZFIN
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
HELP "Sottogruppo finale"
|
||||||
|
END
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 77 5
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 5 "Categorie"
|
||||||
|
END
|
||||||
|
|
||||||
|
|
||||||
|
STRING F_CAT1 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 6 ""
|
||||||
|
FLAGS "U"
|
||||||
|
USE CTD
|
||||||
|
INPUT CODTAB F_CAT1
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@30" S0
|
||||||
|
OUTPUT F_CAT1 CODTAB
|
||||||
|
OUTPUT F_D_CAT1 S0
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Codice non presente"
|
||||||
|
HELP "Categoria di appartenenza"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_D_CAT1 30
|
||||||
|
BEGIN
|
||||||
|
PROMPT 8 6 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_CAT2 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 7 ""
|
||||||
|
FLAGS "U"
|
||||||
|
USE CTD
|
||||||
|
INPUT CODTAB F_CAT2
|
||||||
|
COPY DISPLAY F_CAT1
|
||||||
|
OUTPUT F_CAT2 CODTAB
|
||||||
|
OUTPUT F_D_CAT2 S0
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Codice non presente"
|
||||||
|
HELP "Categoria di appartenenza"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_D_CAT2 30
|
||||||
|
BEGIN
|
||||||
|
PROMPT 8 7 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_CAT3 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 8 ""
|
||||||
|
FLAGS "U"
|
||||||
|
USE CTD
|
||||||
|
INPUT CODTAB F_CAT3
|
||||||
|
COPY DISPLAY F_CAT1
|
||||||
|
OUTPUT F_CAT3 CODTAB
|
||||||
|
OUTPUT F_D_CAT3 S0
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Codice non presente"
|
||||||
|
HELP "Categoria di appartenenza"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_D_CAT3 30
|
||||||
|
BEGIN
|
||||||
|
PROMPT 8 8 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_CAT4 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 40 6 ""
|
||||||
|
FLAGS "U"
|
||||||
|
USE CTD
|
||||||
|
INPUT CODTAB F_CAT4
|
||||||
|
COPY DISPLAY F_CAT1
|
||||||
|
OUTPUT F_CAT4 CODTAB
|
||||||
|
OUTPUT F_D_CAT4 S0
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Codice non presente"
|
||||||
|
HELP "Categoria di appartenenza"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_D_CAT4 30
|
||||||
|
BEGIN
|
||||||
|
PROMPT 46 6 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_CAT5 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 40 7 ""
|
||||||
|
FLAGS "U"
|
||||||
|
USE CTD
|
||||||
|
INPUT CODTAB F_CAT5
|
||||||
|
COPY DISPLAY F_CAT1
|
||||||
|
OUTPUT F_CAT5 CODTAB
|
||||||
|
OUTPUT F_D_CAT5 S0
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Codice non presente"
|
||||||
|
HELP "Categoria di appartenenza"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_D_CAT5 30
|
||||||
|
BEGIN
|
||||||
|
PROMPT 46 7 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_CAT6 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 40 8 ""
|
||||||
|
FLAGS "U"
|
||||||
|
USE CTD
|
||||||
|
INPUT CODTAB F_CAT6
|
||||||
|
COPY DISPLAY F_CAT1
|
||||||
|
OUTPUT F_CAT6 CODTAB
|
||||||
|
OUTPUT F_D_CAT6 S0
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Codice non presente"
|
||||||
|
HELP "Categoria di appartenenza"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_D_CAT6 30
|
||||||
|
BEGIN
|
||||||
|
PROMPT 46 8 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 77 6
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 10 "Disponibilita'"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_DISP1 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 11 ""
|
||||||
|
FLAGS "U"
|
||||||
|
USE IDO
|
||||||
|
INPUT CODTAB F_DISP1
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@30" S0
|
||||||
|
OUTPUT F_DISP1 CODTAB
|
||||||
|
OUTPUT F_D_DISP1 S0
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Codice non presente"
|
||||||
|
HELP "Idoneita' alla donazione"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_DISP2 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 12 ""
|
||||||
|
FLAGS "U"
|
||||||
|
USE IDO
|
||||||
|
INPUT CODTAB F_DISP2
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@30" S0
|
||||||
|
OUTPUT F_DISP2 CODTAB
|
||||||
|
OUTPUT F_D_DISP2 S0
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Codice non presente"
|
||||||
|
HELP "Idoneita' alla donazione"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_D_DISP1 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 7 11 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_D_DISP2 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 7 12 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
LISTBOX F_STAMPA 40
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 13 "Stampa soggetti che hanno "
|
||||||
|
ITEM "0|Tutte le disponibilita' indicate"
|
||||||
|
ITEM "1|Esclusivamente le disp. indicate"
|
||||||
|
ITEM "2|Almeno una delle disp. indicate"
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
ENDMASK
|
||||||
Loading…
x
Reference in New Issue
Block a user