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

Patch level : 10.0 424

Browse Source 
Files correlati     : tc0.exe
Ricompilazione Demo : [ ]
Commento

Ristrutturate  le tabelle di conversione per Teamsystem


git-svn-id: svn://10.65.10.50/trunk@19330 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2009-09-24 13:31:52 +00:00
parent cb7292758d
commit be94adbc11
37 changed files with 2472 additions and 458 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tc/tc0.cpp
View File

@ -8,13 +8,14 @@ int main(int argc, char** argv)
switch (op)
{
// case 1: tc0200(argc,argv); break;
case 2: tc0300(argc,argv); break; // parametri ditta TeamSystem
case 2: tc0300(argc,argv); break; // parametri ditta
// case 3: tc0400(argc,argv); break;
case 4: tc0500(argc,argv); break; //gestore tabelle multirel
case 5: tc0600(argc,argv); break; //importazione PCon, Cuas, CodIVA
case 6: tc0700(argc,argv); break; //esportazione contabilita' a TeamSystem
case 7: tc0800(argc,argv); break; // Riclassificazione conti TeamSystem
default: ; // tc0100(argc,argv); break;
// case 8: tc0900(argc,argv); break; // esportazione contabilita' a TeamSystem dat transfer AS400
default: ; tc0100(argc,argv); break;
}
exit(0);
return 0;

2
tc/tc0.h
View File

@ -1,11 +1,13 @@
#ifndef __TC0_H
#define __TC0_H
int tc0100(int argc, char* argv[]);
int tc0300(int argc, char* argv[]);
int tc0500(int argc, char* argv[]);
int tc0600(int argc, char* argv[]);
int tc0700(int argc, char* argv[]);
int tc0800(int argc, char* argv[]);
int tc0900(int argc, char* argv[]);
#endif // __TC0_H

51
tc/tc0100.cpp
View File

@ -1,6 +1,55 @@
#include "tc0.h"
// gestione tabelle Zucchetti
#include <modaut.h>
#include <modtbapp.h>
#include <tabutil.h>
// applicazione per la gestione delle tabelle di magazzino
class Tab_app_teamsystem : public TTable_module_application
{
protected: // TRelation_application
virtual bool user_create() ;
public:
Tab_app_teamsystem() {}
virtual ~Tab_app_teamsystem() {}
};
HIDDEN inline Tab_app_teamsystem& app() { return (Tab_app_teamsystem&)main_app(); }
bool Tab_app_teamsystem::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 tc0100(int argc, char **argv)
{
return 0;
Tab_app_teamsystem a;
a.run(argc, argv, TR("Tabella"));
return 0;
}

47
tc/tc0500.cpp
View File

@ -5,17 +5,22 @@
class TTeamSystem_multirel_app : public TMultirel_application
{
bool _use_tab;
protected:
virtual void set_descr(TMask & m, const TString & desc);
virtual void get_mask_name(TString& tabname) const;
//magico metodo per impedire la navigazione su tabelle diverse da quella corrente del cursore
virtual bool has_filtered_cursor() const { return true; }
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);
virtual bool user_create();
public:
TTeamSystem_multirel_app() {}
TTeamSystem_multirel_app() : _use_tab(true) {}
virtual ~TTeamSystem_multirel_app() {}
};
@ -30,6 +35,40 @@ void TTeamSystem_multirel_app::get_mask_name(TString& tabname) const
tabname.overwrite("ts", 2);
}
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);
}
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);
}
void TTeamSystem_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 TTeamSystem_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 TTeamSystem_multirel_app::user_create()
{
bool ok = TMultirel_application::user_create();
@ -37,11 +76,11 @@ bool TTeamSystem_multirel_app::user_create()
if (ok)
{
TConfig config(CONFIG_DITTA);
const bool use_pcn = config.get_bool("TSUSECMTAB");
_use_tab = config.get_bool("TSUSECMTAB");
TMask & m = *get_mask();
m.show(-10, use_pcn);
m.show(-20, !use_pcn);
m.show(-10, _use_tab);
m.show(-20, !_use_tab);
set_search_field(F_CODTAB);
}
return ok;

9
tc/tc0701.cpp
View File

@ -41,11 +41,10 @@ TObject* TRiclassifica_cache::key2obj(const char* key)
tok.get(0,tab);
tok.get(1, cod);
_multirel.put(MULTI_COD, tab);
_multirel.put(MULTI_FIRST, "");
_multirel.put(MULTI_SECOND, cod);
int err = _multirel.read(_isgteq);
if (err == NOERR && _multirel.get(MULTI_SECOND) == cod)
return new TString(_multirel.get(MULTI_FIRST));
_multirel.put(MULTI_FIRST, cod);
_multirel.zero(MULTI_SECOND);
if (_multirel.read() == NOERR)
return new TString(_multirel.get(MULTI_DATA));
return NULL;
}

136
tc/tc0800.cpp
View File

