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

Patch level : 12.0 370

Browse Source 
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 1


git-svn-id: svn://10.65.10.50/branches/R_10_00@23717 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
bonazzi 2017-03-31 21:01:23 +00:00
parent 4617a61978
commit aa1026ca92
3 changed files with 26 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/tc/tc3100.cpp
View File

@ -49,6 +49,7 @@ TObject* TRiclassifica_cache::key2obj(const char* key)
TString8 tab, cod; TString8 tab, cod;
tok.get(0,tab); tok.get(0,tab);
tok.get(1, cod); tok.get(1, cod);
_ricl.zero();
_ricl.put(RICLPDC_TIPORIC, tab); _ricl.put(RICLPDC_TIPORIC, tab);
_ricl.put(RICLPDC_CODICE, cod); _ricl.put(RICLPDC_CODICE, cod);
int err = _ricl.read(_isgteq); int err = _ricl.read(_isgteq);
@ -863,22 +864,24 @@ void TImportaEricsoft::upload_mov(const TFilename& file, TLog_report& log)
const TDate datareg = s.get(0).as_date(); const TDate datareg = s.get(0).as_date();
const long numreg_eric = s.get(1).as_int(); const long numreg_eric = s.get(1).as_int();
const char sezione = s.get(2).as_int() == 0 ? 'D' : 'A'; const TString4 sezione = s.get(2).as_int() == 0 ? "D" : "A";
_ricl->decode(TAB_RICCONTI, s.get(3).as_string(), gruppo, conto, sottoconto); _ricl->decode(TAB_RICCONTI, s.get(3).as_string(), gruppo, conto, sottoconto);
long codcf = s.get(5).as_int(); long codcf = s.get(5).as_int();
char tipocf= ' '; TString4 tipocf = " ";
switch (s.get(4).as_int()) switch (s.get(4).as_int())
{ {
case 1: case 1:
tipocf = 'C'; tipocf = "C";
break; break;
case 2: case 2:
tipocf = 'F'; tipocf = "F";
break; break;
default: default:
break; break;
} }
if (tipocf.full())
sottoconto = codcf;
if (codcf != 0L) if (codcf != 0L)
{ {
TString16 key; key.format("E%ld", codcf); TString16 key; key.format("E%ld", codcf);
@ -994,7 +997,7 @@ void TImportaEricsoft::upload_mov(const TFilename& file, TLog_report& log)
ini->set(RMV_DATAREG, datareg); ini->set(RMV_DATAREG, datareg);
ini->set(RMV_NUMRIG, nriga); ini->set(RMV_NUMRIG, nriga);
ini->set(RMV_SEZIONE, sezione); ini->set(RMV_SEZIONE, sezione);
ini->set(RMV_DESCR, sezione); ini->set(RMV_DESCR, descr);
ini->set(RMV_IMPORTO, importo.string()); ini->set(RMV_IMPORTO, importo.string());
ini->set(RMV_TIPOC, tipocf); ini->set(RMV_TIPOC, tipocf);
ini->set(RMV_GRUPPO, gruppo); ini->set(RMV_GRUPPO, gruppo);

1
src/tc/tc3800a.h
View File

@ -10,3 +10,4 @@
#define F_DESC 108 #define F_DESC 108
#define F_CONTORE 109 #define F_CONTORE 109
#define F_DESCRIZ 110 #define F_DESCRIZ 110
#define H_TIPOCF 111

19
src/tc/tc3800a.uml
View File

@ -53,9 +53,11 @@ BEGIN
INPUT CONTO F_CONTO INPUT CONTO F_CONTO
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Tipo" TMCF
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO OUTPUT F_CONTO CONTO
OUTPUT H_TIPOCF TMCF
OUTPUT F_DESCC DESCR OUTPUT F_DESCC DESCR
CHECKTYPE FORCED CHECKTYPE FORCED
WARNING "Manca il conto" WARNING "Manca il conto"
@ -68,6 +70,19 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
LIST H_TIPOCF 1 11
BEGIN
PROMPT 2 5 "Tipo "
FLAGS "HG"
KEY 1
ITEM " |Conti"
MESSAGE ENABLE,F_SOTTOCONTO|ENABLE,F_SOTTOCONTO1
ITEM "C|Clienti"
MESSAGE DISABLE,F_SOTTOCONTO|DISABLE,F_SOTTOCONTO1
ITEM "F|Fornitori"
MESSAGE DISABLE,F_SOTTOCONTO|DISABLE,F_SOTTOCONTO1
END
NUMBER F_SOTTOCONTO 6 NUMBER F_SOTTOCONTO 6
BEGIN BEGIN
PROMPT 2 4 "Sottoconto" PROMPT 2 4 "Sottoconto"
@ -88,7 +103,7 @@ BEGIN
OUTPUT F_CONTO CONTO OUTPUT F_CONTO CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_DESC LF_PCON->DESCR OUTPUT F_DESC LF_PCON->DESCR
CHECKTYPE FORCED CHECKTYPE SEARCH
GROUP 1 GROUP 1
END END
@ -111,7 +126,7 @@ BEGIN
OUTPUT F_SOTTOCONTO1 SOTTOCONTO OUTPUT F_SOTTOCONTO1 SOTTOCONTO
OUTPUT F_DESC DESCR OUTPUT F_DESC DESCR
MESSAGE COPY F_SOTTOCONTO MESSAGE COPY F_SOTTOCONTO
CHECKTYPE FORCED CHECKTYPE SEARCH
GROUP 2 GROUP 2
FLAGS "HG" FLAGS "HG"
ADD RUN cg0 -0 ADD RUN cg0 -0