root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cg3600.cpp Mastrini a video

Browse Source 
cglib.h          Aggiunti vari const agli esercizi
cglib02.cpp      Aggiunti vari const agli esercizi
cg3600a.*        Aggiunta maschera mastrini a video


git-svn-id: svn://10.65.10.50/trunk@3902 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1996-11-15 14:16:27 +00:00
parent 6f1e1ac7e2
commit a341853e58
5 changed files with 957 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

611
cg/cg3600.cpp
View File

@ -1,8 +1,16 @@
#include <stdlib.h>
#include <array.h>
#include <applicat.h>
#include <colors.h>
#include <controls.h>
#include <mask.h>
#include <urldefid.h>
#include <utility.h>
#include "cg3.h"
#include "cglib.h"
#include "cg3600a.h"
///////////////////////////////////////////////////////////
// TList
@ -51,6 +59,8 @@ public:
TObject* detach(long pos);
bool remove(long pos);
void choose_step(long expected_size); // Sceglie il passo per gli elemnti
TList(long expected_size);
virtual ~TList();
};
@ -58,11 +68,9 @@ public:
TList::TList(long expected_size)
: _items(0), _current(0)
{
_step = expected_size / MAX_SKIP + 1;
_last_skip = 0;
_skip = new TList_object*[MAX_SKIP];
_skip[0] = NULL;
choose_step(expected_size);
}
TList::~TList()
@ -150,6 +158,12 @@ void TList::change_step(long step)
}
}
void TList::choose_step(long expected_size)
{
long step = expected_size / MAX_SKIP + 1;
change_step(step);
}
long TList::insert(TObject* obj, long index)
{
if (index < 0)
@ -270,18 +284,587 @@ bool TList::remove(long index)
return o != NULL;
}
#include <time.h>
///////////////////////////////////////////////////////////
// TGrid_control
///////////////////////////////////////////////////////////
class TGrid_control;
class TGrid_field : public TOperable_field
{
long _to_select;
protected: // TMask_field
virtual void create(WINDOW parent);
virtual void parse_head(TScanner& scanner);
virtual bool parse_item(TScanner& scanner);
public:
virtual long items() const;
virtual bool handler(XI_EVENT* ep);
TGrid_control* grid() const { return (TGrid_control*)_ctl; }
TGrid_field(TMask* m) : TOperable_field(m) { }
virtual ~TGrid_field() { }
};
class TGrid_control : public TControl
{
enum { FIRST_FIELD = 101, MAX_COL = 128 };
long _cur_rec;
// @cmember:(INTERNAL) Tipo di ogni colonna
byte _type[MAX_COL];
TGrid_field* _grid;
protected: // TControl
//@cmember Gestisce gli eventi delle celle
virtual bool event_handler(XI_OBJ* itf, XI_EVENT* xiev);
protected:
long items() const { return _grid->items(); }
int rec2row(long rec) const;
long row2rec(int row) const;
XI_OBJ* find_column(int col) const;
public:
long selected() const { return _cur_rec; }
void select(long n);
void set_focus_rec(long rec);
int visible_rows() const;
byte& column_type(int c) { CHECKD(c >= 0 && c < MAX_COL, "Bad column ", c); return _type[c]; }
void update(long n = -1);
TGrid_control(WINDOW parent, short cid,
short x, short y, short dx, short dy,
const char* flags, const char* head,
TGrid_field* owner);
virtual ~TGrid_control() {}
};
TGrid_control::TGrid_control(
WINDOW parent, // @parm Finestra alla quale appartiene lo spreadsheet
short cid, // @parm Identificatore
short x, // @parm Coordinata x (in caratteri) nel quale posizionare lo spreadsheet
short y, // @parm Coordinata y (in caratteri) nel quale posizionare lo spreadsheet
short dx, // @parm Larghezza (in caratteri) dello spreasheet
short dy, // @parm Lunghezza (in caratteri) dello spreasheet
const char* flags, // @parm Flags di abilitazione
const char* head, // @parm Titolo delle colonne
TGrid_field* owner)
: _grid(owner), _cur_rec(0)
{
const int NUMBER_WIDTH = strchr(flags, 'A') ? 7 : 1;
short v_width[MAX_COL];
short m_width[MAX_COL];
int fixed_columns = 1; // Number of fixed columns
int lines_in_header = 1; // Number of header lines
const bool multiline = strchr(flags, 'M') != NULL;
const int lines_in_cell = multiline ? (int)xi_get_pref(XI_PREF_DEFAULT_MAX_LINES_IN_CELL) : 1;
// Calcolo larghezza massima tabella
TToken_string header(head);
TToken_string new_header(256);
int i = 0;
int f_width = NUMBER_WIDTH; // Stima larghezza colonne fisse
int max_width = f_width; // Stima larghezza della colonna piu' grande
for (const char* h = header.get(); h; h = header.get(), i++)
{
CHECKD(i < MAX_COL, "Tu meni calumns in scit: ", i);
_type[i] = ' ';
TFixed_string testa(esc(h));
const bool multiple = testa.find('\n') > 0;
if (multiple)
lines_in_header = 2;
const int at = testa.find('@');
int v = testa.len(); // Video width
if (at >= 0)
{
const TString& wi = testa.mid(at+1);
const int video = atoi(wi);
if (video > 0) v = video;
if (wi.find('F') >= 0)
{
fixed_columns = i+2;
f_width += v+1;
}
if (wi.find('R') >= 0)
_type[i] = 'R';
testa.cut(at);
}
v++;
// memory width of column
m_width[i] = v * lines_in_cell;
if (v > 64) v = 64;
v_width[i] = v;
if (v_width[i] > max_width) max_width = v_width[i];
new_header.add(testa);
}
// Calcola rettangolo massimo per lo sheet
XI_RCT rct; coord2rct(parent, x, y, dx, dy, rct);
rct.right -= 2*XI_FU_MULTIPLE; // toglie scroll-bar
// Controlla se ci sono troppe colonne fisse
if ((f_width+max_width)*XI_FU_MULTIPLE > rct.right)
fixed_columns = 1;
XI_OBJ* itf = get_interface(parent);
XI_OBJ_DEF* listdef = xi_add_list_def(NULL, cid,
rct.top, rct.left, rct.bottom-rct.top,
XI_ATR_ENABLED | XI_ATR_VISIBLE,
NORMAL_COLOR, NORMAL_BACK_COLOR, // normal
DISABLED_COLOR, DISABLED_BACK_COLOR, // disabled
FOCUS_COLOR, // active
0);
listdef->app_data = (long)this;
XI_LIST_DEF* l = listdef->v.list;
l->min_heading_height = xi_button_calc_height_font_id(xvt_default_font()) * lines_in_header;
l->sizable_columns = TRUE;
l->movable_columns = TRUE;
l->fixed_columns = fixed_columns;
l->scroll_bar = TRUE;
l->scroll_bar_button = TRUE;
l->white_space_color = MASK_DARK_COLOR;
l->rule_color = MASK_DARK_COLOR;
// Definizione della prima colonna (numero di riga)
const long attr = XI_ATR_VISIBLE | XI_ATR_RJUST | XI_ATR_SELECTABLE;
XI_OBJ_DEF* coldef = xi_add_column_def(listdef, FIRST_FIELD+1000-1, attr, 0,
NUMBER_WIDTH * XI_FU_MULTIPLE, NUMBER_WIDTH , "");
coldef->app_data = (long)this;
XI_COLUMN_DEF* cd = coldef->v.column;
cd->heading_platform = TRUE;
cd->column_platform = TRUE;
cd->size_rows = multiline;
for (h = new_header.get(0), i = 0; h; h = new_header.get(), i++)
{
long attr = XI_ATR_VISIBLE | XI_ATR_ENABLED | XI_ATR_AUTOSCROLL | XI_ATR_READONLY;
if (_type[i] == 'C')
attr |= XI_ATR_SELECTABLE;
if (_type[i] == 'R')
attr |= XI_ATR_RJUST;
coldef = xi_add_column_def(listdef, FIRST_FIELD+i+1000, attr, i+1,
v_width[i] * XI_FU_MULTIPLE, m_width[i], (char*)h);
coldef->app_data = (long)this;
cd = coldef->v.column;
cd->heading_platform = TRUE;
cd->center_heading = strchr(h, '\n') == NULL;
if (multiline)
{
cd->size_rows = TRUE;
cd->wrap_text = TRUE;
}
}
RCT rd; xi_get_def_rect(listdef, &rd);
if ((rd.right - rd.left) > (rct.right - rct.left))
l->width = rct.right - rct.left;
_obj = xi_create(itf, listdef); // Create the whole thing!
xi_dequeue(); // Flush events in XOL
xi_tree_free(listdef); // Free definitions
CHECKD(_obj, "Can't create list control ", cid);
update_tab_cid();
}
// Converts a row number in the correspondig record number
int TGrid_control::rec2row(long record) const
{
int rows;
const long* rec = xi_get_list_info(_obj, &rows);
int r = int(record - rec[0]);
if (r < 0 || r >= rows)
r = -1;
return r;
}
// Converts a row number in the correspondig record number
long TGrid_control::row2rec(int row) const
{
int rows;
const long* handle = xi_get_list_info(_obj, &rows);
if (row < 0)
row = 0;
else
{
if (row >= rows)
row = rows-1;
}
const long r = handle[row];
CHECKD(r >= 0 && r < items(), "Sheet line out of range: ", row);
return r;
}
int TGrid_control::visible_rows() const
{
return xi_get_visible_rows(_obj, NULL, NULL);
}
void TGrid_control::update(long n)
{
if (n >= 0)
{
const int riga = rec2row(n);
if (riga >= 0)
{
XI_OBJ row;
XI_MAKE_ROW(&row, _obj, riga);
xi_cell_request(&row);
}
}
else
{
int num = 0;
const long* handle = xi_get_list_info(_obj, &num);
bool scroll_first = items() == 0;
if (!scroll_first)
{
int first = 0, last = 0;
xi_get_visible_rows(_obj, &first, &last);
n = handle[first];
scroll_first = n > items();
}
if (scroll_first)
xi_scroll(_obj, XI_SCROLL_FIRST);
else
xi_scroll_rec(_obj, n, NORMAL_COLOR, XI_ATR_ENABLED, 0);
}
}
void TGrid_control::select(long rec)
{
if (rec >= 0 && rec < items())
{
int rows;
const long* handle = xi_get_list_info(_obj, &rows);
int first = 0, last = 0;
xi_get_visible_rows(_obj, &first, &last);
if (rec < handle[first] || rec > handle[last])
xi_scroll_rec(_obj, rec, NORMAL_COLOR, XI_ATR_ENABLED, 0);
}
}
void TGrid_control::set_focus_rec(long rec)
{
if (rec < 0)
rec = selected();
int r = rec2row(rec);
if (r < 0)
{
select(rec);
r = rec2row(rec);
}
const int c = _type[0] == 'C' ? 2 : 1;
XI_OBJ cell; XI_MAKE_CELL(&cell, _obj, r, c);
xi_set_focus(&cell);
}
XI_OBJ* TGrid_control::find_column(
int col) const // @parm Indice o identificatore colonna
{
CHECKD(col >= 0, "Bad column ", col);
if (col < FIRST_FIELD) // Se e' un indice trasformalo in identificatore
col += FIRST_FIELD + 1000;
int num;
XI_OBJ** columns = xi_get_member_list(_obj, &num);
for (int c = num-1; c >= 0; c--)
{
if (columns[c]->cid == col)
break;
}
return c >= 0 ? columns[c] : NULL;
}
// Certified 75%
bool TGrid_control::event_handler(XI_OBJ* itf, XI_EVENT *xiev)
{
BOOLEAN& refused = xiev->refused;
const bool handled = _grid->handler(xiev);
if (handled)
return !refused;
switch (xiev->type)
{
case XIE_GET_FIRST:
if (items() > 0L)
{
long n = items() * (long)xiev->v.rec_request.percent / 100L;
if (n < 0L) n = 0L;
xiev->v.rec_request.data_rec = n;
}
else
refused = TRUE;
break;
case XIE_GET_LAST:
xiev->v.rec_request.data_rec = items()-1;
break;
case XIE_GET_PREV:
case XIE_GET_NEXT:
{
const long n = xiev->v.rec_request.spec_rec + (xiev->type == XIE_GET_NEXT ? +1 : -1) ;
if (n < 0 || n >= items())
refused = TRUE;
else
xiev->v.rec_request.data_rec = n;
}
break;
case XIE_GET_PERCENT:
{
const long rec = xiev->v.get_percent.record;
long n = items(); if (n <= 0) n = 1;
xiev->v.get_percent.percent = int(rec * 100L / n);
}
break;
case XIE_COL_MOVE:
if (xiev->v.column.in_fixed ||
xiev->v.column.col_nbr < xi_get_fixed_columns(xiev->v.column.list))
refused = TRUE;
break;
case XIE_COL_SIZE:
break;
case XIE_SELECT:
xiev->refused = TRUE;
break;
case XIE_CELL_REQUEST:
if (xiev->v.cell_request.col_nbr == 0)
{
if (xiev->v.cell_request.len > 1)
{
sprintf(xiev->v.cell_request.s, "%ld", xiev->v.cell_request.rec);
xiev->v.cell_request.color = NORMAL_COLOR;
}
}
break;
default:
break;
}
return !refused;
}
///////////////////////////////////////////////////////////
// TGrid_field
///////////////////////////////////////////////////////////
void TGrid_field::create(WINDOW parent)
{
_ctl = new TGrid_control(parent, dlg(),
_ctl_data._x, _ctl_data._y,
_ctl_data._width, _ctl_data._size,
_ctl_data._flags, _ctl_data._park,
this);
}
void TGrid_field::parse_head(TScanner& scanner)
{
_ctl_data._width = scanner.integer();
_ctl_data._height = scanner.integer();
if (_ctl_data._height == 0)
_ctl_data._height = -1;
}
bool TGrid_field::parse_item(TScanner& scanner)
{
if (scanner.key() == "IT")
{
_ctl_data._park.add(scanner.string());
return TRUE;
}
return TMask_field::parse_item(scanner);
}
bool TGrid_field::handler(XI_EVENT* xiev)
{
if (xiev->type == XIE_CELL_REQUEST)
{
const long& rec = xiev->v.cell_request.rec;
const short& col = xiev->v.cell_request.col_nbr;
if (col == 3)
{
strcpy(xiev->v.cell_request.s,
"Questa e' una descrizioncina sgarsolina sgarsolina,"
" che non doverebbe stare in una sola righina");
xiev->v.cell_request.back_color = rec % 7 ? COLOR_YELLOW : COLOR_CYAN;
return TRUE;
}
}
return FALSE;
}
long TGrid_field::items() const
{
return 30000L;
}
///////////////////////////////////////////////////////////
// TGrid_mask
///////////////////////////////////////////////////////////
class TGrid_mask : public TMask
{
TEsercizi_contabili _esercizi;
protected: // TMask
virtual TMask_field* parse_field(TScanner& sc);
static bool data_handler(TMask_field& f, KEY k);
public:
const TEsercizi_contabili& esercizi() const { return _esercizi; }
TEsercizi_contabili& esercizi() { return _esercizi; }
TGrid_mask(const char* name);
virtual ~TGrid_mask() { }
};
TGrid_mask::TGrid_mask(const char* name)
{
read_mask(name, 0, 0);
set_handler(F_DADATA, data_handler);
set_handler(F_ADATA, data_handler);
}
TMask_field* TGrid_mask::parse_field(TScanner& sc)
{
TMask_field* f;
if (sc.key() == "SP")
f = new TGrid_field(this);
else
f = TMask::parse_field(sc);
return f;
}
bool TGrid_mask::data_handler(TMask_field& f, KEY k)
{
bool ok = TRUE;
if (f.to_check(k) && !f.empty())
{
const TGrid_mask& gm = (const TGrid_mask&)f.mask();
int codice_esercizio = gm.get_int(F_ESERCIZIO);
if (codice_esercizio == 0)
{
const short id_altra_data = f.dlg() == F_DADATA ? F_ADATA : F_DADATA;
const TDate d = gm.get(id_altra_data);
if (d.ok())
codice_esercizio = gm.esercizi().date2esc(d);
}
const TDate d = f.get();
const int esercizio = gm.esercizi().date2esc(d);
if (codice_esercizio != 0)
{
if (esercizio != codice_esercizio)
ok = error_box("La data deve appartenere all'esercizio %d", codice_esercizio);
}
else
{
if (esercizio == 0)
ok = error_box("La data deve appartenere ad un esercizio contabile");
}
}
return ok;
}
///////////////////////////////////////////////////////////
// TMastrini_video
///////////////////////////////////////////////////////////
class TMastrini_video : public TApplication
{
TGrid_mask* _gm;
protected:
virtual bool create();
virtual bool menu(MENU_TAG);
virtual void on_firm_change();
};
bool TMastrini_video::create()
{
_gm = NULL;
dispatch_e_menu(BAR_ITEM(1));
return TRUE;
}
void TMastrini_video::on_firm_change()
{
if (_gm)
_gm->esercizi().update();
}
bool TMastrini_video::menu(MENU_TAG)
{
_gm = new TGrid_mask("cg3600a");
KEY key = 0;
while (key != K_QUIT)
{
if (key == 0)
{
const TEsercizi_contabili& esercizi = _gm->esercizi();
const int codice_ultimo_esercizio = esercizi.last();
if (codice_ultimo_esercizio > 0)
{
const TEsercizio& esercizio = esercizi.esercizio(codice_ultimo_esercizio);
_gm->set(F_ESERCIZIO, codice_ultimo_esercizio);
_gm->set(F_DADATA, esercizio.inizio());
_gm->set(F_ADATA, esercizio.fine());
}
}
else
{
_gm->reset(F_SOTTOCONTO); // Azzera sottoconto
_gm->reset(F_CLIENTE); // Azzera cliente
_gm->reset(F_FORNITORE); // Azzera fornitore
_gm->reset(F_DACAUSALE); // Azzera causali
_gm->reset(F_ACAUSALE);
}
key = _gm->run();
}
delete _gm;
return FALSE;
}
int cg3600(int argc, char* argv[])
{
long max = 100000L;
TList l(max);
const clock_t start = clock();
for (long i = 0; i < max; i++)
l.add(NULL);
const clock_t end = clock()-start;
TMastrini_video mv;
mv.run(argc, argv, "Mastrini");
return 0;
}

