From 9f8714bd809871ee28ff02dc7566c2dab97b8c38 Mon Sep 17 00:00:00 2001 From: cris Date: Fri, 30 Apr 2004 13:19:51 +0000 Subject: [PATCH] Patch level : 2.1 Files correlati : cgp4.exe cgp4100a.msk cgp4100b.msk Ricompilazione Demo : [ ] Commento : conversione conti git-svn-id: svn://10.65.10.50/trunk@12044 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- cg/cgp4100.cpp | 61 +++++++++++++++++++++++----------- cg/cgp4100a.uml | 1 + cg/cgp4100b.h | 7 ++++ cg/cgp4100b.uml | 87 +++++++++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 137 insertions(+), 19 deletions(-) create mode 100755 cg/cgp4100b.h create mode 100755 cg/cgp4100b.uml diff --git a/cg/cgp4100.cpp b/cg/cgp4100.cpp index f3c805f64..d831082bc 100755 --- a/cg/cgp4100.cpp +++ b/cg/cgp4100.cpp @@ -11,6 +11,7 @@ #include "cgp4.h" #include "cgp4100a.h" +#include "cgp4100b.h" #include "cglib01.h" #include @@ -220,27 +221,55 @@ bool TOmasa::transfer() if (!contodare.blank()) { + contodare.trim(); + TToken_string conto = _configfile->get(contodare, "CONTI"); + if (conto.empty()) + { + TMask mskconto("cgp4100b"); + mskconto.set(F_CONTOOMASA, contodare); + if (mskconto.run() == K_ENTER) + { + const int gr = mskconto.get_int(F_GRUPPO); + const int co = mskconto.get_int(F_CONTO); + const long so = mskconto.get_long(F_SOTTOCONTO); + conto.format("%d|%d|%ld", gr, co, so); + _configfile->set(contodare, conto, "CONTI"); + } + else + return TRUE; + } numrig++; movpn->set_paragraph(format("%d,%d",LF_RMOV, numrig)); movpn->set("ANNOES", annoes); - //movpn->set("NUMREG", _numreg); + //movpn->set("NUMREG", _numreg); movpn->set("DATAREG", datareg); movpn->set("NUMRIG", numrig); movpn->set("IMPORTO", importo.string()); movpn->set("SEZIONE", "D"); movpn->set("CODCMS", F_CENTROCOSTO); - - contodare.trim(); - TToken_string conto = _configfile->get(contodare, "CONTI"); - if (conto.not_empty()) - { - movpn->set("GRUPPO", conto.get(0)); - movpn->set("CONTO", conto.get(1)); - movpn->set("SOTTOCONTO", conto.get(2)); - } + movpn->set("GRUPPO", conto.get(0)); + movpn->set("CONTO", conto.get(1)); + movpn->set("SOTTOCONTO", conto.get(2)); } if (!contoavere.blank()) { + contoavere.trim(); + TToken_string conto = _configfile->get(contoavere, "CONTI"); + if (conto.empty()) + { + TMask mskconto("cgp4100b"); + mskconto.set(F_CONTOOMASA, contoavere); + if (mskconto.run() == K_ENTER) + { + const int gr = mskconto.get_int(F_GRUPPO); + const int co = mskconto.get_int(F_CONTO); + const long so = mskconto.get_long(F_SOTTOCONTO); + conto.format("%d|%d|%ld", gr, co, so); + _configfile->set(contoavere, conto, "CONTI"); + } + else + return TRUE; + } numrig++; movpn->set_paragraph(format("%d,%d",LF_RMOV, numrig)); movpn->set("ANNOES", annoes); @@ -250,15 +279,9 @@ bool TOmasa::transfer() movpn->set("IMPORTO", importo.string()); movpn->set("SEZIONE", "A"); movpn->set("CODCMS", F_CENTROCOSTO); - - contoavere.trim(); - TToken_string conto = _configfile->get(contoavere, "CONTI"); - if (!conto.blank()) - { - movpn->set("GRUPPO", conto.get(0)); - movpn->set("CONTO", conto.get(1)); - movpn->set("SOTTOCONTO", conto.get(2)); - } + movpn->set("GRUPPO", conto.get(0)); + movpn->set("CONTO", conto.get(1)); + movpn->set("SOTTOCONTO", conto.get(2)); } delete movpn; diff --git a/cg/cgp4100a.uml b/cg/cgp4100a.uml index 18797c3a8..4bca4088c 100755 --- a/cg/cgp4100a.uml +++ b/cg/cgp4100a.uml @@ -36,3 +36,4 @@ END ENDPAGE ENDMASK + diff --git a/cg/cgp4100b.h b/cg/cgp4100b.h new file mode 100755 index 000000000..628a1e9e7 --- /dev/null +++ b/cg/cgp4100b.h @@ -0,0 +1,7 @@ +// campi della maschera cgp4100b.uml + +#define F_CONTOOMASA 101 +#define F_GRUPPO 102 +#define F_CONTO 103 +#define F_SOTTOCONTO 104 +#define F_DESCRIZIONE 105 \ No newline at end of file diff --git a/cg/cgp4100b.uml b/cg/cgp4100b.uml new file mode 100755 index 000000000..c12d87692 --- /dev/null +++ b/cg/cgp4100b.uml @@ -0,0 +1,87 @@ +#include "cgp4100b.h" + +TOOLBAR "" 0 20 0 2 + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE + +PAGE "Conversione conti" 0 -1 0 10 + +STRING F_CONTOOMASA 14 +BEGIN + PROMPT 2 2 "Conto OMASA " + FLAGS "D" +END + +NUMBER F_GRUPPO 3 +BEGIN + PROMPT 2 4 "Conto Eurocampo " + USE LF_PCON KEY 1 SELECT (CONTO="") + INPUT GRUPPO F_GRUPPO + DISPLAY "Gruppo" GRUPPO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_GRUPPO GRUPPO + CHECKTYPE NORMAL +END + +NUMBER F_CONTO 3 +BEGIN + PROMPT 24 4 "" + USE LF_PCON KEY 1 SELECT (SOTTOCONTO="") + INPUT GRUPPO F_GRUPPO + INPUT CONTO F_CONTO + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CONTO CONTO + OUTPUT F_GRUPPO GRUPPO + CHECKTYPE NORMAL +END + +NUMBER F_SOTTOCONTO 6 +BEGIN + PROMPT 30 4 "" + USE LF_PCON + INPUT GRUPPO F_GRUPPO + INPUT CONTO F_CONTO + INPUT SOTTOCONTO F_SOTTOCONTO + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_SOTTOCONTO SOTTOCONTO + OUTPUT F_GRUPPO GRUPPO + OUTPUT F_CONTO CONTO + OUTPUT F_DESCRIZIONE DESCR + CHECKTYPE NORMAL +END + +STRING F_DESCRIZIONE 50 +BEGIN + PROMPT 39 4 "" + USE LF_PCON KEY 2 + INPUT DESCR F_DESCRIZIONE + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + OUTPUT F_SOTTOCONTO SOTTOCONTO + OUTPUT F_CONTO CONTO + OUTPUT F_GRUPPO GRUPPO + OUTPUT F_DESCRIZIONE DESCR + CHECKTYPE NORMAL +END + +ENDPAGE +ENDMASK + +