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

Patch level : 10.0 no patch

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


Trasferimento IPSOA


git-svn-id: svn://10.65.10.50/branches/R_10_00@21148 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-11-17 22:53:31 +00:00
parent 4d101dc090
commit 25713ad656
21 changed files with 1136 additions and 214 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
tc/Importazione Dati IPSOA.pdf Executable file
View File

Binary file not shown.

19
tc/ipconf.h Executable file
View File

@ -0,0 +1,19 @@
#define F_CODDITTA 101
#define F_RAGSOC 102
#define F_RICLNAZ 104
#define F_RICLIVA 105
#define F_RICLATT 106
#define F_RICLCDP 107
#define F_RICLREG 108
#define F_RICLCAU 109
#define F_RICLCONTI 110
#define F_RICLVALUTE 111
#define F_RIPRISTINO 121
#define F_ULTINVIO 122
#define F_EMCAU 123
#define F_LICVPC1 124
#define F_LICVPC2 125
#define F_LICVPC3 126
#define F_LICVPC4 127
#define F_LICVPC5 128
#define F_LICVPC6 129

166
tc/tc2300.cpp
View File

@ -8,9 +8,9 @@
#include "../include/attiv.h"
#include "../include/mov.h"
#include "../cg/cglib01.h"
#include "tcconf.h"
#include "ipconf.h"
class TTS_confditta : public TConfig_application
class TIP_confditta : public TConfig_application
{
char _current;
@ -27,117 +27,26 @@ public:
virtual bool user_create( );
virtual bool user_destroy( );
TTS_confditta() : TConfig_application( CONFIG_DITTA ){ }
virtual ~TTS_confditta( ){ }
TIP_confditta() : TConfig_application( CONFIG_DITTA ){ }
virtual ~TIP_confditta( ){ }
};
bool sh_notify(TSheet_field& s, int r, KEY k)
{
if (k == K_TAB)
{
TMask& m = s.mask();
const bool use_pcn = m.get_bool(F_USECMPCN);
const int r = s.selected();
TMask & mr = s.sheet_mask();
TToken_string & row = s.row(r);
row.add(use_pcn ? "X" : " ", 4);
s.check_row(r);
}
return true;
}
bool TTS_confditta::check_fields(TMask_field& f, KEY k)
bool TIP_confditta::check_fields(TMask_field& f, KEY k)
{
return true;
}
void TTS_confditta::load_mask()
void TIP_confditta::load_mask()
{
TMask* mask = get_mask();
if (mask != NULL)
{
TConfig_application::load_mask();
TConfig& config = *get_config();
TSheet_field& sa = mask->sfield(F_SHEET_ATTIV);
TAssoc_array ditte;
const bool use_pcn = config.get_bool("TSUSECMPCN");
int i = 0;
for (i = 0; config.exist("TSDATT", i); i++)
{
const TString8 att(config.get("TSDATT", NULL, i));
const TString8 ditta(config.get("TSDDITTA", NULL, i));
if (att.full())
ditte.add(att, ditta);
TToken_string& row = sa.row(i);
row.add(att);
const TString & descr = cache().get("%AIS", att, "S0");
row.add(descr);
row.add(ditta);
sa.check_row(i);
}
TString query;
const long firm = mask->get_long(F_CODDITTA);
query.format("USE %d SELECT ATTPREV!=\"X\"\nFROM CODDITTA=%ld\nTO CODDITTA=%ld\n", LF_ATTIV, firm, firm);
TISAM_recordset attrec(query);
for (bool ok = attrec.move_first(); ok; ok = attrec.move_next())
{
const TString8 codatt = attrec.get(ATT_CODATT).as_string();
if (ditte.objptr(codatt) == NULL)
{
TToken_string& row = sa.row(i);
row.add(codatt);
const TString & descr = cache().get("%AIS", codatt, "S0");
row.add(descr);
row.add("");
sa.check_row(i);
}
}
TSheet_field& si = mask->sfield(F_SHEET_IVA);
si.set_notify(sh_notify);
for (i = 0; config.exist("TSGIVA", i); i++)
{
TToken_string& row = si.row(i);
row.add(config.get("TSGIVA", NULL, i));
row.add(config.get("TSCIVA", NULL, i));
row.add(config.get("TSSIVA", NULL, i));
row.add(use_pcn ? "X" : " ", 4);
si.check_row(i);
}
TSheet_field& sr = mask->sfield(F_SHEET_RIT);
sr.set_notify(sh_notify);
for (i = 0; config.exist("TSGRIT", i); i++)
{
TToken_string& row = sr.row(i);
row.add(config.get("TSGRIT", NULL, i));
row.add(config.get("TSCRIT", NULL, i));
row.add(config.get("TSSRIT", NULL, i));
row.add(use_pcn ? "X" : " ", 4);
sr.check_row(i);
}
}
}
void TTS_confditta::save_mask(bool tosave)
void TIP_confditta::save_mask(bool tosave)
{
if (tosave)
{
@ -180,71 +89,22 @@ void TTS_confditta::save_mask(bool tosave)
}
}
}
TConfig& config = *get_config();
int i = 0;
for (i = 0; config.exist("TSGIVA", i); i++)
{
config.remove("TSDATT", i);
config.remove("TSDITTA", i);
}
TSheet_field& sa = m.sfield(F_SHEET_ATTIV);
FOR_EACH_SHEET_ROW(sa, jd, rowd)
{
config.set("TSDATT", rowd->get(0), NULL, true, jd);
config.set("TSDDITTA", rowd->get(2), NULL, true, jd);
}
for (i = 0; config.exist("TSGIVA", i); i++)
{
config.remove("TSGIVA", i);
config.remove("TSCIVA", i);
config.remove("TSSIVA", i);
}
TSheet_field& si = m.sfield(F_SHEET_IVA);
FOR_EACH_SHEET_ROW(si, j, row)
{
config.set("TSGIVA", row->get(0), NULL, true, j);
config.set("TSCIVA", row->get(1), NULL, true, j);
config.set("TSSIVA", row->get(2), NULL, true, j);
}
for (i = 0; config.exist("TSGRIT", i); i++)
{
config.remove("TSGRIT", i);
config.remove("TSCRIT", i);
config.remove("TSSRIT", i);
}
TSheet_field& sr = m.sfield(F_SHEET_RIT);
FOR_EACH_SHEET_ROW(sr, jr, rowr)
{
config.set("TSGRIT", rowr->get(0), NULL, true, jr);
config.set("TSCRIT", rowr->get(1), NULL, true, jr);
config.set("TSSRIT", rowr->get(2), NULL, true, jr);
}
}
TConfig_application::save_mask(tosave);
}
bool TTS_confditta::preprocess_config (TMask& mask, TConfig& config)
bool TIP_confditta::preprocess_config (TMask& mask, TConfig& config)
{
return true;
}
bool TTS_confditta::postprocess_config (TMask& mask, TConfig& config)
bool TIP_confditta::postprocess_config (TMask& mask, TConfig& config)
{
return true;
}
bool TTS_confditta::user_create( )
bool TIP_confditta::user_create( )
{
TConfig conf(CONFIG_DITTA);
@ -252,14 +112,14 @@ bool TTS_confditta::user_create( )
return true;
}
bool TTS_confditta::user_destroy( )
bool TIP_confditta::user_destroy( )
{
return true;
}
int tc2300(int argc, char* argv[])
{
TTS_confditta appc;
appc.run(argc, argv, TR("Parametri ditta TeamSystem"));
TIP_confditta appc;
appc.run(argc, argv, TR("Parametri ditta IPSOA"));
return 0;
}

