#include "clifor.h"

TOccasionale::TOccasionale() : TRectype(LF_OCCAS)
{
  _cod = new TRecfield(*this, OCC_CFPI);
}

TOccasionale::TOccasionale(const TRectype& r) : TRectype(r)
{
  _cod = new TRecfield(*this, OCC_CFPI);
}

TRectype & TOccasionale::operator = (const TRectype& r)
{
  return TRectype::operator=(r);
}

TOccasionale::~TOccasionale()
{
  delete _cod;
}

int TCli_for::write_rewrite(TBaseisamfile& f, bool re) const
{  
  int err = TMultiple_rectype::write_rewrite(f, re);

  if (err == NOERR)
  {     
    TLocalisamfile v(LF_CFVEN);
    TRectype & v_rec = vendite();
    err = v.write(v_rec);
    if (err == _isreinsert)
      err = v.write(v_rec);
  }
  return err;
}

TRectype & TCli_for::vendite() const

{                             
  const char t = tipo();
  const long c = codice();
  
  if (_ven_rec.empty() || t != *(const char *) (*_ven_tipo) || c != (long) *_ven_codice)
  {
    TLocalisamfile v(LF_CFVEN);
  
    ((TCli_for *)this)->_ven_rec.zero();
    ((TCli_for *)this)->_ven_rec.put(CFV_TIPOCF,t);
    ((TCli_for *)this)->_ven_rec.put(CFV_CODCF, c);
    TRectype v_rec(_ven_rec);

    if (((TCli_for *)this)->_ven_rec.read(v) != NOERR)
      ((TCli_for *)this)->_ven_rec = v_rec;
  }
  return (TRectype &) _ven_rec;
}

int TCli_for::read(TRectype & rec, word op, word lockop)
{   
  int err = TMultiple_rectype::read(rec, op, lockop);
  
  _ven_rec.zero();
  return err;
}

int TCli_for::read(char tipo, long codice, word op, word lockop)
{                      
  zero();
  put(CLI_TIPOCF, tipo);
  put(CLI_CODCF, codice);
  return TMultiple_rectype::read(op, lockop);
}      

int TCli_for::remove(TBaseisamfile& f) const
{
  TLocalisamfile v(LF_CFVEN);
  
  const int err = vendite().remove(v);
  if (err != NOERR && err != _iskeynotfound)
    return err;
  return TMultiple_rectype:: remove(f);
}

TCli_for::TCli_for(char tipo, long codice) : TMultiple_rectype( LF_CLIFO ), _ven_rec(LF_CFVEN)
{
  _tipo = new TRecfield(*this, CLI_TIPOCF);
  _codice = new TRecfield(*this, CLI_CODCF);
  _ven_tipo = new TRecfield(_ven_rec, CFV_TIPOCF);
  _ven_codice = new TRecfield(_ven_rec, CFV_CODCF);
  add_file(LF_INDSP, IND_CODIND);  
  read(tipo, codice);
}  

TCli_for::TCli_for(const TRectype & rec) : TMultiple_rectype(rec), _ven_rec(LF_CFVEN)
{
  _tipo = new TRecfield(*this, CLI_TIPOCF);
  _codice = new TRecfield(*this, CLI_CODCF);
  _ven_tipo = new TRecfield(_ven_rec, CFV_TIPOCF);
  _ven_codice = new TRecfield(_ven_rec, CFV_CODCF);
  add_file(LF_INDSP, IND_CODIND);  
  read((TRectype &) rec);
}  

TCli_for::TCli_for(const TCli_for & c) : TMultiple_rectype(c), _ven_rec(c._ven_rec)
{
  _tipo = new TRecfield(*this, CLI_TIPOCF);
  _codice = new TRecfield(*this, CLI_CODCF);
  _ven_tipo = new TRecfield(_ven_rec, CFV_TIPOCF);
  _ven_codice = new TRecfield(_ven_rec, CFV_CODCF);
}  
   
TCli_for::~TCli_for()
{
  delete _tipo;
  delete _codice;
  delete _ven_tipo;
  delete _ven_codice;
}