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

Patch level : 4.0 649

Browse Source 
Ricompilazione Demo : [ ]
Commento            :

Riportata la versione 3.1 patch 848


git-svn-id: svn://10.65.10.50/trunk@14993 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2007-03-06 16:37:44 +00:00
parent e9c990f6f4
commit 046e2c06cb
213 changed files with 19036 additions and 870 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
at/agaat.men
View File

@ -57,6 +57,7 @@ Item_11 = "Motivi per controlli sanitari", "ba3 -0 mtc", ""
Item_12 = "Professioni", "ba3 -0 prf", ""
Item_13 = "Tipi di donazione", "ba3 -0 tdn", ""
Item_14 = "Tipi/Esiti controlli sanitari", "ba3 -0 tcs", ""
Item_15 = "Singoli controlli sanitari", "ba3 -0 scs", ""
[AVIS_002]
Caption = "Convocazioni"
@ -150,13 +151,14 @@ Item_01 = "Sezioni", "at6 -1", ""
Item_02 = "Medici", "at6 -0", ""
Item_03 = "Categorie donatori", "ba3 -1 ctd", ""
Item_04 = "Categorie non donatori", "ba3 -1 ctn", ""
Item_05 = "Controlli sanitari", "ba3 -1 tcs", ""
Item_06 = "Gruppi aziendali", "ba3 -1 gaz", ""
Item_07 = "Localita' postali", "ba3 -1 lcp", ""
Item_08 = "Punti di prelievo", "ba3 -1 ldn", ""
Item_09 = "Luoghi di lavoro", "ba3 -1 ldl", ""
Item_10 = "Motivi per controlli", "ba3 -1 mtc", ""
Item_11 = "Professioni", "ba3 -1 prf", ""
Item_05 = "Gruppi aziendali", "ba3 -1 gaz", ""
Item_06 = "Localita' postali", "ba3 -1 lcp", ""
Item_07 = "Punti di prelievo", "ba3 -1 ldn", ""
Item_08 = "Luoghi di lavoro", "ba3 -1 ldl", ""
Item_09 = "Motivi per controlli", "ba3 -1 mtc", ""
Item_10 = "Professioni", "ba3 -1 prf", ""
Item_11 = "Tipi/Esiti Controlli sanitari", "ba3 -1 tcs", ""
Item_12 = "Singoli controlli san.", "ba3 -1 scs", ""
[AVIS_005]
Caption = "Statistiche"

23
at/at0100.cpp
View File