147
tc/tc2300a.uml Executable file
View File

@ -0,0 +1,147 @@
#include "ipconf.h"
TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>
ENDPAGE
PAGE "Configurazione ditta per invio a IPSOA" 0 2 0 0
GROUPBOX DLG_NULL 76 3
BEGIN
PROMPT 1 1 "@bDitta corrente"
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 2 "Codice "
FLAGS "FD"
USE LF_NDITTE
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50
BEGIN
PROMPT 22 2 ""
FLAGS "D"
END
BOOLEAN F_RICLNAZ
BEGIN
PROMPT 2 6 "Trascodifica Nazioni"
FIELD IPRNAZ
END
BOOLEAN F_RICLIVA
BEGIN
PROMPT 42 6 "Trascodifica Codici IVA"
FIELD IPRIVA
END
BOOLEAN F_RICLATT
BEGIN
PROMPT 2 8 "Trascodifica Codici Attività"
FIELD IPATT
END
BOOLEAN F_RICLCDP
BEGIN
PROMPT 42 8 "Trascodifica Condizioni di Pagamento"
FIELD IPRCDP
END
BOOLEAN F_RICLREG
BEGIN
PROMPT 2 10 "Trascodifica Registri"
FIELD IPRREG
END
BOOLEAN F_RICLCONTI
BEGIN
PROMPT 42 10 "Trascodifica Piano dei conti"
FIELD IPRCONTI
END
BOOLEAN F_RICLCAU
BEGIN
PROMPT 2 12 "Trascodifica Causali"
FIELD IPRCAU
END
//???
NUMBER F_EMCAU 3
BEGIN
PROMPT 42 12 "Caus.TS movim.senza causale "
USE &ICA
INPUT CODTAB F_EMCAU
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@60" S0
OUTPUT F_EMCAU CODTAB
CHECKTYPE REQUIRED
FLAGS "Z"
FIELD IPREMCAU
END
BOOLEAN F_RICLVALUTE
BEGIN
PROMPT 2 14 "Trascodifica valute"
FIELD IPRVAL
END
NUMBER F_LIVPC1 2
BEGIN
PROMPT 2 16 "Lunghezza livelli piano dei conti : 1 "
FIELD IPLIVPC[1]
END
NUMBER F_LIVPC2 2
BEGIN
PROMPT 46 16 "2 "
FIELD IPLIVPC[2]
END
NUMBER F_LIVPC3 2
BEGIN
PROMPT 52 16 "3 "
FIELD IPLIVPC[3]
END
NUMBER F_LIVPC3 2
BEGIN
PROMPT 58 16 "4 "
FIELD IPLIVPC[4]
END
NUMBER F_LIVPC5 2
BEGIN
PROMPT 64 16 "5 "
FIELD IPLIVPC[5]
END
NUMBER F_LIVPC6 2
BEGIN
PROMPT 70 16 "6 "
FIELD IPLIVPC[6]
END
BOOLEAN F_RIPRISTINO
BEGIN
PROMPT 2 18 "Ripristina alla data"
MESSAGE FALSE DISABLE,F_ULTINVIO
MESSAGE TRUE ENABLE,F_ULTINVIO
END
DATE F_ULTINVIO
BEGIN
PROMPT 42 18 "Data ultimo invio "
FIELD TSULTINV
FLAGS "D"
END
ENDPAGE
ENDMASK

