#ifndef __VELIB07_H
#define __VELIB07_H

#ifndef __VELIB_H
#include "velib.h"
#endif

#ifndef __ASSOC_H
#include <assoc.h>
#endif

#ifndef __REPRINT_H
#include <reprint.h>
#endif

#include "../db/dblib.h"

///////////////////////////////////////////////////////////
// TMateriali_base_recordset
///////////////////////////////////////////////////////////

class TMateriali_base_recordset : public TRecordset
{
	TString					_query;
	TArray					_boom;
	long            _pos;
	TArray					_column;
	bool						_reverse;
	long						_lastrow;
	TRectype *			_rdist;

protected:

	const TString & query_text() const { return _query; }
	TArray  & boom() { return _boom; }
	const TArray  & boom() const { return _boom; }
	bool & reverse() { return _reverse;}

public:

  virtual TRecnotype items() const { return _boom.items(); }
  virtual bool move_to(TRecnotype pos) { _pos = pos; _lastrow = -1; return pos < items();}
	virtual TRecnotype current_row() const { return _pos; }
  virtual void requery();
  virtual unsigned int columns() const { return _column.items();}
  virtual const TRecordset_column_info& column_info(unsigned int column) const { return (const TRecordset_column_info&) _column[column];}
  virtual const TVariant& get(unsigned int column) const;
	virtual const TVariant& get(const char* column_name) const;

  TMateriali_base_recordset(const char* use);
  virtual ~TMateriali_base_recordset(){ delete _rdist;}
};

///////////////////////////////////////////////////////////
// TScalare_recordset
///////////////////////////////////////////////////////////

class TScalare_recordset : public TMateriali_base_recordset
{

protected:

public:
  virtual void requery();

  TScalare_recordset(const char* use) : TMateriali_base_recordset(use) {}
  virtual ~TScalare_recordset() { }
};

///////////////////////////////////////////////////////////
// TDocument_cache
///////////////////////////////////////////////////////////

class TDocument_cache : TCache
{
protected:
  virtual TObject* key2obj(const char* key);

public:
  TDocumento& doc(const TRectype& rec);

  TDocument_cache();
  virtual ~TDocument_cache();
};


///////////////////////////////////////////////////////////
// TDocument_recordset
///////////////////////////////////////////////////////////

class TDocument_recordset : public TISAM_recordset
{
  TDocument_cache _cache;

protected:
  virtual const TVariant& get(int num, const char* field) const;

public:
	const TDocumento & doc(const TRectype& rec) { return _cache.doc(rec);}
  
  TDocument_recordset(const char* use) : TISAM_recordset(use) { }
  virtual ~TDocument_recordset() { }
};


///////////////////////////////////////////////////////////
// TDocument_report
///////////////////////////////////////////////////////////

class TDocument_report : public TReport
{
  size_t _first_msg;

protected:
  virtual size_t get_usr_words(TString_array& words) const;
  virtual bool execute_usr_word(unsigned int opcode, TVariant_stack& stack);
  virtual bool set_recordset(const TString& query);
  bool msg_parent_doc(TVariant_stack& stack);
  bool msg_parent_row(TVariant_stack& stack);
  void output_values(const TRectype& rec, const TString& output);
  void reset_values(const TString& output);

public:
  bool load(const char* name);
};

#endif