Patch level : 12.0 370
Files correlati : tc3.exe tcmenu.men tc3100a.uml tc3800a.uml tctbrca.uml tctbrco.uml tctbriv.uml tctbrpg.uml tctbrre.uml tctbrvl.uml POrgramma di ricezione da Ericsoft versione 0 git-svn-id: svn://10.65.10.50/branches/R_10_00@23695 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
3fecc57026
commit
463b3a5010
@ -5,6 +5,7 @@
|
||||
#include <utility.h>
|
||||
#include <textset.h>
|
||||
#include <reprint.h>
|
||||
#include <sheet.h>
|
||||
#include <scanner.h>
|
||||
|
||||
#include "tc0.h"
|
||||
|
@ -17,6 +17,7 @@
|
||||
#include <tabutil.h>
|
||||
#include <urldefid.h>
|
||||
#include <utility.h>
|
||||
#include <sheet.h>
|
||||
#include <statbar.h>
|
||||
|
||||
#include <clifo.h>
|
||||
|
20
src/tc/tc3.cpp
Normal file
20
src/tc/tc3.cpp
Normal file
@ -0,0 +1,20 @@
|
||||
#include <xvt.h>
|
||||
|
||||
#include "tc3.h"
|
||||
|
||||
int main(int argc, char** argv)
|
||||
{
|
||||
const int op = argc < 2 ? 0 : argv[1][1]-'0';
|
||||
switch (op)
|
||||
{
|
||||
case 7: tc3800(argc,argv); break; // riclassificazione conti zucchetti
|
||||
case 1: tc3200(argc,argv); break; // Tabelle
|
||||
default: tc3100(argc,argv); break; // trasferimento zucchetti
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
24
src/tc/tc3.h
Normal file
24
src/tc/tc3.h
Normal file
@ -0,0 +1,24 @@
|
||||
#ifndef __TC3_H
|
||||
#define __TC3_H
|
||||
|
||||
int tc3100(int argc, char** argv);
|
||||
int tc3200(int argc, char** argv);
|
||||
int tc3300(int argc, char** argv);
|
||||
int tc3700(int argc, char** argv);
|
||||
int tc3800(int argc, char** argv);
|
||||
|
||||
#endif // __TC3_H
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
1067
src/tc/tc3100.cpp
Normal file
1067
src/tc/tc3100.cpp
Normal file
File diff suppressed because it is too large
Load Diff
8
src/tc/tc3100a.h
Normal file
8
src/tc/tc3100a.h
Normal file
@ -0,0 +1,8 @@
|
||||
// campi della maschera tc3100a Importazione da Ericsoft
|
||||
|
||||
#define F_CODDITTA 101
|
||||
#define F_RAGSOC 102
|
||||
#define F_PATH 103
|
||||
#define F_CLIFOR 104
|
||||
#define F_MOV 105
|
||||
#define F_VERBOSE 106
|
84
src/tc/tc3100a.uml
Normal file
84
src/tc/tc3100a.uml
Normal file
@ -0,0 +1,84 @@
|
||||
#include "tc3100a.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
|
||||
BUTTON DLG_ELABORA 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -11 "~Elabora"
|
||||
PICTURE BMP_ELABORA
|
||||
MESSAGE EXIT,K_ENTER
|
||||
END
|
||||
|
||||
#include <helpbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
TOOLBAR "" 0 -2 0 2
|
||||
|
||||
STRING DLG_PROFILE 50
|
||||
BEGIN
|
||||
PROMPT 9 0 "Profilo "
|
||||
PSELECT
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Importazione da Ericsoft" 0 0 0 -3
|
||||
|
||||
GROUPBOX DLG_NULL 76 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "@bDitta corrente"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 3 2 "Codice "
|
||||
FLAGS "FD"
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 23 2 ""
|
||||
FLAGS "D"
|
||||
//FIELD RAGSOC
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 6
|
||||
BEGIN
|
||||
PROMPT 2 4 "@bSorgente"
|
||||
END
|
||||
|
||||
STRING F_PATH 256 50
|
||||
BEGIN
|
||||
PROMPT 3 5 "Cartella "
|
||||
DSELECT
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD Path
|
||||
END
|
||||
|
||||
STRING F_CLIFOR 18
|
||||
BEGIN
|
||||
PROMPT 3 6 "Clienti "
|
||||
FLAGS "B"
|
||||
FIELD ReCFInFile
|
||||
END
|
||||
|
||||
STRING F_MOV 18
|
||||
BEGIN
|
||||
PROMPT 3 7 "Movimenti "
|
||||
FLAGS "B"
|
||||
FIELD ReMovInFile
|
||||
END
|
||||
|
||||
BOOLEAN F_VERBOSE
|
||||
BEGIN
|
||||
PROMPT 3 11 "Output Dettagliato"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
54
src/tc/tc3200.cpp
Normal file
54
src/tc/tc3200.cpp
Normal file
@ -0,0 +1,54 @@
|
||||
// gestione tabelle ericsoft
|
||||
#include <modaut.h>
|
||||
#include <modtbapp.h>
|
||||
#include <tabutil.h>
|
||||
|
||||
|
||||
// applicazione per la gestione delle tabelle di magazzino
|
||||
class Tab_app_eric : public TTable_module_application
|
||||
{
|
||||
|
||||
protected: // TRelation_application
|
||||
virtual bool user_create() ;
|
||||
|
||||
public:
|
||||
Tab_app_eric() {}
|
||||
virtual ~Tab_app_eric() {}
|
||||
};
|
||||
|
||||
HIDDEN inline Tab_app_eric& app() { return (Tab_app_eric&)main_app(); }
|
||||
|
||||
|
||||
bool Tab_app_eric::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_taberic, 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 tc3200(int argc, char** argv)
|
||||
{
|
||||
Tab_app_eric a;
|
||||
a.run(argc, argv, TR("Tabella"));
|
||||
return 0;
|
||||
}
|
||||
|
160
src/tc/tc3800.cpp
Normal file
160
src/tc/tc3800.cpp
Normal file
@ -0,0 +1,160 @@
|
||||
#include <automask.h>
|
||||
#include <execp.h>
|
||||
#include <relapp.h>
|
||||
#include <pconti.h>
|
||||
#include <recarray.h>
|
||||
|
||||
#include "tc3800a.h"
|
||||
|
||||
////////////////////////////////////////////////////////////////////////
|
||||
//MASCHERA
|
||||
////////////////////////////////////////////////////////////////////////
|
||||
class TRC_ricl_msk : public TAutomask
|
||||
{
|
||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
|
||||
public:
|
||||
TRC_ricl_msk() : TAutomask("tc3800a") {}
|
||||
};
|
||||
|
||||
bool TRC_ricl_msk::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
switch (o.dlg())
|
||||
{
|
||||
case F_CONTO:
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
return true;
|
||||
}
|
||||
|
||||
class TRCRiclass_application : public TRelation_application
|
||||
|
||||
// @author:(INTERNAL) Vari
|
||||
// @access:(INTERNAL) Private Member
|
||||
{
|
||||
// @cmember:(INTERNAL) Maschera corrente dell'applicazione
|
||||
TMask* _msk;
|
||||
// @cmember:(INTERNAL) Relazione corrente dell'applicazione
|
||||
TRelation* _rel;
|
||||
// @cmember:(INTERNAL) valori iniziale dei gruppo conto sottoconto
|
||||
int _gruppo;
|
||||
int _conto;
|
||||
long _sottoconto;
|
||||
|
||||
// @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
|
||||
// dalla corrente.
|
||||
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 inserimento
|
||||
// @cmember Inizializzazione dei dati dell'utente
|
||||
virtual void init_query_mode(TMask& m) ;
|
||||
// @cmember Inizializza la maschera per il modo ricerca ed inserimento (chiama <mf TRelation_application::init_query_mode>)
|
||||
virtual void init_query_insert_mode(TMask& m) ;
|
||||
virtual void init_insert_mode(TMask& m);
|
||||
// @cmember Inizializza la maschera per il modo modifica
|
||||
virtual void init_modify_mode(TMask& m);
|
||||
virtual bool user_create() ;
|
||||
// @cmember Distruzione dei dati dell'utente
|
||||
virtual bool user_destroy() ;
|
||||
// @cmember Chiama il programma di stampa
|
||||
virtual void print();
|
||||
|
||||
// @access Public Member
|
||||
public:
|
||||
// @cmember Costruttore
|
||||
TRCRiclass_application() : _msk(NULL), _rel(NULL) { }
|
||||
|
||||
|
||||
// @cmember Distruttore
|
||||
virtual ~TRCRiclass_application() {}
|
||||
};
|
||||
|
||||
|
||||
void TRCRiclass_application::print()
|
||||
{
|
||||
TFilename rep("tcscricl.rep"); //qui
|
||||
TString cmd;
|
||||
rep.custom_path();
|
||||
cmd << "ba8 -4 "<< rep;
|
||||
TExternal_app stampa(cmd);
|
||||
stampa.run();
|
||||
}
|
||||
|
||||
void TRCRiclass_application::init_insert_mode(TMask& m)
|
||||
{
|
||||
m.show(-1);
|
||||
m.disable(-1);
|
||||
m.hide(-2);
|
||||
m.disable(-3);
|
||||
}
|
||||
void TRCRiclass_application::init_query_mode(TMask& m)
|
||||
{
|
||||
m.show(-1);
|
||||
m.hide(-2);
|
||||
m.enable(-3);
|
||||
}
|
||||
|
||||
void TRCRiclass_application::init_query_insert_mode(TMask& m)
|
||||
{
|
||||
m.hide(-1);
|
||||
m.show(-2);
|
||||
m.enable(-3);
|
||||
}
|
||||
|
||||
void TRCRiclass_application::init_modify_mode(TMask& m)
|
||||
{
|
||||
TRelation_application::init_modify_mode(m);
|
||||
_gruppo = m.get_int(F_GRUPPO);
|
||||
_conto = m.get_int(F_CONTO);
|
||||
_sottoconto = m.get_long(F_SOTTOCONTO);
|
||||
m.show(-1);
|
||||
m.disable(-1);
|
||||
m.hide(-2);
|
||||
m.disable(-3);
|
||||
}
|
||||
|
||||
bool TRCRiclass_application::user_create()
|
||||
{
|
||||
_rel = new TRelation(LF_RICLPDC);
|
||||
_msk = new TRC_ricl_msk;
|
||||
|
||||
set_search_field(F_SOTTOCONTO);
|
||||
|
||||
TFilename rep("tczcricl.rep");
|
||||
|
||||
if (rep.custom_path())
|
||||
enable_menu_item(M_FILE_PRINT);
|
||||
|
||||
TString title;
|
||||
_msk->get_caption(title);
|
||||
set_title(title);
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
bool TRCRiclass_application::user_destroy()
|
||||
{
|
||||
if (_msk)
|
||||
delete _msk;
|
||||
if (_rel)
|
||||
delete _rel;
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
|
||||
|
||||
int tc3800(int argc, char **argv)
|
||||
{
|
||||
TRCRiclass_application a;
|
||||
|
||||
a.run(argc, argv, TR("Riclassificazione piano dei conti Ericsoft"));
|
||||
return 0;
|
||||
}
|
||||
|
12
src/tc/tc3800a.h
Normal file
12
src/tc/tc3800a.h
Normal file
@ -0,0 +1,12 @@
|
||||
//id campi maschera tc3800a (file piano dei conti Ericsoft)
|
||||
//campi normali
|
||||
#define F_COD 101
|
||||
#define F_GRUPPO 102
|
||||
#define F_CONTO 103
|
||||
#define F_SOTTOCONTO 104
|
||||
#define F_SOTTOCONTO1 105
|
||||
#define F_DESCG 106
|
||||
#define F_DESCC 107
|
||||
#define F_DESC 108
|
||||
#define F_CONTORE 109
|
||||
#define F_DESCRIZ 110
|
171
src/tc/tc3800a.uml
Normal file
171
src/tc/tc3800a.uml
Normal file
@ -0,0 +1,171 @@
|
||||
#include "tc3800a.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Riclassificazione conti" 0 2 0 0
|
||||
|
||||
LIST F_COD 7
|
||||
BEGIN
|
||||
PROMPT 50 50 ""
|
||||
ITEM "RECONTI|RECONTI"
|
||||
FIELD TIPORIC
|
||||
FLAGS "D"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Conto Campo"
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPO 3
|
||||
BEGIN
|
||||
PROMPT 2 2 "Gruppo "
|
||||
HELP "Codice del gruppo"
|
||||
FIELD GRUPPO
|
||||
KEY 1
|
||||
USE LF_PCON KEY 1 SELECT CONTO=""
|
||||
INPUT GRUPPO F_GRUPPO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_DESCG DESCR
|
||||
CHECKTYPE FORCED
|
||||
ADD RUN cg0 -0
|
||||
END
|
||||
|
||||
STRING F_DESCG 50
|
||||
BEGIN
|
||||
PROMPT 25 2 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_CONTO 3
|
||||
BEGIN
|
||||
PROMPT 2 3 "Conto "
|
||||
HELP "Codice dell'eventuale conto"
|
||||
FIELD CONTO
|
||||
KEY 1
|
||||
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
|
||||
COPY INPUT F_GRUPPO
|
||||
INPUT CONTO F_CONTO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_CONTO CONTO
|
||||
OUTPUT F_DESCC DESCR
|
||||
CHECKTYPE FORCED
|
||||
WARNING "Manca il conto"
|
||||
ADD RUN cg0 -0
|
||||
END
|
||||
|
||||
STRING F_DESCC 50
|
||||
BEGIN
|
||||
PROMPT 25 3 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCONTO 6
|
||||
BEGIN
|
||||
PROMPT 2 4 "Sottoconto"
|
||||
HELP "Codice dell'eventuale sottoconto"
|
||||
FIELD SOTTOCONTO
|
||||
KEY 1
|
||||
USE LF_RICLPDC
|
||||
JOIN LF_PCON INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
|
||||
INPUT TIPORIC F_COD
|
||||
INPUT GRUPPO F_GRUPPO
|
||||
INPUT CONTO F_CONTO
|
||||
INPUT SOTTOCONTO F_SOTTOCONTO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" LF_PCON->DESCR
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_CONTO CONTO
|
||||
OUTPUT F_SOTTOCONTO SOTTOCONTO
|
||||
OUTPUT F_DESC LF_PCON->DESCR
|
||||
CHECKTYPE FORCED
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCONTO1 6
|
||||
BEGIN
|
||||
PROMPT 2 4 "Sottoconto"
|
||||
HELP "Codice dell'eventuale sottoconto"
|
||||
FIELD SOTTOCONTO
|
||||
KEY 1
|
||||
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
||||
COPY INPUT F_CONTO
|
||||
INPUT SOTTOCONTO F_SOTTOCONTO1
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Sosp." SOSPESO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_CONTO CONTO
|
||||
OUTPUT F_SOTTOCONTO1 SOTTOCONTO
|
||||
OUTPUT F_DESC DESCR
|
||||
MESSAGE COPY F_SOTTOCONTO
|
||||
CHECKTYPE FORCED
|
||||
GROUP 2
|
||||
FLAGS "HG"
|
||||
ADD RUN cg0 -0
|
||||
END
|
||||
|
||||
STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 25 4 ""
|
||||
USE LF_PCON KEY 2
|
||||
KEY 2
|
||||
INPUT DESCR F_DESC
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Sosp." SOSPESO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
COPY OUTPUT F_SOTTOCONTO1
|
||||
CHECKTYPE NORMAL
|
||||
HELP "Descrizione del gruppo o del conto o del sottoconto"
|
||||
WARNING "Descrizione mancante"
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 6 "Conto Ericsoft"
|
||||
END
|
||||
|
||||
STRING F_CONTORE 7
|
||||
BEGIN
|
||||
PROMPT 2 7 "Conto "
|
||||
USE &RCO
|
||||
INPUT CODTAB F_CONTORE
|
||||
DISPLAY "Conto Ericsoft" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CONTORE CODTAB
|
||||
OUTPUT F_DESCRIZ S0
|
||||
CHECKTYPE REQUIRED
|
||||
VALIDATE FIXLEN_FUNC 7
|
||||
FIELD CODICE
|
||||
END
|
||||
|
||||
STRING F_DESCRIZ 50
|
||||
BEGIN
|
||||
PROMPT 25 7 ""
|
||||
USE &RCO KEY 2
|
||||
INPUT S0 F_DESCRIZ
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Conto Ericsoft" CODTAB
|
||||
COPY OUTPUT F_CONTORE
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
@ -6,6 +6,7 @@
|
||||
#include <utility.h>
|
||||
#include <textset.h>
|
||||
#include <reprint.h>
|
||||
#include <sheet.h>
|
||||
|
||||
#include "tc8.h"
|
||||
#include "tc8100a.h"
|
||||
|
@ -7,7 +7,8 @@ Item_01 = "TeamSystem", [TCMENU_002]
|
||||
Item_02 = "Zucchetti", [TCMENU_006]
|
||||
Item_03 = "IPSOA", [TCMENU_010]
|
||||
Item_04 = "Sispac", [TCMENU_014]
|
||||
Item_05 = "Altri", [TCMENU_015]
|
||||
Item_04 = "Ericsoft", [TCMENU_015]
|
||||
Item_05 = "Altri", [TCMENU_018]
|
||||
|
||||
[TCMENU_002]
|
||||
Caption = "TeamSystem"
|
||||
@ -150,6 +151,34 @@ Item_02 = "Tabella IVA Sispac", "tc9 -3 IVA", ""
|
||||
Item_03 = "Tabella causali Sispac", "tc9 -3 CAU", ""
|
||||
|
||||
[TCMENU_015]
|
||||
Caption = "Ericsoft"
|
||||
Picture = <cg01>
|
||||
Module = 27
|
||||
Flags = ""
|
||||
Item_01 = "Trasferimento", "tc3 -0", ""
|
||||
Item_02 = "Tabelle", [TCMENU_016]
|
||||
Item_03 = "Tabelle di riclassificazione", [TCMENU_017]
|
||||
|
||||
[TCMENU_016]
|
||||
Caption = "Tabelle Ericsoft"
|
||||
Picture = <cg01>
|
||||
Module = 27
|
||||
Flags = ""
|
||||
Item_01 = "Registri", "tc3 -1 &RRE", ""
|
||||
Item_02 = "Causali", "tc3 -1 &RCA", ""
|
||||
Item_03 = "Codici IVA", "tc3 -1 &RIV", ""
|
||||
Item_04 = "Condizioni di pagamento", "tc3 -1 &RPG", ""
|
||||
Item_05 = "Valute", "tc3 -1 &RVL", ""
|
||||
Item_06 = "Conti", "tc3 -1 &RCO", ""
|
||||
|
||||
[TCMENU_017]
|
||||
Caption = "Tabelle di riclassificazione Ericsoft"
|
||||
Picture = <cg01>
|
||||
Module = 27
|
||||
Flags = ""
|
||||
Item_01 = "Piano dei conti", "tc3 -7", ""
|
||||
|
||||
[TCMENU_018]
|
||||
Caption = "Altri"
|
||||
Picture = <cg01>
|
||||
Module = 27
|
||||
|
5
src/tc/tctbrca.h
Normal file
5
src/tc/tctbrca.h
Normal file
@ -0,0 +1,5 @@
|
||||
#define F_TIPO 101
|
||||
#define F_CODTAB 102
|
||||
#define F_DESC 103
|
||||
#define F_CODICE 104
|
||||
#define F_DESCR 105
|
101
src/tc/tctbrca.uml
Normal file
101
src/tc/tctbrca.uml
Normal file
@ -0,0 +1,101 @@
|
||||
#include "tctbrca.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Conti" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 1 "Causale Ericsoft"
|
||||
END
|
||||
|
||||
LIST F_TIPO 1 30
|
||||
BEGIN
|
||||
PROMPT 2 2 "Tipo "
|
||||
ITEM "0|Non IVA"
|
||||
ITEM "1|Fattura"
|
||||
ITEM "2|Nota di accredito"
|
||||
ITEM "3|Corrispettivo/Costo"
|
||||
ITEM "4|Storno Corrispettivo/Costo"
|
||||
ITEM "5|Incasso fattura sospesa"
|
||||
ITEM "1|Fattura"
|
||||
ITEM "2|Nota di accredito"
|
||||
FIELD CODTAB[1,1]
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_CODTAB 3
|
||||
BEGIN
|
||||
PROMPT 54 2 "Codice "
|
||||
USE &RCA
|
||||
INPUT CODTAB[2,4] F_TIPO
|
||||
INPUT CODTAB[2,4] F_CODTAB
|
||||
DISPLAY "Tipo" CODTAB[1,1]
|
||||
DISPLAY "Codice" CODTAB[2,4]
|
||||
DISPLAY "Descrizione@60" S0
|
||||
OUTPUT F_TIPO CODTAB[1,1]
|
||||
OUTPUT F_CODTAB CODTAB[2,4]
|
||||
OUTPUT F_DESC S0
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODTAB[2,4]
|
||||
FLAGS "UZ"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Descrizione "
|
||||
USE &RCA KEY 2
|
||||
INPUT S0 F_DESC
|
||||
DISPLAY "Descrizione@60" S0
|
||||
DISPLAY "Tipo" CODTAB[1,1]
|
||||
DISPLAY "Codice" CODTAB[2,4]
|
||||
COPY OUTPUT F_CODTAB
|
||||
FIELD S0
|
||||
KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_CODICE 3
|
||||
BEGIN
|
||||
PROMPT 2 6 "Cod.Causale "
|
||||
FIELD S1
|
||||
FLAGS "UZ"
|
||||
USE LF_CAUSALI
|
||||
INPUT CODCAUS F_CODICE
|
||||
DISPLAY "Cod." CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Documento" TIPODOC
|
||||
DISPLAY "Registro" REG
|
||||
DISPLAY "Tipo movimento" TIPOMOV
|
||||
DISPLAY "Colleg." CODCAUSIM
|
||||
DISPLAY "770" M770
|
||||
DISPLAY "Cespiti" COLLCESP
|
||||
OUTPUT F_CODICE CODCAUS
|
||||
OUTPUT F_DESCR DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 20 6 ""
|
||||
USE LF_CAUSALI KEY 2
|
||||
INPUT DESCR F_DESCR
|
||||
DISPLAY "Descrizione @50" DESCR
|
||||
DISPLAY "Cod." CODCAUS
|
||||
DISPLAY "Documento" TIPODOC
|
||||
DISPLAY "Registro" REG
|
||||
DISPLAY "Movimento" TIPOMOV
|
||||
DISPLAY "Colleg." CODCAUSIM
|
||||
DISPLAY "770" M770
|
||||
DISPLAY "Cespiti" COLLCESP
|
||||
COPY OUTPUT F_CODICE
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
2
src/tc/tctbrco.h
Normal file
2
src/tc/tctbrco.h
Normal file
@ -0,0 +1,2 @@
|
||||
#define F_CODTAB 101
|
||||
#define F_DESC 102
|
45
src/tc/tctbrco.uml
Normal file
45
src/tc/tctbrco.uml
Normal file
@ -0,0 +1,45 @@
|
||||
#include "tctbrco.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Conti" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "Conto Ericsoft"
|
||||
END
|
||||
|
||||
STRING F_CODTAB 7
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
USE &RCO
|
||||
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 7
|
||||
FLAGS "Z"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 2 5 "Descrizione "
|
||||
USE &RCO 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
src/tc/tctbriv.h
Normal file
4
src/tc/tctbriv.h
Normal file
@ -0,0 +1,4 @@
|
||||
#define F_CODTAB 102
|
||||
#define F_DESC 103
|
||||
#define F_CODICE 104
|
||||
#define F_DESCR 105
|
78
src/tc/tctbriv.uml
Normal file
78
src/tc/tctbriv.uml
Normal file
@ -0,0 +1,78 @@
|
||||
#include "tctbriv.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 Ericsoft"
|
||||
END
|
||||
|
||||
NUMBER F_CODTAB 3
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
USE &RIV
|
||||
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 &RIV KEY 2
|
||||
INPUT S0 F_DESC
|
||||
DISPLAY "Descrizione@60" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_CODTAB
|
||||
FIELD S0
|
||||
KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_CODICE 4
|
||||
BEGIN
|
||||
PROMPT 2 6 "Codice IVA "
|
||||
FIELD S1
|
||||
USE %IVA
|
||||
FLAGS "U"
|
||||
INPUT CODTAB F_CODICE
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Tipo" S1
|
||||
DISPLAY "%@5" R0
|
||||
DISPLAY "Vent." S6
|
||||
DISPLAY "Sospeso" B2
|
||||
OUTPUT F_CODICE CODTAB
|
||||
OUTPUT F_DESCR S0
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 20 6 ""
|
||||
USE %IVA KEY 2
|
||||
INPUT S0 F_DESCR
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Tipo" S1
|
||||
DISPLAY "%@5" R0
|
||||
DISPLAY "Vent." S6
|
||||
DISPLAY "Sospeso" B2
|
||||
COPY OUTPUT F_CODICE
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
4
src/tc/tctbrpg.h
Normal file
4
src/tc/tctbrpg.h
Normal file
@ -0,0 +1,4 @@
|
||||
#define F_CODTAB 102
|
||||
#define F_DESC 103
|
||||
#define F_CODICE 104
|
||||
#define F_DESCR 105
|
69
src/tc/tctbrpg.uml
Normal file
69
src/tc/tctbrpg.uml
Normal file
@ -0,0 +1,69 @@
|
||||
#include "tctbrpg.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Condizioni di pagamento" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 1 "Codice Pagamento Ericsoft"
|
||||
END
|
||||
|
||||
NUMBER F_CODTAB 4
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
USE &RPG
|
||||
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 &RPG KEY 2
|
||||
INPUT S0 F_DESC
|
||||
DISPLAY "Descrizione@60" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_CODTAB
|
||||
FIELD S0
|
||||
KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_CODICE 4
|
||||
BEGIN
|
||||
PROMPT 2 6 "Cod.Pagamento "
|
||||
FLAGS "U#"
|
||||
FIELD S1
|
||||
USE %CPG KEY 1
|
||||
INPUT CODTAB F_CODICE
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODICE CODTAB
|
||||
OUTPUT F_DESCR S0
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 23 6 ""
|
||||
USE %CPG KEY 2
|
||||
INPUT S0 F_DESC
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice@10" CODTAB
|
||||
COPY OUTPUT F_CODICE
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
6
src/tc/tctbrre.h
Normal file
6
src/tc/tctbrre.h
Normal file
@ -0,0 +1,6 @@
|
||||
#define F_TIPO 101
|
||||
#define F_CODTAB 102
|
||||
#define F_DESC 103
|
||||
#define F_ANNO 104
|
||||
#define F_CODICE 105
|
||||
#define F_DESCR 106
|
97
src/tc/tctbrre.uml
Normal file
97
src/tc/tctbrre.uml
Normal file
@ -0,0 +1,97 @@
|
||||
#include "tctbrre.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Registri" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Codice Registro Ericsoft"
|
||||
END
|
||||
|
||||
LIST F_TIPO 1 30
|
||||
BEGIN
|
||||
PROMPT 2 2 "Tipo "
|
||||
ITEM "1|Vendite"
|
||||
ITEM "2|Acquisti"
|
||||
ITEM "3|Corrispettivi in scorporo"
|
||||
ITEM "4|Corrispettivi in ventilazione"
|
||||
FIELD CODTAB[1,1]
|
||||
END
|
||||
|
||||
NUMBER F_CODTAB 2
|
||||
BEGIN
|
||||
PROMPT 56 2 "Codice "
|
||||
USE &RRE
|
||||
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]
|
||||
VALIDATE FIXLEN_FUNC 2
|
||||
FLAGS "Z"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Descrizione "
|
||||
USE &RRE KEY 2
|
||||
INPUT S0 F_DESC
|
||||
DISPLAY "Descrizione@60" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_CODTAB
|
||||
FIELD S0
|
||||
KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_CODICE 3
|
||||
BEGIN
|
||||
PROMPT 2 6 "Registro "
|
||||
Help "Codice del registro"
|
||||
USE REG
|
||||
INPUT CODTAB[1,4] F_ANNO SELECT
|
||||
INPUT CODTAB[5,7] F_CODICE
|
||||
DISPLAY "Codice" CODTAB[5,7]
|
||||
DISPLAY "Descrizione @50" S0
|
||||
DISPLAY "Tipo" I0
|
||||
OUTPUT F_CODICE CODTAB[5,7]
|
||||
OUTPUT F_DESCR S0
|
||||
FLAGS "GUZ"
|
||||
FIELD S1
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESCR 50 43
|
||||
BEGIN
|
||||
PROMPT 22 6 ""
|
||||
USE REG KEY 2 SELECT (CODTAB[1,4]==#F_ANNO)
|
||||
INPUT S0 F_DESCR
|
||||
DISPLAY "Descrizione @50" S0
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice" CODTAB[5,7]
|
||||
DISPLAY "Tipo" I0
|
||||
COPY OUTPUT F_CODICE
|
||||
CHECKTYPE SEARCH
|
||||
MESSAGE COPY,22@
|
||||
HELP "Descrizione del registro"
|
||||
WARNING "La descrizione e' obbligatoria"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 68 6 "Anno "
|
||||
FLAGS "DAZ"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
4
src/tc/tctbrvl.h
Normal file
4
src/tc/tctbrvl.h
Normal file
@ -0,0 +1,4 @@
|
||||
#define F_CODTAB 102
|
||||
#define F_DESC 103
|
||||
#define F_CODVAL 104
|
||||
#define F_DESVAL 105
|
72
src/tc/tctbrvl.uml
Normal file
72
src/tc/tctbrvl.uml
Normal file
@ -0,0 +1,72 @@
|
||||
#include "tctbrvl.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Valute" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 1 "Codice Valuta Ericsoft"
|
||||
END
|
||||
|
||||
STRING F_CODTAB 3
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
USE &RVL
|
||||
INPUT CODTAB F_CODTAB
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@60" S0
|
||||
OUTPUT F_CODTAB CODTAB
|
||||
OUTPUT F_DESC S0
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODTAB
|
||||
FLAGS "U"
|
||||
VALIDATE FIXLEN_FUNC 3
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Descrizione "
|
||||
USE &RVL KEY 2
|
||||
INPUT S0 F_DESC
|
||||
DISPLAY "Descrizione@60" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_CODTAB
|
||||
FIELD S0
|
||||
KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_CODVAL 3
|
||||
BEGIN
|
||||
PROMPT 2 6 "Codice "
|
||||
FIELD S1
|
||||
FLAGS "UZ"
|
||||
USE %VAL
|
||||
INPUT CODTAB F_CODVAL
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Valuta@50" S0
|
||||
OUTPUT F_CODVAL CODTAB
|
||||
OUTPUT F_DESVAL S0
|
||||
HELP "Codice della valuta"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESVAL 50
|
||||
BEGIN
|
||||
PROMPT 21 6 ""
|
||||
USE %VAL KEY 2
|
||||
INPUT S0 F_DESC
|
||||
DISPLAY "Valuta@60" S0
|
||||
DISPLAY "Codice@10" CODTAB
|
||||
COPY OUTPUT F_CODVAL
|
||||
HELP "Descrizione della valuta"
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
Loading…
x
Reference in New Issue
Block a user