Patch level :
Files correlati : Ricompilazione Demo : [ ] Commento : Programma inserimento veloce benemerenze git-svn-id: svn://10.65.10.50/trunk@6632 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris
parent
07f76d4bf8
commit
0f70db99b5
@ -4,7 +4,7 @@
|
|||||||
|
|
||||||
#include "at1.h"
|
#include "at1.h"
|
||||||
|
|
||||||
#define usage "Error - usage : %s -{0|1|2|3|4}"
|
#define usage "Error - usage : %s -{0|1|2|3|4|5}"
|
||||||
|
|
||||||
int main(int argc,char** argv)
|
int main(int argc,char** argv)
|
||||||
|
|
||||||
@ -24,6 +24,8 @@ int main(int argc,char** argv)
|
|||||||
rt = at1400(argc,argv) ; break;
|
rt = at1400(argc,argv) ; break;
|
||||||
case 4:
|
case 4:
|
||||||
rt = at1500(argc,argv) ; break;
|
rt = at1500(argc,argv) ; break;
|
||||||
|
case 5:
|
||||||
|
rt = at1600(argc,argv) ; break;
|
||||||
default:
|
default:
|
||||||
error_box(usage, argv[0]) ; break;
|
error_box(usage, argv[0]) ; break;
|
||||||
}
|
}
|
||||||
|
|||||||
@ -1,5 +1,3 @@
|
|||||||
#define APPNAME AVIS
|
|
||||||
#define QAPPNAME "AVIS"
|
|
||||||
#define LIBDIR f:\xvt.403\win_x86\ptk\lib
|
#define LIBDIR f:\xvt.403\win_x86\ptk\lib
|
||||||
#define QFIRMNAME "AGA Informatica S.r.l."
|
#define QFIRMNAME "AGA Informatica S.r.l."
|
||||||
|
|
||||||
@ -28,3 +26,8 @@ MENU MENU_BAR(3)
|
|||||||
MENUBAR MENU_BAR(4)
|
MENUBAR MENU_BAR(4)
|
||||||
MENU MENU_BAR(4)
|
MENU MENU_BAR(4)
|
||||||
SUBMENU MENU_FILE "~File"
|
SUBMENU MENU_FILE "~File"
|
||||||
|
|
||||||
|
/* at1 -5 inserimento veloce benem */
|
||||||
|
MENUBAR MENU_BAR(5)
|
||||||
|
MENU MENU_BAR(5)
|
||||||
|
SUBMENU MENU_FILE "~File"
|
||||||
|
|||||||
383
at/at1600.cpp
Executable file
383
at/at1600.cpp
Executable file
@ -0,0 +1,383 @@
|
|||||||
|
#include <applicat.h>
|
||||||
|
#include <execp.h>
|
||||||
|
#include <mask.h>
|
||||||
|
#include <msksheet.h>
|
||||||
|
#include <mailbox.h>
|
||||||
|
#include <prefix.h>
|
||||||
|
#include <progind.h>
|
||||||
|
#include <recarray.h>
|
||||||
|
#include <relation.h>
|
||||||
|
#include <tabutil.h>
|
||||||
|
#include <urldefid.h>
|
||||||
|
#include <validate.h>
|
||||||
|
#include <lffiles.h>
|
||||||
|
|
||||||
|
#include "at1.h"
|
||||||
|
|
||||||
|
// nomi campi maschera
|
||||||
|
#include "at1600a.h"
|
||||||
|
|
||||||
|
// nomi dei campi
|
||||||
|
#include "soggetti.h"
|
||||||
|
#include "benem.h"
|
||||||
|
|
||||||
|
class TBenemVeloce : public TApplication
|
||||||
|
{
|
||||||
|
TMask* _msk;
|
||||||
|
TRelation* _rel;
|
||||||
|
|
||||||
|
TLocalisamfile* _soggetti;
|
||||||
|
TLocalisamfile* _benem;
|
||||||
|
TRecord_array* _sbenemerenze;
|
||||||
|
// array dei soggetti inseriti per controllare doppio inserimento
|
||||||
|
TAssoc_array* _asoggetti;
|
||||||
|
bool _modified, _ricerca;
|
||||||
|
TDate _databen, _datacon;
|
||||||
|
TString16 _tipoben;
|
||||||
|
|
||||||
|
protected:
|
||||||
|
virtual bool create();
|
||||||
|
virtual bool destroy();
|
||||||
|
virtual bool menu(MENU_TAG m);
|
||||||
|
virtual TMask& get_mask() { return *_msk; }
|
||||||
|
virtual TRelation* get_relation() const { return _rel; }
|
||||||
|
|
||||||
|
TAssoc_array& get_array_sogg() { return *_asoggetti; }
|
||||||
|
int write(TSheet_field& s);
|
||||||
|
bool check_sog_sheet(const char* codsog);
|
||||||
|
static bool nome_handler(TMask_field& f, KEY k);
|
||||||
|
static bool codice_handler(TMask_field& f, KEY k);
|
||||||
|
static bool soggetti_notify(TSheet_field& s, int r, KEY k);
|
||||||
|
void add_rows_soggetti(TSheet_field& s, int count = 20, int start = 0);
|
||||||
|
|
||||||
|
public:
|
||||||
|
TBenemVeloce() {}
|
||||||
|
|
||||||
|
};
|
||||||
|
|
||||||
|
HIDDEN inline TBenemVeloce& app() { return (TBenemVeloce&) main_app(); }
|
||||||
|
|
||||||
|
void TBenemVeloce::add_rows_soggetti(TSheet_field& s, int count, int start)
|
||||||
|
{
|
||||||
|
if (start == 0)
|
||||||
|
s.destroy();
|
||||||
|
for (int r=start; r<=start+count-1; r++)
|
||||||
|
s.row(r);
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TBenemVeloce::create()
|
||||||
|
{
|
||||||
|
TApplication::create();
|
||||||
|
_modified = FALSE;
|
||||||
|
_ricerca = FALSE;
|
||||||
|
_msk = new TMask("at1600a");
|
||||||
|
_rel = new TRelation(LF_SOGGETTI);
|
||||||
|
_benem = new TLocalisamfile(LF_BENEM);
|
||||||
|
_sbenemerenze = new TRecord_array(LF_BENEM,BEN_PROGBEN);
|
||||||
|
_asoggetti = new TAssoc_array();
|
||||||
|
TSheet_field& ss = (TSheet_field&)_msk->field(F_SOGGETTI);
|
||||||
|
ss.set_notify(soggetti_notify);
|
||||||
|
ss.sheet_mask().set_handler(F_S_NOME,nome_handler);
|
||||||
|
ss.sheet_mask().set_handler(F_S_CODICE,codice_handler);
|
||||||
|
dispatch_e_menu(BAR_ITEM(1));
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TBenemVeloce::destroy()
|
||||||
|
{
|
||||||
|
delete _rel;
|
||||||
|
delete _msk;
|
||||||
|
delete _benem;
|
||||||
|
delete _sbenemerenze;
|
||||||
|
delete _asoggetti;
|
||||||
|
return TApplication::destroy();
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TBenemVeloce::menu(MENU_TAG m)
|
||||||
|
{
|
||||||
|
TMask& msk = get_mask();
|
||||||
|
const TDate oggi(TODAY);
|
||||||
|
KEY tasto;
|
||||||
|
do
|
||||||
|
{
|
||||||
|
TSheet_field& s = (TSheet_field&)msk.field(F_SOGGETTI);
|
||||||
|
if (s.items() == 0)
|
||||||
|
add_rows_soggetti(s);
|
||||||
|
_asoggetti->destroy();
|
||||||
|
_ricerca = FALSE;
|
||||||
|
tasto = msk.run();
|
||||||
|
_databen = msk.get(F_DATABEN);
|
||||||
|
_datacon = msk.get(F_DATACON);
|
||||||
|
_tipoben = msk.get(F_TIPOBEN);
|
||||||
|
switch (tasto)
|
||||||
|
{
|
||||||
|
/*
|
||||||
|
case K_F9: // ricerca
|
||||||
|
{
|
||||||
|
if (_modified)
|
||||||
|
if (yesno_box("Registrare le modifiche?"))
|
||||||
|
TBenemVeloce::write(s);
|
||||||
|
_modified = FALSE;
|
||||||
|
// non dovrebbe servire la ricerca
|
||||||
|
if (_databen.ok())
|
||||||
|
{
|
||||||
|
_ricerca = TRUE;
|
||||||
|
TBenemVeloce::read(s);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
message_box("Inserire almeno la data attribuzione per effettuare la ricerca");
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
*/
|
||||||
|
|
||||||
|
case K_ESC: // annulla
|
||||||
|
{
|
||||||
|
if (_modified)
|
||||||
|
if (yesno_box("Registrare le modifiche?"))
|
||||||
|
TBenemVeloce::write(s);
|
||||||
|
_modified = FALSE;
|
||||||
|
msk.reset();
|
||||||
|
msk.field(DLG_SAVEREC).enable();
|
||||||
|
msk.field(DLG_FINDREC).enable();
|
||||||
|
msk.field(DLG_NEWREC).enable();
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case K_SAVE: // registra
|
||||||
|
{
|
||||||
|
TBenemVeloce::write(s);
|
||||||
|
_modified = FALSE;
|
||||||
|
//msk.reset(); //verificare se va tolta
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case K_INS: // nuovo
|
||||||
|
{
|
||||||
|
if (_modified)
|
||||||
|
if (yesno_box("Registrare le modifiche?"))
|
||||||
|
TBenemVeloce::write(s);
|
||||||
|
_modified = FALSE;
|
||||||
|
msk.reset();
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case K_QUIT: // fine
|
||||||
|
{
|
||||||
|
if (_modified)
|
||||||
|
if (yesno_box("Registrare le modifiche?"))
|
||||||
|
TBenemVeloce::write(s);
|
||||||
|
msk.reset();
|
||||||
|
_modified = FALSE;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
while (tasto != K_QUIT);
|
||||||
|
return FALSE;
|
||||||
|
}
|
||||||
|
|
||||||
|
int TBenemVeloce::write(TSheet_field& s)
|
||||||
|
{
|
||||||
|
|
||||||
|
const TMask& m = s.mask();
|
||||||
|
int items = s.items();
|
||||||
|
TProgind *pi;
|
||||||
|
pi = new TProgind(items,"Registrazione benemerenze", FALSE, TRUE, 10);
|
||||||
|
pi->setstatus(1);
|
||||||
|
TLocalisamfile& sog = get_relation()->lfile();
|
||||||
|
for (int r=1; r<=s.items(); r++)
|
||||||
|
{
|
||||||
|
pi->addstatus(1);
|
||||||
|
TToken_string& row = s.row(r-1);
|
||||||
|
const long codsog = row.get_long(0);
|
||||||
|
if (codsog != 0)
|
||||||
|
{
|
||||||
|
sog.setkey(1);
|
||||||
|
sog.zero();
|
||||||
|
sog.put(SOG_CODICE, codsog);
|
||||||
|
int err = sog.read();
|
||||||
|
if (err == NOERR)
|
||||||
|
{
|
||||||
|
TRectype* rec = new TRectype(LF_BENEM);
|
||||||
|
rec->put(BEN_CODICE, row.get(0));
|
||||||
|
TString16 tipoben = row.get(3);
|
||||||
|
if (tipoben.blank())
|
||||||
|
tipoben = _tipoben;
|
||||||
|
rec->put(BEN_TIPOBEN, tipoben);
|
||||||
|
rec->put(BEN_DATABEN, _databen);
|
||||||
|
rec->put(BEN_DATACON, _datacon);
|
||||||
|
rec->put(BEN_CODSEZ,sog.get(SOG_CODSEZ));
|
||||||
|
rec->put(BEN_CODSOT,sog.get(SOG_CODSOT));
|
||||||
|
bool insert = FALSE;
|
||||||
|
bool exist = FALSE;
|
||||||
|
TRectype* key = new TRectype(LF_BENEM);
|
||||||
|
key->put(BEN_CODICE, row.get(0));
|
||||||
|
err = _sbenemerenze->read(key);
|
||||||
|
if (err == NOERR)
|
||||||
|
{
|
||||||
|
int r=_sbenemerenze->rows();
|
||||||
|
while (r>=1 && !insert && !exist)
|
||||||
|
{
|
||||||
|
const TRectype& riga = _sbenemerenze->row(r);
|
||||||
|
const TString16 b = riga.get(BEN_TIPOBEN);
|
||||||
|
if (tipoben==b) // la benemerenza è gia' stata inserita
|
||||||
|
{
|
||||||
|
exist=TRUE;
|
||||||
|
r=0;
|
||||||
|
}
|
||||||
|
r--;
|
||||||
|
}
|
||||||
|
if (!exist && !insert)
|
||||||
|
{
|
||||||
|
rec->put(BEN_PROGBEN,_sbenemerenze->rows()+1);
|
||||||
|
_sbenemerenze->insert_row(rec);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
if (err == _iseof || err == _isemptyfile)
|
||||||
|
{
|
||||||
|
rec->put(BEN_PROGBEN,1);
|
||||||
|
_sbenemerenze->insert_row(rec);
|
||||||
|
}
|
||||||
|
if (!exist)
|
||||||
|
{
|
||||||
|
_sbenemerenze->write(TRUE);
|
||||||
|
// aggiorno data e utente ultimo aggiornamento
|
||||||
|
const TDate oggi(TODAY);
|
||||||
|
sog.put(SOG_DATAULTAGG,oggi);
|
||||||
|
sog.put(SOG_UTENULTAGG,user());
|
||||||
|
sog.rewrite();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
delete pi;
|
||||||
|
|
||||||
|
return NOERR;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TBenemVeloce::check_sog_sheet(const char* codsog)
|
||||||
|
{
|
||||||
|
TAssoc_array& array_sogg = app().get_array_sogg();
|
||||||
|
if (array_sogg.is_key(codsog))
|
||||||
|
return FALSE;
|
||||||
|
else
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TBenemVeloce::soggetti_notify(TSheet_field& s, int r, KEY k)
|
||||||
|
{
|
||||||
|
bool ok = TRUE;
|
||||||
|
switch (k)
|
||||||
|
{
|
||||||
|
case K_INS:
|
||||||
|
// richiesta inserimento riga
|
||||||
|
if (app()._ricerca)
|
||||||
|
{
|
||||||
|
s.message_box("Fase di ricerca: impossibile inserire donazioni");
|
||||||
|
ok = FALSE;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case K_DEL:
|
||||||
|
case K_CTRL+K_DEL:
|
||||||
|
// avvenuta cancellazione riga
|
||||||
|
break;
|
||||||
|
case K_SPACE:
|
||||||
|
// inizio modifica riga
|
||||||
|
break;
|
||||||
|
case K_TAB:
|
||||||
|
// entrata riga
|
||||||
|
{
|
||||||
|
static bool entering = TRUE;
|
||||||
|
if (entering)
|
||||||
|
{
|
||||||
|
entering = FALSE;
|
||||||
|
if ((r == s.items()-1) && (r == s.first_empty()))
|
||||||
|
app().add_rows_soggetti(s,10,r+1);
|
||||||
|
TToken_string& row = s.row(r);
|
||||||
|
if (row.empty_items())
|
||||||
|
s.select(r);
|
||||||
|
entering = TRUE;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case K_ENTER:
|
||||||
|
// uscita da riga modificata
|
||||||
|
case K_CTRL+K_TAB:
|
||||||
|
// uscita riga
|
||||||
|
{
|
||||||
|
TToken_string& row = s.row(r);
|
||||||
|
if (!row.empty_items())
|
||||||
|
app()._modified = TRUE;
|
||||||
|
const long codsog = row.get_long(0);
|
||||||
|
if (codsog != 0)
|
||||||
|
for (int i=s.items()-1; i>=0; i--)
|
||||||
|
{
|
||||||
|
if (i != r)
|
||||||
|
{
|
||||||
|
TToken_string& row = s.row(i);
|
||||||
|
if (codsog == row.get_long(0))
|
||||||
|
return s.sheet_mask().field(F_S_CODICE).error_box("Soggetto gia' inserito");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
const char* cognome = row.get(1);
|
||||||
|
if ((cognome != NULL) && (cognome != "\0"))
|
||||||
|
s.sheet_mask().field(F_S_NOME).set_focusdirty();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
return ok;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TBenemVeloce::nome_handler(TMask_field& f, KEY k)
|
||||||
|
{
|
||||||
|
bool ok = TRUE;
|
||||||
|
if (f.to_check(k))
|
||||||
|
{
|
||||||
|
TMask& m = f.mask();
|
||||||
|
long codsog = m.get_long(F_S_CODICE);
|
||||||
|
if (codsog == 0)
|
||||||
|
f.on_key(K_F9);
|
||||||
|
}
|
||||||
|
return ok;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TBenemVeloce::codice_handler(TMask_field& f, KEY k)
|
||||||
|
{
|
||||||
|
bool ok = TRUE;
|
||||||
|
if (f.to_check(k))
|
||||||
|
{
|
||||||
|
TMask& m = f.mask();
|
||||||
|
long codsog = m.get_long(F_S_CODICE);
|
||||||
|
if (codsog != 0)
|
||||||
|
{
|
||||||
|
TLocalisamfile& sog = app().get_relation()->lfile();
|
||||||
|
sog.setkey(1);
|
||||||
|
sog.zero();
|
||||||
|
sog.put(SOG_CODICE, codsog);
|
||||||
|
int err = sog.read();
|
||||||
|
if (err == NOERR)
|
||||||
|
{
|
||||||
|
m.set(F_S_COGNOME, sog.get(SOG_COGNOME));
|
||||||
|
m.set(F_S_NOME, sog.get(SOG_NOME));
|
||||||
|
m.set(F_S_DATANASC, sog.get(SOG_DATANASC));
|
||||||
|
m.set(F_S_TESSAVIS, sog.get(SOG_TESSAVIS));
|
||||||
|
m.set(F_S_CODSEZ, sog.get(SOG_CODSEZ));
|
||||||
|
m.set(F_S_CODSOT, sog.get(SOG_CODSOT));
|
||||||
|
m.set(F_S_CATDON, sog.get(SOG_CATDON));
|
||||||
|
}
|
||||||
|
else
|
||||||
|
ok = FALSE; // codice non esistente
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return ok;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
int at1600(int argc, char* argv[])
|
||||||
|
{
|
||||||
|
TBenemVeloce a;
|
||||||
|
a.run(argc, argv, "Inserimento veloce benemerenze");
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
26
at/at1600a.h
Executable file
26
at/at1600a.h
Executable file
@ -0,0 +1,26 @@
|
|||||||
|
// definizione campi della maschera at1600a.msk
|
||||||
|
// inserimento veloce benemerenze
|
||||||
|
|
||||||
|
// dati fissi
|
||||||
|
#define F_DATABEN 201
|
||||||
|
#define F_DATACON 202
|
||||||
|
#define F_TIPOBEN 203
|
||||||
|
#define F_DESC_TIPOBEN 204
|
||||||
|
// spreadsheet
|
||||||
|
#define F_SOGGETTI 205
|
||||||
|
|
||||||
|
// pagina soggetti
|
||||||
|
#define F_S_CODICE 101
|
||||||
|
#define F_S_COGNOME 102
|
||||||
|
#define F_S_NOME 103
|
||||||
|
#define F_S_TIPOBEN 104
|
||||||
|
#define F_S_DATANASC 105
|
||||||
|
#define F_S_CODSEZ 106
|
||||||
|
#define F_S_CODSOT 107
|
||||||
|
#define F_S_CATDON 108
|
||||||
|
#define F_S_TESSAVIS 109
|
||||||
|
|
||||||
|
#define F_S_DENSEZ 151
|
||||||
|
#define F_S_DENSOT 152
|
||||||
|
#define F_S_DESC_TIPOBEN 153
|
||||||
|
|
||||||
260
at/at1600a.uml
Executable file
260
at/at1600a.uml
Executable file
@ -0,0 +1,260 @@
|
|||||||
|
#include "at1600a.h"
|
||||||
|
|
||||||
|
TOOLBAR "" 0 20 0 2
|
||||||
|
|
||||||
|
BUTTON DLG_FINDREC 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -16 -11 "Ri~cerca"
|
||||||
|
MESSAGE EXIT,K_F9
|
||||||
|
PICTURE 126
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_SAVEREC 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -26 -11 "~Registra"
|
||||||
|
MESSAGE EXIT,K_SAVE
|
||||||
|
PICTURE BMP_SAVEREC
|
||||||
|
PICTURE BMP_SAVERECDN
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_NEWREC 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -36 -11 "~Nuovo"
|
||||||
|
MESSAGE EXIT,K_INS
|
||||||
|
PICTURE BMP_NEWREC
|
||||||
|
PICTURE BMP_NEWRECDN
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_CANCEL 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -46 -11 "~Annulla"
|
||||||
|
MESSAGE EXIT,K_ESC
|
||||||
|
PICTURE 102
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_PRINT 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -56 -11 "~Stampa"
|
||||||
|
MESSAGE RUN,at6,-2
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_QUIT 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -66 -11 "~Fine"
|
||||||
|
MESSAGE EXIT,K_QUIT
|
||||||
|
PICTURE BMP_QUIT
|
||||||
|
PICTURE BMP_QUITDN
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
PAGE "Inserimento veloce benemerenze" -1 -1 78 20
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 77 5
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 0 "Dati fissi"
|
||||||
|
FLAGS "R"
|
||||||
|
END
|
||||||
|
|
||||||
|
DATE F_DATABEN
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 1 "Data attribuzione "
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
HELP "Data attribuzione benemerenza"
|
||||||
|
END
|
||||||
|
|
||||||
|
DATE F_DATACON
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 2 "Data prevista consegna "
|
||||||
|
HELP "Data prevista consegna"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_TIPOBEN 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 3 "Benemerenza "
|
||||||
|
FLAGS "U"
|
||||||
|
USE BNZ
|
||||||
|
INPUT CODTAB F_TIPOBEN
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@30" S0
|
||||||
|
OUTPUT F_TIPOBEN CODTAB
|
||||||
|
OUTPUT F_DESC_TIPOBEN S0
|
||||||
|
VALIDATE NOT_EMPTY_FUNC
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Codice non presente"
|
||||||
|
HELP "Tipo donazione"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_DESC_TIPOBEN 30
|
||||||
|
BEGIN
|
||||||
|
PROMPT 30 3 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
SPREADSHEET F_SOGGETTI
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 5 "Soggetti"
|
||||||
|
ITEM "Codice@8"
|
||||||
|
ITEM "Cognome@25"
|
||||||
|
ITEM "Nome@25"
|
||||||
|
ITEM "Ben."
|
||||||
|
ITEM "Nato il@10"
|
||||||
|
ITEM "Sez."
|
||||||
|
ITEM "Sot."
|
||||||
|
ITEM "Cat."
|
||||||
|
ITEM "Tessera"
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
|
|
||||||
|
PAGE "Soggetto " -1 -1 78 20
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 77 6
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 0 "Soggetto premiato"
|
||||||
|
FLAGS "R"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_S_CODICE 8
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 1 "Codice "
|
||||||
|
FLAGS "RG"
|
||||||
|
USE LF_SOGGETTI KEY 1
|
||||||
|
INPUT CODICE F_S_CODICE
|
||||||
|
DISPLAY "Codice@8" CODICE
|
||||||
|
DISPLAY "Cognome@25" COGNOME
|
||||||
|
DISPLAY "Nome@25" NOME
|
||||||
|
DISPLAY "Nato il@10" DATANASC
|
||||||
|
DISPLAY "Sez." CODSEZ
|
||||||
|
DISPLAY "Sot." CODSOT
|
||||||
|
DISPLAY "C." CATDON
|
||||||
|
DISPLAY "Tessera" TESSAVIS
|
||||||
|
OUTPUT F_S_CODICE CODICE
|
||||||
|
OUTPUT F_S_COGNOME COGNOME
|
||||||
|
OUTPUT F_S_NOME NOME
|
||||||
|
OUTPUT F_S_DATANASC DATANASC
|
||||||
|
OUTPUT F_S_CODSEZ CODSEZ
|
||||||
|
OUTPUT F_S_CODSOT CODSOT
|
||||||
|
OUTPUT F_S_CATDON CATDON
|
||||||
|
OUTPUT F_S_TESSAVIS TESSAVIS
|
||||||
|
ADD RUN at0 -0
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_S_COGNOME 25
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 2 "Cognome e nome "
|
||||||
|
USE LF_SOGGETTI KEY 2
|
||||||
|
INPUT COGNOME F_S_COGNOME
|
||||||
|
INPUT NOME F_S_NOME
|
||||||
|
INPUT DATANASC F_S_DATANASC
|
||||||
|
DISPLAY "Cognome@25" COGNOME
|
||||||
|
DISPLAY "Nome@25" NOME
|
||||||
|
DISPLAY "Nato il@10" DATANASC
|
||||||
|
DISPLAY "Codice@8" CODICE
|
||||||
|
DISPLAY "Sez." CODSEZ
|
||||||
|
DISPLAY "Sot." CODSOT
|
||||||
|
DISPLAY "C." CATDON
|
||||||
|
DISPLAY "Tessera" TESSAVIS
|
||||||
|
OUTPUT F_S_CODICE CODICE
|
||||||
|
OUTPUT F_S_COGNOME COGNOME
|
||||||
|
OUTPUT F_S_NOME NOME
|
||||||
|
OUTPUT F_S_DATANASC DATANASC
|
||||||
|
OUTPUT F_S_CODSEZ CODSEZ
|
||||||
|
OUTPUT F_S_CODSOT CODSOT
|
||||||
|
OUTPUT F_S_CATDON CATDON
|
||||||
|
OUTPUT F_S_TESSAVIS TESSAVIS
|
||||||
|
HELP "Cognome del soggetto"
|
||||||
|
ADD RUN at0 -0
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_S_NOME 25
|
||||||
|
BEGIN
|
||||||
|
PROMPT 46 2 ""
|
||||||
|
COPY ALL F_S_COGNOME
|
||||||
|
HELP "Nome del soggetto"
|
||||||
|
ADD RUN at0 -0
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_S_TIPOBEN 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 16 "Benemerenza "
|
||||||
|
FLAGS "U"
|
||||||
|
USE BNZ
|
||||||
|
INPUT CODTAB F_S_TIPOBEN
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@30" S0
|
||||||
|
OUTPUT F_S_TIPOBEN CODTAB
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Codice non presente"
|
||||||
|
HELP "Benemerenza (se diversa da dati fissi)"
|
||||||
|
END
|
||||||
|
|
||||||
|
DATE F_S_DATANASC
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 3 "Nato il "
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_S_CODSEZ 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 4 "Sez./Sottog. "
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_S_DENSEZ 25 23
|
||||||
|
BEGIN
|
||||||
|
PROMPT 20 4 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_S_CODSOT 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 46 4 ""
|
||||||
|
FLAGS "D"
|
||||||
|
USE LF_SEZIONI
|
||||||
|
INPUT CODSEZ F_S_CODSEZ
|
||||||
|
INPUT CODSOT F_S_CODSOT
|
||||||
|
OUTPUT F_S_DENSEZ DENSEZ
|
||||||
|
OUTPUT F_S_DENSOT DENSOT
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_S_DENSOT 25 23
|
||||||
|
BEGIN
|
||||||
|
PROMPT 49 4 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_S_CATDON 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 60 3 "Categoria "
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_S_TESSAVIS 10
|
||||||
|
BEGIN
|
||||||
|
PROMPT 33 3 "Tessera AVIS "
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_OK 9 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -13 -1 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_CANCEL 9 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -23 -1 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_DELREC 9 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -33 -1 ""
|
||||||
|
MESSAGE EXIT, K_DEL
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
Loading…
x
Reference in New Issue
Block a user