@ -23,25 +23,6 @@ bool TTS_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;
@ -58,12 +39,9 @@ class TTSRiclass_application : public TRelation_application
TMask* _msk;
// @cmember:(INTERNAL) Relazione corrente dell'applicazione
TRelation* _rel;
// @cmember:(INTERNAL) valori iniziale dei gruppo conto sottoconto
int _gruppo;
int _conto;
long _sottoconto;
bool _use_pcn;
// @access Protected Member
// @access Protected Member
protected:
virtual TMask* get_mask(int mode = MODE_QUERY) { CHECK(_msk, "Null mask"); return _msk; }
// @cmember Indica se la futura <mf Tab_application::get_mask> ritornera' una maschera diversa
@ -71,6 +49,10 @@ protected:
virtual bool changing_mask(int mode) { return false; }
// @cmember Ritorna la relazione da modificare
virtual TRelation* get_relation() const { CHECK(_rel, "Null relation"); return _rel; }
// @cmember Inizializza la maschera per il modo ricerca
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) ;
// @cmember Inizializza la maschera per il modo inserimento
virtual void init_insert_mode(TMask& m);
// @cmember Inizializza la maschera per il modo modifica
@ -81,8 +63,6 @@ protected:
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:
@ -106,74 +86,46 @@ void TTSRiclass_application::print()
stampa.run();
}
void TTSRiclass_application::init_insert_mode(TMask& m)
void TTSRiclass_application::init_query_mode(TMask& m)
{
TLocalisamfile ricl(LF_RICLPDC);
ricl.put("TIPORIC", m.get(F_COD));
TString codice(m.get(F_TSGRUPPO));
codice << m.get(F_TSCONTO);
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();
}
}
TRelation_application::init_query_mode(m);
m.show(-1);
m.hide(-2);
m.disable(-3);
m.show(-10, _use_pcn);
m.show(-20, !_use_pcn);
}
void TTSRiclass_application::init_modify_mode(TMask& m)
void TTSRiclass_application::init_query_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();
}
}
_gruppo = m.get_int(F_GRUPPO);
_conto = m.get_int(F_CONTO);
_sottoconto = m.get_long(F_SOTTOCONTO);
TRelation_application::init_query_insert_mode(m);
m.hide(-1);
m.show(-2);
m.enable(-3);
m.show(-10, _use_pcn);
m.show(-20, !_use_pcn);
}
int TTSRiclass_application::rewrite(const TMask& m)
void TTSRiclass_application::init_modify_mode(TMask& m)
{
int err = TRelation_application::rewrite(m);
TRelation_application::init_modify_mode(m);
m.show(-1);
m.disable(-1);
m.hide(-2);
m.disable(-3);
m.show(-10, _use_pcn);
m.show(-20, !_use_pcn);
}
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;
void TTSRiclass_application::init_insert_mode(TMask& m)
{
TRelation_application::init_insert_mode(m);
m.show(-1);
m.disable(-1);
m.hide(-2);
m.disable(-3);
m.show(-10, _use_pcn);
m.show(-20, !_use_pcn);
}
bool TTSRiclass_application::user_create()
@ -181,13 +133,13 @@ bool TTSRiclass_application::user_create()
_rel = new TRelation(LF_RICLPDC);
_msk = new TTS_ricl_msk;
set_search_field(F_TSSOTTOCONTO);
TConfig config(CONFIG_DITTA);
const bool use_pcn = config.get_bool("TSUSECMPCN");
_use_pcn = config.get_bool("TSUSECMPCN");
_msk->show(-10, _use_pcn);
_msk->show(-20, !_use_pcn);
set_search_field(_use_pcn ? F_SOTTOCONTO : F_SOTTOCONTO1);
_msk->show(-10, use_pcn);
_msk->show(-20, !use_pcn);
TFilename rep("tctsricl.rep");
@ -217,7 +169,7 @@ int tc0800(int argc, char* argv[])
{
TTSRiclass_application a;
a.run(argc, argv, TR("Riclassificazione piano dei conto Team System"));
a.run(argc, argv, TR("Riclassificazione piano dei conti Team System"));
return 0;
}

5
tc/tc0800a.h
View File

@ -10,7 +10,10 @@
#define F_SOTTOCONTO 108
#define F_DESCG 109
#define F_DESCC 110
#define F_DESC 111
#define F_TSDESCR 111
#define F_GRUPPO1 112
#define F_CONTO1 113
#define F_SOTTOCONTO1 114
#define F_GRUPPO2 115
#define F_CONTO2 116
#define F_SOTTOCONTO2 117

188
tc/tc0800a.uml
View File