30
cg/cg3600a.h Executable file
View File

@ -0,0 +1,30 @@
#define F_CODDITTA 101
#define F_RAGSOC 102
#define F_TIPO 103
#define F_GRUPPO 104
#define F_DESGRUPPO 105
#define F_CONTO 106
#define F_DESCONTO 107
#define F_SOTTOCONTO 108
#define F_DESSOTTOC 109
#define F_CLIENTE 206
#define F_RAGSOCCLI 207
#define F_FORNITORE 306
#define F_RAGSOCFOR 307
#define F_ESERCIZIO 110
#define F_DADATA 111
#define F_ADATA 112
#define F_DACAUSALE 113
#define F_DADESCAUS 114
#define F_ACAUSALE 115
#define F_ADESCAUS 116
#define F_MASTRINI 200
#define F_TOTRIG_IMP 201
#define F_TOTRIG_DAR 202
#define F_TOTRIG_AVE 203
#define F_TOTPER_IMP 211
#define F_TOTPER_DAR 212
#define F_TOTPER_AVE 213
#define F_TOTATT_IMP 221
#define F_TOTATT_DAR 222
#define F_TOTATT_AVE 223

305
cg/cg3600a.uml Executable file
View File

@ -0,0 +1,305 @@
#include "cg3600a.h"
TOOLBAR "" 0 21 0 0
BUTTON DLG_OK 10 2
BEGIN
PROMPT -14 -11 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -24 -11 ""
END
BUTTON DLG_FINDREC 10 2
BEGIN
PROMPT -34 -11 ""
PICTURE BMP_FINDREC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -44 -11 ""
END
ENDPAGE
PAGE "Mastrini" -1 -1 76 20
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 0 "Ditta "
FLAGS "DF"
USE LF_NDITTE
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE NORMAL
END
STRING F_RAGSOC 50
BEGIN
PROMPT 22 0 ""
FLAGS "D"
END
LIST F_TIPO 10
BEGIN
PROMPT 1 0 "Tipo "
ITEM " |Conto" MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
ITEM "C|Cliente" MESSAGE HIDE,1@|SHOW,2@|HIDE,3@
ITEM "F|Fornitore" MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
FLAGS "H"
END
NUMBER F_GRUPPO 3
BEGIN
PROMPT 1 1 "Gruppo "
USE LF_PCON SELECT (CONTO="")
INPUT GRUPPO F_GRUPPO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_DESGRUPPO DESCR
CHECKTYPE REQUIRED
ADD RUN cg0 -0
END
STRING F_DESGRUPPO 50
BEGIN
PROMPT 22 1 ""
USE LF_PCON KEY 2 SELECT (CONTO="")
INPUT DESCR F_DESGRUPPO
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
COPY OUTPUT F_GRUPPO
CHECKTYPE REQUIRED
ADD RUN cg0 -0
END
NUMBER F_CONTO 3
BEGIN
PROMPT 1 2 "Conto "
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Tipo" TMCF
DISPLAY "Descrizione@50" DESCR
OUTPUT F_TIPO TMCF
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_DESCONTO DESCR
CHECKTYPE REQUIRED
ADD RUN cg0 -0
END
STRING F_DESCONTO 50
BEGIN
PROMPT 22 2 ""
USE LF_PCON KEY 2 SELECT (CONTO!="")&&(SOTTOCONTO="")
INPUT DESCR F_DESGRUPPO
COPY DISPLAY F_GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Tipo" TMCF
COPY OUTPUT F_CONTO
CHECKTYPE REQUIRED
ADD RUN cg0 -0
END
NUMBER F_SOTTOCONTO 6
BEGIN
PROMPT 1 3 "Sottoconto "
USE LF_PCON SELECT (SOTTOCONTO!="")
COPY INPUT F_CONTO
INPUT SOTTOCONTO F_SOTTOCONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_DESSOTTOC DESCR
CHECKTYPE REQUIRED
GROUP 1
ADD RUN cg0 -0
END
STRING F_DESSOTTOC 50
BEGIN
PROMPT 22 3 ""
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="")
INPUT DESCR F_DESSOTTOC
COPY DISPLAY F_DESCONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCONTO
CHECKTYPE REQUIRED
GROUP 1
ADD RUN cg0 -0
END
NUMBER F_CLIENTE 6
BEGIN
PROMPT 1 3 "Cliente "
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CLIENTE
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CLIENTE CODCF
OUTPUT F_RAGSOCCLI RAGSOC
CHECKTYPE REQUIRED
GROUP 2
ADD RUN cg0 -1 C
END
STRING F_RAGSOCCLI 50
BEGIN
PROMPT 22 3 ""
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOCCLI
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
COPY OUTPUT F_CLIENTE
CHECKTYPE REQUIRED
GROUP 2
ADD RUN cg0 -1 C
END
STRING F_FORNITORE 6
BEGIN
PROMPT 1 3 "Fornitore "
USE LF_CLIFO
INPUT TIPOCF "F"
INPUT CODCF F_FORNITORE
COPY DISPLAY F_CLIENTE
OUTPUT F_FORNITORE CODCF
OUTPUT F_RAGSOCFOR RAGSOC
CHECKTYPE REQUIRED
GROUP 3
ADD RUN cg0 -1 F
END
STRING F_RAGSOCFOR 50
BEGIN
PROMPT 22 3 ""
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
INPUT RAGSOC F_RAGSOCFOR
COPY DISPLAY F_RAGSOCCLI
COPY OUTPUT F_FORNITORE
CHECKTYPE REQUIRED
GROUP 3
ADD RUN cg0 -1 F
END
NUMBER F_ESERCIZIO 4
BEGIN
PROMPT 1 4 "Esercizio "
USE ESC
INPUT CODTAB F_ESERCIZIO
DISPLAY "Codice" CODTAB
DISPLAY "Inizio esercizio" D0
DISPLAY "Fine esercizio" D1
OUTPUT F_ESERCIZIO CODTAB
ADD NONE
END
DATE F_DADATA
BEGIN
PROMPT 22 4 "Dalla data "
END
DATE F_ADATA
BEGIN
PROMPT 51 4 "Alla data "
VALIDATE DATE_CMP_FUNC >= F_DADATA
WARNING "La data finale deve essere maggiore di quella iniziale"
END
STRING F_DACAUSALE 3
BEGIN
PROMPT 1 5 "Da causale "
FLAGS "U"
USE LF_CAUSALI
INPUT CODCAUS F_DACAUSALE
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_DACAUSALE CODCAUS
OUTPUT F_DADESCAUS DESCR
STR_EXPR (#F_ACAUSALE="")||(#F_DACAUSALE<=#F_ACAUSALE)
WARNING "La causale iniziale deve precedere quella finale"
CHECKTYPE SEARCH
END
STRING F_DADESCAUS 50
BEGIN
PROMPT 22 5 ""
USE LF_CAUSALI KEY 2
INPUT DESCR F_DADESCAUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT F_DACAUSALE
CHECKTYPE SEARCH
END
STRING F_ACAUSALE 3
BEGIN
PROMPT 1 6 "A causale "
FLAGS "U"
COPY USE F_DACAUSALE
INPUT CODCAUS F_ACAUSALE
COPY DISPLAY F_DACAUSALE
OUTPUT F_ACAUSALE CODCAUS
OUTPUT F_ADESCAUS DESCR
STR_EXPR (#F_ACAUSALE>=#F_DACAUSALE)
WARNING "La causale finale deve seguire quella iniziale"
CHECKTYPE SEARCH
END
STRING F_ADESCAUS 50
BEGIN
PROMPT 22 6 ""
COPY USE F_DADESCAUS
INPUT DESCR F_ADESCAUS
COPY DISPLAY F_DADESCAUS
COPY OUTPUT F_ACAUSALE
CHECKTYPE SEARCH
END
SPREADSHEET F_MASTRINI 0 5
BEGIN
PROMPT 1 7 "Mastrini"
FLAGS "M"
ITEM "Data Op. \nData Doc.@10"
ITEM "C@1"
ITEM "Operazione@20F"
ITEM "N.Doc. \nN.Prot.@7"
ITEM "Importo@18R"
ITEM "Saldo@20R"
ITEM "Causale@20"
ITEM "Dare@18R"
ITEM "Avere@18R"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 -3 "Totali all'ultima riga visualizzata "
END
TEXT DLG_NULL
BEGIN
PROMPT 1 -2 "Totali al periodo "
END
TEXT DLG_NULL
BEGIN
PROMPT 1 -1 "Totali attuali "
END
ENDPAGE
ENDMASK

21
cg/cglib.h
View File

@ -190,26 +190,25 @@ class TEsercizi_contabili : private TArray
long _firm;
protected:
static int ordina_esercizi(const TObject** o1, const TObject** o2);
void check();
void check() const;
const TEsercizio& esc(int i) const
{ return (const TEsercizio&)operator[](i); }
int date2index(const TDate& d);
int esc2index(int codice);
int date2index(const TDate& d) const;
int esc2index(int codice) const;
public:
void update();
const TEsercizio& esercizio(int codice);
const TEsercizio& esercizio(int codice) const;
int date2esc(const TDate& date);
int pred(int codice);
int next(int codice);
int first();
int last();
bool exist(int codice);
int date2esc(const TDate& date) const;
int pred(int codice) const;
int next(int codice) const;
int first() const;
int last() const;
bool exist(int codice) const;
TEsercizi_contabili();
virtual ~TEsercizi_contabili() {}

24
cg/cglib02.cpp
View File

@ -356,7 +356,7 @@ void TEsercizi_contabili::update()
sort();
}
void TEsercizi_contabili::check()
void TEsercizi_contabili::check() const
{
if (_firm != prefix().get_codditta())
{
@ -365,11 +365,11 @@ void TEsercizi_contabili::check()
error_box("Questo programma carinissimo usa gli esercizi,\n"
"purtroppo non tiene conto del cambio ditta!");
#endif
update();
((TEsercizi_contabili*)this)->update(); // Fool the compiler
}
}
int TEsercizi_contabili::date2index(const TDate& d)
int TEsercizi_contabili::date2index(const TDate& d) const
{
check();
for (int i = items()-1; i >= 0; i--)
@ -381,7 +381,7 @@ int TEsercizi_contabili::date2index(const TDate& d)
return i;
}
int TEsercizi_contabili::esc2index(int codice)
int TEsercizi_contabili::esc2index(int codice) const
{
check();
for (int i = items()-1; i >= 0; i--)
@ -393,43 +393,43 @@ int TEsercizi_contabili::esc2index(int codice)
return i;
}
int TEsercizi_contabili::date2esc(const TDate& d)
int TEsercizi_contabili::date2esc(const TDate& d) const
{
const int i = date2index(d);
return i >= 0 ? esc(i).codice() : 0;
}
int TEsercizi_contabili::first()
int TEsercizi_contabili::first() const
{
check();
return items() ? esc(0).codice() : 0;
}
int TEsercizi_contabili::last()
int TEsercizi_contabili::last() const
{
check();
return items() ? esc(items()-1).codice() : 0;
}
int TEsercizi_contabili::pred(int codice)
int TEsercizi_contabili::pred(int codice) const
{
const int i = esc2index(codice);
return i > 0 ? esc(i-1).codice() : 0;
}
int TEsercizi_contabili::next(int anno)
int TEsercizi_contabili::next(int anno) const
{
const int i = esc2index(anno);
return i < items()-1 ? esc(i+1).codice() : 0;
}
bool TEsercizi_contabili::exist(int codice)
bool TEsercizi_contabili::exist(int codice) const
{
const int i = esc2index(codice);
return i >= 0;
}
const TEsercizio& TEsercizi_contabili::esercizio(int codice)
const TEsercizio& TEsercizi_contabili::esercizio(int codice) const
{
const int i = esc2index(codice);
return esc(i);
@ -438,3 +438,5 @@ const TEsercizio& TEsercizi_contabili::esercizio(int codice)