Patch level : 10.0 396
Files correlati : tc1.exe Ricompilazione Demo : [ ] Commento Aggiornamenti all invio a zucchetti (nuove tabelle) git-svn-id: svn://10.65.10.50/trunk@19155 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
6cd4a967da
commit
256ef4829c
@ -1,3 +1,3 @@
|
||||
159
|
||||
0
|
||||
$riclpdc|0|0|123|0|Riclassificazioni piano dei conti|||
|
||||
$riclpdc|2|2|123|0|Riclassificazioni piano dei conti|||
|
||||
|
@ -7,6 +7,6 @@ SOTTOCONTO|3|6|0|Sottoconto
|
||||
CODICE|1|50|0|Codice elemento (comprensivo dell' eventuale codice tabella)
|
||||
DESCRIZ|1|50|0|Descrizione
|
||||
3
|
||||
TIPORIC+CODICE+GRUPPO+CONTO+SOTTOCONTO|
|
||||
TIPORIC+GRUPPO+CONTO+SOTTOCONTO|
|
||||
TIPORIC+DESCRIZ|X
|
||||
TIPORIC+GRUPPO+CONTO+SOTTOCONTO|X
|
||||
TIPORIC+CODICE+GRUPPO+CONTO+SOTTOCONTO|X
|
||||
|
@ -1437,7 +1437,7 @@ void TTS_sender::set_parameters()
|
||||
bool TTS_sender::create()
|
||||
{
|
||||
_tabelle = new TRiclassifica_cache;
|
||||
_conti = new TRecord_cache(LF_RICLPDC, 3);
|
||||
_conti = new TRecord_cache(LF_RICLPDC, 1);
|
||||
set_parameters();
|
||||
return TSkeleton_application::create();
|
||||
}
|
||||
|
@ -7,8 +7,10 @@ int main(int argc, char** argv)
|
||||
const int op = argc < 2 ? 0 : argv[1][1]-'0';
|
||||
switch (op)
|
||||
{
|
||||
case 7: tc1800(argc,argv); break; //riclassificazione conti zucchetti
|
||||
case 0: tc1100(argc,argv); break; //trasferimento zucchetti
|
||||
case 7: tc1800(argc,argv); break; // riclassificazione conti zucchetti
|
||||
case 6: tc1700(argc,argv); break; // riclassificazione tabelle
|
||||
case 1: tc1200(argc,argv); break; // Tabelle
|
||||
case 0: tc1100(argc,argv); break; // trasferimento zucchetti
|
||||
default: tc1100(argc,argv); break;
|
||||
}
|
||||
exit(0);
|
||||
|
2
tc/tc1.h
2
tc/tc1.h
@ -2,6 +2,8 @@
|
||||
#define __TC1_H
|
||||
|
||||
int tc1100(int argc, char** argv);
|
||||
int tc1200(int argc, char** argv);
|
||||
int tc1700(int argc, char** argv);
|
||||
int tc1800(int argc, char** argv);
|
||||
|
||||
#endif // __TC1_H
|
||||
|
129
tc/tc1100.cpp
129
tc/tc1100.cpp
@ -15,10 +15,58 @@
|
||||
#include <mov.h>
|
||||
#include <rmov.h>
|
||||
#include <rmoviva.h>
|
||||
#include <multirel.h>
|
||||
|
||||
#define ALIAS_REG 100
|
||||
// restituisce un riferimento all' applicazione
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TRiclassifica_cache
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TRiclassifica_cache : public TCache
|
||||
{
|
||||
TLocalisamfile _multirel;
|
||||
protected:
|
||||
virtual TObject* key2obj(const char* key);
|
||||
public:
|
||||
const char * sdecode(const char* tab, const TString& cod);
|
||||
long decode(const char* tab, const TString& cod);
|
||||
TRiclassifica_cache() : _multirel(LF_MULTIREL) {}
|
||||
};
|
||||
|
||||
TObject* TRiclassifica_cache::key2obj(const char* key)
|
||||
{
|
||||
TToken_string tok(key);
|
||||
TString8 tab, cod;
|
||||
tok.get(0,tab);
|
||||
tok.get(1, cod);
|
||||
_multirel.put(MULTI_COD, tab);
|
||||
_multirel.put(MULTI_FIRST, cod);
|
||||
int err = _multirel.read(_isgteq);
|
||||
if (err == NOERR && _multirel.get(MULTI_FIRST) == cod)
|
||||
return new TString(_multirel.get(MULTI_SECOND));
|
||||
return NULL;
|
||||
}
|
||||
|
||||
long TRiclassifica_cache::decode(const char* tab, const TString& cod)
|
||||
{
|
||||
TToken_string tok;
|
||||
tok.add(tab);
|
||||
tok.add(cod);
|
||||
const TString* ric = (const TString*) objptr(tok);
|
||||
return (ric ? atol(*ric) : 0);
|
||||
}
|
||||
|
||||
const char * TRiclassifica_cache::sdecode(const char* tab, const TString& cod)
|
||||
{
|
||||
TToken_string tok;
|
||||
tok.add(tab);
|
||||
tok.add(cod);
|
||||
const TString* ric = (const TString*) objptr(tok);
|
||||
return ric ? (const char *) *ric : "";
|
||||
}
|
||||
|
||||
class TInvio;
|
||||
|
||||
inline TInvio& app() { return (TInvio&) main_app();}
|
||||
@ -78,6 +126,7 @@ class TInvio : public TSkeleton_application
|
||||
TInvio_mask* _msk;
|
||||
TInvio_file* _trasfile;
|
||||
TLog_report * _log;
|
||||
TRiclassifica_cache * _tabelle;
|
||||
TRecord_cache* _conti;
|
||||
long _nrecords, _nrecsfattvend, _nrecsfattacqu, _nrecsmocontab;
|
||||
int _nfiles;
|
||||
@ -101,13 +150,14 @@ protected:
|
||||
void i_zucchetti_testa();
|
||||
void i_zucchetti_coda();
|
||||
public:
|
||||
int get_nfiles() {return _nfiles;};
|
||||
long get_nrecords() {return _nrecords;};
|
||||
long get_nrecsdettaglio() {return _nrecsdettaglio;};
|
||||
TString16& get_descrdettaglio() {return _descrdettaglio;};
|
||||
const bool totale() {return _totale;};
|
||||
const bool finemov() {return _finemov;};
|
||||
TRecord_cache& conti() {return *_conti;};
|
||||
int get_nfiles() {return _nfiles;}
|
||||
long get_nrecords() {return _nrecords;}
|
||||
long get_nrecsdettaglio() {return _nrecsdettaglio;}
|
||||
TString16& get_descrdettaglio() {return _descrdettaglio;}
|
||||
const bool totale() {return _totale;}
|
||||
const bool finemov() {return _finemov;}
|
||||
TRecord_cache& conti() {return *_conti;}
|
||||
TRiclassifica_cache & tabelle() { return * _tabelle;}
|
||||
void log(int sev, const char* msg);
|
||||
|
||||
TInvio() {} ;
|
||||
@ -138,17 +188,21 @@ const TString& TInvio_file::bill2ricl(const char t, int gr, int co, long so)
|
||||
{
|
||||
if (t <= ' ')
|
||||
{
|
||||
TToken_string cod("ZCCONTI");
|
||||
|
||||
TToken_string cod("ZUCONTI");
|
||||
cod.add(gr);
|
||||
cod.add(co);
|
||||
cod.add(so);
|
||||
codricl = app().conti().get(cod, "CODICE");
|
||||
if (codricl.empty())
|
||||
|
||||
// Provo il sottoconto ma se non riesco provo con conto e poi anche gruppo
|
||||
for (int c = 3; c > 0 && codricl <= 0; c--)
|
||||
{
|
||||
codricl = atol(app().conti().get(cod, "CODICE"));
|
||||
cod.add(0, c);
|
||||
}
|
||||
if (codricl <= 0)
|
||||
{
|
||||
TString msg;
|
||||
msg << TR("Conto") << " " << gr << " " << co << " " << so << " :" << TR("Non presente in tabella");
|
||||
|
||||
app().log(2, msg);
|
||||
}
|
||||
}
|
||||
@ -205,15 +259,33 @@ void TInvio_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TSt
|
||||
}
|
||||
else if (code == "_CAUSALE")
|
||||
{
|
||||
TFilename configname = "tc1100conf.ini";
|
||||
TConfig configfile(configname);
|
||||
TToken_string causali = configfile.get("STANDARD", "CAUSALI");
|
||||
const char sezione = cur.curr(LF_RMOV).get_char(RMV_SEZIONE);
|
||||
if (sezione == 'D')
|
||||
valore = causali.get(0);
|
||||
else
|
||||
valore = causali.get(1);
|
||||
valore = app().tabelle().sdecode("ZUCAU", str);
|
||||
if (valore.blank())
|
||||
valore = str;
|
||||
}
|
||||
else if (code == "_IVA" || code == "_NORMA")
|
||||
{
|
||||
valore = app().tabelle().sdecode("ZUIVA", str);
|
||||
if (code == "_NORMA")
|
||||
{
|
||||
valore = cache().get("&ZIV", str, "S7");
|
||||
if (valore.blank())
|
||||
valore = str.mid(2);
|
||||
}
|
||||
else
|
||||
if (valore.blank())
|
||||
valore = str.left(2);
|
||||
}
|
||||
else if (code == "_BANCA")
|
||||
{
|
||||
valore = app().tabelle().sdecode("ZUBAN", str);
|
||||
if (valore.blank())
|
||||
{
|
||||
valore = str.mid(2, 3);
|
||||
valore << str.mid(7, 3);
|
||||
}
|
||||
|
||||
}
|
||||
else if (code == "_NUMFILES")
|
||||
{
|
||||
const int nfiles = app().get_nfiles();
|
||||
@ -328,6 +400,11 @@ void TInvio_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TSt
|
||||
{
|
||||
const int ln = s.get_int();
|
||||
const TRectype & rec = cur.curr(ln);
|
||||
char t = ' ';
|
||||
const TString& tiponame = s.get();
|
||||
|
||||
if (s.full())
|
||||
t = rec.get_char(tiponame);
|
||||
|
||||
if (ln == LF_CLIFO)
|
||||
{
|
||||
@ -335,7 +412,7 @@ void TInvio_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TSt
|
||||
const int co = rec.get_int(CLI_CONTORIC);
|
||||
const long so = rec.get_int(CLI_SOTTOCRIC);
|
||||
|
||||
valore = bill2ricl(' ', gr, co, so);
|
||||
valore = bill2ricl(t, gr, co, so);
|
||||
}
|
||||
else
|
||||
{
|
||||
@ -343,7 +420,7 @@ void TInvio_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TSt
|
||||
const int co = rec.get_int("CONTO");
|
||||
const long so = rec.get_int("SOTTOCONTO");
|
||||
|
||||
valore = bill2ricl(' ', gr, co, so);
|
||||
valore = bill2ricl(t, gr, co, so);
|
||||
}
|
||||
|
||||
}
|
||||
@ -552,13 +629,13 @@ long TInvio::i_zucchetti_moviva(const char acqven, const bool invio)
|
||||
TRelation rel(LF_MOV);
|
||||
rel.add(LF_RMOVIVA, "NUMREG==NUMREG", 1);
|
||||
rel.add("REG", "CODTAB[1,4]==ANNOIVA|CODTAB[5,7]==REG", 1);
|
||||
TString filtro = "(23->PROTIVA != \"\") && ";
|
||||
TString filtro = "(23->PROTIVA != \"\")&&";
|
||||
if (acqven == 'V')
|
||||
filtro << "(REG->I0 == 1)";
|
||||
else
|
||||
filtro << "(REG->I0 == 2)";
|
||||
TCursor cur(&rel, "", 2, &da, &a);
|
||||
cur.setfilter(filtro, TRUE);
|
||||
cur.setfilter(filtro, true);
|
||||
const long cur_items = cur.items();
|
||||
long totrec = 0;
|
||||
if (cur_items != 0)
|
||||
@ -686,9 +763,10 @@ void TInvio::invio_zucchetti()
|
||||
|
||||
bool TInvio::create()
|
||||
{
|
||||
_tabelle = new TRiclassifica_cache;
|
||||
_msk = new TInvio_mask();
|
||||
_trasfile = NULL;
|
||||
_conti = new TRecord_cache(LF_RICLPDC, 3);
|
||||
_conti = new TRecord_cache(LF_RICLPDC, 1);
|
||||
return TSkeleton_application::create();
|
||||
}
|
||||
|
||||
@ -698,6 +776,7 @@ bool TInvio::destroy()
|
||||
delete _trasfile;
|
||||
delete _msk;
|
||||
delete _conti;
|
||||
delete _tabelle;
|
||||
return TSkeleton_application::destroy();
|
||||
}
|
||||
|
||||
|
@ -329,7 +329,8 @@ NAME(2) = SOTTOCONTO
|
||||
TYPE(2) = NUMERO
|
||||
POSITION(2) = 3
|
||||
LENGTH(2) = 6
|
||||
FIELD(2)=19->SOTTOCONTO
|
||||
//FIELD(2)=19->SOTTOCONTO
|
||||
MESSAGE(2)=_CONTO
|
||||
|
||||
NAME(3) = DESCRIZIONE
|
||||
TYPE(3) = STRINGA
|
||||
@ -627,7 +628,8 @@ NAME(2) = CODICE IVA
|
||||
TYPE(2) = STRINGA
|
||||
POSITION(2) = 3
|
||||
LENGTH(2) = 2
|
||||
FIELD(2)= 25->CODIVA[1,2]
|
||||
FIELD(2)= 25->CODIVA
|
||||
MESSAGE(2) = _IVA
|
||||
FILLER(2) = '0'
|
||||
|
||||
NAME(3) = IMPORTO IMPONIBILE EURO
|
||||
@ -660,7 +662,8 @@ NAME(7) = CODICE NORMA
|
||||
TYPE(7) = STRINGA
|
||||
POSITION(7) = 29
|
||||
LENGTH(7) = 2
|
||||
FIELD(7) = 25->CODIVA[3,4]
|
||||
FIELD(7) = 25->CODIVA
|
||||
MESSAGE(7)= _NORMA
|
||||
FILLER(7) = '0'
|
||||
|
||||
NAME(8) = CENTRO DI COSTO
|
||||
@ -672,7 +675,8 @@ NAME(9) = CONTROPARTITA
|
||||
TYPE(9) = NUMERO
|
||||
POSITION(9) = 35
|
||||
LENGTH(9) = 6
|
||||
FIELD(9) = 25->SOTTOCONTO
|
||||
// FIELD(9) = 25->SOTTOCONTO
|
||||
MESSAGE(9)= _CONTO,25,TIPOC
|
||||
|
||||
NAME(10) = IMPORTO TOTALE EURO
|
||||
TYPE(10) = IMPORTO
|
||||
|
55
tc/tc1200.cpp
Executable file
55
tc/tc1200.cpp
Executable file
@ -0,0 +1,55 @@
|
||||
// gestione tabelle di magazzino
|
||||
|
||||
#include <modaut.h>
|
||||
#include <modtbapp.h>
|
||||
#include <tabutil.h>
|
||||
|
||||
|
||||
// applicazione per la gestione delle tabelle di magazzino
|
||||
class Tab_app_zucc : public TTable_module_application
|
||||
{
|
||||
|
||||
protected: // TRelation_application
|
||||
virtual bool user_create() ;
|
||||
|
||||
public:
|
||||
Tab_app_zucc() {}
|
||||
virtual ~Tab_app_zucc() {}
|
||||
};
|
||||
|
||||
HIDDEN inline Tab_app_zucc& app() { return (Tab_app_zucc&)main_app(); }
|
||||
|
||||
|
||||
bool Tab_app_zucc::user_create()
|
||||
{
|
||||
/*
|
||||
la Tab_application::user_create() apre la maschera TMask in modo automatico
|
||||
basandosi sul parametro passato sulla linea di comando e sulla convenzione
|
||||
nome = "BATB"+parametro;
|
||||
ORA:
|
||||
- questa convenzione cambierà per separare i programmi (e le maschere)
|
||||
dei vari pacchetti
|
||||
In tal caso ridefinire il metodo virtual mask_name()
|
||||
- secondo il nuovo stile, gli handler vanno posti in maschere derivate
|
||||
dalla TMask (TMask_tabzucc, TMask_tabcau, ecc), pertanto occorre che
|
||||
la maschera aperta sia del tipo corretto
|
||||
per questo motivo la maschera viene creata dalla user_create()
|
||||
*/
|
||||
|
||||
bool ok = TTable_module_application::user_create();
|
||||
|
||||
if (ok)
|
||||
{
|
||||
//TMask& mask = *set_mask();
|
||||
}
|
||||
|
||||
return ok;
|
||||
}
|
||||
|
||||
int tc1200(int argc, char** argv)
|
||||
{
|
||||
Tab_app_zucc a;
|
||||
a.run(argc, argv, TR("Tabella"));
|
||||
return 0;
|
||||
}
|
||||
|
85
tc/tc1700.cpp
Executable file
85
tc/tc1700.cpp
Executable file
@ -0,0 +1,85 @@
|
||||
#include <tabapp.h>
|
||||
|
||||
#include "tc1.h"
|
||||
#include "tczu.h"
|
||||
|
||||
class TZucchetti_multirel_app : public TMultirel_application
|
||||
{
|
||||
|
||||
protected:
|
||||
virtual void set_descr(TMask & m, const TString & desc);
|
||||
virtual void get_mask_name(TString& tabname) const;
|
||||
virtual void init_query_mode(TMask& m);
|
||||
virtual void init_query_insert_mode(TMask& m);
|
||||
virtual void init_modify_mode(TMask& m);
|
||||
virtual void init_insert_mode(TMask& m);
|
||||
//magico metodo per impedire la navigazione su tabelle diverse da quella corrente del cursore
|
||||
virtual bool has_filtered_cursor() const { return true; }
|
||||
virtual bool user_create();
|
||||
|
||||
public:
|
||||
|
||||
TZucchetti_multirel_app() {}
|
||||
virtual ~TZucchetti_multirel_app() {}
|
||||
};
|
||||
|
||||
void TZucchetti_multirel_app::set_descr(TMask & m, const TString & desc)
|
||||
{
|
||||
m.set(F_DESC, desc);
|
||||
}
|
||||
|
||||
void TZucchetti_multirel_app::get_mask_name(TString& tabname) const
|
||||
{
|
||||
TMultirel_application::get_mask_name(tabname);
|
||||
tabname.overwrite("zu", 2);
|
||||
}
|
||||
|
||||
void TZucchetti_multirel_app::init_query_mode(TMask& m)
|
||||
{
|
||||
TMultirel_application::init_query_mode(m);
|
||||
m.show(-1);
|
||||
m.hide(-2);
|
||||
m.disable(-3);
|
||||
}
|
||||
|
||||
void TZucchetti_multirel_app::init_query_insert_mode(TMask& m)
|
||||
{
|
||||
TMultirel_application::init_query_insert_mode(m);
|
||||
m.hide(-1);
|
||||
m.show(-2);
|
||||
m.enable(-3);
|
||||
}
|
||||
void TZucchetti_multirel_app::init_modify_mode(TMask& m)
|
||||
{
|
||||
TMultirel_application::init_modify_mode(m);
|
||||
m.show(-1);
|
||||
m.disable(-1);
|
||||
m.hide(-2);
|
||||
m.disable(-3);
|
||||
}
|
||||
|
||||
void TZucchetti_multirel_app::init_insert_mode(TMask& m)
|
||||
{
|
||||
TMultirel_application::init_insert_mode(m);
|
||||
m.show(-1);
|
||||
m.disable(-1);
|
||||
m.hide(-2);
|
||||
m.disable(-3);
|
||||
}
|
||||
|
||||
bool TZucchetti_multirel_app::user_create()
|
||||
{
|
||||
bool ok = TMultirel_application::user_create();
|
||||
|
||||
if (ok)
|
||||
{
|
||||
set_search_field(get_tabname() == "BAN" ? F_CODTAB1 : F_CODTAB);
|
||||
}
|
||||
return ok;
|
||||
}
|
||||
int tc1700(int argc, char* argv[])
|
||||
{
|
||||
TZucchetti_multirel_app a;
|
||||
a.run(argc, argv, TR("Tabella"));
|
||||
return 0;
|
||||
}
|
@ -1,4 +1,3 @@
|
||||
// gestione files Contabilita' Analitica: CENTRI DI COSTO
|
||||
#include <automask.h>
|
||||
#include <execp.h>
|
||||
#include <relapp.h>
|
||||
@ -23,25 +22,6 @@ bool TZC_ricl_msk::on_field_event(TOperable_field& o, TField_event e, long jolly
|
||||
switch (o.dlg())
|
||||
{
|
||||
case F_CONTO:
|
||||
{
|
||||
TString16 key;
|
||||
key.format("%d|%d", o.mask().get_int(F_GRUPPO), o.mask().get_int(F_CONTO));
|
||||
const TRectype & rec = cache().get(LF_PCON, key);
|
||||
const char tsottoc = rec.get_char(PCN_TMCF);
|
||||
|
||||
if (tsottoc <= ' ')
|
||||
{
|
||||
enable(F_SOTTOCONTO);
|
||||
enable(F_DESC);
|
||||
}
|
||||
else
|
||||
{
|
||||
disable(F_SOTTOCONTO);
|
||||
disable(F_DESC);
|
||||
reset(F_SOTTOCONTO);
|
||||
}
|
||||
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
@ -72,17 +52,18 @@ protected:
|
||||
// @cmember Ritorna la relazione da modificare
|
||||
virtual TRelation* get_relation() const { CHECK(_rel, "Null relation"); return _rel; }
|
||||
// @cmember Inizializza la maschera per il modo inserimento
|
||||
// @cmember Inizializzazione dei dati dell'utente
|
||||
virtual void init_query_mode(TMask& m) ;
|
||||
// @cmember Inizializza la maschera per il modo ricerca ed inserimento (chiama <mf TRelation_application::init_query_mode>)
|
||||
virtual void init_query_insert_mode(TMask& m) ;
|
||||
virtual void init_insert_mode(TMask& m);
|
||||
// @cmember Inizializza la maschera per il modo modifica
|
||||
virtual void init_modify_mode(TMask& m);
|
||||
// @cmember Inizializzazione dei dati dell'utente
|
||||
virtual bool user_create() ;
|
||||
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:
|
||||
@ -107,25 +88,20 @@ void TZCRiclass_application::print()
|
||||
|
||||
void TZCRiclass_application::init_insert_mode(TMask& m)
|
||||
{
|
||||
TLocalisamfile ricl(LF_RICLPDC);
|
||||
m.show(-1);
|
||||
m.disable(-1);
|
||||
m.hide(-2);
|
||||
}
|
||||
void TZCRiclass_application::init_query_mode(TMask& m)
|
||||
{
|
||||
m.show(-1);
|
||||
m.hide(-2);
|
||||
}
|
||||
|
||||
ricl.put("TIPORIC", m.get(F_COD));
|
||||
TString codice(m.get(F_TSSOTTOCONTO));
|
||||
ricl.put("CODICE", codice);
|
||||
if (ricl.read(_isgteq) == NOERR && codice == ricl.get("CODICE"))
|
||||
m.set(F_DESCRIZ, ricl.get("DESCRIZ"));
|
||||
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();
|
||||
}
|
||||
}
|
||||
void TZCRiclass_application::init_query_insert_mode(TMask& m)
|
||||
{
|
||||
m.hide(-1);
|
||||
m.show(-2);
|
||||
}
|
||||
|
||||
void TZCRiclass_application::init_modify_mode(TMask& m)
|
||||
@ -145,31 +121,9 @@ void TZCRiclass_application::init_modify_mode(TMask& m)
|
||||
_gruppo = m.get_int(F_GRUPPO);
|
||||
_conto = m.get_int(F_CONTO);
|
||||
_sottoconto = m.get_long(F_SOTTOCONTO);
|
||||
}
|
||||
|
||||
int TZCRiclass_application::rewrite(const TMask& m)
|
||||
{
|
||||
int err = TRelation_application::rewrite(m);
|
||||
|
||||
if (err != NOERR)
|
||||
err = TRelation_application::write(m);
|
||||
|
||||
TRelation & rel = *get_relation();
|
||||
|
||||
int gruppo = rel.lfile().get_int("GRUPPO");
|
||||
int conto = rel.lfile().get_int("CONTO");
|
||||
long sottoconto = rel.lfile().get_long("SOTTOCONTO");
|
||||
|
||||
if (err == NOERR && (gruppo != _gruppo || conto != _conto || sottoconto != _sottoconto))
|
||||
{
|
||||
rel.save_status();
|
||||
rel.lfile().put("GRUPPO", _gruppo);
|
||||
rel.lfile().put("CONTO", _conto);
|
||||
rel.lfile().put("SOTTOCONTO", _sottoconto);
|
||||
rel.remove();
|
||||
rel.restore_status();
|
||||
}
|
||||
return err;
|
||||
m.show(-1);
|
||||
m.disable(-1);
|
||||
m.hide(-2);
|
||||
}
|
||||
|
||||
bool TZCRiclass_application::user_create()
|
||||
@ -177,13 +131,7 @@ bool TZCRiclass_application::user_create()
|
||||
_rel = new TRelation(LF_RICLPDC);
|
||||
_msk = new TZC_ricl_msk;
|
||||
|
||||
set_search_field(F_TSSOTTOCONTO);
|
||||
|
||||
//TConfig config(CONFIG_DITTA);
|
||||
//const bool use_pcn = config.get_bool("ZCUSECMPCN");
|
||||
|
||||
//_msk->show(-10, use_pcn);
|
||||
//_msk->show(-20, !use_pcn);
|
||||
set_search_field(F_SOTTOCONTO);
|
||||
|
||||
TFilename rep("tczcricl.rep");
|
||||
|
||||
|
19
tc/tc1800a.h
19
tc/tc1800a.h
@ -1,11 +1,14 @@
|
||||
//id campi maschera tc1800a (file piano dei conti Zucchetti)
|
||||
//campi normali
|
||||
#define F_COD 101
|
||||
#define F_TSSOTTOCONTO 102
|
||||
#define F_DESCRIZ 103
|
||||
#define F_GRUPPO 104
|
||||
#define F_CONTO 105
|
||||
#define F_SOTTOCONTO 106
|
||||
#define F_DESCG 107
|
||||
#define F_DESCC 108
|
||||
#define F_DESC 109
|
||||
#define F_GRUPPO 102
|
||||
#define F_CONTO 103
|
||||
#define F_SOTTOCONTO 104
|
||||
#define F_GRUPPO1 105
|
||||
#define F_CONTO1 106
|
||||
#define F_SOTTOCONTO1 107
|
||||
#define F_DESCG 108
|
||||
#define F_DESCC 109
|
||||
#define F_DESC 110
|
||||
#define F_CONTOZU 111
|
||||
#define F_DESCRIZ 112
|
||||
|
200
tc/tc1800a.uml
200
tc/tc1800a.uml
@ -9,128 +9,86 @@ PAGE "" 0 2 0 0
|
||||
LIST F_COD 7
|
||||
BEGIN
|
||||
PROMPT 50 50 ""
|
||||
ITEM "ZCCONTI|ZCCONTI"
|
||||
ITEM "ZUCONTI|ZUCONTI"
|
||||
FIELD TIPORIC
|
||||
FLAGS "D"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Conto Zucchetti"
|
||||
END
|
||||
|
||||
STRING F_TSSOTTOCONTO 5
|
||||
BEGIN
|
||||
PROMPT 2 2 "Sottoconto "
|
||||
USE LF_RICLPDC
|
||||
INPUT TIPORIC F_COD SELECT
|
||||
INPUT CODICE F_TSSOTTOCONTO
|
||||
DISPLAY "Sottoconto TS" CODICE
|
||||
DISPLAY "Descrizione@50" DESCRIZ
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
OUTPUT F_TSSOTTOCONTO CODICE
|
||||
OUTPUT F_DESCRIZ DESCRIZ
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_CONTO CONTO
|
||||
OUTPUT F_SOTTOCONTO SOTTOCONTO
|
||||
CHECKTYPE REQUIRED
|
||||
VALIDATE FIXLEN_FUNC 5
|
||||
FIELD CODICE
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_DESCRIZ 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Descrizione "
|
||||
USE LF_RICLPDC KEY 2
|
||||
INPUT TIPORIC F_COD SELECT
|
||||
INPUT DESCRIZ F_DESCRIZ
|
||||
DISPLAY "Descrizione@50" DESCRIZ
|
||||
DISPLAY "Sottoconto TS" CODICE
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
COPY OUTPUT F_TSSOTTOCONTO
|
||||
FIELD DESCRIZ
|
||||
KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
PROMPT 1 1 "Conto Campo"
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPO 3
|
||||
BEGIN
|
||||
PROMPT 2 6 "Gruppo "
|
||||
PROMPT 2 2 "Gruppo "
|
||||
HELP "Codice del gruppo"
|
||||
FIELD GRUPPO
|
||||
KEY 1
|
||||
USE LF_PCON KEY 1 SELECT CONTO=""
|
||||
USE LF_RICLPDC
|
||||
INPUT TIPORIC F_COD
|
||||
INPUT GRUPPO F_GRUPPO
|
||||
INPUT CONTO F_CONTO
|
||||
INPUT SOTTOCONTO F_SOTTOCONTO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCRIZ
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_DESCG DESCR
|
||||
OUTPUT F_CONTO CONTO
|
||||
OUTPUT F_SOTTOCONTO SOTTOCONTO
|
||||
OUTPUT F_DESC DESCRIZ
|
||||
MESSAGE_COPY F_GRUPPO1
|
||||
VALIDATE REQIF_FUNC 1 F_SOTTOCONTO
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_DESCG 50
|
||||
BEGIN
|
||||
PROMPT 24 6 ""
|
||||
PROMPT 24 2 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_CONTO 3
|
||||
BEGIN
|
||||
PROMPT 2 8 "Conto "
|
||||
PROMPT 2 3 "Conto "
|
||||
HELP "Codice dell'eventuale conto"
|
||||
FIELD CONTO
|
||||
KEY 1
|
||||
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
|
||||
COPY INPUT F_GRUPPO
|
||||
INPUT CONTO F_CONTO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_CONTO CONTO
|
||||
OUTPUT F_DESCC DESCR
|
||||
COPY ALL F_GRUPPO
|
||||
CHECKTYPE NORMAL
|
||||
MESSAGE_COPY F_CONTO1
|
||||
VALIDATE REQIF_FUNC 1 F_SOTTOCONTO
|
||||
WARNING "Manca il conto"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_DESCC 50
|
||||
BEGIN
|
||||
PROMPT 24 8 ""
|
||||
PROMPT 24 3 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCONTO 6
|
||||
BEGIN
|
||||
PROMPT 2 10 "Sottoconto "
|
||||
PROMPT 2 4 "Sottoconto "
|
||||
HELP "Codice dell'eventuale sottoconto"
|
||||
FIELD SOTTOCONTO
|
||||
KEY 1
|
||||
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
||||
COPY INPUT F_CONTO
|
||||
INPUT SOTTOCONTO F_SOTTOCONTO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Sosp." SOSPESO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_SOTTOCONTO SOTTOCONTO
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_CONTO CONTO
|
||||
OUTPUT F_DESC DESCR
|
||||
COPY ALL F_GRUPPO
|
||||
MESSAGE_COPY F_SOTTOCONTO1
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 24 10 ""
|
||||
PROMPT 24 4 ""
|
||||
USE LF_PCON KEY 2
|
||||
KEY 2
|
||||
FILED DESCRIZ
|
||||
INPUT DESCR F_DESC
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Sosp." SOSPESO
|
||||
@ -143,6 +101,104 @@ BEGIN
|
||||
WARNING "Descrizione mancante"
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPO1 3
|
||||
BEGIN
|
||||
PROMPT 2 2 "Gruppo "
|
||||
HELP "Codice del gruppo"
|
||||
FIELD GRUPPO
|
||||
KEY 1
|
||||
USE LF_PCON KEY 1 SELECT CONTO=""
|
||||
INPUT GRUPPO F_GRUPPO1
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_DESCG DESCR
|
||||
VALIDATE REQIF_FUNC 1 F_CONTO1
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 2
|
||||
FLAGS "HG"
|
||||
ADD RUN cg0 -0
|
||||
END
|
||||
|
||||
NUMBER F_CONTO1 3
|
||||
BEGIN
|
||||
PROMPT 2 3 "Conto "
|
||||
HELP "Codice dell'eventuale conto"
|
||||
FIELD CONTO
|
||||
KEY 1
|
||||
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
|
||||
COPY INPUT F_GRUPPO1
|
||||
INPUT CONTO F_CONTO1
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO1 GRUPPO
|
||||
OUTPUT F_CONTO1 CONTO
|
||||
OUTPUT F_DESCC DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
VALIDATE REQIF_FUNC 1 F_SOTTOCONTO1
|
||||
WARNING "Manca il conto"
|
||||
GROUP 2
|
||||
FLAGS "HG"
|
||||
ADD RUN cg0 -0
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCONTO1 6
|
||||
BEGIN
|
||||
PROMPT 2 4 "Sottoconto "
|
||||
HELP "Codice dell'eventuale sottoconto"
|
||||
FIELD SOTTOCONTO
|
||||
KEY 1
|
||||
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
||||
COPY INPUT F_CONTO1
|
||||
INPUT SOTTOCONTO F_SOTTOCONTO1
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Sosp." SOSPESO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_SOTTOCONTO1 SOTTOCONTO
|
||||
OUTPUT F_GRUPPO1 GRUPPO
|
||||
OUTPUT F_CONTO1 CONTO
|
||||
OUTPUT F_DESC DESCR
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 2
|
||||
FLAGS "HG"
|
||||
ADD RUN cg0 -0
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 6 "Conto Zucchetti"
|
||||
END
|
||||
|
||||
STRING F_CONTOZU 6
|
||||
BEGIN
|
||||
PROMPT 2 7 "Sottoconto "
|
||||
USE &ZCO
|
||||
INPUT CODTAB F_CONTOZU
|
||||
DISPLAY "Conto Zucchetti" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CONTOZU CODTAB
|
||||
OUTPUT F_DESCRIZ S0
|
||||
CHECKTYPE REQUIRED
|
||||
VALIDATE FIXLEN_FUNC 5
|
||||
FIELD CODICE
|
||||
END
|
||||
|
||||
STRING F_DESCRIZ 50
|
||||
BEGIN
|
||||
PROMPT 24 7 ""
|
||||
USE &ZCO KEY 2
|
||||
INPUT S0 F_DESCRIZ
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Conto Zucchetti" CODTAB
|
||||
COPY OUTPUT F_CONTOZU
|
||||
FIELD DESCRIZ
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
@ -48,5 +48,25 @@ Caption = "Zucchetti"
|
||||
Picture = <cg01>
|
||||
Module = 27
|
||||
Flags = ""
|
||||
Item_01 = "Trasferimento", "tc1 -0", ""
|
||||
Item_02 = "Riclassificazione conti", "tc1 -7", ""
|
||||
Item_01 = "Tabelle Zucchetti", [TCMENU_006]
|
||||
Item_02 = "Tabelle di Riclassificazione", [TCMENU_007]
|
||||
Item_03 = "Trasferimento", "tc1 -0", ""
|
||||
|
||||
[TCMENU_006]
|
||||
Caption = "Tabelle Zucchetti"
|
||||
Picture = <cg01>
|
||||
Module = 27
|
||||
Flags = ""
|
||||
Item_01 = "Banche", "tc1 -1 &ZBA", ""
|
||||
Item_02 = "Causali", "tc1 -1 &ZCA", ""
|
||||
Item_03 = "Codici IVA", "tc1 -1 &ZIV", ""
|
||||
|
||||
[TCMENU_007]
|
||||
Caption = "Tabelle di Riclassificazione"
|
||||
Picture = <cg01>
|
||||
Module = 27
|
||||
Flags = ""
|
||||
Item_01 = "Banche", "tc1 -6 BAN", ""
|
||||
Item_02 = "Causali", "tc1 -6 CAU", ""
|
||||
Item_03 = "Codici IVA", "tc1 -6 IVA", ""
|
||||
Item_04 = "Conti", "tc1 -7", ""
|
||||
|
3
tc/tctbzba.h
Executable file
3
tc/tctbzba.h
Executable file
@ -0,0 +1,3 @@
|
||||
#define F_CODTAB 101
|
||||
#define F_DESC 102
|
||||
#define F_CODTAB1 103
|
57
tc/tctbzba.uml
Executable file
57
tc/tctbzba.uml
Executable file
@ -0,0 +1,57 @@
|
||||
#include "tctbzba.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Banche" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "Banca Zucchetti"
|
||||
END
|
||||
|
||||
NUMBER F_CODTAB 3
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
USE &ZBA
|
||||
INPUT CODTAB[1,3] F_CODTAB
|
||||
INPUT CODTAB[4,6] F_CODTAB1
|
||||
DISPLAY "Codice" CODTAB[1,3]
|
||||
DISPLAY "Codice" CODTAB[4,6]
|
||||
DISPLAY "Descrizione@60" S0
|
||||
OUTPUT F_CODTAB CODTAB[1,3]
|
||||
OUTPUT F_CODTAB1 CODTAB[4,6]
|
||||
OUTPUT F_DESC S0
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODTAB[1,3]
|
||||
FLAGS "Z"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_CODTAB1 3
|
||||
BEGIN
|
||||
PROMPT 21 2 ""
|
||||
COPY ALL F_CODTAB
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODTAB[4,6]
|
||||
FLAGS "Z"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 2 5 "Descrizione "
|
||||
USE &ZBA KEY 2
|
||||
INPUT S0 F_DESC
|
||||
DISPLAY "Descrizione@60" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_CODTAB
|
||||
FIELD S0
|
||||
KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
2
tc/tctbzca.h
Executable file
2
tc/tctbzca.h
Executable file
@ -0,0 +1,2 @@
|
||||
#define F_CODTAB 102
|
||||
#define F_DESC 103
|
44
tc/tctbzca.uml
Executable file
44
tc/tctbzca.uml
Executable file
@ -0,0 +1,44 @@
|
||||
#include "tctbzca.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Conti" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "Causale Zucchetti"
|
||||
END
|
||||
|
||||
NUMBER F_CODTAB 3
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
USE &ZCA
|
||||
INPUT CODTAB F_CODTAB
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@60" S0
|
||||
OUTPUT F_CODTAB CODTAB
|
||||
OUTPUT F_DESC S0
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODTAB
|
||||
VALIDATE FIXLEN_FUNC 3
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 2 5 "Descrizione "
|
||||
USE &ZCA KEY 2
|
||||
INPUT S0 F_DESC
|
||||
DISPLAY "Descrizione@60" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_CODTAB
|
||||
FIELD S0
|
||||
KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
2
tc/tctbzco.h
Executable file
2
tc/tctbzco.h
Executable file
@ -0,0 +1,2 @@
|
||||
#define F_CODTAB 102
|
||||
#define F_DESC 103
|
44
tc/tctbzco.uml
Executable file
44
tc/tctbzco.uml
Executable file
@ -0,0 +1,44 @@
|
||||
#include "tctbzco.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Conti" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "Conto Zucchetti"
|
||||
END
|
||||
|
||||
NUMBER F_CODTAB 6
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
USE &ZCO
|
||||
INPUT CODTAB F_CODTAB
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@60" S0
|
||||
OUTPUT F_CODTAB CODTAB
|
||||
OUTPUT F_DESC S0
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODTAB
|
||||
VALIDATE FIXLEN_FUNC 5
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 2 5 "Descrizione "
|
||||
USE &ZCO KEY 2
|
||||
INPUT S0 F_DESC
|
||||
DISPLAY "Descrizione@60" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_CODTAB
|
||||
FIELD S0
|
||||
KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
3
tc/tctbziv.h
Executable file
3
tc/tctbziv.h
Executable file
@ -0,0 +1,3 @@
|
||||
#define F_CODTAB 101
|
||||
#define F_DESC 102
|
||||
#define F_NORMA 103
|
55
tc/tctbziv.uml
Executable file
55
tc/tctbziv.uml
Executable file
@ -0,0 +1,55 @@
|
||||
#include "tctbziv.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "IVA" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "IVA Zucchetti"
|
||||
END
|
||||
|
||||
NUMBER F_CODTAB 2
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
USE &ZIV
|
||||
INPUT CODTAB F_CODTAB
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@60" S0
|
||||
DISPLAY "Codice Norma" S7
|
||||
OUTPUT F_CODTAB CODTAB
|
||||
OUTPUT F_DESC S0
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODTAB
|
||||
VALIDATE FIXLEN_FUNC 2
|
||||
FLAG "Z"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 2 5 "Descrizione "
|
||||
USE &ZIV KEY 2
|
||||
INPUT S0 F_DESC
|
||||
DISPLAY "Descrizione@60" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_CODTAB
|
||||
FIELD S0
|
||||
KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_NORMA 2
|
||||
BEGIN
|
||||
PROMPT 2 7 "Codice Norma "
|
||||
CHECKTYPE REQUIRED
|
||||
VALIDATE FIXLEN_FUNC 2
|
||||
FIELD S7
|
||||
FLAG "Z"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
10
tc/tczu.h
Executable file
10
tc/tczu.h
Executable file
@ -0,0 +1,10 @@
|
||||
#define F_COD 101
|
||||
#define F_CODTAB 102
|
||||
#define F_CODTAB1 103
|
||||
#define F_DESC 104
|
||||
#define F_COD_CORR 105
|
||||
#define F_DESC_CORR 106
|
||||
|
||||
#define F_CODTAB10 107
|
||||
#define F_CODTAB11 108
|
||||
#define F_COD_CORR1 109
|
153
tc/tczuban.uml
Executable file
153
tc/tczuban.uml
Executable file
@ -0,0 +1,153 @@
|
||||
#include "tczu.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Banche" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "Banca Campo"
|
||||
END
|
||||
|
||||
LIST F_COD 5
|
||||
BEGIN
|
||||
PROMPT 50 50 ""
|
||||
ITEM "ZUBAN|ZUBAN"
|
||||
FIELD COD
|
||||
FLAGS "D"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_CODTAB 5
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice ABI "
|
||||
USE LF_MULTIREL
|
||||
JOIN %BAN INTO CODTAB==FIRST
|
||||
INPUT COD F_COD SELECT
|
||||
INPUT FIRST[1,5] F_CODTAB
|
||||
INPUT FIRST[6,10] F_CODTAB10
|
||||
DISPLAY "Codice ABI " FIRST[1,5]
|
||||
DISPLAY "Codice CAB " FIRST[6,10]
|
||||
DISPLAY "Descrizione@60" %BAN->S0
|
||||
DISPLAY "Banca Zucchetti ABI" DATA[1,3]
|
||||
DISPLAY "Banca Zucchetti CAB" DATA[4,6]
|
||||
OUTPUT F_CODTAB FIRST[1,5]
|
||||
OUTPUT F_CODTAB1 FIRST[1,5]
|
||||
OUTPUT F_CODTAB10 FIRST[6,10]
|
||||
OUTPUT F_CODTAB11 FIRST[6,10]
|
||||
OUTPUT F_DESC %BAN->S0
|
||||
FIELD FIRST[1,5]
|
||||
FLAGS "Z"
|
||||
KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER F_CODTAB10 5
|
||||
BEGIN
|
||||
PROMPT 26 2 "CAB "
|
||||
COPY ALL F_CODTAB
|
||||
FIELD FIRST[6,10]
|
||||
FLAGS "Z"
|
||||
KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_CODTAB1 5
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice ABI "
|
||||
FIELD FIRST[1,5]
|
||||
FLAGS "ZHG"
|
||||
USE %BAN SELECT CODTAB ?= "?????"
|
||||
INPUT CODTAB F_CODTAB1
|
||||
DISPLAY "ABI@5" CODTAB
|
||||
DISPLAY "Istituto@50" S0
|
||||
OUTPUT F_CODTAB CODTAB
|
||||
OUTPUT F_CODTAB1 CODTAB
|
||||
OUTPUT F_DESC S0
|
||||
WARNING "Istituto assente"
|
||||
KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING F_CODTAB11 5
|
||||
BEGIN
|
||||
PROMPT 26 2 "CAB "
|
||||
FIELD FIRST[6,10]
|
||||
FLAGS "ZHG"
|
||||
USE %BAN SELECT CODTAB ?= "??????????"
|
||||
INPUT CODTAB[1,5] F_CODTAB
|
||||
INPUT CODTAB[6,10] F_CODTAB1
|
||||
DISPLAY "ABI@5" CODTAB[1,5]
|
||||
DISPLAY "CAB@5" CODTAB[6,10]
|
||||
DISPLAY "Dipendenza" I0
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT F_CODTAB CODTAB[1,5]
|
||||
OUTPUT F_CODTAB1 CODTAB[1,5]
|
||||
OUTPUT F_CODTAB10 CODTAB[6,10]
|
||||
OUTPUT F_CODTAB11 CODTAB[6,10]
|
||||
OUTPUT F_DESC S0
|
||||
WARNING "Istituto assente"
|
||||
KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 2 5 "Descrizione "
|
||||
USE %BAN KEY 2
|
||||
INPUT S0 F_DESC
|
||||
DISPLAY "Descrizione@60" S0
|
||||
DISPLAY "Codice ABI " CODTAB[1,5]
|
||||
DISPLAY "Codice CAB " CODTAB[6,10]
|
||||
COPY OUTPUT F_CODTAB11
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 3
|
||||
KEY 2
|
||||
END
|
||||
|
||||
STRING F_COD_CORR 3
|
||||
BEGIN
|
||||
PROMPT 2 7 "Banca Zucchetti "
|
||||
USE &ZBA
|
||||
INPUT CODTAB[1,3] F_COD_CORR
|
||||
INPUT CODTAB[4,6] F_COD_CORR1
|
||||
DISPLAY "Banca Zucchetti ABI" CODTAB[1,3]
|
||||
DISPLAY "Banca Zucchetti CAB" CODTAB[4,6]
|
||||
DISPLAY "Descrizione@60" S0
|
||||
OUTPUT F_COD_CORR CODTAB[1,3]
|
||||
OUTPUT F_COD_CORR1 CODTAB[4,6]
|
||||
OUTPUT F_DESC_CORR S0
|
||||
FIELD DATA[1,3]
|
||||
FLAGS "Z"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_COD_CORR1 3
|
||||
BEGIN
|
||||
PROMPT 30 7 ""
|
||||
COPY ALL F_COD_CORR
|
||||
FIELD DATA[4,6]
|
||||
FLAGS "Z"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESC_CORR 50 40
|
||||
BEGIN
|
||||
PROMPT 37 7 ""
|
||||
USE &ZBA KEY 2
|
||||
INPUT S0 F_DESC_CORR
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Banca Zucchetti ABI" CODTAB[1,3]
|
||||
DISPLAY "Banca Zucchetti CAB" CODTAB[4,6]
|
||||
COPY OUTPUT F_COD_CORR
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
112
tc/tczucau.uml
Executable file
112
tc/tczucau.uml
Executable file
@ -0,0 +1,112 @@
|
||||
#include "tczu.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Causali" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "Causale Campo"
|
||||
END
|
||||
|
||||
LIST F_COD 5
|
||||
BEGIN
|
||||
PROMPT 50 50 ""
|
||||
ITEM "ZUCAU|ZUCAU"
|
||||
FIELD COD
|
||||
FLAGS "D"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_CODTAB 3
|
||||
BEGIN
|
||||
PROMPT 2 2 ""
|
||||
USE LF_MULTIREL
|
||||
JOIN LF_CAUSALI INTO CODCAUS==FIRST
|
||||
INPUT COD F_COD SELECT
|
||||
INPUT FIRST F_CODTAB
|
||||
DISPLAY "Codice" FIRST
|
||||
DISPLAY "Descrizione@60" LF_CAUSALI->DESCR
|
||||
DISPLAY "Causale Zucchetti" DATA
|
||||
OUTPUT F_CODTAB FIRST
|
||||
OUTPUT F_CODTAB1 FIRST
|
||||
OUTPUT F_COD_CORR DATA
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD FIRST
|
||||
FLAGS "UZ"
|
||||
KEY 1
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_CODTAB1 3
|
||||
BEGIN
|
||||
PROMPT 2 2 ""
|
||||
FIELD FIRST
|
||||
FLAGS "UZHG"
|
||||
USE LF_CAUSALI
|
||||
INPUT CODCAUS F_CODTAB1
|
||||
DISPLAY "Cod." CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Documento" TIPODOC
|
||||
DISPLAY "Registro" REG
|
||||
DISPLAY "Tipo movimento" TIPOMOV
|
||||
DISPLAY "Inc./Pag." CODCAUSIM
|
||||
DISPLAY "770" M770
|
||||
DISPLAY "Cespiti" COLLCESP
|
||||
OUTPUT F_CODTAB1 CODCAUS
|
||||
OUTPUT F_CODTAB CODCAUS
|
||||
OUTPUT F_DESC DESCR
|
||||
KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 10 2 "Descrizione "
|
||||
USE LF_CAUSALI KEY 2
|
||||
INPUT DESCR F_DESC
|
||||
DISPLAY "Descrizione@60" DESCR
|
||||
DISPLAY "Documento" TIPODOC
|
||||
DISPLAY "Registro" REG
|
||||
DISPLAY "Tipo movimento" TIPOMOV
|
||||
DISPLAY "Inc./Pag." CODCAUSIM
|
||||
DISPLAY "770" M770
|
||||
DISPLAY "Cespiti" COLLCESP
|
||||
COPY OUTPUT F_CODTAB1
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 2
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
STRING F_COD_CORR 3
|
||||
BEGIN
|
||||
PROMPT 2 4 "Causale Zucchetti "
|
||||
FIELD DATA
|
||||
FLAGS "UZ"
|
||||
USE &ZCA
|
||||
INPUT CODTAB F_COD_CORR
|
||||
DISPLAY "Cod." CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_COD_CORR CODTAB
|
||||
OUTPUT F_DESC_CORR S0
|
||||
VALIDATE FIXLEN_FUNC 3
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESC_CORR 50
|
||||
BEGIN
|
||||
PROMPT 2 25 ""
|
||||
USE &ZCA
|
||||
INPUT S0 F_DESC_CORR
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Cod." CODTAB
|
||||
COPY OUTPUT F_COD_CORR
|
||||
KEY 1
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
110
tc/tczuiva.uml
Executable file
110
tc/tczuiva.uml
Executable file
@ -0,0 +1,110 @@
|
||||
#include "tczu.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Codici IVA" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "Codice IVA Campo"
|
||||
END
|
||||
|
||||
LIST F_COD 5
|
||||
BEGIN
|
||||
PROMPT 50 50 ""
|
||||
ITEM "ZUIVA|ZUIVA"
|
||||
FIELD COD
|
||||
FLAGS "D"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_CODTAB 4
|
||||
BEGIN
|
||||
PROMPT 2 2 ""
|
||||
USE LF_MULTIREL
|
||||
JOIN %IVA INTO CODTAB==FIRST
|
||||
INPUT COD F_COD SELECT
|
||||
INPUT FIRST F_CODTAB
|
||||
DISPLAY "Codice" FIRST
|
||||
DISPLAY "Descrizione@60" %IVA->S0
|
||||
DISPLAY "Codice IVA Zucchetti" DATA
|
||||
OUTPUT F_CODTAB FIRST
|
||||
OUTPUT F_CODTAB1 FIRST
|
||||
OUTPUT F_DESC %IVA->S0
|
||||
OUTPUT F_COD_CORR DATA
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD FIRST
|
||||
VALIDATE ZEROFILL_FUNC 2
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_CODTAB1 4
|
||||
BEGIN
|
||||
PROMPT 2 2 ""
|
||||
FIELD FIRST
|
||||
FLAGS "UHG"
|
||||
USE %IVA
|
||||
INPUT CODTAB F_CODTAB1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Tipo" S1
|
||||
DISPLAY "%@5" R0
|
||||
DISPLAY "Vent." S6
|
||||
DISPLAY "Sospeso" B2
|
||||
OUTPUT F_CODTAB1 CODTAB
|
||||
OUTPUT F_CODTAB CODTAB
|
||||
OUTPUT F_DESC S0
|
||||
HELP "Inserire il codice IVA"
|
||||
KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
VALIDATE ZEROFILL_FUNC 2
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 10 2 "Descrizione "
|
||||
USE %IVA KEY 2
|
||||
INPUT S0 F_DESC
|
||||
DISPLAY "Descrizione@60" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_CODTAB1
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 2
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
STRING F_COD_CORR 2
|
||||
BEGIN
|
||||
PROMPT 2 4 "Codice IVA Zucchetti "
|
||||
FIELD DATA
|
||||
FLAGS "UZ"
|
||||
USE &ZIV
|
||||
INPUT CODTAB F_COD_CORR
|
||||
DISPLAY "Cod." CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice Norma" S7
|
||||
OUTPUT F_COD_CORR CODTAB
|
||||
OUTPUT F_DESC_CORR S0
|
||||
VALIDATE FIXLEN_FUNC 2
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESC_CORR 50
|
||||
BEGIN
|
||||
PROMPT 2 25 ""
|
||||
USE &ZIV
|
||||
INPUT S0 F_DESC_CORR
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Cod." CODTAB
|
||||
DISPLAY "Codice Norma" S7
|
||||
COPY OUTPUT F_COD_CORR
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
Loading…
x
Reference in New Issue
Block a user