@ -15,84 +15,41 @@ BEGIN
KEY 1
END
GROUPBOX DLG_NULL 78 4
GROUPBOX DLG_NULL 78 8
BEGIN
PROMPT 1 1 "Conto Teamsystem"
PROMPT 1 1 "Conto Campo"
END
STRING F_TSGRUPPO 2
NUMBER F_GRUPPO2 3
BEGIN
PROMPT 2 2 "Gruppo "
PROMPT 2 2 "Gruppo "
HELP "Codice del gruppo"
FIELD GRUPPO
USE LF_RICLPDC
JOIN LF_PCON INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
INPUT TIPORIC F_COD SELECT
INPUT CODICE[1,2] F_TSGRUPPO
INPUT CODICE[3,4] F_TSCONTO
INPUT CODICE[5,9] F_TSSOTTOCONTO
DISPLAY "Gruppo TS" CODICE[1,2]
DISPLAY "Conto TS" CODICE[3,4]
DISPLAY "Sotoconto TS" CODICE[5,7]
DISPLAY "Descrizione@50" DESCRIZ
INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO
INPUT SOTTOCONTO F_SOTTOCONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
OUTPUT F_TSGRUPPO CODICE[1,2]
OUTPUT F_TSCONTO CODICE[3,4]
OUTPUT F_TSSOTTOCONTO CODICE[5,7]
DISPLAY "Descrizione@50" DESCRIZ
DISPLAY "Gruppo TS" CODICE[1,2]
DISPLAY "Conto TS" CODICE[3,4]
DISPLAY "Sottoconto TS" CODICE[5,7]
OUTPUT F_DESCRIZ DESCRIZ
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_GRUPPO1 GRUPPO
OUTPUT F_CONTO1 CONTO
OUTPUT F_SOTTOCONTO1 SOTTOCONTO
CHECKTYPE REQUIRED
VALIDATE FIXLEN_FUNC 2
FIELD CODICE[1,2]
KEY 1
END
STRING F_TSCONTO 2
BEGIN
PROMPT 19 2 "Conto "
COPY ALL F_TSGRUPPO
CHECKTYPE REQUIRED
FIELD CODICE[3,4]
VALIDATE FIXLEN_FUNC 2
KEY 1
END
STRING F_TSSOTTOCONTO 3
BEGIN
PROMPT 30 2 "Sottoconto "
COPY ALL F_TSGRUPPO
CHECKTYPE REQUIRED
FIELD CODICE[5,7]
VALIDATE FIXLEN_FUNC 3
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 "Gruppo TS" CODICE[1,2]
DISPLAY "Conto TS" CODICE[3,4]
DISPLAY "Sotoconto TS" CODICE[5,7]
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_TSGRUPPO
FIELD DESCRIZ
KEY 2
GROUP 2
CHECKTYPE REQUIRED
END
NUMBER F_GRUPPO 3
BEGIN
PROMPT 2 6 "Gruppo "
PROMPT 2 2 "Gruppo "
HELP "Codice del gruppo"
FIELD GRUPPO
KEY 1
@ -103,12 +60,12 @@ BEGIN
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_DESCG DESCR
CHECKTYPE NORMAL
CHECKTYPE REQUIRED
END
NUMBER F_GRUPPO1 3
BEGIN
PROMPT 2 6 "Gruppo "
PROMPT 2 2 "Gruppo "
FIELD GRUPPO
KEY 1
GROUP 1 20
@ -117,14 +74,26 @@ END
STRING F_DESCG 50
BEGIN
PROMPT 24 6 ""
PROMPT 24 2 ""
FLAGS "D"
GROUP 10
END
NUMBER F_CONTO2 3
BEGIN
PROMPT 2 4 "Conto "
HELP "Codice dell'eventuale conto"
FIELD CONTO
COPY ALL F_GRUPPO
KEY 1
GROUP 2
CHECKTYPE REQUIRED
WARNING "Manca il conto"
END
NUMBER F_CONTO 3
BEGIN
PROMPT 2 8 "Conto "
PROMPT 2 4 "Conto "
HELP "Codice dell'eventuale conto"
FIELD CONTO
KEY 1
@ -138,14 +107,13 @@ BEGIN
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_DESCC DESCR
CHECKTYPE NORMAL
VALIDATE REQIF_FUNC 1 F_SOTTOCONTO
CHECKTYPE REQUIRED
WARNING "Manca il conto"
END
NUMBER F_CONTO1 3
BEGIN
PROMPT 2 8 "Conto "
PROMPT 2 4 "Conto "
HELP "Codice dell'eventuale conto"
FIELD CONTO
FLAGS "H"
@ -155,14 +123,25 @@ END
STRING F_DESCC 50
BEGIN
PROMPT 24 8 ""
PROMPT 24 4 ""
FLAGS "D"
GROUP 10
END
NUMBER F_SOTTOCONTO2 6
BEGIN
PROMPT 2 6 "Sottoconto "
HELP "Codice dell'eventuale sottoconto"
FIELD SOTTOCONTO
COPY ALL F_GRUPPO
KEY 1
GROUP 2
CHECKTYPE REQUIRED
END
NUMBER F_SOTTOCONTO 6
BEGIN
PROMPT 2 10 "Sottoconto "
PROMPT 2 6 "Sottoconto "
HELP "Codice dell'eventuale sottoconto"
FIELD SOTTOCONTO
KEY 1
@ -179,12 +158,12 @@ BEGIN
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_DESC DESCR
CHECKTYPE NORMAL
CHECKTYPE REQUIRED
END
NUMBER F_SOTTOCONTO1 6
BEGIN
PROMPT 2 10 "Sottoconto "
PROMPT 2 6 "Sottoconto "
HELP "Codice dell'eventuale sottoconto"
FIELD SOTTOCONTO
KEY 1
@ -192,21 +171,72 @@ BEGIN
FLAGS "H"
END
STRING F_DESC 50
STRING F_DESCRIZ 50
BEGIN
PROMPT 24 10 ""
PROMPT 2 8 "Descrizione "
USE LF_PCON KEY 2
INPUT DESCR F_DESC
INPUT DESCR F_DESCRIZ
DISPLAY "Descrizione@50" DESCR
DISPLAY "Sosp." SOSPESO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCONTO
COPY OUTPUT F_SOTTOCONTO
KEY 2
CHECKTYPE REQUIRED
END
STRING F_TSGRUPPO 2
BEGIN
PROMPT 2 10 "Gruppo "
CHECKTYPE REQUIRED
USE &TCO
INPUT CODTAB[1,2] F_TSGRUPPO
INPUT CODTAB[3,4] F_TSCONTO
INPUT CODTAB[5,7] F_TSSOTTOCONTO
DISPLAY "Gruppo" CODTAB[1,2]
DISPLAY "Conto" CODTAB[3,4]
DISPLAY "Sottoconto" CODTAB[5,7]
DISPLAY "Descrizione@60" S0
OUTPUT F_TSGRUPPO CODTAB[1,2]
OUTPUT F_TSCONTO CODTAB[3,4]
OUTPUT F_TSSOTTOCONTO CODTAB[5,7]
OUTPUT F_TSDESCR S0
VALIDATE FIXLEN_FUNC 2
FIELD CODICE[1,2]
KEY 1
END
STRING F_TSCONTO 2
BEGIN
PROMPT 19 10 "Conto "
COPY ALL F_TSGRUPPO
CHECKTYPE REQUIRED
FIELD CODICE[3,4]
VALIDATE FIXLEN_FUNC 2
KEY 1
END
STRING F_TSSOTTOCONTO 3
BEGIN
PROMPT 30 10 "Sottoconto "
COPY ALL F_TSGRUPPO
CHECKTYPE REQUIRED
FIELD CODICE[5,7]
VALIDATE FIXLEN_FUNC 3
KEY 1
END
STRING F_TSDESCR 50
BEGIN
PROMPT 2 12 "Descrizione "
USE &TCO
INPUT S0 F_TSGRUPPO
DISPLAY "Descrizione@60" S0
DISPLAY "Gruppo" CODTAB[1,2]
DISPLAY "Conto" CODTAB[3,4]
DISPLAY "Sottoconto" CODTAB[5,7]
COPY OUTPUT F_TSGRUPPO
CHECKTYPE NORMAL
HELP "Descrizione del gruppo o del conto o del sottoconto"
WARNING "Descrizione mancante"
GROUP 10
END
ENDPAGE

3
tc/tc1200.cpp
View File

@ -1,5 +1,4 @@
// gestione tabelle di magazzino
// gestione tabelle Zucchetti
#include <modaut.h>
#include <modtbapp.h>
#include <tabutil.h>

29
tc/tcmenu.men
View File

@ -4,7 +4,7 @@ Picture = <cg01>
Module = 27
Flags = ""
Item_01 = "TeamSystem", [TCMENU_002]
Item_02 = "Zucchetti", [TCMENU_005]
Item_02 = "Zucchetti", [TCMENU_006]
Item_03 = "Proforma", "tc9 -0", ""
Item_04 = "Sispac", "tc9 -2", ""
Item_05 = "Tabella IVA Sispac", "tc9 -3 IVA", ""
@ -20,7 +20,8 @@ Item_01 = "Trasferimento", "tc0 -6", ""
Item_02 = "Importazione documenti", "tc0 -8", ""
Item_03 = "Importazione causali,p.d.c.,cod.iva", "tc0 -5", ""
Item_04 = "Tabelle di riclassificazione", [TCMENU_003]
Item_05 = "Configurazione modulo", [TCMENU_004]
Item_04 = "Tabelle TeamSystem", [TCMENU_004]
Item_05 = "Configurazione modulo", [TCMENU_005]
[TCMENU_003]
Caption = "Tabelle di riclassificazione"
@ -37,22 +38,36 @@ Item_07 = "Valute", "tc0 -4 VAL", ""
Item_08 = "Piano dei conti", "tc0 -7", ""
[TCMENU_004]
Caption = "Tabelle TeamSystem"
Picture = <cg01>
Module = 27
Flags = ""
Item_01 = "Causali", "tc0 -0 &TCA", ""
Item_02 = "Condizioni di pagamento", "tc0 -0 &TPG", ""
Item_03 = "Stati esteri", "tc0 -0 &TNA", ""
Item_04 = "Registri", "tc0 -0 &TRE", ""
Item_05 = "Codici IVA", "tc0 -0 &TIV", ""
Item_06 = "Codici IVA 11", "tc0 -0 &T11", ""
Item_07 = "Valute", "tc0 -0 &TVA", ""
Item_08 = "Piano dei conti", "tc0 -0 &TCO", ""
[TCMENU_005]
Caption = "Configurazione modulo"
Picture = <cg01>
Module = 27
Flags = ""
Item_01 = "Parametri ditta", "tc0 -2", ""
[TCMENU_005]
[TCMENU_006]
Caption = "Zucchetti"
Picture = <cg01>
Module = 27
Flags = ""
Item_01 = "Tabelle Zucchetti", [TCMENU_006]
Item_02 = "Tabelle di Riclassificazione", [TCMENU_007]
Item_01 = "Tabelle Zucchetti", [TCMENU_007]
Item_02 = "Tabelle di Riclassificazione", [TCMENU_008]
Item_03 = "Trasferimento", "tc1 -0", ""
[TCMENU_006]
[TCMENU_007]
Caption = "Tabelle Zucchetti"
Picture = <cg01>
Module = 27
@ -61,7 +76,7 @@ Item_01 = "Banche", "tc1 -1 &ZBA", ""
Item_02 = "Causali", "tc1 -1 &ZCA", ""
Item_03 = "Codici IVA", "tc1 -1 &ZIV", ""
[TCMENU_007]
[TCMENU_008]
Caption = "Tabelle di Riclassificazione"
Picture = <cg01>
Module = 27

