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

Patch level : 2.1

Browse Source 
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
This commit is contained in:
cris 2004-04-30 13:19:51 +00:00
parent faa7b46970
commit 9f8714bd80
4 changed files with 137 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
cg/cgp4100.cpp
View File

@ -11,6 +11,7 @@
#include "cgp4.h" #include "cgp4.h"
#include "cgp4100a.h" #include "cgp4100a.h"
#include "cgp4100b.h"
#include "cglib01.h" #include "cglib01.h"
#include <mov.h> #include <mov.h>
@ -220,6 +221,23 @@ bool TOmasa::transfer()
if (!contodare.blank()) 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++; numrig++;
movpn->set_paragraph(format("%d,%d",LF_RMOV, numrig)); movpn->set_paragraph(format("%d,%d",LF_RMOV, numrig));
movpn->set("ANNOES", annoes); movpn->set("ANNOES", annoes);
@ -229,18 +247,29 @@ bool TOmasa::transfer()
movpn->set("IMPORTO", importo.string()); movpn->set("IMPORTO", importo.string());
movpn->set("SEZIONE", "D"); movpn->set("SEZIONE", "D");
movpn->set("CODCMS", F_CENTROCOSTO); 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("GRUPPO", conto.get(0));
movpn->set("CONTO", conto.get(1)); movpn->set("CONTO", conto.get(1));
movpn->set("SOTTOCONTO", conto.get(2)); movpn->set("SOTTOCONTO", conto.get(2));
} }
}
if (!contoavere.blank()) 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++; numrig++;
movpn->set_paragraph(format("%d,%d",LF_RMOV, numrig)); movpn->set_paragraph(format("%d,%d",LF_RMOV, numrig));
movpn->set("ANNOES", annoes); movpn->set("ANNOES", annoes);
@ -250,16 +279,10 @@ bool TOmasa::transfer()
movpn->set("IMPORTO", importo.string()); movpn->set("IMPORTO", importo.string());
movpn->set("SEZIONE", "A"); movpn->set("SEZIONE", "A");
movpn->set("CODCMS", F_CENTROCOSTO); 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("GRUPPO", conto.get(0));
movpn->set("CONTO", conto.get(1)); movpn->set("CONTO", conto.get(1));
movpn->set("SOTTOCONTO", conto.get(2)); movpn->set("SOTTOCONTO", conto.get(2));
} }
}
delete movpn; delete movpn;
if (pi.iscancelled()) if (pi.iscancelled())

1
cg/cgp4100a.uml
View File

@ -36,3 +36,4 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

7
cg/cgp4100b.h Executable file
View File

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

87
cg/cgp4100b.uml Executable file
View File

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