@ -147,12 +147,33 @@ static int compare_date(const TObject** o1, const TObject** o2)
return d;
}
static int compare_benem(const TObject** o1, const TObject** o2)
{
TToken_string* s1 = (TToken_string*)*o1;
TToken_string* s2 = (TToken_string*)*o2;
const TString16 b1(s1->get(0));
const TString16 b2(s2->get(0));
int b=0;
if (b1>b2) b=+1;
else
if (b1<b2) b=-1;
return b;
}
void ordina_sheet_data(TSheet_field& s)
{
TArray& as = s.rows_array();
as.sort(compare_date);
}
void ordina_sheet_benem(TSheet_field& s)
{
TArray& as = s.rows_array();
as.sort(compare_benem);
}
void d_datepross(TSheet_field& s)
// calcola le date di prossima donazione in base a: donazioni, stato attuale, idoneità
{
@ -1697,7 +1718,7 @@ int TGestioneSoggetti::scrivi(const TMask& m, bool ri)
key->put(BEN_CODICE, m.get(F_CODICE));
_sbenemerenze->set_key(key);
ordina_sheet_data(s);
ordina_sheet_benem(s);
for (r=s.items(); r>0; r--)
{

111
at/at1200.cpp
View File

@ -39,7 +39,7 @@ class TAttribuzioneBenemerenze : public TPrintapp
TString16 _gruppoazie, _oldben;
int _bonus;
TDate _dataela, _datapre;
bool _attgruppi,_anchegruppi, _prevista;
bool _attgruppi,_anchegruppi, _prevista, _nuovicriteri;
bool _definitiva;
TParagraph_string _cognome_nome;
int _numdon;
@ -171,8 +171,9 @@ void TAttribuzioneBenemerenze::set_page(int file, int cnt)
set_row(1,"@26g@S", FLD(LF_SOGGETTI,SOG_CATDON));
set_row(1,"@29g@S", FLD(LF_SOGGETTI,SOG_TESSAVIS));
set_row(1,"@39g@pn", FLD(LF_SOGGETTI,SOG_TOTDON,"###"));
set_row(1,"@48g@ld", FLD(LF_SOGGETTI,SOG_DATAISC));
if (_prevista)
set_row(1,"@48g#3d", &_numdon);
set_row(1,"@59g#3d", &_numdon);
}
else
set_row(1,"");
@ -196,6 +197,7 @@ bool TAttribuzioneBenemerenze::set_print(int)
tasto = _msk->run();
if (tasto == K_ENTER)
{
const TDate datarif = TDate("16/05/2004");
_oldben = "**";
_contatore = 0;
_prevista = (_msk->get(F_SITUAZIONE)[0] == 'P');
@ -205,6 +207,7 @@ bool TAttribuzioneBenemerenze::set_print(int)
_gruppoazie = _msk->get(F_GRUPPOAZIE);
_anchegruppi = _msk->get_bool(F_ANCHEGRUPPI);
_definitiva = _msk->get_bool(F_DEFINITIVA);
_nuovicriteri = _msk->get_bool(F_NUOVICRITERI);
_catdon.destroy();
const TString16 catpri = _msk->get(F_CAT1);
const TString16 catsec = _msk->get(F_CAT2);
@ -230,8 +233,15 @@ bool TAttribuzioneBenemerenze::set_print(int)
{
TString16 codben = ben.get("CODTAB");
int numdonben = ben.get_int("I0");
real* oggetto = new real(numdonben);
_tabben.add((const char*)codben, (TObject*) oggetto);
int m_numdon = ben.get_int("I1");
int m_anni = ben.get_int("I2");
TToken_string* condizioni = new TToken_string();;
condizioni->add(numdonben);
condizioni->add(m_numdon);
condizioni->add(m_anni);
_tabben.add((const char*)codben, (TObject*) condizioni);
//real* oggetto = new real(numdonben);
//_tabben.add((const char*)codben, (TObject*) oggetto);
}
TString80 filtro;
if (_attgruppi)
@ -293,20 +303,55 @@ bool TAttribuzioneBenemerenze::set_print(int)
}
if (filtrato)
{
const char sesso = sog.get(SOG_SESSO)[0];
const TDate datanasc = sog.get_date(SOG_DATANASC);
const TDate dataisc = sog.get_date(SOG_DATAISC);
TRectype* key = new TRectype(LF_DONAZ);
key->put(DON_CODICE, codice);
int err = _sdonazioni->read(key);
if (err == NOERR)
{
{
int precsi = sog.get_int(SOG_DONPRECSI);
int precaf = sog.get_int(SOG_DONPRECAF);
int numdon = precsi + precaf;
int donxanno = 0;
int anno = 0;
for (int r=1; r<=_sdonazioni->rows(); r++)
{
const TRectype& riga = _sdonazioni->row(r);
TDate datadon = riga.get_date(DON_DATADON);
const TDate datadon = riga.get_date(DON_DATADON);
const TString16 tipodon = riga.get(DON_TIPODON);
if (datadon<=_dataela)
numdon++;
{
if (_nuovicriteri && datadon>datarif) // 16/05/2004
{
if (anno != datadon.year())
{
if (donxanno > 4)
donxanno = 4;
numdon += donxanno;
donxanno = 0;
}
donxanno++;
int eta = datadon.year() - datanasc.year();
if (datadon.month() < datanasc.month())
eta--;
else
if (datadon.month() == datanasc.month())
if (datadon.day() < datanasc.day())
eta--;
if ((tipodon == "SI" || tipodon=="SN") && (sesso == '2') && (eta < 50))
donxanno++;
}
else
numdon++;
}
}
if (_nuovicriteri)
{
if (donxanno > 4)
donxanno = 4;
numdon += donxanno;
}
if (_prevista)
{
@ -345,22 +390,48 @@ bool TAttribuzioneBenemerenze::set_print(int)
ultben = "**";
}
}
long bonusctrl = 0;
//long bonusctrl = 0;
int bonusctrl = 0;
int m_bonusctrl = 0;
int m_annictrl = 0;
if (ultben != "**")
{
real& ndonult = (real&) _tabben.find((const char*) ultben);
bonusctrl = ndonult.integer();
//real& ndonult = (real&) _tabben.find((const char*) ultben);
//bonusctrl = ndonult.integer();
TToken_string& condizioni = (TToken_string&) _tabben.find((const char*) ultben);
TString str = condizioni.get();
bonusctrl = atoi(str);
str = condizioni.get();
m_bonusctrl = atoi(str);
str = condizioni.get();
m_annictrl = atoi(str);
str = condizioni.get();
}
_tabben.restart();
real* c;
for (c = (real*) _tabben.first_item(); c != NULL; c = (real*) _tabben.succ_item())
TToken_string* c;
for (c = (TToken_string*) _tabben.first_item(); c != NULL; c = (TToken_string*) _tabben.succ_item())
{
const char* tipoben = _tabben.get_hashobj()->key();
long bonus = c->integer();
//long bonus = c->integer();
TString str = c->get(0);
int bonus = atoi(str);
str = c->get();
int m_bonus = atoi(str);
str = c->get();
int m_anni = atoi(str);
str = c->get();
if (bonus > bonusctrl)
{
if (numdon >= bonus)
{
bool attribuisci = false;
if (numdon >= bonus)
attribuisci = true;
if (_nuovicriteri && !attribuisci && (m_bonus > 0 || m_anni > 0)) // se uso nuovi criteri e non ne ha diritto col vecchio sistema quardo se ne ha diritto con i nuovi criteri
{
const int anniisc = (_dataela - dataisc)/360;
attribuisci = (numdon >= m_bonus) && (anniisc >= m_anni);
}
if (attribuisci)
{
// controllo che non abbia ricevuto la benemerenza
_benem->zero();
_benem->put(BEN_CODICE, codice);
@ -403,6 +474,8 @@ void TAttribuzioneBenemerenze::crea_intestazione()
TString sep(132);
sep = "ATTRIBUZIONE BENEMERENZE ";
if (_nuovicriteri)
sep << "CON NUOVI CRITERI ";
if (_prevista)
sep << " PREVISTE ";
if (_definitiva)
@ -422,13 +495,13 @@ void TAttribuzioneBenemerenze::crea_intestazione()
set_header(3, (const char *) sep);
if (_prevista)
{
set_header(4,"@0gCognome e nome@26gC.@29gTessera@39gTot.don.@48gDon.pre.");
set_header(5,"@0-------------------------@26g--@29g--------@39g--------@48g--------");
set_header(4,"@0gCognome e nome@26gC.@29gTessera@39gTot.don.@48gData isc.@59gDon.pre.");
set_header(5,"@0-------------------------@26g--@29g--------@39g--------@48g----------@59g--------");
}
else
{
set_header(4,"@0gCognome e nome@26gC.@29gTessera@39gTot.don.");
set_header(5,"@0-------------------------@26g--@29g--------@39g--------");
set_header(4,"@0gCognome e nome@26gC.@29gTessera@39gTot.don.@48gData isc.");
set_header(5,"@0-------------------------@26g--@29g--------@39g--------@48g----------");
}
}

3
at/at1200a.h
View File

@ -19,7 +19,8 @@
#define F_CAT6 211
#define F_D_CAT6 212
#define F_SITUAZIONE 308
#define F_SITUAZIONE 307
#define F_NUOVICRITERI 308
#define F_DATAELA 309
#define F_DATAPRE 310
#define F_ATTGRUPPI 311

5
at/at1200a.uml
View File

@ -214,6 +214,11 @@ BEGIN
ITEM "P|Prevista"
END
BOOLEAN F_NUOVICRITERI
BEGIN
PROMPT 30 10 "Usa anche nuovi criteri per attribuzione"
END
DATE F_DATAELA
BEGIN
PROMPT 2 11 "Data elaborazione "

11
at/at2600.cpp
View File

@ -496,15 +496,20 @@ bool TStampaIscritti::user_create()
_etlarghezza = config.get_int("EtLarghezza");
_etcolonne = config.get_int("EtColonne");
_form_eti = new TEti_iscritti_form(etformato);
TFilename iscrname = "iscritti";
iscrname.ext("dbf");
TFilename iscrtrr = "iscritti";
iscrtrr.ext("trr");
if (iscrtrr.exist())
_fileiscr = new TExternisamfile(iscrname, iscrtrr, false);
if (!iscrtrr.custom_path())
{
iscrtrr = "recdesc/iscritti";
iscrtrr.ext("trr");
}
_fileiscr = new TExternisamfile(iscrname, iscrtrr, false);
return TRUE;
return true;
}
bool TStampaIscritti::user_destroy()

8
at/at2700.cpp
View File

@ -1252,12 +1252,18 @@ bool TStampaPerCategorie::user_create()
_sfamiglia = new TRecord_array(LF_FAMIGLIE,FAM_PROGFAM);
add_cursor(new TSorted_cursor(_rel,"SOG_CODSEZ|SOG_CODSOT","",3));
_msk = new TMask("at2700a");
TFilename filename = "filecat";
filename.ext("dbf");
TFilename filetrr = "filecat";
filetrr.ext("trr");
filetrr.custom_path();
if (!filetrr.custom_path())
{
filetrr = "recdesc/filecat";
filetrr.ext("trr");
}
_file = new TExternisamfile(filename, filetrr, FALSE);
TFilename namepers("filepers");
namepers.ext("dbf");
if (namepers.exist())

2
at/at9.cpp
View File

@ -18,6 +18,8 @@ int main(int argc,char** argv)
rt = at9200(argc,argv) ; break; // Estrazione archivi per aggiornamento
case 2:
rt = at9300(argc,argv) ; break; // Aggiornamento archivi da estrazione
case 3:
rt = at9400(argc,argv) ; break; // Aggiornamento soggetti
default:
error_box(usage, argv[0]) ; break;
}

1
at/at9.h
View File

@ -4,6 +4,7 @@
int at9100(int argc, char* argv[]); // statistica soggetti sospesi (NON UTILIZZARE)
int at9200(int argc, char* argv[]); // Parma: estrazione archivi per aggiornamento
int at9300(int argc, char* argv[]); // Parma: aggiornamento archivi da estrazione
int at9400(int argc, char* argv[]); // aggiornamento sit. sogg.
#endif // __AT9_H

236
at/at9400.cpp Executable file
View File

@ -0,0 +1,236 @@
#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 "at9.h"
#include "atlib.h"
// nomi dei campi
#include "soggetti.h"
#include "donaz.h"
#include "contsan.h"
#include "idoneita.h"
#include "rconvoc.h"
class TReconstruction : public TApplication
{
TMask* _msk;
TRelation* _rel;
TLocalisamfile* _soggetti;
TLocalisamfile* _donaz;
TLocalisamfile* _contsan;
TLocalisamfile* _idoneita;
TRecord_array* _sdonazioni;
TRecord_array* _scontrolli;
TRecord_array* _sidoneita;
// parametri di sezione
int _intsi_f1, _intsi_f2, _intsi_m, _intaf_m, _etadonne;
int _numdon1, _numdon2;
TString16 _catini1, _catfin1, _catini2, _catfin2, _motivoid;
bool _sttess2, _dataisc, _nomessage, _autoid;
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; }
int write(TSheet_field& s);
public:
TReconstruction() {}
};
HIDDEN inline TReconstruction& app() { return (TReconstruction&) main_app(); }
bool TReconstruction::create()
{
TApplication::create();
_msk = new TMask("at9400a");
_rel = new TRelation(LF_SOGGETTI);
_donaz = new TLocalisamfile(LF_DONAZ);
_contsan = new TLocalisamfile(LF_CONTSAN);
_idoneita = new TLocalisamfile(LF_IDONEITA);
_sdonazioni = new TRecord_array(LF_DONAZ,DON_PROGDON);
_scontrolli = new TRecord_array(LF_CONTSAN,CON_PROGCON);
_sidoneita = new TRecord_array(LF_IDONEITA,IDO_PROGIDO);
TConfig config(CONFIG_STUDIO);
_numdon1 = config.get_int("NumDon1");
_numdon2 = config.get_int("NumDon2");
_catini1 = config.get("CatIni1");
_catfin1 = config.get("CatFin1");
_catini2 = config.get("CatIni2");
_catfin2 = config.get("CatFin2");
_sttess2 = config.get_bool("StTess2");
_dataisc = config.get_bool("DataIsc");
_nomessage = config.get_bool("NoMessage");
_etadonne = config.get_int("EtaDonne");
_intsi_f1 = config.get_int("IntSI_F1");
_intsi_f2 = config.get_int("IntSI_F2");
_intsi_m = config.get_int("IntSI_M");
_intaf_m = config.get_int("IntAF_M");
dispatch_e_menu(BAR_ITEM(1));
return TRUE;
}
bool TReconstruction::destroy()
{
delete _sidoneita;
delete _scontrolli;
delete _sdonazioni;
delete _idoneita;
delete _contsan;
delete _donaz;
delete _rel;
delete _msk;
return TApplication::destroy();
}
static int compare_date(const TObject** o1, const TObject** o2)
{
const TRectype& s1 = *((TRectype*)*o1);
const TRectype& s2 = *((TRectype*)*o2);
const TDate d1(s1.get(IDO_DATAIDO));
const TDate d2(s2.get(IDO_DATAIDO));
int d=0;
if (d1>d2) d=+1;
else
if (d1<d2) d=-1;
return d;
}
bool TReconstruction::menu(MENU_TAG m)
{
bool _calcolacat = FALSE;
KEY tasto = _msk->run();
if (tasto == K_ENTER)
{
TLocalisamfile rconvoc(LF_RCONVOC);
_rel->lfile().setkey(1);
bool modificato = FALSE;
TDate oggi(TODAY);
TRectype& recsog = _rel->curr();
TProgind pi(_rel->items(),"Aggiornamento situazione soggetti da appoggio", TRUE, TRUE, 10);
pi.setstatus(1);
for (_rel->first(); _rel->ok(); _rel->next())
{
pi.addstatus(1);
if (pi.iscancelled()) break;
const long codsog = recsog.get_long("CODICE");
TRectype* keyd = new TRectype(LF_DONAZ);
keyd->put(DON_CODICE, codsog);
int err = _sdonazioni->read(keyd);
calcola_donazioni_lib(recsog, _sdonazioni);
_sdonazioni->rewrite();
recsog.rewrite(_rel->lfile());
TRectype* key = new TRectype(LF_IDONEITA);
key->put(IDO_CODICE, recsog.get(SOG_CODICE));
err = _sidoneita->read(key);
_sidoneita->sort(compare_date);
_sidoneita->rewrite();
TRectype* keyc = new TRectype(LF_CONTSAN);
keyc->put(CON_CODICE, recsog.get(SOG_CODICE));
_scontrolli->read(keyc);
if (_scontrolli->rows()>0 || _sidoneita->rows()>0)
{
con_reord(recsog,_scontrolli,_sidoneita);
recsog.rewrite(_rel->lfile());
}
if (_calcolacat)
{
TTable ctd("CTD");
TString16 catdon = recsog.get(SOG_CATDON);
const int totdon = recsog.get_int(SOG_TOTDON);
ctd.put("CODTAB",catdon);
if (ctd.read() == NOERR)
{
bool dimissione = ctd.get_bool("B0");
if (dimissione)
{
recsog.put(SOG_CATDON,ctd.get("S6"));
if (ctd.get("S6").not_empty())
catdon = ctd.get("S6");
}
if ((catdon == _catini1 || _catini1.empty()) && (totdon>=_numdon1) && _catfin1.not_empty())
{
recsog.put(SOG_CATDON, _catfin1);
catdon = _catfin1;
}
const bool tstampata = recsog.get_bool(SOG_T_STAMPATA);
if ((catdon == _catini2 || _catini2.empty()) && (totdon>=_numdon2) && _catfin2.not_empty() && (!_sttess2 || tstampata))
{
recsog.put(SOG_CATDON, _catfin2);
catdon = _catfin2;
}
}
}
TDate dataiscsog = recsog.get_date(SOG_DATAISC);
if (!dataiscsog.ok() && _dataisc)
{
if (!recsog.get_date(SOG_DATAPRISI) == NULLDATE)
recsog.put(SOG_DATAISC,recsog.get(SOG_DATAPRISI));
else
{
const TRectype& riga = _sdonazioni->row(1);
recsog.put(SOG_DATAISC,riga.get(DON_DATADON));
}
}
const TDate dataprossi = recsog.get_date(SOG_DATAPROSSI);
const TDate dataconv = recsog.get_date(SOG_DATACONV);
const char stato = modstato_tcs(recsog.get(SOG_STATO));
const TString16 statosi = recsog.get(SOG_STATOSI);
if ((stato == 'S') || (statosi == SOSPENSIONE) || (dataprossi > dataconv) || !dataprossi.ok())
{
rconvoc.setkey(3);
rconvoc.zero();
rconvoc.put(RCV_CODICE, recsog.get(SOG_CODICE));
rconvoc.put(RCV_DATACONV, recsog.get(SOG_DATACONV));
if (rconvoc.read() == NOERR)
{
rconvoc.put(RCV_ANNULLATO, TRUE);
int err = rconvoc.write();
}
const TDate datanulla(NULLDATE);
recsog.put(SOG_DATACONV, datanulla);
recsog.put(SOG_DATAULTSOL, datanulla);
const int numzero = 0;
recsog.put(SOG_NUMCONV,numzero);
}
recsog.put(SOG_DATAULTAGG, oggi);
recsog.put(SOG_UTENULTAGG, "CONVE");
recsog.rewrite(_rel->lfile());
}
}
return FALSE;
}
int TReconstruction::write(TSheet_field& s)
{
return NOERR;
}
int at9400(int argc, char* argv[])
{
TReconstruction a;
a.run(argc, argv, "Aggiornamento situazione soggetti");
return 0;
}

13
at/at9400a.uml Executable file
View File

@ -0,0 +1,13 @@
PAGE "Aggiornamento situazione soggetti" -1 -1 78 20
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 14 ""
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 14 ""
END
ENDPAGE
ENDMASK

16
at/bastscs.uml Executable file
View File

@ -0,0 +1,16 @@
//DEFINIZIONE MASCHERA PER STAMPA TABELLA SINGOLI CONTROLLI SANITARI
PAGE "Stampa Tabella Singoli controlli sanitari" -1 -1 56 8
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

4
at/batbbnz.h
View File

@ -2,4 +2,6 @@
#define F_TABBNZ_DESCR 101
#define F_TABBNZ_NDON 102
#define F_TABBNZ_STATUTO 103
#define DLG_DEL 105
#define F_TABBNZ_M_NDON 104
#define F_TABBNZ_M_ANNI 105
#define DLG_DEL 108

41
at/batbbnz.uml
View File

@ -8,13 +8,13 @@ PAGE "Benemerenze" -1 -1 78 7
STRING F_TABBNZ_CODTAB 2
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
PROMPT 2 1 "Codice "
FIELD CODTAB
HELP "Inserire il codice della benemerenza"
USE BNZ
CHECKTYPE REQUIRED
INPUT CODTAB F_TABBNZ_CODTAB
DISPLAY "Codice " CODTAB
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABBNZ_CODTAB CODTAB
OUTPUT F_TABBNZ_DESCR S0
@ -24,22 +24,22 @@ END
STRING F_TABBNZ_DESCR 30
BEGIN
PROMPT 2 3 "Descrizione "
FIELD S0
PROMPT 2 3 "Descrizione "
FIELD S0
HELP "Inserire la descrizione della benemerenza"
USE BNZ KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_TABBNZ_DESCR
DISPLAY "Descrizione@30" S0
DISPLAY "Codice " CODTAB
DISPLAY "Codice " CODTAB
COPY OUTPUT F_TABBNZ_CODTAB
KEY 2
END
NUMBER F_TABBNZ_NDON 3
BEGIN
PROMPT 2 5 "Num. donazioni "
FIELD I0
PROMPT 2 5 "Num. donazioni "
FIELD I0
HELP "Inserire il numero di donazioni necessarie per ottenere la benemerenza"
CHECKTYPE REQUIRED
FLAGS "U"
@ -48,8 +48,29 @@ END
BOOLEAN F_TABBNZ_STATUTO
BEGIN
PROMPT 30 5 "Da statuto "
FIELD B0
HELP "La benemerenza Š prevista nello statuto AVIS?"
FIELD B0
HELP "La benemerenza Š prevista nello statuto AVIS?"
END
GROUPBOX DLG_NULL 77 4
BEGIN
PROMPT 1 7 "Nuovi criteri per benemerenza"
END
NUMBER F_TABBNZ_M_NDON 3
BEGIN
PROMPT 2 8 "Numero donazioni "
FIELD I1
HELP "Inserire il numero di donazioni necessarie per ottenere la benemerenza"
FLAGS "U"
END
NUMBER F_TABBNZ_M_ANNI 2
BEGIN
PROMPT 2 9 "Anni di iscrizione "
FIELD I2
HELP "Inserire il numero di anni di iscrizione necessari"
FLAGS "U"
END
ENDPAGE

3
at/batbscs.h Executable file
View File

@ -0,0 +1,3 @@
#define F_TABSCS_CODTAB 100
#define F_TABSCS_DESCR 101
#define DLG_DEL 105

9
at/batbscs.rpt Executable file
View File

@ -0,0 +1,9 @@
[Headers]
80
Tabella singoli controlli sanitari
1|@0g%s|Codice
1|@7g%s|Descrizione
[Rows]
1|CODTAB|@0g@2s
1|S0|@7g@30,ls

40
at/batbscs.uml Executable file
View File

@ -0,0 +1,40 @@
#include "batbscs.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Singoli controlli sanitari" -1 -1 78 7
STRING F_TABSCS_CODTAB 2
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
HELP "Inserire il codice del singolo controllo"
USE SCS
CHECKTYPE REQUIRED
INPUT CODTAB F_TABSCS_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABSCS_CODTAB CODTAB
OUTPUT F_TABSCS_DESCR S0
KEY 1
FLAGS "U"
END
STRING F_TABSCS_DESCR 30
BEGIN
PROMPT 2 3 "Descrizione "
FIELD S0
HELP "Inserire la descrizione del singolo controllo"
USE SCS KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_TABSCS_DESCR
DISPLAY "Descrizione@30" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TABSCS_CODTAB
KEY 2
END
ENDPAGE
ENDMASK

4
gv/f158.dir
View File

@ -1,3 +1,3 @@
158
1
$righef24|0|0|138|0|Righe di delega F24|||
0
$righef24|0|0|175|0|Righe di delega F24|||

8
gv/f158.trr
View File

@ -1,5 +1,5 @@
158
14
18
PROGR|3|6|0|Progressivo riga
F24|3|6|0|Numero F24 a cui la riga e' associata
TRIBUTO|1|4|0|Codice tributo
@ -10,10 +10,14 @@ DATASCAD|5|8|0|Data scadenza
DATAVERS|5|8|0|Data versamento
ABI|10|5|0|ABI banca su cio e' stato effettuato il versamento
CAB|10|5|0|CAB
RRP|1|4|0|Rateazione/Regione/Prov.
RATEAZIONE|1|8|0|Rateazione/Regione/Prov.
ANNO|2|4|0|Anno di riferimento
IMPORTODEB|4|15|2|Importo a debito
IMPORTOCRE|4|15|2|Importo a credito
SEDE|1|4|0|Sede sezione INPS
MATRICOLA|1|17|0|Matricola
PERIODODA|10|6|0|Inizio periodo di riferimento
PERIODOA|10|6|0|Fine periodo di riferimento
3
PROGR|
F24+PROGR|

14
gv/gv0.cpp Executable file
View File

@ -0,0 +1,14 @@
#include <xvt.h>
#include "gv0.h"
int main(int argc, char** argv)
{
const int n = argc > 1 ? argv[1][1]-'0' : 0;
switch (n)
{
case 4: gv0500(argc, argv); break;
case 5: gv0600(argc, argv); break;
default: break;
}
return 0;
}

2
gv/gv0.h Executable file
View File

@ -0,0 +1,2 @@
int gv0500(int argc, char* argv[]);
int gv0600(int argc, char* argv[]);

741
gv/gv0500.cpp Executable file
View File

@ -0,0 +1,741 @@
#include "gv0.h"
#include "gv0500a.h"
#include "gvlib.h"
#include <automask.h>
#include <defmask.h>
#include <recarray.h>
#include <relapp.h>
#include <anagr.h>
#include <clifo.h>
#include <nditte.h>
///////////////////////////////////////////////////////////
// Utilities
///////////////////////////////////////////////////////////
// Trasforma un codice tributo in sezione F24
static char trib2sec(const TString& trib)
{
const TString& sec = cache().get("%TRB", trib, "S6");
return sec[0];
}
// Traformazione da codice sheet a codice tributo e viceversa
static const short ids[] = { F_ERARIO, F_INPS, 0 };
static const char sec[] = { 'E', 'I', '\0' };
static char sheet2sec(short id)
{
int i;
for (i = 0; ids[i] && ids[i] != id; i++);
return sec[i];
}
static short sec2sheet(char s)
{
int i;
for (i = 0; sec[i] && sec[i] != s; i++);
return ids[i];
}
///////////////////////////////////////////////////////////
// TF24_query_mask
///////////////////////////////////////////////////////////
class TF24_query_mask : public TAutomask
{
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TF24_query_mask() : TAutomask("gv0500a") {}
};
bool TF24_query_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
{
case F_DISTINTA:
if (e == fe_button)
{
TArray_sheet sheet(-1, -1, 60, 20, TR("Distinte"),
HR("F24@6|Progr.|Data@10|Tipo|Codice|ABI@5|CAB@5"));
TElencoF24_set delega(1); // Distinte non inviate
const long abi = get_long(F_ABI);
const long cab = get_long(F_CAB);
const char tipo = get(F_TIPOINTEST)[0];
const long f24 = atol(o.get());
long sel = 0;
for (bool ok = delega.move_first(); ok; ok = delega.move_next())
{
const long dist = delega.get(F24_F24).as_int();
bool keep = dist > 0;
if (keep && cab > 0)
keep = delega.get(F24_ABI).as_int()==abi && delega.get(F24_CAB).as_int()==cab;
if (keep && tipo > ' ')
keep = delega.get(F24_TIPOINTEST).as_string()[0] == tipo;
if (keep)
{
if (dist == f24)
sel = sheet.items();
TToken_string row;
row << dist;
row.add(delega.get(F24_PROGR).as_int());
row.add(delega.get(F24_DATASCAD).as_string());
row.add(delega.get(F24_TIPOINTEST).as_string());
row.add(delega.get(F24_INTEST).as_string());
row.add(delega.get(F24_ABI).as_string());
row.add(delega.get(F24_CAB).as_string());
sheet.add(row);
}
}
if (sel > 0)
sheet.select(sel);
if (sheet.run() == K_ENTER)
{
TToken_string& row = sheet.row();
set(F_DISTINTA, row.get_long(0));
//set(F_PROGR, row.get_long(1));
stop_run(K_AUTO_ENTER);
}
}
if (e == fe_modify)
{
TF24_set delega(atol(o.get()));
if (delega.move_first())
set(F_PROGR, delega.get(F24_PROGR).as_int());
}
break;
case F_PROGR:
if (e == fe_button)
{
// Metodo astuto come un cervo per ottenere le righe F24 non assegnate
TRigheF24_set riga(0x1);
TArray_sheet sheet(-1, -1, -3, -3, TR("Righe"),
HR("@1|Progr.|Trib.|Data@10|Debito@15R|Credito@15R|Tipo|Codice|ABI@5|CAB@5"));
const long abi = get_long(F_ABI);
const long cab = get_long(F_CAB);
const char tipo = get(F_TIPOINTEST)[0];
const long f24 = atol(o.get());
for (bool ok = riga.move_first(); ok; ok = riga.move_next())
{
bool keep = true;
if (keep && cab > 0)
keep = riga.get(F24_ABI).as_int()==abi && riga.get(F24_CAB).as_int()==cab;
if (keep && tipo > ' ')
keep = riga.get(F24_TIPOINTEST).as_string()[0] == tipo;
if (keep)
{
TToken_string row;
row = " ";
row.add(riga.get(F24_PROGR).as_int());
row.add(riga.get(F24_TRIBUTO).as_string());
row.add(riga.get(F24_DATASCAD).as_string());
row.add(riga.get(F24_IMPORTODEB).as_string());
row.add(riga.get(F24_IMPORTOCRE).as_string());
row.add(riga.get(F24_TIPOINTEST).as_string());
row.add(riga.get(F24_INTEST).as_string());
row.add(riga.get(F24_ABI).as_string());
row.add(riga.get(F24_CAB).as_string());
sheet.add(row);
}
}
if (sheet.run() == K_ENTER)
{
TToken_string& row = sheet.row();
set(F_PROGR, row.get_long(1));
set(F_DISTINTA, get_next_f24());
stop_run(K_INS);
}
}
break;
default:
break;
}
return true;
}
///////////////////////////////////////////////////////////
// TF24_mask
///////////////////////////////////////////////////////////
class TF24_edit_mask : public TAutomask
{
private:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
protected:
int find_empty_row(TSheet_field& s) const;
bool load_row(short id, const TRecordset& riga, int pos) const;
void link_tributo(TOperable_field& o);
void compute_total(short id, int rows);
public:
bool add_row(const TRecordset& riga, int pos = -1);
void compute_totals(int mode = 0xFF);
TF24_edit_mask() : TAutomask("gv0500b") {}
};
void TF24_edit_mask::compute_total(short id, int rows)
{
TSheet_field& s = sfield(id);
TMask& m = s.sheet_mask();
const TMask_field* debito = m.find_by_fieldname(F24_IMPORTODEB);
const TMask_field* credito = m.find_by_fieldname(F24_IMPORTOCRE);
const int posdeb = s.cid2index(debito->dlg());
const int poscre = s.cid2index(credito->dlg());
const bool needs_update = s.items() < rows;
real a, b;
for (int r = 0; r < rows; r++)
{
TToken_string& row = s.row(r);
a += real(row.get(posdeb));
b += real(row.get(poscre));
}
set(id+1, a);
set(id+2, b);
set(id+3, real(a-b));
if (needs_update)
s.force_update();
}
void TF24_edit_mask::compute_totals(int mode)
{
if (mode & 1)
compute_total(F_ERARIO, 6);
if (mode & 2)
compute_total(F_INPS, 4);
real saldo;
saldo += get_real(F_ERARIO_AB);
saldo += get_real(F_INPS_CD);
set(F_SALDO, saldo);
}
void TF24_edit_mask::link_tributo(TOperable_field& o)
{
TSheet_field& sheet = *o.mask().get_sheet();
const char sez[2] = { sheet2sec(sheet.dlg()), '\0' };
TString query = "USE RIGHEF24 KEY 2 SELECT 4->S6=#SEC";
query << "\nJOIN %TRB INTO CODTAB==TRIBUTO";
query << "\nTO PROGR=999999";
TISAM_recordset delega(query);
delega.set_var("#SEC", TVariant(sez));
if (delega.items() > 0)
{
TCursor_sheet s(delega.cursor(),
" |PROGR|TRIBUTO|DATASCAD|IMPORTODEB|IMPORTOCRE|ABI|CAB|TIPOINTEST|INTEST",
TR("Righe disponibili"),
HR("@1|Progr.|Trib.|Data@10|Debito@15R|Credito@15R|ABI@5|CAB@5|Tipo|Codice"),
0, 1);
if (s.run() == K_ENTER)
{
if (!s.one_checked())
s.check(s.selected());
TISAM_recordset riga("USE RIGHEF24\nFROM PROGR=#RIGA\nTO PROGR=#RIGA");
for (TRecnotype i = 0; i < s.items(); i++) if (s.checked(i))
{
const long progr = s.row(i).get_long(1);
riga.set_var("#RIGA", TVariant(progr));
if (riga.move_first())
{
const int pos = sheet.selected();
add_row(riga, pos);
if (o.mask().is_running())
sheet.update_mask(pos);
else
sheet.force_update(pos);
}
}
}
}
else
warning_box(TR("Non esistono righe F24 compatibili"));
}
int TF24_edit_mask::find_empty_row(TSheet_field& s) const
{
int i = 0;
for (i = 0; i < 6 && i < s.items(); i++)
{
const TToken_string& row = s.row(i);
if (row.empty_items())
break;
}
return i;
}
bool TF24_edit_mask::load_row(short id, const TRecordset& riga, int pos) const
{
TSheet_field& s = sfield(id);
if (pos < 0 || pos >= 6)
pos = find_empty_row(s);
bool ok = pos >= 0 && pos < 6;
if (ok)
{
TMask& m = s.sheet_mask();
TToken_string& row = s.row(pos);
row.cut(0);
FOR_EACH_MASK_FIELD(m, i, f)
{
const TFieldref* fr = f->field();
if (fr != NULL)
{
const int j = s.cid2index(f->dlg());
row.add(riga.get(fr->name()).as_string(), j);
}
}
}
return ok;
}
bool TF24_edit_mask::add_row(const TRecordset& riga, int pos)
{
const TString& tributo = riga.get(F24_TRIBUTO).as_string();
const char sec = trib2sec(tributo);
const short id = sec2sheet(sec);
bool ok = id > 0 && load_row(id, riga, pos);
if (!ok)
{
const long progr = riga.get(F24_PROGR).as_int();
error_box(FR("Impossibile aggiungere la riga %ld (%s) alla delega"),
progr, (const char*)tributo);
}
return ok;
}
bool TF24_edit_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
bool ok = true;
switch (o.dlg())
{
case DLG_USER:
if (e == fe_button && jolly > 0)
link_tributo(o);
break;
case F_ERARIO:
switch (e)
{
case se_notify_modify:
case se_notify_del:
compute_totals(0x1);
break;
case se_query_add:
ok = false;
break;
default:
break;
}
break;
case F_INPS:
switch (e)
{
case se_notify_modify:
case se_notify_del:
compute_totals(0x2);
break;
case se_query_add:
ok = false;
break;
default:
break;
}
break;
default:
break;
}
return ok;
}
///////////////////////////////////////////////////////////
// TF24_app
// TRelation_application molto all'avanguardia
// avendo un recorset filtrato come sorgente dati principale.
// Notare l'arguta implementazione dei metodi get_filtered_cursor
// e get_relation in modo far funzionare bene le ricerche
///////////////////////////////////////////////////////////
class TF24_app : public TRelation_application
{
TPointer_array _progr;
TElencoF24_set* _recset;
TArray _msk;
private:
int riscrivi(const TMask& mask);
void init_mask(TMask& mask) const;
protected:
virtual bool user_create();
virtual bool user_destroy();
virtual bool has_filtered_cursor() const { return _recset != NULL; }
virtual TCursor& get_filtered_cursor() const { return *_recset->cursor(); }
virtual TRelation* get_relation() const { return get_filtered_cursor().relation(); }
virtual bool get_next_key(TToken_string& key);
virtual bool changing_mask(int mode) { return true; }
virtual TMask* get_mask(int mode);
virtual void init_query_mode(TMask& m);
virtual void init_insert_mode(TMask& m);
virtual void init_modify_mode(TMask& m);
virtual int read(TMask& m);
virtual int write(const TMask& mask);
virtual int rewrite(const TMask& mask);
virtual bool remove();
};
bool TF24_app::user_create()
{
_recset = new TElencoF24_set(1); // Elenco di tutti gli F24 da inviare
_msk.add(new TF24_query_mask);
_msk.add(new TF24_edit_mask);
set_search_field(F_DISTINTA);
return _recset->cursor() != NULL;
}
bool TF24_app::user_destroy()
{
_msk.destroy();
delete _recset;
return true;
}
bool TF24_app::get_next_key(TToken_string& key)
{
key.cut(0);
key.add(F_DISTINTA, 0);
key.add(get_next_f24(), 1);
return true;
}
TMask* TF24_app::get_mask(int mode)
{
const int n = (mode == MODE_QUERY) ? 0 : 1;
return (TMask*)_msk.objptr(n);
}
void TF24_app::init_mask(TMask& mask) const
{
TF24_edit_mask& m = (TF24_edit_mask&)mask;
char ti = m.get(F_TIPOINTEST)[0];
long intest = m.get_long(F_PERSON);
TString codfis, ragsoc, key;
if (ti == 'C')
{
key.cut(0) << "C|" << intest;
const TRectype& cli = cache().get(LF_CLIFO, key);
codfis = cli.get(CLI_COFI);
ragsoc = cli.get(CLI_RAGSOC);
if (codfis.blank())
codfis = cli.get(CLI_PAIV);
}
else
{
if (ti == 'D' || ti <= ' ')
{
ti = prefix().firm().get(NDT_TIPOA)[0];
intest = prefix().firm().get_long(NDT_CODANAGR);
}
key.cut(0) << ti << '|' << intest;
const TRectype& anag = cache().get(LF_ANAG, key);
ragsoc = anag.get(ANA_RAGSOC);
codfis = anag.get(ANA_COFI);
if (codfis.blank())
codfis = anag.get(ANA_PAIV);
}
m.set(F_PERSON, intest);
m.set(F_COFI, codfis);
m.set(F_RAGSOC, ragsoc);
m.compute_totals();
}
void TF24_app::init_query_mode(TMask& /*mask*/)
{
}
void TF24_app::init_insert_mode(TMask& mask)
{
init_mask(mask);
const TMask& q = *get_mask(MODE_QUERY);
const long progr = q.get_long(F_PROGR);
if (progr > 0)
{
TISAM_recordset riga("USE RIGHEF24\nFROM PROGR=#RIGA\nTO PROGR=#RIGA");
riga.set_var("#RIGA", progr);
if (riga.move_first())
{
TF24_edit_mask& m = (TF24_edit_mask&)mask;
m.add_row(riga);
}
}
}
void TF24_app::init_modify_mode(TMask& mask)
{
init_mask(mask);
}
int TF24_app::read(TMask& mask)
{
const int err = TRelation_application::read(mask);
_progr.destroy(); // Azzera lista delle righe
FOR_EACH_MASK_SHEET(mask, i, s)
s->destroy();
if (err == NOERR)
{
TF24_edit_mask& m = (TF24_edit_mask&)mask;
TF24_set delega(m.get_long(F_DISTINTA));
for (bool ok = delega.move_first(); ok; ok = delega.move_next())
{
if (m.add_row(delega))
{
const long p = delega.get(F24_PROGR).as_int();
_progr.add_long(p); // Tengo traccia delle righe lette
}
}
}
return err;
}
int TF24_app::riscrivi(const TMask& mask)
{
TPointer_array righe;
if (mask.sheets() > 0) // dummy test
{
// Compila la lista di tutte le righe F24 nella distinta corrente
FOR_EACH_MASK_SHEET(mask, i, s)
{
const TMask_field* friga = s->sheet_mask().find_by_fieldname(F24_PROGR);
const int pos = s->cid2index(friga->dlg());
FOR_EACH_SHEET_ROW(*s, r, row)
{
const long progr = row->get_long(pos);
if (progr > 0)
righe.add_long(progr);
}
}
}
TLocalisamfile righef24(LF_RIGHEF24);
if (_progr.items() > 0)
{
// Scollega tutte le righe f24 ora non piu' presenti
for (int r = 0; r < _progr.items(); r++)
{
const long progr = _progr.get_long(r);
if (righe.find_long(progr) < 0) // Questa riga c'era prima ma ora non piu'
{
righef24.put("PROGR", progr);
int err = righef24.read(_isequal, _lock);
if (err == NOERR)
{
righef24.zero("F24");
err = righef24.rewrite();
}
if (err != NOERR)
error_box("Errore %d di scollegamento della riga %ld", err, progr);
}
}
}
// Tenta eventuale rinumerazione della distinta
if (mask.insert_mode())
{
righef24.setkey(2);
long f24 = 0;
for (f24 = mask.get_long(F_DISTINTA); ; f24++)
{
righef24.zero();
righef24.put("F24", f24);
int err = righef24.read(_isgreat);
if (err != NOERR || righef24.get_long("F24") != f24)
break;
}
((TMask&)mask).set(F_DISTINTA, f24); // Aggiorna numero distinta
}
// Mi preparo a numerare le eventuali righe nuove
long next_progr = get_next_progr_f24();
// Salva le righe F24 nella distinta corrente
FOR_EACH_MASK_SHEET(mask, i, s)
{
// Calcolo le posizioni dei campi importanti nella TToken_string
const TMask_field* frig = s->sheet_mask().find_by_fieldname(F24_PROGR);
const TMask_field* fdeb = s->sheet_mask().find_by_fieldname(F24_IMPORTODEB);
const TMask_field* fcre = s->sheet_mask().find_by_fieldname(F24_IMPORTOCRE);
const int pos_pro = s->cid2index(frig->dlg()); // Progressivo
const int pos_deb = s->cid2index(fdeb->dlg()); // Debito
const int pos_cre = s->cid2index(fcre->dlg()); // Credito
// Scandisco le righe dello sheet
FOR_EACH_SHEET_ROW(*s, r, row)
{
const real deb = row->get(pos_deb);
const real cre = row->get(pos_cre);
const bool is_empty = deb.is_zero() && cre.is_zero();
long progr = row->get_long(pos_pro);
int err = NOERR;
if (progr <= 0 && !is_empty) // E' una riga nuova con importi validi?
{
do
{
progr = next_progr++;
righef24.zero();
righef24.put(F24_PROGR, progr);
righef24.put(F24_F24, mask.get(F_DISTINTA));
err = righef24.write();
} while (err == _isreinsert);
if (err != NOERR)
{
error_box(FR("Errore %d nell'inserimento righe F24"), err);
return err;
}
row->add(progr, pos_pro); // Aggiorno il progressivo nella riga nuova
}
if (progr > 0) // E' una riga da aggiornare?
{
righef24.zero();
righef24.put(F24_PROGR, progr);
if (is_empty)
{
err = righef24.remove();
}
else
{
err = righef24.read(_isequal, _lock);
if (err == NOERR)
{
FOR_EACH_MASK_FIELD(s->sheet_mask(), i, f)
{
const TFieldref* fr = f->field();
if (fr != NULL)
{
const int pos = s->cid2index(f->dlg());
righef24.put(fr->name(), row->get(pos));
}
}
// Metto anche la roba di testata uguale per tutti
FOR_EACH_MASK_FIELD(mask, j, g)
{
const TFieldref* fr = g->field();
if (fr != NULL)
righef24.put(fr->name(), g->get());
}
err = righef24.rewrite();
}
}
if (err != NOERR)
{
error_box(FR("Errore %d nell'aggiornamento righe F24"), err);
return err;
}
}
}
}
_recset->requery(); // Aggiorno la lista delle distinte
_progr = righe; // Forse verra' fatto comunque dalla prossima read
// Sembra utile non passare in modifica della distinta successiva!
TRectype& rec = get_filtered_cursor().curr();
rec.put(F24_F24, mask.get(F_DISTINTA));
rec.zero(F24_PROGR);
get_filtered_cursor().read();
return NOERR;
}
int TF24_app::write(const TMask& mask)
{
_progr.destroy(); // Precauzione inutile? Chissa'!
return riscrivi(mask);
}
int TF24_app::rewrite(const TMask& mask)
{
return riscrivi(mask);
}
// Azzera il campo F24 nelle righe della distinta corrente
bool TF24_app::remove()
{
const long f24 = get_relation()->curr().get_long(F24_F24);
/*
// Vecchio modo
TRectype rec(LF_RIGHEF24);
rec.put(F24_F24, f24);
TCursor cur(get_relation(), "", 2, &rec, &rec);
const TRecnotype items = cur.items();
cur.freeze();
for (cur = 0; cur.pos() < items; ++cur)
{
cur.curr().zero(F24_F24);
cur.relation()->rewrite();
}
*/
// Lezione di stile
TF24_set cur(f24);
TRelation& rel = *cur.cursor()->relation();
for (bool ok = cur.move_first(); ok; ok = cur.move_next())
{
rel.curr().zero(F24_F24);
rel.rewrite();
}
return true;
}
int gv0500(int argc, char* argv[])
{
TF24_app app;
app.run(argc, argv, "F24");
return 0;
}

27
gv/gv0500a.h Executable file
View File

@ -0,0 +1,27 @@
#define F_ABI 202
#define F_CAB 203
#define F_DESABI 204
#define F_DESCAB 205
#define F_TIPOINTEST 211
#define F_CLIFO 212
#define F_PERSON 213
#define F_DISTINTA 214
#define F_PROGR 215
#define F_COFI 301
#define F_RAGSOC 302
#define F_ERARIO 401
#define F_ERARIO_A 402
#define F_ERARIO_B 403
#define F_ERARIO_AB 404
#define F_INPS 501
#define F_INPS_C 502
#define F_INPS_D 503
#define F_INPS_CD 504
#define F_SALDO 999

115
gv/gv0500a.uml Executable file
View File

@ -0,0 +1,115 @@
#include "gv0500a.h"
TOOLBAR "" 0 -2 0 2
#include <toolbar.h>
ENDPAGE
PAGE "F24" 0 0 0 -3
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 0 "@bSelezione"
END
NUMBER F_ABI 5
BEGIN
PROMPT 2 1 "ABI "
CHECKTYPE NORMAL
FLAGS "Z"
END
NUMBER F_CAB 5
BEGIN
PROMPT 2 2 "CAB "
USE BNP
JOIN %BAN ALIAS 883 INTO CODTAB==CODTAB[1,5]
JOIN %BAN ALIAS 884 INTO CODTAB==CODTAB
INPUT CODTAB[1,5] F_ABI
INPUT CODTAB[6,10] F_CAB
DISPLAY "ABI@5" CODTAB[1,5]
DISPLAY "CAB@5" CODTAB[6,10]
DISPLAY "Descrizione@50" 884@->S0
OUTPUT F_ABI CODTAB[1,5]
OUTPUT F_CAB CODTAB[6,10]
OUTPUT F_DESABI 883@->S0
OUTPUT F_DESCAB 884@->S0
CHECKTYPE NORMAL
FLAGS "Z"
END
STRING F_DESABI 70 50
BEGIN
PROMPT 26 1 ""
FLAGS "D"
END
STRING F_DESCAB 70 50
BEGIN
PROMPT 26 2 ""
USE BNP KEY 2
JOIN %BAN ALIAS 883 INTO CODTAB==CODTAB[1,5]
JOIN %BAN ALIAS 884 INTO CODTAB==CODTAB
INPUT S0 F_DESCAB
DISPLAY "Descrizione@50" 884@->S0
DISPLAY "ABI@5" CODTAB[1,5]
DISPLAY "CAB@5" CODTAB[6,10]
COPY OUTPUT F_CAB
CHECKTYPE NORMAL
END
LIST F_TIPOINTEST 1 10
BEGIN
PROMPT 2 3 "Intestatario "
ITEM " |Tutti" MESSAGE HIDE,F_CLIFO|HIDE,F_PERSON
ITEM "D|Ditta" MESSAGE HIDE,F_CLIFO|HIDE,F_PERSON
ITEM "C|Cliente" MESSAGE SHOW,F_CLIFO|HIDE,F_PERSON
ITEM "F|Fisico" MESSAGE HIDE,F_CLIFO|SHOW,F_PERSON
ITEM "G|Giuridico" MESSAGE HIDE,F_CLIFO|SHOW,F_PERSON
END
NUMBER F_CLIFO 6
BEGIN
PROMPT 36 3 ""
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CLIFO
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CLIFO CODCF
CHECKTYPE NORMAL
ADD RUN cg0 -1 C
END
NUMBER F_PERSON 6
BEGIN
PROMPT 36 3 ""
USE LF_ANAG
INPUT TIPOA F_TIPOINTEST
INPUT CODANAGR F_PERSON
DISPLAY "Codice" CODANAGR
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_PERSON CODANAGR
CHECKTYPE NORMAL
ADD RUN ba4 -1 #F_TIPOINTEST
END
NUMBER F_DISTINTA 6
BEGIN
PROMPT 2 5 "Distinta "
FIELD F24
KEY 2
FLAGS "B"
CHECKTYPE REQUIRED
END
NUMBER F_PROGR 6
BEGIN
PROMPT 22 5 "Progressivo "
FIELD PROGR
FLAGS "B"
KEY 1
END
ENDPAGE
ENDMASK

7
gv/gv0500b.h Executable file
View File

@ -0,0 +1,7 @@
#define F_FILTER 101
#define F_ABI 102
#define F_CAB 103
#define F_DESBAN 104
#define F_TIPOINTEST 105
#define F_CLIFO 106
#define F_PERSON 107

473
gv/gv0500b.uml Executable file
View File

@ -0,0 +1,473 @@
#include "gv0500a.h"
TOOLBAR "" 0 -3 0 3
#include <toolbar.h>
CURRENCY F_SALDO 15
BEGIN
PROMPT 49 0 "@bSALDO FINALE "
FLAGS "D"
END
ENDPAGE
PAGE "Erario" 0 0 0 -3
GROUPBOX -1 78 4
BEGIN
PROMPT 1 0 "AGENZIA DELLE ENTRATE"
END
TEXT -1
BEGIN
PROMPT 2 1 "@bMODELLO DI PAGAMENTO"
END
TEXT -1
BEGIN
PROMPT 2 2 "@bUNIFICATO"
END
NUMBER F_DISTINTA 6
BEGIN
PROMPT 16 2 ""
FLAGS "D"
FIELD F24
KEY 2
END
NUMBER F_ABI 5
BEGIN
PROMPT 24 1 ""
FLAGS "Z"
FIELD ABI
CHECKTYPE REQUIRED
END
STRING F_DESABI 50 44
BEGIN
PROMPT 32 1 ""
FLAGS "D"
END
NUMBER F_CAB 5
BEGIN
PROMPT 24 2 ""
USE BNP
JOIN %BAN ALIAS 883 INTO CODTAB==CODTAB[1,5]
JOIN %BAN ALIAS 884 INTO CODTAB==CODTAB
INPUT CODTAB[1,5] F_ABI
INPUT CODTAB[6,10] F_CAB
DISPLAY "ABI@5" CODTAB[1,5]
DISPLAY "CAB@5" CODTAB[6,10]
DISPLAY "Descrizione@50" 884@->S0
OUTPUT F_ABI CODTAB[1,5]
OUTPUT F_CAB CODTAB[6,10]
OUTPUT F_DESABI 883@->S0
OUTPUT F_DESCAB 884@->S0
CHECKTYPE REQUIRED
FLAGS "Z"
FIELD CAB
END
STRING F_DESCAB 50 44
BEGIN
PROMPT 32 2 ""
USE BNP KEY 2
JOIN %BAN ALIAS 883 INTO CODTAB==CODTAB[1,5]
JOIN %BAN ALIAS 884 INTO CODTAB==CODTAB
INPUT S0 F_DESCAB
DISPLAY "Descrizione@50" 884@->S0
DISPLAY "ABI@5" CODTAB[1,5]
DISPLAY "CAB@5" CODTAB[6,10]
COPY OUTPUT F_CAB
CHECKTYPE SEARCH
END
GROUPBOX -1 78 4
BEGIN
PROMPT 1 4 "CONTRIBUENTE"
END
LIST F_TIPOINTEST 1 10
BEGIN
PROMPT 2 5 "Intestatario "
ITEM "D|Ditta"
ITEM "C|Cliente"
ITEM "F|Fisico"
ITEM "G|Giuridico"
FLAGS "D"
FIELD TIPOINTEST
END
NUMBER F_PERSON 6
BEGIN
PROMPT 32 5 ""
FIELD INTEST
FLAGS "D"
END
STRING F_COFI 13
BEGIN
PROMPT 47 5 "Codice fiscale "
FLAGS "D"
END
STRING F_RAGSOC 50 58
BEGIN
PROMPT 2 6 "Ragione sociale "
FLAGS "D"
END
TEXT -1
BEGIN
PROMPT 1 10 "@bSEZIONE ERARIO"
END
SPREADSHEET F_ERARIO 0 8
BEGIN
PROMPT 2 11 "Erario"
ITEM "cod.\ntrib.@4"
ITEM "rateazione\nreg./prov.@10"
ITEM "anno\nrif."
ITEM "importi a debito\nversati@18"
ITEM "importi a credito\ncompensati@18"
ITEM "riga@7"
ITEM "descrizione@50"
END
CURRENCY F_ERARIO_A 15
BEGIN
PROMPT 2 20 "@b(A) "
FLAGS "D"
END
CURRENCY F_ERARIO_B 15
BEGIN
PROMPT 26 20 "@b(B) "
FLAGS "D"
END
CURRENCY F_ERARIO_AB 15
BEGIN
PROMPT 50 20 "@bSaldo (A-B) "
FLAGS "D"
END
ENDPAGE
PAGE "INPS/Regioni" -1 -1 0 0
TEXT -1
BEGIN
PROMPT 1 0 "@bSEZIONE INPS"
END
SPREADSHEET F_INPS 0 6
BEGIN
PROMPT 2 1 "INPS"
ITEM "codice\nsede"
ITEM "caus.\ncontr.@5"
ITEM "matricola INPS\ncodice INPS"
ITEM "da mm/aaaa"
ITEM "a mm/aaaa"
ITEM "importi\na debito@15"
ITEM "importi\na credito@15"
ITEM "riga@7"
END
CURRENCY F_INPS_C 15
BEGIN
PROMPT 2 8 "@b(C) "
FLAGS "D"
END
CURRENCY F_INPS_D 15
BEGIN
PROMPT 26 8 "@b(D) "
FLAGS "D"
END
CURRENCY F_INPS_CD 15
BEGIN
PROMPT 50 8 "@bSaldo (C-D) "
FLAGS "D"
END
ENDPAGE
ENDMASK
PAGE "Erario" -1 -1 68 6
TEXT -1
BEGIN
PROMPT 1 0 "codice"
END
TEXT -1
BEGIN
PROMPT 1 1 "tributo"
END
STRING 101 4
BEGIN
PROMPT 1 2 ""
USE %TRB SELECT S6=="E"
INPUT CODTAB 101
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@70" S0
OUTPUT 101 CODTAB
CHECKTYPE REQUIRED
FIELD TRIBUTO
END
TEXT -1
BEGIN
PROMPT 9 0 "rateazione"
END
TEXT -1
BEGIN
PROMPT 9 1 "reg./prov."
END
STRING 102 8
BEGIN
PROMPT 9 2 ""
END
TEXT -1
BEGIN
PROMPT 19 1 "anno"
END
NUMBER 103 4
BEGIN
PROMPT 19 2 ""
FIELD ANNO
END
TEXT -1
BEGIN
PROMPT 25 0 "importi a debito"
END
TEXT -1
BEGIN
PROMPT 25 1 "versati"
END
CURRENCY 104 15
BEGIN
PROMPT 25 2 ""
FIELD IMPORTODEB
END
TEXT -1
BEGIN
PROMPT 45 0 "importi a credito"
END
TEXT -1
BEGIN
PROMPT 45 1 "compensati"
END
CURRENCY 105 15
BEGIN
PROMPT 45 2 ""
FIELD IMPORTOCRE
END
NUMBER 106 7
BEGIN
PROMPT 1 4 "riga "
FLAGS "D"
FIELD PROGR
END
STRING 107 50
BEGIN
PROMPT 10 4 ""
FIELD DESCR
END
BUTTON DLG_USER 10 2
BEGIN
PROMPT -14 -1 ""
PICTURE BMP_LINK
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -24 -1 ""
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -34 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -44 -1 ""
END
ENDPAGE
ENDMASK
PAGE "INPS" -1 -1 78 9
TEXT -1
BEGIN
PROMPT 1 0 "codice"
END
TEXT -1
BEGIN
PROMPT 1 1 "sede"
END
STRING 101 4
BEGIN
PROMPT 1 2 ""
FIELD SEDE
END
TEXT -1
BEGIN
PROMPT 10 0 "causale"
END
TEXT -1
BEGIN
PROMPT 10 1 "contr."
END
STRING 102 4
BEGIN
PROMPT 10 2 ""
USE %TRB SELECT S6=="I"
INPUT CODTAB 101
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@70" S0
OUTPUT 101 CODTAB
CHECKTYPE REQUIRED
FIELD TRIBUTO
END
TEXT -1
BEGIN
PROMPT 21 0 "matricola INPS"
END
TEXT -1
BEGIN
PROMPT 21 1 "codice INPS"
END
STRING 103 17
BEGIN
PROMPT 19 2 ""
FIELD MATRICOLA
END
TEXT -1
BEGIN
PROMPT 40 0 "periodo di riferimento"
END
TEXT -1
BEGIN
PROMPT 40 1 "da mm/aaaa"
END
NUMBER 104 6
BEGIN
PROMPT 48 2 ""
FIELD PERIODODA
END
TEXT -1
BEGIN
PROMPT 48 1 "a mm/aaaa"
END
NUMBER 105 6
BEGIN
PROMPT 40 2 ""
FIELD PERIODOA
END
TEXT -1
BEGIN
PROMPT 1 3 "importi a debito"
END
TEXT -1
BEGIN
PROMPT 1 4 "versati"
END
CURRENCY 106 15
BEGIN
PROMPT 1 5 ""
FIELD IMPORTODEB
END
TEXT -1
BEGIN
PROMPT 18 3 "importi a credito"
END
TEXT -1
BEGIN
PROMPT 18 4 "compensati"
END
CURRENCY 107 15
BEGIN
PROMPT 18 5 ""
FIELD IMPORTOCRE
END
NUMBER 108 7
BEGIN
PROMPT 1 7 "riga "
FIELD PROGR
FLAGS "D"
END
STRING 109 50
BEGIN
PROMPT 10 7 ""
FIELD DESCR
END
BUTTON DLG_USER 10 2
BEGIN
PROMPT -14 -1 ""
PICTURE BMP_LINK
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -24 -1 ""
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -34 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -44 -1 ""
END
ENDPAGE
ENDMASK

1033
gv/gv0600.cpp Executable file
View File

File diff suppressed because it is too large Load Diff

18
gv/gv0600a.h Executable file
View File

@ -0,0 +1,18 @@
#define F_DISTINTE 200
#define F_PATH 201
#define F_FILE 202
#define F_DATAPAG 203
#define F_DATA 204
#define F_FILTER 210
#define F_DATA_DA 211
#define F_DATA_AL 212
#define F_ABI 213
#define F_CAB 214
#define F_DESBAN 215
#define F_TIPOINTEST 216
#define F_CLIFO 217
#define F_PERSON 218
#define F_MITTENTE 301

267
gv/gv0600a.uml Executable file
View File

@ -0,0 +1,267 @@
#include "gv0600a.h"
TOOLBAR "" 0 -2 0 2
BUTTON DLG_ELABORA 10 2
BEGIN
PROMPT -12 -11 "~Elabora"
PICTURE BMP_ELABORA
MESSAGE EXIT,69
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -11 ""
END
ENDPAGE
PAGE "Invio F4" 0 0 0 -3
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 0 "@bSelezione"
END
LIST F_FILTER 1 13
BEGIN
PROMPT 2 1 "Mostra distinte "
ITEM " |da inviare"
ITEM "I|inviate"
ITEM "Q|qualsiasi"
END
DATE F_DATA_DA
BEGIN
PROMPT 36 1 "Scadenze dal"
END
DATE F_DATA_AL
BEGIN
PROMPT 62 1 "al "
END
NUMBER F_ABI 5
BEGIN
PROMPT 2 2 "Banca (ABI-CAB) "
CHECKTYPE REQUIRED
FLAGS "Z"
FIELD ABI
END
NUMBER F_CAB 5
BEGIN
PROMPT 25 2 " "
USE BNP
JOIN %BAN ALIAS 883 INTO CODTAB==CODTAB
INPUT CODTAB[1,5] F_ABI
INPUT CODTAB[6,10] F_CAB
DISPLAY "ABI@5" CODTAB[1,5]
DISPLAY "CAB@5" CODTAB[6,10]
DISPLAY "Descrizione@50" 883@->S0
OUTPUT F_ABI CODTAB[1,5]
OUTPUT F_CAB CODTAB[6,10]
OUTPUT F_DESBAN 883@->S0
CHECKTYPE REQUIRED
FLAGS "Z"
FIELD CAB
END
STRING F_DESBAN 70 40
BEGIN
PROMPT 36 2 ""
FLAGS "D"
END
LIST F_TIPOINTEST 1 10
BEGIN
PROMPT 2 3 "Intestatario "
ITEM " |Tutti" MESSAGE HIDE,F_CLIFO|HIDE,F_PERSON
ITEM "C|Cliente" MESSAGE SHOW,F_CLIFO|HIDE,F_PERSON
ITEM "D|Ditta" MESSAGE HIDE,F_CLIFO|HIDE,F_PERSON
ITEM "F|Fisico" MESSAGE HIDE,F_CLIFO|SHOW,F_PERSON
ITEM "G|Giuridico" MESSAGE HIDE,F_CLIFO|SHOW,F_PERSON
END
NUMBER F_CLIFO 6
BEGIN
PROMPT 36 3 ""
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CLIFO
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CLIFO CODCF
CHECKTYPE NORMAL
ADD RUN cg0 -1 C
END
NUMBER F_PERSON 6
BEGIN
PROMPT 36 3 ""
USE LF_ANAG
INPUT TIPOA F_TIPOINTEST
INPUT CODANAGR F_PERSON
DISPLAY "Codice" CODANAGR
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_PERSON CODANAGR
CHECKTYPE NORMAL
ADD RUN ba4 -1 #F_TIPOINTEST
END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 5 "@bParametri"
END
STRING F_MITTENTE 5
BEGIN
PROMPT 2 6 "Codice SIA del mittente "
CHEKCTYPE REQUIRED
FIELD Mittente
END
DATE F_DATA
BEGIN
PROMPT 49 6 "Data di creazione "
CHEKCTYPE REQUIRED
FLAGS "A"
END
DATE F_DATAPAG
BEGIN
PROMPT 49 7 "Data di pagamento "
CHEKCTYPE REQUIRED
END
STRING F_PATH 256 39
BEGIN
PROMPT 2 8 "Cartella "
DSELECT
CHECKTYPE REQUIRED
FIELD F24DestPath
END
STRING F_FILE 18
BEGIN
PROMPT 54 8 "File "
FLAGS "DG"
DRIVENBY F_DATA F_ABI F_MITTENTE
STR_CALC ANSI(#F_DATA)+#F_ABI+#F_MITTENTE
END
SPREADSHEET F_DISTINTE 78
BEGIN
PROMPT 1 10 ""
ITEM "@1"
ITEM "Distinta"
ITEM "Scadenza@10"
ITEM "ABI@5"
ITEM "CAB@5"
ITEM "Tipo@2"
ITEM "Intestatario"
ITEM "Invio@10"
FLAGS "D"
END
ENDPAGE
ENDMASK
PAGE "Distinta" -1 -1 56 12
GROUP DLG_NULL 54 4
BEGIN
PROMPT 1 0 "@bDistinta"
END
BOOLEAN 101
BEGIN
PROMPT 2 1 "Da inviare"
END
NUMBER 102 7
BEGIN
PROMPT 2 2 "Numero "
FLAGS "L"
FIELD F24
END
DATE 103
BEGIN
PROMPT 32 1 "Scadenza "
FLAGS "L"
FIELD DATASCAD
END
DATE 108
BEGIN
PROMPT 32 2 "Inviata il "
FLAGS "L"
FIELD DATAVERS
END
GROUP DLG_NULL 54 4
BEGIN
PROMPT 1 4 "@bBanca"
END
NUMBER 104 5
BEGIN
PROMPT 2 5 "ABI "
FIELD ABI
FLAGS "LZ"
END
NUMBER 105 5
BEGIN
PROMPT 16 5 "CAB "
FIELD CAB
FLAGS "LZ"
USE %BAN
INPUT CODTAB[1,5] 104
INPUT CODTAB[6,10] 105
DISPLAY "ABI@5" CODTAB[1,5]
DISPLAY "CAB@5" CODTAB[6,10]
DISPLAY "Descrizione@50" S0
OUTPUT 115 S0
CHECTYPE NORMAL
END
STRING 115 50
BEGIN
PROMPT 2 6 ""
FLAGS "D"
END
GROUP DLG_NULL 54 3
BEGIN
PROMPT 1 8 "@bIntestatario"
END
LIST 106 1 10
BEGIN
PROMPT 2 9 "Tipo "
ITEM "C|Cliente"
ITEM "D|Ditta"
ITEM "F|Fisico"
ITEM "G|Giuridico"
FIELD TIPOINTEST
FLAGS "L"
END
NUMBER 107 6
BEGIN
PROMPT 26 9 ""
FIELD INTEST
FLAGS "L"
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -11 -1 ""
END
ENDPAGE
ENDMASK

106
gv/gvlib.cpp Executable file
View File

@ -0,0 +1,106 @@
#include "gvlib.h"
#include <relation.h>
///////////////////////////////////////////////////////////
// TRigheF24_set
///////////////////////////////////////////////////////////
// 0=tutte 1=libere 2=assegnate 3=tutte
TRigheF24_set::TRigheF24_set(int flags)
: TISAM_recordset("USE RIGHEF24 KEY 2")
{
switch ((flags & 0x3) % 3)
{
case 1: set("USE RIGHEF24 KEY 2\nTO PROGR=999999"); break;
case 2: set("USE RIGHEF24 KEY 2\nFROM F24=1"); break;
default: break;
}
}
///////////////////////////////////////////////////////////
// TF24_set
///////////////////////////////////////////////////////////
TF24_set::TF24_set(long codice)
: TISAM_recordset("USE RIGHEF24 KEY 2\nFROM F24=#DIST\nTO F24=#DIST")
{
CHECKD(codice > 0, "Distinta ma sospetta:", codice);
set_var("#DIST", TVariant(codice));
}
///////////////////////////////////////////////////////////
// TElencoF24_set
///////////////////////////////////////////////////////////
const TElencoF24_set* TElencoF24_set::_currentF24 = NULL;
bool TElencoF24_set::f24killer(const TRelation* rel)
{
// Il record e' buono se il bit corrispondente e' settato
return _currentF24->_good[rel->file().recno()];
}
TCursor* TElencoF24_set::cursor() const
{
_currentF24 = this;
TCursor* c = TISAM_recordset::cursor();
if (c != NULL && c->filterfunction() == NULL)
{
TBit_array& goodies = ((TElencoF24_set*)this)->_good;
goodies.reset();
long last = 0;
TRecnotype tot = c->items();
const TRectype& curr = c->curr();
for (*c = 0; c->pos() < tot; ++*c)
{
const long f24 = curr.get_long("F24");
bool good = f24 > last;
if (good)
{
last = f24;
if (_flags != 0) // Non voglio tutto?
{
const TDate inv = curr.get(F24_DATAVERS);
good = (_flags == 1) ^ inv.ok();
}
if (good)
goodies.set(c->file().recno());
}
}
c->freeze(false);
c->set_filterfunction(f24killer);
tot = c->items();
c->freeze(true);
}
return c;
}
// 0=tutte 1=da inviare 2=inviate 3=tutte
TElencoF24_set::TElencoF24_set(int flags)
: TRigheF24_set(0x2)
{
_flags = (flags & 0x3) % 3; // isolo i flag = 1 o flag = 2
}
long get_next_f24()
{
long f24 = 1;
TRigheF24_set deleghe(0x2);
if (deleghe.move_last())
f24 += deleghe.get(F24_F24).as_int();
return f24;
}
long get_next_progr_f24()
{
TLocalisamfile righef24(LF_RIGHEF24);
long next_progr = 1;
if (righef24.read(_islast) == NOERR)
next_progr += righef24.get_long(F24_PROGR);
return next_progr;
}

43
gv/gvlib.h Executable file
View File

@ -0,0 +1,43 @@
#ifndef __GVLIB_H
#define __GVLIB_H
#ifndef __RECSET_H
#include <recset.h>
#endif
#ifndef __RIGHE_F24
#include <righef24.h>
#endif
// Elenco di tutte righe + o - assegnate ad un F24
class TRigheF24_set : public TISAM_recordset
{
public:
TRigheF24_set(int flags = 0); // 0=tutte 1=libere 2=assegnate 3=tutte
};
// Elenco delle righe di un singolo F24
class TF24_set : public TISAM_recordset
{
public:
TF24_set(long codice);
};
// Elenco delle distinte F24 (solo la prima riga di ognuna)
class TElencoF24_set : public TRigheF24_set
{
int _flags;
TBit_array _good;
static const TElencoF24_set* _currentF24;
static bool f24killer(const TRelation* rel);
public:
virtual TCursor* cursor() const;
TElencoF24_set(int flags = 0); // 0=tutte 1=da inviare 2=inviate 3=tutte
};
long get_next_f24();
long get_next_progr_f24();
#endif

7
include/array.cpp
View File

@ -627,6 +627,13 @@ int TPointer_array::insert(const TObject& object, int index, bool force)
return TArray::insert(&(TObject&)object, index, force);
}
int TPointer_array::find_long(long value) const
{
int i = 0;
for (i = last(); i >= 0 && get_long(i) != value; i = pred(i));
return i;
}
///////////////////////////////////////////////////////////
// TBit_array
///////////////////////////////////////////////////////////

15
include/array.h
View File

@ -176,20 +176,20 @@ public:
TArray& operator=(const TArray& a);
// @cmember Rimuove uno o tutti (default) gli elementi
virtual bool destroy(int index = -1, bool pack = FALSE);
virtual bool destroy(int index = -1, bool pack = false);
// @cmember Aggiunge un oggetto ad un array.
virtual int add(TObject* obj, int index = -1) ;
// @cmember Inserisce un elemento dell'array nella posizione index
virtual int insert(TObject* obj, int index = 0, bool force = FALSE);
virtual int insert(TObject* obj, int index = 0, bool force = false);
// @cmember Aggiunge un oggetto all'array. L'oggetto viene duplicato
virtual int add(const TObject& object, int index = -1) ;
// @cmember Inserisce un oggetto alla posizione index
virtual int insert(const TObject& object, int index = 0, bool force = FALSE);
virtual int insert(const TObject& object, int index = 0, bool force = false);
// @cmember Elimina l'elemento nella posizione index dell'array
TObject* remove(int index, bool pack = FALSE);
TObject* remove(int index, bool pack = false);
// @cmember Elimina l'elemento nella posizione index dell'array
TObject* remove_item(bool pack = FALSE) ;
TObject* remove_item(bool pack = false) ;
// @cmember Scambia di posto due elementi dell'array
void swap(int i1, int i2);
// @cmember Rende contigui tutti gli elementi non nulli
@ -229,10 +229,10 @@ protected:
void copy(const TArray& a);
public:
virtual bool destroy(int index = -1, bool pack = FALSE);
virtual bool destroy(int index = -1, bool pack = false);
virtual int add(TObject* object, int index = -1);
virtual int add(const TObject& object, int index = -1);
virtual int insert(const TObject& object, int index = 0, bool force = FALSE);
virtual int insert(const TObject& object, int index = 0, bool force = false);
virtual TPointer_array& operator= (const TArray& a) { copy(a); return *this; }
virtual TPointer_array& operator= (const TPointer_array& a) { copy(a); return *this; }
@ -240,6 +240,7 @@ public:
int get_int(int index) const { return (int)get_long(index); }
int add_long(long value, int index = -1) { return add((TObject*)value, index); }
int insert_long(long value, int index = -1) { return TArray::insert((TObject*)value, index, TRUE); }
int find_long(long value) const;
TPointer_array() { }
TPointer_array(int size) : TArray(size) { }

2
include/assoc.cpp
View File

@ -266,7 +266,7 @@ TObject& TAssoc_array::find(
TObject* TAssoc_array::objptr(
const char* key) const // @parm Chiave dell'oggetto da ritornare
{
bool isnew = FALSE;
bool isnew = false;
THash_object* o = ((TAssoc_array*)this)->_lookup(key,isnew);
return o ? o->_obj : NULL;
}

2
include/campo.aut
View File

@ -25,7 +25,7 @@ vd Vendita al dettaglio
af Autoformazione
gi Gestione ICI
is Gestione ISI
tc Tecnico Contabile
tc Trasferimento altre Contabilita'
tm Tecnico Approv. Merci
ac Accettazione AVIS
av AVIS Assist

1
include/causali.h
View File

@ -25,5 +25,6 @@
#define CAU_SOLOIVA "SOLOIVA"
#define CAU_MOVIND "MOVIND"
#define CAU_PROVV "PROVV"
#define CAU_CODCAUREG "CODCAUREG"
#endif

12
include/codeb.c
View File

@ -138,6 +138,7 @@ int DB_open(const char *filename,int mode,int index)
int DB_close(int handle)
{
if(!handle_ok(handle)) return(-1);
d4close(dbdata[handle]);
dbdata[handle]=(DATA4 *) 0;
code_base.errorCode=0;
@ -412,7 +413,10 @@ int DB_rewrite(int handle)
d4recNo(dbdata[handle]) + 1, d4fileName(dbdata[handle]));
xvt_dm_post_fatal_exit(msg);
}
rt=DB_unlock(handle);
if (rt == 0)
rt = DB_flush(handle);
rt = DB_unlock(handle);
return (rt);
}
@ -462,9 +466,9 @@ int DB_add(int handle)
u4delaySec();
}
}
DB_unlock(handle);
if (is_locked == 0)
d4unlock(data);
DB_unlock(handle);
return(rt);
}
@ -1160,7 +1164,7 @@ char* DB_memoptr( const int handle, const char * fieldname )
return f4memoPtr( f );
}
int DB_memowrite( const int handle, const char * fieldname, const char * data )
int DB_memowrite( const int handle, const char* fieldname, const char* data )
{
FIELD4* f = d4field(dbdata[handle], fieldname );
int ret = f4memoAssign( f, (char*)data );

137
include/controls.cpp
View File

@ -91,6 +91,7 @@ class TPicture_array
public:
bool add(short id);
short add(const char * n);
const TImage& image(short id) const { return (const TImage&)_enabled[id]; }
const TImage& disabled_image(short id) const { return (const TImage&)_disabled[id]; }
@ -101,6 +102,15 @@ public:
virtual ~TPicture_array() {}
};
short TPicture_array::add(const char * n)
{
short id;
for (id = 30000; objptr(id) != NULL; id++);
return TArray::add(new TImage(n), id);
}
bool TPicture_array::add(short id)
{
TImage* i = (TImage*)_enabled.objptr(id);
@ -152,6 +162,8 @@ void TPicture_array::reload()
HIDDEN TPicture_array* _picture = NULL;
HIDDEN XVT_FNTID DEF_FONT = NULL;
HIDDEN XVT_FNTID FAT_FONT = NULL;
HIDDEN XVT_FNTID BIG_FONT = NULL;
HIDDEN XVT_FNTID BIGFAT_FONT = NULL;
bool is_xvt_font(const char * nome_font)
{
@ -168,7 +180,7 @@ bool is_xvt_font(const char * nome_font)
return found;
}
XVT_FNTID xvt_default_font(bool bold)
XVT_FNTID xvt_default_font(bool bold, bool big)
{
if (DEF_FONT == NULL)
{
@ -203,7 +215,18 @@ XVT_FNTID xvt_default_font(bool bold)
xvt_font_map_using_default(FAT_FONT);
CHECK(xvt_font_is_mapped(FAT_FONT), "Can't map native font");
// Compute true text size
BIG_FONT = xvt_font_create();
xvt_font_copy(BIG_FONT, DEF_FONT, XVT_FA_ALL);
xvt_font_set_size(BIG_FONT, xvt_font_get_size(DEF_FONT) * 2);
xvt_font_map_using_default(BIG_FONT);
CHECK(xvt_font_is_mapped(BIG_FONT), "Can't map native font");
BIGFAT_FONT = xvt_font_create();
xvt_font_copy(BIGFAT_FONT, FAT_FONT, XVT_FA_ALL);
xvt_font_set_size(BIGFAT_FONT, xvt_font_get_size(FAT_FONT) * 2);
xvt_font_map_using_default(BIGFAT_FONT);
CHECK(xvt_font_is_mapped(BIGFAT_FONT), "Can't map native font");
// Compute true text size
ROWY = (pc.bottom - pc.top) / 25;
const int COLX = (pc.right - pc.left) / 80;
@ -223,7 +246,13 @@ XVT_FNTID xvt_default_font(bool bold)
CHARY = ROWY-2;
}
return bold ? FAT_FONT : DEF_FONT;
XVT_FNTID f;
if (bold)
f = big ? BIGFAT_FONT : FAT_FONT;
else
f = big ? BIG_FONT : DEF_FONT;
return f;
}
XVT_FNTID xvt_load_default_font()
@ -238,9 +267,19 @@ XVT_FNTID xvt_load_default_font()
xvt_font_destroy(FAT_FONT);
FAT_FONT = NULL;
}
if (BIG_FONT)
{
xvt_font_destroy(BIG_FONT);
BIG_FONT = NULL;
}
if (BIGFAT_FONT)
{
xvt_font_destroy(BIGFAT_FONT);
BIGFAT_FONT = NULL;
}
X_FU_MULTIPLE = Y_FU_MULTIPLE = 0;
XVT_FNTID font = xvt_default_font(false);
XVT_FNTID font = xvt_default_font();
xi_set_font_id(font);
xi_init_sysvals(); // Ricalcola i FU units
@ -394,6 +433,11 @@ void free_controls()
xvt_font_destroy(FAT_FONT);
FAT_FONT = NULL;
}
if (BIG_FONT)
{
xvt_font_destroy(BIG_FONT);
BIG_FONT = NULL;
}
}
///////////////////////////////////////////////////////////
@ -483,7 +527,7 @@ WINDOW create_interface(WINDOW parent, short x, short y, short dx, short dy,
def->v.itf->automatic_back_color = false;
def->v.itf->back_color = MASK_BACK_COLOR;
def->v.itf->font_id = xvt_default_font(false);
def->v.itf->font_id = xvt_default_font();
def->v.itf->tab_on_enter = true;
def->v.itf->win = (XinWindow)win;
def->v.itf->edit_menu = true; // Update edit menu items
@ -959,9 +1003,10 @@ unsigned long TControl::flags2attr(const char* flags) const
return attrib;
}
const char* TControl::parse_caption(const char* cap, bool& bold, COLOR& color) const
const char* TControl::parse_caption(const char* cap, bool& bold, bool& big, COLOR& color) const
{
bold = false;
big = false;
color = NORMAL_COLOR;
const char* t;
@ -975,6 +1020,12 @@ const char* TControl::parse_caption(const char* cap, bool& bold, COLOR& color) c
{
bold = true;
t++;
}
else
if (code == 'G')
{
big = true;
t++;
}
else
{
@ -1131,6 +1182,13 @@ void TControl::set_read_only(bool on)
change_attrib(XI_ATR_READONLY, on);
}
void TControl::set_pos(int pos)
{
xi_lowlevel_focus(_obj, TRUE);
if (pos >= 0)
xi_aga_field_set_pos(_obj, pos);
}
const char* TControl::caption() const
{
const char* c = xi_get_text(_obj, NULL, 512);
@ -1160,9 +1218,9 @@ TText_control::TText_control(WINDOW win, short cid,
short left, short top, short width, short height,
const char* flags, const char* text)
{
bool bold;
bool bold, big;
COLOR color;
TString t = parse_caption(text, bold, color);
TString t = parse_caption(text, bold, big, color);
t.rtrim();
if (width <= 0)
width = t.len();
@ -1185,20 +1243,20 @@ TText_control::TText_control(WINDOW win, short cid,
void TText_control::set_caption(const char* text)
{
bool bold;
bool bold, big;
COLOR color;
const char* c = parse_caption(text, bold, color);
const char* c = parse_caption(text, bold, big, color);
xi_set_text(_obj, (char*)c);
_obj->v.text->fore_color = color;
#ifdef XI_R4
xi_set_obj_font_id(_obj, xvt_default_font(bold));
xi_set_obj_font_id(_obj, xvt_default_font(bold, big));
#else
FONT_OBJ* &font = _obj->v.text->font;
if (font == NULL)
font = (FONT_OBJ*)xi_tree_malloc(sizeof(FONT_OBJ), _obj->v.text);
*font = xi_create_copy_font_id(get_interface(), xvt_default_font(bold), NULL);
*font = xi_create_copy_font_id(get_interface(), xvt_default_font(bold. big), NULL);
RCT rct; get_rect(rct);
if (bold)
@ -1388,7 +1446,12 @@ bool TField_control::event_handler(XI_OBJ* itf, XI_EVENT* xiev)
break;
case XIE_DBL_FIELD:
if (!read_only())
notify_key(K_F9);
{
if( true)
notify_key(K_F12);
else
notify_key(K_F9);
}
break;
case XIE_CHAR_FIELD:
{
@ -1445,7 +1508,7 @@ void TButton_control::create(WINDOW win, short cid,
const char* flags, const char* text,
WIN_TYPE wc, XI_OBJ* container)
{
bool bold;
bool bold, big;
COLOR color;
TString txt(text); txt.trim();
@ -1460,7 +1523,7 @@ void TButton_control::create(WINDOW win, short cid,
mnemonic = txt[underscore+1];
txt.strip("&~");
}
const char* t = parse_caption(txt, bold, color);
const char* t = parse_caption(txt, bold, big, color);
if (width <= 0) width = strlen(t)+3;
RCT rct; coord2rct(win, left, top, width, height, rct);
@ -1472,7 +1535,11 @@ void TButton_control::create(WINDOW win, short cid,
def->app_data = (long)this;
switch (wc)
{
case WC_PUSHBUTTON : def->v.btn->type = XIBT_BUTTON; break;
case WC_PUSHBUTTON :
def->v.btn->type = XIBT_BUTTON;
if (bold)
def->v.btn->font = (XinFont *)BIG_FONT;
break;
case WC_CHECKBOX : def->v.btn->type = XIBT_CHECKBOX; break;
case WC_RADIOBUTTON: def->v.btn->type = XIBT_RADIOBTN; break;
case WC_CHECKBUTTON: def->v.btn->type = XIBT_BUTTON_CHECKBOX; break;
@ -1628,9 +1695,10 @@ char TPushbutton_control::mnemonic() const
void TPushbutton_control::set_caption(const char* c)
{
bool bold;
bool bold, big;
COLOR color;
const char* cap = parse_caption(c, bold, color);
const char* cap = parse_caption(c, bold, big, color);
if (*cap)
{
TControl::set_caption(cap);
@ -1638,17 +1706,10 @@ void TPushbutton_control::set_caption(const char* c)
set_bmp(0, 0);
_obj->v.btn->drawable = false;
_obj->v.btn->fore_color = color;
xi_set_obj_font_id(_obj, xvt_default_font(bold, big));
}
}
void TPushbutton_control::set_central_icon(unsigned int hicon)
{
xi_set_icon(_obj, hicon, hicon);
_obj->v.btn->icon_x = (_obj->v.btn->rct.right - _obj->v.btn->rct.left - 32) / 2 - 5;
_obj->v.btn->icon_y = (_obj->v.btn->rct.bottom - _obj->v.btn->rct.top - 32) / 2 - 5;
_obj->v.btn->drawable = false;
}
void TPushbutton_control::set_bmp(short bmp_up, short bmp_dn)
{
if (bmp_up > 0)
@ -1662,6 +1723,22 @@ void TPushbutton_control::set_bmp(short bmp_up, short bmp_dn)
_obj->v.btn->drawable = _bmp_up > 0;
}
void TPushbutton_control::set_bmp(const char * bmp_up, const char * bmp_dn)
{
if (bmp_up && *bmp_up)
{
_bmp_up = _picture->add(bmp_up);
if (bmp_dn && *bmp_dn)
_bmp_dn = _picture->add(bmp_dn);
else
_bmp_dn = _bmp_up;
set_icon(0);
}
else
_bmp_up = _bmp_dn = 0;
_obj->v.btn->drawable = _bmp_up > 0;
}
void TPushbutton_control::update()
{
const long attrib = xi_get_attrib(_obj);
@ -1817,9 +1894,9 @@ TRadiobutton_control::TRadiobutton_control(WINDOW win, short cid,
const unsigned long attrib = flags2attr(flags);
for (int b = 1; b <= tot; b++)
{
bool bold;
bool bold, big;
COLOR color;
const char* t = parse_caption(testo.get(), bold, color);
const char* t = parse_caption(testo.get(), bold, big, color);
const int next = cid + (b+1)*1000;
XI_OBJ_DEF* btn_def = xi_add_button_def(def, cid + b*1000, NULL, attrib, (char*)t, next);
@ -1942,9 +2019,9 @@ TTagbutton_control::TTagbutton_control(WINDOW win, short cid,
for (int b = 1; b <= tot; b++)
{
bool bold;
bool bold, big;
COLOR color;
const char* t = parse_caption(titolo.get(), bold, color);
const char* t = parse_caption(titolo.get(), bold, big, color);
const int next_bid = b == tot ? cid+1 : cid+b+1;
XI_OBJ_DEF* btn_def = xi_add_button_def(cnt_def, cid+b, NULL, attrib, (char*)t, next_bid);

8
include/controls.h
View File

@ -20,7 +20,7 @@ struct XI_EVENT;
void init_controls();
void free_controls();
XVT_FNTID xvt_default_font(bool bold = FALSE);
XVT_FNTID xvt_default_font(bool bold = false, bool big = false);
XVT_FNTID xvt_load_default_font();
WINDOW create_interface(WINDOW parent, short x, short y, short dx, short dy,
@ -63,7 +63,7 @@ protected:
void coord2rct(WINDOW win, short left, short top, short width, short height, RCT& rct) const;
unsigned long flags2attr(const char* flags) const;
void update_tab_cid();
const char* parse_caption(const char* cap, bool& bold, COLOR& color) const;
const char* parse_caption(const char* cap, bool& bold, bool& big, COLOR& color) const;
void change_attrib(unsigned long attr, bool on, XI_OBJ* obj = NULL);
@ -114,6 +114,9 @@ public:
virtual RCT& get_rect(RCT& r) const;
virtual void set_rect(const RCT& r);
// @cmember imposta la posizione del cursore a <pos>
void set_pos(int pos = -1);
bool on_key(KEY k);
};
@ -226,6 +229,7 @@ public:
virtual void set_caption(const char* c);
void set_bmp(short up, short dn);
void set_bmp(const char * up, const char * dn);
void set_central_icon(unsigned int hicon);
char mnemonic() const;

37
include/date.cpp
View File

@ -73,39 +73,34 @@ TDate::TDate(const char* s)
{
_val = NULLDATE;
const int len = (s && *s) ? strlen(s) : 0;
if (len != 8 && len != 10)
const int len = (s && *s >= '0') ? strlen(s) : 0;
if (len != 8 && len != 10) // Chi si azzarda ad aggiungere len != 6 ?
return;
int d = 0, m = 0, y = 0, i;
if (len == 8)
{
int i;
for (i = 0; i < 8; i++)
if (!isdigit(s[i])) break;
if (i == 8)
{
TString8 str(s);
d = atoi(((const char *)str)+6); str.cut(6);
m = atoi(((const char *)str)+4); str.cut(4);
y = atoi(((const char *)str)+0);
}
_val = atol(s);
}
else
if (len == 10)
{
if (s[2] == s[5] && !isdigit(s[2]))
{
if (s[2] == s[5] && !isdigit(s[2]))
{
d = atoi(s);
m = atoi(&s[3]);
y = atoi(&s[6]);
}
}
const int d = atoi(s);
const int m = atoi(&s[3]);
const int y = atoi(&s[6]);
_val = makedata(d, m, y);
}
}
#ifdef DBG
if (d < 1 || d > 31 || m < 1 || m > 12 || y < 0)
yesnofatal_box("Lamentati con Guy se la data %s non viene accettata!", s);
if (day() < 1 || day() > 31 || month() < 1 || month() > 12 || year() < 0)
yesnofatal_box("Lamentati con Guy se la data '%s' non viene accettata!", s);
#endif
_val = makedata(d, m, y);
}
TDate::TDate(int day, int month, int year)

2
include/expr.cpp
View File

@ -612,7 +612,7 @@ void TExpression::eval()
{
const int len = (int)evalstack.pop_real().integer();
TString & s1 = evalstack.peek_string();
s1 = s1.left(len);
s1.cut(len);
}
break;
case _right:

41
include/image.cpp
View File

@ -35,13 +35,46 @@ XVT_IMAGE TImage::set(
// Certified 100%
// @doc EXTERNAL
bool TImage::build_filename(TFilename & file)
{
const char * const exts[] = {"gif", "png", "bmp", "jpg", NULL};
bool ok = false;
if (file.ext()[0] != '\0')
ok = file.custom_path();
if (!ok)
{
for (int i = 0; !ok && exts[i]; i++)
{
file.ext(exts[i]);
ok = file.custom_path();
if (!ok)
{
TFilename res(file);
res.insert("res/");
ok = res.exist();
if (ok)
file = res;
}
}
}
return ok;
}
// @mfunc Legge l'immagine dal file
XVT_IMAGE TImage::load(
const char* n) // @parm Nome del file contenente l'immagine
{
XVT_IMAGE i = xvt_image_read((char*)n);
if (i != NULL)
set(i);
{
TFilename f(n);
XVT_IMAGE i = NULL;
if (build_filename(f))
{
i = xvt_image_read(f);
if (i != NULL)
set(i);
}
return i;
}

7
include/image.h
View File

@ -9,6 +9,9 @@
#include <object.h>
#endif
#ifndef __STRINGS_H
#include <strings.h>
#endif
///////////////////////////////////////////////////////////
// TImage
///////////////////////////////////////////////////////////
@ -88,7 +91,8 @@ public:
// @cmember Setta l'<p n>.esime entry della paletta al colore <p c>
void set_clut(byte n, COLOR c);
// @cmember Costruttore. Viene passato il nome del file
static bool build_filename(TFilename & file);
// @cmember Costruttore. Viene passato il nome del file
TImage(const char* n);
// @cmember Costruttore. Viene passato l'identificatore dell'immagine sul file di risorsa
TImage(short id);
@ -100,4 +104,5 @@ public:
virtual ~TImage();
};
#endif

36
include/isam.cpp
View File

@ -1,22 +1,10 @@
#include <fcntl.h>
#include <diction.h>
#ifdef WIN32
#include <io.h>
#include <share.h>
#include <stdio.h>
#endif
#include <stdlib.h>
#include <sys/stat.h>
#include <codeb.h>
#define __ISAM_CPP
#include <config.h>
#include <execp.h>
#include <expr.h>
#include <extcdecl.h>
#include <diction.h>
#include <mailbox.h>
#include <postman.h>
#include <prefix.h>
@ -28,6 +16,19 @@
#include <tabutil.h>
#include <varrec.h>
#ifdef WIN32
#include <io.h>
#include <share.h>
#include <stdio.h>
#endif
#include <fcntl.h>
#include <stdlib.h>
#include <sys/stat.h>
#include <codeb.h>
#ifdef JOURNAL
#include <journal.h>
@ -2151,10 +2152,14 @@ int TSystemisamfile::update(
return err;
}
TString s; s << TR("Aggiornamento") << ' ' << fname;
TString s(256); s << TR("Aggiornamento") << ' ' << fname;
const TRecnotype nitems = items();
TProgind p(nitems > 0 ? nitems : 1, s, true, true);
#ifdef DBG
TProgind p(nitems > 0 ? nitems : 1, s, true, true, 78);
#else
TProgind p(nitems > 0 ? nitems : 1, s, false, true, 78);
#endif
TExtrectype nrec(wrec);
@ -2173,6 +2178,7 @@ int TSystemisamfile::update(
{
if (!p.addstatus(1))
{
err = _iseof; // Simula errore in caso di interruzione
break;
}
ni++;

20
include/isamrpc.cpp
View File

@ -316,6 +316,26 @@ bool rpc_UserLogout(const char* appname)
return TRUE;
}
bool http_isredirected_server(TString & server,
TFilename & remote_file,
const char * authorization)
{
TSocketClient client;
if (!client.IsOk())
return error_box("Impossibile inizializzare il client HTTP");
CONNID connection = client.QueryConnection("80", server);
bool ok = connection != 0;
if (ok)
{
ok = client.HttpIsRedirectedServer(connection, server, remote_file, authorization) != 0;
client.RemoveConnection(connection);
}
return ok;
}
bool http_get(const char* server,
const char* remote_file,

1
include/isamrpc.h
View File

@ -24,6 +24,7 @@ bool rpc_UserLogout(const char* appname);
bool rpc_Start();
bool rpc_Stop();
bool http_isredirected_server(TString & server, TFilename & remote_file, const char* authorization = NULL);
bool http_get(const char* server, const char* remote_file,
const char* local_file, const char* authorization = NULL);
bool http_dir(const char* server, const char* remote_dir, TString_array & list);

10
include/mask.cpp
View File

@ -847,13 +847,9 @@ bool TMask::on_key(
xvt_help_process_event(hi, win(), &e);
}
break;
case K_F12:
post_error_message(format("Lettura = %ld\n"
"Creazione = %ld\n"
"Inizializzazione = %ld\n",
_total_time-_build_time, _build_time, _init_time),
1);
break;
case K_F12:
send_key(K_F12, focus_field().dlg());
break;
case K_CTRL+'+':
if (is_running())
{

4
include/mask.h
View File

@ -1,10 +1,6 @@
#ifndef __MASK_H
#define __MASK_H
#ifndef __WINDOW_H
#include <window.h>
#endif
#ifndef __MASKFLD_H
#include <maskfld.h>
#endif

63
include/maskfld.cpp
View File

@ -19,6 +19,7 @@
#include <urldefid.h>
#include <utility.h>
#include <validate.h>
#include <virtkeyb.h>
#include <xvtility.h>
@ -92,7 +93,7 @@ char TMask_field::TField_Flags::update(const char* f, bool reset)
case 'G':
ghost = !reset; break;
case 'H':
show_default = shown = reset; break;
show_default = shown = reset; break;
case 'I':
break; // reserved for sheetfield insert
case 'L':
@ -148,8 +149,7 @@ void TMask_field::update_flags(const char* f, bool reset)
TMask_field::TMask_field(TMask* m)
: _mask(m), _groups(NULL), _ctl(NULL)
{
}
{ }
// Certified 100%
TMask_field::~TMask_field()
@ -234,6 +234,15 @@ short TMask_field::atodlg(
// @doc EXTERNAL
// @mfunc Imposta la posizione
void TMask_field::set_pos(
int pos) // @parm Posizione
{
_ctl->set_pos(pos);
}
// @doc EXTERNAL
// @mfunc Costruisce il campo
void TMask_field::construct(
short id, // @parm Identificatore del campo
@ -1199,6 +1208,11 @@ void TButton_field::set_bmp(short up, short dn)
((TPushbutton_control*)_ctl)->set_bmp(up, dn);
}
void TButton_field::set_bmp(const char * up, const char * dn)
{
((TPushbutton_control*)_ctl)->set_bmp(up, dn);
}
void TButton_field::set_central_icon(unsigned icon)
{
((TPushbutton_control*)_ctl)->set_icon(icon);
@ -2192,7 +2206,7 @@ int TBrowse::do_input(
val = (fld+1);
if (val.not_empty()) val.rtrim(1);
tofilter = filter;
}
}
else
{
const TMask_field* campf = NULL;
@ -3123,9 +3137,14 @@ void TEdit_field::parse_head(TScanner& scanner)
const TBrowse* TEdit_field::parse_browse(TScanner& scanner) const
{
const int id = scanner.integer();
const TEdit_field& f = mask().efield(id);
const TBrowse* b = f.browse();
const TBrowse* b = NULL;
const pos = mask().id2pos(scanner.integer());
if (pos >= 0)
{
const TMask_field& f = mask().fld(pos);
if (f.is_edit())
b = ((TEdit_field&)f).browse();
}
return b;
}
@ -3236,10 +3255,8 @@ bool TEdit_field::parse_item(TScanner& scanner)
if (scanner.key() == "CO") // Copyuse
{
const TString16 what(scanner.popkey());
const TString8 what(scanner.popkey());
const TBrowse* b = parse_browse(scanner);
CHECK(b,"Impossibile copiare la browse da un campo visto che quel campo non l'ha" );
if (b)
{
if (what == "US" || what == "AL")
@ -3788,6 +3805,15 @@ bool TEdit_field::on_key(KEY key)
}
}
break;
case K_F12:
{
TVirtual_keyboard keyboard(*this);
get_window_data();
keyboard.run();
return true;
}
break;
case K_CTRL+K_SPACE:
set_dirty(TRUE);
return handler(K_SPACE);
@ -4205,6 +4231,15 @@ bool TReal_field::on_key(KEY key)
beep();
return ok;
}
else
if (key == K_F12)
{
TVirtual_numpad numpad(*this);
get_window_data();
numpad.run();
return true;
}
}
return TEdit_field::on_key(key);
@ -4461,6 +4496,14 @@ bool TCurrency_field::on_key(KEY key)
case '-':
ok = !_flags.uppercase;
break;
case K_F12 :
{
TVirtual_numpad numpad(*this, true);
get_window_data();
numpad.run();
return true;
}
default :
ok = strchr("0123456789.,+*-/()", key) != NULL;
break;

17
include/maskfld.h
View File

@ -152,6 +152,8 @@ public: // TObject
virtual bool is_kind_of(word cid) const;
public:
// @cmember Imposta la posizione a <pos>
void set_pos(int pos = -1);
// @cmember Costruisce il campo da file
void construct(TScanner& scanner, WINDOW parent);
// @cmember Converte una stringa in un identificatore di controllo
@ -181,6 +183,10 @@ public:
// @cmember Setta lo stato di dirty del campo
void set_dirty(byte d = true);
// @cmember ritorna il trim degli spazi
byte trim() const
{ return _flags.trim; }
// @cmember Abilita il trim degli spazi
void set_trim(bool t)
{ _flags.trim = byte(t ? 3 : 0); }
@ -208,6 +214,10 @@ public:
bool zerofilled() const
{ return _flags.zerofilled; }
// @cmember Ritorna TRUE se il campo e' password
bool password() const
{ return _flags.password; }
// @cmember Verifica se l'inserimento del carattere pipe e' stato abilitato
bool pipe_allowed() const
{ return _flags.pipeallowed; }
@ -548,7 +558,8 @@ public:
{ return _exit_key; }
void set_exit_key(KEY k) { _exit_key = k; }
void set_bmp(short up, short dn);
void set_bmp(short up, short dn = 0);
void set_bmp(const char * up, const char * dn = NULL);
void set_central_icon(unsigned int icon);
// @cmember Costruttore
@ -1132,11 +1143,11 @@ protected:
// @cmember Imposta lo sfondo del campo
void set_background();
// @access Public Member
public:
// @cmember Setta il flag read-only
virtual void set_read_only(bool r);
// @access Public Member
public:
// @cmember Ritorna l'identificatore della classe
virtual word class_id() const;
// @cmember Legge un item del controllo dal file <p scanner>

18
include/msksheet.cpp
View File

@ -1009,7 +1009,7 @@ bool TSpreadsheet::off_cell_handler(XI_OBJ *cell)
_cell_dirty = FALSE;
if (_row_dirty)
{
owner().mask().notify_focus_field(owner().dlg()); // A volte si diverte a perdere il focus
owner().mask().notify_focus_field(id()); // A volte si diverte a perdere il focus
mask2str(_cur_rec); // Update sheet row
}
}
@ -1215,13 +1215,13 @@ bool TSpreadsheet::event_handler(XI_OBJ* itf, XI_EVENT *xiev)
if (items() > 0 && !owner().append())
{
// XI_OBJ* itf = get_interface();
if (owner().mask().focus_field().dlg() == owner().dlg())
if (owner().mask().focus_field().dlg() == id())
rec = _cur_rec + 1;
else
rec = 0;
}
insert(rec, TRUE, TRUE);
owner().mask().notify_focus_field(owner().dlg());
insert(rec, true, true);
owner().mask().notify_focus_field(id());
}
}
}
@ -1348,7 +1348,7 @@ bool TSpreadsheet::event_handler(XI_OBJ* itf, XI_EVENT *xiev)
}
break;
case XIE_ON_LIST:
owner().mask().notify_focus_field(owner().dlg());
owner().mask().notify_focus_field(id());
break;
case XIE_OFF_LIST:
on_idle();
@ -1443,12 +1443,12 @@ bool TSpreadsheet::event_handler(XI_OBJ* itf, XI_EVENT *xiev)
EVENT e; e.type = E_UPDATE;
xi_eh(_obj->itf->v.itf->xvt_win, &e);
#endif
owner().mask().notify_focus_field(id()); // Non si ripete mai abbastanza!
}
XI_OBJ row;
XI_MAKE_ROW(&row, _obj, _cur_row);
xi_cell_request(&row); // Update internal values
}
break;
case XIE_OFF_CELL:
@ -1611,13 +1611,13 @@ bool TSpreadsheet::event_handler(XI_OBJ* itf, XI_EVENT *xiev)
if (items() > 0 && !owner().append())
{
get_interface(); // verificare
if (owner().mask().focus_field().dlg() == owner().dlg())
if (owner().mask().focus_field().dlg() == id())
rec = _cur_rec + 1;
else
rec = 0;
}
insert(rec, TRUE, TRUE);
owner().mask().notify_focus_field(owner().dlg());
owner().mask().notify_focus_field(id());
refused = TRUE;
}
else
@ -2376,7 +2376,7 @@ void TSpreadsheet::str2mask(int riga)
// Certified 100%
bool TSpreadsheet::notify(int rec, KEY k)
{
const bool ok = _notify ? _notify(owner(), rec, k) : TRUE;
const bool ok = _notify ? _notify(owner(), rec, k) : true;
if (k == K_ENTER)
{
const bool cell_dirty = _cell_dirty; // preservato lo stato di cell_dirty

4
include/msksheet.h
View File

@ -276,9 +276,9 @@ public:
};
#define FOR_EACH_SHEET_ROW(__sheet, __r, __riga) \
FOR_EACH_ARRAY_ROW(__sheet.rows_array(), __r, __riga)
FOR_EACH_ARRAY_ROW((__sheet).rows_array(), __r, __riga)
#define FOR_EACH_SHEET_ROW_BACK(__sheet, __r, __riga) \
FOR_EACH_ARRAY_ROW_BACK(__sheet.rows_array(), __r, __riga)
FOR_EACH_ARRAY_ROW_BACK((__sheet).rows_array(), __r, __riga)
#endif

211
include/netsock.cpp
View File

@ -1,8 +1,9 @@
#define XVT_INCL_NATIVE
#include <xvt.h>
#include <progind.h>
#include <config.h>
#include <agasys.h>
#include <diction.h>
#include <progind.h>
#include <utility.h>
// skstream.h
@ -713,7 +714,7 @@ bool TSocketClient::ReadLine(CONNID id, TString& str)
TSocket_connection* conn = (TSocket_connection*)GetConnection(id);
if (conn)
return conn->ReadLine(str);
return FALSE;
return false;
}
void TSocketClient::ReleaseBuffer()
@ -725,84 +726,197 @@ void TSocketClient::ReleaseBuffer()
m_dwSize = 0;
}
}
bool TSocketClient::HttpGetFile(CONNID id, const char* remote, const char* local, const char* authorization)
int TSocketClient::HttpGetHeader(CONNID id, const char* remote, const char* authorization,
TString_array& header)
{
bool ok = FALSE;
TSocket_connection* conn = (TSocket_connection*)GetConnection(id);
TString buf(8*1024);
int ret = 0;
TSocket_connection* conn = (TSocket_connection*)GetConnection(id);
TString buf(4*1024);
buf << "GET " << remote << " HTTP/1.1\r\n"
<< "User-Agent: Campo\r\n"
<< "Host: " << conn->Server() << "\r\n";
if (authorization && *authorization)
buf << "Authorization: " << authorization << "\r\n";
const TFixed_string rem(remote);
buf << "Connection: " << (rem.ends_with("/") ? "Close" : "Keep-Alive") << "\r\n";
buf << "\r\n";
header.destroy();
if (WriteLine(id, buf))
{
long size = 0;
for (int r = 0; ; r++)
{
ReadLine(id, buf);
if (buf.blank())
break;
if (r == 0 && buf.find("200 OK") < 0)
return FALSE; // File not found
if (buf.compare("Content-length:", 15, TRUE) == 0)
if (r == 0)
ret = atoi(buf.after(' '));
header.add(buf);
}
}
return ret;
}
bool TSocketClient::HttpIsRedirectedServer(CONNID id, TString & http_server, TFilename & remote, const char* authorization)
{
TString_array header;
const bool redirected = HttpGetHeader(id, remote, NULL, header) == 302;
if (redirected)
{
FOR_EACH_ARRAY_ROW(header, r, row)
{
TString& buf = *row;
if (buf.starts_with("Location:", true))
{
const int colon = buf.find(':');
size = atol(buf.mid(colon+1));
buf = buf.after(':');
if (buf.full())
{
buf.trim();
if (buf.starts_with("http://", true))
buf.ltrim(7);
const int slash = buf.find('/');
if (slash > 0)
{
remote = buf.mid(slash);
if (!remote.ends_with("/"))
remote << '/';
http_server = buf.left(slash);
}
}
}
}
}
return redirected;
}
static const TString& bytes2str(long b)
{
TString& tmp = get_tmp_string();
if (b > 0)
{
const long mega = 1024*1024;
if (b >= mega)
tmp.format("%ld MBytes", (b+mega/2)/mega);
else
{
const long kappa = 1024;
if (b >= kappa)
tmp.format("%ld KBytes", (b+kappa/2)/kappa);
else
tmp.format("%ld Bytes", b);
}
}
else
tmp = TR("Dimensione sconosciuta");
return tmp;
}
bool TSocketClient::HttpGetFile(CONNID id, const char* remote, const char* local, const char* authorization)
{
bool ok = false;
TString_array header;
const int ret = HttpGetHeader(id, remote, authorization, header);
if (ret == 200)
{
long size = -1; // Unknown size
FOR_EACH_ARRAY_ROW(header, r, row)
{
if (row->starts_with("Content-length:", true))
{
size = atol(row->after(':'));
break;
}
}
if (size == 0) // File not found
return false;
ofstream outfile(local, ios::out | ios::binary);
if (outfile.good())
{
buf.cut(0) << remote << " - " << (size / 1024 + 1) << " KBytes";
TProgind pi(size, buf, TRUE, TRUE);
TString buf(8*1024);
TToken_string strpi(256, '\n');
strpi << remote << " - " << bytes2str(size);
strpi.add(TR("Trasferiti"));
long total = 0;
TSocket_connection* conn = (TSocket_connection*)GetConnection(id);
skstream* cur_socket = conn->GetSocket();
while (!cur_socket->eof())
if (size > 0) // Dimensione nota
{
int nchars = buf.size();
if (size >0 && nchars > size - total)
nchars = size - total;
cur_socket->read(buf.get_buffer(), nchars);
const int count = cur_socket->gcount();
if (count > 0)
if (size <= buf.size()) // File piccolo: Niente barra di progresso
{
outfile.write(buf, count);
total += count;
pi.setstatus(total);
if (pi.iscancelled())
break;
if (size > 0 && total >= size)
break;
while (total < size && !cur_socket->eof())
{
const int nchars = min(buf.size(), size - total);
cur_socket->read(buf.get_buffer(), nchars);
const int count = cur_socket->gcount();
if (count > 0)
{
total += count;
outfile.write(buf, count);
}
}
}
else
{
TProgind pi(size, strpi, true, true);
while (!cur_socket->eof() && !pi.iscancelled())
{
const int nchars = min(buf.size(), size - total);
cur_socket->read(buf.get_buffer(), nchars);
const int count = cur_socket->gcount();
if (count > 0)
{
outfile.write(buf, count);
total += count;
if (total >= size || !pi.setstatus(total)) // Controllo se ormai ho finito
break;
strpi.add(TR("Trasferiti"), 1);
strpi << ' ' << bytes2str(total);
pi.set_text(strpi);
}
}
}
ok = total >= size; // Ho finito per bene?
}
else // Dimensione ignota
{
TIndwin pi(100, strpi, true, false);
while (!cur_socket->eof() && !pi.iscancelled())
{
cur_socket->read(buf.get_buffer(), buf.size());
const int count = cur_socket->gcount();
if (count > 0)
{
outfile.write(buf, count);
total += count;
strpi.add(TR("Trasferiti"), 1);
strpi << ' ' << bytes2str(total);
pi.set_text(strpi);
}
}
ok = total > 0 && !pi.iscancelled(); // Ho finito per bene?
}
ok = size = 0 ? cur_socket->eof() != 0 : total >= size;
}
else
error_box("Impossibile scrivere il file %s", local);
error_box(FR("Impossibile scrivere il file %s"), local);
}
return ok;
}
HIDDEN int find_href(const TString& riga)
HIDDEN int find_href(const TString& riga, int from)
{
int href = -1;
int img = riga.find("<img");
int img = riga.find("<img", from);
if (img >= 0)
href = riga.find("href=", img+4);
else
{
img = riga.find("<IMG");
if (img >= 0)
href = riga.find("HREF=", img+4);
}
return href;
}
@ -813,21 +927,22 @@ bool TSocketClient::HttpGetDir(CONNID id, const char* remote, TString_array& lis
if (ok)
{
ifstream s(local);
TString riga(256);
TString riga(512);
while (!s.eof())
{
s.getline(riga.get_buffer(), riga.size());
const int href = find_href(riga);
if (href > 0)
riga.lower();
for (int href = find_href(riga, 0); href > 0; href = find_href(riga, href+5))
{
const int start = riga.find('"', href) + 1;
if (start > href && isalnum(riga[start + 1]))
if (start > href)
{
const int stop = riga.find('"', start);
if (stop > start)
{
const TString& name = riga.sub(start, stop);
list.add(name);
if (isdigit(name[0]) || (name[0]>='a' && name[0]<='z')) // isalnum non funziona!
list.add(name);
}
}
}

2
include/netsock.h
View File

@ -37,6 +37,7 @@ class TSocketClient : public TLanClient
protected: // TLanClient
virtual TConnection* OnQueryConnection(const char* service, const char* server);
int HttpGetHeader(CONNID id, const char* remote, const char* authorization, TString_array& header);
public:
virtual bool Request(CONNID id, const char* cmd);
@ -47,6 +48,7 @@ public:
bool WriteLine(CONNID id, const char* str);
bool ReadLine(CONNID id, TString& str);
bool HttpIsRedirectedServer(CONNID id, TString & http_server, TFilename & remote, const char* authorization = NULL);
bool HttpGetFile(CONNID id, const char* remote, const char* local, const char* authorization = NULL);
bool HttpGetDir(CONNID id, const char* remote, TString_array& list);
bool HttpSoap(CONNID id, const char* query);

96
include/prefix.cpp
View File

@ -1295,6 +1295,100 @@ bool TPrefix::build_firm_data(long codditta, bool flagcom)
set_codditta(codditta);
set_autoload_new_files(TRUE);
return TRUE;
return true;
}
///////////////////////////////////////////////////////////
// TTable name converter
///////////////////////////////////////////////////////////
class TTable_names : public TObject
{
TAssoc_array _names;
TArray _ids;
long _filled;
protected:
void fill();
void add_file(int logic, const TString& table);
public:
const TString& name(int logic_num);
int logic_num(const TString& name);
TTable_names() : _filled(-1) { }
} _table_names;
void TTable_names::add_file(int logic, const TString& table)
{
TString8* id = new TString8;
id->format("%d", logic);
_names.add(table, id);
_ids.add(table, logic);
}
void TTable_names::fill()
{
if (_filled != prefix().get_codditta())
{
FileDes dir;
CGetFile(LF_DIR, &dir, _nolock, NORDIR);
const int nfiles = (int)dir.EOD;
TFilename n;
for (int logic = LF_USER; logic <= nfiles; logic++)
{
const FileDes& fd = prefix().get_filedes(logic);
n = fd.SysName; n = n.name(); n.upper();
if (_names.objptr(n) == NULL)
add_file(logic, n);
}
_filled = prefix().get_codditta();
}
}
int TTable_names::logic_num(const TString& n)
{
// Non cambiare: n puo' essere temporaneo e pieno di spazi!
TString80 name = n; name.trim();
if (isdigit(name[0]) || name[0] == '-')
{
int num = atoi(name);
if (name[name.len()-1] == '@')
num = -num;
return num;
}
if (name[0] == '%' && name.len() == 4)
return LF_TABCOM;
name.upper();
TString* str = (TString*)_names.objptr(name);
if (str == NULL)
{
fill();
str = (TString*)_names.objptr(name);
}
if (str == NULL && name.len() == 3)
return LF_TAB;
return str == NULL ? 0 : atoi(*str);
}
const TString& TTable_names::name(int logic_num)
{
TString* str = (TString*)_ids.objptr(logic_num);
if (str == NULL)
{
fill();
str = (TString*)_ids.objptr(logic_num);
}
return str == NULL ? (const TString&)EMPTY_STRING : *str;
}
const TString& logic2table(int logic_num)
{ return _table_names.name(logic_num); }
int table2logic(const TString& name)
{ return _table_names.logic_num(name); }

10
include/prefix.h
View File

@ -69,14 +69,13 @@ class TFirm : public TObject
{
TAssoc_array _rec;
protected:
const TString& get(const char* attr) const;
long get_long(const char* attr) const;
public:
bool read(long code);
TFirm& operator=(long code) { read(code); return *this; }
const TString& get(const char* attr) const;
long get_long(const char* attr) const;
long codice() const;
const TString& codice_valuta() const;
const TString& ragione_sociale() const;
@ -229,5 +228,8 @@ bool prefix_valid();
TPrefix& prefix();
void prefix_destroy();
const TString& logic2table(int logic_num);
int table2logic(const TString& name);
#endif // __PREFIX_H

15
include/progind.cpp
View File

@ -248,7 +248,7 @@ void TIndwin::on_button(short id)
// TProgind --------------------------------------------------------------
TProgind::TProgind(long max, const char* txt, bool cancel, bool bar, int div)
: TIndwin(max, txt, cancel, bar, div)
: TIndwin(max, txt, cancel, bar, div), _next_update(0)
{}
bool TProgind::setstatus(long l)
@ -258,15 +258,16 @@ bool TProgind::setstatus(long l)
NFCHECK("Negative progind status");
l = 0;
}
const long old_perc = _status * 100L / _max;
_status = l > _max ? _max : l;
const long new_perc = _status * 100L / _max;
const bool tictac = new_perc != old_perc;
if (tictac)
if (clock() > _next_update)
{
update();
do_events();
}
do_events();
_next_update = clock()+CLOCKS_PER_SEC; // Prossimo aggiornamento tra un secondo
}
return !iscancelled();
}

2
include/progind.h
View File

@ -103,6 +103,8 @@ public:
class TProgind : public TIndwin
// @author:(INTERNAL) Villa
{
clock_t _next_update;
// @access Public Member
public:
// @cmember Setta lo stato della barra d'attesa

111
include/recset.cpp
View File

@ -199,11 +199,9 @@ bool TRecordset::save_as_html(const char* path)
out << " </thead>" << endl;
TString val;
for (TRecnotype n = 0; n < items(); n++)
for (bool ok = move_first(); ok; ok = move_next())
{
move_to(n);
pi.addstatus(1);
if (pi.iscancelled())
if (!pi.addstatus(1))
break;
out << " <tr>" << endl;
for (unsigned int c = 0; c < columns(); c++)
@ -250,34 +248,36 @@ bool TRecordset::save_as_silk(const char* path)
for (unsigned int c = 0; c < columns(); c++)
{
const TRecordset_column_info& ci = column_info(c);
out << "C;Y1;X" << (c+1) << ";K\"" << ci._name << '"' << endl;
out << 'C';
if (c == 0) out << ";Y1";
out << ";X" << (c+1) << ";K\"" << ci._name << '"' << endl;
}
TString val;
for (TRecnotype n = 0; n < items(); n++)
for (bool ok = move_first(); ok; ok = move_next())
{
move_to(n);
pi.addstatus(1);
if (pi.iscancelled())
break;
for (unsigned int c = 0; c < columns(); c++)
{
const TRecordset_column_info& ci = column_info(c);
const bool is_alpha = ci._type == _alfafld || ci._type == _charfld ||
ci._type == _memofld || ci._type == _datefld;
out << "C;Y" << (n+2) << ";X" << (c+1) << ";K";
if (is_alpha) out << '"';
get(c).as_string(val);
if (!val.blank())
out << 'C';
if (c == 0) out << ";Y" << (current_row()+2);
const TVariant& var = get(c);
if (!var.is_empty())
{
val.rtrim();
val.replace('"', '\'');
out << val;
out << ";X" << (c+1) << ";K";
var.as_string(val);
if (var.type() == _alfafld || var.type() == _datefld)
{
val.rtrim();
val.replace('"', '\'');
out << '"' << val << '"';
}
else
out << val;
}
if (is_alpha) out << '"';
out << endl;
}
if (!pi.addstatus(1))
break;
}
out << "E" << endl;
@ -290,23 +290,25 @@ bool TRecordset::save_as_text(const char* path)
ofstream out(path);
TString val;
for (TRecnotype n = 0; n < items(); n++)
for (bool ok = move_first(); ok; ok = move_next())
{
move_to(n);
for (unsigned int c = 0; c < columns(); c++)
{
if (c > 0)
out << '\t';
get(c).as_string(val);
if (!val.blank())
const TVariant& var = get(c);
if (!var.is_empty())
{
var.as_string(val);
val.rtrim();
out << val;
if (val.find('\n') >= 0 || val.find('\t') >= 0)
out << unesc(val); // Evitiamo doppi separatori di campo e record
else
out << val;
}
}
out << endl;
pi.addstatus(1);
if (pi.iscancelled())
if (!pi.addstatus(1))
break;
}
@ -333,24 +335,31 @@ bool TRecordset::save_as_campo(const char* path)
out << endl << endl << "[Data]" << endl;
TString val;
for (TRecnotype n = 0; n < items(); n++)
for (bool ok = move_first(); ok; ok = move_next())
{
move_to(n);
for (unsigned int c = 0; c < columns(); c++)
{
if (c > 0)
out << '|';
get(c).as_string(val);
if (!val.blank())
const TVariant& var = get(c);
if (!var.is_empty())
{
val.rtrim();
val = unesc(val);
out << val;
var.as_string(val);
if (var.type() == _alfafld)
{
val.rtrim();
val.replace('|', SAFE_PIPE_CHR); // Evitiamo doppi separatori di campo
if (val.find('\n') >= 0) // Evitiamo doppi separatori di record
out << unesc(val);
else
out << val;
}
else
out << val;
}
}
out << endl;
pi.addstatus(1);
if (pi.iscancelled())
if (!pi.addstatus(1))
break;
}
return !pi.iscancelled();
@ -363,7 +372,7 @@ bool TRecordset::save_as(const char* path, TRecordsetExportFormat fmt, int mode)
TString ext;
xvt_fsys_parse_pathname(path, NULL, NULL, NULL, ext.get_buffer(), NULL);
ext.lower();
if (ext.starts_with("htm"))
if (ext == "htm" || ext == "html" || ext == "xml")
fmt = fmt_html; else
if (ext == "xls" || ext == "slk")
fmt = fmt_silk;
@ -428,9 +437,9 @@ const TVariant& TRecordset::get(const char* column_name) const
int s = str.find(subfield);
if (s == 0 || (s > 0 && str[s-1] < ' '))
{
static TVariant var;
s += subfield.len();
const int e = str.find('\n', s);
TVariant& var = get_tmp_var();
var.set(str.sub(s, e));
return var;
}
@ -485,7 +494,7 @@ bool is_var_separator(char c)
{
if (isspace(c))
return true;
return strchr("<=>(,", c) != NULL;
return strchr("<=>+-*/(,.", c) != NULL;
}
// Cerca le variabili nel testo SQL:
@ -1982,7 +1991,7 @@ const TRecordset_column_info& TISAM_recordset::column_info(size_t i) const
TCursor* TISAM_recordset::cursor() const
{
if (_cursor == NULL && !_use.blank())
if (_cursor == NULL && _use.full())
{
TString use; parsed_text(use);
TPerformance_profiler prof("ISAM query");
@ -2051,16 +2060,7 @@ bool TISAM_recordset::move_to(TRecnotype pos)
void TISAM_recordset::reset()
{
_column.destroy();
if (_relation != NULL)
{
delete _relation;
_relation = NULL;
}
if (_cursor != NULL)
{
delete _cursor;
_cursor = NULL;
}
requery();
}
void TISAM_recordset::requery()
@ -2070,6 +2070,11 @@ void TISAM_recordset::requery()
delete _cursor;
_cursor = NULL;
}
if (_relation != NULL)
{
delete _relation;
_relation = NULL;
}
}
void TISAM_recordset::set(const char* use)
@ -2087,7 +2092,7 @@ TISAM_recordset::TISAM_recordset(const char* use)
TISAM_recordset::~TISAM_recordset()
{
reset();
requery();
}
///////////////////////////////////////////////////////////

2
include/recset.h
View File

@ -142,7 +142,7 @@ protected:
public:
bool valid_cursor() { return _cursor != NULL; }
TCursor* cursor() const;
virtual TCursor* cursor() const;
void set(const char* use);
virtual void requery();
virtual TRecnotype items() const;

97
include/relapp.cpp
View File

@ -23,19 +23,16 @@ TRelation_application::~TRelation_application()
TCursor& TRelation_application::get_filtered_cursor() const
{
TEdit_field& f = get_search_field();
TCursor* cur = f.browse()->cursor();
return *cur;
const TEdit_field& f = get_search_field();
return *f.browse()->cursor();
}
void TRelation_application::setkey()
{
if (has_filtered_cursor())
{
get_filtered_cursor().setkey();
return; // ?????
}
file().setkey(1);
else
file().setkey(1);
}
void TRelation_application::set_key_filter()
@ -85,46 +82,46 @@ void TRelation_application::set_limits(
{
if (has_filtered_cursor())
{
TEdit_field& f = get_search_field();
TBrowse* b = f.browse();
TCursor* cur = b != NULL ? b->cursor() : NULL;
if (cur)
const TEdit_field& f = get_search_field();
if (f.browse() != NULL)
f.browse()->do_input(true);
TCursor& cur = get_filtered_cursor();
cur.setkey();
if (cur.items() > 0)
{
cur->setkey();
b->do_input(TRUE);
if (cur->items() == 0)
_first = _last = -1;
else
if (what & 0x1)
{
if (what & 0x1)
{
*cur = 0;
_first = cur->file().recno();
}
if (what & 0x2)
{
*cur = cur->items() - 1;
_last = cur->file().recno();
}
cur = 0;
_first = cur.file().recno();
}
if (what & 0x2)
{
cur = cur.items() - 1;
_last = cur.file().recno();
}
return;
}
else
_first = _last = -1;
}
file().setkey(1);
if (what & 0x1)
else
{
if (!file().empty() && file().first() == NOERR)
_first = file().recno();
else
_first = -1;
}
if (what & 0x2)
{
if (!file().empty() && file().last() == NOERR)
_last = file().recno();
else
_last = -1;
setkey();
if (!file().empty())
{
if (what & 0x1)
{
if (file().first() == NOERR)
_first = file().recno();
}
if (what & 0x2)
{
if (file().last() == NOERR)
_last = file().recno();
}
}
else
_first = _last = -1;
}
}
@ -436,10 +433,10 @@ void TRelation_application::query_mode(
void TRelation_application::insert_mode()
{
bool try_auto = TRUE;
bool try_auto = true;
if (_mask->query_mode())
try_auto = test_key(1, FALSE) == FALSE;
try_auto = !test_key(1, FALSE);
if (try_auto && !autonum(_mask, FALSE))
{
@ -1110,6 +1107,8 @@ bool TRelation_application::save(bool check_dirty)
int TRelation_application::read(TMask& m)
{
const TRelation &r = *get_relation();
/* Metodo VECCHIO!
const int max = m.fields();
for (int i = 0; i < max; i++)
{
@ -1120,6 +1119,16 @@ int TRelation_application::read(TMask& m)
f.record()->read(*f.putkey(r));
}
}
*/
if (m.sheets() > 0) // Metodo Salvatempo
{
FOR_EACH_MASK_SHEET(m, i, s)
{
if (s->record() && !s->external_record())
s->record()->read(*s->putkey(r));
}
}
m.autoload(r);
return NOERR;
}
@ -1336,7 +1345,7 @@ void TRelation_application::main_loop()
case K_SAVE:
if (save(FALSE))
{
if ((_autoins_caller.not_empty() || is_transaction()) && _curr_trans_mode != TM_REMAIN)
if ((_autoins_caller.full() || is_transaction()) && _curr_trans_mode != TM_REMAIN)
{
k = K_QUIT;
}

4
include/relapp.h
View File

@ -234,11 +234,11 @@ protected:
virtual void ini2sheet(TConfig& ini, TSheet_field &sheet);
virtual void sheet2ini(TSheet_field &sheet,TConfig& ini);
virtual void ini2mask(TConfig& ini, TMask& m, bool query);
virtual void mask2ini(const TMask& m, TConfig& ini);
virtual bool mask2mail(const TMask& m);
// @access Public Member
public:
virtual void mask2ini(const TMask& m, TConfig& ini);
// @cmember Ritorna la relazione da modificare
virtual TRelation* get_relation() const pure;
@ -253,7 +253,7 @@ public:
bool filtered() const
{ return _fixed.not_empty(); }
// @cmember Cerca un record corrispondente alla chiave <p key> (0 prima chiave completa)
bool find(word key = 0);
virtual bool find(word key = 0);
// @cmember Costruisce il membro <md TRelation_application::_fixed>
void set_link(TMask & m, const char * keyexpr);
// @cmember Ritorna TRUE se e' stato chiamato col messaggio di link

38
include/relation.cpp
View File

@ -2053,28 +2053,20 @@ TSorted_cursor::~TSorted_cursor()
int name2log(
const char* name) // @parm Stringa da convertire
{
int log = 0;
if (name)
while (*name == ' ') name++;
if (name && *name)
{
if (isdigit(*name) || *name == '-')
{
log = atoi(name);
if (strchr(name, '@')) log = -log;
}
else
{
const int len = strlen(name);
if (len == 3 || len == 4)
log = TTable::name2log(name);
}
CHECKS(log != 0, "Non e' un file ne' una tabella: ", name);
}
int log = 0;
if (name)
{
while (isspace(*name))
name++;
if (*name)
{
log = table2logic(TFixed_string(name));
CHECKS(log != 0, "Non e' un file ne' una tabella: ", name);
}
}
return log;
}
@ -2411,9 +2403,7 @@ void TRelation_description::read_rel()
const char* tn = tt.get(0); // Codice del file o tabella
int which_file = atoi(tn); // Non spostare questa riga (tn puo' cambiare!)
if (which_file == 0)
which_file = TTable::name2log(tn); // Numero logico del file
const int which_file = name2log(tn); // Numero logico del file
if (tn[0] == '%' || tn[0] == '$')
descfname << (tn+1);

52
include/report.cpp
View File

@ -670,8 +670,8 @@ void TReport_section::save(TXmlItem& root) const
item.AddChild("condition") << condition();
if (grouped_by().not_empty())
item.AddChild("groupby") << grouped_by();
if (_recordset != NULL)
item.AddChild("sql") << _recordset->query_text();
if (recordset() != NULL)
item.AddChild("sql") << recordset()->query_text();
if (has_font())
_font->save(item);
@ -1256,7 +1256,7 @@ void TReport_field::set(const TVariant& var)
bool TReport_field::load_field()
{
const bool ok = !_field.blank();
const bool ok = _field.full();
if (ok)
{
const TFieldtypes ft = var_type();
@ -1914,8 +1914,8 @@ void TReport::load_printer_font()
void TReport::update_recordset_parent()
{
if (_recordset != NULL)
_recordset->set_parent(NULL);
if (recordset() != NULL)
recordset()->set_parent(NULL);
for (int i = find_max_level('B'); i > 0; i--)
section('B', i).update_recordset_parent();
}
@ -2187,8 +2187,8 @@ bool TReport::save(const char* fname) const
}
}
if (_recordset != NULL)
xml.AddChild("sql") << _recordset->query_text();
if (recordset() != NULL)
xml.AddChild("sql") << recordset()->query_text();
_prescript.save(xml, "prescript");
_postscript.save(xml, "postscript");
@ -2340,7 +2340,7 @@ bool TReport::get_report_field(const TString& name, TVariant& var) const
bool TReport::get_record_field(const TString& name, TVariant& var) const
{
bool found = false;
if (_recordset != NULL)
if (recordset() != NULL)
{
const char* str = name;
if (name.starts_with("#RECORD."))
@ -2353,7 +2353,7 @@ bool TReport::get_record_field(const TString& name, TVariant& var) const
// Se non lo trovo, allora lo cerco nel recordset principale
if (!found)
{
var = _recordset->get(str);
var = recordset()->get(str);
if (!var.is_null())
found = true;
}
@ -2660,14 +2660,27 @@ void TReport::do_isam_read_output(const TRectype& file, TToken_string& out)
void TReport::msg_isam_read(TVariant_stack& stack)
{
const TString& f_code = stack.pop().as_string(); // prende il codice del file da leggere
int fkey = 1; // numero e chiave del file da leggere
TString16 f_code = stack.pop().as_string(); // prende il codice del file da leggere
const int exclam = f_code.find('!');
if (exclam > 0)
{
fkey = atoi(f_code.mid(exclam+1));
f_code.cut(exclam);
}
const int logicnum = table2logic(f_code);
if (logicnum < LF_USER)
return; // File sconosciuto
TRectype keyrec(logicnum);
if (logicnum == LF_TAB || logicnum == LF_TABCOM)
{
if (f_code[0] == '%')
f_code.ltrim(1);
keyrec.put("COD", f_code);
}
TToken_string in(stack.pop().as_string(), '!');
TVariant var;
@ -2686,9 +2699,24 @@ void TReport::msg_isam_read(TVariant_stack& stack)
keyrec.put(fld, var.as_string()); // scrive il risultato dell'espressione nel campo del file
}
TToken_string out(stack.pop().as_string(), '!'); // Lista dei campi di output
if (fkey <= 1)
{
const TRectype& rec = cache().get(keyrec);
TToken_string out(stack.pop().as_string(), '!');
do_isam_read_output(rec, out); // Se rec e' vuoto azzera gli outputs
}
else
{
TLocalisamfile file(logicnum);
TRectype& rec = file.curr();
rec = keyrec;
file.setkey(fkey);
if (file.read() != NOERR)
rec.zero();
do_isam_read_output(rec, out); // Se rec e' vuoto azzera gli outputs
}
}
void TReport::msg_table_read(TVariant_stack& stack)
@ -3032,4 +3060,4 @@ TReport::TReport()
TReport::~TReport()
{
destroy();
}
}

20
include/report.h
View File

@ -1,18 +1,14 @@
#ifndef __REPORT_H
#define __REPORT_H
#ifndef __IMAGE_H
#include <image.h>
#endif
#ifndef __ISAMS_H
class TRectype;
#endif
#ifndef __WINDOW_H
#include <window.h>
#endif
#ifndef __IMAGE_H
#include <image.h>
#endif
#ifndef __XML_H
#include <xml.h>
#endif
@ -25,6 +21,10 @@ class TRectype;
#include <alex.h>
#endif
#ifndef __ISAM_H
class TRectype;
#endif
///////////////////////////////////////////////////////////
// TReport_font
///////////////////////////////////////////////////////////
@ -528,8 +528,8 @@ public:
int print_lpi() const;
virtual bool set_recordset(const TString& sql);
bool set_recordset(TRecordset* sql);
TRecordset* recordset() const { return _recordset; }
virtual bool set_recordset(TRecordset* sql);
virtual TRecordset* recordset() const { return _recordset; }
bool evaluate_atom(const char* atom, TVariant& var);
bool evaluate(const char* expr, TVariant& var, TFieldtypes force_type);

42
include/reprint.cpp
View File

@ -1087,9 +1087,12 @@ void TBook::draw_image(const TRectangle& rect, const char* name)
void TBook::add_doc(const TString& name)
{
TBook::open_page();
*_out << "<doc url=\"" << name << "\" />"<< endl;
TBook::close_page();
if (name.full())
{
TBook::open_page();
*_out << "<doc url=\"" << name << "\" />"<< endl;
TBook::close_page();
}
}
///////////////////////////////////////////////////////////
@ -2260,6 +2263,37 @@ void TReport_book::print_subsections(int father)
}
}
void TReport_book::add_doc(const TString& name)
{
if (name.ends_with(".rep", true)) // Tratto a parte i report!
{
TReport* eminem = new TReport;
if (eminem->load(name))
{
TReport* rep = _report; // Salvo variabile globale
if (rep->use_mask())
{
TFilename msk = rep->filename().name();
msk.ext("msk");
if (msk.custom_path())
{
TMask m(msk);
rep->report2mask(m);
eminem->mask2report(m);
}
}
add(*eminem, true);
_report = rep; // Ripristino variabile globale
}
delete eminem;
}
else
TBook::add_doc(name);
}
bool TReport_book::add(TReport& rep, bool progind)
{
if (!init(rep))
@ -2297,7 +2331,7 @@ bool TReport_book::add(TReport& rep, bool progind)
_rep_page = rep.last_printed_page(); // Azzera numero di pagina relativo
_is_last_page = false;
bool ok = rex->move_to(0);
bool ok = rex->move_first();
open_page();
for (; ok && !_print_aborted; ok = rex->move_next())

1
include/reprint.h
View File

@ -103,6 +103,7 @@ class TReport_book : public TBook
protected:
virtual bool open_page();
virtual bool close_page();
virtual void add_doc(const TString& name);
virtual void define_frame(const TRectangle& r);
virtual bool on_link(const TReport_link& lnk);

23
include/righef24.h Executable file
View File

@ -0,0 +1,23 @@
#ifndef __RIGHE_F24
#define __RIGHE_F24
#define F24_PROGR "PROGR"
#define F24_F24 "F24"
#define F24_TRIBUTO "TRIBUTO"
#define F24_TIPOINTEST "TIPOINTEST"
#define F24_INTEST "INTEST"
#define F24_DESCR "DESCR"
#define F24_DATASCAD "DATASCAD"
#define F24_DATAVERS "DATAVERS"
#define F24_ABI "ABI"
#define F24_CAB "CAB"
#define F24_RATEAZIONE "RATEAZIONE"
#define F24_ANNO "ANNO"
#define F24_IMPORTODEB "IMPORTODEB"
#define F24_IMPORTOCRE "IMPORTOCRE"
#define F24_SEDE "SEDE"
#define F24_MATRICOLA "MATRICOLA"
#define F24_PERIODODA "PERIODODA"
#define F24_PERIODOA "PERIODOA"
#endif

55
include/tabapp.cpp
View File

@ -136,7 +136,6 @@ bool TTable_application::user_destroy()
return TRUE;
}
///////////////////////////////////////////////////
// Tabelle Multirel
///////////////////////////////////////////////////
@ -176,6 +175,60 @@ void TMultirel_application::get_mask_name(TString& tabname) const
tabname << _tabname;
}
bool TMultirel_application::find(word k)
{
bool ok = TRelation_application::find(k);
if (!ok && k < 2)
{
file().setkey(1);
file().zero();
for (TEditable_field* e = get_mask()->get_key_field(1, true); e; e = get_mask()->get_key_field(1, false))
{
if (e->shown() || e->ghost()) // Ignora campi invisibili non ghost
e->autosave(*get_relation());
}
TRectype rec(file().curr());
ok = file().read(_isequal) == NOERR;
}
return ok;
}
void TMultirel_application::init_insert_mode(TMask& m)
{
for (int i = m.fields() - 1; i >= 0; i--)
{
TMask_field& c = m.fld(i);
if (c.in_group(1) && c.is_edit())
{
TEdit_field& e = (TEdit_field&)c;
e.enable();
if (e.browse() != NULL)
e.enable_check();
_second = e.get();
}
}
}
int TMultirel_application::rewrite(const TMask& m)
{
int err = TRelation_application::write(m);
if (err == NOERR)
{
TRelation & rel = *get_relation();
rel.save_status();
rel.lfile().put("SECOND", _second);
rel.remove();
rel.restore_status();
}
return err;
}
bool TMultirel_application::user_create()
{

11
include/tabapp.h
View File

@ -68,7 +68,6 @@ public:
virtual ~TTable_application();
};
///////////////////////////////////////////////////////////////
// Tabelle multirel
///////////////////////////////////////////////////////////////
@ -86,6 +85,8 @@ class TMultirel_application : public TRelation_application
TRelation* _rel;
// @cmember:(INTERNAL) Nome della tabella da utilizzare
TString _tabname;
// @cmember:(INTERNAL) valore iniziale campo collegato
TString _second;
// @access Protected Member
protected:
@ -98,19 +99,25 @@ protected:
virtual bool changing_mask(int mode);
// @cmember Ritorna la relazione da modificare
virtual TRelation* get_relation() const;
// @cmember Inizializza la maschera per il modo inserimento
virtual void init_insert_mode(TMask& m);
// @cmember Inizializza la maschera per il modo modifica
virtual void init_modify_mode(TMask& m) { init_insert_mode(m);}
// @cmember Inizializzazione dei dati dell'utente
virtual bool user_create() ;
// @cmember Distruzione dei dati dell'utente
virtual bool user_destroy() ;
// @cmember Chiama il programma di stampa
virtual void print();
// @cmember Riscrive sulla relazione i valori dalla maschera <p m>
virtual int rewrite(const TMask& m);
// @access Public Member
public:
// @cmember Ritorna il nome della tabella
const TString& get_tabname() const
{ return _tabname; }
virtual bool find(word key = 0);
// @cmember Costruttore
TMultirel_application();

22
include/variant.cpp
View File

@ -120,7 +120,7 @@ bool TVariant::as_bool() const
{
bool ok = false;
if (_type == _alfafld)
ok = strchr("1XY", as_string()[0]) != NULL;
ok = strchr("1VXY", as_string()[0]) != NULL;
else
ok = as_int() != 0;
return ok;
@ -179,11 +179,16 @@ void TVariant::convert_to(TFieldtypes ft)
{
switch (ft)
{
case _alfafld: set(as_string()); break;
case _datefld: set(as_date()); break;
case _longfld: set(as_int()); break;
case _realfld: set(as_real()); break;
default : set_null(); break;
case _nullfld : set_null(); break;
case _datefld : set(as_date()); break;
case _intfld :
case _intzerofld :
case _longzerofld:
case _wordfld :
case _longfld : set(as_int()); break;
case _boolfld : set(as_bool()); break;
case _realfld : set(as_real()); break;
default : set(as_string()); break;
}
}
}
@ -210,6 +215,11 @@ bool TVariant::is_kind_of(word cid) const
return cid == CLASS_VARIANT || TSortable::is_kind_of(cid);
}
void TVariant::print_on(ostream& out) const
{
out << as_string();
}
int TVariant::compare(const TSortable& s) const
{
CHECK(s.is_kind_of(CLASS_VARIANT), "Illegal Variant comparison");

2
include/varmask.cpp
View File

@ -14,7 +14,7 @@ void TVariable_mask::set_handler(short fld_id, CONTROL_HANDLER handler)
TMask::set_handler( fld_id, handler );
}
void TVariable_mask::set(short fld_id, const char* str, bool hit )
void TVariable_mask::set(short fld_id, const char* str, byte hit)
{
if(present( fld_id ))
TMask::set( fld_id, str, hit );

2
include/varmask.h
View File

@ -26,7 +26,7 @@ public:
// @cmember Esegue il check e i messaggi sul campo <p fld_id> della maschera
virtual void check_field( short fld_id );
// @cmember Setta il campo con una stringa
virtual void set(short fld_id, const char* str, bool hit=FALSE);
virtual void set(short fld_id, const char* str, byte hit=0x0);
// @cmember Ritorna il contenuto del campo <p fld_id> sotto forma di stringa
virtual const TString& get(short fld_id) const;
// @cmember Definisce l'handler del campo <p fld_id>

313
include/virtkeyb.cpp Executable file
View File

@ -0,0 +1,313 @@
#include <xi.h>
#include <controls.h>
#include <image.h>
#include <virtkeyb.h>
#include <utility.h>
#define DLG_BACKSPACE 400
#define DLG_CAPS 401
#define DLG_LSHIFT 402
#define DLG_RSHIFT 403
#define DLG_LARR 404
#define DLG_RARR 405
#define DLG_F2 406
#define DLG_BASE 500
bool TVirtual_keyboard::handler(TMask_field& f, KEY key)
{
if (key == K_SPACE)
{
const short id = f.dlg();
TVirtual_keyboard & m = (TVirtual_keyboard &) f.mask();
static bool vk_shift = false;
static bool vk_caps = false;
int & pos = m.pos();
TMask_field & target = m.field(101);
target.set_focus();
switch (id)
{
case DLG_BACKSPACE :
if (pos > 0)
{
TString val(m.get(101));
if (pos == val.len())
val.rtrim(1);
else
{
const TString v = val.mid(pos);
val.cut(pos - 1);
val << v;
}
pos--;
target.set(val);
}
break;
case DLG_F2 :
pos = 0;
target.reset();
break;
case DLG_CAPS :
vk_caps = !vk_caps;
break;
case DLG_RSHIFT :
case DLG_LSHIFT :
vk_shift = true;
break;
case DLG_LARR :
if (pos > 0)
pos--;
break;
case DLG_RARR:
if (pos < target.get().len())
pos++;
break;
default :
if (id >= DLG_BASE + ' ' && pos < target.size())
{
char k = id - DLG_BASE;
if (vk_caps || vk_shift)
k = toupper(k);
vk_shift = false;
TString val(target.get());
val.insert(format("%c", k), pos++);
target.set(val);
}
break;
}
target.set_pos(pos);
}
return true;
}
void TVirtual_keyboard::create_keyboard_row(int y, const char * keyboard_row)
{
const TString80 row(keyboard_row);
const int len = row.len();
RCT rw;
short id;
int x;
TString16 prompt;
xvt_vobj_get_client_rect(win(), &rw);
const int width = xvt_rect_get_width(&rw);
x = 0;
for (int i = 0; i < len; i++)
{
unsigned char k = row[i];
switch (k)
{
case '\b' :
id = DLG_BACKSPACE;
prompt = "<<";
break;
case '\n' :
id = DLG_OK;
prompt = "Invio";
break;
case '\01' :
id = DLG_CAPS;
prompt = "Mai";
break;
case '\02' :
id = DLG_RSHIFT;
prompt = "Shift";
break;
case '\03' :
id = DLG_LSHIFT;
prompt = "Shift";
break;
case '\04' :
id = DLG_LARR;
prompt = "<-";
break;
case '\05' :
id = DLG_RARR;
prompt = "->";
break;
case '\06' :
id = DLG_F2;
prompt = "Azzera";
break;
case '\27' :
id = DLG_CANCEL;
prompt = "Esc";
break;
default :
if (k >= ' ')
{
id = DLG_BASE + k;
prompt = " "; prompt[0] = k;
}
break;
}
const int w = prompt.len() > 2 ? 2 : 1;
prompt.insert("@g");
TButton_field & b = add_button(id, 0, "", x, y, w, 2, "");
TFilename bmp(prompt);
if (TImage::build_filename(bmp))
b.set_bmp(bmp);
else
b.set_prompt(prompt);
set_handler(id, handler);
RCT r;
r.left = x * (width / buttons_per_row() - 4);
r.right = r.left + w * width / buttons_per_row() ;
r.top = (ROWY - 2) * y;
r.bottom = r.top + ROWY * 2;
b.set_rect(r);
x += w;
}
}
KEY TVirtual_keyboard::run()
{
if (id2pos(500 + '0') < 0)
init();
set(101, fld().get());
_pos = fld().get().len();
field(101).set_pos(_pos);
KEY k = TMask::run();
if (k == K_ENTER)
{
TMask & mask = fld().mask();
fld().set(get(101));
fld().set_focus();
mask.send_key(K_TAB, 0);
mask.send_key(K_F12, 0);
}
else
_fld.set_focus();
return k;
}
void TVirtual_keyboard::init()
{
TString flags;
if (fld().password())
flags << '*';
if (fld().roman())
flags << 'M';
if (fld().right_justified())
flags << 'R';
if (fld().uppercase())
flags << 'U';
byte trim = fld().trim();
if (trim == 0)
flags << '_';
else
if (trim == 1)
flags << '@';
else
if (trim == 2)
flags << '#';
TEdit_field & e = add_string(101, 0, "", 1, 0, fld().size(), flags);
e.set_read_only(true);
e.allow_pipe(fld().pipe_allowed());
create_keyboard_row(1, "1234567890'ì\b\27");
create_keyboard_row(3, "qwertyuiopè+\n\06");
create_keyboard_row(5, "\01asdfghjklòàù\04\05");
create_keyboard_row(7,"\02<zxcvbnm,.- \03");
}
TVirtual_keyboard::TVirtual_keyboard(TMask_field & fld, int cols, int rows)
: TMask(fld.prompt(), 1, cols, rows), _fld(fld)
{
int size = fld.size();
RCT f, m, k;
fld.get_rect(f);
xvt_vobj_get_client_rect(fld.parent(), &m);
xvt_vobj_get_outer_rect(win(), &k);
int height = xvt_rect_get_height(&k);
int width = xvt_rect_get_width(&k);
int ypos = f.bottom + 3;
int xpos = f.left ;
if (ypos + height > m.bottom)
ypos = f.top - 10 - height - xvt_vobj_get_attr(win(), ATTR_TITLE_HEIGHT); // attuaòmente wxWidget ignora i titoli
if (xpos + width > m.right)
xpos = f.right - width;
if (xpos < 0)
xpos = 20;
k.top = ypos;
k.bottom = ypos + height;
k.left = xpos;
k.right = xpos + width;
xvt_vobj_move(win(), &k);
}
void TVirtual_numpad::init()
{
TString flags;
if (fld().password())
flags << '*';
if (fld().roman())
flags << 'M';
if (fld().right_justified())
flags << 'R';
if (fld().uppercase())
flags << 'U';
byte trim = fld().trim();
if (trim == 0)
flags << '_';
else
if (trim == 1)
flags << '@';
else
if (trim == 2)
flags << '#';
if (_currency )
add_currency(101, 0, "", 1, 0, fld().size(), flags);
else
add_number(101, 0, "", 1, 0, fld().size(), flags, ((TReal_field& )fld()).decimals());
field(101).set_read_only(true);
field(101).allow_pipe(fld().pipe_allowed());
create_keyboard_row(1, "789\b");
create_keyboard_row(3, "456-\06");
create_keyboard_row(5, "123\04\05");
create_keyboard_row(7, "0,\n\27");
}
TVirtual_numpad::TVirtual_numpad(TMask_field & fld, bool currency, int cols, int rows)
: TVirtual_keyboard(fld, cols, rows), _currency(currency)
{
}

62
include/virtkeyb.h Executable file
View File

@ -0,0 +1,62 @@
#ifndef __VIRTKEYB_H
#define __VIRTKEYB_H
#ifndef __WINDOW_H
#include <window.h>
#endif
#ifndef __MASK_H
#include <mask.h>
#endif
// @doc EXTERNAL
// @doc EXTERNAL
// @class TVirtual_keyboard | Classe per la gestione della tastiera virtuale
//
// @base public | TMask
class TVirtual_keyboard : public TMask
{
TMask_field & _fld; // campo legato alla tastiera
int _pos;
// @author:(INTERNAL) Guido
// @access Protected Member
protected:
void create_keyboard_row(int y, const char * keyboard_row);
virtual void init();
virtual int buttons_per_row() const { return 16;}
int & pos() { return _pos;}
TMask_field & fld() {return _fld;}
static bool handler(TMask_field& f, KEY key);
// @access Public Member
public:
// @cmember Run della testatiera
virtual KEY run();
// @cmember Costruttore
TVirtual_keyboard(TMask_field & fld, int cols = 90, int rows = 8);
// @cmember Distruttore
virtual ~TVirtual_keyboard() {}
};
class TVirtual_numpad : public TVirtual_keyboard
{
// @author:(INTERNAL) Guido
bool _currency;
// @access Protected Member
protected:
virtual void init();
virtual int buttons_per_row() const { return 6;}
// @access Public Member
public:
// @cmember Costruttore
TVirtual_numpad(TMask_field & fld, bool currency = false, int cols = 35, int rows = 8);
// @cmember Distruttore
virtual ~TVirtual_numpad() {}
};
#endif // __VIRTKEYB_H

2
include/window.cpp
View File

@ -232,7 +232,7 @@ void TWindow_manager::destroy()
bool TWindow_manager::can_close() const
{
bool ok = TRUE;
bool ok = true;
if (_current >= 0)
ok = cur_win()->can_be_closed();
return ok;

6
ps/indice_programmi.txt
View File

@ -1,6 +1,12 @@
PF0001
Stampa etichette Fiorito
PD0666
Esportazione clifo e partite a SAP per MEDICASA
PD0777
Importazione stipendi in prima nota per OMASA
PD1579
Importazione clienti CoFiDi

4
ps/pd0350_conslinereg.rep
View File

@ -71,8 +71,8 @@
<prescript description="H4 PRESCRIPT">MESSAGE RESET,F4.105</prescript>
<field x="7" type="Stringa" width="5" id="101" pattern="1">
<source>PROVINCIA</source>
<postscript description="H4.101 POSTSCRIPT">#THIS @
"F4.101" !</postscript>
<prescript description="H4.101 PRESCRIPT">#THIS @
"F4.101" !</prescript>
</field>
</section>
<section type="Body" />

44
ps/pd0350_progart.msk Executable file
View File

@ -0,0 +1,44 @@
PA "Stampa progressivo articoli" -1 -1 64 10
NU 251 5
BE
PR 1 1 "Ditta "
FL "FRD"
US 9 KE 1
CH REQUIRED
IN CODDITTA 251
DI "Codice" CODDITTA
DI "Ragione sociale @50" RAGSOC
OU 251 CODDITTA
OU 252 RAGSOC
EN
ST 252 50
BE
PR 15 1 ""
FL "D"
EN
DA 256
BE
PR 1 3 "Dalla data "
FI DADATA
GR 1
CH RE
EN
DA 257
BE
PR 40 3 "Alla data "
FI ADATA
GR 2
CH RE
FL "A"
EN
BU 24 10 2
BE
PR -12 -1 "~Stampa"
ME EXIT,13
EN
BU 9 10 2
BE
PR -22 -1 ""
EN
EN
ENDMASK

83
ps/pd0350_progart.rep Executable file
View File

@ -0,0 +1,83 @@
<report name="pd0350_progart" lpi="6">
<description>Progressivo articoli</description>
<font face="Courier New" size="10" />
<section type="Head">
<font face="Courier New" bold="1" size="10" />
<field x="1" type="Stringa" width="50" pattern="1">
<font italic="1" face="Courier New" bold="1" size="9" />
<source>#SYSTEM.RAGSOC</source>
</field>
<field x="80" type="Data" width="10" pattern="1">
<source>#SYSTEM.DATE</source>
</field>
<field x="165" type="Numero" align="right" width="3" pattern="1">
<source>#REPORT.PAGE</source>
</field>
<field x="1" y="1.5" type="Testo" width="32.5" pattern="1" text="Periodo Osservazione: Dalla data" />
<field x="34" y="1.5" type="Data" width="10" pattern="1">
<source>#DADATA</source>
</field>
<field x="50" y="1.5" type="Testo" width="9.5" pattern="1" text="Alla data" />
<field x="60" y="1.5" type="Data" width="10" pattern="1">
<source>#ADATA</source>
</field>
<field border="1" x="1" y="3" type="Linea" width="93" height="0" pattern="1" />
<field x="1" y="3.25" type="Testo" width="15" pattern="1" text="Cod. Articolo" />
<field x="22" y="3.25" type="Testo" width="15" pattern="1" text="Descrizione" />
<field x="75" y="3.25" type="Testo" width="8" pattern="1" text="Qta acq." />
<field x="86" y="3.25" type="Testo" width="8" pattern="1" text="Qta ven." />
<field border="1" x="1" y="4.75" type="Linea" width="93" height="0" pattern="1" />
</section>
<section type="Head" level="1">
<field y="0.75" type="Testo" align="center" width="94" height="2" pattern="1" text="PROGRESSIVO ARTICOLI">
<font face="Courier New" bold="1" size="16" />
</field>
</section>
<section type="Head" level="2">
<groupby>CODART</groupby>
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2.104
MESSAGE RESET,F2.105</prescript>
<field x="1" type="Stringa" hidden="1" width="20" id="101" pattern="1">
<source>CODART</source>
<postscript description="H2.101 POSTSCRIPT">#THIS @
"F2.101" !</postscript>
</field>
<field x="22" type="Stringa" hidden="1" width="50" id="102" pattern="1">
<source>ANAMAG.DESCR</source>
<postscript description="H2.102 POSTSCRIPT">#THIS @
"F2.102" !</postscript>
</field>
</section>
<section type="Body" />
<section type="Body" level="1">
<field x="1" type="Numero" hidden="1" align="right" width="10" id="103" pattern="1">
<source>QUANT</source>
<postscript description="B1.103 POSTSCRIPT">#THIS @
"MOVMAG.CODCAUS" @
"02" = IF
"F2.104"
ELSE
"F2.105"
THEN
+!</postscript>
</field>
</section>
<section type="Foot">
<field x="86.5" type="Stringa" width="8.5" pattern="1" text="Pag.">
<source>#PAGE</source>
</field>
</section>
<section type="Foot" level="1" />
<section type="Foot" level="2">
<field x="1" type="Stringa" width="20" id="101" pattern="1" />
<field x="22" type="Stringa" width="50" id="102" pattern="1" />
<field x="73" type="Numero" align="right" width="10" id="104" pattern="1" />
<field x="84" type="Numero" align="right" width="10" id="105" pattern="1" />
</section>
<sql>USE RMOVMAG KEY 2
SELECT
(NUM(ANSI(110.DATAREG)&#3E;=ANSI(#DADATA)))&#26;&#26;(NUM(ANSI(110.DATAREG)&#3C;=ANSI(#ADATA)))&#26;&#26;(110.CODCAUS&#3C;="02")
JOIN MOVMAG INTO NUMREG=NUMREG
JOIN ANAMAG INTO CODART=CODART</sql>
</report>

21
ps/pd0666.cpp Executable file
View File

@ -0,0 +1,21 @@
#include <xvt.h>
#include "pd0666.h"
int main(int argc,char** argv)
{
const int s = (argc > 1) ? argv[1][1] - '0' : 0;
switch (s)
{
case 0 :
default: pd0666100(argc,argv); // Esportazione clifo e partite a SAP di Medicasa
break;
}
exit(0);
return 0;
}

3
ps/pd0666.h Executable file
View File

@ -0,0 +1,3 @@
int pd0666100(int argc, char* argv[]);

319
ps/pd0666100.cpp Executable file
View File

@ -0,0 +1,319 @@
#include "pd0666.h"
#include "pd0666100a.h"
#include <applicat.h>
#include <automask.h>
#include <progind.h>
#include <recarray.h>
#include <textset.h>
#include "../cg/cglib01.h"
#include <clifo.h>
#include <comuni.h>
///////////////////////////////////////////////////////////
// TEsporta_SAP_mask
///////////////////////////////////////////////////////////
class TEsporta_SAP_mask : public TAutomask
{
public:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
TEsporta_SAP_mask();
};
bool TEsporta_SAP_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
/* switch (o.dlg())
{
default:
break;
}*/
return true;
}
TEsporta_SAP_mask::TEsporta_SAP_mask() : TAutomask("pd0666100a")
{
//file dei clienti..
TFilename file;
file.tempdir();
file.add("clienti.xls");
set(F_CLIFILE, file);
//..dei fornitori..
file.tempdir();
file.add("fornitori.xls");
set(F_FORNFILE, file);
//..e delle partite
file.tempdir();
file.add("partite.xls");
set(F_PARTFILE, file);
}
class TEsporta_SAP_clienti_recordset : public TAS400_recordset
{
public:
TEsporta_SAP_clienti_recordset();
};
TEsporta_SAP_clienti_recordset::TEsporta_SAP_clienti_recordset()
: TAS400_recordset("AS400(512)")
{
create_field("KTOKD", -1, 4, _alfafld); //zicc o zicu
create_field("NAME1", -1, 30, _alfafld); //ragsoc1
create_field("NAME2", -1, 20, _alfafld); //ragsoc2
create_field("SORTL", -1, 1, _alfafld); //campo non richiesto?
create_field("STRAS", -1, 45, _alfafld); //via+numero
create_field("ORT01", -1, 35, _alfafld); //localita'
create_field("PSTLZ", -1, 5, _alfafld); //cap
create_field("LAND1", -1, 3, _alfafld); //codice paese
create_field("REGIO", -1, 2, _alfafld); //occhio al casino in fase di caricamento!
create_field("SPRAS", -1, 1, _alfafld); //codlin
create_field("TELX1", -1, 40, _alfafld); //somma prefisso+telefono telex
create_field("TELF1", -1, 40, _alfafld); //somma prefisso+telefono ptel1+tel1
create_field("TELFX", -1, 40, _alfafld); //somma prefisso+telefono fax
create_field("TELF2", -1, 40, _alfafld); //somma prefisso+telefono ptel2+tel2
create_field("LZONE", -1, 10, _alfafld); //non l'abbiamo
create_field("VBUND", -1, 1, _alfafld); //non l'abbiamo
create_field("STCD1", -1, 16, _alfafld); //non l'abbiamo;cofi
create_field("STCD2", -1, 16, _alfafld); //non l'abbiamo
create_field("BRSCH", -1, 2, _alfafld); //non l'abbiamo
create_field("STCEG", -1, 14, _alfafld); //statopaiv+p.iva
create_field("STKZN", -1, 1, _alfafld); //tipopers
create_field("BUSAB", -1, 2, _alfafld); //non l'abbiamo
create_field("XAUSZ", -1, 1, _alfafld); //non l'abbiamo
create_field("AKONT", -1, 8, _alfafld); //conto da tabella!
create_field("FDGRV", -1, 5, _alfafld); //non l'abbiamo
create_field("ZTERM", -1, 4, _alfafld); //codpag?
create_field("ZAMIM", -1, 1, _alfafld); //non l'abbiamo
create_field("ZWELS", -1, 4, _alfafld); //codpag ancora?
create_field("VZSKZ", -1, 2, _alfafld); //non l'abbiamo
create_field("EIKTO", -1, 6, _alfafld); //nostro codcf
create_field("XZVER", -1, 1, _alfafld); //non l'abbiamo
create_field("TOGRU", -1, 4, _alfafld); //non l'abbiamo
create_field("ALTKN", -1, 7, _alfafld); //non l'abbiamo
create_field("MAHNA", -1, 4, _alfafld); //non l'abbiamo
}
///////////////////////////////////////////////////////////
// TEsporta_SAP
///////////////////////////////////////////////////////////
class TEsporta_SAP_app : public TSkeleton_application
{
TAssoc_array _codpag;
protected:
virtual bool check_autorization() const {return false;}
virtual const char * extra_modules() const {return "cg";}
virtual void main_loop();
bool is_cofi(const TString& cofi) const;
public:
void esporta_clienti(const TString& path) const;
void esporta_fornitori(const TString& path) const;
void esporta_partite(const TString& path) const;
};
bool TEsporta_SAP_app::is_cofi(const TString& cofi) const
{
if (cofi.len() != 16)
return false;
const char* const fmt = "AAAAAANNANNANNNA";
int i = 0;
for (i = 15; i >= 0; i--)
{
if (fmt[i] == 'A')
{
if (cofi[i] < 'A' || cofi[i] > 'Z')
break;
}
else
{
if (cofi[i] < '0' || cofi[i] > '9')
break;
}
}
return i < 0;
}
void TEsporta_SAP_app::esporta_clienti(const TString& path) const
{
TString query;
query << "USE CLIFO";
query << "\nFROM TIPOCF='C'";
query << "\nTO TIPOCF='C'";
TISAM_recordset clienti_campo(query);
TEsporta_SAP_clienti_recordset clienti_sap;
const int cazzoni = clienti_campo.items();
TProgind pi(cazzoni, "Trasferimento clienti...", true, true);
TString workstring;
for (bool ok = clienti_campo.move_first(); ok; ok = clienti_campo.move_next())
{
if (!pi.addstatus(1))
break;
//creazione di un nuovo record di tipo clienti..
clienti_sap.new_rec();
//..e successivo riempimento
const long conto = clienti_campo.get(CLI_CONTO).as_int(); //ktokd
if (conto == 8 || conto == 9)
clienti_sap.set("KTOKD", TVariant("ZICC"));
else
clienti_sap.set("KTOKD", TVariant("ZICU"));
workstring = clienti_campo.get(CLI_RAGSOC).as_string(); //name1 e name2
clienti_sap.set("NAME1", TVariant(workstring.left(30)));
clienti_sap.set("NAME2", TVariant(workstring.mid(30)));
workstring = clienti_campo.get(CLI_INDCF).as_string(); //stras
workstring << " " << clienti_campo.get(CLI_CIVCF).as_string();
clienti_sap.set("STRAS", TVariant(workstring));
//pocci su comune localita' provincia
if (clienti_campo.get(CLI_COMCF).is_empty())
{
workstring = cap2comune(clienti_campo.get(CLI_CAPCF).as_string(),
clienti_campo.get(CLI_LOCCF).as_string());
workstring.insert(" |");
}
else
{
workstring = clienti_campo.get(CLI_STATOCF).as_string();
workstring << "|" << clienti_campo.get(CLI_COMCF).as_string();
}
const TRectype& com_rec = cache().get(LF_COMUNI, workstring);
const TString& dencom = com_rec.get(COM_DENCOM);
workstring = clienti_campo.get(CLI_LOCCF).as_string(); //ort01
if (dencom.full())
{
if (workstring.blank())
workstring = dencom;
else
{
workstring.upper();
if (xvt_str_fuzzy_compare(workstring, dencom) < 0.75)
workstring << ", " << dencom;
}
}
clienti_sap.set("ORT01", TVariant(workstring));
workstring = clienti_campo.get(CLI_CAPCF).as_string(); //pstlz
clienti_sap.set("PSTLZ", TVariant(workstring));
workstring = clienti_campo.get(CLI_STATOCF).as_string(); //land1
clienti_sap.set("LAND1", TVariant(workstring));
workstring = com_rec.get(COM_PROVCOM); //regio
clienti_sap.set("REGIO", TVariant(workstring));
workstring = clienti_campo.get(CLI_CODLIN).as_string(); //spras
clienti_sap.set("SPRAS", TVariant(workstring));
workstring = clienti_campo.get(CLI_PTELEX).as_string(); //telx1
workstring << clienti_campo.get(CLI_TELEX).as_string();
clienti_sap.set("TELX1", TVariant(workstring));
workstring = clienti_campo.get(CLI_PTEL).as_string(); //telf1
workstring << clienti_campo.get(CLI_TEL).as_string();
clienti_sap.set("TELF1", TVariant(workstring));
workstring = clienti_campo.get(CLI_PFAX).as_string(); //telfx
workstring << clienti_campo.get(CLI_FAX).as_string();
clienti_sap.set("TELFX", TVariant(workstring));
workstring = clienti_campo.get(CLI_PTEL2).as_string(); //telf2
workstring << clienti_campo.get(CLI_TEL2).as_string();
clienti_sap.set("TELF2", TVariant(workstring));
workstring = clienti_campo.get(CLI_COFI).as_string(); //stcd1
clienti_sap.set("STCD1", TVariant(workstring));
if (is_cofi(workstring)) //stkzn
clienti_sap.set("STKZN", TVariant("X"));
workstring = clienti_campo.get(CLI_STATOPAIV).as_string(); //stceg
workstring << clienti_campo.get(CLI_PAIV).as_string();
clienti_sap.set("STCEG", TVariant(workstring));
if (conto == 8 || conto == 9) //akont
clienti_sap.set("AKONT", TVariant("8/9"));
else
clienti_sap.set("AKONT", TVariant("7"));
workstring = clienti_campo.get(CLI_CODPAG).as_string(); //zterm
TString* codpag = (TString*)_codpag.objptr(workstring);
if (codpag == NULL)
workstring = "R000";
else
workstring = *codpag;
clienti_sap.set("ZTERM", TVariant(workstring));
clienti_sap.set("ZWELS", TVariant("D")); //zwels
workstring = clienti_campo.get(CLI_CODCF).as_string(); //eikto
clienti_sap.set("EIKTO", TVariant(workstring));
}
//scrivitore in formato xls
clienti_sap.save_as(path, fmt_silk);
#ifdef DBG
xvt_sys_goto_url(path, "open");
#endif
}
void TEsporta_SAP_app::esporta_fornitori(const TString& path) const
{
}
void TEsporta_SAP_app::esporta_partite(const TString& path) const
{
}
void TEsporta_SAP_app::main_loop()
{
//crea tabella trascodifica
_codpag.add("BB", new TString("R000"));
_codpag.add("B09", new TString("R002"));
_codpag.add("B01", new TString("R003"));
_codpag.add("BB09", new TString("R004"));
_codpag.add("B05", new TString("R004"));
_codpag.add("B07", new TString("R005"));
_codpag.add("B03", new TString("R007"));
_codpag.add("B04", new TString("R007"));
_codpag.add("B11", new TString("R007"));
_codpag.add("BB30", new TString("R007"));
_codpag.add("B08", new TString("R009"));
_codpag.add("BB60", new TString("R009"));
_codpag.add("B10", new TString("R010"));
_codpag.add("BB90", new TString("R010"));
TEsporta_SAP_mask m;
while (m.run() == K_ENTER)
{
if (m.get_bool(F_CLIENTI))
esporta_clienti(m.get(F_CLIFILE));
if (m.get_bool(F_FORNITORI))
esporta_fornitori(m.get(F_FORNFILE));
if (m.get_bool(F_PARTITE))
esporta_partite(m.get(F_PARTFILE));
}
}
int pd0666100(int argc, char* argv[])
{
TEsporta_SAP_app app;
app.run(argc, argv, TR("Esportazione a SAP"));
return 0;
}

6
ps/pd0666100a.h Executable file
View File

@ -0,0 +1,6 @@
#define F_CLIENTI 101
#define F_CLIFILE 102
#define F_FORNITORI 103
#define F_FORNFILE 104
#define F_PARTITE 105
#define F_PARTFILE 106

68
ps/pd0666100a.uml Executable file
View File

@ -0,0 +1,68 @@
#include "pd0666100a.h"
PAGE "Trasferimento a SAP per Medicasa" -1 -1 72 12
GROUPBOX DLG_NULL 70 4
BEGIN
PROMPT 1 1 "@bEsportazione clenti / fornitori"
END
BOOLEAN F_CLIENTI
BEGIN
PROMPT 2 2 "Clienti"
MESSAGE FALSE DISABLE,F_CLIFILE
MESSAGE TRUE ENABLE,F_CLIFILE
END
STRING F_CLIFILE 128 50
BEGIN
PROMPT 14 2 "File "
CHECKTYPE REQUIRED
END
BOOLEAN F_FORNITORI
BEGIN
PROMPT 2 3 "Fornitori"
MESSAGE FALSE DISABLE,F_FORNFILE
MESSAGE TRUE ENABLE,F_FORNFILE
END
STRING F_FORNFILE 128 50
BEGIN
PROMPT 14 3 "File "
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 70 4
BEGIN
PROMPT 1 5 "@bEsportazione partite"
END
BOOLEAN F_PARTITE
BEGIN
PROMPT 2 6 "Partite"
MESSAGE FALSE DISABLE,F_PARTFILE
MESSAGE TRUE ENABLE,F_PARTFILE
END
STRING F_PARTFILE 128 50
BEGIN
PROMPT 14 6 "File "
CHECKTYPE REQUIRED
END
BUTTON DLG_ELABORA 10 2
BEGIN
PROMPT -12 -1 ""
PICTURE BMP_ELABORA
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

4
ps/pd0666conf.ini Executable file
View File

@ -0,0 +1,4 @@
[MAIN]
PATH = C:\temp\
FILE =
LASTDATA =

21
ps/pd0777.cpp Executable file
View File

@ -0,0 +1,21 @@
#include <xvt.h>
#include "pd0777.h"
int main(int argc,char** argv)
{
const int s = (argc > 1) ? argv[1][1] - '0' : 0;
switch (s)
{
case 0 :
default: pd0777100(argc,argv); // Importa stipendi in prima nota (OMASA)
break;
}
exit(0);
return 0;
}

3
ps/pd0777.h Executable file
View File

@ -0,0 +1,3 @@
int pd0777100(int argc, char* argv[]);

448
ps/pd0777100.cpp Executable file
View File

@ -0,0 +1,448 @@
// OMASA
#include <applicat.h>
#include <automask.h>
#include <config.h>
#include <execp.h>
#include <filetext.h>
#include <progind.h>
#include <recarray.h>
#include <utility.h>
#include "pd0777.h"
#include "pd0777100a.h"
#include "pd0777100b.h"
#include "pd0777100C.h"
#include "../cg/cglib01.h"
#include <causali.h>
#include <mov.h>
#include <pconti.h>
#include <rmov.h>
#define MAX_CG_ROWS 98
// tabella per la conversione dei numeri negativi (schede perforate????)
static unsigned char _tabella[10] = {'p','q','r','s','t','u','v','w','x','y'};
//////////////////////////
// TAutomask
//////////////////////////
class TOmasa_mask : public TAutomask
{
protected:
bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TOmasa_mask();
virtual ~TOmasa_mask(){};
};
TOmasa_mask::TOmasa_mask() :TAutomask ("pd0777100a")
{
}
bool TOmasa_mask::on_field_event(TOperable_field& f, TField_event e, long jolly)
{
return true;
}
/////////////////////////
// TFile_text
/////////////////////////
class TOmasa_file: public TFile_text
{
protected:
virtual void validate(TCursor& cur,TRecord_text &rec, TToken_string &val, TString& str);
public:
TOmasa_file(const TString& file_name);
virtual ~TOmasa_file() { }
};
TOmasa_file::TOmasa_file(const TString& file_name)
: TFile_text(file_name, "pd0777100a.ini")
{
}
void TOmasa_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TString& str)
{
const TString code(s.get(0));
TString valore = str;
if (code == "_UPPERCASE")
{
valore.upper();
}
else NFCHECK("Macro non definita: %s", (const char *)code);
str = valore;
}
// TSkeleton_application
class TOmasa : public TSkeleton_application
{
TOmasa_mask* _msk;
TOmasa_file* _trasfile;
TConfig* _configfile;
TRelation* _rel;
TCursor* _cur;
TProgind* _prog;
TEsercizi_contabili* _esc;
long _numreg;
virtual bool check_autorization() const {return false;}
virtual const char * extra_modules() const {return "cg";}
public:
virtual bool create();
virtual bool destroy();
virtual void main_loop();
virtual void ini2mask();
virtual void mask2ini();
bool transfer();
void negativo(TString& importo);
int strip_zero(TString& importo);
bool my_isdigit(unsigned char ch);
int look(unsigned char carattere);
TOmasa() {}
};
TOmasa& app() { return (TOmasa&) main_app(); }
bool TOmasa::create()
{
open_files(LF_TABCOM, LF_TAB, LF_SALDI, LF_PCON, LF_MOV, LF_RMOV, LF_RMOVIVA,
LF_PARTITE, LF_SCADENZE, LF_PAGSCA, 0);
TFilename configname = "pd0777conf.ini";
configname.custom_path();
_configfile = new TConfig(configname);
_msk = new TOmasa_mask();
_rel = new TRelation (LF_PCON);
_cur = new TCursor(_rel,"((GRUPPO!=\"\")&&(CONTO!=\"\")&&(SOTTOCONTO==\"\"))",1);
_esc = new TEsercizi_contabili;
return TSkeleton_application::create();
}
bool TOmasa::destroy()
{
delete _esc;
delete _cur;
delete _rel;
delete _msk;
delete _configfile;
return TApplication::destroy();
}
int TOmasa::strip_zero(TString& importo)
{
TString16 app;
int size = importo.len();
for (int i = 0; i < size; i++)
if (importo[i] != '0') break;
if (i > 0)
{
app = importo.mid(importo[i] == '.' ? i - 1 : i);
importo = app;
}
return (i ? i - 1 : i);
}
bool TOmasa::my_isdigit(unsigned char ch)
{
return (ch >= '0' && ch <= '9');
}
int TOmasa::look(unsigned char carattere)
{
for (int i = 0; i < 10; i++)
if (_tabella[i] == carattere)
return i;
return -1;
}
void TOmasa::negativo(TString& importo)
{
strip_zero(importo);
int size = importo.len();
if (!size) return;
unsigned char last = importo[size - 1];
if (!my_isdigit(last))
{
int new_last = look(last);
TString16 dep; dep << new_last;
if (new_last >= 0)
{
importo[size - 1] = dep[0];
importo.insert("-");
}
}
}
void TOmasa::mask2ini()
{
TSheet_field& sheet = (TSheet_field&)_msk->field(F_SHEET_CONTI);
for (int i=0;i<sheet.items();i++)
{
TToken_string& row = sheet.row(i);
TString16 contoomasa = row.get(0);
TString16 conto;
const int gr = atoi(row.get(1));
const int co = atoi(row.get(2));
const long so = atol(row.get(3));
conto.format("%d|%d|%ld", gr, co, so);
_configfile->set(contoomasa, conto, "CONTI");
}
TSheet_field& sheetcms = (TSheet_field&)_msk->field(F_SHEET_CMS);
for (i=0;i<sheetcms.items();i++)
{
TToken_string& row = sheetcms.row(i);
TString16 cmsomasa = row.get(0);
TString80 cms = row.get(1);
_configfile->set(cmsomasa, cms, "COMMESSE");
}
_configfile->set_paragraph("CONTI");
}
void TOmasa::ini2mask()
{
TString_array vl;
_configfile->list_variables(vl,TRUE, "CONTI", TRUE);
TSheet_field& sheet = (TSheet_field&)_msk->field(F_SHEET_CONTI);
sheet.destroy();
int i=0;
FOR_EACH_ARRAY_ROW(vl,r,s)
{
TToken_string& riga = sheet.row(i);
TString16 contoomasa = (*s).get();
TToken_string conto = _configfile->get(contoomasa, "CONTI");
riga.add(contoomasa);
riga.add(conto.get(0));
riga.add(conto.get(1));
riga.add(conto.get(2));
sheet.check_row(i);
i++;
}
_configfile->list_variables(vl,TRUE, "COMMESSE", TRUE);
TSheet_field& sheetcms = (TSheet_field&)_msk->field(F_SHEET_CMS);
sheetcms.destroy();
i=0;
FOR_EACH_ARRAY_ROW(vl,rc,sc)
{
TToken_string& riga = sheetcms.row(i);
TString16 cmsomasa = (*sc).get();
TString80 cms = (*sc).get();
riga.add(cmsomasa);
riga.add(cms);
sheetcms.check_row(i);
i++;
}
}
void TOmasa::main_loop()
{
KEY tasto;
_msk->set(F_PERCORSO, _configfile->get("PERCORSO", "MAIN"));
_msk->set(F_CODCAUS, _configfile->get("CODCAUS", "MOVIMENTO"));
ini2mask();
tasto = _msk->run();
if (tasto == K_ENTER)
{
mask2ini();
_numreg = 0;
if (transfer())
{
_configfile->set("PERCORSO", _msk->get(F_PERCORSO), "MAIN");
_configfile->set("CODCAUS", _msk->get(F_CODCAUS), "MOVIMENTO");
message_box(TR("Importazione stipendi completata"));
}
}
}
bool TOmasa::transfer()
{
TString_array transactions;
TFilename tempdir;
tempdir.tempdir();
TString80 listfiles = tempdir;
listfiles << "\\oo*.ini";
list_files(listfiles, transactions);
FOR_EACH_ARRAY_ROW(transactions, row, name)
remove(*name);
TConfig* movpn=NULL;
_trasfile = new TOmasa_file(_msk->get(F_PERCORSO));
_trasfile->open(_msk->get(F_PERCORSO),'r');
// creazione file temporanei per commessa e conto dare e avere
const long dimension = fsize(_msk->get(F_PERCORSO));
TProgind pi(dimension,"Importazione in corso...");
TRecord_text curr;
while (_trasfile->read(curr) == NOERR)
{
pi.setstatus(_trasfile->read_file()->tellg());
TString impstr = curr.get(F_VALOREVOCE);
impstr.insert(".",11);
negativo(impstr);
const real importo(impstr);
TString16 contodare = curr.get(F_CONTODARE);
TString16 contoavere = curr.get(F_CONTOAVERE);
if ((!real::is_null(impstr)) && (!contodare.blank() || !contoavere.blank()))
{
TString16 codcms = curr.get(F_CENTROCOSTO);
codcms.trim();
TString80 cms = _configfile->get(codcms, "COMMESSE");
if (cms.empty())
{
TMask mskcms("pd0777100c");
mskcms.set(F_CMSOMASA, codcms);
if (mskcms.run() == K_ENTER)
_configfile->set(codcms, mskcms.get(F_CODCMS), "COMMESSE");
else
return TRUE;
}
TFilename name;
name.tempdir();
name.add(format("oo%s", (const char*) codcms));
name.ext(".ini");
movpn = new TConfig(name);
movpn->set_paragraph("MAIN");
movpn->set("CODCMS",codcms);
if (!contodare.blank())
{
movpn->set_paragraph("IMPORTI");
contodare.trim();
impstr = movpn->get(contodare, "IMPORTI");
real importomem(impstr);
importomem+=importo;
movpn->set(contodare, importomem.string());
}
if (!contoavere.blank())
{
movpn->set_paragraph("IMPORTI");
contoavere.trim();
impstr = movpn->get(contoavere, "IMPORTI");
real importomem(impstr);
importomem-=importo;
movpn->set(contoavere, importomem.string());
}
delete movpn;
if (pi.iscancelled())
return TRUE;
}
}
_trasfile->close();
delete _trasfile;
// creazione .ini per la prima nota
const TDate datareg = _msk->get_date(F_DATAREG);
const int annoes = _esc->date2esc(datareg);
const TString8 codcaus = _msk->get(F_CODCAUS);
listfiles = tempdir;
listfiles << "\\oo*.ini";
list_files(listfiles, transactions);
FOR_EACH_ARRAY_ROW(transactions, row_oo, name_oo)
{
TConfig* movpn=NULL;
TConfig file_oo(*name_oo);
TString16 codcms = file_oo.get("CODCMS", "MAIN");
codcms.trim();
TFilename name;
name.tempdir();
name.add(format("ooo%s", (const char*) codcms));
name.ext(".ini");
movpn = new TConfig(name);
movpn->set_paragraph("Transaction");
movpn->set("Action","INSERT");
movpn->set("Mode","AUTO");
movpn->set_paragraph(format("%d",LF_MOV));
movpn->set("ANNOES", annoes);
movpn->set("DATACOMP", datareg);
movpn->set("DATAREG", datareg);
movpn->set("DESCR", cache().get(LF_CAUSALI, codcaus, CAU_DESCR));
movpn->set("CODCAUS", codcaus);
int numrig = 0;
TString_array vl;
file_oo.list_variables(vl,TRUE, "IMPORTI", TRUE);
FOR_EACH_ARRAY_ROW(vl,r,s)
{
TString16 contoomasa = (*s).get();
TString16 importos = (*s).get();
TToken_string conto = _configfile->get(contoomasa, "CONTI");
if (conto.empty())
{
TMask mskconto("pd0777100b");
mskconto.set(F_CONTOOMASA, contoomasa);
if (mskconto.run() == K_ENTER)
{
const int gr = mskconto.get_int(F_GRUPPO);
const int co = mskconto.get_int(F_CONTO);
const long so = mskconto.get_long(F_SOTTOCONTO);
conto.format("%d|%d|%ld", gr, co, so);
_configfile->set(contoomasa, conto, "CONTI");
}
else
return TRUE;
}
numrig++;
movpn->set_paragraph(format("%d,%d",LF_RMOV, numrig));
movpn->set("ANNOES", annoes);
movpn->set("DATAREG", datareg);
movpn->set("NUMRIG", numrig);
real importo(importos);
if (importo > 0)
movpn->set("SEZIONE", "D");
else
movpn->set("SEZIONE", "A");
importos.strip("-");
movpn->set("IMPORTO", importos);
TString16 contoindbil;
contoindbil.format("%s|%s", conto.get(0), conto.get(1));
const char indbil = cache().get(LF_PCON, contoindbil, PCN_INDBIL)[0];
if ((indbil != '1') && (indbil != '2'))
movpn->set("CODCMS", _configfile->get(codcms, "COMMESSE"));
movpn->set("GRUPPO", conto.get(0));
movpn->set("CONTO", conto.get(1));
movpn->set("SOTTOCONTO", conto.get(2));
}
delete movpn;
}
tempdir.tempdir();
TString80 applicat = "cg2.exe -0 -i";
applicat << tempdir;
applicat << "\\ooo*.ini";
TExternal_app primanota(applicat);
primanota.run();
listfiles = tempdir;
listfiles << "\\oo*.ini";
list_files(listfiles, transactions);
FOR_EACH_ARRAY_ROW(transactions, rowf, namef)
remove(*namef);
return TRUE;
}
int pd0777100 (int argc, char* argv[])
{
TOmasa main_app;
main_app.run(argc, argv, TR("Importazione stipendi"));
return TRUE;
}

40
ps/pd0777100a.h Executable file
View File

@ -0,0 +1,40 @@
// campi della maschera principale pd0777100a.uml
#define F_PERCORSO 101
#define F_DATAREG 102
#define F_CODCAUS 103
#define F_DESCR 104
#define F_SHEET_CONTI 105
#define F_SHEET_CMS 106
// campi della maschera di conversione conti
#define F_S_CONTOOMASA 101
#define F_S_GRUPPO 102
#define F_S_CONTO 103
#define F_S_SOTTOCONTO 104
#define F_S_DESCRIZIONE 105
// campi della maschera di conversione commesse
#define F_S_CMSOMASA 101
#define F_S_CODCMS 102
#define F_S_DESCRCMS 103
// campi del tracciato record
#define F_CODAZIENDA 0
#define F_CODDIP 1
#define F_VOCE 2
#define F_TIPOVOCE 3
#define F_QUOTAVOCE 4
#define F_VALOREVOCE 5
#define F_IMPORTO 6
#define F_CONTODARE 7
#define F_CONTOAVERE 8
#define F_CENTROCOSTO 9
#define F_SEDELAVORO 10
#define F_SEDEINPS 11
#define F_QUALIFICA 12
#define F_POSINAIL 13
#define F_VARIABILE 14
#define F_CONTRATTO 15
#define F_FILLER 16

188
ps/pd0777100a.uml Executable file
View File

@ -0,0 +1,188 @@
#include "pd0777100a.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
PAGE "Importazione stipendi" 0 -1 0 19
STRING F_PERCORSO 50
BEGIN
PROMPT 2 2 "File da trasferire "
CHECKTYPE REQUIRED
VALIDATE FILENAME_FUNC
FLAGS "A"
HELP "Percorso e nome file da trasferire"
WARNING "E' necessario specificare il nome del file da trasferire"
END
DATE F_DATAREG
BEGIN
PROMPT 2 3 "Data registrazione "
CHECKTYPE REQUIRED
HELP "Data di registrazione dei movimenti contabili"
WARNING "E' necessario specificare la data di registrazione"
END
STRING F_CODCAUS 4
BEGIN
PROMPT 2 4 "Causale "
FLAGS "UZ"
USE LF_CAUSALI
INPUT CODCAUS F_CODCAUS
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@60" DESCR
OUTPUT F_CODCAUS CODCAUS
OUTPUT F_DESCR DESCR
CHECKTYPE SEARCH
END
STRING F_DESCR 50
BEGIN
PROMPT 17 4 ""
USE LF_CAUSALI KEY 2
INPUT DESCR F_DESCR
DISPLAY "Descrizione@60" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT F_CODCAUS
CHECKTYPE SEARCH
END
SPREADSHEET F_SHEET_CONTI 70 6
BEGIN
PROMPT 2 6 "Tabella conversione conti"
ITEM "Conto OMASA"
ITEM "Gruppo"
ITEM "Conto"
ITEM "Sottoc."
ITEM "Descrizione"
END
SPREADSHEET F_SHEET_CMS 70 6
BEGIN
PROMPT 2 14 "Tabella conversione commesse"
ITEM "Cms OMASA"
ITEM "Corrispondente"
ITEM "Descrizione"
END
ENDPAGE
ENDMASK
PAGE "Conversione conti" 0 -1 0 10
STRING F_S_CONTOOMASA 14
BEGIN
PROMPT 2 2 "Conto OMASA "
FLAGS "D"
END
NUMBER F_S_GRUPPO 3
BEGIN
PROMPT 2 4 "Conto corrispon."
USE LF_PCON KEY 1 SELECT (CONTO="")
INPUT GRUPPO F_S_GRUPPO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_S_GRUPPO GRUPPO
CHECKTYPE NORMAL
END
NUMBER F_S_CONTO 3
BEGIN
PROMPT 24 4 ""
USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
INPUT GRUPPO F_S_GRUPPO
INPUT CONTO F_S_CONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_S_CONTO CONTO
OUTPUT F_S_GRUPPO GRUPPO
CHECKTYPE NORMAL
END
NUMBER F_S_SOTTOCONTO 6
BEGIN
PROMPT 30 4 ""
USE LF_PCON
INPUT GRUPPO F_S_GRUPPO
INPUT CONTO F_S_CONTO
INPUT SOTTOCONTO F_S_SOTTOCONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_S_SOTTOCONTO SOTTOCONTO
OUTPUT F_S_GRUPPO GRUPPO
OUTPUT F_S_CONTO CONTO
OUTPUT F_S_DESCRIZIONE DESCR
CHECKTYPE NORMAL
END
STRING F_S_DESCRIZIONE 50
BEGIN
PROMPT 39 4 ""
USE LF_PCON KEY 2
INPUT DESCR F_S_DESCRIZIONE
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
OUTPUT F_S_SOTTOCONTO SOTTOCONTO
OUTPUT F_S_CONTO CONTO
OUTPUT F_S_GRUPPO GRUPPO
OUTPUT F_S_DESCRIZIONE DESCR
CHECKTYPE NORMAL
END
ENDPAGE
ENDMASK
PAGE "Conversione commesse" 0 -1 0 10
STRING F_S_CMSOMASA 14
BEGIN
PROMPT 2 2 "Commessa OMASA "
FLAGS "D"
END
STRING F_S_CODCMS 20
BEGIN
PROMPT 2 4 "Commessa corrispondente "
FLAGS "UZ"
USE CMS
INPUT CODTAB F_S_CODCMS
DISPLAY "Codice@20" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_S_CODCMS CODTAB
OUTPUT F_S_DESCRCMS S0
CHECKTYPE NORMAL
END
STRING F_S_DESCRCMS 50
BEGIN
PROMPT 39 4 ""
USE CMS KEY 2
INPUT S0 F_S_DESCRCMS
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@20" CODTAB
COPY OUTPUT F_S_CODCMS
CHECKTYPE NORMAL
END
ENDPAGE
ENDMASK

7
ps/pd0777100b.h Executable file
View File

@ -0,0 +1,7 @@
// campi della maschera pd0777100b.uml
#define F_CONTOOMASA 101
#define F_GRUPPO 102
#define F_CONTO 103
#define F_SOTTOCONTO 104
#define F_DESCRIZIONE 105

87
ps/pd0777100b.uml Executable file
View File

@ -0,0 +1,87 @@
#include "pd0777100b.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
PAGE "Conversione conti" 0 -1 0 10
STRING F_CONTOOMASA 14
BEGIN
PROMPT 2 2 "Conto OMASA "
FLAGS "D"
END
NUMBER F_GRUPPO 3
BEGIN
PROMPT 2 4 "Conto corrispondente "
USE LF_PCON KEY 1 SELECT (CONTO="")
INPUT GRUPPO F_GRUPPO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO
CHECKTYPE NORMAL
END
NUMBER F_CONTO 3
BEGIN
PROMPT 29 4 ""
USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CONTO CONTO
OUTPUT F_GRUPPO GRUPPO
CHECKTYPE NORMAL
END
NUMBER F_SOTTOCONTO 6
BEGIN
PROMPT 35 4 ""
USE LF_PCON
INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO
INPUT SOTTOCONTO F_SOTTOCONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_DESCRIZIONE DESCR
CHECKTYPE NORMAL
END
STRING F_DESCRIZIONE 50
BEGIN
PROMPT 44 4 ""
USE LF_PCON KEY 2
INPUT DESCR F_DESCRIZIONE
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_CONTO CONTO
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_DESCRIZIONE DESCR
CHECKTYPE NORMAL
END
ENDPAGE
ENDMASK

5
ps/pd0777100c.h Executable file
View File

@ -0,0 +1,5 @@
// campi della maschera pd0777100c.uml
#define F_CMSOMASA 101
#define F_CODCMS 102
#define F_DESCRCMS 103

52
ps/pd0777100c.uml Executable file
View File

@ -0,0 +1,52 @@
#include "pd0777100c.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
PAGE "Conversione commesse" 0 -1 0 10
STRING F_CMSOMASA 14
BEGIN
PROMPT 2 2 "Commessa OMASA "
FLAGS "D"
END
STRING F_CODCMS 20
BEGIN
PROMPT 2 4 "Commessa corrispondente "
FLAGS "UZ"
USE CMS
INPUT CODTAB F_CODCMS
DISPLAY "Codice@20" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODCMS CODTAB
OUTPUT F_DESCRCMS S0
CHECKTYPE NORMAL
END
STRING F_DESCRCMS 50
BEGIN
PROMPT 2 5 "Descrizione "
USE CMS KEY 2
INPUT S0 F_DESCRCMS
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@20" CODTAB
COPY OUTPUT F_CODCMS
CHECKTYPE NORMAL
END
ENDPAGE
ENDMASK

99
ps/pd0777conf.ini Executable file
View File

@ -0,0 +1,99 @@
[CONTI]
105010 = 1|5|105010
420020 = 4|20|420020
421000 = 4|21|421000
421100 = 4|21|421100
422010 = 4|22|422010
422020 = 4|22|422020
422090 = 4|22|422090
423010 = 4|23|423010
423030 = 4|23|423030
423040 = 4|23|423040
423050 = 4|23|423050
423060 = 4|23|423060
423070 = 4|23|423070
423090 = 4|23|423090
423100 = 4|23|423100
424100 = 4|24|424100
424110 = 4|24|424110
424120 = 4|24|424120
424130 = 4|24|424130
424150 = 4|24|424150
426000 = 4|24|426000
430500 = 4|30|430500
442060 = 4|42|442060
442070 = 4|42|442070
470000 = 4|70|470000
471010 = 4|71|471010
499000 = 4|99|499000
601100 = 6|2|601100
601110 = 6|2|601110
601120 = 6|2|601120
601150 = 6|2|601150
601330 = 6|2|601330
601340 = 6|2|601340
601350 = 6|2|601350
601375 = 6|2|601375
601385 = 6|2|601385
602740 = 6|3|602740
603430 = 6|3|603430
608030 = 6|8|608030
608040 = 6|8|608040
805000 = 8|5|805000
[MAIN]
PERCORSO = c:\MEDISTIPENDI\medicasa102006
[MOVIMENTO]
CODCAUS = STI
[COMMESSE]
1SUA = RO
1SW = TR
1SYA = TE
1SZ = MI
1SZA = VA
1SZB = UD
1SZC = AS
1SZD = VE
1SZE = CTA
1SZF = CZO
1SZI = NA
1SZM = SA
1SZO = PD
1SZU = PA
2SUA = RO
2SW = TR
2SYA = TE
2SZ = MI
2SZA = VA
2SZB = UD
2SZC = AS
2SZD = VE
2SZE = CTA
2SZF = CZO
2SZI = NA
2SZL = ME
2SZM = SA
2SZN = PE
2SZU = PA
3SLD = SE
3SUA = RO
3SY = SE
3SZ = MI
3SZE = CTA
4SUA = RO
4SW = TR
4SY = SE
4SYA = TE
4SZ = MI
4SZA = VA
4SZB = UD
4SZC = AS
4SZD = VE
4SZE = CTA
4SZF = CZO
4SZI = NA
4SZM = SA
4SZO = PD

86
ps/ps0544200.cpp
View File

@ -59,7 +59,7 @@ class TServus : public TSkeleton_application
long _nrecords;
int _cont11, _cont12, _cont13;
TRiga_documento* _riga_doc_curr;
real _tot_prezzinetti, _tot_tempi, _tot_manodopera, _tot_vari ;
real _tot_mate, _tot_temp, _tot_mano, _tot_vari ;
virtual const char * extra_modules() const {return "ve";}
@ -68,7 +68,7 @@ protected:
virtual bool destroy(void);
virtual void main_loop() ;
void azzera_totali() ;
void aggiorna_totali(const real& prezzonetto, const real& tempi, const real& manodopera, const real& vari);
void aggiorna_totali(const real& materiale, const real& tempi, const real& manodopera, const real& vari);
void elabora_documenti();
static int calcola_tipo(const TRiga_documento& r);
@ -79,6 +79,10 @@ public:
const int nriga11() { return _cont11;};
const int nriga12() { return _cont12;};
const int nriga13() { return _cont13;};
const real& tot_temp() { return _tot_temp;};
const real& tot_mano() { return _tot_mano;};
const real& tot_vari() { return _tot_vari;};
const real& tot_mate() { return _tot_mate;};
const TRiga_documento& riga_doc_curr() { return *_riga_doc_curr;};
TConfig configfile() {return *_configfile;};
TServus() {} ;
@ -126,14 +130,20 @@ void TServus_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TS
TString in(s.get());
if (in == "IMPORTO")
{
real importo = app().riga_doc_curr().importo(TRUE, TRUE);
real importo = app().riga_doc_curr().importo(TRUE, FALSE);
valore = importo.string();
valore.strip(".");
}
else if (in == "PREZZO")
{
real importo = app().riga_doc_curr().prezzo(TRUE, TRUE);
valore = importo.string();
real importo = app().riga_doc_curr().prezzo(TRUE, FALSE);
valore = importo.string(0,2);
valore.strip(".");
}
else if (in == "QTA")
{
real qta = app().riga_doc_curr().quantita();
valore = qta.string(0,2);
valore.strip(".");
}
}
@ -200,6 +210,23 @@ void TServus_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TS
else if (in == "13")
valore.format("%ld", app().nriga13());
}
else if (code == "_TOTALE")
{
real totale;
TString in(s.get());
if (in == "TEMP")
totale = app().tot_temp();
else if (in == "MATE")
totale = app().tot_mate();
else if (in == "MANO")
totale = app().tot_mano();
else if (in == "VARI")
totale = app().tot_vari();
else if (in == "SOMM")
totale = app().tot_mano()+app().tot_mate();
valore = totale.string(0,2);
valore.strip(".");
}
else NFCHECK("Macro non definita: %s", (const char *)code);
str = valore;
@ -227,18 +254,18 @@ bool TServus::destroy()
void TServus::azzera_totali()
{
_tot_prezzinetti = ZERO;
_tot_tempi = ZERO;
_tot_manodopera = ZERO;
_tot_vari = ZERO;
_tot_mate = ZERO;
_tot_temp = ZERO;
_tot_mano = ZERO;
_tot_vari = ZERO;
}
void TServus::aggiorna_totali(const real& prezzonetto, const real& tempi, const real& manodopera, const real& vari)
void TServus::aggiorna_totali(const real& materiale, const real& tempi, const real& manodopera, const real& vari)
{
_tot_prezzinetti = _tot_prezzinetti+prezzonetto;
_tot_tempi = _tot_tempi+tempi;
_tot_manodopera = _tot_manodopera+manodopera;
_tot_mate = _tot_mate+materiale;
_tot_temp = _tot_temp+tempi;
_tot_mano = _tot_mano+manodopera;
_tot_vari = _tot_vari+vari;
}
@ -349,8 +376,7 @@ void TServus::elabora_documenti()
_trasfile->write(rec);
TDocumento documento = doc_rel.curr();
documento.body(LF_RIGHEDOC).sort(righe_sort);
_cont11 = _cont12 = _cont13 = 0;
_cont11 = _cont12 = _cont13 = 0;
for (int i=1;i<=documento.rows();i++)
{
const TRiga_documento& rec_rdoc = documento[i];
@ -359,19 +385,37 @@ void TServus::elabora_documenti()
if (tipo_record >= 11 && tipo_record <= 13)
{
doc_rel.curr(LF_RIGHEDOC) = rec_rdoc;
switch (tipo_record)
{
case 11:
rec.set_type("11");
_cont11++;
{
rec.set_type("11");
_cont11++;
//real ore = rec_rdoc.get_real(RDOC_QTA);
//real importo = rec_rdoc.get_real(RDOC_PREZZO);
real importo = rec_rdoc.prezzo(TRUE, FALSE);
real ore = rec_rdoc.quantita();
aggiorna_totali(ZERO, ore, importo, ZERO);
}
break;
case 12:
rec.set_type("12");
_cont12++;
{
rec.set_type("12");
_cont12++;
//real importo = rec_rdoc.get_real(RDOC_PREZZO);
real importo = rec_rdoc.prezzo(TRUE, FALSE);
aggiorna_totali(importo, ZERO, ZERO, ZERO);
}
break;
case 13:
rec.set_type("13");
_cont13++;
{
rec.set_type("13");
_cont13++;
//real importo = rec_rdoc.get_real(RDOC_PREZZO);
real importo = rec_rdoc.prezzo(TRUE, FALSE);
aggiorna_totali(ZERO, ZERO, ZERO, importo);
}
break;
default:
break;

39
ps/ps0544200.ini
View File

@ -45,8 +45,7 @@ ALIGN = R
DATA = S
DECIMAL = 0
FILLER = '0'
LENGTH = 0
PICTURE =
LENGTH = 8
[HEADER OP]
NAME(0)=IDENTIFICATIVO TESTA
@ -131,6 +130,7 @@ NAME(7) = TIPO VEICOLO
TYPE(7) = STRINGA
LENGTH(7) = 12
POSITION(7) = 57
FIELD(7) = 33->TIPO
NAME(8) = ACQUISTO
TYPE(8) = STRINGA
@ -153,6 +153,7 @@ NAME(11) = SECONDO TIPO VEICOLO
TYPE(11) = STRINGA
LENGTH(11) = 2
POSITION(11) = 77
FIELD(11) = 33->LIBCOL
NAME(12) = RICHIESTA INOLTRATA DA
TYPE(12) = STRINGA
@ -238,11 +239,11 @@ LENGTH(4) = 13
POSITION(4) = 15
FIELD(4) = 33->TELAIO[4,16]
NAME(26) = SUFFISSO PZ
NAME(26) = SECONDA PARTE TELAIO
TYPE(26) = STRINGA
LENGTH(26) = 2
POSITION(26) = 28
MESSAGE(26) = _FISSO,!PZ
FIELD(26) = 33->TELAIO[17,19]
NAME(5) = GIORNO IMMATRICOLAZIONE
TYPE(5) = NUMERO
@ -404,9 +405,10 @@ FIELD(20) = 34->CODART
NAME(5) = ORE LAVORO
TYPE(5) = STRINGA
LENGTH(5) = 5
POSITION(5) = 30
LENGTH(5) = 4
POSITION(5) = 27
FIELD(5) = 34->QTA
MESSAGE(5) = _DARIGA,QTA
NAME(6) = TESTO LAVORO
TYPE(6) = STRINGA
@ -452,11 +454,13 @@ NAME(13) = INDICATORE CORRENTEZZA
TYPE(13) = STRINGA
LENGTH(13) = 1
POSITION(13) = 88
FIELD(13) = 34->CODAGG1[1,1]
NAME(14) = RICONOSCIMENTO PAGAMENTO
TYPE(14) = STRINGA
LENGTH(14) = 1
POSITION(14) = 89
MESSAGE(14) = _FISSO,!1
NAME(15) = IDENTIFICATORE
TYPE(15) = STRINGA
@ -472,7 +476,6 @@ NAME(17) = IMPORTO ORA LAVORO
TYPE(17) = IMPORTO
LENGTH(17) = 6
POSITION(17) = 93
//FIELD(17) = 34->PREZZO
MESSAGE(17) = _DARIGA,PREZZO
NAME(18) = PREZZO
@ -543,14 +546,14 @@ NAME(9) = PREZZO VENDITA
TYPE(9) = IMPORTO
LENGTH(9) = 8
POSITION(9) = 45
FIELD(9) = 34->PREZZO
MESSAGE(9) = _IMPORTO
//FIELD(9) = 34->PREZZO
MESSAGE(9) = _DARIGA,PREZZO
NAME(10) = IMPORTO AL NETTO
TYPE(10) = IMPORTO
TYPE(10) = STRINGA
LENGTH(10) = 1
POSITION(10) = 53
MESSAGE(10) = _IMPORTO
NAME(11) = FILLER
TYPE(11) = STRINGA
@ -589,12 +592,13 @@ NAME(16) = INDICATORE CORRENTEZZA
TYPE(16) = STRINGA
LENGTH(16) = 1
POSITION(16) = 88
MESSAGE(16) = _FISSO,!V
FIELD(16) = 34->CODAGG1[1,1]
NAME(17) = RICONOSCIMENTO ASSEGNAZIONI PARTICOLARI
TYPE(17) = STRINGA
LENGTH(17) = 1
POSITION(17) = 89
MESSAGE(17) = _FISSO,!1
NAME(18) = RICONOSCIMENTO POSIZIONI PARTICOLARI
TYPE(18) = STRINGA
@ -645,8 +649,8 @@ NAME(5) = SPESE FATTURA ESTERNA
TYPE(5) = IMPORTO
LENGTH(5) = 8
POSITION(5) = 18
FIELD(5) = 34->PREZZO
MESSAGE(5) = _IMPORTO
//FIELD(5) = 34->PREZZO
MESSAGE(5) = _DARIGA,PREZZO
NAME(6) = VARIE
TYPE(6) = STRINGA
@ -675,7 +679,7 @@ NAME(10) = INDICATORE CORRENTEZZA
TYPE(10) = STRINGA
LENGTH(10) = 1
POSITION(10) = 88
MESSAGE(10) = _FISSO,!V
FIELD(10) = 34->CODAGG1[1,1]
NAME(11) = RICONOSCIMENTO ASSEGNAZIONI PARTICOLARI
TYPE(11) = STRINGA
@ -726,6 +730,7 @@ NAME(4) = SOMMA MATERIALE
TYPE(4) = IMPORTO
LENGTH(4) = 8
POSITION(4) = 15
MESSAGE(4) = _TOTALE,MATE
NAME(5) = SOMMA PERSONALE
TYPE(5) = NUMERO
@ -736,21 +741,25 @@ NAME(6) = SOMMA TEMPI
TYPE(6) = NUMERO
LENGTH(6) = 4
POSITION(6) = 28
MESSAGE(6) = _TOTALE,TEMP
NAME(7) = SOMMA MANODOPERA
TYPE(7) = NUMERO
LENGTH(7) = 8
POSITION(7) = 32
MESSAGE(7) = _TOTALE,MANO
NAME(8) = SOMMA VARI
TYPE(8) = NUMERO
LENGTH(8) = 8
POSITION(8) = 40
MESSAGE(8) = _TOTALE,VARI
NAME(9) = SOMMA MATERIALE+MANODOPERA
TYPE(9) = NUMERO
LENGTH(9) = 8
POSITION(9) = 48
MESSAGE(9) = _TOTALE,SOMM
NAME(10) = ALLEGATI
TYPE(10) = STRINGA

653
sc/sc2100.cpp
View File

File diff suppressed because it is too large Load Diff

11
sc/sc2100a.uml
View File

@ -5,13 +5,20 @@ TOOLBAR "Toobar" 0 -3 0 3
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -11 ""
PROMPT -13 -11 ""
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_EDIT 10 2
BEGIN
PROMPT -23 -11 ""
PICTURE BMP_EDIT
MESSAGE EXIT,69
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -11 ""
PROMPT -33 -11 ""
END
ENDPAGE

Some files were not shown because too many files have changed in this diff Show More