2
tc/tctbt11.h Executable file
View File

@ -0,0 +1,2 @@
#define F_CODTAB 102
#define F_DESC 103

44
tc/tctbt11.uml Executable file
View File

@ -0,0 +1,44 @@
#include "tctbt11.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "IVA 11" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Codice IVA 11 TeamSystem"
END
NUMBER F_CODTAB 2
BEGIN
PROMPT 2 2 "Codice "
USE &T11
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@60" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FIELD CODTAB
FLAGS "Z"
KEY 1
END
STRING F_DESC 50
BEGIN
PROMPT 2 5 "Descrizione "
USE &T11 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/tctbtca.h Executable file
View File

@ -0,0 +1,2 @@
#define F_CODTAB 102
#define F_DESC 103

45
tc/tctbtca.uml Executable file
View File

@ -0,0 +1,45 @@
#include "tctbtca.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 "Codice Causale TeamSystem"
END
NUMBER F_CODTAB 3
BEGIN
PROMPT 2 2 "Codice "
USE &TCA
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@60" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FIELD CODTAB
FLAGS "Z"
VALIDATE FIXLEN_FUNC 3
KEY 1
END
STRING F_DESC 50
BEGIN
PROMPT 2 5 "Descrizione "
USE &TCA 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

4
tc/tctbtco.h Executable file
View File

@ -0,0 +1,4 @@
#define F_CODTAB 102
#define F_CODTAB1 103
#define F_CODTAB2 104
#define F_DESC 105

70
tc/tctbtco.uml Executable file
View File

@ -0,0 +1,70 @@
#include "tctbtco.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 "Codice Conto TeamSystem"
END
STRING F_CODTAB 2
BEGIN
PROMPT 2 2 "Gruppo "
USE &TCO
INPUT CODTAB[1,2] F_CODTAB
INPUT CODTAB[3,4] F_CODTAB1
INPUT CODTAB[5,7] F_CODTAB2
DISPLAY "Gruppo" CODTAB[1,2]
DISPLAY "Conto" CODTAB[3,4]
DISPLAY "Sottoconto" CODTAB[5,7]
DISPLAY "Descrizione@60" S0
OUTPUT F_CODTAB CODTAB[1,2]
OUTPUT F_CODTAB1 CODTAB[3,4]
OUTPUT F_CODTAB2 CODTAB[5,7]
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FIELD CODTAB[1,2]
VALIDATE FIXLEN_FUNC 2
KEY 1
END
STRING F_CODTAB1 2
BEGIN
PROMPT 20 2 "Conto "
COPY ALL F_CODTAB
CHECKTYPE SEARCH
FIELD CODTAB[3,4]
VALIDATE FIXLEN_FUNC 2
KEY 1
END
STRING F_CODTAB2 3
BEGIN
PROMPT 30 2 "Sottoconto "
COPY ALL F_CODTAB
CHECKTYPE SEARCH
FIELD CODTAB[5,7]
VALIDATE FIXLEN_FUNC 3
KEY 1
END
STRING F_DESC 50
BEGIN
PROMPT 2 5 "Descrizione "
USE &TcCO 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/tctbtiv.h Executable file
View File

@ -0,0 +1,2 @@
#define F_CODTAB 102
#define F_DESC 103

44
tc/tctbtiv.uml Executable file
View File

@ -0,0 +1,44 @@
#include "tctbtiv.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 TeamSystem"
END
NUMBER F_CODTAB 3
BEGIN
PROMPT 2 2 "Codice "
USE &TIV
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@60" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FIELD CODTAB
FLAGS "Z"
KEY 1
END
STRING F_DESC 50
BEGIN
PROMPT 2 5 "Descrizione "
USE &TIV 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/tctbtna.h Executable file
View File

@ -0,0 +1,2 @@
#define F_CODTAB 102
#define F_DESC 103

44
tc/tctbtna.uml Executable file
View File

@ -0,0 +1,44 @@
#include "tctbtpg.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Nazioni" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Codice Nazione TeamSystem"
END
NUMBER F_CODTAB 4
BEGIN
PROMPT 2 2 "Codice "
USE &TNA
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@60" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FIELD CODTAB
FLAGS "Z"
KEY 1
END
STRING F_DESC 50
BEGIN
PROMPT 2 5 "Descrizione "
USE &TNA 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/tctbtoc.h Executable file
View File

@ -0,0 +1,2 @@
#define F_CODTAB 102
#define F_DESC 103

2
tc/tctbtpg.h Executable file
View File

@ -0,0 +1,2 @@
#define F_CODTAB 102
#define F_DESC 103

44
tc/tctbtpg.uml Executable file
View File

@ -0,0 +1,44 @@
#include "tctbtpg.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Condizioni di pagamento" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Codice Pagamento TeamSystem"
END
NUMBER F_CODTAB 4
BEGIN
PROMPT 2 2 "Codice "
USE &TPG
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@60" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FIELD CODTAB
FLAGS "Z"
KEY 1
END
STRING F_DESC 50
BEGIN
PROMPT 2 5 "Descrizione "
USE &TPG 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

4
tc/tctbtre.h Executable file
View File