115
tc/tcipcau.uml Executable file
View File

@ -0,0 +1,115 @@
#include "tcts.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 "TSCAU|TSCAU"
FIELD COD
FLAGS "D"
KEY 1
END
NUMBER F_CODTAB 3
BEGIN
PROMPT 2 2 ""
USE LF_MULTIREL
JOIN LF_CAUSALI INTO CODCAUS==FIRST
JOIN &TCA INTO CODTAB==DATA
INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB
DISPLAY "Codice" FIRST
DISPLAY "Descrizione@60" LF_CAUSALI->DESCR
DISPLAY "Causale Teamsystem" DATA
DISPLAY "Descrizione@50" &TCA->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
NUMBER F_CODTAB1 3
BEGIN
PROMPT 2 2 ""
USE LF_CAUSALI
JOIN LF_MULTIREL INTO COD=="TSCAU" FIRST==CODCAUS
JOIN &TCA TO LF_MULTIREL INTO CODTAB==DATA
INPUT CODCAUS F_CODTAB1
DISPLAY "Cod." CODCAUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Causale Teamsystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TCA->S0
DISPLAY "Documento" TIPODOC
DISPLAY "Registro" REG
DISPLAY "Tipo movimento" TIPOMOV
DISPLAY "Inc./Pag." CODCAUSIM
DISPLAY "770" M770
DISPLAY "Cespiti" COLLCESP
OUTPUT F_CODTAB CODCAUS
OUTPUT F_CODTAB1 CODCAUS
OUTPUT F_DESC LF_CAUSALI->DESCR
KEY 1
FIELD FIRST
FLAGS "UZ"
CHECKTYPE REQUIRED
GROUP 2
END
STRING F_DESC 50
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
INPUT DESCR F_DESC
DISPLAY "Descrizione@60" DESCR
DISPLAY "Codice" CODCAUS
DISPLAY "Causale Teamsystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TCA->S0
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
ENDMASK

110
tc/tcipcdp.uml Executable file
View File

