Patch level : 2.0 242
Files correlati : ef0.exe Ricompilazione Demo : [ ] Commento : PG200007 Presupposti: fattura accompagnatoria passiva da ordine fornitore: creato tipo documento fattura accompagnatoria con causale di magazzino di carico merce da ordine,utilizzo dello stesso numeratore delle fatture da d.d.t.ed elaborazione differita di tipo "consegna ordini" che parte dall'ordine fornitore ed arriva alla fattura (stato 1).La funzione di "elabora" dai documenti interattivi (ordine ) pur riscontrando che le elaborazioni sono due non modifica la destinazione mentre per il documento interattivo (fattura) non è presente nessun tipo di elaborazione git-svn-id: svn://10.65.10.50/trunk@11356 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
8ee4750f53
commit
ff6d6fbbcb
@ -153,7 +153,7 @@ BEGIN
|
||||
DRIVENBY F_CODVAL
|
||||
END
|
||||
|
||||
BUTTON F_IMPBUTTON 9 2
|
||||
BUTTON F_IMPBUTTON 10 2
|
||||
BEGIN
|
||||
PROMPT 50 7 "~Selezione"
|
||||
PICTURE BMP_SELECT
|
||||
|
||||
643
ef/ef0a00.cpp
643
ef/ef0a00.cpp
@ -1,11 +1,10 @@
|
||||
#include <applicat.h>
|
||||
#include <automask.h>
|
||||
#include <currency.h>
|
||||
#include <defmask.h>
|
||||
#include <execp.h>
|
||||
#include <progind.h>
|
||||
#include <recarray.h>
|
||||
#include <relation.h>
|
||||
#include <tabutil.h>
|
||||
|
||||
#include <clifo.h>
|
||||
#include <cfven.h>
|
||||
@ -16,65 +15,112 @@
|
||||
#include "ef0.h"
|
||||
#include "ef0A00a.h"
|
||||
|
||||
#include <clifo.h>
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Main Mask
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TPE_mask : public TAutomask
|
||||
{
|
||||
TRelation* _rel;
|
||||
bool _spork;
|
||||
bool _is_new;
|
||||
|
||||
protected:
|
||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
bool on_sheet_event(TOperable_field& o, TField_event e, long jolly);
|
||||
|
||||
public:
|
||||
bool calc_residual(const TRiga_scadenze& scad,
|
||||
real& impres, real& imppag,
|
||||
char& accsal, int& rdist, int& reff) const;
|
||||
bool calc_residual(const TRiga_scadenze& scad, real& impres, real& imppag,
|
||||
char& accsal, int& rdist, int& reff, bool& partially_unassigned, int& tipopag) const;
|
||||
bool fill_row(const TRiga_scadenze& rs, TToken_string& row, bool& partially_unassigned, bool force = FALSE);
|
||||
bool fill_rate();
|
||||
int insert_row(const TToken_string& row);
|
||||
bool fill_distinta(bool clear_all = FALSE);
|
||||
void sort_sheet();
|
||||
void update_total();
|
||||
|
||||
TRectype& new_row_effetto(TDistinta& dist, char tipocf, long codcf,
|
||||
int& rigadist, int& rigaeff) const;
|
||||
long get_free_num() const;
|
||||
void save_rate();
|
||||
void print();
|
||||
|
||||
TPE_mask() : TAutomask("ef0A00a") { }
|
||||
virtual ~TPE_mask() { }
|
||||
TPE_mask();
|
||||
virtual ~TPE_mask();
|
||||
};
|
||||
|
||||
// Calcola il residuo di una rata tenendo conto anche degli eventuali
|
||||
// effetti non ancora contabilizzati
|
||||
bool TPE_mask::calc_residual(const TRiga_scadenze& scad,
|
||||
real& impres, real& imppag,
|
||||
char& accsal, int& rdist, int& reff) const
|
||||
char& accsal, int& rdist, int& reff,
|
||||
bool& partially_unassigned, int& tipopag) const
|
||||
{
|
||||
TRelation rel(LF_REFFETTI);
|
||||
rel.add(LF_EFFETTI, "NPROGTR==NPROGTR");
|
||||
tipopag = scad.get_int(SCAD_TIPOPAG);
|
||||
const bool valuta = scad.in_valuta();
|
||||
const char tipocf = scad.get_char(SCAD_TIPOCF);
|
||||
|
||||
TRectype& filter = rel.curr();
|
||||
TImporto importo = scad.residuo(TRUE);
|
||||
importo.normalize(tipocf == 'C' ? 'D' : 'A');
|
||||
|
||||
impres = importo.valore();
|
||||
imppag = ZERO;
|
||||
accsal = 'A';
|
||||
rdist = reff = 0;
|
||||
partially_unassigned = FALSE;
|
||||
|
||||
// Contolla se ci sono pagamenti non assegnati da gestire
|
||||
const TRiga_partite& fattura = scad.riga();
|
||||
TPartita& partita = fattura.partita();
|
||||
const TRecord_array& unassigned = partita.unassigned();
|
||||
if (unassigned.rows() > 0)
|
||||
{
|
||||
real tot_unassigned; // Totale pagamenti non assegnati
|
||||
for (int u = unassigned.last_row(); u > 0; u = unassigned.pred_row(u))
|
||||
{
|
||||
const real imp = unassigned[u].get(valuta ? PAGSCA_IMPORTOVAL : PAGSCA_IMPORTO);
|
||||
tot_unassigned += imp;
|
||||
}
|
||||
|
||||
// Scala non assegnati dalle rate precedenti ancora aperte
|
||||
const int nrata = scad.get_int(SCAD_NRATA);
|
||||
for (int r = 1; r < nrata; r++)
|
||||
{
|
||||
if (!fattura.rata(r).chiusa())
|
||||
{
|
||||
TImporto res = fattura.rata(r).residuo(TRUE);
|
||||
tot_unassigned -= res.valore();
|
||||
if (tot_unassigned <= ZERO)
|
||||
break;
|
||||
}
|
||||
}
|
||||
// Scala non assegnati dalla rata corrente
|
||||
if (tot_unassigned > ZERO)
|
||||
{
|
||||
if (tot_unassigned >= impres)
|
||||
impres = ZERO;
|
||||
else
|
||||
impres -= tot_unassigned;
|
||||
partially_unassigned = TRUE;
|
||||
}
|
||||
}
|
||||
|
||||
// Se c'e' ancora un residuo calcola totale pagato con effetti
|
||||
if (!impres.is_zero())
|
||||
{
|
||||
TRectype& filter = _rel->curr();
|
||||
const char* field[] = { SCAD_ANNO, SCAD_NUMPART, SCAD_NRIGA, SCAD_NRATA, NULL };
|
||||
for (int i = 0; field[i]; i++)
|
||||
filter.put(field[i], scad.get(field[i]));
|
||||
TCursor cur(&rel, "", 2, &filter, &filter);
|
||||
TCursor cur(_rel, "", 2, &filter, &filter); // Elenco effetti su questa rata
|
||||
|
||||
const char tipocf = scad.get_char(SCAD_TIPOCF);
|
||||
const long codcf = scad.get_long(SCAD_SOTTOCONTO);
|
||||
TString expr;
|
||||
TString80 expr;
|
||||
expr << '(' << LF_EFFETTI << "->EFFCONT!=\"X\")&&";
|
||||
expr << '(' << LF_EFFETTI << "->TIPOCF==\"" << tipocf << "\")&&";
|
||||
expr << '(' << LF_EFFETTI << "->CODCF==\"" << codcf << "\")";
|
||||
cur.setfilter(expr, TRUE);
|
||||
|
||||
const long items = cur.items();
|
||||
const bool valuta = scad.in_valuta();
|
||||
|
||||
impres = scad.residuo(TRUE).valore();
|
||||
imppag = ZERO;
|
||||
accsal = 'A';
|
||||
rdist = reff = 0;
|
||||
|
||||
if (items > 0L)
|
||||
{
|
||||
cur.freeze();
|
||||
@ -89,6 +135,7 @@ bool TPE_mask::calc_residual(const TRiga_scadenze& scad,
|
||||
reff = riga.get_int(REFF_NRIGATR);
|
||||
accsal = riga.get_char(REFF_ACCSAL);
|
||||
imppag += riga.get_real(valuta ? REFF_IMPORTOVAL : REFF_IMPORTO);
|
||||
tipopag = effe.get_int(EFF_TIPOPAG);
|
||||
}
|
||||
else
|
||||
{
|
||||
@ -101,18 +148,152 @@ bool TPE_mask::calc_residual(const TRiga_scadenze& scad,
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
return !impres.is_zero();
|
||||
}
|
||||
|
||||
void TPE_mask::update_total()
|
||||
{
|
||||
real tot, val;
|
||||
real tot;
|
||||
TSheet_field& s = sfield(F_SHEET);
|
||||
const int postot = s.cid2index(F_IMPORTO);
|
||||
FOR_EACH_SHEET_ROW_BACK(s, r, row)
|
||||
tot += real(row->get(postot));
|
||||
set(F_TOTAL, tot);
|
||||
if (tot==ZERO)
|
||||
disable(DLG_SAVEREC);
|
||||
else
|
||||
enable(DLG_SAVEREC);
|
||||
}
|
||||
|
||||
bool TPE_mask::fill_row(const TRiga_scadenze& rs, TToken_string& row, bool& partially_unassigned, bool force)
|
||||
{
|
||||
const int tipopageff = get_int(F_TIPOPAGEFF);
|
||||
int tipopag;
|
||||
real impres, imppag;
|
||||
char accsal; int rigadist, rigaeff;
|
||||
row.cut(0);
|
||||
bool ok = calc_residual(rs, impres, imppag, accsal, rigadist, rigaeff, partially_unassigned, tipopag) || force;
|
||||
ok = (ok && (tipopag == tipopageff || tipopageff == 0));
|
||||
if (ok)
|
||||
{
|
||||
row.add(imppag.string());
|
||||
row.add(accsal);
|
||||
row.add(impres.string());
|
||||
row.add(rs.get_long(SCAD_SOTTOCONTO));
|
||||
TString16 cod; cod << rs.get_char(SCAD_TIPOCF) << '|' << rs.get_long(SCAD_SOTTOCONTO);
|
||||
row.add(cache().get(LF_CLIFO, cod, CLI_RAGSOC));
|
||||
row.add(rs.get(SCAD_ANNO));
|
||||
row.add(rs.get(SCAD_NUMPART));
|
||||
row.add(rs.get(SCAD_NRIGA));
|
||||
row.add(rs.get(SCAD_NRATA));
|
||||
row.add(rs.get(SCAD_DATASCAD));
|
||||
row.add(rigadist);
|
||||
row.add(rigaeff);
|
||||
switch (tipopag)
|
||||
{
|
||||
case 1:row.add("Rimessa Diretta"); break;
|
||||
case 2:row.add("Tratta"); break;
|
||||
case 3:row.add("Ricevuta Bancaria"); break;
|
||||
case 4:row.add("Cessione"); break;
|
||||
case 5:row.add("Pagherò"); break;
|
||||
case 6:row.add("Lettera di credito"); break;
|
||||
case 7:row.add("Tratta accettata"); break;
|
||||
case 8:row.add("Rapporti interbancari diretti"); break;
|
||||
case 9:row.add("Bonifico"); break;
|
||||
default: break;
|
||||
}
|
||||
}
|
||||
return ok;
|
||||
}
|
||||
|
||||
HIDDEN long row_compare(TToken_string& r1, TToken_string& r2, const int sort_mode)
|
||||
{
|
||||
long cmp = 0;
|
||||
if (sort_mode == 1)
|
||||
{
|
||||
const TDate d1 = r1.get(F_DATA-FIRST_FIELD);
|
||||
const TDate d2 = r2.get(F_DATA-FIRST_FIELD);
|
||||
cmp = d1 - d2;
|
||||
if (cmp != 0)
|
||||
return cmp; // else normal comparing
|
||||
}
|
||||
else if (sort_mode == 2)
|
||||
{
|
||||
const real i1 = r1.get(F_RESIDUO-FIRST_FIELD);
|
||||
const real i2 = r2.get(F_RESIDUO-FIRST_FIELD);
|
||||
const real diff = i1 - i2;
|
||||
cmp = diff.sign();
|
||||
if (cmp != 0)
|
||||
return cmp; // else normal comparing
|
||||
}
|
||||
for (int i = 3; cmp == 0 && i <= 8; i++)
|
||||
{
|
||||
if (i == 4) continue;
|
||||
if (i == 6)
|
||||
{
|
||||
TString16 p1; r1.get(i, p1);
|
||||
TString16 p2; r2.get(i, p2);
|
||||
cmp = p1.compare(p2);
|
||||
}
|
||||
else
|
||||
{
|
||||
long n1; r1.get(i, n1);
|
||||
long n2; r2.get(i, n2);
|
||||
cmp = n1 - n2;
|
||||
}
|
||||
}
|
||||
|
||||
return cmp;
|
||||
}
|
||||
|
||||
int TPE_mask::insert_row(const TToken_string& row)
|
||||
{
|
||||
const int sort_mode = get_int(F_SORT);
|
||||
TString_array& sheet = sfield(F_SHEET).rows_array();
|
||||
int first = 0;
|
||||
int last = sheet.items()-1;
|
||||
|
||||
long cmp = -1;
|
||||
int cur = 0;
|
||||
while (first <= last)
|
||||
{
|
||||
cur = (first+last) / 2;
|
||||
TToken_string& curr = sheet.row(cur);
|
||||
cmp = row_compare((TToken_string&)row, curr, sort_mode);
|
||||
if (cmp == 0)
|
||||
break;
|
||||
if (cmp > 0)
|
||||
first = cur+1;
|
||||
else
|
||||
last = cur-1;
|
||||
}
|
||||
if (cmp)
|
||||
{
|
||||
if (cmp > 0)
|
||||
cur++;
|
||||
sheet.insert(row, cur);
|
||||
}
|
||||
return cur;
|
||||
}
|
||||
|
||||
void TPE_mask::sort_sheet()
|
||||
{
|
||||
TWait_cursor hourglass;
|
||||
const int sort_mode = get_int(F_SORT);
|
||||
|
||||
TString_array& rows = sfield(F_SHEET).rows_array();
|
||||
for (int i = 0; i < rows.items()-1; i++)
|
||||
{
|
||||
for (int j = i+1; j < rows.items(); j++)
|
||||
{
|
||||
TToken_string& r1 = rows.row(i);
|
||||
TToken_string& r2 = rows.row(j);
|
||||
if (row_compare(r1, r2, sort_mode) > 0)
|
||||
rows.swap(i, j);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
bool TPE_mask::fill_rate()
|
||||
@ -131,48 +312,44 @@ bool TPE_mask::fill_rate()
|
||||
filter.put(PART_CONTO, 0);
|
||||
filter.put(PART_SOTTOCONTO, get(F_CLIFO));
|
||||
|
||||
TCursor partite(&rel, "", 1, &filter, &filter);
|
||||
|
||||
TString filtro;
|
||||
filtro << "(CHIUSA!=\"X\")&&(CODVAL==\"" << codval << "\")";
|
||||
partite.setfilter(filtro, TRUE);
|
||||
|
||||
long items = partite.items();
|
||||
if (items == 0)
|
||||
return FALSE;
|
||||
TCursor partite(&rel, filtro, 1, &filter, &filter);
|
||||
|
||||
const long items = partite.items();
|
||||
partite.freeze();
|
||||
if (items > 0)
|
||||
{
|
||||
TRectype& partita = partite.curr();
|
||||
|
||||
TProgind pi(items, TR("Caricamento partite aperte"), FALSE, TRUE);
|
||||
if (items > 900) items = 900;
|
||||
partite.freeze();
|
||||
TProgind pi(items, "Caricamento partite aperte", TRUE, TRUE);
|
||||
|
||||
long last_cf = 0;
|
||||
int last_year = 0;
|
||||
TString16 last_game;
|
||||
TString last_ragsoc;
|
||||
|
||||
TToken_string row;
|
||||
|
||||
for (partite = 0L; partite.pos() < items; ++partite)
|
||||
{
|
||||
pi.addstatus(1);
|
||||
if (pi.iscancelled())
|
||||
break;
|
||||
if (sheet.items() > 900) // Anche troppe righe
|
||||
break;
|
||||
|
||||
const long cur_cf = partita.get_long(PART_SOTTOCONTO);
|
||||
const int cur_year = partita.get_int(PART_ANNO);
|
||||
const TString& cur_game = partita.get(PART_NUMPART);
|
||||
if (cur_cf == last_cf && cur_year == last_year && cur_game == last_game)
|
||||
continue;
|
||||
last_cf = cur_cf;
|
||||
last_year = cur_year;
|
||||
last_game = cur_game;
|
||||
if (cur_cf != last_cf)
|
||||
{
|
||||
last_cf = cur_cf;
|
||||
TString16 cod;
|
||||
cod << get(F_TIPOCF) << '|' << last_cf;
|
||||
last_ragsoc = cache().get(LF_CLIFO, cod, CLI_RAGSOC);
|
||||
}
|
||||
|
||||
const TPartita game(partita);
|
||||
const int last = game.last();
|
||||
for (int riga = game.prima_fattura(); riga > 0 && riga <= last; riga++)
|
||||
for (int riga = game.prima_fattura(); riga > 0 && riga <= last; riga = game.succ(riga))
|
||||
{
|
||||
const TRiga_partite& rp = game.riga(riga);
|
||||
if (rp.is_fattura())
|
||||
@ -185,47 +362,108 @@ bool TPE_mask::fill_rate()
|
||||
const TDate data = rs.get(SCAD_DATASCAD);
|
||||
if (data >= dadata && (!adata.ok() || data <= adata))
|
||||
{
|
||||
real impres, imppag;
|
||||
char accsal; int rigadist, rigaeff;
|
||||
bool ok = calc_residual(rs, impres, imppag, accsal,
|
||||
rigadist, rigaeff);
|
||||
if (ok)
|
||||
bool partially_unassigned;
|
||||
if (fill_row(rs, row, partially_unassigned))
|
||||
{
|
||||
TToken_string& row = sheet.row(-1);
|
||||
row.add(imppag.string());
|
||||
row.add(accsal);
|
||||
row.add(impres.string());
|
||||
row.add(last_cf);
|
||||
row.add(last_ragsoc);
|
||||
row.add(game.anno());
|
||||
row.add(game.numero());
|
||||
row.add(riga);
|
||||
row.add(rata);
|
||||
row.add(data);
|
||||
row.add(rigadist);
|
||||
row.add(rigaeff);
|
||||
}
|
||||
}
|
||||
const int numrow = sheet.items();
|
||||
sheet.row(numrow) = row;
|
||||
if (partially_unassigned)
|
||||
sheet.disable_cell(numrow, 1); // Non permette di mettere a saldo
|
||||
}
|
||||
}
|
||||
} // if rata aperta
|
||||
} // for ogni rata
|
||||
} // if e' una fattura
|
||||
} // for ogni fattura
|
||||
} // for ogni partita
|
||||
} // if ci sono partite
|
||||
return fill_distinta(FALSE);
|
||||
}
|
||||
|
||||
bool TPE_mask::fill_distinta(bool clear_all)
|
||||
{
|
||||
TWait_cursor hourglass;
|
||||
TSheet_field& sheet = sfield(F_SHEET);
|
||||
if (clear_all)
|
||||
sheet.destroy();
|
||||
const char tdist = get(F_TIPODIST)[0];
|
||||
const long ndist = get_long(F_DIST);
|
||||
TDistinta dist(tdist, ndist);
|
||||
const bool dist_cont = dist.contabilizzata();
|
||||
if (dist.items() > 0)
|
||||
{
|
||||
TToken_string row;
|
||||
for (int e = 0; e < dist.items(); e++)
|
||||
{
|
||||
const TEffetto& eff = dist[e];
|
||||
const TBill clifo(0, 0, eff.get_long(EFF_CODCF), eff.get_char(EFF_TIPOCF));
|
||||
if (e==0)
|
||||
set(F_TIPOPAG, eff.get_int(EFF_TIPOPAG));
|
||||
for (int r = 1; r <= eff.rows_r(); r++)
|
||||
{
|
||||
const TRectype& reff = eff.row_r(r);
|
||||
const int anno = reff.get_int(REFF_ANNO);
|
||||
const TString16 part = reff.get(REFF_NUMPART);
|
||||
const int nriga = reff.get_int(REFF_NRIGA);
|
||||
const int nrata = reff.get_int(REFF_NRATA);
|
||||
TPartita game(clifo, anno, part);
|
||||
if (game.esiste(nriga, nrata))
|
||||
{
|
||||
TRiga_scadenze& rs = game.rata(nriga, nrata);
|
||||
bool partially_unassigned;
|
||||
if (fill_row(rs, row, partially_unassigned, dist_cont))
|
||||
{
|
||||
const int numrow = insert_row(row);
|
||||
if (partially_unassigned)
|
||||
sheet.disable_cell(numrow, 1); // Non e' possibile mettere saldo
|
||||
if (dist_cont)
|
||||
sheet.disable_cell(numrow, -1); // Non e' possibile modificare nulla
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
TString msg;
|
||||
msg << "La riga " << (e+1) << " della distinta " << ndist
|
||||
<< " si riferisce ad una rata o partita non valida:\n"
|
||||
<< clifo.tipo() << ' ' << clifo.codclifo() << ' ' << anno << ' '
|
||||
<< part << " Riga " << nriga << " Rata " << nrata << "\n"
|
||||
<< "Si desidera eliminare l'effetto?";
|
||||
if (yesno_box(msg))
|
||||
{
|
||||
TLocalisamfile righe(LF_REFFETTI);
|
||||
righe.curr() = reff;
|
||||
if (righe.remove() != NOERR)
|
||||
error_box("Errore di cancellazione riga effetto: %d", righe.status());
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if (get_bool(F_SORT))
|
||||
sort_sheet();
|
||||
|
||||
sheet.force_update();
|
||||
update_total();
|
||||
_spork = FALSE;
|
||||
|
||||
const int righe = sheet.items();
|
||||
const bool canedit = righe > 0;
|
||||
enable(-5, canedit);
|
||||
const bool full = sheet.items() > 0;
|
||||
if (full)
|
||||
{
|
||||
disable(-3);
|
||||
disable(-4);
|
||||
}
|
||||
enable(-5, full && !dist_cont);
|
||||
show(F_UNCONTABIL, dist_cont);
|
||||
|
||||
return canedit;
|
||||
return full;
|
||||
}
|
||||
|
||||
TRectype& TPE_mask::new_row_effetto(TDistinta& dist, char tipocf, long codcf,
|
||||
int& rigadist, int& rigaeff ) const
|
||||
{
|
||||
TString16 codice; codice << tipocf << '|' << codcf;
|
||||
const bool ragg = cache().get(LF_CFVEN, codice, CFV_RAGGEFF).not_empty();
|
||||
const bool ragg = !cache().get(LF_CFVEN, codice, CFV_RAGGEFF).blank();
|
||||
|
||||
TEffetto* neweff = NULL;
|
||||
if (ragg)
|
||||
@ -249,10 +487,9 @@ TRectype& TPE_mask::new_row_effetto(TDistinta& dist, char tipocf, long codcf,
|
||||
rigadist = dist.items();
|
||||
neweff->put(EFF_TIPOCF, tipocf);
|
||||
neweff->put(EFF_CODCF, codcf);
|
||||
neweff->put(EFF_TIPOCF, get(F_TIPOCF));
|
||||
neweff->put(EFF_CODVAL, get(F_CODVAL));
|
||||
neweff->put(EFF_CAMBIO, get(F_CAMBIO));
|
||||
neweff->put(EFF_DATACAMBIO, get(F_DATADIST));
|
||||
neweff->put(EFF_DATACAMBIO, get(F_DATACAMBIO));
|
||||
}
|
||||
rigaeff = neweff->rows_r()+1;
|
||||
return neweff->row_r(rigaeff, TRUE);
|
||||
@ -260,12 +497,30 @@ TRectype& TPE_mask::new_row_effetto(TDistinta& dist, char tipocf, long codcf,
|
||||
|
||||
void TPE_mask::save_rate()
|
||||
{
|
||||
const char tipodist = get(F_TIPODIST)[0];
|
||||
long numdist = get_long(F_DIST);
|
||||
if (_is_new)
|
||||
{
|
||||
TLocalisamfile f(LF_EFFETTI); f.setkey(4);
|
||||
while (TRUE)
|
||||
{
|
||||
f.put(EFF_TIPODIST, tipodist);
|
||||
f.put(EFF_NDIST, numdist);
|
||||
f.put(EFF_NRIGADIST, 1);
|
||||
if (f.read() != NOERR)
|
||||
break;
|
||||
const long nd = get_free_num();
|
||||
warning_box("La distinta %ld è già presente: verrà rinumerata in %ld", numdist, nd);
|
||||
numdist = nd;
|
||||
}
|
||||
_is_new = FALSE;
|
||||
}
|
||||
|
||||
TDistinta distinta(tipodist, numdist, _lock);
|
||||
|
||||
const TString& codval = get(F_CODVAL);
|
||||
const real cambio = get(F_CAMBIO);
|
||||
|
||||
const char tipodist = get(F_TIPODIST)[0];
|
||||
const long numdist = get_long(F_DIST);
|
||||
TDistinta distinta(tipodist, numdist, _lock);
|
||||
const bool eurocambio = get_bool(F_EURO);
|
||||
|
||||
bool zeroes = FALSE; // Esistono righe effetto da cancellare
|
||||
|
||||
@ -277,7 +532,7 @@ void TPE_mask::save_rate()
|
||||
if (codval.not_empty() && !imp.is_zero())
|
||||
{
|
||||
impval = imp;
|
||||
TCurrency c(impval, codval, cambio);
|
||||
TCurrency c(impval, codval, cambio, eurocambio ? _exchange_contro : _exchange_base);
|
||||
c.change_to_firm_val();
|
||||
imp = c.get_num();
|
||||
}
|
||||
@ -304,6 +559,13 @@ void TPE_mask::save_rate()
|
||||
key.add(row->get(sheet.cid2index(F_ANNO)));
|
||||
key.add(row->get(sheet.cid2index(F_PARTITA)));
|
||||
key.add(row->get(sheet.cid2index(F_RIGA)));
|
||||
// Trova partita
|
||||
const TRectype& part = cache().get(LF_PARTITE, key);
|
||||
reff.put(REFF_NFATT, part.get(PART_NUMDOC));
|
||||
reff.put(REFF_DATAFATT, part.get(PART_DATADOC));
|
||||
reff.put(REFF_IMPFATT, part.get(PART_IMPORTO));
|
||||
|
||||
// Trova rata
|
||||
key.add(row->get(sheet.cid2index(F_RATA)));
|
||||
const TRectype& scad = cache().get(LF_SCADENZE, key);
|
||||
|
||||
@ -341,6 +603,7 @@ void TPE_mask::save_rate()
|
||||
}
|
||||
|
||||
// Ricalcola totali righe ed elimina le righe NULLE
|
||||
TLocalisamfile f(LF_EFFETTI); f.setkey(1);
|
||||
for (int rd = distinta.items()-1; rd >= 0; rd--)
|
||||
{
|
||||
TEffetto& eff = distinta[rd];
|
||||
@ -349,7 +612,9 @@ void TPE_mask::save_rate()
|
||||
{
|
||||
const TRectype& reff = eff.row_r(i);
|
||||
if (reff.get_char(REFF_ACCSAL) == 'Z')
|
||||
{
|
||||
eff.destroy_row_r(i, TRUE);
|
||||
}
|
||||
else
|
||||
{
|
||||
totimp += reff.get_real(EFF_IMPORTO);
|
||||
@ -357,12 +622,25 @@ void TPE_mask::save_rate()
|
||||
}
|
||||
}
|
||||
if (eff.rows_r() == 0)
|
||||
{
|
||||
int err = eff.read(f, eff, _lock);
|
||||
if (err == NOERR)
|
||||
err = eff.remove(f);
|
||||
if (err == NOERR)
|
||||
distinta.righe().destroy(rd, TRUE);
|
||||
else
|
||||
error_box("Errore %d durante la cancellazione della riga %d", err, rd+1);
|
||||
}
|
||||
else
|
||||
{
|
||||
eff.put(EFF_TIPOPAG, get(F_TIPOPAG));
|
||||
eff.put(EFF_IMPORTO, totimp);
|
||||
eff.put(EFF_IMPORTOVAL, totimpval);
|
||||
eff.put(EFF_TIPOPAG, get(F_TIPOPAG));
|
||||
eff.put(EFF_CODVAL, codval);
|
||||
eff.put(EFF_CAMBIO, cambio);
|
||||
eff.put(EFF_CONTROEURO, eurocambio);
|
||||
eff.put(EFF_DATACAMBIO, get(F_DATACAMBIO));
|
||||
eff.put(EFF_SPESE, get(F_SPESE));
|
||||
}
|
||||
}
|
||||
|
||||
@ -391,8 +669,13 @@ bool TPE_mask::on_sheet_event(TOperable_field& o, TField_event e, long jolly)
|
||||
case F_IMPORTO:
|
||||
if (e == fe_modify)
|
||||
{
|
||||
if (m.get_real(F_IMPORTO) >= m.get_real(F_RESIDUO))
|
||||
m.set(F_ACCSAL, "S");
|
||||
TMask_field& as = m.field(F_ACCSAL);
|
||||
if (as.enabled())
|
||||
{
|
||||
const real imp = m.get(F_IMPORTO);
|
||||
const real res = m.get(F_RESIDUO);
|
||||
as.set(imp >= res ? "S" : "A");
|
||||
}
|
||||
}
|
||||
break;
|
||||
case F_PAGA:
|
||||
@ -402,13 +685,16 @@ bool TPE_mask::on_sheet_event(TOperable_field& o, TField_event e, long jolly)
|
||||
if (m.get_real(F_IMPORTO).is_zero())
|
||||
{
|
||||
m.set(F_IMPORTO, m.get(F_RESIDUO));
|
||||
m.set(F_ACCSAL, "S");
|
||||
TMask_field& as = m.field(F_ACCSAL);
|
||||
if (as.enabled())
|
||||
as.set("S");
|
||||
}
|
||||
else
|
||||
{
|
||||
m.reset(F_IMPORTO);
|
||||
m.reset(F_ACCSAL);
|
||||
}
|
||||
_spork = TRUE;
|
||||
}
|
||||
break;
|
||||
case F_SHEET:
|
||||
@ -422,37 +708,51 @@ bool TPE_mask::on_sheet_event(TOperable_field& o, TField_event e, long jolly)
|
||||
}
|
||||
return FALSE;
|
||||
case se_notify_modify:
|
||||
_spork = TRUE;
|
||||
update_total();
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
|
||||
default:
|
||||
break;
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
long TPE_mask::get_free_num() const
|
||||
{
|
||||
TLocalisamfile eff(LF_EFFETTI); eff.setkey(4);
|
||||
TRectype& curr = eff.curr();
|
||||
const TString& tipodist = get(F_TIPODIST);
|
||||
curr.put(EFF_TIPODIST, tipodist);
|
||||
curr.put(EFF_NDIST, 99999L);
|
||||
const int err = eff.read(_isgreat);
|
||||
long n = 1L;
|
||||
if (err != _isemptyfile)
|
||||
{
|
||||
if (err == NOERR)
|
||||
eff.prev();
|
||||
if (curr.get(EFF_TIPODIST) == tipodist)
|
||||
n += curr.get_long(EFF_NDIST);
|
||||
}
|
||||
return n;
|
||||
}
|
||||
|
||||
bool TPE_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
switch (o.dlg())
|
||||
{
|
||||
case DLG_NEWREC:
|
||||
{
|
||||
TLocalisamfile eff(LF_EFFETTI); eff.setkey(4);
|
||||
TRectype& curr = eff.curr();
|
||||
curr.put(EFF_TIPODIST, get(F_TIPODIST));
|
||||
curr.put(EFF_NDIST, 99999L);
|
||||
const int err = eff.read(_isgreat);
|
||||
long n = 1L;
|
||||
if (err != _isemptyfile)
|
||||
{
|
||||
if (err == NOERR)
|
||||
eff.prev();
|
||||
if (curr.get(EFF_TIPODIST) == get(F_TIPODIST))
|
||||
n += curr.get_long(EFF_NDIST);
|
||||
}
|
||||
const long n = get_free_num();
|
||||
set(F_DIST, n);
|
||||
disable(F_DIST);
|
||||
disable(DLG_NEWREC);
|
||||
set_focus_field(F_ABI);
|
||||
_is_new = TRUE;
|
||||
_spork = FALSE;
|
||||
}
|
||||
break;
|
||||
case F_DIST:
|
||||
@ -468,58 +768,147 @@ bool TPE_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
const TRectype& rec = cur.curr();
|
||||
if (rec.get_bool(EFF_EFFCONT))
|
||||
return error_box(FR("La distinta %s e' gia' stata contabilizzata,\n"
|
||||
"per cui non e' possibile modificarla"), (const char*)ef.get());
|
||||
{
|
||||
warning_box("La distinta %s è già stata contabilizzata,\n"
|
||||
"per cui non è possibile modificarla", (const char*)ef.get());
|
||||
show(F_UNCONTABIL);
|
||||
}
|
||||
ok = fill_distinta(TRUE);
|
||||
}
|
||||
}
|
||||
enable(-3, !ok);
|
||||
_is_new = !ok; // Memorizza se è una distinta nuova
|
||||
enable(-3, _is_new); // Abilita tipo, cliente, valuta, ecc., solo se nuova
|
||||
enable(F_TIPOPAG, _is_new);
|
||||
disable(F_AGGIORNA);
|
||||
}
|
||||
break;
|
||||
case F_CODVAL:
|
||||
if (e == fe_modify && !o.empty())
|
||||
{
|
||||
TTable cam("CAM");
|
||||
cam.put("CODTAB", o.get());
|
||||
int err = cam.read(_isgteq);
|
||||
if (err != NOERR || cam.get("CODTAB").compare(o.get(), 3) != 0)
|
||||
{
|
||||
const TRectype& val = cache().get("%VAL", o.get());
|
||||
TString16 str = val.get("S4");
|
||||
if (str.blank()) str = val.get("R10");
|
||||
set(F_CAMBIO, str);
|
||||
}
|
||||
}
|
||||
break;
|
||||
case F_AGGIORNA:
|
||||
if (e == fe_button)
|
||||
{
|
||||
if (!field(F_DIST).empty())
|
||||
TEdit_field& numdist = efield(F_DIST);
|
||||
if (!numdist.empty())
|
||||
{
|
||||
const bool full = fill_rate();
|
||||
if (full)
|
||||
bool go = TRUE;
|
||||
if (!numdist.enabled() && sfield(F_SHEET).items() > 0)
|
||||
{
|
||||
disable(-3);
|
||||
disable(-4);
|
||||
go = check_fields();
|
||||
if (go && _spork && yesno_box("Si desidera registrare la distinta?"))
|
||||
save_rate();
|
||||
}
|
||||
if (go)
|
||||
go = fill_rate();
|
||||
}
|
||||
else
|
||||
return error_box(TR("E' necessario specificare un numero di distinta"));
|
||||
return error_box("E' necessario specificare un numero di distinta");
|
||||
}
|
||||
break;
|
||||
case F_CONTABILI:
|
||||
if (e == fe_button)
|
||||
{
|
||||
const char tipodist = get(F_TIPODIST)[0];
|
||||
const long numdist = get_long(F_DIST);
|
||||
TString16 cmd;
|
||||
cmd << "ef0 -7 " << get(F_TIPODIST) << ' ' << get(F_DIST);
|
||||
cmd << "ef0 -7 " << tipodist << ' ' << numdist;
|
||||
TExternal_app app(cmd);
|
||||
app.run();
|
||||
if (app.run() == 0)
|
||||
{
|
||||
long numreg = 0; // Numero di registrazione contabile
|
||||
TLocalisamfile eff(LF_EFFETTI);
|
||||
eff.setkey(4);
|
||||
eff.put(EFF_TIPODIST, tipodist);
|
||||
eff.put(EFF_NDIST,numdist);
|
||||
eff.put(EFF_NRIGADIST, 1); // Cerco prima riga distinta
|
||||
if (eff.read() == NOERR)
|
||||
numreg = eff.get_long(EFF_NUMREG);
|
||||
if (numreg > 0)
|
||||
message_box("La distinta %ld e' stata contabilizzata col movimento %ld",
|
||||
numdist, numreg);
|
||||
else
|
||||
warning_box("La distinta %ld non e' stata contabilizzata", numdist);
|
||||
}
|
||||
stop_run(K_ESC);
|
||||
}
|
||||
break;
|
||||
case F_UNCONTABIL:
|
||||
if (e == fe_button)
|
||||
{
|
||||
const char tipodist = get(F_TIPODIST)[0];
|
||||
const long numdist = get_long(F_DIST);
|
||||
if (tipodist > ' ' && numdist > 0)
|
||||
{
|
||||
TRelation rel(LF_EFFETTI);
|
||||
TRectype& rec = rel.curr();
|
||||
rec.put(EFF_TIPODIST, tipodist);
|
||||
rec.put(EFF_NDIST,numdist);
|
||||
TCursor cur(&rel, "", 4, &rec, &rec);
|
||||
const TRecnotype items = cur.items();
|
||||
cur.freeze();
|
||||
|
||||
TAssoc_array movs;
|
||||
for (cur = 0; cur.pos() < items; ++cur)
|
||||
{
|
||||
movs.add(rec.get(EFF_NUMREG));
|
||||
rec.zero(EFF_EFFCONT);
|
||||
rec.zero(EFF_NUMREG);
|
||||
rel.rewrite();
|
||||
}
|
||||
|
||||
if (movs.items() > 0)
|
||||
{
|
||||
TString msg;
|
||||
msg = "E' necessario cancellare i seguenti movimenti contabili:\n";
|
||||
FOR_EACH_ASSOC_OBJECT(movs, hash, key, obj)
|
||||
msg << key << ' ';
|
||||
warning_box(msg);
|
||||
}
|
||||
stop_run(K_ESC);
|
||||
}
|
||||
}
|
||||
break;
|
||||
case DLG_DELREC:
|
||||
if (e == fe_button && yesno_box(FR("Confermate l'eliminazione della distinta %ld"),
|
||||
if (e == fe_button && yesno_box("Confermare l'eliminazione della distinta %ld",
|
||||
get_long(F_DIST)))
|
||||
{
|
||||
TSheet_field& sheet = sfield(F_SHEET);
|
||||
FOR_EACH_SHEET_ROW(sheet, r, row)
|
||||
row->add("", 0);
|
||||
{
|
||||
row->add(" ", 0);
|
||||
row->add("A", 1);
|
||||
}
|
||||
save_rate();
|
||||
}
|
||||
break;
|
||||
case DLG_SAVEREC:
|
||||
if (e == fe_button)
|
||||
{
|
||||
TEdit_field& cab = efield(F_CAB);
|
||||
if (!cab.empty())
|
||||
{
|
||||
if (check_fields())
|
||||
{
|
||||
save_rate();
|
||||
fill_rate();
|
||||
fill_distinta(TRUE);
|
||||
disable(F_TIPOPAG);
|
||||
}
|
||||
}
|
||||
else
|
||||
return error_box("E' necessario specificare una banca di presentazione");
|
||||
}
|
||||
break;
|
||||
case DLG_PRINT:
|
||||
if (e == fe_button)
|
||||
@ -528,6 +917,26 @@ bool TPE_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
return FALSE;
|
||||
}
|
||||
break;
|
||||
case F_SORT:
|
||||
if (e == fe_modify)
|
||||
{
|
||||
TSheet_field& s = sfield(F_SHEET);
|
||||
if (s.items() > 0)
|
||||
{
|
||||
sort_sheet();
|
||||
s.force_update();
|
||||
}
|
||||
}
|
||||
break;
|
||||
case F_CLIFO:
|
||||
case F_DA_DATA:
|
||||
case F_A_DATA:
|
||||
if (e == fe_modify)
|
||||
{
|
||||
if (get(F_CLIFO).not_empty() || get(F_DA_DATA).not_empty() || get(F_A_DATA).not_empty())
|
||||
enable(F_AGGIORNA);
|
||||
}
|
||||
break;
|
||||
case F_SHEET:
|
||||
return on_sheet_event(o, e, jolly);
|
||||
default:
|
||||
@ -538,6 +947,16 @@ bool TPE_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
TPE_mask::TPE_mask() : TAutomask("ef0a00a")
|
||||
{
|
||||
_rel = new TRelation(LF_REFFETTI);
|
||||
_rel->add(LF_EFFETTI, "NPROGTR==NPROGTR");
|
||||
}
|
||||
|
||||
TPE_mask::~TPE_mask()
|
||||
{ delete _rel; }
|
||||
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Main Program
|
||||
///////////////////////////////////////////////////////////
|
||||
@ -549,6 +968,7 @@ class TPagamento_effetti : public TSkeleton_application
|
||||
public:
|
||||
virtual void main_loop();
|
||||
virtual void print();
|
||||
virtual bool firm_change_enabled() const { return FALSE; }
|
||||
};
|
||||
|
||||
void TPagamento_effetti::main_loop()
|
||||
@ -560,12 +980,14 @@ void TPagamento_effetti::main_loop()
|
||||
_mask = new TPE_mask;
|
||||
do
|
||||
{
|
||||
_mask->reset(F_DIST);
|
||||
_mask->reset();
|
||||
_mask->enable(-3);
|
||||
_mask->enable(F_TIPOPAG);
|
||||
_mask->enable(-4);
|
||||
_mask->disable(-5);
|
||||
_mask->disable(DLG_SAVEREC);
|
||||
_mask->hide(F_UNCONTABIL);
|
||||
_mask->sfield(F_SHEET).destroy();
|
||||
_mask->reset(F_TOTAL);
|
||||
}
|
||||
while (_mask->run() != K_QUIT);
|
||||
|
||||
@ -581,7 +1003,8 @@ void TPagamento_effetti::print()
|
||||
|
||||
int ef0A00(int argc, char* argv[])
|
||||
{
|
||||
int n = 0;
|
||||
TPagamento_effetti pe;
|
||||
pe.run(argc, argv, TR("Distinte Pagamento"));
|
||||
pe.run(argc, argv, "Disposizioni incassi/pagamenti");
|
||||
return 0;
|
||||
}
|
||||
|
||||
20
ef/ef0a00a.h
20
ef/ef0a00a.h
@ -8,14 +8,24 @@
|
||||
#define F_DUMMYDIST 208
|
||||
#define F_DATADIST 209
|
||||
#define F_CODVAL 210
|
||||
#define F_CAMBIO 211
|
||||
#define F_CLIFO 212
|
||||
#define F_TIPOPAG 213
|
||||
#define F_TOTAL 220
|
||||
#define F_EURO 211
|
||||
#define F_CAMBIO 212
|
||||
#define F_DATACAMBIO 213
|
||||
#define F_DESCAB 214
|
||||
#define F_SORT 215
|
||||
#define F_CLIFO 220
|
||||
#define F_RAGSOCCF 221
|
||||
#define F_TIPOPAG 222
|
||||
#define F_TOTAL 230
|
||||
#define F_SPESE 231
|
||||
#define F_TIPOEFF 232
|
||||
|
||||
#define F_SHEET 300
|
||||
#define F_AGGIORNA 301
|
||||
#define F_CONTABILI 302
|
||||
#define F_UNCONTABIL 303
|
||||
|
||||
#define F_TIPOPAGEFF 401
|
||||
|
||||
#define F_PAGA 100
|
||||
#define F_IMPORTO 101
|
||||
@ -30,4 +40,4 @@
|
||||
#define F_DATA 110
|
||||
#define F_RIGADIST 111
|
||||
#define F_RIGAEFF 112
|
||||
|
||||
#define F_DESC_TIPO 113
|
||||
|
||||
191
ef/ef0a00a.uml
191
ef/ef0a00a.uml
@ -2,9 +2,21 @@
|
||||
|
||||
TOOLBAR "Toolbar" 0 -3 0 3
|
||||
|
||||
BUTTON F_UNCONTABIL 30
|
||||
BEGIN
|
||||
PROMPT -12 0 "~Annulla contabilizzazione"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
BUTTON F_CONTABILI 30
|
||||
BEGIN
|
||||
PROMPT -22 0 "~Contabilizzazione"
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
BUTTON DLG_NEWREC 10 2
|
||||
BEGIN
|
||||
PROMPT -16 -11 "~Nuovo"
|
||||
PROMPT -16 -1 "~Nuovo"
|
||||
PICTURE BMP_NEWREC
|
||||
PICTURE BMP_NEWRECDN
|
||||
GROUP 3
|
||||
@ -12,15 +24,16 @@ END
|
||||
|
||||
BUTTON DLG_SAVEREC 10 2
|
||||
BEGIN
|
||||
PROMPT -26 -11 ""
|
||||
PROMPT -26 -1 "~Registra"
|
||||
|
||||
PICTURE BMP_SAVEREC
|
||||
PICTURE BMP_SAVERECDN
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 10 2
|
||||
BEGIN
|
||||
PROMPT -36 -11 ""
|
||||
PROMPT -36 -1 "~Elimina"
|
||||
|
||||
PICTURE BMP_DELREC
|
||||
PICTURE BMP_DELRECDN
|
||||
GROUP 5
|
||||
@ -28,25 +41,25 @@ END
|
||||
|
||||
BUTTON DLG_PRINT 10 2
|
||||
BEGIN
|
||||
PROMPT -46 -11 ""
|
||||
PROMPT -46 -1 ""
|
||||
PICTURE BMP_PRINT
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -56 -11 ""
|
||||
PROMPT -56 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -66 -11 ""
|
||||
PROMPT -66 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Distite Pagamento" -1 -1 78 19
|
||||
PAGE "Disposizioni incassi/pagamenti" -1 -1 78 19
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
GROUPBOX DLG_NULL 78 6
|
||||
BEGIN
|
||||
PROMPT 1 0 "@bDistinta"
|
||||
END
|
||||
@ -55,8 +68,11 @@ LIST F_TIPODIST 1 15
|
||||
BEGIN
|
||||
PROMPT 2 1 "Tipo "
|
||||
ITEM "I|All'incasso"
|
||||
MESSAGE ENABLE,F_TIPOEFF
|
||||
ITEM "B|Salvo buon fine"
|
||||
MESSAGE RESET,F_TIPOEFF|DISABLE,F_TIPOEFF
|
||||
ITEM "S|Allo sconto"
|
||||
MESSAGE RESET,F_TIPOEFF|DISABLE,F_TIPOEFF
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
@ -69,7 +85,7 @@ END
|
||||
|
||||
NUMBER F_DIST 5
|
||||
BEGIN
|
||||
PROMPT 30 1 "Numero "
|
||||
PROMPT 28 1 "Numero "
|
||||
USE LF_EFFETTI KEY 4 SELECT NRIGADIST==1
|
||||
INPUT TIPODIST F_TIPODIST
|
||||
INPUT NDIST F_DIST
|
||||
@ -85,27 +101,40 @@ BEGIN
|
||||
OUTPUT F_DIST NDIST
|
||||
OUTPUT F_DATADIST DATADIST
|
||||
OUTPUT F_CODVAL CODVAL
|
||||
OUTPUT F_CAMBIO CAMBIO
|
||||
OUTPUT F_DATACAMBIO DATACAMBIO
|
||||
OUTPUT F_EURO CONTROEURO
|
||||
OUTPUT F_TIPOCF TIPOCF
|
||||
OUTPUT F_ABI CODABIP
|
||||
OUTPUT F_CAB CODCABP
|
||||
OUTPUT F_TIPOPAG TIPOPAG
|
||||
OUTPUT F_SPESE SPESE
|
||||
CHECKTYPE SEARCH
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
STRING F_CODVAL 3
|
||||
BEGIN
|
||||
PROMPT 53 1 "Valuta "
|
||||
PROMPT 50 1 "Valuta "
|
||||
FLAGS "UZ"
|
||||
USE %VAL
|
||||
INPUT CODTAB F_CODVAL
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Cambio\nStandard" S4
|
||||
DISPLAY "Contro\nEuro@6" B1
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT F_CODVAL CODTAB
|
||||
OUTPUT F_EURO B1
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 3
|
||||
MESSAGE EMPTY CLEAR,F_CAMBIO
|
||||
MESSAGE ENABLE,F_CAMBIO
|
||||
MESSAGE EMPTY CLEAR,6@
|
||||
MESSAGE ENABLE,6@
|
||||
END
|
||||
|
||||
BOOLEAN F_EURO
|
||||
BEGIN
|
||||
PROMPT 64 1 "Contro Euro"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATADIST
|
||||
@ -115,9 +144,29 @@ BEGIN
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_CAMBIO 15 5
|
||||
DATE F_DATACAMBIO
|
||||
BEGIN
|
||||
PROMPT 53 2 "Cambio "
|
||||
PROMPT 23 2 "Data cambio "
|
||||
FLAGS "R"
|
||||
USE CAM
|
||||
JOIN %VAL ALIAS 104 INTO CODTAB[1,3]==CODTAB[1,3]
|
||||
INPUT CODTAB[1,3] F_CODVAL SELECT
|
||||
INPUT CODTAB[4,11] F_DATACAMBIO
|
||||
DISPLAY "Cod" CODTAB[1,3]
|
||||
DISPLAY "Data@10" D0
|
||||
DISPLAY "Cambio" S4
|
||||
DISPLAY "Parita'\nEuro@6" B1
|
||||
DISPLAY "Valuta@50" 104@->S0
|
||||
OUTPUT F_DATACAMBIO D0
|
||||
OUTPUT F_CAMBIO S4
|
||||
CHECKTYPE SEARCH
|
||||
GROUP 6
|
||||
END
|
||||
|
||||
NUMBER F_CAMBIO 15 6
|
||||
BEGIN
|
||||
PROMPT 50 2 "Cambio "
|
||||
GROUP 6
|
||||
END
|
||||
|
||||
NUMBER F_ABI 5
|
||||
@ -133,7 +182,8 @@ BEGIN
|
||||
DISPLAY "Denominazione@50" 100@->S0
|
||||
OUTPUT F_ABI CODTAB[1,5]
|
||||
OUTPUT F_CAB CODTAB[6,10]
|
||||
CHECKTYPE REQUIRED
|
||||
OUTPUT F_DESCAB 100@->S0
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
NUMBER F_CAB 5
|
||||
@ -144,9 +194,24 @@ BEGIN
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESCAB 50 48
|
||||
BEGIN
|
||||
PROMPT 26 3 ""
|
||||
USE %BAN KEY 2 SELECT 100@->CODTAB!=""
|
||||
JOIN BNP ALIAS 100 INTO CODTAB==CODTAB
|
||||
INPUT S0 F_DESCAB
|
||||
DISPLAY "Denominazione@50" S0
|
||||
DISPLAY "ABI@5" CODTAB[1,5]
|
||||
DISPLAY "CAB@5" CODTAB[6,10]
|
||||
OUTPUT F_ABI CODTAB[1,5]
|
||||
OUTPUT F_CAB CODTAB[6,10]
|
||||
OUTPUT F_DESCAB S0
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
LIST F_TIPOPAG 1 30
|
||||
BEGIN
|
||||
PROMPT 35 3 "Pagamento "
|
||||
PROMPT 2 4 "Pagamento "
|
||||
ITEM "1|Rimessa Diretta"
|
||||
ITEM "2|Tratta"
|
||||
ITEM "3|Ricevuta Bancaria"
|
||||
@ -158,50 +223,77 @@ BEGIN
|
||||
ITEM "9|Bonifico"
|
||||
END
|
||||
|
||||
LIST F_TIPOCF 1 10
|
||||
LIST F_TIPOEFF 1 10
|
||||
BEGIN
|
||||
PROMPT 2 5 "Seleziona "
|
||||
PROMPT 50 4 "Tipo effetti "
|
||||
ITEM "C|Attivi"
|
||||
MESSAGE COPY,F_TIPOCF
|
||||
ITEM "F|Passivi"
|
||||
MESSAGE COPY,F_TIPOCF
|
||||
END
|
||||
|
||||
LIST F_TIPOCF 1 9
|
||||
BEGIN
|
||||
PROMPT 2 6 ""
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
GROUP 3
|
||||
FLAGS "D"
|
||||
//GROUP 3
|
||||
END
|
||||
|
||||
NUMBER F_CLIFO 6
|
||||
BEGIN
|
||||
PROMPT 38 5 ""
|
||||
PROMPT 15 6 ""
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CLIFO
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT F_CLIFO CODCF
|
||||
OUTPUT F_RAGSOCCF RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_RAGSOCCF 50 37
|
||||
BEGIN
|
||||
PROMPT 25 6 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT RAGSOC F_RAGSOCCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_CLIFO
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
DATE F_DA_DATA
|
||||
BEGIN
|
||||
PROMPT 2 6 "Dalla data "
|
||||
GROUP 4
|
||||
PROMPT 2 7 "Dal "
|
||||
END
|
||||
|
||||
DATE F_A_DATA
|
||||
BEGIN
|
||||
PROMPT 28 6 "Alla data "
|
||||
PROMPT 20 7 "Al "
|
||||
FLAGS "A"
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
LISTBOX F_SORT 10
|
||||
BEGIN
|
||||
PROMPT 35 7 "Ordinamento "
|
||||
ITEM " |Standard"
|
||||
ITEM "1|Scadenza"
|
||||
ITEM "2|Residuo"
|
||||
END
|
||||
|
||||
BUTTON F_AGGIORNA 10 2
|
||||
BEGIN
|
||||
PROMPT 66 5 ""
|
||||
PROMPT 66 6 ""
|
||||
PICTURE BMP_SELECT
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEET 0 -2
|
||||
BEGIN
|
||||
PROMPT 0 7 ""
|
||||
PROMPT 0 8 ""
|
||||
ITEM "Importo@18"
|
||||
ITEM "A/S@3"
|
||||
ITEM "Residuo@18"
|
||||
@ -211,25 +303,46 @@ BEGIN
|
||||
ITEM "Partita"
|
||||
ITEM "Riga"
|
||||
ITEM "Rata"
|
||||
ITEM "Data@10"
|
||||
ITEM "Scadenza@10"
|
||||
ITEM "Riga"
|
||||
ITEM "Effetto"
|
||||
ITEM "Tipo Pagamento@20"
|
||||
END
|
||||
|
||||
CURRENCY F_TOTAL 18
|
||||
BEGIN
|
||||
PROMPT 2 -1 "Totale "
|
||||
PROMPT 1 -1 "Totale "
|
||||
DRIVENBY F_CODVAL
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BUTTON F_CONTABILI 30
|
||||
CURRENCY F_SPESE 18
|
||||
BEGIN
|
||||
PROMPT 41 -1 "~Contabilizzazione"
|
||||
GROUP 5
|
||||
PROMPT 28 -1 "Spese "
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Selezione effetti" -1 -1 78 19
|
||||
|
||||
LIST F_TIPOPAGEFF 1 30
|
||||
BEGIN
|
||||
PROMPT 2 1 "Solo effetti con tipo pagamento "
|
||||
ITEM " | "
|
||||
ITEM "1|Rimessa Diretta"
|
||||
ITEM "2|Tratta"
|
||||
ITEM "3|Ricevuta Bancaria"
|
||||
ITEM "4|Cessione"
|
||||
ITEM "5|Paghero'"
|
||||
ITEM "6|Lettera di credito"
|
||||
ITEM "7|Tratta accettata"
|
||||
ITEM "8|Rapporti interbancari diretti"
|
||||
ITEM "9|Bonifico"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
||||
ENDMASK
|
||||
|
||||
PAGE "Rate" -1 -1 60 9
|
||||
@ -267,7 +380,7 @@ END
|
||||
STRING F_PARTITA 7
|
||||
BEGIN
|
||||
PROMPT 21 3 "Partita "
|
||||
FLAGS "D"
|
||||
FLAGS "D_"
|
||||
END
|
||||
|
||||
NUMBER F_RIGA 4
|
||||
@ -284,7 +397,7 @@ END
|
||||
|
||||
DATE F_DATA
|
||||
BEGIN
|
||||
PROMPT 1 4 "Data "
|
||||
PROMPT 1 4 "Scadenza"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
@ -308,6 +421,12 @@ BEGIN
|
||||
ITEM "S|Saldo"
|
||||
END
|
||||
|
||||
STRING F_DESC_TIPO 20
|
||||
BEGIN
|
||||
PROMPT 1 7 "Tipo pagamento "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BUTTON F_PAGA 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 "~Paga"
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user