@ -0,0 +1,4 @@
#define F_TIPO 101
#define F_CODTAB 102
#define F_DESC 103

56
tc/tctbtre.uml Executable file
View File

@ -0,0 +1,56 @@
#include "tctbtre.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Registri" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Codice Registro TeamSystem"
END
LIST F_TIPO 1 13
BEGIN
PROMPT 2 2 "Tipo "
ITEM "A|Acquisti"
ITEM "C|Corrispettivi"
ITEM "V|Vendite"
FIELD CODTAB[1,1]
END
STRING F_CODTAB 2
BEGIN
PROMPT 25 2 "Codice "
USE &TRE
INPUT CODTAB[1,1] F_TIPO
INPUT CODTAB[2,3] F_CODTAB
DISPLAY "Tipo" CODTAB[1,1]
DISPLAY "Codice" CODTAB[2,3]
DISPLAY "Descrizione@60" S0
OUTPUT F_TIPO CODTAB[1,1]
OUTPUT F_CODTAB CODTAB[2,3]
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FIELD CODTAB[2,3]
FLAGS "Z"
KEY 1
END
STRING F_DESC 50
BEGIN
PROMPT 2 5 "Descrizione "
USE &TRE 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/tctbtva.h Executable file
View File

@ -0,0 +1,2 @@
#define F_CODTAB 102
#define F_DESC 103

44
tc/tctbtva.uml Executable file
View File

@ -0,0 +1,44 @@
#include "tctbt11.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Valute" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Codice Valuta TeamSystem"
END
STRING F_CODTAB 3
BEGIN
PROMPT 2 2 "Codice "
USE &TVA
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 &TVA 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

15
tc/tcts.h
View File

@ -1,9 +1,10 @@
#define F_COD 101
#define F_CODTAB 102
#define F_DESC 103
#define F_COD_CAMPO 104
#define F_ANNO 105
#define F_TIPO 106
#define F_TIPOREG 107
#define F_CORRISP 108
#define F_COD_CAMPO1 109
#define F_CODTAB1 103
#define F_DESC 105
#define F_COD_CAMPO 106
#define F_ANNO 107
#define F_TIPO 108
#define F_TIPOREG 109
#define F_CORRISP 110
#define F_DESC1 111

92
tc/tctscau.uml
View File

@ -8,7 +8,7 @@ PAGE "Causali" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Causale Teamsystem"
PROMPT 1 1 "Causale Campo"
END
LIST F_COD 5
@ -24,43 +24,27 @@ 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" DATA
DISPLAY "Causale Collegata" SECOND
DISPLAY "Descrizione@60" LF_CAUSALI->DESCR
DISPLAY "Causale Teamsystem" DATA
OUTPUT F_CODTAB FIRST
OUTPUT F_DESC DATA
OUTPUT F_COD_CAMPO SECOND
OUTPUT F_COD_CAMPO1 SECOND
CHECKTYPE REQUIRED
OUTPUT F_DESC LF_CAUSALI->DESCR
OUTPUT F_COD_CAMPO DATA
FIELD FIRST
FLAGS "Z"
KEY 1
FLAGS "UZG"
KEY 1
GROUP 1
CHECKTYPE REQUIRED
END
STRING F_DESC 50
NUMBER F_CODTAB1 3
BEGIN
PROMPT 10 2 "Descrizione "
USE LF_MULTIREL KEY 2
INPUT COD F_COD SELECT
INPUT DATA F_DESC
DISPLAY "Descrizione@60" DATA
DISPLAY "Codice" FIRST
DISPLAY "Causale Collegata" SECOND
COPY OUTPUT F_CODTAB
FIELD DATA
KEY 3
CHECKTYPE REQUIRED
END
STRING F_COD_CAMPO 3
BEGIN
PROMPT 2 4 "Causale collegata "
FIELD SECOND
FLAGS "UZ"
PROMPT 2 2 ""
USE LF_CAUSALI
INPUT CODCAUS F_COD_CAMPO
INPUT CODCAUS F_CODTAB1
DISPLAY "Cod." CODCAUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Documento" TIPODOC
@ -69,19 +53,51 @@ BEGIN
DISPLAY "Inc./Pag." CODCAUSIM
DISPLAY "770" M770
DISPLAY "Cespiti" COLLCESP
OUTPUT F_COD_CAMPO CODCAUS
OUTPUT F_CODTAB CODCAUS
OUTPUT F_CODTAB1 CODCAUS
OUTPUT F_DESC LF_CAUSALI->DESCR
KEY 1
CHECKTYPE NORMAL
GROUP 1 10
FIELD FIRST
FLAGS "UZ"
CHECKTYPE REQUIRED
GROUP 2
END
STRING F_COD_CAMPO1 3
STRING F_DESC 50
BEGIN
PROMPT 2 4 "Causale collegata "
FIELD SECOND
FLAGS "UH"
KEY 1
GROUP 1 20
PROMPT 10 2 "Descrizione "
USE LF_CAUSALI
INPUT DESCR F_DESC
DISPLAY "Descrizione@60" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT F_CODTAB1
KEY 2
GROUP 3
CHECKTYPE REQUIRED
END
NUMBER F_COD_CAMPO 3
BEGIN
PROMPT 2 4 "Causale Teamsystem"
FIELD DATA
USE &TCA
INPUT CODTAB F_COD_CAMPO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@60" S0
OUTPUT F_COD_CAMPO CODTAB
OUTPUT F_DESC1 S0
CHECKTYPE REQUIRED
FLAGS "Z"
END
STRING F_DESC1 50 45
BEGIN
PROMPT 27 4 ""
USE &TCA KEY 2
INPUT S0 F_DESC1
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_COD_CAMPO
END
ENDPAGE

78
tc/tctscdp.uml
View File

