Patch level : 2.0 nopatch
Files correlati : ab0.ex Ricompilazione Demo : [ ] Commento : Sviluppo riclassificazione saldi git-svn-id: svn://10.65.10.50/trunk@11020 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
d855d8a149
commit
d5abdda769
281
ab/ab0400.cpp
281
ab/ab0400.cpp
@ -3,6 +3,7 @@
|
||||
#include <automask.h>
|
||||
#include <applicat.h>
|
||||
#include <config.h>
|
||||
#include <clifo.h>
|
||||
#include <mask.h>
|
||||
#include <pconti.h>
|
||||
#include <progind.h>
|
||||
@ -65,6 +66,22 @@ bool TRicl_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
}
|
||||
}
|
||||
break;
|
||||
case F_DAL:
|
||||
if (e == fe_close)
|
||||
{
|
||||
TMask & m = o.mask();
|
||||
|
||||
if (m.get(F_ESER).empty() && (m.get(F_DAL).empty() || m.get(F_AL).empty()))
|
||||
return o.error_box(TR("E' necessario specificare o il codice esercizio oppure\nle date limite"));
|
||||
}
|
||||
break;
|
||||
case F_OUTPUT:
|
||||
if (e == fe_close)
|
||||
{
|
||||
if (o.get().empty())
|
||||
return o.error_box(TR("E' necessario specificare il file di output"));
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
@ -99,6 +116,7 @@ public:
|
||||
real prog_avere() const { return _prog_avere;}
|
||||
real saldo() const { return _saldo_iniziale + _prog_dare - _prog_avere;}
|
||||
bool sezione_opposta() const;
|
||||
const bool is_zero() const { return _saldo_iniziale == ZERO && _prog_dare == ZERO && _prog_avere == ZERO;}
|
||||
TRiga_calcolo& copy(const TRiga_calcolo& c);
|
||||
|
||||
TRiga_calcolo(const TRiga_calcolo& c);
|
||||
@ -201,12 +219,13 @@ class TRicl_saldi : public TSkeleton_application
|
||||
int _codes;
|
||||
TDate _dal;
|
||||
TDate _al;
|
||||
bool _all_recs;
|
||||
bool _provv;
|
||||
TString _codpdb;
|
||||
TString _codcms;
|
||||
TArray _risultati;
|
||||
TAssoc_array _output;
|
||||
TString_array _output_keys;
|
||||
bool _clear;
|
||||
ofstream * _file;
|
||||
TExternisamfile * _dbf;
|
||||
|
||||
@ -222,6 +241,7 @@ public:
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
void mask2parms(const TMask & m);
|
||||
void calculate_clifo(const TString & tipo, const int gruppo, const int conto, const int indbil, const bool saldi_attuali, const TString & codcom);
|
||||
void calculate();
|
||||
void transform();
|
||||
void get_code(const TRectype & rec, bool cee, bool reverse, TString & code);
|
||||
@ -229,7 +249,7 @@ public:
|
||||
void output();
|
||||
virtual void main_loop();
|
||||
TFile_type open_output();
|
||||
void output_line(TFile_type t, const char * key, TRiga_output & r);
|
||||
void output_line(TFile_type t, const char * key, TRiga_output & r, const bool is_commessa, TString & codcms);
|
||||
void close_output(TFile_type t);
|
||||
|
||||
TRicl_saldi() {}
|
||||
@ -276,31 +296,46 @@ bool TRicl_saldi::destroy()
|
||||
|
||||
void TRicl_saldi::mask2parms(const TMask & m)
|
||||
{
|
||||
TEsercizi_contabili es;
|
||||
|
||||
_calc_type = (TCalc_type) m.get_int(F_TIPO);
|
||||
_codes = m.get_int(F_ESER);
|
||||
_dal = m.get(F_DAL);
|
||||
_al = m.get(F_AL);
|
||||
if (_dal.ok() && !_al.ok())
|
||||
{
|
||||
const TDate oggi(TODAY);
|
||||
|
||||
if (oggi > _dal)
|
||||
_al = oggi;
|
||||
else
|
||||
{
|
||||
_al.set_year(_dal.year());
|
||||
_al.set_month(12);
|
||||
_al.set_day(31);
|
||||
}
|
||||
}
|
||||
if (_codes != 0 && !_dal.ok())
|
||||
_dal = es.esercizio(_codes).inizio();
|
||||
if (_codes != 0 && !_al.ok())
|
||||
_al = es.esercizio(_codes).fine();
|
||||
|
||||
if (_codes == 0)
|
||||
{
|
||||
_codes = es.date2esc(_dal);
|
||||
if (_codes == 0)
|
||||
_codes = es.date2esc(_al);
|
||||
}
|
||||
_all_recs = m.get_bool(F_STRUCT);
|
||||
_provv = m.get_bool(F_PROVV);
|
||||
_codcms = m.get(F_COMM);
|
||||
_output_file = m.get(F_OUTPUT);
|
||||
_codpdb = m.get(F_PDB);
|
||||
_clear = m.get_bool(F_CLEAR);
|
||||
#ifdef DBG
|
||||
TString line ;
|
||||
write_log("---------------------------------------------------");
|
||||
line = TR("Tipo di calcolo : "); line << (_calc_type ? TR("IV Direttiva CEE") : TR("Analisi"));
|
||||
line = TR("Tipo di calcolo : ");
|
||||
switch (_calc_type)
|
||||
{
|
||||
case _saldi :
|
||||
line << TR("Saldi Contabili");
|
||||
break;
|
||||
case _ivdircee :
|
||||
line << TR("IV Direttiva CEE");
|
||||
break;
|
||||
case _analisi :
|
||||
line << TR("Analisi");
|
||||
break;
|
||||
default :
|
||||
break;
|
||||
}
|
||||
write_log(line);
|
||||
line = TR("Esercizio : "); line << _codes;
|
||||
write_log(line);
|
||||
@ -312,12 +347,54 @@ void TRicl_saldi::mask2parms(const TMask & m)
|
||||
write_log(line);
|
||||
line = TR("Movimenti provv.: "); line << (_provv ? "Si" : "No");
|
||||
write_log(line);
|
||||
line = TR("Output : "); line << ((const char *) _output_file) << " da ricreare : " << (_clear ? "Si" : "No");
|
||||
line = TR("Intera struttura: "); line << (_all_recs ? "Si" : "No");
|
||||
write_log(line);
|
||||
line = TR("Commessa : "); line << _codcms;
|
||||
write_log(line);
|
||||
line = TR("Output : "); line << ((const char *) _output_file);
|
||||
write_log(line);
|
||||
write_log("");
|
||||
#endif
|
||||
}
|
||||
|
||||
void TRicl_saldi::calculate_clifo(const TString & tipo, const int gruppo, const int conto, const int indbil, const bool saldi_attuali, const TString & codcom)
|
||||
{
|
||||
TRelation relcf(LF_CLIFO);
|
||||
TRectype & clifo = relcf.curr();
|
||||
clifo.put(CLI_TIPOCF, tipo);
|
||||
TCursor cur(&relcf, "", 1, &clifo, &clifo);
|
||||
long sottoconto;
|
||||
TSaldo sal;
|
||||
TRiga_calcolo r;
|
||||
const TRecnotype items = cur.items();
|
||||
|
||||
cur.freeze();
|
||||
|
||||
TProgind p(items, tipo == "C" ? TR("Ricalcolo saldi Clienti") : TR("Ricalcolo saldi Fornitori"), FALSE);
|
||||
for (cur = 0L; !p.iscancelled() && cur.pos() < items; ++cur)
|
||||
{
|
||||
sottoconto = clifo.get_long(CLI_CODCF);
|
||||
if (saldi_attuali)
|
||||
sal.ultima_immissione_bilancio(_codes, gruppo, conto, sottoconto, indbil, _provv ? 2 :1, FALSE);
|
||||
else
|
||||
sal.saldo_periodo(gruppo, conto, sottoconto, _dal, _al, indbil, _provv, codcom);
|
||||
r.set_conto(gruppo, conto, sottoconto, indbil);
|
||||
r.set_saldi(sal.saldoini(), sal.prgdare(), sal.prgavere());
|
||||
#ifdef DBG
|
||||
TString line ;
|
||||
line.format(FR("Conto %03d.%03d.%06ld - "), gruppo, conto, sottoconto);
|
||||
line << TR("Saldo iniziale ") << sal.saldoini().stringa(18, 3);
|
||||
line << TR(" Prog.Dare ") << sal.prgdare().stringa(18, 3);
|
||||
line << TR(" Prog.Avere ") << sal.prgavere().stringa(18, 3);
|
||||
line << TR(" Saldo ") << sal.saldo().stringa(18, 3);
|
||||
write_log(line);
|
||||
#endif
|
||||
if (_all_recs || !r.is_zero())
|
||||
_risultati.add(r);
|
||||
p.addstatus(1L);
|
||||
}
|
||||
}
|
||||
|
||||
void TRicl_saldi::calculate()
|
||||
{
|
||||
TRelation relpcon(LF_PCON);
|
||||
@ -329,11 +406,16 @@ void TRicl_saldi::calculate()
|
||||
int indbil;
|
||||
TSaldo sal;
|
||||
TRiga_calcolo r;
|
||||
const bool saldi_attuali = !_dal.ok() && !_al.ok();
|
||||
TEsercizi_contabili es;
|
||||
const TEsercizio & e = es.esercizio(_codes);
|
||||
const bool is_commessa = _codcms.not_empty();
|
||||
const bool saldi_attuali = (!is_commessa) && ((!_dal.ok() && !_al.ok()) || (_dal == e.inizio() && _al == e.fine()));
|
||||
const TRecnotype items = cur.items();
|
||||
|
||||
cur.freeze();
|
||||
|
||||
_risultati.destroy();
|
||||
|
||||
TProgind p(items, TR("Ricalcolo saldi"), FALSE);
|
||||
for (cur = 0L; !p.iscancelled() && cur.pos() < items; ++cur)
|
||||
{
|
||||
@ -341,13 +423,18 @@ void TRicl_saldi::calculate()
|
||||
conto = pcon.get_int(PCN_CONTO);
|
||||
sottoconto = pcon.get_long(PCN_SOTTOCONTO);
|
||||
if (sottoconto == 0L)
|
||||
{
|
||||
indbil = pcon.get_int(PCN_INDBIL);
|
||||
const TString & tmcf = pcon.get(PCN_TMCF);
|
||||
if (tmcf != ' ')
|
||||
calculate_clifo(tmcf, gruppo, conto, indbil, saldi_attuali, _codcms);
|
||||
}
|
||||
else
|
||||
{
|
||||
if (saldi_attuali)
|
||||
sal.ultima_immissione_bilancio(_codes, gruppo, conto, sottoconto, indbil, _provv ? 2 :1, FALSE);
|
||||
else
|
||||
sal.valore_al(gruppo, conto, sottoconto, _dal, _al, indbil, _provv);
|
||||
sal.saldo_periodo(gruppo, conto, sottoconto, _dal, _al, indbil, _provv, _codcms);
|
||||
r.set_conto(gruppo, conto, sottoconto, indbil);
|
||||
r.set_saldi(sal.saldoini(), sal.prgdare(), sal.prgavere());
|
||||
#ifdef DBG
|
||||
@ -359,7 +446,9 @@ void TRicl_saldi::calculate()
|
||||
line << TR(" Saldo ") << sal.saldo().stringa(18, 3);
|
||||
write_log(line);
|
||||
#endif
|
||||
_risultati.add(r);
|
||||
if (_all_recs || !r.is_zero())
|
||||
_risultati.add(r);
|
||||
p.addstatus(1L);
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -421,6 +510,8 @@ void TRicl_saldi::transform()
|
||||
{
|
||||
const int items = _risultati.items();
|
||||
TString80 key;
|
||||
|
||||
_output.destroy();
|
||||
for (int i = 0; i < items; i++)
|
||||
{
|
||||
const TRiga_calcolo & c = (const TRiga_calcolo &) _risultati[i];
|
||||
@ -458,14 +549,18 @@ TFile_type TRicl_saldi::open_output()
|
||||
else
|
||||
t = _textfile;
|
||||
if (t == _dbffile)
|
||||
_dbf = _clear ? new TExternisamfile(_output_file, "ab0400.trr") : new TExternisamfile(_output_file);
|
||||
_dbf = new TExternisamfile(_output_file, "ab0400.trr");
|
||||
else
|
||||
_file = new ofstream(_output_file, _clear ? ios::trunc : ios::app);
|
||||
{
|
||||
if (_output_file.exist())
|
||||
remove(_output_file);
|
||||
_file = new ofstream(_output_file);
|
||||
}
|
||||
|
||||
return t;
|
||||
}
|
||||
|
||||
void TRicl_saldi::output_line(TFile_type t, const char * key, TRiga_output & r)
|
||||
void TRicl_saldi::output_line(TFile_type t, const char * key, TRiga_output & r, const bool is_commessa, TString & codcms)
|
||||
{
|
||||
TString descr;
|
||||
const bool analisi = _calc_type == _ivdircee;
|
||||
@ -480,22 +575,12 @@ void TRicl_saldi::output_line(TFile_type t, const char * key, TRiga_output & r)
|
||||
descr = cache().get("%IVD", key, "S0");
|
||||
|
||||
real si = r.saldo_iniziale();
|
||||
char fsi = 'D';
|
||||
char fsi = si >= ZERO ? 'D' : 'A';
|
||||
real s = r.saldo();
|
||||
char fs = 'D';
|
||||
char fs = s >= ZERO ? 'D' : 'A';
|
||||
real pd = r.prog_dare();
|
||||
real pa = r.prog_avere();
|
||||
|
||||
if (si < ZERO)
|
||||
{
|
||||
si = -si;
|
||||
fsi = 'A';
|
||||
}
|
||||
if (s < ZERO)
|
||||
{
|
||||
s = -s;
|
||||
fs = 'A';
|
||||
}
|
||||
#ifdef DBG
|
||||
TString line ;
|
||||
line.format(FR("Chiave %s"), key);
|
||||
@ -506,37 +591,44 @@ void TRicl_saldi::output_line(TFile_type t, const char * key, TRiga_output & r)
|
||||
write_log(line);
|
||||
#endif
|
||||
|
||||
TFixed_string k(key, 40);
|
||||
if (t == _dbffile)
|
||||
{
|
||||
TRectype & r = _dbf->curr();
|
||||
TRectype & rec = _dbf->curr();
|
||||
|
||||
r.put("ANNOES", _codes);
|
||||
r.put("KEY", key);
|
||||
r.put("DESCR", descr);
|
||||
r.put("SALDOI", si);
|
||||
r.put("FLAGSI", fsi);
|
||||
r.put("PDARE", pd);
|
||||
r.put("PAVERE", pa);
|
||||
r.put("SALDO", s);
|
||||
r.put("FLAGS", fs);
|
||||
r.put("DATAI", _dal);
|
||||
r.put("DATAF", _al);
|
||||
r.put("CODPDB", _codpdb);
|
||||
rec.put("ANNOES", _codes);
|
||||
k.strip("|");
|
||||
rec.put("KEY", k);
|
||||
rec.put("DESCR", descr);
|
||||
if (is_commessa)
|
||||
rec.put("CODCMS", codcms);
|
||||
rec.put("SALDOI", abs(si));
|
||||
rec.put("FLAGSI", fsi);
|
||||
rec.put("PDARE", pd);
|
||||
rec.put("PAVERE", pa);
|
||||
rec.put("SALDO", abs(s));
|
||||
rec.put("FLAGS", fs);
|
||||
rec.put("DATAI", _dal);
|
||||
rec.put("DATAF", _al);
|
||||
rec.put("CODPDB", _codpdb);
|
||||
|
||||
if (_dbf->write(r) != NOERR)
|
||||
_dbf->rewrite(r);
|
||||
if (_dbf->write(rec) != NOERR)
|
||||
_dbf->rewrite(rec);
|
||||
}
|
||||
else
|
||||
if (t == _csvfile)
|
||||
{
|
||||
*_file << _codes << ";";
|
||||
*_file << "\""<< key << "\";";
|
||||
k.replace('|', ';');
|
||||
*_file << k << ";";
|
||||
if (is_commessa)
|
||||
*_file << codcms << ";";
|
||||
*_file << "\"" << descr << "\";";
|
||||
*_file << si.string() << ";";
|
||||
*_file << abs(si).stringa() << ";";
|
||||
*_file << fsi << ";";
|
||||
*_file << pd.string() << ";";
|
||||
*_file << pa.string() << ";";
|
||||
*_file << s.string() << ";";
|
||||
*_file << pd.stringa() << ";";
|
||||
*_file << pa.stringa() << ";";
|
||||
*_file << abs(s).stringa() << ";";
|
||||
*_file << fs << ";";
|
||||
*_file << _dal << ";";
|
||||
*_file << _al << ";";
|
||||
@ -545,13 +637,16 @@ void TRicl_saldi::output_line(TFile_type t, const char * key, TRiga_output & r)
|
||||
else
|
||||
{
|
||||
*_file << _codes << "\t";
|
||||
*_file << key << "\t";
|
||||
k.replace('|', '\t');
|
||||
*_file << k << "\t";
|
||||
if (is_commessa)
|
||||
*_file << codcms << "\t";
|
||||
*_file << descr << "\t";
|
||||
*_file << si.string() << "\t";
|
||||
*_file << abs(si).stringa() << "\t";
|
||||
*_file << fsi << "\t";
|
||||
*_file << pd.string() << "\t";
|
||||
*_file << pa.string() << "\t";
|
||||
*_file << s.string() << "\t";
|
||||
*_file << pd.stringa() << "\t";
|
||||
*_file << pa.stringa() << "\t";
|
||||
*_file << abs(s).stringa() << "\t";
|
||||
*_file << fs << "\t";
|
||||
*_file << _dal << "\t";
|
||||
*_file << _al << "\t";
|
||||
@ -581,7 +676,9 @@ void TRicl_saldi::output()
|
||||
const int items = _output_keys.items();
|
||||
TFile_type t = open_output();
|
||||
const bool analisi = _calc_type == _analisi;
|
||||
if (analisi)
|
||||
const bool is_commessa = _codcms.not_empty();
|
||||
|
||||
if (analisi && !is_commessa)
|
||||
{
|
||||
TRelation relana(LF_ABSALDI);
|
||||
TRectype & saldo = relana.curr();
|
||||
@ -595,39 +692,40 @@ void TRicl_saldi::output()
|
||||
cur.freeze();
|
||||
for (cur = 0L; cur.pos() < items; ++cur)
|
||||
relana.remove();
|
||||
if (analisi)
|
||||
{
|
||||
int err = NOERR;
|
||||
for (int i = 0; err == NOERR && i < items; i++)
|
||||
{
|
||||
TString & key = _output_keys.row(i);
|
||||
TRiga_output & r = (TRiga_output &) _output[key];
|
||||
TProgind p(items, "Aggiornamenti Saldi analisi", FALSE);
|
||||
int err = NOERR;
|
||||
for (int i = 0; err == NOERR && i < items && !p.iscancelled(); i++)
|
||||
{
|
||||
TString & key = _output_keys.row(i);
|
||||
TRiga_output & r = (TRiga_output &) _output[key];
|
||||
|
||||
saldo.zero();
|
||||
saldo.put(ABS_CODDITTA, get_firm());
|
||||
saldo.put(ABS_ANNO, _codes);
|
||||
saldo.put(ABS_CODPDB, _codpdb);
|
||||
saldo.zero();
|
||||
saldo.put(ABS_CODDITTA, get_firm());
|
||||
saldo.put(ABS_ANNO, _codes);
|
||||
saldo.put(ABS_CODPDB, _codpdb);
|
||||
|
||||
const real si = r.saldo_iniziale();
|
||||
const char fsi = si >= ZERO ? 'D' : 'A';
|
||||
const real si = r.saldo_iniziale();
|
||||
const char fsi = si >= ZERO ? 'D' : 'A';
|
||||
|
||||
saldo.put(ABS_FLDA, fsi);
|
||||
saldo.put(ABS_SALDO, abs(si));
|
||||
saldo.put(ABS_PDARE, r.prog_dare());
|
||||
saldo.put(ABS_PAVERE, r.prog_avere());
|
||||
saldo.put(ABS_FLDA, fsi);
|
||||
saldo.put(ABS_SALDO, abs(si));
|
||||
saldo.put(ABS_PDARE, r.prog_dare());
|
||||
saldo.put(ABS_PAVERE, r.prog_avere());
|
||||
err = relana.write();
|
||||
if (err == _isreinsert)
|
||||
err = relana.write();
|
||||
if (err == _isreinsert)
|
||||
err = relana.write();
|
||||
}
|
||||
if (err != NOERR)
|
||||
error_box("Impossibile aggiornare l'archivio saldi analisi errore n. %d", err);
|
||||
}
|
||||
}
|
||||
if (err != NOERR)
|
||||
error_box("Impossibile aggiornare l'archivio saldi analisi errore n. %d", err);
|
||||
p.addstatus(1L);
|
||||
}
|
||||
for (int i = 0; i < items; i++)
|
||||
TProgind p1(items, "Generazione output", FALSE);
|
||||
for (int i = 0; i < items && !p1.iscancelled() ; i++)
|
||||
{
|
||||
TString & key = _output_keys.row(i);
|
||||
TRiga_output & r = (TRiga_output &) _output[key];
|
||||
output_line(t, key, r);
|
||||
output_line(t, key, r, is_commessa, _codcms);
|
||||
p1.addstatus(1L);
|
||||
}
|
||||
close_output(t);
|
||||
}
|
||||
@ -652,13 +750,6 @@ void TRicl_saldi::main_loop()
|
||||
int ab0400 (int argc, char* argv[])
|
||||
{
|
||||
TRicl_saldi main_app;
|
||||
main_app.run(argc, argv, "Riclassifica saldi");
|
||||
main_app.run(argc, argv, TR("Riclassificazione saldi"));
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -5,6 +5,9 @@
|
||||
#define F_PDB 103
|
||||
#define F_DAL 104
|
||||
#define F_AL 105
|
||||
#define F_PROVV 106
|
||||
#define F_OUTPUT 107
|
||||
#define F_CLEAR 108
|
||||
#define F_STRUCT 106
|
||||
#define F_PROVV 107
|
||||
#define F_OUTPUT 108
|
||||
#define F_COMM 109
|
||||
#define F_DCOMM 110
|
||||
|
||||
|
||||
@ -1,8 +1,10 @@
|
||||
-1
|
||||
12
|
||||
14
|
||||
ANNOES|9|4|0|Codice esercizio
|
||||
KEY|1|20|0|Chiave
|
||||
DESCR|1|70|0|Descrizione
|
||||
CODCMS|1|20|0|Codice Commessa
|
||||
FASCMS|1|10|0|Fase Commessa
|
||||
FLAGSI|1|1|0|Saldo iniziale in <D>are, <A>vere
|
||||
SALDOI|4|18|2|Saldo iniziale
|
||||
PDARE|4|18|2|Progressivo dare
|
||||
|
||||
@ -1,13 +1,13 @@
|
||||
#include "ab0400.h"
|
||||
|
||||
PAGE "Riclassificazione" -1 -1 76 17
|
||||
PAGE "Riclassificazione" -1 -1 76 21
|
||||
|
||||
LIST F_TIPO 20
|
||||
BEGIN
|
||||
PROMPT 2 1 "Tipo di calcolo "
|
||||
ITEM "0|Saldi Contabili"
|
||||
ITEM "1|IV Direttiva CEE"
|
||||
ITEM "2|Analisi"
|
||||
ITEM "0|Saldi Contabili" MESSAGE ENABLE,1@
|
||||
ITEM "1|IV Direttiva CEE" MESSAGE CLEAR,1@
|
||||
ITEM "2|Analisi" MESSAGE CLEAR,1@
|
||||
END
|
||||
|
||||
NUMBER F_ESER 4
|
||||
@ -55,20 +55,47 @@ BEGIN
|
||||
WARNING "La data finale deve essere maggiore alla data iniziale"
|
||||
END
|
||||
|
||||
BOOLEAN F_STRUCT
|
||||
BEGIN
|
||||
PROMPT 2 11 "Intera struttura"
|
||||
END
|
||||
|
||||
BOOLEAN F_PROVV
|
||||
BEGIN
|
||||
PROMPT 2 11 "Anche i movimenti provvisori"
|
||||
PROMPT 2 13 "Anche i movimenti provvisori"
|
||||
END
|
||||
|
||||
STRING F_OUTPUT 50 30
|
||||
BEGIN
|
||||
PROMPT 2 13 "File di output "
|
||||
PROMPT 2 15 "File di output "
|
||||
FSELECT ""
|
||||
END
|
||||
|
||||
BOOLEAN F_CLEAR
|
||||
STRING F_COMM 20
|
||||
BEGIN
|
||||
PROMPT 55 13 "Azzera"
|
||||
PROMPT 2 17 "Codice commessa "
|
||||
USE CMS
|
||||
FIELD CODTAB
|
||||
FLAGS "UZ"
|
||||
INPUT CODTAB F_COMM
|
||||
DISPLAY "Codice@20" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_COMM CODTAB
|
||||
OUTPUT F_DCOMM S0
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_DCOMM 70 50
|
||||
BEGIN
|
||||
PROMPT 2 18 "Descrizione "
|
||||
USE CMS KEY 2
|
||||
INPUT S0 F_DCOMM
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice@20" CODTAB
|
||||
COPY OUTPUT F_COMM
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
|
||||
106
projects/ab0.dsp
106
projects/ab0.dsp
@ -137,7 +137,7 @@ SOURCE=..\ab\batbarb.rpt
|
||||
!IF "$(CFG)" == "ab0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling rpt $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exe
|
||||
TargetDir=\P.32\P_02_00\exe
|
||||
InputPath=..\ab\batbarb.rpt
|
||||
InputName=batbarb
|
||||
|
||||
@ -149,7 +149,7 @@ InputName=batbarb
|
||||
!ELSEIF "$(CFG)" == "ab0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling rpt $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exed
|
||||
TargetDir=\P.32\P_02_00\exed
|
||||
InputPath=..\ab\batbarb.rpt
|
||||
InputName=batbarb
|
||||
|
||||
@ -168,7 +168,7 @@ SOURCE=..\ab\batbntb.rpt
|
||||
!IF "$(CFG)" == "ab0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling rpt $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exe
|
||||
TargetDir=\P.32\P_02_00\exe
|
||||
InputPath=..\ab\batbntb.rpt
|
||||
InputName=batbntb
|
||||
|
||||
@ -180,7 +180,7 @@ InputName=batbntb
|
||||
!ELSEIF "$(CFG)" == "ab0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling rpt $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exed
|
||||
TargetDir=\P.32\P_02_00\exed
|
||||
InputPath=..\ab\batbntb.rpt
|
||||
InputName=batbntb
|
||||
|
||||
@ -199,7 +199,7 @@ SOURCE=..\ab\batbpdb.rpt
|
||||
!IF "$(CFG)" == "ab0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling rpt $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exe
|
||||
TargetDir=\P.32\P_02_00\exe
|
||||
InputPath=..\ab\batbpdb.rpt
|
||||
InputName=batbpdb
|
||||
|
||||
@ -211,7 +211,7 @@ InputName=batbpdb
|
||||
!ELSEIF "$(CFG)" == "ab0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling rpt $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exed
|
||||
TargetDir=\P.32\P_02_00\exed
|
||||
InputPath=..\ab\batbpdb.rpt
|
||||
InputName=batbpdb
|
||||
|
||||
@ -234,7 +234,7 @@ SOURCE=..\ab\ab0200a.uml
|
||||
!IF "$(CFG)" == "ab0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exe
|
||||
TargetDir=\P.32\P_02_00\exe
|
||||
InputPath=..\ab\ab0200a.uml
|
||||
InputName=ab0200a
|
||||
|
||||
@ -246,7 +246,7 @@ InputName=ab0200a
|
||||
!ELSEIF "$(CFG)" == "ab0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exed
|
||||
TargetDir=\P.32\P_02_00\exed
|
||||
InputPath=..\ab\ab0200a.uml
|
||||
InputName=ab0200a
|
||||
|
||||
@ -260,12 +260,43 @@ InputName=ab0200a
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ab\ab0400a.uml
|
||||
|
||||
!IF "$(CFG)" == "ab0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\P.32\P_02_00\exe
|
||||
InputPath=..\ab\ab0400a.uml
|
||||
InputName=ab0400a
|
||||
|
||||
"$(TargetDir)\$(InputName).msk" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
msk32 $(InputPath) $(TargetDir)\$(InputName).msk
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ELSEIF "$(CFG)" == "ab0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\P.32\P_02_00\exed
|
||||
InputPath=..\ab\ab0400a.uml
|
||||
InputName=ab0400a
|
||||
|
||||
"$(TargetDir)\$(InputName).msk" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
msk32 $(InputPath) $(TargetDir)\$(InputName).msk
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ENDIF
|
||||
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ab\bastarb.uml
|
||||
|
||||
!IF "$(CFG)" == "ab0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exe
|
||||
TargetDir=\P.32\P_02_00\exe
|
||||
InputPath=..\ab\bastarb.uml
|
||||
InputName=bastarb
|
||||
|
||||
@ -277,7 +308,7 @@ InputName=bastarb
|
||||
!ELSEIF "$(CFG)" == "ab0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exed
|
||||
TargetDir=\P.32\P_02_00\exed
|
||||
InputPath=..\ab\bastarb.uml
|
||||
InputName=bastarb
|
||||
|
||||
@ -296,7 +327,7 @@ SOURCE=..\ab\bastntb.uml
|
||||
!IF "$(CFG)" == "ab0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exe
|
||||
TargetDir=\P.32\P_02_00\exe
|
||||
InputPath=..\ab\bastntb.uml
|
||||
InputName=bastntb
|
||||
|
||||
@ -308,7 +339,7 @@ InputName=bastntb
|
||||
!ELSEIF "$(CFG)" == "ab0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exed
|
||||
TargetDir=\P.32\P_02_00\exed
|
||||
InputPath=..\ab\bastntb.uml
|
||||
InputName=bastntb
|
||||
|
||||
@ -327,7 +358,7 @@ SOURCE=..\ab\bastpdb.uml
|
||||
!IF "$(CFG)" == "ab0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exe
|
||||
TargetDir=\P.32\P_02_00\exe
|
||||
InputPath=..\ab\bastpdb.uml
|
||||
InputName=bastpdb
|
||||
|
||||
@ -339,7 +370,7 @@ InputName=bastpdb
|
||||
!ELSEIF "$(CFG)" == "ab0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exed
|
||||
TargetDir=\P.32\P_02_00\exed
|
||||
InputPath=..\ab\bastpdb.uml
|
||||
InputName=bastpdb
|
||||
|
||||
@ -358,7 +389,7 @@ SOURCE=..\ab\batbarb.uml
|
||||
!IF "$(CFG)" == "ab0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exe
|
||||
TargetDir=\P.32\P_02_00\exe
|
||||
InputPath=..\ab\batbarb.uml
|
||||
InputName=batbarb
|
||||
|
||||
@ -370,7 +401,7 @@ InputName=batbarb
|
||||
!ELSEIF "$(CFG)" == "ab0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exed
|
||||
TargetDir=\P.32\P_02_00\exed
|
||||
InputPath=..\ab\batbarb.uml
|
||||
InputName=batbarb
|
||||
|
||||
@ -389,7 +420,7 @@ SOURCE=..\ab\batbntb.uml
|
||||
!IF "$(CFG)" == "ab0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exe
|
||||
TargetDir=\P.32\P_02_00\exe
|
||||
InputPath=..\ab\batbntb.uml
|
||||
InputName=batbntb
|
||||
|
||||
@ -401,7 +432,7 @@ InputName=batbntb
|
||||
!ELSEIF "$(CFG)" == "ab0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exed
|
||||
TargetDir=\P.32\P_02_00\exed
|
||||
InputPath=..\ab\batbntb.uml
|
||||
InputName=batbntb
|
||||
|
||||
@ -420,7 +451,7 @@ SOURCE=..\ab\batbpdb.uml
|
||||
!IF "$(CFG)" == "ab0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exe
|
||||
TargetDir=\P.32\P_02_00\exe
|
||||
InputPath=..\ab\batbpdb.uml
|
||||
InputName=batbpdb
|
||||
|
||||
@ -432,7 +463,7 @@ InputName=batbpdb
|
||||
!ELSEIF "$(CFG)" == "ab0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\r020200.aga\exed
|
||||
TargetDir=\P.32\P_02_00\exed
|
||||
InputPath=..\ab\batbpdb.uml
|
||||
InputName=batbpdb
|
||||
|
||||
@ -443,6 +474,41 @@ InputName=batbpdb
|
||||
|
||||
!ENDIF
|
||||
|
||||
# End Source File
|
||||
# End Group
|
||||
# Begin Group "Tracciati"
|
||||
|
||||
# PROP Default_Filter "trr"
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ab\ab0400.trr
|
||||
|
||||
!IF "$(CFG)" == "ab0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Copying record descripton $(InputPath)...
|
||||
TargetDir=\P.32\P_02_00\exe
|
||||
InputPath=..\ab\ab0400.trr
|
||||
InputName=ab0400
|
||||
|
||||
"$(TargetDir)\$(InputName).trr" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
copy $(InputPath) $(TargetDir)\$(InputName).trr
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ELSEIF "$(CFG)" == "ab0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Copying record descripton $(InputPath)...
|
||||
TargetDir=\P.32\P_02_00\exed
|
||||
InputPath=..\ab\ab0400.trr
|
||||
InputName=ab0400
|
||||
|
||||
"$(TargetDir)\$(InputName).trr" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
copy $(InputPath) $(TargetDir)\$(InputName).trr
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ENDIF
|
||||
|
||||
# End Source File
|
||||
# End Group
|
||||
# Begin Source File
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user