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:
bonazzi
parent
3fecc57026
commit
463b3a5010
@ -5,6 +5,7 @@
|
|||||||
#include <utility.h>
|
#include <utility.h>
|
||||||
#include <textset.h>
|
#include <textset.h>
|
||||||
#include <reprint.h>
|
#include <reprint.h>
|
||||||
|
#include <sheet.h>
|
||||||
#include <scanner.h>
|
#include <scanner.h>
|
||||||
|
|
||||||
#include "tc0.h"
|
#include "tc0.h"
|
||||||
|
|||||||
@ -17,6 +17,7 @@
|
|||||||
#include <tabutil.h>
|
#include <tabutil.h>
|
||||||
#include <urldefid.h>
|
#include <urldefid.h>
|
||||||
#include <utility.h>
|
#include <utility.h>
|
||||||
|
#include <sheet.h>
|
||||||
#include <statbar.h>
|
#include <statbar.h>
|
||||||
|
|
||||||
#include <clifo.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 <utility.h>
|
||||||
#include <textset.h>
|
#include <textset.h>
|
||||||
#include <reprint.h>
|
#include <reprint.h>
|
||||||
|
#include <sheet.h>
|
||||||
|
|
||||||
#include "tc8.h"
|
#include "tc8.h"
|
||||||
#include "tc8100a.h"
|
#include "tc8100a.h"
|
||||||
|
|||||||
@ -7,7 +7,8 @@ Item_01 = "TeamSystem", [TCMENU_002]
|
|||||||
Item_02 = "Zucchetti", [TCMENU_006]
|
Item_02 = "Zucchetti", [TCMENU_006]
|
||||||
Item_03 = "IPSOA", [TCMENU_010]
|
Item_03 = "IPSOA", [TCMENU_010]
|
||||||
Item_04 = "Sispac", [TCMENU_014]
|
Item_04 = "Sispac", [TCMENU_014]
|
||||||
Item_05 = "Altri", [TCMENU_015]
|
Item_04 = "Ericsoft", [TCMENU_015]
|
||||||
|
Item_05 = "Altri", [TCMENU_018]
|
||||||
|
|
||||||
[TCMENU_002]
|
[TCMENU_002]
|
||||||
Caption = "TeamSystem"
|
Caption = "TeamSystem"
|
||||||
@ -150,6 +151,34 @@ Item_02 = "Tabella IVA Sispac", "tc9 -3 IVA", ""
|
|||||||
Item_03 = "Tabella causali Sispac", "tc9 -3 CAU", ""
|
Item_03 = "Tabella causali Sispac", "tc9 -3 CAU", ""
|
||||||
|
|
||||||
[TCMENU_015]
|
[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"
|
Caption = "Altri"
|
||||||
Picture = <cg01>
|
Picture = <cg01>
|
||||||
Module = 27
|
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