Patch level : 10.0 no patch
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
parent
4d101dc090
commit
25713ad656
BIN
tc/Importazione Dati IPSOA.pdf
Executable file
BIN
tc/Importazione Dati IPSOA.pdf
Executable file
Binary file not shown.
19
tc/ipconf.h
Executable file
19
tc/ipconf.h
Executable 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
166
tc/tc2300.cpp
@ -8,9 +8,9 @@
|
|||||||
#include "../include/attiv.h"
|
#include "../include/attiv.h"
|
||||||
#include "../include/mov.h"
|
#include "../include/mov.h"
|
||||||
#include "../cg/cglib01.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;
|
char _current;
|
||||||
|
|
||||||
@ -27,117 +27,26 @@ public:
|
|||||||
virtual bool user_create( );
|
virtual bool user_create( );
|
||||||
virtual bool user_destroy( );
|
virtual bool user_destroy( );
|
||||||
|
|
||||||
TTS_confditta() : TConfig_application( CONFIG_DITTA ){ }
|
TIP_confditta() : TConfig_application( CONFIG_DITTA ){ }
|
||||||
virtual ~TTS_confditta( ){ }
|
virtual ~TIP_confditta( ){ }
|
||||||
};
|
};
|
||||||
|
|
||||||
bool sh_notify(TSheet_field& s, int r, KEY k)
|
bool TIP_confditta::check_fields(TMask_field& f, 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)
|
|
||||||
{
|
{
|
||||||
return true;
|
return true;
|
||||||
}
|
}
|
||||||
|
|
||||||
void TTS_confditta::load_mask()
|
void TIP_confditta::load_mask()
|
||||||
{
|
{
|
||||||
TMask* mask = get_mask();
|
TMask* mask = get_mask();
|
||||||
|
|
||||||
if (mask != NULL)
|
if (mask != NULL)
|
||||||
{
|
{
|
||||||
TConfig_application::load_mask();
|
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);
|
void TIP_confditta::save_mask(bool tosave)
|
||||||
|
|
||||||
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)
|
|
||||||
{
|
{
|
||||||
if (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);
|
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;
|
return true;
|
||||||
}
|
}
|
||||||
|
|
||||||
bool TTS_confditta::postprocess_config (TMask& mask, TConfig& config)
|
bool TIP_confditta::postprocess_config (TMask& mask, TConfig& config)
|
||||||
{
|
{
|
||||||
return true;
|
return true;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
bool TTS_confditta::user_create( )
|
bool TIP_confditta::user_create( )
|
||||||
{
|
{
|
||||||
TConfig conf(CONFIG_DITTA);
|
TConfig conf(CONFIG_DITTA);
|
||||||
|
|
||||||
@ -252,14 +112,14 @@ bool TTS_confditta::user_create( )
|
|||||||
return true;
|
return true;
|
||||||
}
|
}
|
||||||
|
|
||||||
bool TTS_confditta::user_destroy( )
|
bool TIP_confditta::user_destroy( )
|
||||||
{
|
{
|
||||||
return true;
|
return true;
|
||||||
}
|
}
|
||||||
|
|
||||||
int tc2300(int argc, char* argv[])
|
int tc2300(int argc, char* argv[])
|
||||||
{
|
{
|
||||||
TTS_confditta appc;
|
TIP_confditta appc;
|
||||||
appc.run(argc, argv, TR("Parametri ditta TeamSystem"));
|
appc.run(argc, argv, TR("Parametri ditta IPSOA"));
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|||||||
147
tc/tc2300a.uml
Executable file
147
tc/tc2300a.uml
Executable 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
115
tc/tcipcau.uml
Executable 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
110
tc/tcipcdp.uml
Executable 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
112
tc/tcipi11.uml
Executable 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
111
tc/tcipiva.uml
Executable 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
108
tc/tcipnaz.uml
Executable 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
126
tc/tcipreg.uml
Executable 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
|
||||||
@ -94,3 +94,48 @@ Module = 27
|
|||||||
Flags = ""
|
Flags = ""
|
||||||
Item_01 = "Parametri ditta", "tc1 -2", ""
|
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
44
tc/tctbiat.uml
Executable 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
|
||||||
@ -8,13 +8,13 @@ PAGE "Causali" 0 2 0 0
|
|||||||
|
|
||||||
GROUPBOX DLG_NULL 78 3
|
GROUPBOX DLG_NULL 78 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 1 "Codice Causale TeamSystem"
|
PROMPT 1 1 "Codice Causale IPSOA"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODTAB 3
|
NUMBER F_CODTAB 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Codice "
|
PROMPT 2 2 "Codice "
|
||||||
USE &TCA
|
USE &ICA
|
||||||
INPUT CODTAB F_CODTAB
|
INPUT CODTAB F_CODTAB
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@60" S0
|
DISPLAY "Descrizione@60" S0
|
||||||
@ -23,14 +23,14 @@ BEGIN
|
|||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
FIELD CODTAB
|
FIELD CODTAB
|
||||||
FLAGS "Z"
|
FLAGS "Z"
|
||||||
VALIDATE FIXLEN_FUNC 3
|
VALIDATE FIXLEN_FUNC 4
|
||||||
KEY 1
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESC 50
|
STRING F_DESC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Descrizione "
|
PROMPT 2 5 "Descrizione "
|
||||||
USE &TCA KEY 2
|
USE &ICA KEY 2
|
||||||
INPUT S0 F_DESC
|
INPUT S0 F_DESC
|
||||||
DISPLAY "Descrizione@60" S0
|
DISPLAY "Descrizione@60" S0
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
|
|||||||
13
tc/tctbico.h
13
tc/tctbico.h
@ -1,5 +1,8 @@
|
|||||||
#define F_CODTAB 102
|
#define F_CODTAB1 101
|
||||||
#define F_CODTAB1 103
|
#define F_CODTAB2 102
|
||||||
#define F_CODTAB2 104
|
#define F_CODTAB3 103
|
||||||
#define F_DESC 105
|
#define F_CODTAB4 104
|
||||||
#define F_INDBIL 106
|
#define F_CODTAB5 105
|
||||||
|
#define F_CODTAB6 106
|
||||||
|
#define F_DESC 107
|
||||||
|
#define F_INDBIL 108
|
||||||
|
|||||||
@ -8,57 +8,100 @@ PAGE "Conti" 0 2 0 0
|
|||||||
|
|
||||||
GROUPBOX DLG_NULL 78 3
|
GROUPBOX DLG_NULL 78 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 1 "Codice Conto TeamSystem"
|
PROMPT 1 1 "Codice Conto IPSOA"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODTAB 2
|
STRING F_CODTAB1 12
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Gruppo "
|
PROMPT 2 2 "Codice : 1 "
|
||||||
USE &TCO
|
USE &ICO
|
||||||
INPUT CODTAB[1,2] F_CODTAB
|
INPUT CODTAB[1,2] F_CODTAB1
|
||||||
INPUT CODTAB[3,4] F_CODTAB1
|
INPUT CODTAB[3,4] F_CODTAB2
|
||||||
INPUT CODTAB[5,7] F_CODTAB2
|
INPUT CODTAB[5,6] F_CODTAB3
|
||||||
DISPLAY "Gruppo" CODTAB[1,2]
|
INPUT CODTAB[7,8] F_CODTAB4
|
||||||
DISPLAY "Conto" CODTAB[3,4]
|
INPUT CODTAB[9,10] F_CODTAB5
|
||||||
DISPLAY "Sottoconto" CODTAB[5,7]
|
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
|
DISPLAY "Descrizione@60" S0
|
||||||
OUTPUT F_CODTAB CODTAB[1,2]
|
OUTPUT F_CODTAB1 CODTAB[1,2]
|
||||||
OUTPUT F_CODTAB1 CODTAB[3,4]
|
OUTPUT F_CODTAB2 CODTAB[3,4]
|
||||||
OUTPUT F_CODTAB2 CODTAB[5,7]
|
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
|
OUTPUT F_DESC S0
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
FIELD CODTAB[1,2]
|
FIELD CODTAB[1,2]
|
||||||
VALIDATE FIXLEN_FUNC 2
|
|
||||||
KEY 1
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODTAB1 2
|
STRING F_CODTAB2 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 20 2 "Conto "
|
PROMPT 20 2 "2 "
|
||||||
COPY ALL F_CODTAB
|
COPY ALL F_CODTAB1
|
||||||
CHECKTYPE SEARCH
|
CHECKTYPE SEARCH
|
||||||
FIELD CODTAB[3,4]
|
FIELD CODTAB[3,4]
|
||||||
VALIDATE FIXLEN_FUNC 2
|
VALIDATE FIXLEN_FUNC 2
|
||||||
KEY 1
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODTAB2 3
|
STRING F_CODTAB3 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 30 2 "Sottoconto "
|
PROMPT 26 2 "3 "
|
||||||
COPY ALL F_CODTAB
|
COPY ALL F_CODTAB1
|
||||||
CHECKTYPE SEARCH
|
CHECKTYPE SEARCH
|
||||||
FIELD CODTAB[5,7]
|
FIELD CODTAB[5,6]
|
||||||
VALIDATE FIXLEN_FUNC 3
|
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
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESC 50
|
STRING F_DESC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Descrizione "
|
PROMPT 2 5 "Descrizione "
|
||||||
USE &TCO KEY 2
|
USE &ICO KEY 2
|
||||||
INPUT S0 F_DESC
|
INPUT S0 F_DESC
|
||||||
DISPLAY "Descrizione@60" S0
|
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
|
COPY OUTPUT F_CODTAB
|
||||||
FIELD S0
|
FIELD S0
|
||||||
KEY 2
|
KEY 2
|
||||||
|
|||||||
44
tc/tctbiiv.uml
Executable file
44
tc/tctbiiv.uml
Executable 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
|
||||||
@ -1,4 +1,4 @@
|
|||||||
#include "tctbipg.h"
|
#include "tctbina.h"
|
||||||
|
|
||||||
TOOLBAR "topbar" 0 0 0 2
|
TOOLBAR "topbar" 0 0 0 2
|
||||||
#include <relapbar.h>
|
#include <relapbar.h>
|
||||||
@ -8,13 +8,13 @@ PAGE "Nazioni" 0 2 0 0
|
|||||||
|
|
||||||
GROUPBOX DLG_NULL 78 3
|
GROUPBOX DLG_NULL 78 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 1 "Codice Nazione TeamSystem"
|
PROMPT 1 1 "Codice Nazione IPSOA"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODTAB 4
|
NUMBER F_CODTAB 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Codice "
|
PROMPT 2 2 "Codice "
|
||||||
USE &TNA
|
USE &INA
|
||||||
INPUT CODTAB F_CODTAB
|
INPUT CODTAB F_CODTAB
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@60" S0
|
DISPLAY "Descrizione@60" S0
|
||||||
@ -29,7 +29,7 @@ END
|
|||||||
STRING F_DESC 50
|
STRING F_DESC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Descrizione "
|
PROMPT 2 5 "Descrizione "
|
||||||
USE &TNA KEY 2
|
USE &INA KEY 2
|
||||||
INPUT S0 F_DESC
|
INPUT S0 F_DESC
|
||||||
DISPLAY "Descrizione@60" S0
|
DISPLAY "Descrizione@60" S0
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
|
|||||||
@ -8,13 +8,13 @@ PAGE "Condizioni di pagamento" 0 2 0 0
|
|||||||
|
|
||||||
GROUPBOX DLG_NULL 78 3
|
GROUPBOX DLG_NULL 78 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 1 "Codice Pagamento TeamSystem"
|
PROMPT 1 1 "Codice Pagamento IPSOA"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODTAB 4
|
NUMBER F_CODTAB 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Codice "
|
PROMPT 2 2 "Codice "
|
||||||
USE &TPG
|
USE &IPG
|
||||||
INPUT CODTAB F_CODTAB
|
INPUT CODTAB F_CODTAB
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@60" S0
|
DISPLAY "Descrizione@60" S0
|
||||||
@ -29,7 +29,7 @@ END
|
|||||||
STRING F_DESC 50
|
STRING F_DESC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Descrizione "
|
PROMPT 2 5 "Descrizione "
|
||||||
USE &TPG KEY 2
|
USE &IPG KEY 2
|
||||||
INPUT S0 F_DESC
|
INPUT S0 F_DESC
|
||||||
DISPLAY "Descrizione@60" S0
|
DISPLAY "Descrizione@60" S0
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
|
|||||||
3
tc/tctbire.h
Executable file
3
tc/tctbire.h
Executable file
@ -0,0 +1,3 @@
|
|||||||
|
#define F_CODTAB 102
|
||||||
|
#define F_DESC 103
|
||||||
|
|
||||||
@ -8,32 +8,20 @@ PAGE "Registri" 0 2 0 0
|
|||||||
|
|
||||||
GROUPBOX DLG_NULL 78 3
|
GROUPBOX DLG_NULL 78 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 1 "Codice Registro TeamSystem"
|
PROMPT 1 1 "Codice Registro IPSOA"
|
||||||
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
|
END
|
||||||
|
|
||||||
STRING F_CODTAB 2
|
STRING F_CODTAB 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 25 2 "Codice "
|
PROMPT 2 2 "Codice "
|
||||||
USE &TRE
|
USE &IRE
|
||||||
INPUT CODTAB[1,1] F_TIPO
|
INPUT CODTAB F_CODTAB
|
||||||
INPUT CODTAB[2,3] F_CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Tipo" CODTAB[1,1]
|
|
||||||
DISPLAY "Codice" CODTAB[2,3]
|
|
||||||
DISPLAY "Descrizione@60" S0
|
DISPLAY "Descrizione@60" S0
|
||||||
OUTPUT F_TIPO CODTAB[1,1]
|
OUTPUT F_CODTAB CODTAB
|
||||||
OUTPUT F_CODTAB CODTAB[2,3]
|
|
||||||
OUTPUT F_DESC S0
|
OUTPUT F_DESC S0
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
FIELD CODTAB[2,3]
|
FIELD CODTAB
|
||||||
VALIDATE FIXLEN_FUNC 2
|
VALIDATE FIXLEN_FUNC 2
|
||||||
KEY 1
|
KEY 1
|
||||||
END
|
END
|
||||||
@ -41,7 +29,7 @@ END
|
|||||||
STRING F_DESC 50
|
STRING F_DESC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Descrizione "
|
PROMPT 2 5 "Descrizione "
|
||||||
USE &TRE KEY 2
|
USE &IRE KEY 2
|
||||||
INPUT S0 F_DESC
|
INPUT S0 F_DESC
|
||||||
DISPLAY "Descrizione@60" S0
|
DISPLAY "Descrizione@60" S0
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
|
|||||||
44
tc/tctbiva.uml
Executable file
44
tc/tctbiva.uml
Executable 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
|
||||||
Loading…
x
Reference in New Issue
Block a user