@ -7,7 +7,7 @@ ENDPAGE
PAGE "Condizioni di pagamento" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Condizione di pagamento TeamSystem"
PROMPT 1 1 "Condizione di pagamento Campo"
END
LIST F_COD 5
@ -23,58 +23,76 @@ NUMBER F_CODTAB 4
BEGIN
PROMPT 2 2 ""
USE LF_MULTIREL
JOIN %CPG INTO CODTAB==FIRST
INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB
DISPLAY "Codice" FIRST
DISPLAY "Descrizione@60" DATA
DISPLAY "Condizione collegata" SECOND
DISPLAY "Descrizione@60" %CPG->S0
DISPLAY "Condizione TeamSystem" DATA
OUTPUT F_CODTAB FIRST
OUTPUT F_DESC DATA
OUTPUT F_COD_CAMPO SECOND
OUTPUT F_COD_CAMPO1 SECOND
OUTPUT F_CODTAB1 FIRST
OUTPUT F_DESC %CPG->S0
OUTPUT F_COD_CAMPO DATA
CHECKTYPE REQUIRED
FIELD FIRST
FLAGS "Z"
FLAGS "U#G"
GROUP 1
KEY 1
END
STRING F_CODTAB1 4
BEGIN
PROMPT 2 2 ""
CHECKTYPE REQUIRED
USE %CPG
INPUT CODTAB F_CODTAB1
DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_CODTAB1 CODTAB
OUTPUT F_DESC S0
FIELD FIRST
FLAGS "U#"
GROUP 2
KEY 1
ADD RUN ba3 -6
END
STRING F_DESC 50
BEGIN
PROMPT 10 2 "Descrizione "
USE LF_MULTIREL KEY 2
INPUT COD F_COD SELECT
INPUT DATA F_DESC
DISPLAY "Descrizione@60" DATA
DISPLAY "Codice" FIRST
DISPLAY "Condizione collegata" SECOND
COPY OUTPUT F_CODTAB
FIELD DATA
KEY 3
USE %CPG KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODTAB1
GROUP 3
KEY 2
CHECKTYPE REQUIRED
END
STRING F_COD_CAMPO 4
NUMBER F_COD_CAMPO 4
BEGIN
PROMPT 2 4 "Condizione di pagamento collegata "
FIELD SECOND
FLAGS "U#"
USE %CPG
PROMPT 2 4 "Pagamento TeamSystem "
FIELD DATA
USE &TPG
INPUT CODTAB F_COD_CAMPO
DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_COD_CAMPO CODTAB
KEY 1
CHECKTYPE NORMAL
GROUP 1 10
OUTPUT F_DESC1 S0
CHECKTYPE REQUIRED
FLAGS "Z"
END
STRING F_COD_CAMPO1 4
STRING F_DESC1 50 40
BEGIN
PROMPT 2 4 "Condizione di pagamento collegata "
FIELD SECOND
FLAGS "UH"
KEY 1
GROUP 1 20
PROMPT 32 4 ""
USE &TPG KEY 2
INPUT S0 F_DESC1
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_COD_CAMPO
END
ENDPAGE

71
tc/tctsi11.uml
View File

@ -8,7 +8,7 @@ PAGE "Codici IVA 11" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Codice IVA 11 TeamSystem"
PROMPT 1 1 "Tipo spesa ricavo"
END
LIST F_COD 5
@ -26,37 +26,25 @@ BEGIN
USE LF_MULTIREL
INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB
DISPLAY "Codice" FIRST
DISPLAY "Descrizione@60" DATA
DISPLAY "Tipo spesa/ricavo" SECOND
DISPLAY "Tipo spesa/ricavo@30" FIRST
DISPLAY "Codice Teamsystem@25" DATA
OUTPUT F_CODTAB FIRST
OUTPUT F_DESC DATA
OUTPUT F_COD_CAMPO SECOND
OUTPUT F_CODTAB1 FIRST
CHECKTYPE REQUIRED
FIELD FIRST
FLAGS "Z"
GROUP 1
KEY 1
END
STRING F_DESC 50
NUMBER F_CODTAB1 2
BEGIN
PROMPT 10 2 "Descrizione "
USE LF_MULTIREL KEY 2
INPUT COD F_COD SELECT
INPUT DATA F_DESC
DISPLAY "Descrizione@60" DATA
DISPLAY "Codice" FIRST
DISPLAY "Tipo spesa/ricavo" SECOND
COPY OUTPUT F_CODTAB
FIELD DATA
KEY 3
PROMPT 2 2 ""
INPUT FIRST F_CODTAB1
SHEET "Tipo spesa/ricavo|Situazione@60"
OUTPUT F_CODTAB1
OUTPUT F_DESC
CHECKTYPE REQUIRED
END
LIST F_COD_CAMPO 2 50
BEGIN
PROMPT 2 4 "Codice "
FIELD SECOND
FIELD FIRST
ITEM "0|0. Acquisti o vendite in genere"
ITEM "1|1. Acquisti beni per rivendita"
ITEM "2|2. Acquisti beni ammortizzabili"
@ -68,9 +56,40 @@ BEGIN
ITEM "13|13. Subappalti in edilizia (Reverse charge)"
ITEM "50|50. Importazione di oro o argento (Reverse charge)"
ITEM "51|51. Rottami (Reverse charge)"
GROUP 2
KEY 1
MESSAGE COPY,F_CODTAB
FLAGS "G"
END
KEY 1
GROUP 1
STRING F_DESC 50
BEGIN
PROMPT 10 2 "Descrizione "
FLAGS "D"
END
NUMBER F_COD_CAMPO 2
BEGIN
PROMPT 2 4 "Codice IVA 11 TeamSystem"
USE &T11
INPUT CODTAB F_COD_CAMPO
DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_COD_CAMPO CODTAB
OUTPUT F_DESC1 S0
CHECKTYPE REQUIRED
FIELD DATA
FLAGS "ZG"
END
STRING F_DESC1 50 40
BEGIN
PROMPT 32 4 ""
USE &T11 KEY 2
INPUT S0 F_DESC1
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_COD_CAMPO
END
ENDPAGE

84
tc/tctsiva.uml
View File