@ -0,0 +1,110 @@
#include "tcts.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 "Condizione di pagamento Campo"
END
LIST F_COD 5
BEGIN
PROMPT 50 50 ""
ITEM "TSCDP|TSCDP"
FIELD COD
FLAGS "D"
KEY 1
END
STRING F_CODTAB 4
BEGIN
PROMPT 2 2 ""
USE LF_MULTIREL
JOIN %CPG INTO CODTAB==FIRST
JOIN &TPG INTO CODTAB==DATA
INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB
DISPLAY "Codice" FIRST
DISPLAY "Descrizione@60" %CPG->S0
DISPLAY "Condizione TeamSystem" DATA
DISPLAY "Descrizione@50" &TPG->S0
OUTPUT F_CODTAB FIRST
OUTPUT F_CODTAB1 FIRST
OUTPUT F_COD_CAMPO DATA
CHECKTYPE REQUIRED
FIELD FIRST
FLAGS "U#"
GROUP 1
KEY 1
END
STRING F_CODTAB1 4
BEGIN
PROMPT 2 2 ""
CHECKTYPE REQUIRED
USE %CPG
JOIN LF_MULTIREL INTO COD=="TSCDP" FIRST==CODTAB
JOIN &TPG TO LF_MULTIREL INTO CODTAB==DATA
INPUT CODTAB F_CODTAB1
DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Condizione TeamSystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TPG->S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_CODTAB1 CODTAB
OUTPUT F_DESC S0
FIELD FIRST
FLAGS "U#G"
GROUP 2
KEY 1
ADD RUN ba3 -6
END
STRING F_DESC 50
BEGIN
PROMPT 10 2 "Descrizione "
USE %CPG KEY 2
JOIN LF_MULTIREL INTO COD=="TSCDP" FIRST==CODTAB
JOIN &TPG TO LF_MULTIREL INTO CODTAB==DATA
INPUT CODTAB F_CODTAB1
INPUT S0 F_DESC
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
DISPLAY "Condizione TeamSystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TPG->S0
COPY OUTPUT F_CODTAB1
GROUP 3
KEY 2
CHECKTYPE REQUIRED
END
NUMBER F_COD_CAMPO 4
BEGIN
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
OUTPUT F_DESC1 S0
CHECKTYPE REQUIRED
FLAGS "Z"
END
STRING F_DESC1 50 40
BEGIN
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
ENDMASK

112
tc/tcipi11.uml Executable file
View File

@ -0,0 +1,112 @@
#include "tcts.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Codici IVA 11" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Tipo spesa ricavo"
END
LIST F_COD 5
BEGIN
PROMPT 50 50 ""
ITEM "TSI11|TSI11"
FIELD COD
FLAGS "D"
KEY 1
END
NUMBER F_CODTAB 2
BEGIN
PROMPT 2 2 ""
USE LF_MULTIREL
JOIN &T11 INTO CODTAB==DATA
INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB
DISPLAY "Tipo spesa/ricavo@30" FIRST
DISPLAY "Codice Teamsystem@25" DATA
DISPLAY "Descrizione@50" &T11->S0
OUTPUT F_CODTAB FIRST
OUTPUT F_CODTAB1 FIRST
OUTPUT F_DESC FIRST
CHECKTYPE REQUIRED
FIELD FIRST
GROUP 1
KEY 1
END
NUMBER F_CODTAB1 2
BEGIN
PROMPT 2 2 ""
INPUT F_CODTAB1
SHEET "Tipo spesa/ricavo|Situazione@60"
OUTPUT F_CODTAB1
OUTPUT F_DESC
CHECKTYPE NORMAL
FIELD FIRST
ITEM "0|Acquisti o vendite in genere"
ITEM "1|Acquisti beni per rivendita"
ITEM "2|Acquisti beni ammortizzabili"
ITEM "3|Acquisti beni ammortizzabili con detr. 6%"
ITEM "4|Vendita beni strumentali art. 17"
ITEM "5|Beni per rivendita da non ventilare"
ITEM "8|Altri beni strumentali acquistati in leasing"
ITEM "9|Spese Generali"
ITEM "13|Subappalti in edilizia (Reverse charge)"
ITEM "17|Operazioni effettuate nei confornti dei condominii"
ITEM "50|Importazione di oro o argento (Reverse charge)"
ITEM "51|Rottami (Reverse charge)"
GROUP 2
KEY 1
MESSAGE COPY,F_CODTAB
FLAGS "G"
END
LIST F_DESC 50
BEGIN
PROMPT 10 2 "Descrizione "
ITEM "0|Acquisti o vendite in genere"
ITEM "1|Acquisti beni per rivendita"
ITEM "2|Acquisti beni ammortizzabili"
ITEM "3|Acquisti beni ammortizzabili con detr. 6%"
ITEM "4|Vendita beni strumentali art. 17"
ITEM "5|Beni per rivendita da non ventilare"
ITEM "8|Altri beni strumentali acquistati in leasing"
ITEM "9|Spese Generali"
ITEM "13|Subappalti in edilizia (Reverse charge)"
ITEM "50|Importazione di oro o argento (Reverse charge)"
ITEM "51|Rottami (Reverse charge)"
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
ENDMASK

