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 2017-03-21 15:43:11 +00:00
parent 3fecc57026
commit 463b3a5010
25 changed files with 2120 additions and 1 deletions

View File

@ -5,6 +5,7 @@
#include <utility.h>
#include <textset.h>
#include <reprint.h>
#include <sheet.h>
#include <scanner.h>
#include "tc0.h"

View File

@ -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
View 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
View 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

File diff suppressed because it is too large Load Diff

8
src/tc/tc3100a.h Normal file
View 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
View 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
View 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
View 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
View 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
View 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

View File

@ -6,6 +6,7 @@
#include <utility.h>
#include <textset.h>
#include <reprint.h>
#include <sheet.h>
#include "tc8.h"
#include "tc8100a.h"

View File

@ -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
View 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
View 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
View File

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

45
src/tc/tctbrco.uml Normal file
View 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
View 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
View 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
View 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
View 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
View 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
View 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
View 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
View 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