@ -8,7 +8,7 @@ PAGE "Codici IVA" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Codice IVA TeamSystem"
PROMPT 1 1 "Codice IVA Campo"
END
LIST F_COD 5
@ -20,62 +20,80 @@ BEGIN
KEY 1
END
NUMBER F_CODTAB 3
STRING F_CODTAB 4
BEGIN
PROMPT 2 2 ""
USE LF_MULTIREL
INPUT COD F_COD SELECT
JOIN %IVA INTO CODTAB==FIRST
INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB
DISPLAY "Codice" FIRST
DISPLAY "Descrizione@60" DATA
DISPLAY "Codice IVA Collegato" SECOND
DISPLAY "Codice IVA" FIRST
DISPLAY "Descrizione@60" %IVA->S0
DISPLAY "Codice IVA Teamsystem" DATA
OUTPUT F_CODTAB FIRST
OUTPUT F_DESC DATA
OUTPUT F_COD_CAMPO SECOND
OUTPUT F_COD_CAMPO1 SECOND
OUTPUT F_DESC %IVA->S0
OUTPUT F_COD_CAMPO DATA
CHECKTYPE REQUIRED
FIELD FIRST
FLAGS "Z"
FLAGS "UG"
KEY 1
VALIDATE ZEROFILL_FUNC 2
GROUP 1
END
STRING F_CODTAB1 4
BEGIN
PROMPT 2 2 ""
CHECKTYPE REQUIRED
FIELD FIRST
USE %IVA
INPUT CODTAB F_CODTAB1
DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_CODTAB1 CODTAB
OUTPUT F_DESC S0
FLAGS "U"
KEY 1
VALIDATE ZEROFILL_FUNC 2
GROUP 2
END
STRING F_DESC 50
BEGIN
PROMPT 10 2 "Descrizione "
USE LF_MULTIREL KEY 2
INPUT COD F_COD SELECT
INPUT DATA F_DESC
DISPLAY "Descrizione@60" DATA
DISPLAY "Codice" FIRST
DISPLAY "Codice IVA Collegato" SECOND
COPY OUTPUT F_CODTAB
FIELD DATA
KEY 3
USE %IVA KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@50" S0
DISPLAY "Cod." CODTAB
COPY OUTPUT F_CODTAB1
KEY 2
GROUP 3
CHECKTYPE REQUIRED
END
STRING F_COD_CAMPO 4
NUMBER F_COD_CAMPO 3
BEGIN
PROMPT 2 4 "Codice IVA collegato "
FIELD SECOND
FLAGS "U"
USE %IVA
PROMPT 2 4 "Codice IVA Teamsystem "
FIELD DATA
FLAGS "Z"
USE &TIV
INPUT CODTAB F_COD_CAMPO
DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_COD_CAMPO CODTAB
KEY 1
CHECKTYPE NORMAL
GROUP 1 10
OUTPUT F_DESC1 S0
CHECKTYPE REQUIRED
END
STRING F_COD_CAMPO1 5
STRING F_DESC1 50 40
BEGIN
PROMPT 2 4 "Codice IVA collegato "
FIELD SECOND
FLAGS "UH"
KEY 1
GROUP 1 20
PROMPT 32 4 ""
USE &TIV KEY 2
INPUT S0 F_DESC1
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_COD_CAMPO
END
ENDPAGE

74
tc/tctsnaz.uml
View File

@ -8,7 +8,7 @@ PAGE "Nazioni" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Nazione TeamSystem"
PROMPT 1 1 "Stato Campo"
END
LIST F_COD 5
@ -20,63 +20,77 @@ BEGIN
KEY 1
END
NUMBER F_CODTAB 4
NUMBER F_CODTAB 3
BEGIN
PROMPT 2 2 ""
USE LF_MULTIREL
JOIN %STA INTO CODTAB==FIRST
INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB
DISPLAY "Codice" FIRST
DISPLAY "Descrizione@60" DATA
DISPLAY "Stato collegato" SECOND
DISPLAY "Codice stato" FIRST
DISPLAY "Descrizione@60" %STA->S0
DISPLAY "Nazione Teamsystem" DATA
OUTPUT F_CODTAB FIRST
OUTPUT F_DESC DATA
OUTPUT F_COD_CAMPO SECOND
OUTPUT F_COD_CAMPO1 SECOND
OUTPUT F_DESC %STA->S0
CHECKTYPE REQUIRED
FIELD FIRST
FLAGS "Z"
KEY 1
GROUP 1
END
NUMBER F_CODTAB1 3
BEGIN
PROMPT 2 2 ""
USE %STA
INPUT CODTAB F_CODTAB1
DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_CODTAB1 CODTAB
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FIELD FIRST
FLAGS "ZG"
KEY 1
GROUP 2
END
STRING F_DESC 50
BEGIN
PROMPT 10 2 "Descrizione "
USE LF_MULTIREL KEY 2
INPUT COD F_COD SELECT
INPUT DATA F_DESC
DISPLAY "Descrizione@60" DATA
DISPLAY "Codice" FIRST
DISPLAY "Stato collegato" SECOND
COPY OUTPUT F_CODTAB
FIELD DATA
KEY 3
USE %STA KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@50" S0
DISPLAY "Cod." CODTAB
COPY OUTPUT F_CODTAB1
KEY 2
GROUP 3
CHECKTYPE REQUIRED
END
NUMBER F_COD_CAMPO 3
NUMBER F_COD_CAMPO 4
BEGIN
PROMPT 2 4 "Stato collegato "
FIELD SECOND
PROMPT 2 4 "Nazione Teamsystem "
FIELD DATA
FLAGS "Z"
USE %STA
USE &TNA
INPUT CODTAB F_COD_CAMPO
DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_COD_CAMPO CODTAB
OUTPUT F_DESC1 S0
CHECKTYPE REQUIRED
KEY 1
CHECKTYPE NORMAL
GROUP 1 10
END
NUMBER F_COD_CAMPO1 3
STRING F_DESC1 50 40
BEGIN
PROMPT 2 4 "Stato collegato "
FIELD SECOND
FLAGS "Z"
KEY 1
GROUP 1 20
PROMPT 32 4 ""
USE &TNA KEY 2
INPUT S0 F_DESC1
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_COD_CAMPO
END
ENDPAGE

146
tc/tctsreg.uml
View File