111
tc/tcipiva.uml Executable file
View File

@ -0,0 +1,111 @@
#include "tcts.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 "TSIVA|TSIVA"
FIELD COD
FLAGS "D"
KEY 1
END
STRING F_CODTAB 4
BEGIN
PROMPT 2 2 ""
USE LF_MULTIREL
JOIN %IVA INTO CODTAB==FIRST
JOIN &TIV INTO CODTAB==DATA
INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB
DISPLAY "Codice IVA" FIRST
DISPLAY "Descrizione@60" %IVA->S0
DISPLAY "Codice IVA Teamsystem" DATA
DISPLAY "Descrizione@50" &TIV->S0
OUTPUT F_CODTAB FIRST
OUTPUT F_CODTAB1 FIRST
OUTPUT F_COD_CAMPO DATA
CHECKTYPE REQUIRED
FIELD FIRST
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
JOIN LF_MULTIREL INTO COD=="TSIVA" FIRST==CODTAB
JOIN &TIV TO LF_MULTIREL INTO CODTAB==DATA
INPUT CODTAB F_CODTAB1
DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Codice IVA Teamsystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TIV->S0
OUTPUT F_CODTAB1 CODTAB
OUTPUT F_CODTAB 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 %IVA KEY 2
JOIN LF_MULTIREL INTO COD=="TSIVA" FIRST==CODTAB
JOIN &TIV TO LF_MULTIREL INTO CODTAB==DATA
INPUT S0 F_DESC
DISPLAY "Descrizione@50" S0
DISPLAY "Cod." CODTAB
DISPLAY "Codice IVA Teamsystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TIV->S0
COPY OUTPUT F_CODTAB1
KEY 2
GROUP 3
CHECKTYPE REQUIRED
END
NUMBER F_COD_CAMPO 3
BEGIN
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
OUTPUT F_DESC1 S0
CHECKTYPE REQUIRED
END
STRING F_DESC1 50 40
BEGIN
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
ENDMASK

108
tc/tcipnaz.uml Executable file
View File

@ -0,0 +1,108 @@
#include "tcts.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 "Stato Campo"
END
LIST F_COD 5
BEGIN
PROMPT 50 50 ""
ITEM "TSNAZ|TSNAZ"
FIELD COD
FLAGS "D"
KEY 1
END
NUMBER F_CODTAB 3
BEGIN
PROMPT 2 2 ""
USE LF_MULTIREL
JOIN %STA INTO CODTAB==FIRST
JOIN &TNA INTO CODTAB==DATA
INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB
DISPLAY "Codice stato" FIRST
DISPLAY "Descrizione@60" %STA->S0
DISPLAY "Nazione Teamsystem" DATA
DISPLAY "Descrizione@50" &TNA->S0
OUTPUT F_CODTAB FIRST
OUTPUT F_CODTAB1 FIRST
CHECKTYPE REQUIRED
FIELD FIRST
FLAGS "Z"
KEY 1
GROUP 1
END
NUMBER F_CODTAB1 3
BEGIN
PROMPT 2 2 ""
USE %STA
JOIN LF_MULTIREL INTO COD=="TSNAZ" FIRST==CODTAB
JOIN &TNA TO LF_MULTIREL INTO CODTAB==DATA
INPUT CODTAB F_CODTAB1
DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Nazione Teamsystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TNA->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 %STA KEY 2
JOIN LF_MULTIREL INTO COD=="TSNAZ" FIRST==CODTAB
JOIN &TNA TO LF_MULTIREL INTO CODTAB==DATA
INPUT S0 F_DESC
DISPLAY "Descrizione@50" S0
DISPLAY "Cod." CODTAB
DISPLAY "Nazione Teamsystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TNA->S0
COPY OUTPUT F_CODTAB1
KEY 2
GROUP 3
CHECKTYPE REQUIRED
END
NUMBER F_COD_CAMPO 4
BEGIN
PROMPT 2 4 "Nazione Teamsystem "
FIELD DATA
FLAGS "Z"
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
END
STRING F_DESC1 50 40
BEGIN
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
ENDMASK

