Patch level :10.0
Files correlati : Ricompilazione Demo : [ ] Commento : Aggiunto ps1001200 (è il vecchio crpa1) Aggiunto ed iniziato il ps1001300 (nuovo programma per la variazione del budget) git-svn-id: svn://10.65.10.50/trunk@20362 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca
parent
de6eb5402c
commit
687c9a462b
@ -8,6 +8,8 @@ int main(int argc, char** argv)
|
||||
switch(n)
|
||||
{
|
||||
case 0: ps1001100(argc, argv); break; //Importazione movimento di analitica da righe in *.csv (DINAMICA)
|
||||
case 1: ps1001200(argc, argv); break; //Importazione di N movimenti analitici di preventivo in *.csv (CRPA e DINAMICA)
|
||||
case 2: ps1001300(argc,argv); break; //Variazione budget (CRPA e DINAMICA)
|
||||
default:
|
||||
ps1001100(argc, argv); break;
|
||||
}
|
||||
|
||||
@ -1 +1,3 @@
|
||||
int ps1001100(int argc, char* argv[]);
|
||||
int ps1001100(int argc, char* argv[]);
|
||||
int ps1001200(int argc, char* argv[]);
|
||||
int ps1001300(int argc, char* argv[]);
|
||||
600
ps/ps1001200.cpp
Executable file
600
ps/ps1001200.cpp
Executable file
@ -0,0 +1,600 @@
|
||||
#include <automask.h>
|
||||
#include <config.h>
|
||||
#include <filetext.h>
|
||||
#include <progind.h>
|
||||
#include <reputils.h>
|
||||
#include <utility.h>
|
||||
|
||||
#include "../ca/pconana.h"
|
||||
#include "../ca/movana.h"
|
||||
#include "../ca/rmovana.h"
|
||||
#include "../ca/calib01.h"
|
||||
#include "../ca/calib02.h"
|
||||
|
||||
#include "ps1001200a.h"
|
||||
|
||||
#define DESCR_TESTATA TR("Movimento di budget importato")
|
||||
#define DESCR_RIGA TR("Riga movimento di budget importato")
|
||||
//---------------------------------
|
||||
// TAutomask
|
||||
//---------------------------------
|
||||
class TBudget_Import_mask : public TAutomask
|
||||
{
|
||||
protected:
|
||||
bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
bool select_file_ext(const char* ext, TFilename& filename);
|
||||
public:
|
||||
TBudget_Import_mask();
|
||||
virtual ~TBudget_Import_mask(){};
|
||||
};
|
||||
|
||||
TBudget_Import_mask::TBudget_Import_mask() :TAutomask ("ps1001200a")
|
||||
{
|
||||
}
|
||||
|
||||
bool TBudget_Import_mask::select_file_ext(const char* ext, TFilename& filename)
|
||||
{
|
||||
TArray_sheet as(-1, -1, 72, 20, TR("Selezione file"),
|
||||
"File@48");
|
||||
TFilename path = get(F_PATH);
|
||||
path.add("*");
|
||||
path.ext(ext);
|
||||
list_files(path, as.rows_array());
|
||||
TFilename name;
|
||||
FOR_EACH_ARRAY_ROW(as.rows_array(), i, row)
|
||||
{
|
||||
name = *row;
|
||||
*row = name.name();
|
||||
}
|
||||
bool ok = as.run() == K_ENTER;
|
||||
if (ok)
|
||||
{
|
||||
filename = as.row(as.selected());
|
||||
}
|
||||
return ok;
|
||||
}
|
||||
|
||||
bool TBudget_Import_mask::on_field_event(TOperable_field& f, TField_event e, long jolly)
|
||||
{
|
||||
switch (f.dlg())
|
||||
{
|
||||
//giochetto per avere la lista dei files validi nella directory di trasferimento!
|
||||
case F_NAMEFILE:
|
||||
if (e == fe_button)
|
||||
{
|
||||
TFilename name;
|
||||
if (select_file_ext("csv", name))
|
||||
f.set(name);
|
||||
|
||||
if (f.get() == get(F_LASTFILE))
|
||||
return error_box(FR("Questo file l'hai gia' importato!\nCaro %s ti consiglio di NON proseguire!"), (const char*)user());
|
||||
}
|
||||
break;
|
||||
case F_KILLOLD:
|
||||
if (e == fe_close)
|
||||
{
|
||||
if (f.get().full())
|
||||
{
|
||||
return yesno_box(FR("Ehi %s, hai scelto di eliminare tutti i record di tipo Preventivo\nnei files dei movimenti e dei saldi!\nSei sicuro di voler proseguire?"), (const char*)user());
|
||||
}
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
return true;
|
||||
}
|
||||
|
||||
|
||||
//--------------------------------
|
||||
// TFile_text
|
||||
//--------------------------------
|
||||
class TBudget_Import_file: public TFile_text
|
||||
{
|
||||
protected:
|
||||
virtual void validate(TCursor& cur,TRecord_text &rec, TToken_string &val, TString& str);
|
||||
|
||||
public:
|
||||
TBudget_Import_file(const TString& file_name);
|
||||
virtual ~TBudget_Import_file() { }
|
||||
};
|
||||
|
||||
TBudget_Import_file::TBudget_Import_file(const TString& file_name)
|
||||
: TFile_text(file_name, "ps1001200.ini")
|
||||
{
|
||||
}
|
||||
|
||||
void TBudget_Import_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TString& str)
|
||||
{
|
||||
const TString code(s.get(0));
|
||||
TString valore = str;
|
||||
if (code == "_UPPERCASE")
|
||||
{
|
||||
valore.upper();
|
||||
}
|
||||
else NFCHECK("Macro non definita: %s", (const char *)code);
|
||||
str = valore;
|
||||
}
|
||||
|
||||
|
||||
//----------------------------------
|
||||
// TSkeleton_application
|
||||
//----------------------------------
|
||||
class TBudget_Import : public TSkeleton_application
|
||||
{
|
||||
TBudget_Import_mask* _msk;
|
||||
TBudget_Import_file* _trasfile;
|
||||
TConfig* _configfile;
|
||||
TRelation* _relmovana;
|
||||
TString _lastfile;
|
||||
TString4 _codcaus;
|
||||
|
||||
virtual const char * extra_modules() const {return "ba";}
|
||||
|
||||
protected:
|
||||
void mask2ini();
|
||||
void ini2mask();
|
||||
bool transfer();
|
||||
void elabora_input(const TFilename& file, TLog_report& log);
|
||||
void movana_killer(const TAssoc_array& elenco, const bool kill_all);
|
||||
void transfer_movimento(const TArray& righe, TLog_report& log);
|
||||
const TString& ana2bill(const TString& contone) const;
|
||||
const TDate str2date(const TString& stringdata);
|
||||
|
||||
long get_next_key();
|
||||
|
||||
public:
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
virtual void main_loop();
|
||||
|
||||
TBudget_Import() {}
|
||||
};
|
||||
|
||||
|
||||
|
||||
long TBudget_Import::get_next_key()
|
||||
{
|
||||
TLocalisamfile& lfile = _relmovana->lfile();
|
||||
long numreg = 1L ;
|
||||
|
||||
if (!lfile.empty())
|
||||
{
|
||||
lfile.zero() ;
|
||||
lfile.setkey(1) ;
|
||||
|
||||
lfile.read(_isgteq);
|
||||
if (lfile.good()) //se e' tutto ok,si posiziona sull'ultimo record
|
||||
lfile.last();
|
||||
|
||||
if (lfile.good())
|
||||
numreg += lfile.get_long(MOVANA_NUMREG);
|
||||
}
|
||||
return numreg;
|
||||
}
|
||||
|
||||
const TString& TBudget_Import::ana2bill(const TString& contone) const
|
||||
{
|
||||
TToken_string key;
|
||||
key = contone;
|
||||
key.add("1");
|
||||
const TRectype& rec = cache().get(LF_PANAPDC, key);
|
||||
if (rec.empty())
|
||||
return EMPTY_STRING;
|
||||
|
||||
TString& tmp = get_tmp_string();
|
||||
tmp.format("%03d%03d%06ld",
|
||||
rec.get_int("GRUPPO"), rec.get_int("CONTO"), rec.get_long("SOTTOCONTO"));
|
||||
return tmp;
|
||||
}
|
||||
|
||||
const TDate TBudget_Import::str2date(const TString& stringdata)
|
||||
{
|
||||
const int stringdata_len = stringdata.len();
|
||||
TString4 gg = stringdata.left(2);
|
||||
TString4 mm = stringdata.mid(3,2);
|
||||
TString4 yy;
|
||||
if (stringdata_len == 8) //se la data ha 8 caratteri (es. 12/06/08)...
|
||||
{
|
||||
yy = stringdata.right(2);
|
||||
yy.insert("20", 0);
|
||||
}
|
||||
else //se invece ne ha 10 (es.12/06/2008)...
|
||||
yy = stringdata.right(4);
|
||||
|
||||
const TDate data(atoi(gg),atoi(mm),atoi(yy));
|
||||
return data;
|
||||
}
|
||||
|
||||
//metodo di bassa lega che scrive veramente i movimenti analitici sui file movana e rmovana
|
||||
void TBudget_Import::transfer_movimento(const TArray& righe, TLog_report& log)
|
||||
{
|
||||
const TRecord_text& curr = (const TRecord_text&)righe[0];
|
||||
//TESTATA
|
||||
//-------
|
||||
//formato definitivo del tracciato record dei CSV da importare (vedi anche il file crpa1.ini):
|
||||
//codice commessa|fase|conto|importo|inizio cms|fine cms
|
||||
TString codcms = curr.get(0);
|
||||
codcms.replace('_', '/');
|
||||
|
||||
//controllo commesse
|
||||
const TRectype& rec_cms = cache().get(LF_COMMESSE, codcms);
|
||||
if (rec_cms.empty())
|
||||
{
|
||||
TString errore;
|
||||
errore << "La commessa " << codcms << " non esiste";
|
||||
log.log(2, errore);
|
||||
}
|
||||
|
||||
//Controllo del formato date!
|
||||
//Preso atto che il nostro invincibile fuhrer cambia formato date ad ogni importazione, proviamo a..
|
||||
//..rendere piu' intelligente il povero programma
|
||||
const TDate dataini = str2date(curr.get(4));
|
||||
const int annoes = dataini.year();
|
||||
const TDate datafine = str2date(curr.get(5));
|
||||
|
||||
//cerca il primo posto libero in movana
|
||||
long numreg = get_next_key();
|
||||
|
||||
//crea il movimento di prima nota da aggiungere a movana
|
||||
TAnal_mov movana(numreg);
|
||||
movana.zero(); //azzera per sicurezza
|
||||
//sbatte i dati nei campi
|
||||
movana.put(MOVANA_NUMREG, numreg);
|
||||
movana.put(MOVANA_ANNOES, annoes);
|
||||
movana.put(MOVANA_DATAREG, dataini);
|
||||
movana.put(MOVANA_DATACOMP, dataini);
|
||||
movana.put(MOVANA_DATAFCOMP, datafine);
|
||||
movana.put(MOVANA_DESCR, DESCR_TESTATA);
|
||||
movana.put(MOVANA_CODCAUS, _codcaus);
|
||||
movana.put(MOVANA_TIPOMOV, 'P');
|
||||
|
||||
|
||||
//RIGHE
|
||||
//-----
|
||||
TImporto totdoc;
|
||||
for (int i = 0; i < righe.items(); i++)
|
||||
{
|
||||
const TRecord_text& curr = (const TRecord_text&)righe[i];
|
||||
|
||||
const TString codconto = curr.get(2);
|
||||
const real soldini = curr.get(3);
|
||||
|
||||
//controllo fase e/o sede
|
||||
TString fase, sede;
|
||||
if (_msk->get(F_CRPA_DIN)[0] == 'C')
|
||||
{
|
||||
//controllo fasi (ricordiamo che le fasi sono legate alle commesse nel crpa)
|
||||
fase = curr.get(1);
|
||||
if (fase.full())
|
||||
{
|
||||
TToken_string chiave = codcms;
|
||||
chiave.add(fase);
|
||||
const TRectype& rec_fase = cache().get(LF_FASI, chiave);
|
||||
if (rec_fase.empty())
|
||||
{
|
||||
TString errore;
|
||||
errore << "La fase " << fase << " non esiste legata alla commessa " << codcms << "";
|
||||
log.log(2, errore);
|
||||
}
|
||||
} //fase.full...
|
||||
}
|
||||
else //if(_msk->get_char(F_CRPA_DIN...
|
||||
{
|
||||
sede = curr.get(1);
|
||||
if (sede.full())
|
||||
{
|
||||
const TRectype& rec_sede = cache().get(LF_CDC, sede);
|
||||
if (rec_sede.empty())
|
||||
{
|
||||
TString errore;
|
||||
errore << "La sede " << sede << " non esiste";
|
||||
log.log(2, errore);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
//controllo conti
|
||||
TString query;
|
||||
TString tmp_codconto;
|
||||
tmp_codconto << "'" << codconto << "'";
|
||||
query << "USE PCONANA KEY 1 \n";
|
||||
query << "SELECT CODCONTO[10,15]=" << tmp_codconto;
|
||||
|
||||
TISAM_recordset pconana(query);
|
||||
const TRecnotype items = pconana.items();
|
||||
if (items <= 0)
|
||||
{
|
||||
TString errore;
|
||||
errore << "Il sottoconto " << codconto << " non esiste";
|
||||
log.log(2, errore);
|
||||
}
|
||||
|
||||
if (items > 1)
|
||||
{
|
||||
TString errore;
|
||||
errore << "Esiste piu' di un sottoconto " << codconto ;
|
||||
log.log(1, errore);
|
||||
}
|
||||
pconana.move_last(); //si posiziona sul record corretto
|
||||
const TString& contone = pconana.get(PCONANA_CODCONTO).as_string();
|
||||
|
||||
const TString contcon = ana2bill(contone);
|
||||
if (contcon.empty())
|
||||
{
|
||||
TString errore;
|
||||
errore << "Il conto analitico " << contone << " non corrisponde ad alcun conto contabile";
|
||||
log.log(2, errore);
|
||||
}
|
||||
//deve stabilire se la sezione e' D o A in base all'indbil del conto analitico
|
||||
TAnal_bill anazio(contone);
|
||||
const int indbil = anazio.indicatore_bilancio();
|
||||
char sezione = 'D';
|
||||
if (indbil > 0)
|
||||
sezione = (indbil == 1 || indbil == 3) ? 'D' : 'A';
|
||||
else
|
||||
{
|
||||
TString errore;
|
||||
errore << "Il conto analitico " << contone << " non ha un indicatore di bilancio";
|
||||
log.log(2, errore);
|
||||
}
|
||||
//incrementa l'importo totlae del documento in base a quanto trovato su questa riga
|
||||
TImporto imp_riga(sezione, soldini);
|
||||
totdoc += imp_riga;
|
||||
|
||||
//controllo sulle date
|
||||
const TDate curr_dataini = str2date(curr.get(4));
|
||||
const TDate curr_datafine = str2date(curr.get(5));
|
||||
if (curr_dataini != dataini)
|
||||
{
|
||||
TString errore;
|
||||
errore << "La commessa " << codcms << " ha movimenti con date inizio competenza incongruenti";
|
||||
log.log(1, errore);
|
||||
}
|
||||
if (curr_datafine != datafine)
|
||||
{
|
||||
TString errore;
|
||||
errore << "La commessa " << codcms << " ha movimenti con date fine competenza incongruenti";
|
||||
log.log(1, errore);
|
||||
}
|
||||
|
||||
TRectype& rec_rmovana = movana.new_row();
|
||||
|
||||
rec_rmovana.put(RMOVANA_ANNOES, annoes);
|
||||
rec_rmovana.put(RMOVANA_NUMREG, numreg);
|
||||
rec_rmovana.put(RMOVANA_NUMRIG, i+1);
|
||||
rec_rmovana.put(RMOVANA_SEZIONE, sezione);
|
||||
rec_rmovana.put(RMOVANA_DATACOMP, dataini);
|
||||
rec_rmovana.put(RMOVANA_CODCMS, codcms);
|
||||
rec_rmovana.put(RMOVANA_CODFASE, fase);
|
||||
rec_rmovana.put(RMOVANA_CODCCOSTO, sede);
|
||||
rec_rmovana.put(RMOVANA_CODCONTO, contcon);
|
||||
rec_rmovana.put(RMOVANA_DESCR, DESCR_RIGA);
|
||||
rec_rmovana.put(RMOVANA_IMPORTO, soldini);
|
||||
}
|
||||
//scrive testata e riga e aggiorna i saldi (write() magggica!)
|
||||
movana.put(MOVANA_TOTDOC, totdoc.valore());
|
||||
movana.put(MOVANA_SEZIONE, totdoc.sezione());
|
||||
|
||||
TLocalisamfile testate(LF_MOVANA);
|
||||
movana.write(testate);
|
||||
|
||||
}
|
||||
|
||||
//metodo di eliminazione dei movana
|
||||
void TBudget_Import::movana_killer(const TAssoc_array& elenco, const bool kill_all)
|
||||
{
|
||||
//accoppa i movimenti preventivi che hanno queste commesse
|
||||
TRelation relmovana(LF_MOVANA);
|
||||
TCursor curmovana(&relmovana, "TIPOMOV=='P'");
|
||||
|
||||
const TRectype& recmovana = relmovana.curr();
|
||||
const long nrec = curmovana.items();
|
||||
curmovana.freeze();
|
||||
TProgind pi(nrec, "Eliminazione movimenti preventivi in corso...");
|
||||
|
||||
TLocalisamfile movana(LF_MOVANA); //questo serve alla remove()
|
||||
|
||||
for (curmovana = 0; curmovana.pos() < nrec; ++curmovana)
|
||||
{
|
||||
pi.addstatus(1);
|
||||
//si possono uccidere solo i movimenti importati in automatico
|
||||
const TString& descr = curmovana.curr().get(MOVANA_DESCR);
|
||||
if (descr == DESCR_TESTATA)
|
||||
{
|
||||
TAnal_mov anal_kill(curmovana.curr());
|
||||
|
||||
const int original_rows = anal_kill.rows();
|
||||
int residual_rows = kill_all ? 0 : original_rows; //necessario perche', in caso di kill_all=true (genocidio)
|
||||
|
||||
//se e' un diradamento selettivo in base al codice commessa...
|
||||
if (!kill_all)
|
||||
{
|
||||
TString codcms;
|
||||
for (int i = original_rows; i > 0; i--)
|
||||
{
|
||||
codcms = anal_kill.body().row(i).get(RMOVANA_CODCMS);
|
||||
if (elenco.is_key(codcms))
|
||||
{
|
||||
anal_kill.body().destroy_row(i, true);
|
||||
residual_rows--;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
//controlla quante righe sono rimaste: se nessuna->accoppa il movimento, senno' lo riscrive con le..
|
||||
//..righe compattate (aggiunto il caso del movimento senza righe)
|
||||
if (residual_rows < original_rows || original_rows == 0)
|
||||
{
|
||||
if (residual_rows == 0)
|
||||
anal_kill.remove(movana); //la remove() accoppa anche le righe collegate
|
||||
else
|
||||
anal_kill.rewrite(movana); //non deve eliminare il movimento ma solo riscriverlo compattato..
|
||||
} //..senza le righe eliminate
|
||||
} //if(descr==...
|
||||
} //for(curmovana=0...
|
||||
}
|
||||
|
||||
//metodo di medio livello che gestisce l'ordine delle chiamate dei metodi per l'elaborazione dei record
|
||||
void TBudget_Import::elabora_input(const TFilename& file, TLog_report& log)
|
||||
{
|
||||
//array con le commesse da accoppare
|
||||
TAssoc_array movimenti, commesse;
|
||||
|
||||
//per cominciare apre il file di input
|
||||
const long dimension = fsize(file);
|
||||
if (dimension > 0)
|
||||
{
|
||||
_trasfile->open(file,'r');
|
||||
|
||||
TRecord_text curr;
|
||||
TToken_string key;
|
||||
TString codcms;
|
||||
|
||||
TProgind pi(dimension, TR("Lettura file di input in corso..."));
|
||||
//crea un assoc_array di array (e la madona!!!) in cui la chiave e' il codice commessa|dataini|datafine..
|
||||
//..e gli elementi sono array con le righe del file di input (con la stessa key ma fase\conto etc. diversi)
|
||||
while (_trasfile->read(curr) == NOERR)
|
||||
{
|
||||
pi.setstatus(_trasfile->read_file()->tellg());
|
||||
|
||||
codcms = curr.get(0);
|
||||
codcms.replace('_', '/');
|
||||
key = codcms;
|
||||
|
||||
//date
|
||||
const TString16 str_dataini = curr.get(4);
|
||||
key.add(str_dataini);
|
||||
const TString16 str_datafine = curr.get(5);
|
||||
key.add(str_datafine);
|
||||
|
||||
TArray* righe = (TArray*)movimenti.objptr(key);
|
||||
if (righe == NULL)
|
||||
{
|
||||
righe = new TArray;
|
||||
movimenti.add(key, righe);
|
||||
commesse.add(codcms); //commesse e' l'assoc_array di supporto che si usa nella cancellazione
|
||||
}
|
||||
righe->add(curr);
|
||||
}
|
||||
|
||||
//per finire chiude il file di input che sara' poi riaperto per la vera importazione
|
||||
_trasfile->close();
|
||||
}
|
||||
|
||||
//accoppa i movana con commesse da importare
|
||||
movana_killer(commesse, false);
|
||||
|
||||
//la causale!!!
|
||||
_codcaus = _msk->get(F_COD_CAUS);
|
||||
|
||||
//scrittura dei record memorizzati sui files di testata e righe dei movimenti analitici
|
||||
const int items = movimenti.items();
|
||||
TProgind pi(items, "Generazione movimenti preventivi in corso...");
|
||||
FOR_EACH_ASSOC_OBJECT(movimenti, obj, key, itm)
|
||||
{
|
||||
pi.addstatus(1);
|
||||
TArray* righe = (TArray*)itm;
|
||||
transfer_movimento(*righe, log);
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
bool TBudget_Import::transfer()
|
||||
{
|
||||
//azzeramento preventivo di TUTTI i movimenti, righe e saldi di tipo P
|
||||
if (_msk->get_bool(F_KILLOLD))
|
||||
{
|
||||
TAssoc_array assoc_civetta;
|
||||
movana_killer(assoc_civetta, true);
|
||||
}
|
||||
|
||||
//file da trasferire
|
||||
//costruire il nome del file con path
|
||||
TFilename file = _msk->get(F_PATH);
|
||||
file.add(_msk->get(F_NAMEFILE));
|
||||
file.ext("csv");
|
||||
_trasfile = new TBudget_Import_file(file);
|
||||
|
||||
int err = NOERR;
|
||||
TRecord_text curr;
|
||||
//log degli errori di trasferimento con soppressione degli errori ripetuti!
|
||||
TLog_report log("Errori");
|
||||
log.kill_duplicates();
|
||||
|
||||
//metodo che fa veramente la eliminazione e la scrittura
|
||||
elabora_input(file, log);
|
||||
|
||||
delete _trasfile;
|
||||
|
||||
log.preview();
|
||||
_lastfile = _msk->get(F_NAMEFILE);
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
|
||||
void TBudget_Import::mask2ini()
|
||||
{
|
||||
//aggiorna l'ultimo file inviato su msk e ini
|
||||
_msk->set(F_LASTFILE, _lastfile);
|
||||
_configfile->set_paragraph("BUDGET");
|
||||
_configfile->set("PATH", _msk->get(F_PATH));
|
||||
_configfile->set("LASTFILE", _lastfile);
|
||||
_msk->set(F_COD_CAUS, _codcaus);
|
||||
_configfile->set("CODCAUS", _msk->get(F_COD_CAUS));
|
||||
_configfile->set("CRPADIN", _msk->get(F_CRPA_DIN));
|
||||
}
|
||||
|
||||
void TBudget_Import::ini2mask()
|
||||
{
|
||||
//carica i parametri del file di configurazione
|
||||
_configfile->set_paragraph("BUDGET");
|
||||
|
||||
_msk->set(F_PATH, _configfile->get("PATH"));
|
||||
|
||||
_lastfile = _configfile->get("LASTFILE");
|
||||
_msk->set(F_LASTFILE, _lastfile);
|
||||
|
||||
_codcaus = _configfile->get("CODCAUS");
|
||||
_msk->set(F_COD_CAUS, _codcaus);
|
||||
|
||||
_msk->set(F_CRPA_DIN, _configfile->get("CRPADIN"));
|
||||
}
|
||||
|
||||
|
||||
bool TBudget_Import::create()
|
||||
{
|
||||
_configfile = new TConfig("ps1001200conf.ini");
|
||||
_msk = new TBudget_Import_mask();
|
||||
open_files(LF_MOVANA, LF_RMOVANA, LF_PCONANA, 0);
|
||||
_relmovana = new TRelation(LF_MOVANA);
|
||||
return TSkeleton_application::create();
|
||||
}
|
||||
|
||||
bool TBudget_Import::destroy()
|
||||
{
|
||||
delete _msk;
|
||||
delete _configfile;
|
||||
return TApplication::destroy();
|
||||
}
|
||||
|
||||
void TBudget_Import::main_loop()
|
||||
{
|
||||
KEY tasto;
|
||||
ini2mask();
|
||||
tasto = _msk->run();
|
||||
if (tasto == K_ENTER)
|
||||
{
|
||||
if (transfer())
|
||||
message_box(TR("Importazione movimenti completata"));
|
||||
}
|
||||
mask2ini();
|
||||
}
|
||||
|
||||
int ps1001200(int argc, char* argv[])
|
||||
{
|
||||
TBudget_Import a;
|
||||
a.run(argc, argv, TR("Importazione movimenti di budget"));
|
||||
return true;
|
||||
}
|
||||
68
ps/ps1001200.ini
Executable file
68
ps/ps1001200.ini
Executable file
@ -0,0 +1,68 @@
|
||||
[MAIN]
|
||||
DECSEP = ,
|
||||
FIELDSEP = ;
|
||||
RECORDSEP =
|
||||
SKIPLINES = 1
|
||||
TYPEFIELD = -1
|
||||
TYPELEN = -1
|
||||
TYPEPOS = -1
|
||||
|
||||
[TYPE FISSO]
|
||||
ALIGN =
|
||||
DATA =
|
||||
DECIMAL = 0
|
||||
FILLER = ' '
|
||||
LENGTH = 0
|
||||
PICTURE =
|
||||
|
||||
[TYPE DATA]
|
||||
ALIGN =
|
||||
DATA = D
|
||||
DECIMAL = 0
|
||||
FILLER =
|
||||
LENGTH = 6
|
||||
PICTURE =
|
||||
|
||||
[TYPE NUMERO]
|
||||
ALIGN = R
|
||||
DATA = N
|
||||
DECIMAL = 0
|
||||
FILLER = '0'
|
||||
LENGTH = 0
|
||||
PICTURE =
|
||||
|
||||
[TYPE STRINGA]
|
||||
ALIGN = L
|
||||
DATA = S
|
||||
DECIMAL = 0
|
||||
FILLER = ' '
|
||||
LENGTH = 0
|
||||
PICTURE =
|
||||
|
||||
[TYPE IMPORTO]
|
||||
ALIGN = R
|
||||
DATA = S
|
||||
DECIMAL = 0
|
||||
FILLER = '0'
|
||||
LENGTH = 0
|
||||
PICTURE =
|
||||
|
||||
[RECORD]
|
||||
|
||||
NAME(0) = CODCMS
|
||||
TYPE(0) = STRINGA
|
||||
|
||||
NAME(1) = FASE
|
||||
TYPE(1) = STRINGA
|
||||
|
||||
NAME(2) = CODCONTO
|
||||
TYPE(2) = STRINGA
|
||||
|
||||
NAME(3) = IMPORTO
|
||||
TYPE(3) = IMPORTO
|
||||
|
||||
NAME(4) = DATAINI
|
||||
TYPE(4) = DATA
|
||||
|
||||
NAME(5) = DATAFINE
|
||||
TYPE(5) = DATA
|
||||
9
ps/ps1001200a.h
Executable file
9
ps/ps1001200a.h
Executable file
@ -0,0 +1,9 @@
|
||||
// campi della maschera ps1001200a
|
||||
|
||||
#define F_PATH 101
|
||||
#define F_NAMEFILE 102
|
||||
#define F_LASTFILE 103
|
||||
#define F_KILLOLD 104
|
||||
#define F_COD_CAUS 105
|
||||
#define F_DESCR_CAUS 106
|
||||
#define F_CRPA_DIN 107
|
||||
76
ps/ps1001200a.uml
Executable file
76
ps/ps1001200a.uml
Executable file
@ -0,0 +1,76 @@
|
||||
#include "ps1001200a.h"
|
||||
|
||||
TOOLBAR "" 0 0 0 2
|
||||
|
||||
#include <stdbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Parametri Importazione" -1 -1 78 20
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 1 ""
|
||||
END
|
||||
|
||||
STRING F_PATH 255 40
|
||||
BEGIN
|
||||
PROMPT 2 2 "Percorso files da importare "
|
||||
DSELECT
|
||||
FLAGS "M"
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Selezionare una cartella valida!"
|
||||
FIELD PATH
|
||||
END
|
||||
|
||||
STRING F_NAMEFILE 40
|
||||
BEGIN
|
||||
PROMPT 2 3 "Nome file da importare "
|
||||
FLAGS "B"
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD NAMEFILE
|
||||
END
|
||||
|
||||
STRING F_LASTFILE 40
|
||||
BEGIN
|
||||
PROMPT 1 5 "Ultimo file importato "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_COD_CAUS 3
|
||||
BEGIN
|
||||
PROMPT 1 7 "Causale "
|
||||
FLAGS "UZ"
|
||||
USE LF_CAUSALI
|
||||
INPUT CODCAUS F_COD_CAUS
|
||||
DISPLAY "Cod." CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_COD_CAUS CODCAUS
|
||||
OUTPUT F_DESCR_CAUS DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESCR_CAUS 50 40
|
||||
BEGIN
|
||||
PROMPT 20 7 "Descriz."
|
||||
USE LF_CAUSALI KEY 2
|
||||
INPUT DESCR F_DESCR_CAUS
|
||||
DISPLAY "Descrizione @50" DESCR
|
||||
DISPLAY "Cod." CODCAUS
|
||||
COPY OUTPUT F_COD_CAUS
|
||||
END
|
||||
|
||||
RADIOBUTTON F_CRPA_DIN 1 27
|
||||
BEGIN
|
||||
PROMPT 1 9 "Tipologia del secondo campo"
|
||||
ITEM "C|Fase (CRPA)"
|
||||
ITEM "S|Sede (DINAMICA)"
|
||||
END
|
||||
|
||||
BOOLEAN F_KILLOLD
|
||||
BEGIN
|
||||
PROMPT 1 13 "Elimina tutti i movimenti ed i saldi preventivi esistenti"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
5
ps/ps1001200conf.ini
Executable file
5
ps/ps1001200conf.ini
Executable file
@ -0,0 +1,5 @@
|
||||
[BUDGET]
|
||||
PATH =
|
||||
LASTFILE =
|
||||
CODCAUS =
|
||||
CRPADIN =
|
||||
133
ps/ps1001300.cpp
Executable file
133
ps/ps1001300.cpp
Executable file
@ -0,0 +1,133 @@
|
||||
#include <applicat.h>
|
||||
#include <automask.h>
|
||||
#include <textset.h>
|
||||
|
||||
#include "../ca/rmovana.h"
|
||||
|
||||
#include "ps1001.h"
|
||||
#include "ps1001300a.h"
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TAutomask
|
||||
///////////////////////////////////////////////////////////
|
||||
class TVariazione_budget_mask : public TAutomask
|
||||
{
|
||||
protected:
|
||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
void carica_rmovana();
|
||||
|
||||
public:
|
||||
TVariazione_budget_mask();
|
||||
};
|
||||
|
||||
TVariazione_budget_mask::TVariazione_budget_mask() :TAutomask ("ps1001300a")
|
||||
{
|
||||
}
|
||||
|
||||
bool TVariazione_budget_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
switch (o.dlg())
|
||||
{
|
||||
case F_CODCMS:
|
||||
{
|
||||
if (e == fe_modify)
|
||||
carica_rmovana();
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
return true;
|
||||
}
|
||||
|
||||
|
||||
void TVariazione_budget_mask::carica_rmovana()
|
||||
{
|
||||
TWait_cursor hourglass;
|
||||
TString query;
|
||||
query << "USE RMOVANA KEY 4\n";
|
||||
query << "SELECT ((MOVANA.TIPOMOV=\"P\")||(MOVANA.TIPOMOV=\"V\"))\n";
|
||||
query << "JOIN MOVANA INTO NUMREG==NUMREG\n";
|
||||
query << "FROM CODCMS=#CODCMS\n";
|
||||
query << "TO CODCMS=#CODCMS\n";
|
||||
//instanzio un TISAM_recordset sulle rmovana
|
||||
TISAM_recordset rmovana(query);
|
||||
rmovana.set_var("#CODCMS", get(F_CODCMS));
|
||||
|
||||
const long rmovana_items = rmovana.items();
|
||||
|
||||
//recupero sheet e realtiva mashera di riga
|
||||
TSheet_field& sf_righe = sfield(F_RIGHE);
|
||||
TMask& msk = sf_righe.sheet_mask();
|
||||
sf_righe.destroy();
|
||||
|
||||
//per ogni riga del recordset va ad aggiornare lo sheet sulla maschera (aggiunge la riga)
|
||||
for (bool ok = rmovana.move_first(); ok; ok = rmovana.move_next())
|
||||
{
|
||||
TToken_string& row = sf_righe.row(-1);
|
||||
|
||||
row.add(rmovana.get(RMOVANA_CODCCOSTO).as_string(), 0);
|
||||
row.add(rmovana.get(RMOVANA_CODFASE).as_string(), 1);
|
||||
row.add(rmovana.get(RMOVANA_CODCONTO).as_string(), 2);
|
||||
|
||||
real valore = rmovana.get(RMOVANA_IMPORTO).as_real();
|
||||
const char sezione = rmovana.get(RMOVANA_SEZIONE).as_string()[0];
|
||||
TImporto importo(sezione, valore);
|
||||
importo.normalize('D');
|
||||
valore = importo.valore();
|
||||
TString str_valore;
|
||||
str_valore << valore;
|
||||
row.add(str_valore, 3);
|
||||
|
||||
row.add(rmovana.get(RMOVANA_NUMREG).as_int(), 4);
|
||||
row.add(rmovana.get(RMOVANA_NUMRIG).as_int(), 5);
|
||||
row.add(rmovana.get(RMOVANA_DESCR).as_string(), 6);
|
||||
}
|
||||
sf_righe.force_update();
|
||||
}
|
||||
|
||||
///////////////////////////////////////
|
||||
// TSkeleton_application
|
||||
///////////////////////////////////////
|
||||
class TVariazione_budget : public TSkeleton_application
|
||||
{
|
||||
virtual bool check_autorization() const { return false; }
|
||||
virtual const char * extra_modules() const { return "ca"; }
|
||||
|
||||
TVariazione_budget_mask* _msk;
|
||||
|
||||
protected:
|
||||
|
||||
public:
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
virtual void main_loop();
|
||||
|
||||
TVariazione_budget() {};
|
||||
};
|
||||
|
||||
|
||||
bool TVariazione_budget::create()
|
||||
{
|
||||
_msk = new TVariazione_budget_mask();
|
||||
return TSkeleton_application::create();
|
||||
}
|
||||
|
||||
bool TVariazione_budget::destroy()
|
||||
{
|
||||
delete _msk;
|
||||
return TApplication::destroy();
|
||||
}
|
||||
|
||||
void TVariazione_budget::main_loop()
|
||||
{
|
||||
KEY tasto;
|
||||
tasto = _msk->run();
|
||||
}
|
||||
|
||||
int ps1001300 (int argc, char* argv[])
|
||||
{
|
||||
TVariazione_budget main_app;
|
||||
main_app.run(argc, argv, TR("Variazione budget"));
|
||||
return true;
|
||||
}
|
||||
13
ps/ps1001300a.h
Executable file
13
ps/ps1001300a.h
Executable file
@ -0,0 +1,13 @@
|
||||
//campi ps1001300a.uml
|
||||
#define F_CODCMS 201
|
||||
#define F_DESCRIZ 202
|
||||
#define F_RIGHE 210
|
||||
|
||||
//campi dello sheet
|
||||
#define F_CDC 101
|
||||
#define F_FASE 102
|
||||
#define F_CONTO 103
|
||||
#define F_IMPORTO 104
|
||||
#define F_NUMREG 105
|
||||
#define F_NUMRIG 106
|
||||
#define F_DESCR 107
|
||||
118
ps/ps1001300a.uml
Executable file
118
ps/ps1001300a.uml
Executable file
@ -0,0 +1,118 @@
|
||||
#include "ps1001300a.h"
|
||||
|
||||
TOOLBAR "" 0 0 0 2
|
||||
#include <stdbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Variazione Budget" 0 2 0 0
|
||||
|
||||
STRING F_CODCMS 20
|
||||
BEGIN
|
||||
PROMPT 1 1 "Commessa "
|
||||
USE LF_COMMESSE
|
||||
INPUT CODCMS F_CODCMS
|
||||
DISPLAY "Codice@20" CODCMS
|
||||
DISPLAY "Descrizione@50" DESCRIZ
|
||||
OUTPUT F_CODCMS CODCMS
|
||||
OUTPUT F_DESCRIZ DESCRIZ
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESCRIZ 50 44
|
||||
BEGIN
|
||||
PROMPT 34 1 ""
|
||||
USE LF_COMMESSE KEY 2
|
||||
INPUT DESCRIZ F_DESCRIZ
|
||||
DISPLAY "Descrizione@50" DESCRIZ
|
||||
DISPLAY "Codice@20" CODCMS
|
||||
COPY OUTPUT F_CODCMS
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
TEXT -1
|
||||
BEGIN
|
||||
PROMPT 0 3 "@bRighe movimenti di budget"
|
||||
END
|
||||
|
||||
SPREADSHEET F_RIGHE
|
||||
BEGIN
|
||||
PROMPT 1 4 "Righe"
|
||||
ITEM "Sede@4"
|
||||
ITEM "Fase@5"
|
||||
ITEM "Conto@12"
|
||||
ITEM "Importo@18"
|
||||
ITEM "N. Reg."
|
||||
ITEM "Riga"
|
||||
ITEM "Descrizione riga@50"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
||||
|
||||
/////////////////////////////////////////
|
||||
//maschera di riga
|
||||
PAGE "Riga analitica" -1 -1 78 10
|
||||
|
||||
STRING F_CDC 4
|
||||
BEGIN
|
||||
PROMPT 1 1 "Sede "
|
||||
FLAGS "L"
|
||||
END
|
||||
|
||||
STRING F_FASE 5
|
||||
BEGIN
|
||||
PROMPT 1 2 "Fase "
|
||||
FLAGS "L"
|
||||
END
|
||||
|
||||
STRING F_CONTO 12
|
||||
BEGIN
|
||||
PROMPT 1 3 "Conto "
|
||||
FLAGS "L"
|
||||
END
|
||||
|
||||
NUMBER F_IMPORTO 15 2
|
||||
BEGIN
|
||||
PROMPT 1 4 "Importo "
|
||||
END
|
||||
|
||||
NUMBER F_NUMREG 7
|
||||
BEGIN
|
||||
PROMPT 1 5 "N. reg. "
|
||||
FLAGS "L"
|
||||
END
|
||||
|
||||
NUMBER F_NUMRIG 3
|
||||
BEGIN
|
||||
PROMPT 1 6 "N. riga "
|
||||
FLAGS "L"
|
||||
END
|
||||
|
||||
STRING F_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 1 7 "Descr. "
|
||||
FLAGS "L"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
TOOLBAR "bottombar" 0 0 0 2
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 10 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user