@ -7,7 +7,7 @@ ENDPAGE
PAGE "Registri" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Registro TeamSystem"
PROMPT 1 1 "Registro Campo"
END
LIST F_COD 5
@ -19,95 +19,97 @@ BEGIN
KEY 1
END
LIST F_TIPO 1 13
BEGIN
PROMPT 2 2 ""
ITEM "A|Acquisti" MESSAGE "2",F_TIPOREG|"",F_CORRISP
ITEM "C|Corrispettivi" MESSAGE "1",F_TIPOREG|"X",F_CORRISP
ITEM "V|Vendite" MESSAGE "1",F_TIPOREG|"",F_CORRISP
FIELD FIRST[1,1]
FLAGS "Z"
KEY 1
END
STRING F_CODTAB 2
BEGIN
PROMPT 18 2 ""
USE LF_MULTIREL
INPUT COD F_COD SELECT
INPUT FIRST[1,1] F_TIPO SELECT
INPUT FIRST[2,3] F_CODTAB
DISPLAY "Tipo" FIRST[1,1]
DISPLAY "Codice" FIRST[2,3]
DISPLAY "Descrizione@60" DATA
DISPLAY "Codice registro" SECOND
OUTPUT F_CODTAB FIRST[2,3]
OUTPUT F_DESC DATA
OUTPUT F_COD_CAMPO SECOND
OUTPUT F_COD_CAMPO1 SECOND
CHECKTYPE REQUIRED
FIELD FIRST[2,3]
KEY 1
END
STRING F_DESC 50 40
BEGIN
PROMPT 25 2 "Descrizione "
USE LF_MULTIREL KEY 2
INPUT COD F_COD SELECT
INPUT DATA F_DESC
DISPLAY "Descrizione@60" DATA
DISPLAY "Tipo" FIRST[1,1]
DISPLAY "Codice" FIRST[2,3]
DISPLAY "Codice registro" SECOND
COPY OUTPUT F_CODTAB
FIELD DATA
KEY 3
CHECKTYPE REQUIRED
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 5 ""
FLAGS "AH"
END
NUMBER F_TIPOREG 1
STRING F_CODTAB 3
BEGIN
PROMPT 2 5 ""
FLAGS "H"
PROMPT 2 2 ""
USE LF_MULTIREL
JOIN REG INTO CODTAB==FIRST
INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB
DISPLAY "Codice registro" FIRST
DISPLAY "Descrizione@60" REG->S0
DISPLAY "Tipo" DATA[1,1]
DISPLAY "Codice registro" DATA[2,3]
OUTPUT F_CODTAB FIRST
OUTPUT F_DESC REG->S0
FLAGS "UZ"
CHECKTYPE REQUIRED
FIELD FIRST
KEY 1
GROUP 1
END
STRING F_CORRISP 1
STRING F_CODTAB1 3
BEGIN
PROMPT 2 5 ""
FLAGS "H"
END
STRING F_COD_CAMPO 3
BEGIN
PROMPT 2 4 "Registro collegato "
FIELD SECOND
FLAGS "GUZ"
USE REG SELECT (I0==#F_TIPOREG)
PROMPT 2 2 ""
USE REG
INPUT CODTAB[1,4] F_ANNO SELECT
INPUT CODTAB[5,7] F_COD_CAMPO
DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
OUTPUT F_COD_CAMPO CODTAB[5,7]
OUTPUT F_CODTAB CODTAB[5,7]
OUTPUT F_CODTAB1 CODTAB[5,7]
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
KEY 1
CHECKTYPE NORMAL
GROUP 1 10
FLAGS "UZG"
FIELD FIRST
KEY 1
GROUP 2
END
STRING F_COD_CAMPO1 3
STRING F_DESC 50
BEGIN
PROMPT 2 4 "Registro collegato "
FIELD SECOND
FLAGS "UH"
KEY 1
GROUP 1 20
PROMPT 10 2 ""
USE REG KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@50" S0
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7]
COPY OUTPUT F_CODTAB1
KEY 2
GROUP 3
CHECKTYPE REQUIRED
END
LIST F_TIPO 1 13
BEGIN
PROMPT 2 4 "Tipo "
ITEM "A|Acquisti"
ITEM "C|Corrispettivi"
ITEM "V|Vendite"
FIELD DATA[1,1]
END
STRING F_COD_CAMPO 2
BEGIN
PROMPT 2 6 "Registro TeamSystem"
FIELD DATA[2,3]
USE &TRE
INPUT CODTAB[1,1] F_TIPO
INPUT CODTAB[2,3] F_COD_CAMPO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPO CODTAB[1,1]
OUTPUT F_COD_CAMPO CODTAB[2,3]
OUTPUT F_DESC1 S0
CHECKTYPE REQUIRED
FLAGS "Z"
END
STRING F_DESC1 50 40
BEGIN
PROMPT 32 6 ""
USE &TRE KEY 2
INPUT S0 F_DESC1
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_COD_CAMPO
END
ENDPAGE

1409
tc/tctstabm.txt Executable file
View File

File diff suppressed because it is too large Load Diff

71
tc/tctsval.uml
View File

@ -8,7 +8,7 @@ PAGE "Valute" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Sigla Valuta TeamSystem"
PROMPT 1 1 "Codice Valuta Campo "
END
LIST F_COD 5
@ -24,59 +24,74 @@ STRING F_CODTAB 3
BEGIN
PROMPT 2 2 ""
USE LF_MULTIREL
JOIN %VAL INTO CODTAB==FIRST
INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB
DISPLAY "Codice" FIRST
DISPLAY "Descrizione@60" DATA
DISPLAY "Valta collegata" SECOND
DISPLAY "Codice valuta" FIRST
DISPLAY "Descrizione@60" %VAL->S0
DISPLAY "Sigla valuta Teamsystem" DATA
OUTPUT F_CODTAB FIRST
OUTPUT F_DESC DATA
OUTPUT F_COD_CAMPO SECOND
OUTPUT F_COD_CAMPO1 SECOND
OUTPUT F_DESC %VAL->S0
OUTPUT F_COD_CAMPO DATA
CHECKTYPE REQUIRED
FIELD FIRST
FLAGS "UZG"
KEY 1
GROUP 1
END
STRING F_CODTAB1 3
BEGIN
PROMPT 2 2 ""
USE %VAL
INPUT CODTAB F_CODTAB1
DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_CODTAB1 CODTAB
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FIELD FIRST
FLAGS "UZ"
KEY 1
GROUP 2
END
STRING F_DESC 50
BEGIN
PROMPT 10 2 "Descrizione "
USE LF_MULTIREL KEY 2
INPUT COD F_COD SELECT
INPUT DATA F_DESC
DISPLAY "Descrizione@60" DATA
DISPLAY "Codice" FIRST
DISPLAY "Valuta collegata" SECOND
COPY OUTPUT F_CODTAB
FIELD DATA
KEY 3
USE %VAL KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@50" S0
DISPLAY "Cod." CODTAB
COPY OUTPUT F_CODTAB1
KEY 2
GROUP 3
CHECKTYPE REQUIRED
END
STRING F_COD_CAMPO 3
BEGIN
PROMPT 2 4 "Valuta collegata "
FIELD SECOND
PROMPT 2 4 "Sigla Valuta TeamSystem "
FIELD DATA
FLAGS "UZ"
USE %VAL
USE &TVA
INPUT CODTAB F_COD_CAMPO
DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_COD_CAMPO CODTAB
OUTPUT F_DESC1 S0
CHECKTYPE REQUIRED
KEY 1
CHECKTYPE NORMAL
GROUP 1 10
END
STRING F_COD_CAMPO1 3
STRING F_DESC1 50 35
BEGIN
PROMPT 2 4 "Valuta collegata "
FIELD SECOND
FLAGS "UZ"
KEY 1
GROUP 1 20
PROMPT 37 4 ""
USE &TVA KEY 2
INPUT S0 F_DESC1
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_COD_CAMPO
END
ENDPAGE

2
tc/tstab.txt
View File

@ -1,6 +1,6 @@
[Header]
Version=199519
File=155
File=156
Fields=COD,5|FIRST,20|SECOND,20|DATA,50
[Data]