Patch level : 10.0 patch 767
Files correlati : cg4.exe cg5.exe Ricompilazione Demo : [ ] Commento : Aggiunto conto opzionale per il giroconto dell'utile o della perdita sui parametri ditta e sulla chisura e apertura conti Dalla versione 3.2 git-svn-id: svn://10.65.10.50/trunk@20582 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
5f85783640
commit
8bc5d82cb7
@ -26,7 +26,7 @@ class TApertura_chiusura : public TSkeleton_application
|
||||
TSaldo_agg* _sld;
|
||||
TSaldo* _sale;
|
||||
TProgind* _prog;
|
||||
TConto _tcbilch,_tcproper,_tcbilap,_tcutilp,_tcperdp,_tcutile,_tcperde, _conto_corrente;
|
||||
TConto _tcbilch,_tcproper,_tcbilap,_tcutilp,_tcperdp,_tcutile,_tcperde, _conto_corrente, _tcacutp;
|
||||
TEsercizi_contabili* _esc;
|
||||
|
||||
real _saldo, _totale_saldo, _capitale_netto;
|
||||
@ -436,9 +436,9 @@ bool TApertura_chiusura::set()
|
||||
{
|
||||
TMask m("cg4600a");
|
||||
KEY tasto;
|
||||
int gbilch, cbilch , gproper, cproper, gbilap, cbilap, gutilp;
|
||||
int cutilp, gperdp, cperdp, gutile, cutile, gperde, cperde;
|
||||
long sbilch, sproper, sbilap, sutilp, sperdp, sutile, sperde;
|
||||
int gbilch, cbilch , gproper, cproper, gbilap, cbilap, gutilp, gacutp;
|
||||
int cutilp, gperdp, cperdp, gutile, cutile, gperde, cperde, cacutp;
|
||||
long sbilch, sproper, sbilap, sutilp, sperdp, sutile, sperde, sacutp;
|
||||
|
||||
TConfig conf(CONFIG_DITTA, "cg");
|
||||
m.set(F_CHIUSURA, conf.get("CoCaCh"));
|
||||
@ -482,6 +482,9 @@ bool TApertura_chiusura::set()
|
||||
m.set(F_PERDEG, conf.get("CsPeCeG"));
|
||||
m.set(F_PERDEC, conf.get("CsPeCeC"));
|
||||
m.set(F_PERDES, conf.get("CsPeCeS"));
|
||||
m.set(F_ACUTPG, conf.get("CsAuCpG"));
|
||||
m.set(F_ACUTPC, conf.get("CsAuCpC"));
|
||||
m.set(F_ACUTPS, conf.get("CsAuCpS"));
|
||||
|
||||
m.set_handler (F_DATAC, mask_datac);
|
||||
m.set_handler (F_DATAAP, mask_dataap);
|
||||
@ -524,7 +527,10 @@ bool TApertura_chiusura::set()
|
||||
sutile = m.get_long(F_UTILES);
|
||||
gperde = m.get_int (F_PERDEG);
|
||||
cperde = m.get_int (F_PERDEC);
|
||||
sperde = m.get_long(F_PERDES);
|
||||
sperde = m.get_long(F_PERDES);
|
||||
gacutp = m.get_int (F_ACUTPG);
|
||||
cacutp = m.get_int (F_ACUTPC);
|
||||
sacutp = m.get_long(F_ACUTPS);
|
||||
|
||||
_tcbilch.set (gbilch,cbilch,sbilch);
|
||||
_tcproper.set(gproper,cproper,sproper);
|
||||
@ -533,6 +539,7 @@ bool TApertura_chiusura::set()
|
||||
_tcperdp.set (gperdp,cperdp,sperdp);
|
||||
_tcutile.set (gutile,cutile,sutile);
|
||||
_tcperde.set (gperde,cperde,sperde);
|
||||
_tcacutp.set (gacutp,cacutp,sacutp);
|
||||
|
||||
long cicli = (_cur->items() * 8) + 4;
|
||||
_prog = new TProgind(cicli,TR("Chiusura/Apertura conti in corso... Prego attendere"),FALSE);
|
||||
@ -1985,6 +1992,26 @@ void TApertura_chiusura::apertura_capitale_netto()
|
||||
_tcbilap.put(rmov2, TRUE); // Contropartita
|
||||
|
||||
registra_pn();
|
||||
if (_tcacutp.ok())
|
||||
{
|
||||
j = 0;
|
||||
|
||||
compila_testata(_annoesap,_dataregap, EMPTY_STRING,_dataregap); //Reg. 10 Apertura Capitale netto
|
||||
_pn->curr().put(MOV_DESCR, "Giroconto Perdita Esercizio"); //Viene generato un movimento
|
||||
|
||||
TRectype& rmov1 = _pn->cg(j);
|
||||
numrig = 1;
|
||||
rmov_proper(_annoesap,numrig,_dataregap,rmov1,_tcacutp,_capitale_netto,FALSE);
|
||||
_tcperdp.put(rmov1, TRUE); // Contropartita
|
||||
|
||||
numrig++;
|
||||
j++;
|
||||
TRectype& rmov2 = _pn->cg(j);
|
||||
rmov_proper(_annoesap,numrig,_dataregap,rmov2,_tcperdp,_capitale_netto,TRUE);
|
||||
_tcacutp.put(rmov2, TRUE); // Contropartita
|
||||
|
||||
registra_pn();
|
||||
}
|
||||
}
|
||||
else
|
||||
if (_capitale_netto < ZERO)
|
||||
@ -2008,6 +2035,26 @@ void TApertura_chiusura::apertura_capitale_netto()
|
||||
_tcbilap.put(rmov2, TRUE); // Contropartita
|
||||
|
||||
registra_pn();
|
||||
if (_tcacutp.ok())
|
||||
{
|
||||
j = 0;
|
||||
|
||||
compila_testata(_annoesap,_dataregap, EMPTY_STRING,_dataregap); //Reg. 10 Apertura Capitale netto
|
||||
_pn->curr().put(MOV_DESCR, "Giroconto Utile Esercizio"); //Viene generato un movimento
|
||||
|
||||
TRectype& rmov1 = _pn->cg(j);
|
||||
numrig = 1;
|
||||
rmov_proper(_annoesap,numrig,_dataregap,rmov1,_tcacutp,_capitale_netto,FALSE);
|
||||
_tcutilp.put(rmov1, TRUE); // Contropartita
|
||||
|
||||
numrig++;
|
||||
j++;
|
||||
TRectype& rmov2 = _pn->cg(j);
|
||||
rmov_proper(_annoesap,numrig,_dataregap,rmov2,_tcutilp,_capitale_netto,TRUE);
|
||||
_tcacutp.put(rmov2, TRUE); // Contropartita
|
||||
|
||||
registra_pn();
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -28,7 +28,10 @@
|
||||
#define F_PERDEG 125
|
||||
#define F_PERDEC 126
|
||||
#define F_PERDES 127
|
||||
#define F_ANNO 128
|
||||
#define F_ANNO 128
|
||||
#define F_ANNOCH 129
|
||||
#define F_ACUTPG 130
|
||||
#define F_ACUTPC 131
|
||||
#define F_ACUTPS 132
|
||||
|
||||
#endif // __CG4600_H
|
||||
|
||||
@ -96,7 +96,7 @@ BEGIN
|
||||
END
|
||||
|
||||
|
||||
GROUPBOX DLG_NULL 60 10
|
||||
GROUPBOX DLG_NULL 60 11
|
||||
BEGIN
|
||||
PROMPT 2 7 "@bCodici sottoconto"
|
||||
END
|
||||
@ -326,6 +326,38 @@ BEGIN
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_ACUTPG 3
|
||||
BEGIN
|
||||
PROMPT 3 16 "Accantonamento utili "
|
||||
HELP "Codice del conto patrimoniale per l'accantonamento utili"
|
||||
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
|
||||
COPY DISPLAY F_BILCHG
|
||||
OUTPUT F_ACUTPG GRUPPO
|
||||
OUTPUT F_ACUTPC CONTO
|
||||
OUTPUT F_ACUTPS SOTTOCONTO
|
||||
INPUT GRUPPO F_ACUTPG
|
||||
INPUT CONTO F_ACUTPC
|
||||
INPUT SOTTOCONTO F_ACUTPS
|
||||
END
|
||||
|
||||
NUMBER F_ACUTPC 3
|
||||
BEGIN
|
||||
PROMPT 44 16 ""
|
||||
HELP "Codice del conto patrimoniale per l'accantonamento utili"
|
||||
COPY USE F_UTILPG
|
||||
COPY DISPLAY F_BILCHG
|
||||
COPY OUTPUT F_ACUTPG
|
||||
COPY INPUT F_ACUTPG
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_ACUTPS 6
|
||||
BEGIN
|
||||
PROMPT 51 16 ""
|
||||
HELP "Codice del conto patrimoniale per l'accantonamento utili"
|
||||
COPY ALL F_ACUTPC
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
@ -39,6 +39,9 @@
|
||||
#define FLD_CSPECES 235
|
||||
#define FLD_CSPECEG 236
|
||||
#define FLD_CSPECEC 237
|
||||
#define FLD_CSAUCPS 238
|
||||
#define FLD_CSAUCPG 239
|
||||
#define FLD_CSAUCPC 240
|
||||
|
||||
#define LST_RRFRAM 338
|
||||
#define CHK_RRMECO 339
|
||||
|
||||
@ -723,6 +723,62 @@ BEGIN
|
||||
GROUP GROUP_CONTABILITA
|
||||
END
|
||||
|
||||
NUMBER FLD_CSAUCPG 3
|
||||
BEGIN
|
||||
PROMPT 2 17 "Accantonamento utili "
|
||||
HELP "Codice del conto patrimoniale per l'accantonamento utili"
|
||||
COPY USE FLD_CSBICHG
|
||||
COPY DISPLAY FLD_CSBICHG
|
||||
OUTPUT FLD_CSAUCPG GRUPPO
|
||||
OUTPUT FLD_CSAUCPC CONTO
|
||||
OUTPUT FLD_CSAUCPS SOTTOCONTO
|
||||
OUTPUT FLD_DCSAUCP DESCR
|
||||
INPUT GRUPPO FLD_CSAUCPG
|
||||
INPUT CONTO FLD_CSAUCPC
|
||||
INPUT SOTTOCONTO FLD_CSAUCPS
|
||||
FIELD CsAuCpG
|
||||
ADD RUN cg0 -0
|
||||
GROUP GROUP_CONTABILITA
|
||||
END
|
||||
|
||||
NUMBER FLD_CSAUCPC 3
|
||||
BEGIN
|
||||
PROMPT 33 17 ""
|
||||
HELP "Codice del conto patrimoniale per l'accantonamento utili"
|
||||
COPY ALL FLD_CSAUCPG
|
||||
FIELD CsAuCpC
|
||||
ADD RUN cg0 -0
|
||||
GROUP GROUP_CONTABILITA
|
||||
END
|
||||
|
||||
NUMBER FLD_CSAUCPS 6
|
||||
BEGIN
|
||||
PROMPT 40 17 ""
|
||||
HELP "Codice del conto patrimoniale per l'accantonamento utili"
|
||||
COPY USE FLD_CSAUCPG
|
||||
COPY INPUT FLD_CSAUCPG
|
||||
COPY DISPLAY FLD_CSAUCPG
|
||||
OUTPUT FLD_CSAUCPG GRUPPO
|
||||
OUTPUT FLD_CSAUCPC CONTO
|
||||
OUTPUT FLD_CSAUCPS SOTTOCONTO
|
||||
OUTPUT FLD_DCSAUCP DESCR
|
||||
CHECKTYPE NORMAL
|
||||
FIELD CsAuCpS
|
||||
ADD RUN cg0 -0
|
||||
GROUP GROUP_CONTABILITA
|
||||
END
|
||||
|
||||
STRING FLD_DCSAUCP 50 25
|
||||
BEGIN
|
||||
PROMPT 50 17 ""
|
||||
HELP "Codice del conto patrimoniale per l'accantonamento utili"
|
||||
COPY USE FLD_DCSBICH
|
||||
INPUT DESCR FLD_DCSAUCP
|
||||
COPY DISPLAY FLD_DCSBICH
|
||||
COPY OUTPUT FLD_CSAUCPG
|
||||
ADD RUN cg0 -0
|
||||
GROUP GROUP_CONTABILITA
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user