126
tc/tcipreg.uml Executable file
View File

@ -0,0 +1,126 @@
#include "tcts.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 "Registro Campo"
END
LIST F_COD 5
BEGIN
PROMPT 50 50 ""
ITEM "TSREG|TSREG"
FIELD COD
FLAGS "D"
KEY 1
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 5 ""
FLAGS "AH"
END
STRING F_CODTAB 3
BEGIN
PROMPT 2 2 ""
USE LF_MULTIREL
JOIN &TRE INTO CODTAB==DATA
INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB
DISPLAY "Codice registro" FIRST
DISPLAY "Tipo" DATA[1,1]
DISPLAY "Codice registro" DATA[2,3]
DISPLAY "Descrizione@50" &TRE->S0
OUTPUT F_CODTAB FIRST
OUTPUT F_CODTAB1 FIRST
FLAGS "UZ"
CHECKTYPE REQUIRED
FIELD FIRST
KEY 1
GROUP 1
END
STRING F_CODTAB1 3
BEGIN
PROMPT 2 2 ""
USE REG
JOIN LF_MULTIREL INTO COD=="TSREG" FIRST==CODTAB[5,7]
JOIN &TRE TO LF_MULTIREL INTO CODTAB==DATA
INPUT CODTAB[1,4] F_ANNO SELECT
INPUT CODTAB[5,7] F_COD_CAMPO
DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
DISPLAY "Tipo" LF_MULTIREL->DATA[1,1]
DISPLAY "Codice registro" LF_MULTIREL->DATA[2,3]
DISPLAY "Descrizione@50" &TRE->S0
OUTPUT F_CODTAB CODTAB[5,7]
OUTPUT F_CODTAB1 CODTAB[5,7]
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FLAGS "UZG"
FIELD FIRST
KEY 1
GROUP 2
END
STRING F_DESC 50
BEGIN
PROMPT 10 2 ""
USE REG KEY 2
JOIN LF_MULTIREL INTO COD=="TSREG" FIRST==CODTAB[5,7]
JOIN &TRE TO LF_MULTIREL INTO CODTAB==DATA
INPUT S0 F_DESC
DISPLAY "Descrizione@50" S0
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Tipo" LF_MULTIREL->DATA[1,1]
DISPLAY "Codice registro" LF_MULTIREL->DATA[2,3]
DISPLAY "Descrizione@50" &TRE->S0
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
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
ENDMASK

45
tc/tcmenu.men
View File

@ -94,3 +94,48 @@ Module = 27
Flags = ""
Item_01 = "Parametri ditta", "tc1 -2", ""
[TCMENU_010]
Caption = "IPSOA"
Picture = <cg01>
Module = 27
Flags = ""
Item_01 = "Trasferimento", "tc2 -6", ""
Item_02 = "Tabelle di riclassificazione", [TCMENU_011]
Item_03 = "Tabelle TeamSystem", [TCMENU_012]
Item_04 = "Configurazione modulo", [TCMENU_013]
[TCMENU_011]
Caption = "Tabelle di riclassificazione"
Picture = <cg01>
Module = 27
Flags = ""
Item_01 = "Causali", "tc2 -4 CAU", ""
Item_02 = "Condizioni di pagamento", "tc2 -4 CDP", ""
Item_03 = "Stati esteri", "tc2 -4 NAZ", ""
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", ""
[TCMENU_012]
Caption = "Tabelle IPSOA"
Picture = <cg01>
Module = 27
Flags = ""
Item_01 = "Causali", "tc2 -0 &ICA", ""
Item_02 = "Condizioni di pagamento", "tc2 -0 &IPG", ""
Item_03 = "Stati esteri", "tc2 -0 &INA", ""
Item_04 = "Registri", "tc2 -0 &IRE", ""
Item_05 = "Codici IVA", "tc2 -0 &TIV", ""
Item_06 = "Valute", "tc2 -0 &IIV", ""
Item_07 = "Attività", "tc2 -0 &IAT", ""
Item_08 = "Piano dei conti", "tc2 -0 &ICO", ""
[TCMENU_013]
Caption = "Configurazione modulo"
Picture = <cg01>
Module = 27
Flags = ""
Item_01 = "Parametri ditta", "tc2 -2", ""

