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

Patch level : 10.0

Browse Source 
Files correlati     :  ps0713.exe
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/branches/R_10_00@20686 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-07-20 14:46:14 +00:00
parent a478c76847
commit 8f976fbd3f
2 changed files with 15 additions and 78 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
ps/ps0713200.cpp
View File

@ -106,12 +106,7 @@ void TImporta_comm_app::importa_cms(TAssoc_array& righe)
TProgind pi(righe.items(), "Importazione commesse in corso...", true, true);
TLog_report log("Importazione Commesse");
TSystemisamfile com(LF_COMMESSE); com.open(_excllock);
TSystemisamfile rip(LF_RIP); rip.open(_excllock);
TSystemisamfile rrip(LF_RRIP); rrip.open(_excllock);
rip.last();
const TRectype& r = rip.curr();
long codice = r.get_long("CODICE");
TLocalisamfile com(LF_COMMESSE);
FOR_EACH_ASSOC_OBJECT(righe, obj, key, itm)
{
@ -124,51 +119,21 @@ void TImporta_comm_app::importa_cms(TAssoc_array& righe)
TString str;
str << "La commessa " << codcms;
rip.zero();
rip.put("TIPO", 'B');
rip.put("CODCOSTO", "");
rip.put("CODCMS", codcms);
int err_read = rip.read();
if(err_read != NOERR)
{
if (!cache().get(LF_COMMESSE, codcms).empty())
{
const int gruppo = cms.gruppo(); TString4 grup; grup.format("%03d", gruppo);
const int conto = cms.conto(); TString4 cont; cont.format("%03d", conto);
const long sotco = cms.sotco(); TString8 sotc; sotc.format("%06ld", sotco);
TString80 codconto; codconto << grup << cont << sotc;
TString8 cod;
cod.format("%08ld", ++codice);
TString80 descr; descr << "Comessa " << codcms;
TString80 descr; descr << "Commessa " << codcms;
TBill bill(gruppo, conto, sotco);
const real percentuale(CENTO);
com.put(COMMESSE_CODCMS, codcms);
com.put(COMMESSE_DESCRIZ, descr);
com.put(COMMESSE_CODCONTO, codconto);
rip.put("TIPO", 'B');
rip.put("CODICE", cod);
rip.put("CODCMS", codcms);
if(gruppo > 0 && conto > 0 && sotco > 0)
rip.put("INDBIL", bill.indicatore_bilancio());
rip.put("DESCRIZ", descr);
rrip.put("TIPO", 'B');
rrip.put("CODICE", cod);
rrip.put("NRIGA", 1);
rrip.put("CODCMS", codcms);
rrip.put("CODCONTO", codconto);
rrip.put("RIPARTO", percentuale);
int err = com.rewrite_write();
if(err == NOERR)
err = rip.write();
if(err == NOERR)
err = rrip.write();
int err = com.rewrite_write();
if(err == NOERR)
{
@ -188,9 +153,6 @@ void TImporta_comm_app::importa_cms(TAssoc_array& righe)
}
}
rrip.close();
rip.close();
com.close();
//stampo a video il log
TReport_book buc;
buc.add(log);

45
ps/ps0713lib.cpp
View File

@ -1,4 +1,8 @@
#include <lffiles.h>
#include <recarray.h>
#include "ps0713lib.h"
#include "../ca/commesse.h"
////////////////////////////////
//// TCOMMESSA_STRING ////
@ -58,43 +62,14 @@ const TCommessa_string TCommessa::cmsstr() const
//metodo costruttore
TCommessa::TCommessa(const char* codcms)
{
TString query;
query << "USE RIP KEY 4\n"
<< "FROM TIPO=\"B\" CODCOSTO=\"\" CODCMS=\"" << codcms << "\"\n"
<< "TO TIPO=\"B\" CODCOSTO=\"\" CODCMS=\"" << codcms << "\"\n";
TString80 str = cache().get(LF_COMMESSE, codcms, COMMESSE_CODCONTO);
const int gruppo = atoi(str.left(3)) > 0 ? atoi(str.left(3)) : 0;
const int conto = atoi(str.mid(3,3)) > 0 ? atoi(str.mid(3,3)) : 0;
const long sotco = atol(str.right(6)) > 0L ? atol(str.right(6)) : 0L;
TISAM_recordset rip(query);
rip.move_first();
if(!rip.empty())
{
_codice = rip.get("CODICE").as_string();
const TString16 codcms = rip.get("CODCMS").as_string();
query.cut(0);
query << "USE RRIP\n"
<< "FROM TIPO=\"B\" CODICE=" << _codice << " NRIGA=1\n"
<< "TO TIPO=\"B\" CODICE=" << _codice << " NRIGA=1\n";
TISAM_recordset rrip(query);
rrip.move_first();
TString80 str = rrip.get("CODCONTO").as_string();
const int gruppo = atoi(str.left(3)) > 0 ? atoi(str.left(3)) : 0;
const int conto = atoi(str.mid(3,3)) > 0 ? atoi(str.mid(3,3)) : 0;
const long sotco = atol(str.right(6)) > 0L ? atol(str.right(6)) : 0L;
TCommessa_string cms(codcms, gruppo, conto, sotco);
_commessa = cms;
}
else
{
TCommessa_string cms(0L, 0, 0, 0L);
_commessa = cms;
}
TCommessa_string cms(codcms, gruppo, conto, sotco);
_commessa = cms;
}
//////////////////////////