Patch level : 10.0 880
Files correlati : tc2.exe Ricompilazione Demo : [ ] Commento : Invio a IPSOA git-svn-id: svn://10.65.10.50/branches/R_10_00@21404 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
bab37b5547
commit
bbfb8a9896
@ -8,9 +8,10 @@
|
||||
#define F_RICLCAU 109
|
||||
#define F_RICLCONTI 110
|
||||
#define F_RICLVALUTE 111
|
||||
#define F_RICLCCONS 112
|
||||
#define F_RIPRISTINO 121
|
||||
#define F_ULTINVIO 122
|
||||
#define F_EMCAU 123
|
||||
#define F_ULTSCADID 123
|
||||
#define F_LIVPC1 124
|
||||
#define F_LIVPC2 125
|
||||
#define F_LIVPC3 126
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
#include "tc2.h"
|
||||
#include "tctbico.h"
|
||||
|
||||
// gestione tabelle Zucchetti
|
||||
// gestione tabelle IPSOA
|
||||
#include <modaut.h>
|
||||
#include <modtbapp.h>
|
||||
#include <tabutil.h>
|
||||
|
||||
@ -77,53 +77,66 @@ BEGIN
|
||||
FIELD IPRVAL
|
||||
END
|
||||
|
||||
BOOLEAN F_RICLCCONS
|
||||
BEGIN
|
||||
PROMPT 2 14 "Trascodifica condizioni di consegna"
|
||||
FIELD IPRICC
|
||||
END
|
||||
|
||||
NUMBER F_LIVPC1 2
|
||||
BEGIN
|
||||
PROMPT 2 14 "Lunghezza livelli piano dei conti : 1 "
|
||||
PROMPT 2 16 "Lunghezza livelli piano dei conti : 1 "
|
||||
FIELD IPLIVPC[1]
|
||||
END
|
||||
|
||||
NUMBER F_LIVPC2 2
|
||||
BEGIN
|
||||
PROMPT 46 14 "2 "
|
||||
PROMPT 46 16 "2 "
|
||||
FIELD IPLIVPC[2]
|
||||
END
|
||||
|
||||
NUMBER F_LIVPC3 2
|
||||
BEGIN
|
||||
PROMPT 52 14 "3 "
|
||||
PROMPT 52 16 "3 "
|
||||
FIELD IPLIVPC[3]
|
||||
END
|
||||
|
||||
NUMBER F_LIVPC4 2
|
||||
BEGIN
|
||||
PROMPT 58 14 "4 "
|
||||
PROMPT 58 16 "4 "
|
||||
FIELD IPLIVPC[4]
|
||||
END
|
||||
|
||||
NUMBER F_LIVPC5 2
|
||||
BEGIN
|
||||
PROMPT 64 14 "5 "
|
||||
PROMPT 64 16 "5 "
|
||||
FIELD IPLIVPC[5]
|
||||
END
|
||||
|
||||
NUMBER F_LIVPC6 2
|
||||
BEGIN
|
||||
PROMPT 70 14 "6 "
|
||||
PROMPT 70 16 "6 "
|
||||
FIELD IPLIVPC[6]
|
||||
END
|
||||
|
||||
BOOLEAN F_RIPRISTINO
|
||||
BEGIN
|
||||
PROMPT 2 16 "Ripristina alla data"
|
||||
MESSAGE FALSE DISABLE,F_ULTINVIO
|
||||
MESSAGE TRUE ENABLE,F_ULTINVIO
|
||||
PROMPT 2 18 "Ripristina alla data"
|
||||
MESSAGE FALSE DISABLE,F_ULTINVIO|DISABLE,F_ULTSCADID
|
||||
MESSAGE TRUE ENABLE,F_ULTINVIO|ENABLE,F_ULTSCADID
|
||||
END
|
||||
|
||||
DATE F_ULTINVIO
|
||||
BEGIN
|
||||
PROMPT 42 16 "Data ultimo invio "
|
||||
FIELD TSULTINV
|
||||
PROMPT 42 18 "Data ultimo invio "
|
||||
FIELD IPULTINV
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_ULTSCADID 10
|
||||
BEGIN
|
||||
PROMPT 62 18 "Ultimo ID scadenze "
|
||||
FIELD IPULTSCADID
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
@ -5,7 +5,6 @@
|
||||
|
||||
class TTeamSystem_multirel_app : public TMultirel_application
|
||||
{
|
||||
bool _use_tab;
|
||||
|
||||
protected:
|
||||
virtual void set_descr(TMask & m, const TString & desc);
|
||||
@ -20,7 +19,7 @@ protected:
|
||||
|
||||
public:
|
||||
|
||||
TTeamSystem_multirel_app() : _use_tab(true) {}
|
||||
TTeamSystem_multirel_app() {}
|
||||
virtual ~TTeamSystem_multirel_app() {}
|
||||
};
|
||||
|
||||
@ -32,7 +31,7 @@ void TTeamSystem_multirel_app::set_descr(TMask & m, const TString & desc)
|
||||
void TTeamSystem_multirel_app::get_mask_name(TString& tabname) const
|
||||
{
|
||||
TMultirel_application::get_mask_name(tabname);
|
||||
tabname.overwrite("ts", 2);
|
||||
tabname.overwrite("ip", 2);
|
||||
}
|
||||
|
||||
void TTeamSystem_multirel_app::init_query_mode(TMask& m)
|
||||
@ -40,15 +39,15 @@ void TTeamSystem_multirel_app::init_query_mode(TMask& m)
|
||||
TMultirel_application::init_query_mode(m);
|
||||
m.show(-1);
|
||||
m.hide(-2);
|
||||
m.enable(-3, _use_tab);
|
||||
m.enable(-3);
|
||||
}
|
||||
|
||||
void TTeamSystem_multirel_app::init_query_insert_mode(TMask& m)
|
||||
{
|
||||
TMultirel_application::init_query_insert_mode(m);
|
||||
m.show(-1, !_use_tab);
|
||||
m.show(-2, _use_tab);
|
||||
m.enable(-3, _use_tab);
|
||||
m.hide(-1);
|
||||
m.show(-2);
|
||||
m.enable(-3);
|
||||
}
|
||||
|
||||
void TTeamSystem_multirel_app::init_modify_mode(TMask& m)
|
||||
@ -76,11 +75,8 @@ bool TTeamSystem_multirel_app::user_create()
|
||||
if (ok)
|
||||
{
|
||||
TConfig config(CONFIG_DITTA);
|
||||
_use_tab = config.get_bool("TSUSECMTAB");
|
||||
TMask & m = *get_mask();
|
||||
|
||||
m.show(-10, _use_tab);
|
||||
m.show(-20, !_use_tab);
|
||||
set_search_field(F_CODTAB);
|
||||
}
|
||||
return ok;
|
||||
|
||||
1581
tc/tc2700.cpp
1581
tc/tc2700.cpp
File diff suppressed because it is too large
Load Diff
175
tc/tc2700.h
175
tc/tc2700.h
@ -1,5 +1,11 @@
|
||||
#include <automask.h>
|
||||
#include "tc2701.h"
|
||||
#include <applicat.h>
|
||||
#include <recarray.h>
|
||||
#include <relation.h>
|
||||
#include <reprint.h>
|
||||
#include <reputils.h>
|
||||
#include <textset.h>
|
||||
#include "../cg/cg2103.h"
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TIP_mask
|
||||
@ -23,41 +29,164 @@ public:
|
||||
};
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TIP_campo_sender
|
||||
// TCausali_cache
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TIP_campo_sender : public TIP_sender
|
||||
class TCausali_cache : public TCache
|
||||
{
|
||||
protected:
|
||||
virtual TObject* key2obj(const char* key);
|
||||
|
||||
public:
|
||||
const TCausale& causale(const char* codice, int annoiva);
|
||||
};
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TRiclassifica_cache
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TIPRiclassifica_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);
|
||||
TIPRiclassifica_cache() : _multirel(LF_MULTIREL) { _multirel.setkey(2);}
|
||||
};
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TIP_sender
|
||||
///////////////////////////////////////////////////////////
|
||||
const long TSbill2ricl(char & t, int gr, int co, long so);
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TIP_sender
|
||||
///////////////////////////////////////////////////////////
|
||||
class TIP_textset : public TCSV_recordset
|
||||
{
|
||||
|
||||
TAssoc_array _colnames;
|
||||
|
||||
protected:
|
||||
void add_field(const char* name = "Filler", int len = 0, const char * tipo = "C");
|
||||
|
||||
public:
|
||||
virtual bool destroy(TRecnotype r);
|
||||
virtual bool set(const char* field, const TVariant& v);
|
||||
void set(const char* field, const TString & str) { set(field, TVariant(str)); }
|
||||
void set(const char* field, const int n) { set(field, TVariant((long)n)); }
|
||||
void set(const char* field, const char* s) { set(field, TVariant(s)); }
|
||||
void set(const char* field, const TDate& d) { set(field, TVariant(d)); }
|
||||
void set(const char* field, const real& v) { set(field, TVariant(v)); }
|
||||
int find_column(const char * name);
|
||||
|
||||
TIP_textset(const char* query = "") : TCSV_recordset(TString("CSV(\"\t\")\n") << query) {}
|
||||
};
|
||||
|
||||
class TIP_clienti_textset : public TIP_textset
|
||||
{
|
||||
public:
|
||||
TIP_clienti_textset(const char* query = "");
|
||||
};
|
||||
|
||||
class TIP_fornitori_textset : public TIP_textset
|
||||
{
|
||||
public:
|
||||
TIP_fornitori_textset(const char* query = "");
|
||||
};
|
||||
|
||||
class TIP_movimenti_textset : public TIP_textset
|
||||
{
|
||||
public:
|
||||
TIP_movimenti_textset(const char* query = "");
|
||||
};
|
||||
|
||||
class TIP_scadenze_textset : public TIP_textset
|
||||
{
|
||||
public:
|
||||
TIP_scadenze_textset(const char* query = "");
|
||||
};
|
||||
|
||||
class TIP_cespiti_textset : public TIP_textset
|
||||
{
|
||||
public:
|
||||
TIP_cespiti_textset(const char* query = "");
|
||||
};
|
||||
|
||||
class TIP_categorie_textset : public TIP_textset
|
||||
{
|
||||
public:
|
||||
TIP_categorie_textset(const char* query = "");
|
||||
};
|
||||
|
||||
class TIP_intra_textset : public TIP_textset
|
||||
{
|
||||
public:
|
||||
TIP_intra_textset(const char* query = "");
|
||||
};
|
||||
|
||||
class TIP_sender : public TSkeleton_application
|
||||
{
|
||||
TIP_mask * _mask;
|
||||
TAssoc_array _caus_regolarizzazione;
|
||||
TIPRiclassifica_cache* _tabelle;
|
||||
TCausali_cache * _causali;
|
||||
TAssoc_array _riclassifica;
|
||||
bool _errors_logged;
|
||||
bool _errors;
|
||||
TLog_report* _log;
|
||||
TReport_book * _book;
|
||||
TRecord_cache * _part;
|
||||
long _ultscadid;
|
||||
|
||||
protected:
|
||||
virtual TRecordset & movrecset();
|
||||
virtual TRecordset & rmovrecset(const TRecordset & mov);
|
||||
virtual TRecordset & rivarecset(const TRecordset & mov);
|
||||
virtual const TRecordset & clirecset(const char tipocf, const long codcf);
|
||||
virtual TMask & get_mask();
|
||||
virtual const char * mask_name() const {return "tc0700a"; }
|
||||
bool test_swap(const TRecordset& mov);
|
||||
bool mov_regolarizzazione(const TRecordset& mov);
|
||||
bool mov_intra(const TRecordset& mov);
|
||||
bool mov_reverse_charge(const TRecordset& mov);
|
||||
const TString & scod2ricl(const char* tab, const TString& cod);
|
||||
const TString & scod2ricl(const char* tab, const TVariant& cod);
|
||||
const long cod2ricl(const char* tab, const TString& cod);
|
||||
const long cod2ricl(const char* tab, const TVariant& cod);
|
||||
const long bill2ricl(char t, int gr, int co, long so);
|
||||
|
||||
const TString & pag2tipo(const TVariant & codpag);
|
||||
const TString & row2cauriga(TISAM_recordset& rmov, const TCausale & caus);
|
||||
void get_pref(const TVariant & pref, TVariant & pint, TVariant & pnaz);
|
||||
const real ind2perc(const TVariant & tipodet);
|
||||
void add_cli(TISAM_recordset & cli, TIP_clienti_textset & ipcli);
|
||||
void add_forn(TISAM_recordset & forn, TIP_fornitori_textset & ipforn);
|
||||
void add_mov_cg(TISAM_recordset & mov, TIP_movimenti_textset & ipmov, const TVariant & reg_regol, const TVariant & prot_regol, const char tipo = ' ');
|
||||
void add_mov_iva(TISAM_recordset & mov, TIP_movimenti_textset & ipmov, const TVariant & reg_regol, const TVariant & prot_regol);
|
||||
void add_mov(TISAM_recordset & mov, TIP_movimenti_textset & ipmov);
|
||||
void add_scad(TISAM_recordset & mov, TIP_scadenze_textset & ipscad);
|
||||
void add_intra(TISAM_recordset & mov, TIP_intra_textset & ipintra);
|
||||
void transfer_cli(const char * path);
|
||||
void transfer_forn(const char * path);
|
||||
void transfer_mov(const char * path);
|
||||
void transfer_scad(const char * path);
|
||||
void transfer_cesp(const char * path);
|
||||
void transfer_cat(const char * path);
|
||||
void transfer_intra(const char * path);
|
||||
|
||||
protected:
|
||||
virtual bool find_regolarizzazione(TRecordset& mov);
|
||||
virtual const char * decode_causale(const TRecordset& mov);
|
||||
virtual bool test_swap(const TRecordset& mov);
|
||||
virtual bool swap_ritsoc(const TRecordset& mov);
|
||||
virtual bool mov_regolarizzazione(const TRecordset& mov);
|
||||
virtual bool mov_intra(const TRecordset& mov);
|
||||
virtual bool mov_reverse_charge(const TRecordset& mov);
|
||||
virtual long iva11_reverse(const TRecordset & mov);
|
||||
virtual bool regime_agricolo(const TRecordset& mov) const;
|
||||
|
||||
virtual TMask & get_mask();
|
||||
|
||||
public:
|
||||
virtual bool multi_activity() const { return true; }
|
||||
TAssoc_array & riclassifica() {return _riclassifica;}
|
||||
|
||||
virtual void postprocess_movs(TRecordset & mov);
|
||||
virtual void set_parameters();
|
||||
|
||||
// qui
|
||||
void log(int sev, const char* msg);
|
||||
|
||||
virtual bool create();
|
||||
virtual void main_loop();
|
||||
virtual bool destroy();
|
||||
|
||||
TIP_campo_sender() : TIP_sender(), _mask(NULL) {}
|
||||
~TIP_campo_sender() {}
|
||||
TIP_sender() : _tabelle(NULL) {}
|
||||
};
|
||||
|
||||
|
||||
|
||||
16
tc/tc2700a.h
16
tc/tc2700a.h
@ -2,9 +2,13 @@
|
||||
|
||||
#define F_CODDITTA 101
|
||||
#define F_RAGSOC 102
|
||||
#define F_MOVIMENTI 103
|
||||
#define F_INTRASTAT 104
|
||||
#define F_PATH 105
|
||||
#define F_FILE 106
|
||||
#define F_DATA_DA 107
|
||||
#define F_DATA_AL 108
|
||||
#define F_CLIENTI 103
|
||||
#define F_FORNITORI 104
|
||||
#define F_MOVIMENTI 106
|
||||
#define F_SCADENZE 107
|
||||
#define F_CESPITI 108
|
||||
#define F_CATEGORIE 109
|
||||
#define F_INTRASTAT 110
|
||||
#define F_PATH 111
|
||||
#define F_DATA_DA 112
|
||||
#define F_DATA_AL 113
|
||||
|
||||
@ -36,44 +36,64 @@ BEGIN
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 4
|
||||
GROUPBOX DLG_NULL 76 5
|
||||
BEGIN
|
||||
PROMPT 2 4 "Dati da inviare"
|
||||
PROMPT 2 5 "Dati da inviare"
|
||||
END
|
||||
|
||||
BOOLEAN F_CLIENTI
|
||||
BEGIN
|
||||
PROMPT 3 6 "Clienti"
|
||||
END
|
||||
|
||||
BOOLEAN F_FORNITORI
|
||||
BEGIN
|
||||
PROMPT 3 7 "Fornitori"
|
||||
END
|
||||
|
||||
BOOLEAN F_MOVIMENTI
|
||||
BEGIN
|
||||
PROMPT 3 5 "Movimenti contabili"
|
||||
PROMPT 3 8 "Movimenti contabili"
|
||||
END
|
||||
|
||||
BOOLEAN F_SCADENZE
|
||||
BEGIN
|
||||
PROMPT 25 6 "Scadenze"
|
||||
END
|
||||
|
||||
BOOLEAN F_CESPITI
|
||||
BEGIN
|
||||
PROMPT 25 7 "Cespiti"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BOOLEAN F_CATEGORIE
|
||||
BEGIN
|
||||
PROMPT 25 8 "Categorie"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BOOLEAN F_INTRASTAT
|
||||
BEGIN
|
||||
PROMPT 3 6 "Intrastat"
|
||||
PROMPT 50 6 "Intrastat"
|
||||
END
|
||||
|
||||
STRING F_PATH 256 39
|
||||
BEGIN
|
||||
PROMPT 2 8 "Cartella "
|
||||
PROMPT 2 11 "Cartella "
|
||||
DSELECT
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD TSDestPath
|
||||
END
|
||||
|
||||
STRING F_FILE 18
|
||||
BEGIN
|
||||
PROMPT 54 8 "File "
|
||||
FIELD TSDestFile
|
||||
END
|
||||
|
||||
|
||||
DATE F_DATA_DA
|
||||
BEGIN
|
||||
PROMPT 2 10 "Data iniz. "
|
||||
PROMPT 2 13 "Data iniz. "
|
||||
END
|
||||
|
||||
DATE F_DATA_AL
|
||||
BEGIN
|
||||
PROMPT 30 10 "Data fin. "
|
||||
PROMPT 30 13 "Data fin. "
|
||||
END
|
||||
|
||||
|
||||
|
||||
1529
tc/tc2701.cpp
1529
tc/tc2701.cpp
File diff suppressed because it is too large
Load Diff
114
tc/tc2701.h
114
tc/tc2701.h
@ -1,114 +0,0 @@
|
||||
#include <applicat.h>
|
||||
#include <recarray.h>
|
||||
#include <relation.h>
|
||||
#include <reputils.h>
|
||||
#include <textset.h>
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TRiclassifica_cache
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TIPRiclassifica_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);
|
||||
TIPRiclassifica_cache() : _multirel(LF_MULTIREL) { _multirel.setkey(2);}
|
||||
};
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TIP_sender
|
||||
///////////////////////////////////////////////////////////
|
||||
const long TSbill2ricl(char & t, int gr, int co, long so);
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TIP_sender
|
||||
///////////////////////////////////////////////////////////
|
||||
class TIP_textset;
|
||||
|
||||
class TIP_sender : public TSkeleton_application
|
||||
{
|
||||
TIPRiclassifica_cache* _tabelle;
|
||||
TAssoc_array _riclassifica;
|
||||
TIP_textset* _tsfile;
|
||||
TLog_report* _log;
|
||||
bool _errors_logged;
|
||||
TString8 _dittamulti;
|
||||
TAssoc_array _dittemulti;
|
||||
long _empty_caus;
|
||||
TArray _recsets;
|
||||
TAssoc_array _iva;
|
||||
TAssoc_array _contiiva;
|
||||
TAssoc_array _contirit;
|
||||
bool _professionista;
|
||||
bool _ventilazione;
|
||||
real _rit_acc;
|
||||
|
||||
protected:
|
||||
TRecordset * get_recset(const int logicnum) const { return (TRecordset *) _recsets.objptr(logicnum);}
|
||||
TRecordset * set_recset(const int logicnum, TRecordset * r) { _recsets.add(r, logicnum); return r;}
|
||||
TArray & recsets() { return _recsets;}
|
||||
const TString & descr2agg(const char* d);
|
||||
bool new_rec(const char* t);
|
||||
void remove_last();
|
||||
void set(const char* field, const TVariant& var);
|
||||
void set(const char* field, const TString & str) { set(field, TVariant(str)); }
|
||||
void set(const char* field, const int n) { set(field, TVariant((long)n)); }
|
||||
void set(const char* field, const char* s) { set(field, TVariant(s)); }
|
||||
void set(const char* field, const TDate& d) { set(field, TVariant(d)); }
|
||||
void set(const char* field, const real& v) { set(field, TVariant(v)); }
|
||||
|
||||
const TVariant& get(const char* field);
|
||||
void add_mov(TRecordset& mov);
|
||||
void add_clifor(char tipocf, long codcf);
|
||||
void add_header(const TRecordset& mov, const bool fullhead = true);
|
||||
void add_datiiva(const TRecordset& mov);
|
||||
void add_tot_fattura(const TRecordset& mov);
|
||||
void add_conti_ricavo_costo(const TRecordset& mov);
|
||||
void add_new_rec(const TRecordset& mov);
|
||||
void add_diversi(const TRecordset& mov, const bool moviva);
|
||||
void add_ratei_risconti(const TRecordset& mov);
|
||||
void add_ulteriori(TRecordset& mov);
|
||||
bool add_regol(TRecordset& mov, bool rec_to_add);
|
||||
bool add_optional_rec(TRecordset& mov, bool rec_to_add);
|
||||
const TString & scod2ricl(const char* tab, const TString& cod);
|
||||
const TString & scod2ricl(const char* tab, const TVariant& cod);
|
||||
const long cod2ricl(const char* tab, const TString& cod);
|
||||
const long cod2ricl(const char* tab, const TVariant& cod);
|
||||
const long bill2ricl(char & t, int gr, int co, long so, const bool header_cli = true);
|
||||
|
||||
virtual void get_citta_provincia(const TRecordset& cli, TString & dencom, TString & provcom, bool nascita = false);
|
||||
virtual const char * decode_causale(const TRecordset& mov) { return EMPTY_STRING; }
|
||||
virtual bool test_swap(const TRecordset& mov) { return false;}
|
||||
virtual bool swap_ritsoc(const TRecordset& mov) { return false;}
|
||||
virtual bool mov_regolarizzazione(const TRecordset& mov) { return false;}
|
||||
virtual bool mov_intra(const TRecordset& mov) { return false;}
|
||||
virtual bool mov_reverse_charge(const TRecordset& mov) { return false;}
|
||||
virtual long iva11_reverse(const TRecordset & mov) { return 0L;}
|
||||
bool add_iva_to_mov(const TRecordset& mov) { return mov_intra(mov) || mov_reverse_charge(mov);}
|
||||
|
||||
protected:
|
||||
virtual bool find_regolarizzazione(TRecordset& mov) {return false;}
|
||||
virtual TRecordset & movrecset() pure;
|
||||
virtual TRecordset & rmovrecset(const TRecordset & mov) pure;
|
||||
virtual TRecordset & rivarecset(const TRecordset & mov) pure;
|
||||
virtual const TRecordset & clirecset(const char tipocf, const long codcf) pure;
|
||||
virtual bool regime_agricolo(const TRecordset& mov) const { return false; }
|
||||
virtual TMask & get_mask() pure ;
|
||||
|
||||
public:
|
||||
void log(int sev, const char* msg);
|
||||
virtual bool multi_activity() const { return true; }
|
||||
virtual const TString & dittamulti(const TRecordset& mov) const ;
|
||||
TAssoc_array & riclassifica() {return _riclassifica;}
|
||||
|
||||
virtual void postprocess_movs(TRecordset & mov) {}
|
||||
virtual void set_parameters();
|
||||
virtual bool create();
|
||||
virtual void main_loop();
|
||||
virtual bool destroy();
|
||||
TIP_sender() : _tabelle(NULL), _tsfile(NULL), _log(NULL) {}
|
||||
};
|
||||
@ -1,4 +1,4 @@
|
||||
#include "tc0800a.h"
|
||||
#include "tc2800a.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
@ -94,7 +94,7 @@ BEGIN
|
||||
WARNING "Manca il conto"
|
||||
END
|
||||
|
||||
NUMBER F_CONTO 12
|
||||
NUMBER F_CONTO 3
|
||||
BEGIN
|
||||
PROMPT 2 4 "Conto "
|
||||
HELP "Codice dell'eventuale conto"
|
||||
@ -200,6 +200,7 @@ BEGIN
|
||||
OUTPUT F_IPCONTO CODTAB
|
||||
OUTPUT F_IPDESCR S0
|
||||
FIELD CODICE
|
||||
ADD RUN "TC2 -0"
|
||||
END
|
||||
|
||||
STRING F_IPDESCR 50
|
||||
@ -211,6 +212,7 @@ BEGIN
|
||||
DISPLAY "Conto IPSOA" CODTAB
|
||||
COPY OUTPUT F_IPCONTO
|
||||
CHECKTYPE SEARCH
|
||||
ADD RUN "TC2 -0"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
@ -20,7 +20,7 @@ BEGIN
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_CODTAB 3
|
||||
STRING F_CODTAB 3
|
||||
BEGIN
|
||||
PROMPT 2 2 ""
|
||||
USE LF_MULTIREL
|
||||
@ -34,7 +34,6 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" &ICA->S0
|
||||
OUTPUT F_CODTAB FIRST
|
||||
OUTPUT F_CODTAB1 FIRST
|
||||
OUTPUT F_COD_CAMPO DATA
|
||||
FIELD FIRST
|
||||
FLAGS "UZG"
|
||||
KEY 1
|
||||
@ -42,12 +41,12 @@ BEGIN
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_CODTAB1 3
|
||||
STRING F_CODTAB1 3
|
||||
BEGIN
|
||||
PROMPT 2 2 ""
|
||||
USE LF_CAUSALI
|
||||
JOIN LF_MULTIREL INTO COD=="IPCAU" FIRST==CODCAUS
|
||||
JOIN &TCA TO LF_MULTIREL INTO CODTAB==DATA
|
||||
JOIN &ICA TO LF_MULTIREL INTO CODTAB==DATA
|
||||
INPUT CODCAUS F_CODTAB1
|
||||
DISPLAY "Cod." CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
@ -74,7 +73,7 @@ BEGIN
|
||||
PROMPT 10 2 "Descrizione "
|
||||
USE LF_CAUSALI KEY 2
|
||||
JOIN LF_MULTIREL INTO COD=="TSCAU" FIRST==CODCAUS
|
||||
JOIN &TCA TO LF_MULTIREL INTO CODTAB==DATA
|
||||
JOIN &ICA TO LF_MULTIREL INTO CODTAB==DATA
|
||||
INPUT DESCR F_DESC
|
||||
DISPLAY "Descrizione@60" DESCR
|
||||
DISPLAY "Codice" CODCAUS
|
||||
@ -86,7 +85,7 @@ BEGIN
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_COD_CAMPO 4
|
||||
STRING F_COD_CAMPO 4
|
||||
BEGIN
|
||||
PROMPT 2 4 "Causale IPSOA "
|
||||
FIELD DATA
|
||||
@ -97,7 +96,7 @@ BEGIN
|
||||
OUTPUT F_COD_CAMPO CODTAB
|
||||
OUTPUT F_DESC1 S0
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "Z"
|
||||
FLAGS "ZU"
|
||||
END
|
||||
|
||||
STRING F_DESC1 50 45
|
||||
|
||||
@ -81,7 +81,7 @@ BEGIN
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_COD_CAMPO 4
|
||||
NUMBER F_COD_CAMPO 3
|
||||
BEGIN
|
||||
PROMPT 2 4 "Pagamento IPSOA "
|
||||
FIELD DATA
|
||||
|
||||
110
tc/tcipicc.uml
Executable file
110
tc/tcipicc.uml
Executable file
@ -0,0 +1,110 @@
|
||||
#include "tcts.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Condizioni di consegna" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "Condizioni di consegna Campo"
|
||||
END
|
||||
|
||||
LIST F_COD 5
|
||||
BEGIN
|
||||
PROMPT 50 50 ""
|
||||
ITEM "IPICC|IPICC"
|
||||
FIELD COD
|
||||
FLAGS "D"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_CODTAB 3
|
||||
BEGIN
|
||||
PROMPT 2 2 ""
|
||||
USE LF_MULTIREL
|
||||
JOIN %ICC INTO CODTAB==FIRST
|
||||
JOIN &IIC ALIAS 100 INTO CODTAB==DATA
|
||||
INPUT COD F_COD SELECT
|
||||
INPUT FIRST F_CODTAB
|
||||
DISPLAY "Codice" FIRST
|
||||
DISPLAY "Descrizione@60" %ICC->S0
|
||||
DISPLAY "Condizione di consegna IPSOA" DATA
|
||||
DISPLAY "Descrizione@50" 100@->S0
|
||||
OUTPUT F_CODTAB FIRST
|
||||
OUTPUT F_CODTAB1 FIRST
|
||||
OUTPUT F_COD_CAMPO DATA
|
||||
FIELD FIRST
|
||||
FLAGS "UZG"
|
||||
KEY 1
|
||||
GROUP 1
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_CODTAB1 3
|
||||
BEGIN
|
||||
PROMPT 2 2 ""
|
||||
USE %ICC
|
||||
JOIN LF_MULTIREL INTO COD=="IPICC" FIRST==CODTAB
|
||||
JOIN &IIC TO LF_MULTIREL INTO CODTAB==DATA
|
||||
INPUT CODTAB F_CODTAB1
|
||||
DISPLAY "Cod." CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Causale IPSOA" LF_MULTIREL->DATA
|
||||
DISPLAY "Descrizione@50" &IIC->S0
|
||||
OUTPUT F_CODTAB CODTAB
|
||||
OUTPUT F_CODTAB1 CODTAB
|
||||
OUTPUT F_DESC %ICC->S0
|
||||
KEY 1
|
||||
FIELD FIRST
|
||||
FLAGS "UZ"
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 10 2 "Descrizione "
|
||||
USE %ICC KEY 2
|
||||
JOIN LF_MULTIREL INTO COD=="TSICC" FIRST==CODTAB
|
||||
JOIN &IIC TO LF_MULTIREL INTO CODTAB==DATA
|
||||
INPUT S0 F_DESC
|
||||
DISPLAY "Descrizione@60" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Causale IPSOA" LF_MULTIREL->DATA
|
||||
DISPLAY "Descrizione@50" &IIC->S0
|
||||
COPY OUTPUT F_CODTAB1
|
||||
KEY 2
|
||||
GROUP 3
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_COD_CAMPO 1
|
||||
BEGIN
|
||||
PROMPT 2 4 "C.consegna IPSOA "
|
||||
USE &IIC
|
||||
FLAGS "U"
|
||||
FIELD DATA
|
||||
INPUT CODTAB F_COD_CAMPO
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@60" S0
|
||||
OUTPUT F_COD_CAMPO CODTAB
|
||||
OUTPUT F_DESC1 S0
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
STRING F_DESC1 50 45
|
||||
BEGIN
|
||||
PROMPT 27 4 ""
|
||||
USE &IIC KEY 2
|
||||
INPUT S0 F_DESC1
|
||||
DISPLAY "Descrizione@60" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_COD_CAMPO
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
@ -79,12 +79,12 @@ BEGIN
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_COD_CAMPO 4
|
||||
STRING F_COD_CAMPO 4
|
||||
BEGIN
|
||||
PROMPT 2 4 "Nazione IPSOA "
|
||||
FIELD DATA
|
||||
FLAGS "Z"
|
||||
USE &TNA
|
||||
FLAGS "U"
|
||||
USE &INA
|
||||
INPUT CODTAB F_COD_CAMPO
|
||||
DISPLAY "Cod." CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
|
||||
@ -92,7 +92,9 @@ BEGIN
|
||||
INPUT CODTAB F_COD_CAMPO
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_COD_CAMPO CODTAB
|
||||
OUTPUT F_DESC1 S0
|
||||
FLAGS "Z"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
|
||||
@ -5,11 +5,12 @@ Module = 27
|
||||
Flags = ""
|
||||
Item_01 = "TeamSystem", [TCMENU_002]
|
||||
Item_02 = "Zucchetti", [TCMENU_006]
|
||||
Item_03 = "Proforma", "tc9 -0", ""
|
||||
Item_04 = "Sispac", "tc9 -2", ""
|
||||
Item_05 = "Tabella IVA Sispac", "tc9 -3 IVA", ""
|
||||
Item_06 = "Tabella causali Sispac", "tc9 -3 CAU", ""
|
||||
Item_07 = "Semetra", "tc8 -0", ""
|
||||
Item_03 = "IPSOA", [TCMENU_010]
|
||||
Item_04 = "Proforma", "tc9 -0", ""
|
||||
Item_05 = "Sispac", "tc9 -2", ""
|
||||
Item_06 = "Tabella IVA Sispac", "tc9 -3 IVA", ""
|
||||
Item_07 = "Tabella causali Sispac", "tc9 -3 CAU", ""
|
||||
Item_08 = "Semetra", "tc8 -0", ""
|
||||
|
||||
[TCMENU_002]
|
||||
Caption = "TeamSystem"
|
||||
@ -101,7 +102,7 @@ Module = 27
|
||||
Flags = ""
|
||||
Item_01 = "Trasferimento", "tc2 -6", ""
|
||||
Item_02 = "Tabelle di riclassificazione", [TCMENU_011]
|
||||
Item_03 = "Tabelle TeamSystem", [TCMENU_012]
|
||||
Item_03 = "Tabelle IPSOA", [TCMENU_012]
|
||||
Item_04 = "Configurazione modulo", [TCMENU_013]
|
||||
|
||||
[TCMENU_011]
|
||||
@ -116,7 +117,8 @@ Item_04 = "Registri", "tc2 -4 REG", ""
|
||||
Item_05 = "Codici IVA", "tc2 -4 IVA", ""
|
||||
Item_06 = "Valute", "tc2 -4 VAL", ""
|
||||
Item_07 = "Attività", "tc2 -4 ATT", ""
|
||||
Item_08 = "Piano dei conti", "tc2 -7", ""
|
||||
Item_08 = "Condizioni di consegna", "tc2 -4 ICC", ""
|
||||
Item_09 = "Piano dei conti", "tc2 -7", ""
|
||||
|
||||
[TCMENU_012]
|
||||
Caption = "Tabelle IPSOA"
|
||||
@ -131,6 +133,7 @@ Item_05 = "Codici IVA", "tc2 -0 &IIV", ""
|
||||
Item_06 = "Valute", "tc2 -0 &IVL", ""
|
||||
Item_07 = "Attività", "tc2 -0 &IAT", ""
|
||||
Item_08 = "Piano dei conti", "tc2 -0 &ICO", ""
|
||||
Item_09 = "Condizioni di consegna", "tc2 -0 &IIC", ""
|
||||
|
||||
[TCMENU_013]
|
||||
Caption = "Configurazione modulo"
|
||||
|
||||
@ -11,7 +11,7 @@ BEGIN
|
||||
PROMPT 1 1 "Codice Causale IPSOA"
|
||||
END
|
||||
|
||||
NUMBER F_CODTAB 4
|
||||
STRING F_CODTAB 4
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
USE &ICA
|
||||
@ -22,8 +22,7 @@ BEGIN
|
||||
OUTPUT F_DESC S0
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODTAB
|
||||
FLAGS "Z"
|
||||
VALIDATE FIXLEN_FUNC 4
|
||||
FLAGS "ZU"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
|
||||
2
tc/tctbiic.h
Executable file
2
tc/tctbiic.h
Executable file
@ -0,0 +1,2 @@
|
||||
#define F_CODTAB 100
|
||||
#define F_DESC 101
|
||||
45
tc/tctbiic.uml
Executable file
45
tc/tctbiic.uml
Executable file
@ -0,0 +1,45 @@
|
||||
#include "tctbiic.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Condizioni di consegna" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "Condizione di consegna IPSOA"
|
||||
END
|
||||
|
||||
STRING F_CODTAB 1
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
USE &IIC
|
||||
INPUT CODTAB F_CODTAB
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@60" S0
|
||||
OUTPUT F_CODTAB CODTAB
|
||||
OUTPUT F_DESC S0
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "U"
|
||||
FIELD CODTAB
|
||||
KEY 1
|
||||
END
|
||||
|
||||
|
||||
STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 2 5 "Descrizione "
|
||||
USE &IIC KEY 2
|
||||
INPUT S0 F_DESC
|
||||
DISPLAY "Descrizione@60" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_CODTAB
|
||||
FIELD S0
|
||||
KEY 2
|
||||
CHECKTYPE NORMMAL
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
@ -11,7 +11,7 @@ BEGIN
|
||||
PROMPT 1 1 "Codice Nazione IPSOA"
|
||||
END
|
||||
|
||||
NUMBER F_CODTAB 4
|
||||
STRING F_CODTAB 4
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
USE &INA
|
||||
@ -22,7 +22,7 @@ BEGIN
|
||||
OUTPUT F_DESC S0
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODTAB
|
||||
FLAGS "Z"
|
||||
FLAGS "ZU"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
|
||||
@ -23,6 +23,7 @@ BEGIN
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODTAB
|
||||
VALIDATE FIXLEN_FUNC 2
|
||||
FLAGS "Z"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
|
||||
@ -22,6 +22,7 @@ BEGIN
|
||||
OUTPUT F_DESC S0
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODTAB
|
||||
FLAGS "U"
|
||||
VALIDATE FIXLEN_FUNC 3
|
||||
KEY 1
|
||||
END
|
||||
|
||||
@ -20,7 +20,7 @@ BEGIN
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_CODTAB 3
|
||||
STRING F_CODTAB 3
|
||||
BEGIN
|
||||
PROMPT 2 2 ""
|
||||
USE LF_MULTIREL
|
||||
@ -42,7 +42,7 @@ BEGIN
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_CODTAB1 3
|
||||
STRING F_CODTAB1 3
|
||||
BEGIN
|
||||
PROMPT 2 2 ""
|
||||
USE LF_CAUSALI
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user