44
tc/tctbiat.uml Executable file
View File

@ -0,0 +1,44 @@
#include "tctbiat.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Codici IVA" 0 2 0 0
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 1 "Codice Attività IPSOA"
END
NUMBER F_CODTAB 2
BEGIN
PROMPT 2 2 "Codice "
USE &IAT
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 3 "Descrizione "
USE &IAT 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

10
tc/tctbica.uml
View File

@ -8,13 +8,13 @@ PAGE "Causali" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Codice Causale TeamSystem"
PROMPT 1 1 "Codice Causale IPSOA"
END
NUMBER F_CODTAB 3
NUMBER F_CODTAB 4
BEGIN
PROMPT 2 2 "Codice "
USE &TCA
USE &ICA
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@60" S0
@ -23,14 +23,14 @@ BEGIN
CHECKTYPE REQUIRED
FIELD CODTAB
FLAGS "Z"
VALIDATE FIXLEN_FUNC 3
VALIDATE FIXLEN_FUNC 4
KEY 1
END
STRING F_DESC 50
BEGIN
PROMPT 2 5 "Descrizione "
USE &TCA KEY 2
USE &ICA KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB

13
tc/tctbico.h
View File

@ -1,5 +1,8 @@
#define F_CODTAB 102
#define F_CODTAB1 103
#define F_CODTAB2 104
#define F_DESC 105
#define F_INDBIL 106
#define F_CODTAB1 101
#define F_CODTAB2 102
#define F_CODTAB3 103
#define F_CODTAB4 104
#define F_CODTAB5 105
#define F_CODTAB6 106
#define F_DESC 107
#define F_INDBIL 108

91
tc/tctbico.uml
View File

@ -8,57 +8,100 @@ PAGE "Conti" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Codice Conto TeamSystem"
PROMPT 1 1 "Codice Conto IPSOA"
END
STRING F_CODTAB 2
STRING F_CODTAB1 12
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]
PROMPT 2 2 "Codice : 1 "
USE &ICO
INPUT CODTAB[1,2] F_CODTAB1
INPUT CODTAB[3,4] F_CODTAB2
INPUT CODTAB[5,6] F_CODTAB3
INPUT CODTAB[7,8] F_CODTAB4
INPUT CODTAB[9,10] F_CODTAB5
INPUT CODTAB[11,12] F_CODTAB6
DISPLAY "Livello 1" CODTAB[1,2]
DISPLAY "Livello 2" CODTAB[3,4]
DISPLAY "Livello 3" CODTAB[5,6]
DISPLAY "Livello 4" CODTAB[7,8]
DISPLAY "Livello 5" CODTAB[9,10]
DISPLAY "Livello 6" CODTAB[11,12]
DISPLAY "Descrizione@60" S0
OUTPUT F_CODTAB CODTAB[1,2]
OUTPUT F_CODTAB1 CODTAB[3,4]
OUTPUT F_CODTAB2 CODTAB[5,7]
OUTPUT F_CODTAB1 CODTAB[1,2]
OUTPUT F_CODTAB2 CODTAB[3,4]
OUTPUT F_CODTAB3 CODTAB[5,6]
OUTPUT F_CODTAB4 CODTAB[7,8]
OUTPUT F_CODTAB5 CODTAB[9,10]
OUTPUT F_CODTAB6 CODTAB[11,12]
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FIELD CODTAB[1,2]
VALIDATE FIXLEN_FUNC 2
KEY 1
END
STRING F_CODTAB1 2
STRING F_CODTAB2 2
BEGIN
PROMPT 20 2 "Conto "
COPY ALL F_CODTAB
PROMPT 20 2 "2 "
COPY ALL F_CODTAB1
CHECKTYPE SEARCH
FIELD CODTAB[3,4]
VALIDATE FIXLEN_FUNC 2
KEY 1
END
STRING F_CODTAB2 3
STRING F_CODTAB3 2
BEGIN
PROMPT 30 2 "Sottoconto "
COPY ALL F_CODTAB
PROMPT 26 2 "3 "
COPY ALL F_CODTAB1
CHECKTYPE SEARCH
FIELD CODTAB[5,7]
VALIDATE FIXLEN_FUNC 3
FIELD CODTAB[5,6]
VALIDATE FIXLEN_FUNC 2
KEY 1
END
STRING F_CODTAB4 2
BEGIN
PROMPT 26 2 "4 "
COPY ALL F_CODTAB1
CHECKTYPE SEARCH
FIELD CODTAB[7,8]
VALIDATE FIXLEN_FUNC 2
KEY 1
END
STRING F_CODTAB5 2
BEGIN
PROMPT 26 2 "5 "
COPY ALL F_CODTAB1
CHECKTYPE SEARCH
FIELD CODTAB[9,10]
VALIDATE FIXLEN_FUNC 2
KEY 1
END
STRING F_CODTAB6 2
BEGIN
PROMPT 26 2 "4 "
COPY ALL F_CODTAB1
CHECKTYPE SEARCH
FIELD CODTAB[11,12]
VALIDATE FIXLEN_FUNC 2
KEY 1
END
STRING F_DESC 50
BEGIN
PROMPT 2 5 "Descrizione "
USE &TCO KEY 2
USE &ICO KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
DISPLAY "Livello 1" CODTAB[1,2]
DISPLAY "Livello 2" CODTAB[3,4]
DISPLAY "Livello 3" CODTAB[5,6]
DISPLAY "Livello 4" CODTAB[7,8]
DISPLAY "Livello 5" CODTAB[9,10]
DISPLAY "Livello 6" CODTAB[11,12]
COPY OUTPUT F_CODTAB
FIELD S0
KEY 2

