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

Patch level : 12.0 500

Browse Source 
Files correlati     : cg1.exe cg1300n.msk cgmenu.men

Programma di riallineamento tipo conto cliente/fornitore su causali e movimenti

git-svn-id: svn://10.65.10.50/branches/R_10_00@24272 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
bonazzi 2018-01-17 18:26:53 +00:00
parent 525a850146
commit 3d1e6dbc64
3 changed files with 138 additions and 100 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/cg/cg1300n.uml
View File

@ -34,18 +34,18 @@ END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 2 6 "Ragione sociale " PROMPT 2 4 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
BOOLEAN F_UPDCAUS BOOLEAN F_UPDCAUS
BEGIN BEGIN
PROMPT 2 8 "Aggiorno le causali" PROMPT 2 6 "Aggiorno le causali"
END END
BOOLEAN F_UPDMOV BOOLEAN F_UPDMOV
BEGIN BEGIN
PROMPT 2 10 "Aggiorno i movimenti" PROMPT 2 8 "Aggiorno i movimenti"
END END
ENDPAGE ENDPAGE

223
src/cg/cg1314.cpp
View File

@ -4,6 +4,7 @@
#include <mask.h> #include <mask.h>
#include <recarray.h> #include <recarray.h>
#include <nditte.h>
#include <pconti.h> #include <pconti.h>
#include <rcausali.h> #include <rcausali.h>
#include <rmov.h> #include <rmov.h>
@ -12,8 +13,6 @@
#include <lffiles.h> #include <lffiles.h>
#include <recset.h> #include <recset.h>
#include <reprint.h>
#include <reputils.h>
#include "cg1314.h" #include "cg1314.h"
#include "cg1300n.h" #include "cg1300n.h"
#include "cglib01.h" #include "cglib01.h"
@ -25,110 +24,144 @@ bool TAgg_tcontoCF::create()
return TSkeleton_application::create(); return TSkeleton_application::create();
} }
void TAgg_tcontoCF::update_causali(TRectype & pcon, TLog_report & log)
{
TString use("USE "); use << LF_RCAUSALI;
TISAM_recordset rcaus(use);
TLocalisamfile & frcaus = rcaus.cursor()->relation()->lfile();
for (bool ok = rcaus.move_first(); ok; ok = rcaus.move_next())
{
const int gruppo = rcaus.get(RCA_GRUPPO).as_int();
const int conto = rcaus.get(RCA_CONTO).as_int();
const TString4 tipocf = rcaus.get(RCA_TIPOCF).as_string();
TBill tc(gruppo, conto, 0L);
tc.read(pcon);
const TString4 tipocf_pcon = pcon.get(PCN_TMCF);
if (tipocf != tipocf_pcon)
{
frcaus.put(RCA_TIPOCF, tipocf_pcon);
frcaus.rewrite();
TString msg("Causale ");
msg << rcaus.get(RCA_CODCAUS).as_string();
msg << " Riga " << rcaus.get(RCA_NRIGA).as_int();
msg << " impostato tipo conto (" << tipocf_pcon << ")";
log.log(0, msg);
}
}
}
void TAgg_tcontoCF::update_movimenti(TRectype & pcon, TLog_report & log)
{
TString use("USE "); use << LF_RMOV;
TISAM_recordset rmov(use);
TLocalisamfile & frmov = rmov.cursor()->relation()->lfile();
for (bool ok = rmov.move_first(); ok; ok = rmov.move_next())
{
const int gruppo = rmov.get(RMV_GRUPPO).as_int();
const int conto = rmov.get(RMV_CONTO).as_int();
const TString4 tipocf = rmov.get(RMV_TIPOC).as_string();
TBill tc(gruppo, conto, 0L);
tc.read(pcon);
const TString4 tipocf_pcon = pcon.get(PCN_TMCF);
if (tipocf != tipocf_pcon)
{
frmov.put(RMV_TIPOC, tipocf_pcon);
frmov.rewrite();
TString msg("Movimento ");
msg << rmov.get(RMV_NUMREG).as_int();
msg << " Riga " << rmov.get(RMV_NUMRIG).as_int();
msg << " impostato tipo conto (" << tipocf_pcon << ")";
log.log(0, msg);
}
}
}
void TAgg_tcontoCF::update_movimenti_IVA(TRectype & pcon, TLog_report & log)
{
TString use("USE "); use << LF_RMOVIVA;
TISAM_recordset rmoviva(use);
TLocalisamfile & frmoviva = rmoviva.cursor()->relation()->lfile();
for (bool ok = rmoviva.move_first(); ok; ok = rmoviva.move_next())
{
const int gruppo = rmoviva.get(RMI_GRUPPO).as_int();
const int conto = rmoviva.get(RMI_CONTO).as_int();
const TString4 tipocf = rmoviva.get(RMI_TIPOC).as_string();
TBill tc(gruppo, conto, 0L);
tc.read(pcon);
const TString4 tipocf_pcon = pcon.get(PCN_TMCF);
if (tipocf != tipocf_pcon)
{
frmoviva.put(RMI_TIPOC, tipocf_pcon);
frmoviva.rewrite();
TString msg("Movimento ");
msg << rmoviva.get(RMI_NUMREG).as_int();
msg << " Riga IVA " << rmoviva.get(RMI_NUMRIG).as_int();
msg << " impostato tipo conto (" << tipocf_pcon << ")";
log.log(0, msg);
}
}
}
void TAgg_tcontoCF::main_loop() void TAgg_tcontoCF::main_loop()
{ {
TMask m("cg1300n"); TMask m("cg1300n");
const TString16 arg = argv(3); const TString16 arg = argv(3);
const bool force = arg.starts_with("-f"); const bool force = arg.starts_with("-f");
TRectype pcon(LF_PCON);
TLog_report log;
if (force || m.run() == K_ENTER) if (force)
{ {
bool update_caus = force|| m.get_bool(F_UPDCAUS); const int ditta = get_firm();
bool update_mov = force || m.get_bool(F_UPDMOV); TString use("USE "); use << LF_NDITTE;
TRectype pcon(LF_PCON); TISAM_recordset d(use);
TLog_report log;
for (bool ok = d.move_first(); ok; ok = d.move_next())
if (update_caus)
{ {
TString use("USE "); use << LF_RCAUSALI; set_firm(d.get(NDT_CODDITTA).as_int());
TISAM_recordset rcaus(use);
TLocalisamfile & frcaus = rcaus.cursor()->relation()->lfile();
for (bool ok = rcaus.move_first(); ok; ok = rcaus.move_next()) TString msg("Ditta ");
{
const int gruppo = rcaus.get(RCA_GRUPPO).as_int();
const int conto = rcaus.get(RCA_CONTO).as_int();
const TString4 tipocf = rcaus.get(RCA_TIPOCF).as_string();
TBill tc (gruppo,conto,0L);
tc.read(pcon); msg << get_firm();
log.log(0, msg);
const TString4 tipocf_pcon = pcon.get(PCN_TMCF); log.log(0, "");
update_causali(pcon, log);
if (tipocf != tipocf_pcon) update_movimenti(pcon, log);
{ update_movimenti_IVA(pcon, log);
frcaus.put(RCA_TIPOCF, tipocf_pcon); log.log(0, "");
frcaus.rewrite();
TString msg ("Causale ");
msg << rcaus.get(RCA_CODCAUS).as_string();
msg << " Riga " << rcaus.get(RCA_NRIGA).as_int();
msg << " impostato tipo conto (" << tipocf_pcon << ")";
log.log(0, msg);
}
}
} }
if (update_mov) // CONTABILITA' set_firm(ditta);
{
TString use("USE "); use << LF_RMOV;
TISAM_recordset rmov(use);
TLocalisamfile & frmov = rmov.cursor()->relation()->lfile();
for (bool ok = rmov.move_first(); ok; ok = rmov.move_next())
{
const int gruppo = rmov.get(RMV_GRUPPO).as_int();
const int conto = rmov.get(RMV_CONTO).as_int();
const TString4 tipocf = rmov.get(RMV_TIPOC).as_string();
TBill tc (gruppo,conto,0L);
tc.read(pcon);
const TString4 tipocf_pcon = pcon.get(PCN_TMCF);
if (tipocf != tipocf_pcon)
{
frmov.put(RMV_TIPOC, tipocf_pcon);
frmov.rewrite();
TString msg ("Movimento ");
msg << rmov.get(RMV_NUMREG).as_int();
msg << " Riga " << rmov.get(RMV_NUMRIG).as_int();
msg << " impostato tipo conto (" << tipocf_pcon << ")";
log.log(0, msg);
}
}
}
if (update_mov) // IVA
{
TString use("USE "); use << LF_RMOVIVA;
TISAM_recordset rmoviva(use);
TLocalisamfile & frmoviva = rmoviva.cursor()->relation()->lfile();
for (bool ok = rmoviva.move_first(); ok; ok = rmoviva.move_next())
{
const int gruppo = rmoviva.get(RMI_GRUPPO).as_int();
const int conto = rmoviva.get(RMI_CONTO).as_int();
const TString4 tipocf = rmoviva.get(RMI_TIPOC).as_string();
TBill tc (gruppo,conto,0L);
tc.read(pcon);
const TString4 tipocf_pcon = pcon.get(PCN_TMCF);
if (tipocf != tipocf_pcon)
{
frmoviva.put(RMI_TIPOC, tipocf_pcon);
frmoviva.rewrite();
TString msg ("Movimento ");
msg << rmoviva.get(RMI_NUMREG).as_int();
msg << " Riga IVA" << rmoviva.get(RMI_NUMRIG).as_int();
msg << " impostato tipo conto (" << tipocf_pcon << ")";
log.log(0, msg);
}
}
}
log.print_or_preview();
} }
else
{
if (m.run() == K_ENTER)
{
bool update_caus = m.get_bool(F_UPDCAUS);
bool update_mov = m.get_bool(F_UPDMOV);
if (update_caus)
update_causali(pcon, log);
if (update_mov) // CONTABILITA'
{
update_movimenti(pcon, log);
update_movimenti_IVA(pcon, log);
}
}
}
log.print_or_preview();
} }

9
src/cg/cg1314.h
View File

@ -1,8 +1,13 @@
#include <printapp.h> #include <applicat.h>
#include <reprint.h>
#include <reputils.h>
class TAgg_tcontoCF : public TSkeleton_application class TAgg_tcontoCF : public TSkeleton_application
{ {
void update_causali(TRectype & pcon, TLog_report & log);
void update_movimenti(TRectype & pcon, TLog_report & log);
void update_movimenti_IVA(TRectype & pcon, TLog_report & log);
public: public:
virtual bool create(); virtual bool create();
virtual void main_loop(); virtual void main_loop();