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;
tok.get(0,tab);
tok.get(1, cod);
_ricl.zero();
_ricl.put(RICLPDC_TIPORIC, tab);
_ricl.put(RICLPDC_CODICE, cod);
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 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);
long codcf = s.get(5).as_int();
char tipocf= ' ';
TString4 tipocf = " ";
switch (s.get(4).as_int())
{
case 1:
tipocf = 'C';
tipocf = "C";
break;
case 2:
tipocf = 'F';
tipocf = "F";
break;
default:
break;
}
if (tipocf.full())
sottoconto = codcf;
if (codcf != 0L)
{
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_NUMRIG, nriga);
ini->set(RMV_SEZIONE, sezione);
ini->set(RMV_DESCR, sezione);
ini->set(RMV_DESCR, descr);
ini->set(RMV_IMPORTO, importo.string());
ini->set(RMV_TIPOC, tipocf);
ini->set(RMV_GRUPPO, gruppo);

1
src/tc/tc3800a.h
View File

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

19
src/tc/tc3800a.uml
View File

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