44
tc/tctbiiv.uml Executable file
View File

@ -0,0 +1,44 @@
#include "tctbiiv.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Codici IVA" 0 2 0 0
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 1 "Codice IVA IPSOA"
END
NUMBER F_CODTAB 3
BEGIN
PROMPT 2 2 "Codice "
USE &IIV
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 3 "Descrizione "
USE &IIV 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

8
tc/tctbina.uml
View File

@ -1,4 +1,4 @@
#include "tctbipg.h"
#include "tctbina.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
@ -8,13 +8,13 @@ PAGE "Nazioni" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Codice Nazione TeamSystem"
PROMPT 1 1 "Codice Nazione IPSOA"
END
NUMBER F_CODTAB 4
BEGIN
PROMPT 2 2 "Codice "
USE &TNA
USE &INA
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@60" S0
@ -29,7 +29,7 @@ END
STRING F_DESC 50
BEGIN
PROMPT 2 5 "Descrizione "
USE &TNA KEY 2
USE &INA KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB

6
tc/tctbipg.uml
View File

@ -8,13 +8,13 @@ PAGE "Condizioni di pagamento" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Codice Pagamento TeamSystem"
PROMPT 1 1 "Codice Pagamento IPSOA"
END
NUMBER F_CODTAB 4
BEGIN
PROMPT 2 2 "Codice "
USE &TPG
USE &IPG
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@60" S0
@ -29,7 +29,7 @@ END
STRING F_DESC 50
BEGIN
PROMPT 2 5 "Descrizione "
USE &TPG KEY 2
USE &IPG KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB

3
tc/tctbire.h Executable file
View File

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

28
tc/tctbire.uml
View File

@ -8,32 +8,20 @@ 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]
PROMPT 1 1 "Codice Registro IPSOA"
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]
PROMPT 2 2 "Codice "
USE &IRE
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@60" S0
OUTPUT F_TIPO CODTAB[1,1]
OUTPUT F_CODTAB CODTAB[2,3]
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FIELD CODTAB[2,3]
FIELD CODTAB
VALIDATE FIXLEN_FUNC 2
KEY 1
END
@ -41,7 +29,7 @@ END
STRING F_DESC 50
BEGIN
PROMPT 2 5 "Descrizione "
USE &TRE KEY 2
USE &IRE KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB

44
tc/tctbiva.uml Executable file
View File

@ -0,0 +1,44 @@
#include "tctbiva.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 IPSOA"
END
STRING F_CODTAB 3
BEGIN
PROMPT 2 2 "Codice "
USE &IVA
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 &IVA 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