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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
fatto diventare ca2400.cpp ps0713700.cpp; visto che il programma serve solo all'ATS, che è pericoloso da usare visto i danni che può causare, visto che se a qualcun'altro in futuro servisse (eventualità quotata 1.000.000.000:1 dai bookmakers a Londra) lo pagherebbe qualche simpatico euro....


git-svn-id: svn://10.65.10.50/branches/R_10_00@20713 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2010-07-28 14:41:20 +00:00
parent 7fdbb59ab5
commit 83b3db3080
5 changed files with 0 additions and 96 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ca/ca2.cpp
View File

@ -9,7 +9,6 @@ int main(int argc, char** argv)
{
case 1: ca2200(argc, argv); break; // ripartizione movimenti analitica
case 2: ca2300(argc, argv); break; // ricalcolo saldi
case 3: ca2400(argc, argv); break; // eliminazione conti non analitci
default: ca2100(argc, argv); break; // gestione movimenti
}
return 0;

1
ca/ca2.h
View File

@ -4,6 +4,5 @@
int ca2100(int argc, char* argv[]);
int ca2200(int argc, char* argv[]);
int ca2300(int argc, char* argv[]);
int ca2400(int argc, char* argv[]);
#endif // __CA2_H

92
ca/ca2400.cpp
View File

@ -1,92 +0,0 @@
#include <automask.h>
#include <progind.h>
#include <recset.h>
#include "calib01.h"
#include "ca2.h"
#include "ca2300a.h"
#include "../cg/cglib01.h"
#include "movana.h"
#include "rmovana.h"
#include "saldana.h"
//--------------------------------------------------------------------
// APPLICAZIONE
//--------------------------------------------------------------------
class TPulisci_app : public TSkeleton_application
{
protected:
virtual const char * extra_modules() const {return "cm";} //deve funzionare anche per le commesse
virtual void main_loop();
static bool elabora_movimento(const TRelation& rel, void* pJolly);
public:
TPulisci_app() {}
virtual ~TPulisci_app() {}
};
bool TPulisci_app::elabora_movimento(const TRelation& rel, void* pJolly)
{
TAnal_mov & mov = (TAnal_mov &) rel.curr();
bool updated = false;
TImporto totdoc(mov.get_char(MOVANA_SEZIONE), mov.get_real(MOVANA_TOTDOC));
for (int i = mov.rows(); i >= 1; i--)
{
const TRectype & row = mov.body()[i];
const TString code = row.get(RMOVANA_CODCONTO);
const int gr = atoi(code.left(3));
const int co = atoi(code.mid(3, 3));
const long sc = atol(code.right(6));
const TBill zio(gr, co, sc);
if (!zio.is_analitico())
{
TImporto importo(row.get_char(RMOVANA_SEZIONE), row.get_real(RMOVANA_IMPORTO));
updated = true;
totdoc -= importo;
mov.body().destroy_row(i, true);
}
}
if (updated)
{
totdoc.normalize();
mov.put(MOVANA_SEZIONE, totdoc.sezione());
mov.put(MOVANA_TOTDOC, totdoc.valore());
if (mov.rows() > 0)
mov.rewrite(rel.lfile());
else
mov.remove(rel.lfile());
}
return true;
}
void TPulisci_app::main_loop()
{
if (ca_config().get_bool("UsePdcc") &&
yesno_box("Si desidera eliminare i conti non analitici") &&
yesno_box("Si desidera veramente eliminare i conti non analitici"))
{
TRelation rel_movana(LF_MOVANA);
TCursor cur_movana(&rel_movana, "", 1);
const long items = cur_movana.items();
if (items > 0)
{
rel_movana.lfile().set_curr(new TAnal_mov); //il record principale della rel e' un TMov_anal!!
cur_movana.scan(elabora_movimento, this, "Eliminazione conti non analitici...");
}
}
}
int ca2400(int argc, char* argv[])
{
TPulisci_app app;
app.run(argc, argv, "Eliminazione conti non analitici...");
return 0;
}

1
ca/cacmmenu.men
View File

@ -39,5 +39,4 @@ Module = 15
Flags = ""
Item_01 = "Trasferimento dati da Contabilità Generale", "cacnv -0", "F"
Item_02 = "Ricalcolo saldi", "ca2 -2", "F"
Item_03 = "Eliminazione conti non analitici dai movimenti", "ca2 -3", "F"

1
ca/camenu.men
View File

@ -82,4 +82,3 @@ Module = 22
Flags = ""
Item_01 = "Trasferimento dati da Contabilità Generale", "cacnv -0", "F"
Item_02 = "Ricalcolo saldi", "ca2 -2", "F"
Item_03 = "Eliminazione conti non analitici dai movimenti", "ca2 -3", "F"