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

Patch level :

Browse Source 
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 1998-05-11 09:54:51 +00:00
parent 07f76d4bf8
commit 0f70db99b5
5 changed files with 677 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
at/at1.cpp
View File

@ -4,7 +4,7 @@
#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)
@ -24,6 +24,8 @@ int main(int argc,char** argv)
rt = at1400(argc,argv) ; break;
case 4:
rt = at1500(argc,argv) ; break;
case 5:
rt = at1600(argc,argv) ; break;
default:
error_box(usage, argv[0]) ; break;
}

7
at/at1.url
View File

@ -1,5 +1,3 @@
#define APPNAME AVIS
#define QAPPNAME "AVIS"
#define LIBDIR f:\xvt.403\win_x86\ptk\lib
#define QFIRMNAME "AGA Informatica S.r.l."
@ -28,3 +26,8 @@ MENU MENU_BAR(3)
MENUBAR MENU_BAR(4)
MENU MENU_BAR(4)
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
View 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
View 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
View 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