root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/cg/cg2104.cpp
guy 341cf4d165 Gestione maschera partite 
Aggiunta maschera medesima


git-svn-id: svn://10.65.10.50/trunk@1155 c028cbd2-c16b-5b4b-a496-9718f37d4682
1995-03-23 17:17:13 +00:00

795 lines
24 KiB
C++
Executable File
Raw Blame History

// --------------------------------------------------------------------------
// Scadenzario
// fv 24/8/94
// --------------------------------------------------------------------------
#include <sheet.h>
#include "cg2102.h"
#include "cg2100.h"
#include "cg21sld.h"
#include "pagament.h"
#include <clifo.h>
#include <partite.h>
#include <scadenze.h>
bool TPrimanota_application::pag_notify(int r, KEY k)
{
TPagamento& pag = app().pagamento();
TSheet_field& ps = app().pags();
TMask* msk = &(app().curr_mask());
TString_array& rws = app().pag_rows();
int rdiff = atoi(msk->get(FS_RDIFFER));
// ts contiene la vecchia riga, ns la nuova
TToken_string ts(36), ns(36);
bool doit = TRUE, m_imp = FALSE, m_perc = FALSE, m_pag = FALSE;
bool m_scad = FALSE, m_tipo = FALSE, mod = FALSE;
word ahiahi = P_OK;
TString news(15), newi(15), newp(15), newt(2);
bool recalc = msk->get_bool(FS_RECALC);
bool mcomm = msk->get_bool(FS_MCOMM);
switch (k)
{
case K_SPACE:
break;
case K_ENTER:
ns = ps.row(r);
ts = rws.row(r);
news = ns.get(0);
newp = ns.get(1);
newi = ns.get(2);
newt = ns.get(3);
// qui viene il bello, si fa per dire
if (news != ts.get(0)) // modificata data scadenza
{
mod = m_scad = TRUE;
}
if (newp != ts.get(1)) // modificata percentuale
{
mod = m_perc = TRUE;
}
if (newi != ts.get(2)) // modificato importo
{
// se si modifica la percentuale l'importo non viene cagato
if ((recalc && !m_perc) || (!recalc))
{
mod = m_imp = TRUE;
}
}
if (newt != ts.get(3)) // modificato tipo pagamento
{
mod = m_tipo = TRUE;
}
break;
case K_DEL:
case K_INS:
doit = FALSE;
break;
default:
break;
}
// settato da recalc_rate se occorre ridefinire lo sheet
// aggiungendo o togliendo righe
bool need_recalc = FALSE;
if (k == K_ENTER)
{
if (mod && recalc)
{
// ricalcola sheet come sai fare tu
ahiahi = pag.recalc_rate(r, m_perc,
((m_perc || m_imp) ?
(m_perc ? (const char*)newp : (const char*)newi) :
NULL),
(m_scad ? (const char*)news : NULL),
(m_tipo ? (const char*)newt : NULL),
rdiff, mcomm, need_recalc);
// see if rdiff changed
msk->field(FS_RDIFFER).set(pag.rate_differenziate() ? "1" : "2");
}
if (!recalc)
{
ahiahi = P_OK;
// put data as they are
TToken_string& trw = pag.rata(r);
TToken_string srw = trw;
if (m_scad) trw.add(news,3);
if (m_perc) trw.add(newp,1);
if (m_imp) trw.add(newi,4);
if (m_tipo) trw.add(newt,2);
// validate the payment
if ((ahiahi = pag.validate()) != P_OK)
pag.rata(r) = srw;
}
if (ahiahi) // any error? Rimetti le righe com'erano prima
{
beep();
// se gli errori sono voluti, spiegali
if (!recalc)
{
TString256 s;
pag.strerr(ahiahi,s);
warning_box(s);
}
ps.row(r) = rws.row(r);
ps.force_update(r);
}
else if (recalc && mod && need_recalc)
{
// ridefinisci lo sheet sulla base delle nuove rate
pag.set_sheet(ps);
ps.force_update();
rws = ps.rows_array();
}
}
return doit;
}
bool TPrimanota_application::codpag_handler(TMask_field& f, KEY key)
{
TMask& m = f.mask();
if (key == K_TAB && (f.focusdirty() || !m.is_running()) && app().is_saldaconto())
{
const TString16 dt(m.get(F_DATAREG));
app().set_pagamento(f.get(), dt);
app().set_scadenze(m);
}
return TRUE;
}
void TPrimanota_application::set_pagamento(const char* c, const char* d)
{
if (_pag != NULL) delete _pag;
_pag = new TPagamento(c,d);
}
void TPrimanota_application::set_scadenze(TMask& m)
{
real imponibile(0.0);
real imposta(0.0);
real spese(0.0);
TPagamento& pag = pagamento();
if (pag.is_new())
{
m.disable_page(2);
return;
}
else m.enable_page(2);
m.set(FS_RDIFFER, pag.rate_differenziate() ? "1" : "2");
m.set(FS_NAMEPAG, pag.name());
m.set(FS_TIPOPR, pag.desc_tpr());
m.set(FS_MCOMM, pag.mese_commerciale() ? "X" : "");
TSheet_field& iva_sh = ivas();
for (int i = 0; i < iva_sh.items(); i++)
{
TToken_string& tt = iva_sh.row(i);
const real mpo(tt.get(0));
imponibile += mpo;
const real imp(tt.get(3));
imposta += imp;
}
m.set(FS_IMPONIBILE, imponibile.string());
m.set(FS_IMPOSTA, imposta.string());
m.set(FS_SPESE, spese.string());
m.set(FS_RECALC, "X");
pag.set_total(imponibile, imposta, spese);
pag.set_rate_auto();
bool new_part = TRUE;
TSheet_field& ps = (TSheet_field&)m.field(FS_RATESHEET);
// prepara lo sheet
pag.set_sheet(ps);
_pag_rows = ps.rows_array();
// se la prima rata e' fissa non si tocca
if (pag.tipo_prima_rata() > 0)
{
ps.disable_cell(0,0);
ps.disable_cell(0,1);
ps.disable_cell(0,2);
ps.disable_cell(0,3);
}
}
bool TPrimanota_application::read_scadenze(const TMask& m)
{
real imponibile(0.0);
real imposta(0.0);
real spese(0.0);
TSheet_field& ps = (TSheet_field&)m.field(FS_RATESHEET);
// should never happen but it doesn't hurt
if (_rel->cg(0).empty()) return FALSE;
TSheet_field& iva_sh = ivas();
for (int i = 0; i < iva_sh.items(); i++)
{
TToken_string& tt = iva_sh.row(i);
real mpo(tt.get(0));
real imp(tt.get(3));
imponibile += mpo;
imposta += imp;
}
m.field(FS_IMPONIBILE).set(imponibile.string());
m.field(FS_IMPOSTA).set(imposta.string());
m.field(FS_SPESE).set(spese.string());
m.field(FS_RECALC).set("X");
TPagamento& pag = pagamento();
pag.set_total(imponibile, imposta, spese);
TLocalisamfile partita (LF_PARTITE);
TLocalisamfile scadenza(LF_SCADENZE);
TString nreg(_rel->lfile().get("NUMREG"));
TString ndoc(_rel->lfile().get("NUMDOC"));
TString tmov(_rel->lfile().get("TIPOMOV"));
TDate ddoc(_rel->lfile().get_date("DATADOC"));
TDate dreg(_rel->lfile().get_date("DATAREG"));
TString reg (_rel->lfile().get("REG"));
TString protiva(_rel->lfile().get("PROTIVA"));
TString codcaus(_rel->lfile().get("CODCAUS"));
TString codval (_rel->lfile().get("CODVAL"));
TString cambio (_rel->lfile().get("CAMBIO"));
TString numpart = m.get(F_NUMRIF);
TString anno = m.get(F_ANNORIF);
char sezione = _rel->cg(0).get_char("SEZIONE"); // Dare/Avere
char tipocf = _rel->cg(0).get_char("TIPOC"); // Cliente || Fornitore || Uncazzo
int gruppo = (tipocf == 'C' || tipocf == 'F') ? 0 : _rel->cg(0).get_char("GRUPPO");
int conto = (tipocf == 'C' || tipocf == 'F') ? 0 : _rel->cg(0).get_char("CONTO");
long sottoconto = _rel->cg(0).get_long("SOTTOCONTO");
int nriga = 1;
int numrig = 1;
// partita.put("TIPOCF", tipocf);
// partita.put("GRUPPO", gruppo);
// partita.put("CONTO", conto);
// partita.put("SOTTOCONTO", sottoconto);
partita.put(PART_ANNO, anno);
partita.put(PART_NUMPART, numpart);
partita.put(PART_NRIGA, nriga);
bool fromscratch = FALSE;
if (partita.read() == NOERR)
{
// se si e' specificato un codice pagamento diverso si rifa' da capo
if (pag.code() != partita.get("CODPAG"))
fromscratch = TRUE;
// se invece la maschera contiene importi diversi da quelli
// registrati si passa la palla al culano
else if (imponibile != partita.get_real(PART_IMPORTO) ||
imposta != partita.get_real(PART_IMPOSTA) ||
spese != partita.get_real(PART_SPESE))
{
fromscratch = !yesno_box("Gli importi totali delle scadenze sono stati modificati rispetto"
" all'ultima registrazione. Si desidera mantenere"
" comunque la rateazione precedente");
// nel caso, of course, si disabilitano gli automatismi
if(!fromscratch) m.field(FS_RECALC).set("");
}
if (fromscratch)
pag.set_rate_auto();
else
{
pag.zap_rate();
for (int i = 0; ; i++)
{
// cerca rata
scadenza.zero();
// scadenza.put("TIPOCF", tipocf);
// scadenza.put("GRUPPO", gruppo);
// scadenza.put("CONTO", conto);
// scadenza.put("SOTTOCONTO", sottoconto);
scadenza.put(PART_ANNO, anno);
scadenza.put(PART_NUMPART, numpart);
scadenza.put(PART_NRATA, i+1);
if (scadenza.read() == NOERR)
{
const real importo = scadenza.get(SCAD_IMPORTO);
const TDate scad = scadenza.get(SCAD_DATASCAD);
const int tipop = scadenza.get_int(SCAD_TIPOPAG);
const bool paid = scadenza.get_bool(SCAD_PAGATA);
const TString16 ulc = scadenza.get(SCAD_ULTCLASS);
pag.set_rata(i, importo, scad, tipop, ulc, paid);
}
else break;
} // for
} //else
}
else
return FALSE;
pag.set_sheet(ps);
_pag_rows = ps.rows_array();
// se la prima rata e' fissa non si tocca
if (pag.tipo_prima_rata() > 0)
ps.disable_cell(0,-1);
return TRUE;
}
void TPrimanota_application::write_scadenze(const TMask& m)
{
real imponibile(0.0);
real imposta(0.0);
real spese(0.0);
// should never happen but it doesn't hurt
CHECK(!_rel->cg(0).empty(), "Missing first line");
TLocalisamfile partita (LF_PARTITE);
TLocalisamfile scadenza(LF_SCADENZE);
TRectype& r = _rel->lfile().curr();
TString nreg(r.get("NUMREG"));
TString ndoc(r.get("NUMDOC"));
TString tmov(r.get("TIPOMOV"));
TDate ddoc(r.get_date("DATADOC"));
TDate dreg(r.get_date("DATAREG"));
TString reg (r.get("REG"));
TString desc(r.get("DESCR"));
TString protiva(r.get("PROTIVA"));
TString codcaus(r.get("CODCAUS"));
TString codval (r.get("CODVAL"));
TString cambio (r.get("CAMBIO"));
TString numpart = m.get(F_NUMRIF);
const int anno = m.get_int(F_ANNORIF);
char sezione = _rel->cg(0).get_char("SEZIONE"); // Dare/Avere
char tipocf = _rel->cg(0).get_char("TIPOC"); // Cliente || Fornitore || Uncazzo
int gruppo = (tipocf == 'C' || tipocf == 'F') ? 0 : _rel->cg(0).get_char("GRUPPO");
int conto = (tipocf == 'C' || tipocf == 'F') ? 0 : _rel->cg(0).get_char("CONTO");
long sottoconto = _rel->cg(0).get_long("SOTTOCONTO");
int nriga = 1;
int numrig = 1;
// partita.put("TIPOCF", tipocf);
// partita.put("GRUPPO", gruppo);
// partita.put("CONTO", conto);
// partita.put("SOTTOCONTO", sottoconto);
partita.put("ANNO", anno);
partita.put("NUMPART", numpart);
partita.put("NRIGA", nriga);
bool fromscratch = FALSE, new_part = TRUE;
TPagamento& pag = pagamento();
if (partita.read() == NOERR)
{
// se si e' specificato un codice pagamento diverso si rifa' da capo
if (pag.code() != partita.get("CODPAG"))
fromscratch = TRUE;
new_part = FALSE;
}
// riaggiusta partite e scadenze
if (new_part)
{
partita.zero();
partita.put("TIPOCF", tipocf);
partita.put("GRUPPO", gruppo);
partita.put("CONTO", conto);
partita.put("SOTTOCONTO", sottoconto);
partita.put("ANNO", anno);
partita.put("NUMPART", numpart);
partita.put("NRIGA", nriga);
}
// put data on partita
partita.put("TIPOMOV",tmov);
partita.put("NREG", nreg);
partita.put("DATAREG",dreg);
partita.put("DATADOC",ddoc);
partita.put("REG", reg);
partita.put("DESCR", desc);
partita.put("PROTIVA",protiva);
partita.put("CODCAUS",codcaus);
partita.put("SEZ", sezione);
partita.put("CODPAG", pag.code());
partita.put("CODVAL", codval);
partita.put("CAMBIO", cambio);
partita.put("IMPORTO",pag.imponibile());
partita.put("IMPOSTA",pag.imposta());
partita.put("SPESE", pag.spese());
partita.put("NUMRIG", numrig);
if (new_part) partita.write();
else partita.rewrite();
bool new_scad = FALSE;
for (int i = 0; i < pag.n_rate(); i++)
{
new_scad = FALSE;
scadenza.zero();
// scadenza.put("TIPOCF", tipocf);
// scadenza.put("GRUPPO", gruppo);
// scadenza.put("CONTO", conto);
// scadenza.put("SOTTOCONTO", sottoconto);
scadenza.put("ANNO", anno);
scadenza.put("NUMPART", numpart);
scadenza.put("NRATA", i+1);
if (scadenza.read() != NOERR)
{
new_scad = TRUE;
scadenza.zero();
scadenza.put("TIPOCF", tipocf);
scadenza.put("GRUPPO", gruppo);
scadenza.put("CONTO", conto);
scadenza.put("SOTTOCONTO", sottoconto);
scadenza.put("ANNO", anno);
scadenza.put("NUMPART", numpart);
scadenza.put("NRATA", i+1);
}
// set everything
scadenza.put("CODPAG", pag.code());
scadenza.put("TIPOPAG", pag.tipo_rata(i));
scadenza.put("ULTCLASS", pag.ulc_rata(i));
scadenza.put("IMPORTO", pag.tpay_rata(i));
scadenza.put("DATASCAD", pag.data_rata(i));
scadenza.put("PAGATA", pag.ratapagata(i));
if (new_scad) scadenza.write();
else scadenza.rewrite();
}
// elimina eventuali altre scadenze oltre l'ultima registrata
for (; !new_scad ; i++)
{
scadenza.zero();
// scadenza.put("TIPOCF", tipocf);
// scadenza.put("GRUPPO", gruppo);
// scadenza.put("CONTO", conto);
// scadenza.put("SOTTOCONTO", sottoconto);
scadenza.put("ANNO", anno);
scadenza.put("NUMPART", numpart);
scadenza.put("NRATA", i+1);
if (scadenza.read() == NOERR)
scadenza.remove();
else new_scad = TRUE;
}
}
///////////////////////////////////////////////////////////
// Sheet partite
///////////////////////////////////////////////////////////
bool TPrimanota_application::edit_partite(int riga)
{
begin_wait();
TToken_string& cgr = cgs().row(riga);
const TBill b(cgr, 2, 0x3); // Legge il conto della riga selezionata
TString80 caption("Partite aperte del conto ");
caption << b.gruppo() << ' ' << b.conto() << ' ' << b.sottoconto();
TArray_sheet a(-1, -1, 0, 0, caption, "Anno|Numero@7|Descrizione@50|Importo@15R|Sezione", 0x8);
TLocalisamfile partita(LF_PARTITE);
partita.setkey(2); // Chiave per conto
partita.zero();
if (b.tipo() != ' ') // Ignora gruppo e conto dei clifo
{
partita.put(PART_TIPOCF, b.tipo());
partita.put(PART_SOTTOCONTO, b.sottoconto());
}
else b.put(partita.curr()); // Scrive completamente i conti normali
const TRectype recpar(partita.curr());// Record campione
int ult, anno; // Anno ultima partita
TString16 last, num; // Ultimo numero partita e numero corrente
TString desc; // Descrizione prima partita del gruppo
TImporto saldo; // Saldo ultima parita
TToken_string r(80);
for (int err = partita.read(_isgteq); err == NOERR && partita.curr() == recpar; err = partita.next())
{
num = partita.get(PART_NUMPART);
anno = partita.get_int(PART_ANNO);
if (num == last && anno == ult) // Se la partita e' la stessa ...
{
const TImporto i(partita.get_char(PART_SEZ), partita.get_real(PART_IMPORTO));
saldo += i; // ... incrementa totale
}
else
{
if (!saldo.is_zero()) // Se il saldo non e' nullo allora e' aperta
{
r.cut(0);
r.add(ult); r.add(last); r.add(desc);
r.add(saldo.valore().string(".")); r.add(saldo.sezione());
a.add(r); // Aggiunge partita alla lista
}
ult = anno;
last = num;
desc = partita.get(PART_DESCR);
saldo.set(partita.get_char(PART_SEZ), partita.get_real(PART_IMPORTO));
}
}
if (!saldo.is_zero()) // Aggiunge ultima partita se aperta
{
r.cut(0);
r.add(ult); r.add(last); r.add(desc);
r.add(saldo.valore().string(".")); r.add(saldo.sezione());
a.add(r);
}
end_wait();
KEY k = a.items() > 0 ? K_ENTER : K_ESC; // Esce se non ci sono righe
while (k == K_ENTER)
{
k = a.run();
if (k == K_ENTER)
{
const int anno = a.row().get_int(0);
const TString16 num = a.row().get(1);
edit_scadenze(riga, b, anno, num); // Edita pagamenti
}
}
return TRUE;
}
// Edit scadenze relative all'anno/numero partita specificati
bool TPrimanota_application::edit_scadenze(int currig, const TBill& b, int anno, const char* num)
{
TString caption; caption.format("Pagamenti della partita %s dell'anno %d", num, anno);
TArray_sheet a(-1, -1, 0, 0, caption, "Rata|Data@10|Importo@15|Descrizione@50|Tipo", 0x8);
TLocalisamfile scadenza(LF_SCADENZE);
scadenza.zero(); scadenza.put(SCAD_ANNO, anno); scadenza.put(SCAD_NUMPART, num);
const TRectype recsca(scadenza.curr());
TToken_string r(80);
for (int err = scadenza.read(_isgteq);
err == NOERR && scadenza.curr() == recsca;
err = scadenza.next())
{
r.cut(0);
r.add(scadenza.get(SCAD_NRATA));
r.add(scadenza.get(SCAD_DATASCAD));
r.add(scadenza.get(SCAD_IMPORTO));
r.add("");
r.add("");
a.add(r);
}
TLocalisamfile partita(LF_PARTITE);
partita.setkey(1);
partita.zero(); partita.put(PART_ANNO, anno); partita.put(PART_NUMPART, num);
const TRectype recpar(partita.curr());
const TString16 curreg(curr_mask().get(F_NUMREG)); // Numero registrazione corrente
TString desc; // Descrizione di default
TRectype parbas(recpar);
for (err = partita.read(_isgteq); err == NOERR && partita.curr() == recpar; err = partita.next())
{
const int rata = partita.get_int(PART_NRATA); // Legge eventuale numero rata
if (desc.empty())
{
parbas = partita.curr(); // Memorizza parita base
desc = partita.get(PART_DESCR); // Aggiorna descrizione scadenze
for (int i = 0; i < a.items(); i++)
{
TToken_string& t = a.row(i);
if (t.get(3)[0] <= ' ')
t.add(desc, 3);
}
}
if (rata < 1 || partita.get(PART_REG).not_empty())
continue;
for (long i = a.items()-1; i >= 0; i--) // Cerca scadenza corrispondente
if (a.row(i).get_int(0) == rata) break;
if (i < 0)
error_box("Non esiste una scadenza per la rata %d", rata);
r.cut(0);
r.add(rata);
r.add(partita.get(PART_DATADOC));
r.add(partita.get(PART_IMPORTO));
r.add(desc);
r.add(partita.get(PART_NRIGA));
i = a.insert(r, i >= 0 ? i+1 : -1);
if (partita.get(PART_NREG) != curreg || partita.get_int(PART_NRIGA) != currig)
a.disable(i);
}
KEY k = a.items() > 0 ? K_ENTER : K_ESC; // Esce se non ci sono righe
while (k == K_ENTER)
{
k = a.run();
if (k == K_ENTER)
{
const int rata = a.row().get_int(0);
scadenza.zero();
scadenza.put(SCAD_ANNO, anno);
scadenza.put(SCAD_NUMPART, num);
scadenza.put(SCAD_NRATA, rata);
err = scadenza.read();
CHECKD(err == NOERR, "Non ritrovo piu' la rata ", rata);
int nrig = a.row().get_int(4);
if (nrig == 0) // Ho cliccato su una scadenza
{
for (long i = a.selected()+1; i < a.items(); i++) // Cerca pagamento
{
const int r = a.row(i).get_int(4);
if (r == 0 || a.enabled(i))
{
nrig = r;
break;
}
}
}
TRectype part(parbas);
if (nrig == 0) // Inserimento di un nuovo pagamento
part.zero();
else
{
}
if (edit_pagamento(parbas, scadenza.curr(), part))
{
err = (nrig == 0) ? partita.write(part) : partita.rewrite(part);
}
}
}
return TRUE;
}
bool TPrimanota_application::edit_pagamento(const TRectype& parbas,
const TRectype& scaden,
TRectype& part)
{
TMask m("cg2100s");
TRelation rel(LF_PARTITE); // Working relation
rel.lfile().curr() = part;
const real importo(scaden.get(SCAD_IMPORTO));
const real importopag(part.get(SCAD_IMPORTO));
const real ritenute(part.get(PART_RITENUTE));
const real residuo = importo - importopag;
m.set(S_RESIDUO, residuo.string());
m.set(S_DATADOC, parbas.get(PART_DATADOC));
m.set(S_NUMPROT, parbas.get(PART_PROTIVA));
m.set(S_NUMDOC, parbas.get(PART_NUMDOC));
m.set(S_DESCR, parbas.get(PART_DESCR));
m.set(S_RATA, scaden.get(SCAD_NRATA));
m.set(S_DATASCAD, scaden.get(SCAD_DATASCAD));
m.set(S_IMPORTO, scaden.get(SCAD_IMPORTO));
m.set(S_IMPORTOVAL, scaden.get(SCAD_IMPORTOVAL));
m.set(S_SEZIONE, parbas.get(PART_SEZ));
m.set(S_IMPORTOPAG, importopag.string());
if (part.empty()) // Insert mode
{
TString80 tmp;
tmp = curr_mask().get(F_DATAREG);
m.set(S_DATAPAG, tmp);
tmp = scaden.get(SCAD_CODPAG);
m.set(S_CODPAG, tmp);
tmp = scaden.get(SCAD_TIPOPAG);
m.set(S_TIPOPAG, tmp);
int caus = 2; // Calcola riga causale
switch (atoi(tmp))
{
case 2:
caus = 3; break; // Tratta
case 3:
caus = 4; break; // Ricevuta bancaria
case 4:
caus = 5; break; // Cessione
case 5:
caus = 6; break; // Paghero'
case 6:
caus = 7; break; // Fattura di credito
case 7:
caus = 3; break; // Tratta accettata
case 1: // Rimessa
case 8: // Rapporti interbancari diretti
case 9: // Bonifico
default:
caus = 2; break;
}
TBill bill; causale().bill(caus, bill);
m.set(S_TIPO, bill.tipo());
m.set(S_GRUPPO, bill.gruppo());
m.set(S_CONTO, bill.conto());
m.set(S_SOTTOCONTO, bill.sottoconto());
tmp = curr_mask().get(F_DESCR);
m.set(S_DESCR, tmp);
bill.get(parbas);
if (bill.tipo() > ' ')
{
TLocalisamfile clifo(LF_CLIFO);
clifo.put(CLI_TIPOCF, bill.tipo());
clifo.put(CLI_CODCF, bill.codclifo());
tmp = clifo.get(CLI_CODABI);
m.set(S_VSABI, tmp);
tmp = clifo.get(CLI_CODBAN);
m.set(S_VSCAB, tmp);
tmp = clifo.get(CLI_CODAG);
m.set(S_AGENTE, tmp);
}
tmp = scaden.get(SCAD_CODABIPR);
m.set(S_NSABI, tmp);
tmp = scaden.get(SCAD_CODCABPR);
m.set(S_NSCAB, tmp);
}
const KEY key = m.run();
if (key == K_ENTER)
{
m.autosave(&rel);
part = rel.lfile().curr();
}
return key == K_ENTER;
}
Reference in New Issue View Git Blame Copy Permalink