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

Correzione maschere

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@797 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-12-28 11:00:21 +00:00
parent 744cbac27b
commit 29d720bce7
25 changed files with 9714 additions and 9716 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ba/ba2.h
View File

@ -1,8 +1,8 @@
#ifndef __BA2_H #ifndef __BA2_H
#define __BA2_H #define __BA2_H
int ba2100(int argc, char* argv[]); int ba2100(int argc, char* argv[]);
int ba2300(int argc, char* argv[]); int ba2300(int argc, char* argv[]);
#endif // __BA2_H #endif // __BA2_H

152
ba/ba2.url
View File

@ -1,76 +1,76 @@
#include <default.url> #include <default.url>
#define MENU_FILE_ALT TASK_MENUBAR+4000 #define MENU_FILE_ALT TASK_MENUBAR+4000
#define M_FIL1_NEW MENU_FILE_ALT+101 #define M_FIL1_NEW MENU_FILE_ALT+101
#define M_FIL1_OPEN MENU_FILE_ALT+102 #define M_FIL1_OPEN MENU_FILE_ALT+102
#define M_FIL1_SAVE MENU_FILE_ALT+103 #define M_FIL1_SAVE MENU_FILE_ALT+103
#define M_FIL1_SAVEAS MENU_FILE_ALT+104 #define M_FIL1_SAVEAS MENU_FILE_ALT+104
#define M_FIL1_QUIT MENU_FILE_ALT+105 #define M_FIL1_QUIT MENU_FILE_ALT+105
MENU MENU_FILE_ALT MENU MENU_FILE_ALT
ITEM M_FIL1_NEW "~Nuovo" ITEM M_FIL1_NEW "~Nuovo"
ITEM M_FIL1_OPEN "~Apri" ITEM M_FIL1_OPEN "~Apri"
ITEM M_FIL1_SAVE "~Salva" ITEM M_FIL1_SAVE "~Salva"
ITEM M_FIL1_SAVEAS "Salva ~con Nome" ITEM M_FIL1_SAVEAS "Salva ~con Nome"
ITEM M_FIL1_QUIT "~Esci" ITEM M_FIL1_QUIT "~Esci"
SEPARATOR SEPARATOR
ITEM M_FILE_ABOUT "~Informazioni" ITEM M_FILE_ABOUT "~Informazioni"
MENU TASK_MENUBAR MENU TASK_MENUBAR
SUBMENU MENU_FILE "~File" SUBMENU MENU_FILE "~File"
ITEM MENU_ITEM(11) "~Relazione" ITEM MENU_ITEM(11) "~Relazione"
SUBMENU BAR_ITEM(2) "~Intestazione" SUBMENU BAR_ITEM(2) "~Intestazione"
SUBMENU BAR_ITEM(3) "~Corpo" SUBMENU BAR_ITEM(3) "~Corpo"
SUBMENU BAR_ITEM(4) "~Pie' di pagina" SUBMENU BAR_ITEM(4) "~Pie' di pagina"
MENU BAR_ITEM(2) MENU BAR_ITEM(2)
ITEM MENU_ITEM(21) "~Normale" ITEM MENU_ITEM(21) "~Normale"
ITEM MENU_ITEM(22) "~Pari" ITEM MENU_ITEM(22) "~Pari"
ITEM MENU_ITEM(23) "~Prima" ITEM MENU_ITEM(23) "~Prima"
ITEM MENU_ITEM(24) "~Ultima" ITEM MENU_ITEM(24) "~Ultima"
MENU BAR_ITEM(3) MENU BAR_ITEM(3)
ITEM MENU_ITEM(31) "~Normale" ITEM MENU_ITEM(31) "~Normale"
ITEM MENU_ITEM(32) "~Pari" ITEM MENU_ITEM(32) "~Pari"
ITEM MENU_ITEM(33) "~Primo" ITEM MENU_ITEM(33) "~Primo"
ITEM MENU_ITEM(34) "~Ultimo" ITEM MENU_ITEM(34) "~Ultimo"
MENU BAR_ITEM(4) MENU BAR_ITEM(4)
ITEM MENU_ITEM(41) "~Normale" ITEM MENU_ITEM(41) "~Normale"
ITEM MENU_ITEM(42) "~Pari" ITEM MENU_ITEM(42) "~Pari"
ITEM MENU_ITEM(43) "~Primo" ITEM MENU_ITEM(43) "~Primo"
ITEM MENU_ITEM(44) "~Ultimo" ITEM MENU_ITEM(44) "~Ultimo"
MENUBAR TASK_MENUBAR + 1 MENUBAR TASK_MENUBAR + 1
MENU TASK_MENUBAR + 1 MENU TASK_MENUBAR + 1
SUBMENU MENU_FILE_ALT "~File" SUBMENU MENU_FILE_ALT "~File"
SUBMENU MENU_EDIT "~Stampanti" SUBMENU MENU_EDIT "~Stampanti"
MENUBAR TASK_MENUBAR + 2 MENUBAR TASK_MENUBAR + 2
MENU TASK_MENUBAR + 2 MENU TASK_MENUBAR + 2
SUBMENU MENU_FILE_ALT "~File" SUBMENU MENU_FILE_ALT "~File"
SUBMENU MENU_EDIT "~Stampanti" SUBMENU MENU_EDIT "~Stampanti"
MENUBAR TASK_MENUBAR + 3 MENUBAR TASK_MENUBAR + 3
MENU TASK_MENUBAR + 3 MENU TASK_MENUBAR + 3
SUBMENU MENU_FILE_ALT "~File" SUBMENU MENU_FILE_ALT "~File"
SUBMENU MENU_EDIT "~Stampanti" SUBMENU MENU_EDIT "~Stampanti"
MENUBAR TASK_MENUBAR + 4 MENUBAR TASK_MENUBAR + 4
MENU TASK_MENUBAR + 4 MENU TASK_MENUBAR + 4
SUBMENU MENU_FILE_ALT "~File" SUBMENU MENU_FILE_ALT "~File"
SUBMENU MENU_EDIT "~Stampanti" SUBMENU MENU_EDIT "~Stampanti"

554
ba/ba2100.cpp
View File

@ -1,277 +1,277 @@
#include <applicat.h> #include <applicat.h>
#include <form.h> #include <form.h>
#include <msksheet.h> #include <msksheet.h>
#include <prefix.h> #include <prefix.h>
#include <relation.h> #include <relation.h>
#include <utility.h> #include <utility.h>
#include <urldefid.h> #include <urldefid.h>
#include "ba2100.h" #include "ba2100.h"
class TForm_editor : public TApplication class TForm_editor : public TApplication
{ {
TForm* _form; TForm* _form;
protected: protected:
virtual bool create(); virtual bool create();
virtual bool destroy(); virtual bool destroy();
virtual bool menu(MENU_TAG); virtual bool menu(MENU_TAG);
virtual void print(); virtual void print();
static bool file_handler(TMask_field& f, KEY k); static bool file_handler(TMask_field& f, KEY k);
bool edit_relation(); bool edit_relation();
bool edit(char s, pagetype p); bool edit(char s, pagetype p);
public: public:
TForm_editor(); TForm_editor();
virtual ~TForm_editor(); virtual ~TForm_editor();
}; };
TForm_editor::TForm_editor() : _form(NULL) TForm_editor::TForm_editor() : _form(NULL)
{} {}
TForm_editor::~TForm_editor() TForm_editor::~TForm_editor()
{} {}
bool TForm_editor::create() bool TForm_editor::create()
{ {
TApplication::create(); TApplication::create();
if (argc() < 3) if (argc() < 3)
return error_box("Specificare il nome del profilo di stampa"); return error_box("Specificare il nome del profilo di stampa");
TFilename form(argv(2)); form.ext("frm"); TFilename form(argv(2)); form.ext("frm");
const char mode = argc() > 3 ? toupper(argv(3)[1]) : 'M'; const char mode = argc() > 3 ? toupper(argv(3)[1]) : 'M';
const bool crea = (mode == 'C') || !fexist(form); const bool crea = (mode == 'C') || !fexist(form);
if (crea) if (crea)
{ {
TFilename base(form.left(3)); base.ext("frm"); TFilename base(form.left(3)); base.ext("frm");
if (!fexist(base)) if (!fexist(base))
return error_box("Non esiste il file %s", (const char*)base); return error_box("Non esiste il file %s", (const char*)base);
if (!fcopy(base, form)) if (!fcopy(base, form))
return error_box("Impossibile copiare %s in %s", (const char*)base, (const char*)form); return error_box("Impossibile copiare %s in %s", (const char*)base, (const char*)form);
} }
if (!fexist(form)) if (!fexist(form))
return error_box("Non esiste il file %s", (const char*)form); return error_box("Non esiste il file %s", (const char*)form);
_form = new TForm(form); _form = new TForm(form);
enable_menu_item(M_FILE_PRINT); enable_menu_item(M_FILE_PRINT);
return TRUE; return TRUE;
} }
bool TForm_editor::destroy() bool TForm_editor::destroy()
{ {
delete _form; delete _form;
return TApplication::destroy(); return TApplication::destroy();
} }
bool TForm_editor::menu(MENU_TAG tag) bool TForm_editor::menu(MENU_TAG tag)
{ {
char sec = 'B'; char sec = 'B';
pagetype pt = odd_page; pagetype pt = odd_page;
switch(tag) switch(tag)
{ {
case MENU_ITEM(11): case MENU_ITEM(11):
sec = 'R'; pt = odd_page; break; sec = 'R'; pt = odd_page; break;
case MENU_ITEM(21): case MENU_ITEM(21):
sec = 'H'; pt = odd_page; break; sec = 'H'; pt = odd_page; break;
case MENU_ITEM(22): case MENU_ITEM(22):
sec = 'H'; pt = even_page; break; sec = 'H'; pt = even_page; break;
case MENU_ITEM(23): case MENU_ITEM(23):
sec = 'H'; pt = first_page; break; sec = 'H'; pt = first_page; break;
case MENU_ITEM(24): case MENU_ITEM(24):
sec = 'H'; pt = last_page; break; sec = 'H'; pt = last_page; break;
case MENU_ITEM(31): case MENU_ITEM(31):
sec = 'B'; pt = odd_page; break; sec = 'B'; pt = odd_page; break;
case MENU_ITEM(32): case MENU_ITEM(32):
sec = 'B'; pt = even_page; break; sec = 'B'; pt = even_page; break;
case MENU_ITEM(33): case MENU_ITEM(33):
sec = 'B'; pt = first_page; break; sec = 'B'; pt = first_page; break;
case MENU_ITEM(34): case MENU_ITEM(34):
sec = 'B'; pt = last_page; break; sec = 'B'; pt = last_page; break;
case MENU_ITEM(41): case MENU_ITEM(41):
sec = 'F'; pt = odd_page; break; sec = 'F'; pt = odd_page; break;
case MENU_ITEM(42): case MENU_ITEM(42):
sec = 'F'; pt = even_page; break; sec = 'F'; pt = even_page; break;
case MENU_ITEM(43): case MENU_ITEM(43):
sec = 'F'; pt = first_page; break; sec = 'F'; pt = first_page; break;
case MENU_ITEM(44): case MENU_ITEM(44):
sec = 'F'; pt = last_page; break; sec = 'F'; pt = last_page; break;
default: default:
break; break;
} }
edit(sec, pt); edit(sec, pt);
return TRUE; return TRUE;
} }
void TForm_editor::print() void TForm_editor::print()
{ {
_form->print(); _form->print();
} }
bool TForm_editor::file_handler(TMask_field& f, KEY k) bool TForm_editor::file_handler(TMask_field& f, KEY k)
{ {
bool ok = TRUE; bool ok = TRUE;
if (k == K_TAB && f.dirty()) if (k == K_TAB && f.dirty())
{ {
const char* d = prefhndl->description(f.get()); const char* d = prefhndl->description(f.get());
if (*d == '\0') ok = error_box("Nome di file o tabella errato"); if (*d == '\0') ok = error_box("Nome di file o tabella errato");
f.mask().set(f.dlg()+1, d); f.mask().set(f.dlg()+1, d);
} }
return ok; return ok;
} }
bool TForm_editor::edit_relation() bool TForm_editor::edit_relation()
{ {
TMask m("ba2100r"); TMask m("ba2100r");
TSheet_field& s = (TSheet_field&)m.field(F_ITEMS); TSheet_field& s = (TSheet_field&)m.field(F_ITEMS);
s.sheet_mask().set_handler(101, file_handler); s.sheet_mask().set_handler(101, file_handler);
TRelation* & rel = _form->_relation; TRelation* & rel = _form->_relation;
TCursor* & cur = _form->_cursor; TCursor* & cur = _form->_cursor;
if (rel) if (rel)
{ {
rel->print_on(s.rows_array()); rel->print_on(s.rows_array());
s.force_update(); s.force_update();
s.disable_cell(0, 2); s.disable_cell(0, 4); s.disable_cell(0, 2); s.disable_cell(0, 5);
} }
if (m.run() != K_ENTER || !m.dirty()) if (m.run() != K_ENTER || !m.dirty())
return FALSE; return FALSE;
if (rel) if (rel)
{ {
delete cur; cur = NULL; delete cur; cur = NULL;
delete rel; rel = NULL; delete rel; rel = NULL;
} }
TToken_string& r = s.row(0); TToken_string& r = s.row(0);
TString16 name = r.get(0); TString16 name = r.get(0);
if (name.not_empty()) if (name.not_empty())
{ {
int logicnum = atoi(name); int logicnum = atoi(name);
r.get(); // Skip description r.get(); // Skip description
int alias = 0, to = 0, key = r.get_int(2); int alias = 0, to = 0, key = r.get_int(2);
TString80 exp = r.get(4); TString80 exp = r.get(4);
rel = (logicnum > 0) ? new TRelation(logicnum) : new TRelation(name); rel = (logicnum > 0) ? new TRelation(logicnum) : new TRelation(name);
cur = new TCursor(rel, exp, key); cur = new TCursor(rel, exp, key);
for (int i = 1; i < s.items(); i++) for (int i = 1; i < s.items(); i++)
{ {
TToken_string& r = s.row(i); TToken_string& r = s.row(i);
name = r.get(0); logicnum = atoi(name); name = r.get(0); logicnum = atoi(name);
to = name2log(r.get()); to = name2log(r.get());
key = r.get_int(); key = r.get_int();
alias = r.get_int(); alias = r.get_int();
exp = r.get(); exp = r.get();
const int l = exp.len(); const int l = exp.len();
for (int j = 0; j < l; j++) for (int j = 0; j < l; j++)
if (exp[j] == ' ') exp[j] = '|'; if (exp[j] == ' ') exp[j] = '|';
if (logicnum > 0) if (logicnum > 0)
rel->add(logicnum, exp, key, to, alias); // join file rel->add(logicnum, exp, key, to, alias); // join file
else else
rel->add(name, exp, key, to, alias); // join table rel->add(name, exp, key, to, alias); // join table
} }
} }
return TRUE; return TRUE;
} }
bool TForm_editor::edit(char s, pagetype t) bool TForm_editor::edit(char s, pagetype t)
{ {
bool dirty = FALSE; bool dirty = FALSE;
if (s == 'R') if (s == 'R')
dirty = edit_relation(); dirty = edit_relation();
else else
{ {
TString80 caption; TString80 caption;
switch(s) switch(s)
{ {
case 'F': case 'F':
caption << "Pie' di pagina"; break; caption << "Pie' di pagina"; break;
case 'H': case 'H':
caption << "Intestazione"; break; caption << "Intestazione"; break;
default: default:
caption << "Corpo"; break; caption << "Corpo"; break;
} }
switch(t) switch(t)
{ {
case first_page: case first_page:
caption << " della prima pagina"; break; caption << " della prima pagina"; break;
case even_page: case even_page:
caption << " delle pagine pari"; break; caption << " delle pagine pari"; break;
case last_page: case last_page:
caption << " dell'ultima pagina"; break; caption << " dell'ultima pagina"; break;
default: default:
caption << " standard"; break; caption << " standard"; break;
} }
dirty = TRUE; dirty = TRUE;
if (!_form->exist(s, t)) if (!_form->exist(s, t))
{ {
const KEY k = yesnocancel_box("La sezione %s non esiste: " const KEY k = yesnocancel_box("La sezione %s non esiste: "
"si desidera ricopiare quella standard", "si desidera ricopiare quella standard",
(const char*)caption); (const char*)caption);
if (k == K_ESC) if (k == K_ESC)
dirty = FALSE; dirty = FALSE;
else else
{ {
TPrint_section* sec = _form->exist(s, t, TRUE); TPrint_section* sec = _form->exist(s, t, TRUE);
if (k == K_YES) if (k == K_YES)
{ {
const TPrint_section* def = _form->exist(s, odd_page); const TPrint_section* def = _form->exist(s, odd_page);
if (def) *sec = *def; if (def) *sec = *def;
else dirty = FALSE; else dirty = FALSE;
} }
} }
} }
if (dirty) if (dirty)
dirty = _form->section(s, t).edit(caption); dirty = _form->section(s, t).edit(caption);
} }
if (dirty && yesno_box("Salvare le modifiche?")) if (dirty && yesno_box("Salvare le modifiche?"))
{ {
CURSOR old = get_cursor(TASK_WIN); CURSOR old = get_cursor(TASK_WIN);
set_cursor(TASK_WIN, CURSOR_WAIT); set_cursor(TASK_WIN, CURSOR_WAIT);
const TFilename& n = _form->name(); const TFilename& n = _form->name();
TFilename bak(n); bak.ext("bak"); TFilename bak(n); bak.ext("bak");
rename(n, bak); rename(n, bak);
ofstream out(n); ofstream out(n);
_form->print_on(out); _form->print_on(out);
set_cursor(TASK_WIN, old); set_cursor(TASK_WIN, old);
} }
return dirty; return dirty;
} }
int ba2100(int argc, char* argv[]) int ba2100(int argc, char* argv[])
{ {
TForm_editor a; TForm_editor a;
a.run(argc, argv, "Parametrizzazione stampa"); a.run(argc, argv, "Parametrizzazione stampa");
return 0; return 0;
} }

62
ba/ba2100.h
View File

@ -1,31 +1,31 @@
#define F_CLASS 101 #define F_CLASS 101
#define F_KEY 102 #define F_KEY 102
#define F_Y 103 #define F_Y 103
#define F_X 104 #define F_X 104
#define F_WIDTH 105 #define F_WIDTH 105
#define F_HEIGHT 106 #define F_HEIGHT 106
#define F_PROMPT 107 #define F_PROMPT 107
#define F_HIDDEN 108 #define F_HIDDEN 108
#define F_DISABLED 109 #define F_DISABLED 109
#define F_AUTOMAGIC 110 #define F_AUTOMAGIC 110
#define F_PICTURE 111 #define F_PICTURE 111
#define F_FIELD 113 #define F_FIELD 113
#define F_FIELD2 114 #define F_FIELD2 114
#define F_GROUP 130 #define F_GROUP 130
#define F_GROUP1 131 #define F_GROUP1 131
#define F_GROUP2 132 #define F_GROUP2 132
#define F_GROUP3 133 #define F_GROUP3 133
#define F_GROUP4 134 #define F_GROUP4 134
#define F_GROUP5 135 #define F_GROUP5 135
#define F_GROUP6 136 #define F_GROUP6 136
#define F_GROUP7 137 #define F_GROUP7 137
#define F_GROUP8 138 #define F_GROUP8 138
#define F_GROUP9 139 #define F_GROUP9 139
#define F_GROUP10 140 #define F_GROUP10 140
#define F_GROUP11 141 #define F_GROUP11 141
#define F_GROUP12 142 #define F_GROUP12 142
#define F_ITEMS 200 #define F_ITEMS 200
#define F_DECIMALS 206 #define F_DECIMALS 206

428
ba/ba2100f.uml
View File

@ -1,214 +1,214 @@
#include "ba2100.h" #include "ba2100.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
PAGE "CAMPO DI STAMPA" -1 -1 60 14 PAGE "CAMPO DI STAMPA" -1 -1 60 14
LIST F_CLASS 10 LIST F_CLASS 10
BEGIN BEGIN
PROMPT 1 1 "Tipo " PROMPT 1 1 "Tipo "
FLAGS "DG" FLAGS "DG"
ITEM "STRINGA|Testo" MESSAGE HIDE,2@|SHOW,F_HEIGHT|HIDE,F_ITEMS ITEM "STRINGA|Testo" MESSAGE HIDE,2@|SHOW,F_HEIGHT|HIDE,F_ITEMS
ITEM "NUMERO|Numero" MESSAGE SHOW,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS ITEM "NUMERO|Numero" MESSAGE SHOW,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS
ITEM "DATA|Data" MESSAGE HIDE,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS ITEM "DATA|Data" MESSAGE HIDE,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS
ITEM "LISTA|Lista" MESSAGE HIDE,2@|HIDE,F_HEIGHT|SHOW,F_ITEMS ITEM "LISTA|Lista" MESSAGE HIDE,2@|HIDE,F_HEIGHT|SHOW,F_ITEMS
END END
STRING F_KEY 80 60 STRING F_KEY 80 60
BEGIN BEGIN
PROMPT 1 2 "Descrizione " PROMPT 1 2 "Descrizione "
HELP "Descrizione del campo da configurare" HELP "Descrizione del campo da configurare"
END END
NUMBER F_Y 3 NUMBER F_Y 3
BEGIN BEGIN
PROMPT 1 3 "Riga " PROMPT 1 3 "Riga "
HELP "Riga in cui stampare" HELP "Riga in cui stampare"
END END
NUMBER F_X 3 NUMBER F_X 3
BEGIN BEGIN
PROMPT 24 3 "Colonna " PROMPT 24 3 "Colonna "
HELP "Colonna in cui stampare" HELP "Colonna in cui stampare"
END END
NUMBER F_WIDTH 3 NUMBER F_WIDTH 3
BEGIN BEGIN
PROMPT 1 4 "Larghezza " PROMPT 1 4 "Larghezza "
HELP "Lunghezza massima da stampare" HELP "Lunghezza massima da stampare"
END END
NUMBER F_HEIGHT 2 NUMBER F_HEIGHT 2
BEGIN BEGIN
PROMPT 24 4 "Altezza " PROMPT 24 4 "Altezza "
HELP "Righe massime su cui stampare" HELP "Righe massime su cui stampare"
END END
NUMBER F_DECIMALS 2 NUMBER F_DECIMALS 2
BEGIN BEGIN
PROMPT 24 4 "Decimali " PROMPT 24 4 "Decimali "
HELP "Numero di decimali" HELP "Numero di decimali"
MESSAGE COPY,F_HEIGHT MESSAGE COPY,F_HEIGHT
GROUP 2 GROUP 2
END END
STRING F_PROMPT 80 60 STRING F_PROMPT 80 60
BEGIN BEGIN
PROMPT 1 5 "Testo " PROMPT 1 5 "Testo "
HELP "Eventuale testo fisso da stampare" HELP "Eventuale testo fisso da stampare"
END END
STRING F_PICTURE 80 40 STRING F_PICTURE 80 40
BEGIN BEGIN
PROMPT 1 6 "Formato " PROMPT 1 6 "Formato "
HELP "Formato di stampa (vedere codici sul manuale)" HELP "Formato di stampa (vedere codici sul manuale)"
END END
STRING F_FIELD 40 STRING F_FIELD 40
BEGIN BEGIN
PROMPT 1 7 "Campo su file " PROMPT 1 7 "Campo su file "
HELP "Nome del campo su file" HELP "Nome del campo su file"
END END
STRING F_FIELD2 40 STRING F_FIELD2 40
BEGIN BEGIN
PROMPT 1 8 "II campo " PROMPT 1 8 "II campo "
HELP "Nome del campo su file da utilizzare se il primo e' vuoto" HELP "Nome del campo su file da utilizzare se il primo e' vuoto"
END END
BOOLEAN F_HIDDEN BOOLEAN F_HIDDEN
BEGIN BEGIN
PROMPT 60 6 "Nascosto" PROMPT 60 6 "Nascosto"
HELP "Il campo va elaborato ma non stampato" HELP "Il campo va elaborato ma non stampato"
END END
BOOLEAN F_DISABLED BOOLEAN F_DISABLED
BEGIN BEGIN
PROMPT 60 7 "Disabilitato" PROMPT 60 7 "Disabilitato"
HELP "Il campo viene completamente ignorato e quindi nemmeno stampato" HELP "Il campo viene completamente ignorato e quindi nemmeno stampato"
END END
BOOLEAN F_AUTOMAGIC BOOLEAN F_AUTOMAGIC
BEGIN BEGIN
PROMPT 60 8 "Automatico" PROMPT 60 8 "Automatico"
HELP "Il campo viene calcolato automaticamente" HELP "Il campo viene calcolato automaticamente"
END END
GROUPBOX F_GROUP 78 3 GROUPBOX F_GROUP 78 3
BEGIN BEGIN
PROMPT 1 9 "Gruppi di stampa" PROMPT 1 9 "Gruppi di stampa"
END END
BOOLEAN F_GROUP1 BOOLEAN F_GROUP1
BEGIN BEGIN
PROMPT 4 10 "1" PROMPT 4 10 "1"
END END
BOOLEAN F_GROUP2 BOOLEAN F_GROUP2
BEGIN BEGIN
PROMPT 10 10 "2" PROMPT 10 10 "2"
END END
BOOLEAN F_GROUP3 BOOLEAN F_GROUP3
BEGIN BEGIN
PROMPT 16 10 "3" PROMPT 16 10 "3"
END END
BOOLEAN F_GROUP4 BOOLEAN F_GROUP4
BEGIN BEGIN
PROMPT 22 10 "4" PROMPT 22 10 "4"
END END
BOOLEAN F_GROUP5 BOOLEAN F_GROUP5
BEGIN BEGIN
PROMPT 28 10 "5" PROMPT 28 10 "5"
END END
BOOLEAN F_GROUP6 BOOLEAN F_GROUP6
BEGIN BEGIN
PROMPT 34 10 "6" PROMPT 34 10 "6"
END END
BOOLEAN F_GROUP7 BOOLEAN F_GROUP7
BEGIN BEGIN
PROMPT 40 10 "7" PROMPT 40 10 "7"
END END
BOOLEAN F_GROUP8 BOOLEAN F_GROUP8
BEGIN BEGIN
PROMPT 46 10 "8" PROMPT 46 10 "8"
END END
BOOLEAN F_GROUP9 BOOLEAN F_GROUP9
BEGIN BEGIN
PROMPT 52 10 "9" PROMPT 52 10 "9"
END END
BOOLEAN F_GROUP10 BOOLEAN F_GROUP10
BEGIN BEGIN
PROMPT 58 10 "10" PROMPT 58 10 "10"
END END
BOOLEAN F_GROUP11 BOOLEAN F_GROUP11
BEGIN BEGIN
PROMPT 64 10 "11" PROMPT 64 10 "11"
END END
BOOLEAN F_GROUP12 BOOLEAN F_GROUP12
BEGIN BEGIN
PROMPT 70 10 "12" PROMPT 70 10 "12"
END END
SPREADSHEET F_ITEMS SPREADSHEET F_ITEMS
BEGIN BEGIN
PROMPT 0 12 "Spreadsheet" PROMPT 0 12 "Spreadsheet"
ITEM "Codice@8" ITEM "Codice@8"
ITEM "Testo@32" ITEM "Testo@32"
ITEM "Messaggio@80" ITEM "Messaggio@80"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Spreadsheet" -1 -1 46 6 PAGE "Spreadsheet" -1 -1 46 6
STRING 101 8 STRING 101 8
BEGIN BEGIN
PROMPT 1 1 "Codice " PROMPT 1 1 "Codice "
END END
STRING 102 32 STRING 102 32
BEGIN BEGIN
PROMPT 1 2 "Testo " PROMPT 1 2 "Testo "
FLAGS "_" FLAGS "_"
END END
STRING 103 80 32 STRING 103 80 32
BEGIN BEGIN
PROMPT 1 3 "Messaggio " PROMPT 1 3 "Messaggio "
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

160
ba/ba2100r.uml
View File

@ -1,80 +1,80 @@
#include "ba2100.h" #include "ba2100.h"
PAGE "RELAZIONE" -1 -1 78 12 PAGE "RELAZIONE" -1 -1 78 12
SPREADSHEET F_ITEMS 0 9 SPREADSHEET F_ITEMS 0 9
BEGIN BEGIN
PROMPT 0 1 "Spreadsheet" PROMPT 0 1 "Spreadsheet"
ITEM "File@4" ITEM "File@4"
ITEM "Descrizione@40" ITEM "Descrizione@40"
ITEM "Join@4" ITEM "Join@4"
ITEM "Chiave@2" ITEM "Chiave@2"
ITEM "Alias@3" ITEM "Alias@3"
ITEM "Espressione@40" ITEM "Espressione@40"
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Spreadsheet" -1 -1 60 8 PAGE "Spreadsheet" -1 -1 60 8
STRING 101 4 STRING 101 4
BEGIN BEGIN
PROMPT 1 1 "File " PROMPT 1 1 "File "
FLAGS "U" FLAGS "U"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING 102 40 STRING 102 40
BEGIN BEGIN
PROMPT 16 1 "" PROMPT 16 1 ""
FLAGS "D" FLAGS "D"
END END
STRING 103 4 STRING 103 4
BEGIN BEGIN
PROMPT 1 2 "Join " PROMPT 1 2 "Join "
FLAGS "U" FLAGS "U"
END END
NUMBER 104 3 NUMBER 104 3
BEGIN BEGIN
PROMPT 1 3 "Chiave " PROMPT 1 3 "Chiave "
FLAGS "U" FLAGS "U"
END END
NUMBER 105 3 NUMBER 105 3
BEGIN BEGIN
PROMPT 1 4 "Alias " PROMPT 1 4 "Alias "
FLAGS "U" FLAGS "U"
END END
STRING 106 40 STRING 106 40
BEGIN BEGIN
PROMPT 1 5 "Espr. " PROMPT 1 5 "Espr. "
FLAGS "U" FLAGS "U"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

46
ba/ba2100s.uml
View File

@ -1,23 +1,23 @@
#include "ba2100.h" #include "ba2100.h"
PAGE "SEZIONE DI STAMPA" -1 -1 30 5 PAGE "SEZIONE DI STAMPA" -1 -1 30 5
NUMBER F_HEIGHT 2 NUMBER F_HEIGHT 2
BEGIN BEGIN
PROMPT 1 1 "Altezza " PROMPT 1 1 "Altezza "
END END
BUTTON DLG_EDIT 10 2 BUTTON DLG_EDIT 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
MESSAGE EXIT,K_ENTER MESSAGE EXIT,K_ENTER
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

2232
ba/ba4200b.uml
View File

File diff suppressed because it is too large Load Diff

2480
ba/ba4200c.uml
View File

File diff suppressed because it is too large Load Diff

3
ba/batbdel.uml
View File

@ -13,7 +13,7 @@ BEGIN
PROMPT 4 1 "Ditta " PROMPT 4 1 "Ditta "
HELP "Codice ditta a cui si riferisce la delega" HELP "Codice ditta a cui si riferisce la delega"
FIELD CODTAB[1,5] FIELD CODTAB[1,5]
FLAGS "FR" FLAGS "FRZ"
KEY 1 KEY 1
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
@ -138,6 +138,7 @@ BEGIN
PROMPT 4 10 "Importo " PROMPT 4 10 "Importo "
FIELD R0 FIELD R0
FLAGS "R" FLAGS "R"
PICTURE "."
HELP "Importo versato" HELP "Importo versato"
END END

636
ba/batbiva.uml
View File

@ -1,318 +1,318 @@
#include "batbiva.h" #include "batbiva.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Codici IVA" -1 -1 78 19 PAGE "Codici IVA" -1 -1 78 19
STRING FLD_TABIVA_CODTAB 4 STRING FLD_TABIVA_CODTAB 4
BEGIN BEGIN
PROMPT 3 1 "Codice " PROMPT 3 1 "Codice "
FIELD CODTAB FIELD CODTAB
KEY 1 KEY 1
USE %IVA USE %IVA
FLAGS "U" FLAGS "U"
INPUT CODTAB FLD_TABIVA_CODTAB INPUT CODTAB FLD_TABIVA_CODTAB
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Tipo" S1 DISPLAY "Tipo" S1
DISPLAY "%@5" R0 DISPLAY "%@5" R0
DISPLAY "Vent." S6 DISPLAY "Vent." S6
DISPLAY "Sospeso" B2 DISPLAY "Sospeso" B2
OUTPUT FLD_TABIVA_CODTAB CODTAB OUTPUT FLD_TABIVA_CODTAB CODTAB
OUTPUT FLD_TABIVA_S0 S0 OUTPUT FLD_TABIVA_S0 S0
HELP "Inserire il codice IVA" HELP "Inserire il codice IVA"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
VALIDATE ZEROFILL_FUNC 2 VALIDATE ZEROFILL_FUNC 2
END END
STRING FLD_TABIVA_S0 50 STRING FLD_TABIVA_S0 50
BEGIN BEGIN
PROMPT 3 2 "Descrizione " PROMPT 3 2 "Descrizione "
FIELD S0 FIELD S0
KEY 2 KEY 2
USE %IVA KEY 2 USE %IVA KEY 2
INPUT S0 FLD_TABIVA_S0 INPUT S0 FLD_TABIVA_S0
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Tipo" S1 DISPLAY "Tipo" S1
DISPLAY "%@5" R0 DISPLAY "%@5" R0
DISPLAY "Vent." S6 DISPLAY "Vent." S6
DISPLAY "Sospeso" B2 DISPLAY "Sospeso" B2
COPY OUTPUT FLD_TABIVA_CODTAB COPY OUTPUT FLD_TABIVA_CODTAB
HELP "Inserire la descrizione del codice IVA" HELP "Inserire la descrizione del codice IVA"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Manca la descrizione" WARNING "Manca la descrizione"
END END
LIST LST_TABIVA_S1 2 22 LIST LST_TABIVA_S1 2 22
BEGIN BEGIN
PROMPT 3 3 "Tipo codice " PROMPT 3 3 "Tipo codice "
FIELD S1 FIELD S1
HELP "Indicare il tipo di codice IVA" HELP "Indicare il tipo di codice IVA"
ITEM " |Regime IVA normale" ITEM " |Regime IVA normale"
MESSAGE ENABLE,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0 MESSAGE ENABLE,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0
MESSAGE CLEAR,FLD_TABIVA_I3|CLEAR,FLD_TABIVA_I4 MESSAGE CLEAR,FLD_TABIVA_I3|CLEAR,FLD_TABIVA_I4
MESSAGE ENABLE,FLD_TABIVA_S6 MESSAGE ENABLE,FLD_TABIVA_S6
ITEM "VE|Ricavi da ventilare" ITEM "VE|Ricavi da ventilare"
MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0|CLEAR,FLD_TABIVA_I3 MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0|CLEAR,FLD_TABIVA_I3
MESSAGE CLEAR,FLD_TABIVA_I4|CLEAR,FLD_TABIVA_S6 MESSAGE CLEAR,FLD_TABIVA_I4|CLEAR,FLD_TABIVA_S6
ITEM "ES|Operazioni esenti" ITEM "ES|Operazioni esenti"
MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0 MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0
MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4 MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4
MESSAGE ENABLE,FLD_TABIVA_S6 MESSAGE ENABLE,FLD_TABIVA_S6
ITEM "NI|Non imponibili" ITEM "NI|Non imponibili"
MESSAGE CLEAR,FLD_TABIVA_R0|ENABLE,FLD_TABIVA_I0 MESSAGE CLEAR,FLD_TABIVA_R0|ENABLE,FLD_TABIVA_I0
MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4 MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4
MESSAGE ENABLE,FLD_TABIVA_S6 MESSAGE ENABLE,FLD_TABIVA_S6
ITEM "NS|Non soggetti" ITEM "NS|Non soggetti"
MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0 MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0
MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4 MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4
MESSAGE ENABLE,FLD_TABIVA_S6 MESSAGE ENABLE,FLD_TABIVA_S6
END END
STRING FLD_TABIVA_S6 4 STRING FLD_TABIVA_S6 4
BEGIN BEGIN
PROMPT 39 3 "C.IVA a cui ventilare " PROMPT 39 3 "C.IVA a cui ventilare "
FLAGS "U" FLAGS "U"
FIELD S6 FIELD S6
COPY USE FLD_TABIVA_CODTAB COPY USE FLD_TABIVA_CODTAB
INPUT CODTAB FLD_TABIVA_S6 INPUT CODTAB FLD_TABIVA_S6
COPY DISPLAY FLD_TABIVA_CODTAB COPY DISPLAY FLD_TABIVA_CODTAB
OUTPUT FLD_TABIVA_S6 CODTAB OUTPUT FLD_TABIVA_S6 CODTAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
VALIDATE ZEROFILL_FUNC 2 VALIDATE ZEROFILL_FUNC 2
HELP "Inserire il codice iva a cui ventilare l'imposta" HELP "Inserire il codice iva a cui ventilare l'imposta"
END END
NUMBER FLD_TABIVA_R0 6 2 NUMBER FLD_TABIVA_R0 6 2
BEGIN BEGIN
PROMPT 3 4 "Aliquota " PROMPT 3 4 "Aliquota "
FIELD R0 FIELD R0
FLAGS "R" FLAGS "R"
HELP "Inserire la percentuale di imposta" HELP "Inserire la percentuale di imposta"
WARNING "Almeno uno dei campi tra aliquota tipo e codice a cui ventilare deve essere specificato" WARNING "Deve essere specificato almeno uno dei campi seguenti: aliquota, tipo, codice a cui ventilare"
VALIDATE ONEREQ_FUNC 3 FLD_TABIVA_R0 FLD_TABIVA_S6 LST_TABIVA_S1 VALIDATE ONEREQ_FUNC 3 FLD_TABIVA_R0 FLD_TABIVA_S6 LST_TABIVA_S1
END END
NUMBER FLD_TABIVA_I0 2 NUMBER FLD_TABIVA_I0 2
BEGIN BEGIN
PROMPT 39 4 "Perc.IVA teorica " PROMPT 39 4 "Perc.IVA teorica "
FIELD I0 FIELD I0
HELP "Inserire la percentuale teorica dell'imposta" HELP "Inserire la percentuale teorica dell'imposta"
END END
GROUPBOX DLG_NULL 40 4 GROUPBOX DLG_NULL 40 4
BEGIN BEGIN
PROMPT 3 5 "Colonne per allegati imponibili" PROMPT 3 5 "Colonne per allegati imponibili"
END END
GROUPBOX DLG_NULL 25 4 GROUPBOX DLG_NULL 25 4
BEGIN BEGIN
PROMPT 44 5 "Indicatori mod. 101/102" PROMPT 44 5 "Indicatori mod. 101/102"
END END
LIST FLD_TABIVA_S7 1 26 LIST FLD_TABIVA_S7 1 26
BEGIN BEGIN
PROMPT 4 6 "Clienti " PROMPT 4 6 "Clienti "
FIELD S7 FIELD S7
HELP "Inserire il numero della colonna degli allegati clienti relativa all'imposta" HELP "Inserire il numero della colonna degli allegati clienti relativa all'imposta"
ITEM " |Non in allegato" ITEM " |Non in allegato"
ITEM "1|Imponibili" ITEM "1|Imponibili"
ITEM "3|Non imponibili" ITEM "3|Non imponibili"
END END
LIST FLD_TABIVA_S8 1 26 LIST FLD_TABIVA_S8 1 26
BEGIN BEGIN
PROMPT 4 7 "Fornitori " PROMPT 4 7 "Fornitori "
FIELD S8 FIELD S8
HELP "Inserire il numero della colonna degli allegati fornitori relativa all'imposta" HELP "Inserire il numero della colonna degli allegati fornitori relativa all'imposta"
ITEM " |Non in allegato" ITEM " |Non in allegato"
ITEM "1|Imponibili" ITEM "1|Imponibili"
ITEM "3|Senza applicaz.imposta" ITEM "3|Senza applicaz.imposta"
ITEM "4|Non imponibili" ITEM "4|Non imponibili"
END END
BOOLEAN CHK_TABIVA_B0 BOOLEAN CHK_TABIVA_B0
BEGIN BEGIN
PROMPT 50 6 "Clienti" PROMPT 50 6 "Clienti"
FIELD B0 FIELD B0
HELP "Indicare se il codice deve comparire nel modello 101" HELP "Indicare se il codice deve comparire nel modello 101"
END END
BOOLEAN FLD_TABIVA_B1 BOOLEAN FLD_TABIVA_B1
BEGIN BEGIN
PROMPT 50 7 "Fornitori" PROMPT 50 7 "Fornitori"
FIELD B1 FIELD B1
HELP "Indicare se il codice deve comparire nel modello 102" HELP "Indicare se il codice deve comparire nel modello 102"
END END
LIST FLD_TABIVA_I3 3 6 LIST FLD_TABIVA_I3 3 6
BEGIN BEGIN
PROMPT 3 10 "Riga vendite IVA11 per op.esenti e non imp. " PROMPT 3 10 "Riga vendite IVA11 per op.esenti e non imp. "
FIELD I3 FIELD I3
HELP "Indicare il codice riga per operazioni di vendita es. e non imp. del mod.101" HELP "Indicare il codice riga per operazioni di vendita es. e non imp. del mod.101"
ITEM " |No" ITEM " |No"
ITEM "1|B1" ITEM "1|B1"
ITEM "2|B2" ITEM "2|B2"
ITEM "3|B3" ITEM "3|B3"
END END
LIST FLD_TABIVA_I4 3 6 LIST FLD_TABIVA_I4 3 6
BEGIN BEGIN
PROMPT 3 11 "Riga acquisti IVA11 per op.esenti e non imp. " PROMPT 3 11 "Riga acquisti IVA11 per op.esenti e non imp. "
FIELD I4 FIELD I4
HELP "Indicare il n. di riga per operazioni di acquisto es. e non imp. del mod.101" HELP "Indicare il n. di riga per operazioni di acquisto es. e non imp. del mod.101"
ITEM " |No" ITEM " |No"
ITEM "14|B14" ITEM "14|B14"
END END
LIST LST_TABIVA_S3 1 33 LIST LST_TABIVA_S3 1 33
BEGIN BEGIN
PROMPT 3 12 "Gestione plafond " PROMPT 3 12 "Gestione plafond "
FIELD S3 FIELD S3
HELP "Indicare il tipo di gestione di plafond" HELP "Indicare il tipo di gestione di plafond"
ITEM " |Regime normale" ITEM " |Regime normale"
ITEM "1|Oper. relative art.8" ITEM "1|Oper. relative art.8"
ITEM "2|Oper. relative art.8bis" ITEM "2|Oper. relative art.8bis"
ITEM "3|Oper. relative art.9" ITEM "3|Oper. relative art.9"
END END
LIST LST_TABIVA_S4 1 45 LIST LST_TABIVA_S4 1 45
BEGIN BEGIN
PROMPT 3 13 "Regime agricolo " PROMPT 3 13 "Regime agricolo "
FIELD S4 FIELD S4
HELP "Indicare il tipo di gestione per regime agricolo" HELP "Indicare il tipo di gestione per regime agricolo"
ITEM " |Regime normale" ITEM " |Regime normale"
ITEM "1|Vendite regime agricolo" ITEM "1|Vendite regime agricolo"
ITEM "2|Vendite accessorie/Acquisti non agricoli" ITEM "2|Vendite accessorie/Acquisti non agricoli"
ITEM "3|Vendite per conferimenti" ITEM "3|Vendite per conferimenti"
END END
LIST LST_TABIVA_S5 1 33 LIST LST_TABIVA_S5 1 33
BEGIN BEGIN
PROMPT 3 14 "Ag. viaggio/turismo " PROMPT 3 14 "Ag. viaggio/turismo "
FIELD S5 FIELD S5
HELP "Indicare il tipo di gestione per agenzie viaggio/turismo" HELP "Indicare il tipo di gestione per agenzie viaggio/turismo"
ITEM " |Regime normale" ITEM " |Regime normale"
ITEM "1|Operazioni interno CEE" ITEM "1|Operazioni interno CEE"
ITEM "2|Operazioni fuori CEE" ITEM "2|Operazioni fuori CEE"
ITEM "3|Vendite miste CEE" ITEM "3|Vendite miste CEE"
ITEM "4|Acquisti misti parte CEE" ITEM "4|Acquisti misti parte CEE"
ITEM "5|Acquisti misti parte fuori CEE" ITEM "5|Acquisti misti parte fuori CEE"
END END
BOOLEAN CHK_TABIVA_S9 BOOLEAN CHK_TABIVA_S9
BEGIN BEGIN
PROMPT 3 16 "Codice per calcolo rimborso infrannuale" PROMPT 3 16 "Codice per calcolo rimborso infrannuale"
FIELD B3 FIELD B3
HELP "Indicare se il codice vale per il calcolo del rimborso infrannuale" HELP "Indicare se il codice vale per il calcolo del rimborso infrannuale"
END END
BOOLEAN FLD_SOSPESO_B2 BOOLEAN FLD_SOSPESO_B2
BEGIN BEGIN
PROMPT 3 17 "Codice IVA sospeso" PROMPT 3 17 "Codice IVA sospeso"
FIELD B2 FIELD B2
HELP "Indicare se il codice iva e' sospeso" HELP "Indicare se il codice iva e' sospeso"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

106
ba/batblng.uml
View File

@ -1,53 +1,53 @@
#include "batblng.h" #include "batblng.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella lingue" -1 -1 78 8 PAGE "Tabella lingue" -1 -1 78 8
STRING F_CODICE 1 STRING F_CODICE 1
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB FIELD CODTAB
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
USE %LNG USE %LNG
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0 DISPLAY "Descrizione @50" S0
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_DESCR 50 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 4 4 "Descrizione " PROMPT 4 4 "Descrizione "
FIELD LF_TABCOM->S0 FIELD LF_TABCOM->S0
KEY 2 KEY 2
USE %LNG KEY 2 USE %LNG KEY 2
INPUT S0 F_DESCR INPUT S0 F_DESCR
DISPLAY "Descrizione @50" S0 DISPLAY "Descrizione @50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

686
cg/cg0100.cpp
View File

@ -1,343 +1,343 @@
#include <relapp.h> #include <relapp.h>
#include <pconti.h> #include <pconti.h>
#include "cg0.h" #include "cg0.h"
#include "cg0100.h" #include "cg0100.h"
#define ATTIVITA 1 #define ATTIVITA 1
#define PASSIVITA 2 #define PASSIVITA 2
#define COSTI 3 #define COSTI 3
#define RICAVI 4 #define RICAVI 4
#define ORDINE 5 #define ORDINE 5
class CG0100_application : public TRelation_application class CG0100_application : public TRelation_application
{ {
TMask* _msk; TMask* _msk;
TRelation *_rel; TRelation *_rel;
TLocalisamfile* _saldi; TLocalisamfile* _saldi;
TLocalisamfile* _tabcom; TLocalisamfile* _tabcom;
bool user_create(); bool user_create();
bool user_destroy(); bool user_destroy();
virtual TMask* get_mask(int mode) {return _msk;} virtual TMask* get_mask(int mode) {return _msk;}
virtual bool changing_mask(int mode) {return FALSE;} virtual bool changing_mask(int mode) {return FALSE;}
virtual bool protected_record(TRectype &rec); virtual bool protected_record(TRectype &rec);
virtual void init_query_mode(TMask& m); virtual void init_query_mode(TMask& m);
virtual void init_insert_mode(TMask& m); virtual void init_insert_mode(TMask& m);
virtual void init_modify_mode(TMask& m) {init_insert_mode(m);} virtual void init_modify_mode(TMask& m) {init_insert_mode(m);}
virtual int write(const TMask& m); virtual int write(const TMask& m);
virtual int rewrite(const TMask & m); virtual int rewrite(const TMask & m);
virtual int read(TMask& m); virtual int read(TMask& m);
public: public:
virtual TRelation* get_relation() const {return _rel;} virtual TRelation* get_relation() const {return _rel;}
CG0100_application() {} CG0100_application() {}
}; };
HIDDEN inline CG0100_application & app() { return (CG0100_application &) main_app();} HIDDEN inline CG0100_application & app() { return (CG0100_application &) main_app();}
int CG0100_application::read(TMask& m) int CG0100_application::read(TMask& m)
{ {
const TRelation *r = get_relation(); const TRelation *r = get_relation();
m.autoload(r); m.autoload(r);
if (m.get(FLD_CM1_LETTIVD).empty()) if (m.get(FLD_CM1_LETTIVD).empty())
{ {
int sezivd = m.get_int(FLD_CM1_SEZIVD); int sezivd = m.get_int(FLD_CM1_SEZIVD);
if (sezivd == 1 || sezivd == 2) if (sezivd == 1 || sezivd == 2)
m.set(FLD_CM1_SEZIVD, sezivd + 5); m.set(FLD_CM1_SEZIVD, sezivd + 5);
} }
if (m.get(FLD_CM1_LETTIVDOPP).empty()) if (m.get(FLD_CM1_LETTIVDOPP).empty())
{ {
int sezivd = m.get_int(FLD_CM1_SEZIVDOPP); int sezivd = m.get_int(FLD_CM1_SEZIVDOPP);
if (sezivd == 1 || sezivd == 2) if (sezivd == 1 || sezivd == 2)
m.set(FLD_CM1_SEZIVDOPP, sezivd + 5); m.set(FLD_CM1_SEZIVDOPP, sezivd + 5);
} }
return NOERR; return NOERR;
} }
int CG0100_application::rewrite(const TMask& m) int CG0100_application::rewrite(const TMask& m)
{ {
TRelation *r = get_relation(); TRelation *r = get_relation();
m.autosave(r); m.autosave(r);
int sezivd = m.get_int(FLD_CM1_SEZIVD); int sezivd = m.get_int(FLD_CM1_SEZIVD);
TString16 sez; TString16 sez;
if (sezivd == 6 || sezivd == 7) if (sezivd == 6 || sezivd == 7)
{ {
sez.format("%d", sezivd - 5); sez.format("%d", sezivd - 5);
r->lfile().put(PCN_SEZIVD, sez); r->lfile().put(PCN_SEZIVD, sez);
} }
sezivd = m.get_int(FLD_CM1_SEZIVDOPP); sezivd = m.get_int(FLD_CM1_SEZIVDOPP);
if (sezivd == 6 || sezivd == 7) if (sezivd == 6 || sezivd == 7)
{ {
sez.format("%d", sezivd - 5); sez.format("%d", sezivd - 5);
r->lfile().put(PCN_SEZIVDOPP, sez); r->lfile().put(PCN_SEZIVDOPP, sez);
} }
return r->rewrite(); return r->rewrite();
} }
int CG0100_application::write(const TMask& m) int CG0100_application::write(const TMask& m)
{ {
TRelation *r = get_relation(); TRelation *r = get_relation();
TString16 sez; TString16 sez;
m.autosave(r); m.autosave(r);
int sezivd = m.get_int(FLD_CM1_SEZIVD); int sezivd = m.get_int(FLD_CM1_SEZIVD);
if (sezivd == 6 || sezivd == 7) if (sezivd == 6 || sezivd == 7)
{ {
sez.format("%d", sezivd - 5); sez.format("%d", sezivd - 5);
r->lfile().put(PCN_SEZIVD, sez); r->lfile().put(PCN_SEZIVD, sez);
} }
sezivd = m.get_int(FLD_CM1_SEZIVDOPP); sezivd = m.get_int(FLD_CM1_SEZIVDOPP);
if (sezivd == 6 || sezivd == 7) if (sezivd == 6 || sezivd == 7)
{ {
sez.format("%d", sezivd - 5); sez.format("%d", sezivd - 5);
r->lfile().put(PCN_SEZIVDOPP, sez); r->lfile().put(PCN_SEZIVDOPP, sez);
} }
return r->write(); return r->write();
} }
// Controlla se puo' essere effettuata la cancellazione di un conto // Controlla se puo' essere effettuata la cancellazione di un conto
bool CG0100_application::protected_record(TRectype &rec) bool CG0100_application::protected_record(TRectype &rec)
{ {
TMask* m = get_mask(MODE_MOD); TMask* m = get_mask(MODE_MOD);
TLocalisamfile& pconti = _rel->lfile(); TLocalisamfile& pconti = _rel->lfile();
const int gruppo = atoi(m->get(FLD_CM1_GRUPPO)); const int gruppo = atoi(m->get(FLD_CM1_GRUPPO));
const int conto = atoi(m->get(FLD_CM1_CONTO)); const int conto = atoi(m->get(FLD_CM1_CONTO));
const long sottoc = atol(m->get(FLD_CM1_SOTTOCONTO)); const long sottoc = atol(m->get(FLD_CM1_SOTTOCONTO));
// Se e' un sottoconto posso cancellarlo se non esistono saldi // Se e' un sottoconto posso cancellarlo se non esistono saldi
if ((gruppo != 0) && (conto != 0) && (sottoc != 0)) if ((gruppo != 0) && (conto != 0) && (sottoc != 0))
{ {
_saldi->zero(); _saldi->zero();
_saldi->put(PCN_GRUPPO, gruppo); _saldi->put(PCN_GRUPPO, gruppo);
_saldi->put(PCN_CONTO, conto); _saldi->put(PCN_CONTO, conto);
_saldi->put(PCN_SOTTOCONTO, sottoc); _saldi->put(PCN_SOTTOCONTO, sottoc);
_saldi->read(_isgteq); _saldi->read(_isgteq);
return _saldi->good() && gruppo ==_saldi->get_int(PCN_GRUPPO) && return _saldi->good() && gruppo ==_saldi->get_int(PCN_GRUPPO) &&
conto ==_saldi->get_int(PCN_CONTO) && conto ==_saldi->get_int(PCN_CONTO) &&
sottoc ==_saldi->get_long(PCN_SOTTOCONTO); sottoc ==_saldi->get_long(PCN_SOTTOCONTO);
} }
get_relation()->save_status(); get_relation()->save_status();
pconti.zero() ; pconti.zero() ;
pconti.put(PCN_GRUPPO, gruppo); pconti.put(PCN_GRUPPO, gruppo);
// Se e' un conto controllo se ha dei sottoconti // Se e' un conto controllo se ha dei sottoconti
if (conto != 0) if (conto != 0)
pconti.put(PCN_CONTO, conto); pconti.put(PCN_CONTO, conto);
TRectype rec1(pconti.curr()); TRectype rec1(pconti.curr());
pconti.setkey(1) ; pconti.setkey(1) ;
pconti.read(); pconti.read();
pconti.next(); pconti.next();
const bool prot = (pconti.good() && (pconti.curr() == rec1)); const bool prot = (pconti.good() && (pconti.curr() == rec1));
get_relation()->restore_status(); get_relation()->restore_status();
return prot; return prot;
} }
void CG0100_application::init_query_mode(TMask& m) void CG0100_application::init_query_mode(TMask& m)
{ {
m.show(-1); //m.send_key(K_SHIFT + K_CTRL + 's', -1); m.show(-1); //m.send_key(K_SHIFT + K_CTRL + 's', -1);
m.show(-2); //m.send_key(K_SHIFT + K_CTRL + 's', -2); m.show(-2); //m.send_key(K_SHIFT + K_CTRL + 's', -2);
m.show(-3); //m.send_key(K_SHIFT + K_CTRL + 's', -3); m.show(-3); //m.send_key(K_SHIFT + K_CTRL + 's', -3);
} }
HIDDEN bool tmcf_handler(TMask_field& f, KEY key) HIDDEN bool tmcf_handler(TMask_field& f, KEY key)
{ {
if (f.active() && key == K_SPACE) if (f.active() && key == K_SPACE)
{ {
TMask& m = f.mask(); TMask& m = f.mask();
const int conto = atoi(m.get(FLD_CM1_CONTO)); const int conto = atoi(m.get(FLD_CM1_CONTO));
const long sottoc = atol(m.get(FLD_CM1_SOTTOCONTO)); const long sottoc = atol(m.get(FLD_CM1_SOTTOCONTO));
const bool enable_sezsaldi = (sottoc != 0) || (sottoc == 0 && conto != 0 && m.get(FLD_CM1_TMCF).not_empty()); const bool enable_sezsaldi = (sottoc != 0) || (sottoc == 0 && conto != 0 && m.get(FLD_CM1_TMCF).not_empty());
m.show(FLD_CM2_SEZSALDI, enable_sezsaldi); m.show(FLD_CM2_SEZSALDI, enable_sezsaldi);
} }
return TRUE; return TRUE;
} }
void CG0100_application::init_insert_mode(TMask& m) void CG0100_application::init_insert_mode(TMask& m)
{ {
const int gruppo = atoi(m.get(FLD_CM1_GRUPPO)); const int gruppo = atoi(m.get(FLD_CM1_GRUPPO));
const int conto = atoi(m.get(FLD_CM1_CONTO)); const int conto = atoi(m.get(FLD_CM1_CONTO));
const long sottoc = atol(m.get(FLD_CM1_SOTTOCONTO)); const long sottoc = atol(m.get(FLD_CM1_SOTTOCONTO));
bool ivd_enable = TRUE; bool ivd_enable = TRUE;
if (conto == 0 && sottoc == 0) if (conto == 0 && sottoc == 0)
m.show(-1, FALSE); // send_key(K_SHIFT + K_CTRL + 'h', -1); m.show(-1, FALSE); // send_key(K_SHIFT + K_CTRL + 'h', -1);
else else
if (sottoc == 0) if (sottoc == 0)
m.show(-2, FALSE); //m.send_key(K_SHIFT + K_CTRL + 'h', -2); m.show(-2, FALSE); //m.send_key(K_SHIFT + K_CTRL + 'h', -2);
else else
m.show(-3, FALSE); //m.send_key(K_SHIFT + K_CTRL + 'h', -3); m.show(-3, FALSE); //m.send_key(K_SHIFT + K_CTRL + 'h', -3);
TLocalisamfile& pconti = _rel->lfile(); TLocalisamfile& pconti = _rel->lfile();
TString s(15), s2(1), s3(8), s4(2); TString s(15), s2(1), s3(8), s4(2);
int s1 = 0; int s1 = 0;
pconti.setkey(1) ; pconti.setkey(1) ;
int indbil = 0; int indbil = 0;
if (sottoc != 0) if (sottoc != 0)
{ {
pconti.zero(); pconti.zero();
pconti.put(PCN_GRUPPO, gruppo); pconti.put(PCN_GRUPPO, gruppo);
pconti.put(PCN_CONTO, conto); pconti.put(PCN_CONTO, conto);
pconti.read(); pconti.read();
if (pconti.good()) if (pconti.good())
{ {
s = pconti.get(PCN_CODCBL); s = pconti.get(PCN_CODCBL);
s1 = atoi(pconti.get(PCN_SEZIVD)); s1 = atoi(pconti.get(PCN_SEZIVD));
s2 = pconti.get(PCN_LETTIVD); s2 = pconti.get(PCN_LETTIVD);
s3 = pconti.get(PCN_NUMRIVD); s3 = pconti.get(PCN_NUMRIVD);
s4 = pconti.get(PCN_NUMIVD); s4 = pconti.get(PCN_NUMIVD);
indbil = pconti.get_int(PCN_INDBIL); indbil = pconti.get_int(PCN_INDBIL);
} }
ivd_enable = (s1 == 0) && s2.empty() && s3.empty() && s4.empty(); ivd_enable = (s1 == 0) && s2.empty() && s3.empty() && s4.empty();
} }
m.show(FLD_CM1_RICSER, indbil == PASSIVITA || indbil == RICAVI); m.show(FLD_CM1_RICSER, indbil == PASSIVITA || indbil == RICAVI);
if (conto != 0) if (conto != 0)
{ {
m.enable(FLD_CM1_SEZIVD, ivd_enable); m.enable(FLD_CM1_SEZIVD, ivd_enable);
m.show(FLD_CM1_LETTIVD, ivd_enable); m.show(FLD_CM1_LETTIVD, ivd_enable);
m.show(FLD_CM1_NUMRIVD, ivd_enable); m.show(FLD_CM1_NUMRIVD, ivd_enable);
m.show(FLD_CM1_NUMIVD, ivd_enable); m.show(FLD_CM1_NUMIVD, ivd_enable);
m.show(FLD_CM1_LETTIVDH, !ivd_enable); m.show(FLD_CM1_LETTIVDH, !ivd_enable);
m.show(FLD_CM1_NUMRIVDH, !ivd_enable); m.show(FLD_CM1_NUMRIVDH, !ivd_enable);
m.show(FLD_CM1_NUMIVDH, !ivd_enable); m.show(FLD_CM1_NUMIVDH, !ivd_enable);
if (!ivd_enable) if (!ivd_enable)
{ {
m.set(FLD_CM1_SEZIVD, s1); m.set(FLD_CM1_SEZIVD, s1);
m.set(FLD_CM1_LETTIVDH, s2); m.set(FLD_CM1_LETTIVDH, s2);
m.set(FLD_CM1_NUMRIVDH, s3); m.set(FLD_CM1_NUMRIVDH, s3);
m.set(FLD_CM1_NUMIVDH, s4); m.set(FLD_CM1_NUMIVDH, s4);
m.enable(FLD_CM1_SEZIVDOPP); m.enable(FLD_CM1_SEZIVDOPP);
} }
pconti.zero(); pconti.zero();
pconti.put(PCN_GRUPPO, gruppo); pconti.put(PCN_GRUPPO, gruppo);
pconti.read(); pconti.read();
if (pconti.good()) if (pconti.good())
if (s.empty()) s = pconti.get(PCN_CODCBL); if (s.empty()) s = pconti.get(PCN_CODCBL);
} }
if (s.not_empty()) if (s.not_empty())
{ {
m.set(FLD_CM1_CODANALISIH, s); m.set(FLD_CM1_CODANALISIH, s);
m.show(FLD_CM1_CODANALISIH); m.show(FLD_CM1_CODANALISIH);
m.hide(FLD_CM1_CODTABANALISI); m.hide(FLD_CM1_CODTABANALISI);
} }
else else
{ {
m.show(FLD_CM1_CODTABANALISI); m.show(FLD_CM1_CODTABANALISI);
m.hide(FLD_CM1_CODANALISIH); m.hide(FLD_CM1_CODANALISIH);
} }
const bool enable_sezsaldi = (sottoc != 0) || (sottoc == 0 && conto != 0 && m.get(FLD_CM1_TMCF).not_empty()); const bool enable_sezsaldi = (sottoc != 0) || (sottoc == 0 && conto != 0 && m.get(FLD_CM1_TMCF).not_empty());
m.show(FLD_CM2_SEZSALDI, enable_sezsaldi); m.show(FLD_CM2_SEZSALDI, enable_sezsaldi);
} }
HIDDEN bool gruppo_handler(TMask_field& f, KEY key) HIDDEN bool gruppo_handler(TMask_field& f, KEY key)
{ {
if (key == K_ENTER) if (key == K_ENTER)
{ {
const TMask& m = f.mask(); const TMask& m = f.mask();
const int gruppo = atoi(m.get(FLD_CM1_GRUPPO)); const int gruppo = atoi(m.get(FLD_CM1_GRUPPO));
const int conto = atoi(m.get(FLD_CM1_CONTO)); const int conto = atoi(m.get(FLD_CM1_CONTO));
TLocalisamfile& pconti = app().get_relation()->lfile(); TLocalisamfile& pconti = app().get_relation()->lfile();
if (gruppo != 0 && conto != 0) if (gruppo != 0 && conto != 0)
{ {
pconti.zero() ; pconti.zero() ;
pconti.put(PCN_GRUPPO, gruppo) ; pconti.put(PCN_GRUPPO, gruppo) ;
pconti.setkey(1) ; pconti.setkey(1) ;
pconti.read(); pconti.read();
if (pconti.bad()) if (pconti.bad())
return f.warning_box ("Il gruppo non esiste"); return f.warning_box ("Il gruppo non esiste");
} }
} }
return TRUE; return TRUE;
} }
HIDDEN bool conto_handler(TMask_field& f, KEY key) HIDDEN bool conto_handler(TMask_field& f, KEY key)
{ {
if (key == K_ENTER) if (key == K_ENTER)
{ {
const TMask& m = f.mask(); const TMask& m = f.mask();
const int gruppo = atoi(m.get(FLD_CM1_GRUPPO)); const int gruppo = atoi(m.get(FLD_CM1_GRUPPO));
const int conto = atoi(m.get(FLD_CM1_CONTO)); const int conto = atoi(m.get(FLD_CM1_CONTO));
const long sottoc = atol(m.get(FLD_CM1_SOTTOCONTO)); const long sottoc = atol(m.get(FLD_CM1_SOTTOCONTO));
TLocalisamfile& pconti = app().get_relation()->lfile(); TLocalisamfile& pconti = app().get_relation()->lfile();
if (gruppo != 0 && conto != 0 && sottoc != 0) if (gruppo != 0 && conto != 0 && sottoc != 0)
{ {
pconti.zero() ; pconti.zero() ;
pconti.put(PCN_GRUPPO, gruppo) ; pconti.put(PCN_GRUPPO, gruppo) ;
pconti.put(PCN_CONTO, conto) ; pconti.put(PCN_CONTO, conto) ;
pconti.setkey(1) ; pconti.setkey(1) ;
pconti.read(); pconti.read();
if (pconti.bad()) if (pconti.bad())
return m.field(FLD_CM1_CONTO).warning_box ("Il conto non esiste"); return m.field(FLD_CM1_CONTO).warning_box ("Il conto non esiste");
else else
{ {
if (pconti.get(PCN_TMCF).not_empty()) if (pconti.get(PCN_TMCF).not_empty())
return m.field(FLD_CM1_SOTTOCONTO).warning_box ("Non e' possibile inserire un sottoconto di un conto relativo ad un cliente/fornitore"); return m.field(FLD_CM1_SOTTOCONTO).warning_box ("Non e' possibile inserire un sottoconto di un conto relativo ad un cliente/fornitore");
} }
} }
} }
return TRUE; return TRUE;
} }
HIDDEN bool sottoc_handler(TMask_field& f, KEY key) HIDDEN bool sottoc_handler(TMask_field& f, KEY key)
{ {
if (key == K_TAB) if (key == K_TAB)
{ {
const int gruppo = f.mask().get_int(FLD_CM1_GRUPPO); const int gruppo = f.mask().get_int(FLD_CM1_GRUPPO);
if (gruppo == 0) return TRUE; if (gruppo == 0) return TRUE;
const int conto = f.mask().get_int(FLD_CM1_CONTO); const int conto = f.mask().get_int(FLD_CM1_CONTO);
const long sottoconto = f.mask().get_long(FLD_CM1_SOTTOCONTO); const long sottoconto = f.mask().get_long(FLD_CM1_SOTTOCONTO);
if (sottoconto != 0 && conto == 0) if (sottoconto != 0 && conto == 0)
return f.mask().field(FLD_CM1_CONTO).error_box("Manca il conto"); return f.mask().field(FLD_CM1_CONTO).error_box("Manca il conto");
return f.mask().stop_run(K_AUTO_ENTER); return f.mask().stop_run(K_AUTO_ENTER);
} }
return TRUE; return TRUE;
} }
bool CG0100_application::user_create() bool CG0100_application::user_create()
{ {
_msk = new TMask("cg0100a") ; _msk = new TMask("cg0100a") ;
_msk->set_handler(FLD_CM1_GRUPPO, gruppo_handler); _msk->set_handler(FLD_CM1_GRUPPO, gruppo_handler);
_msk->set_handler(FLD_CM1_CONTO, conto_handler); _msk->set_handler(FLD_CM1_CONTO, conto_handler);
_msk->set_handler(FLD_CM1_SOTTOCONTO, sottoc_handler); _msk->set_handler(FLD_CM1_SOTTOCONTO, sottoc_handler);
_msk->set_handler(FLD_CM1_TMCF, tmcf_handler); _msk->set_handler(FLD_CM1_TMCF, tmcf_handler);
_rel = new TRelation(LF_PCON); _rel = new TRelation(LF_PCON);
_saldi = new TLocalisamfile(LF_SALDI); _saldi = new TLocalisamfile(LF_SALDI);
_saldi->setkey(2); _saldi->setkey(2);
set_search_field(FLD_CM1_GRUPPO); set_search_field(FLD_CM1_GRUPPO);
return TRUE; return TRUE;
} }
bool CG0100_application::user_destroy() bool CG0100_application::user_destroy()
{ {
delete _msk; delete _msk;
delete _rel; delete _rel;
delete _saldi; delete _saldi;
return TRUE; return TRUE;
} }
int cg0100(int argc, char* argv[]) int cg0100(int argc, char* argv[])
{ {
CG0100_application a ; CG0100_application a ;
a.run(argc, argv, "Piano dei conti"); a.run(argc, argv, "Piano dei conti");
return 0; return 0;
} }

708
cg/cg0100a.uml
View File

@ -1,354 +1,354 @@
#include "cg0100.h" #include "cg0100.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Piano dei conti " 0 -1 0 19 PAGE "Piano dei conti " 0 -1 0 19
GROUPBOX DLG_NULL 76 5 GROUPBOX DLG_NULL 76 5
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
FLAGS "R" FLAGS "R"
END END
NUMBER FLD_CM1_GRUPPO 3 NUMBER FLD_CM1_GRUPPO 3
BEGIN BEGIN
PROMPT 2 1 "Gruppo " PROMPT 2 1 "Gruppo "
HELP "Codice del gruppo" HELP "Codice del gruppo"
FIELD LF_PCON->GRUPPO FIELD LF_PCON->GRUPPO
FLAGS "R" FLAGS "R"
KEY 1 KEY 1
USE LF_PCON KEY 1 SELECT CONTO="" USE LF_PCON KEY 1 SELECT CONTO=""
INPUT GRUPPO FLD_CM1_GRUPPO INPUT GRUPPO FLD_CM1_GRUPPO
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT FLD_CM1_GRUPPO GRUPPO OUTPUT FLD_CM1_GRUPPO GRUPPO
OUTPUT FLD_CM1_DESCG DESCR OUTPUT FLD_CM1_DESCG DESCR
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING FLD_CM1_DESCG 50 STRING FLD_CM1_DESCG 50
BEGIN BEGIN
PROMPT 23 1 "" PROMPT 23 1 ""
FLAGS "D" FLAGS "D"
END END
NUMBER FLD_CM1_CONTO 3 NUMBER FLD_CM1_CONTO 3
BEGIN BEGIN
PROMPT 2 2 "Conto " PROMPT 2 2 "Conto "
HELP "Codice dell'eventuale conto" HELP "Codice dell'eventuale conto"
FIELD LF_PCON->CONTO FIELD LF_PCON->CONTO
FLAGS "R" FLAGS "R"
KEY 1 KEY 1
USE LF_PCON KEY 1 SELECT ((CONTO!="") && (SOTTOCONTO="")) USE LF_PCON KEY 1 SELECT ((CONTO!="") && (SOTTOCONTO=""))
COPY INPUT FLD_CM1_GRUPPO COPY INPUT FLD_CM1_GRUPPO
INPUT CONTO FLD_CM1_CONTO INPUT CONTO FLD_CM1_CONTO
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT FLD_CM1_GRUPPO GRUPPO OUTPUT FLD_CM1_GRUPPO GRUPPO
OUTPUT FLD_CM1_CONTO CONTO OUTPUT FLD_CM1_CONTO CONTO
OUTPUT FLD_CM1_DESCC DESCR OUTPUT FLD_CM1_DESCC DESCR
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING FLD_CM1_DESCC 50 STRING FLD_CM1_DESCC 50
BEGIN BEGIN
PROMPT 23 2 "" PROMPT 23 2 ""
FLAGS "D" FLAGS "D"
END END
NUMBER FLD_CM1_SOTTOCONTO 6 NUMBER FLD_CM1_SOTTOCONTO 6
BEGIN BEGIN
PROMPT 2 3 "Sottoconto " PROMPT 2 3 "Sottoconto "
HELP "Codice dell'eventuale sottoconto" HELP "Codice dell'eventuale sottoconto"
FIELD LF_PCON->SOTTOCONTO FIELD LF_PCON->SOTTOCONTO
FLAGS "R" FLAGS "R"
KEY 1 KEY 1
USE LF_PCON KEY 1 SELECT SOTTOCONTO!="" USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
COPY INPUT FLD_CM1_CONTO COPY INPUT FLD_CM1_CONTO
INPUT SOTTOCONTO FLD_CM1_SOTTOCONTO INPUT SOTTOCONTO FLD_CM1_SOTTOCONTO
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Sospeso" SOSPESO DISPLAY "Sospeso" SOSPESO
DISPLAY "Descrizione@70" DESCR DISPLAY "Descrizione@70" DESCR
OUTPUT FLD_CM1_SOTTOCONTO SOTTOCONTO OUTPUT FLD_CM1_SOTTOCONTO SOTTOCONTO
OUTPUT FLD_CM1_GRUPPO GRUPPO OUTPUT FLD_CM1_GRUPPO GRUPPO
OUTPUT FLD_CM1_CONTO CONTO OUTPUT FLD_CM1_CONTO CONTO
OUTPUT FLD_CM1_DESC DESCR OUTPUT FLD_CM1_DESC DESCR
END END
STRING FLD_CM1_DESC 50 STRING FLD_CM1_DESC 50
BEGIN BEGIN
PROMPT 23 3 "" PROMPT 23 3 ""
FIELD LF_PCON->DESCR FIELD LF_PCON->DESCR
KEY 2 KEY 2
USE LF_PCON KEY 2 USE LF_PCON KEY 2
INPUT DESCR FLD_CM1_DESC INPUT DESCR FLD_CM1_DESC
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Sospeso" SOSPESO DISPLAY "Sospeso" SOSPESO
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Sottoconto " SOTTOCONTO DISPLAY "Sottoconto " SOTTOCONTO
COPY OUTPUT FLD_CM1_SOTTOCONTO COPY OUTPUT FLD_CM1_SOTTOCONTO
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
HELP "Descrizione del gruppo o del conto o del sottoconto" HELP "Descrizione del gruppo o del conto o del sottoconto"
WARNING "Manca la descrizione" WARNING "Manca la descrizione"
END END
NUMBER FLD_CM1_CODTABANALISI 10 NUMBER FLD_CM1_CODTABANALISI 10
BEGIN BEGIN
PROMPT 1 5 "Codice Tabella Analisi " PROMPT 1 5 "Codice Tabella Analisi "
HELP "Codice di raggruppamento per l'analisi di bilancio" HELP "Codice di raggruppamento per l'analisi di bilancio"
FIELD LF_PCON->CODCBL FIELD LF_PCON->CODCBL
FLAGS "R" FLAGS "R"
END END
NUMBER FLD_CM1_CODANALISIH 10 NUMBER FLD_CM1_CODANALISIH 10
BEGIN BEGIN
PROMPT 1 5 "Codice Tabella Analisi " PROMPT 1 5 "Codice Tabella Analisi "
FLAGS "RHD" FLAGS "RHD"
END END
LIST FLD_CM1_INDBIL 1 22 LIST FLD_CM1_INDBIL 1 22
BEGIN BEGIN
PROMPT 1 6 "Sezione di bilancio " PROMPT 1 6 "Sezione di bilancio "
FIELD LF_PCON->INDBIL FIELD LF_PCON->INDBIL
GROUP 1 3 GROUP 1 3
HELP "Sezione di appartenenza del conto" HELP "Sezione di appartenenza del conto"
ITEM "1|1. Attivita'" ITEM "1|1. Attivita'"
ITEM "2|2. Passivita'" ITEM "2|2. Passivita'"
ITEM "3|3. Costi" ITEM "3|3. Costi"
ITEM "4|4. Ricavi" ITEM "4|4. Ricavi"
ITEM "5|5. Conti d'ordine" ITEM "5|5. Conti d'ordine"
END END
LIST FLD_CM1_SEZIVD 1 22 LIST FLD_CM1_SEZIVD 1 22
BEGIN BEGIN
PROMPT 1 7 "Sez. e classe IV dir. " PROMPT 1 7 "Sez. e classe IV dir. "
FIELD LF_PCON->SEZIVD FIELD LF_PCON->SEZIVD
ITEM "0|0. Nessuna" MESSAGE CLEAR,5@|CLEAR,6@ ITEM "0|0. Nessuna" MESSAGE CLEAR,5@|CLEAR,6@
ITEM "1|1. Attivita'" MESSAGE ENABLE,5@|ENABLE,6@ ITEM "1|1. Attivita'" MESSAGE ENABLE,5@|ENABLE,6@
ITEM "2|2. Passivita'" MESSAGE ENABLE,5@|ENABLE,6@ ITEM "2|2. Passivita'" MESSAGE ENABLE,5@|ENABLE,6@
ITEM "5|5. Conto d'ordine" MESSAGE CLEAR,5@|ENABLE,6@ ITEM "5|5. Conto d'ordine" MESSAGE CLEAR,5@|ENABLE,6@
ITEM "6|6. C.ordine attivo" MESSAGE CLEAR,5@|ENABLE,6@ ITEM "6|6. C.ordine attivo" MESSAGE CLEAR,5@|ENABLE,6@
ITEM "7|7. C.ordine passivo" MESSAGE CLEAR,5@|ENABLE,6@ ITEM "7|7. C.ordine passivo" MESSAGE CLEAR,5@|ENABLE,6@
ITEM "9|9. Conto economico" MESSAGE ENABLE,5@|ENABLE,6@ ITEM "9|9. Conto economico" MESSAGE ENABLE,5@|ENABLE,6@
HELP "Codice del conto secondo la IV direttiva CEE" HELP "Codice del conto secondo la IV direttiva CEE"
GROUP 1 4 GROUP 1 4
END END
STRING FLD_CM1_LETTIVD 1 1 STRING FLD_CM1_LETTIVD 1 1
BEGIN BEGIN
PROMPT 56 7 "" PROMPT 56 7 ""
HELP "Codice del conto secondo la IV direttiva CEE" HELP "Codice del conto secondo la IV direttiva CEE"
FIELD LF_PCON->LETTIVD FIELD LF_PCON->LETTIVD
GROUP 1 5 GROUP 1 5
FLAGS "U" FLAGS "U"
END END
STRING FLD_CM1_LETTIVDH 1 STRING FLD_CM1_LETTIVDH 1
BEGIN BEGIN
PROMPT 56 7 "" PROMPT 56 7 ""
FLAGS "HDU" FLAGS "HDU"
GROUP 1 5 GROUP 1 5
END END
NUMBER FLD_CM1_NUMRIVD 8 4 NUMBER FLD_CM1_NUMRIVD 8 4
BEGIN BEGIN
PROMPT 60 7 "" PROMPT 60 7 ""
HELP "Codice del conto secondo la IV direttiva CEE" HELP "Codice del conto secondo la IV direttiva CEE"
FIELD LF_PCON->NUMRIVD FIELD LF_PCON->NUMRIVD
GROUP 1 5 GROUP 1 5
FLAGS "MZ" FLAGS "MZ"
END END
NUMBER FLD_CM1_NUMRIVDH 8 4 NUMBER FLD_CM1_NUMRIVDH 8 4
BEGIN BEGIN
PROMPT 60 7 "" PROMPT 60 7 ""
FLAGS "HDMZ" FLAGS "HDMZ"
GROUP 1 5 GROUP 1 5
END END
NUMBER FLD_CM1_NUMIVD 2 NUMBER FLD_CM1_NUMIVD 2
BEGIN BEGIN
PROMPT 71 7 "" PROMPT 71 7 ""
HELP "Codice del conto secondo la IV direttiva CEE" HELP "Codice del conto secondo la IV direttiva CEE"
FIELD LF_PCON->NUMIVD FIELD LF_PCON->NUMIVD
FLAGS "RZ" FLAGS "RZ"
GROUP 1 5 GROUP 1 5
USE %IVD USE %IVD
INPUT CODTAB[1,1] FLD_CM1_SEZIVD INPUT CODTAB[1,1] FLD_CM1_SEZIVD
INPUT CODTAB[2,2] FLD_CM1_LETTIVD INPUT CODTAB[2,2] FLD_CM1_LETTIVD
INPUT CODTAB[3,6] FLD_CM1_NUMRIVD INPUT CODTAB[3,6] FLD_CM1_NUMRIVD
INPUT CODTAB[7,8] FLD_CM1_NUMIVD INPUT CODTAB[7,8] FLD_CM1_NUMIVD
DISPLAY "Sezione" CODTAB[1,1] DISPLAY "Sezione" CODTAB[1,1]
DISPLAY "Lettera" CODTAB[2,2] DISPLAY "Lettera" CODTAB[2,2]
DISPLAY "Classe @M" CODTAB[3,6] DISPLAY "Classe @M" CODTAB[3,6]
DISPLAY "Numero" CODTAB[7,8] DISPLAY "Numero" CODTAB[7,8]
DISPLAY "Descrizione@70" S0 DISPLAY "Descrizione@70" S0
OUTPUT FLD_CM1_SEZIVD CODTAB[1,1] OUTPUT FLD_CM1_SEZIVD CODTAB[1,1]
OUTPUT FLD_CM1_LETTIVD CODTAB[2,2] OUTPUT FLD_CM1_LETTIVD CODTAB[2,2]
OUTPUT FLD_CM1_NUMRIVD CODTAB[3,6] OUTPUT FLD_CM1_NUMRIVD CODTAB[3,6]
OUTPUT FLD_CM1_NUMIVD CODTAB[7,8] OUTPUT FLD_CM1_NUMIVD CODTAB[7,8]
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Codice non presente" WARNING "Codice non presente"
END END
NUMBER FLD_CM1_NUMIVDH 2 NUMBER FLD_CM1_NUMIVDH 2
BEGIN BEGIN
PROMPT 71 7 "" PROMPT 71 7 ""
FLAGS "HDRZ" FLAGS "HDRZ"
GROUP 1 5 GROUP 1 5
END END
LIST FLD_CM1_SEZIVDOPP 1 22 LIST FLD_CM1_SEZIVDOPP 1 22
BEGIN BEGIN
PROMPT 1 8 "Classe segno opposto " PROMPT 1 8 "Classe segno opposto "
FIELD LF_PCON->SEZIVDOPP FIELD LF_PCON->SEZIVDOPP
GROUP 1 2 4 6 GROUP 1 2 4 6
ITEM "0|0. Nessuna" MESSAGE CLEAR,7@ ITEM "0|0. Nessuna" MESSAGE CLEAR,7@
ITEM "1|1. Attivita'" MESSAGE ENABLE,7@ ITEM "1|1. Attivita'" MESSAGE ENABLE,7@
ITEM "2|2. Passivita'" MESSAGE ENABLE,7@ ITEM "2|2. Passivita'" MESSAGE ENABLE,7@
ITEM "5|5. Conto d'ordine" MESSAGE CLEAR,7@ ITEM "5|5. Conto d'ordine" MESSAGE CLEAR,7@
ITEM "6|6. C.ordine attivo" MESSAGE CLEAR,7@ ITEM "6|6. C.ordine attivo" MESSAGE CLEAR,7@
ITEM "7|7. C.ordine passivo" MESSAGE CLEAR,7@ ITEM "7|7. C.ordine passivo" MESSAGE CLEAR,7@
ITEM "9|9. Conto economico" MESSAGE ENABLE,7@ ITEM "9|9. Conto economico" MESSAGE ENABLE,7@
HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE" HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
END END
STRING FLD_CM1_LETTIVDOPP 1 STRING FLD_CM1_LETTIVDOPP 1
BEGIN BEGIN
PROMPT 56 8 "" PROMPT 56 8 ""
HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE" HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
FIELD LF_PCON->LETTIVDOPP FIELD LF_PCON->LETTIVDOPP
FLAGS "U" FLAGS "U"
GROUP 1 2 4 7 GROUP 1 2 4 7
END END
NUMBER FLD_CM1_NUMRIVDOPP 8 4 NUMBER FLD_CM1_NUMRIVDOPP 8 4
BEGIN BEGIN
PROMPT 60 8 "" PROMPT 60 8 ""
HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE" HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
FIELD LF_PCON->NUMRIVDOPP FIELD LF_PCON->NUMRIVDOPP
FLAGS "MZ" FLAGS "MZ"
GROUP 1 2 4 7 GROUP 1 2 4 7
END END
NUMBER FLD_CM1_NUMIVDOPP 2 NUMBER FLD_CM1_NUMIVDOPP 2
BEGIN BEGIN
PROMPT 71 8 "" PROMPT 71 8 ""
HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE" HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
FIELD LF_PCON->NUMIVDOPP FIELD LF_PCON->NUMIVDOPP
FLAGS "RZ" FLAGS "RZ"
GROUP 1 2 4 7 GROUP 1 2 4 7
COPY USE FLD_CM1_NUMIVD COPY USE FLD_CM1_NUMIVD
INPUT CODTAB[1,1] FLD_CM1_SEZIVDOPP INPUT CODTAB[1,1] FLD_CM1_SEZIVDOPP
INPUT CODTAB[2,2] FLD_CM1_LETTIVDOPP INPUT CODTAB[2,2] FLD_CM1_LETTIVDOPP
INPUT CODTAB[3,6] FLD_CM1_NUMRIVDOPP INPUT CODTAB[3,6] FLD_CM1_NUMRIVDOPP
INPUT CODTAB[7,8] FLD_CM1_NUMIVDOPP INPUT CODTAB[7,8] FLD_CM1_NUMIVDOPP
COPY DISPLAY FLD_CM1_NUMIVD COPY DISPLAY FLD_CM1_NUMIVD
OUTPUT FLD_CM1_SEZIVDOPP CODTAB[1,1] OUTPUT FLD_CM1_SEZIVDOPP CODTAB[1,1]
OUTPUT FLD_CM1_LETTIVDOPP CODTAB[2,2] OUTPUT FLD_CM1_LETTIVDOPP CODTAB[2,2]
OUTPUT FLD_CM1_NUMRIVDOPP CODTAB[3,6] OUTPUT FLD_CM1_NUMRIVDOPP CODTAB[3,6]
OUTPUT FLD_CM1_NUMIVDOPP CODTAB[7,8] OUTPUT FLD_CM1_NUMIVDOPP CODTAB[7,8]
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Codice non presente" WARNING "Codice non presente"
END END
LIST FLD_CM1_TIPOSPRIC 1 50 LIST FLD_CM1_TIPOSPRIC 1 50
BEGIN BEGIN
PROMPT 1 9 "Tipo Spesa/Ricavo " PROMPT 1 9 "Tipo Spesa/Ricavo "
FIELD LF_PCON->TIPOSPRIC FIELD LF_PCON->TIPOSPRIC
GROUP 1 2 GROUP 1 2
HELP "Specificare il tipo do conto" HELP "Specificare il tipo do conto"
ITEM "0|0. Acquisti o vendite in genere" ITEM "0|0. Acquisti o vendite in genere"
ITEM "1|1. Acquisti beni per rivendita" ITEM "1|1. Acquisti beni per rivendita"
ITEM "2|2. Acquisti beni ammortizzabili" ITEM "2|2. Acquisti beni ammortizzabili"
ITEM "3|3. Acquisti beni ammortizzabili con detr. 6%" ITEM "3|3. Acquisti beni ammortizzabili con detr. 6%"
ITEM "4|4. Vendita beni strumentali art. 17" ITEM "4|4. Vendita beni strumentali art. 17"
ITEM "5|5. Beni per rivendita da non ventilare" ITEM "5|5. Beni per rivendita da non ventilare"
ITEM "8|8. Altri beni strumentali acquistati in leasing" ITEM "8|8. Altri beni strumentali acquistati in leasing"
ITEM "9|9. Spese Generali" ITEM "9|9. Spese Generali"
END END
LIST FLD_CM1_RICSER 1 18 LIST FLD_CM1_RICSER 1 18
BEGIN BEGIN
PROMPT 1 10 "Ricavi per servizi " PROMPT 1 10 "Ricavi per servizi "
FIELD RICSER FIELD RICSER
FLAGS "H" FLAGS "H"
ITEM "0|Altre attivita'" ITEM "0|Altre attivita'"
ITEM "1|Servizi" ITEM "1|Servizi"
END END
LIST FLD_CM1_TMCF 1 13 LIST FLD_CM1_TMCF 1 13
BEGIN BEGIN
PROMPT 1 11 "Tipo sottoconti " PROMPT 1 11 "Tipo sottoconti "
FIELD LF_PCON->TMCF FIELD LF_PCON->TMCF
GROUP 1 3 GROUP 1 3
HELP "Tipo dei sottoconti (Normale o clienti/fornitori)" HELP "Tipo dei sottoconti (Normale o clienti/fornitori)"
ITEM " |Normali" ITEM " |Normali"
ITEM "C|Clienti" ITEM "C|Clienti"
ITEM "F|Fornitori" ITEM "F|Fornitori"
END END
LIST FLD_CM2_SEZSALDI 1 10 LIST FLD_CM2_SEZSALDI 1 10
BEGIN BEGIN
PROMPT 1 12 "Controllo saldo primanota " PROMPT 1 12 "Controllo saldo primanota "
HELP "Tipo di controllo del saldo in prima nota" HELP "Tipo di controllo del saldo in prima nota"
FIELD LF_PCON->SEZSALDI FIELD LF_PCON->SEZSALDI
GROUP 1 GROUP 1
ITEM " |Nessuno" ITEM " |Nessuno"
ITEM "A|Avere" ITEM "A|Avere"
ITEM "D|Dare" ITEM "D|Dare"
END END
BOOLEAN FLD_CM2_STSOTTBIL BOOLEAN FLD_CM2_STSOTTBIL
BEGIN BEGIN
PROMPT 1 14 "Stampa dettaglio sottoconti su bilanci " PROMPT 1 14 "Stampa dettaglio sottoconti su bilanci "
HELP "Indicare se stampare il dettaglio dei sottoconti nei bilanci di verifica" HELP "Indicare se stampare il dettaglio dei sottoconti nei bilanci di verifica"
FIELD LF_PCON->STSOTTBIL FIELD LF_PCON->STSOTTBIL
GROUP 1 3 GROUP 1 3
END END
BOOLEAN FLD_CM2_COMPENS BOOLEAN FLD_CM2_COMPENS
BEGIN BEGIN
PROMPT 50 14 "Compensazione saldi " PROMPT 50 14 "Compensazione saldi "
HELP "Indicare se e' ammessa la compensazione dei saldi" HELP "Indicare se e' ammessa la compensazione dei saldi"
FIELD LF_PCON->COMPENS FIELD LF_PCON->COMPENS
GROUP 1 3 GROUP 1 3
END END
BOOLEAN FLD_CM2_STSOTTAB BOOLEAN FLD_CM2_STSOTTAB
BEGIN BEGIN
PROMPT 1 15 "Stampa dettaglio sottoconti su analisi " PROMPT 1 15 "Stampa dettaglio sottoconti su analisi "
HELP "Indicare se stampare il dettaglio dei sottoconti nell'analisi di bilancio" HELP "Indicare se stampare il dettaglio dei sottoconti nell'analisi di bilancio"
FIELD LF_PCON->STSOTTAB FIELD LF_PCON->STSOTTAB
GROUP 1 3 GROUP 1 3
MESSAGE COPY,FLD_CM2_STSOTTABS MESSAGE COPY,FLD_CM2_STSOTTABS
END END
BOOLEAN FLD_CM2_STSOTTABS BOOLEAN FLD_CM2_STSOTTABS
BEGIN BEGIN
PROMPT 1 15 "Stampa dettaglio movimenti su analisi " PROMPT 1 15 "Stampa dettaglio movimenti su analisi "
FIELD LF_PCON->STSOTTAB FIELD LF_PCON->STSOTTAB
FLAGS "H" FLAGS "H"
GROUP 1 2 GROUP 1 2
MESSAGE COPY,FLD_CM2_STSOTTAB MESSAGE COPY,FLD_CM2_STSOTTAB
END END
BOOLEAN FLD_CM2_SOSPESO BOOLEAN FLD_CM2_SOSPESO
BEGIN BEGIN
PROMPT 50 15 "Conto sospeso" PROMPT 50 15 "Conto sospeso"
HELP "Indicare se sospendere il conto in prima nota" HELP "Indicare se sospendere il conto in prima nota"
FIELD LF_PCON->SOSPESO FIELD LF_PCON->SOSPESO
GROUP 1 2 GROUP 1 2
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

311
cg/cg0200.h
View File

@ -1,157 +1,154 @@
#ifndef __CG0200_H #ifndef __CG0200_H
#define __CG0200_H #define __CG0200_H
//#define PZ_COMUNI 0 #define TCLI "C"
#define TFOR "F"
// posizione file comuni in _arrfiles
#define TCLI "C" #define F_TIPOCF 101
#define TFOR "F" #define F_CODCF 102
#define F_RAGSOC 103
#define F_INDCF 104
#define F_CIVCF 105
#define F_TIPOCF 101 #define F_STATOCF 106
#define F_CODCF 102 #define F_COMCF 107
#define F_RAGSOC 103 #define F_CAPCF 108
#define F_INDCF 104 #define F_COFI 109
#define F_CIVCF 105 #define F_STATOPAIV 110
#define F_STATOCF 106 #define F_PAIV 111
#define F_COMCF 107 #define F_TIPOPERS 112
#define F_CAPCF 108 #define F_ALLEG 113
#define F_COFI 109 #define F_GRUPPO 114
#define F_STATOPAIV 110 #define F_CONTO 115
#define F_PAIV 111 #define F_DESCONTO 137
#define F_TIPOPERS 112 #define F_GRUPPORIC 116
#define F_ALLEG 113 #define F_CONTORIC 117
#define F_GRUPPO 114 #define F_SOTTOCRIC 118
#define F_CONTO 115 #define F_DESCRIC 138
#define F_DESCONTO 137
#define F_GRUPPORIC 116 #define F_TIPOAPER 119
#define F_CONTORIC 117 #define F_CODANAGPER 120
#define F_SOTTOCRIC 118 #define F_PTEL 121
#define F_DESCRIC 138 #define F_TEL 122
#define F_PFAX 123
#define F_TIPOAPER 119 #define F_FAX 124
#define F_CODANAGPER 120 #define F_PTELEX 125
#define F_PTEL 121 #define F_TELEX 126
#define F_TEL 122 #define F_DATANASC 127
#define F_PFAX 123 #define F_STATONASC 128
#define F_FAX 124 #define F_COMNASC 129
#define F_PTELEX 125 #define F_DENCOMNASC 135
#define F_TELEX 126 #define F_CODSTAT 130
#define F_DATANASC 127 #define F_CODPAG 131
#define F_STATONASC 128 #define F_RAGSOC1 132
#define F_COMNASC 129 #define F_CODABI 133
#define F_DENCOMNASC 135 #define F_CODBAN 134
#define F_CODSTAT 130 #define F_DESBAN 140
#define F_CODPAG 131 #define F_CODVAL 136
#define F_RAGSOC1 132 #define F_FIDO 139
#define F_CODABI 133 #define F_LOCALITACF 144
#define F_CODBAN 134 #define F_CODAG 145
#define F_CODVAL 136 #define F_SOSPESO 146
#define F_FIDO 139 #define F_CODALLEG 148
#define F_LOCALITACF 144 #define F_OCCASIONALE 149
#define F_CODAG 145 #define F_DENCOMCF 150
#define F_SOSPESO 146 #define F_PROVCF 152
#define F_CODALLEG 148
#define F_OCCASIONALE 149 #define F_RICALT 151
#define F_DENCOMCF 150 #define F_PTEL2 153
#define F_PROVCF 152 #define F_TEL2 154
#define F_PTEL3 155
#define F_RICALT 151 #define F_TEL3 156
#define F_PTEL2 153 #define F_CODLIN 157
#define F_TEL2 154
#define F_PTEL3 155 #define F_TIPOCFVEN 158
#define F_TEL3 156 #define F_CODCFVEN 159
#define F_CODLIN 157 #define F_CODINDDOC 160
#define F_CODNOTE 161
#define F_TIPOCFVEN 158 #define F_CODLEG 162
#define F_CODCFVEN 159 #define F_CODCATC 163
#define F_CODINDDOC 160 #define F_CODZONA 164
#define F_CODNOTE 161 #define F_PROVV 165
#define F_CODLEG 162 #define F_LIQPAG 166
#define F_CODCATC 163 #define F_CODPRCF 167
#define F_CODZONA 164 #define F_CODINDSP 168
#define F_PROVV 165 #define F_CODPORTO 169
#define F_LIQPAG 166 #define F_RAGGDOC 170
#define F_CODPRCF 167 #define F_NCOPIE 171
#define F_CODINDSP 168 #define F_CODCFASS 172
#define F_CODPORTO 169 #define F_ASSFIS 173
#define F_RAGGDOC 170 #define F_FATTSOSP 174
#define F_NCOPIE 171 #define F_VSNRPROT 175
#define F_CODCFASS 172 #define F_VSDATAREG 176
#define F_ASSFIS 173 #define F_NSNRPROT 177
#define F_FATTSOSP 174 #define F_NSDATAREG 178
#define F_VSNRPROT 175 #define F_ADDBNS1500 179
#define F_VSDATAREG 176 #define F_CATFIN 180
#define F_NSNRPROT 177 #define F_CODABIPR 181
#define F_NSDATAREG 178 #define F_CODBANPR 182
#define F_ADDBNS1500 179 #define F_CODINDEFF 183
#define F_CATFIN 180 #define F_EMEFFRICH 184
#define F_CODABIPR 181 #define F_CODNOTESP1 185
#define F_CODBANPR 182 #define F_CODNOTESP2 186
#define F_CODINDEFF 183 #define F_CODSPMEZZO 187
#define F_EMEFFRICH 184 #define F_IMPMINEFF 188
#define F_CODNOTESP1 185 #define F_NONACCEFF 189
#define F_CODNOTESP2 186 #define F_NONSCADEFF 190
#define F_CODSPMEZZO 187 #define F_ADDBOLLIRB 191
#define F_IMPMINEFF 188 #define F_ADDBOLLITR 192
#define F_NONACCEFF 189 #define F_ADDSPINC 193
#define F_NONSCADEFF 190 #define F_IVARID 194
#define F_ADDBOLLIRB 191 #define F_GESTCONTR 195
#define F_ADDBOLLITR 192 #define F_CATVEN 196
#define F_ADDSPINC 193 #define F_CODLIST 197
#define F_IVARID 194 #define F_CODSCINC 198
#define F_GESTCONTR 195 #define F_SCONTOCL 199
#define F_CATVEN 196 #define F_CODMAG 200
#define F_CODLIST 197 #define F_CODSP1 201
#define F_CODSCINC 198 #define F_CODSP2 202
#define F_SCONTOCL 199 #define F_CODSP3 203
#define F_CODMAG 200 #define F_CODSP4 204
#define F_CODSP1 201 #define F_PROFSOLL 205
#define F_CODSP2 202 #define F_MAXSOLL 206
#define F_CODSP3 203 #define F_DATAESC 207
#define F_CODSP4 204 #define F_DATASOLL 208
#define F_PROFSOLL 205 #define F_SCONTOR 209
#define F_MAXSOLL 206 #define F_TITOLO 210
#define F_DATAESC 207 #define F_RAGGOR 211
#define F_DATASOLL 208 #define F_MINORD 212
#define F_SCONTOR 209 #define F_MAXORD 213
#define F_TITOLO 210 #define F_PREVORD 214
#define F_RAGGOR 211 #define F_TIPOEVORD 215
#define F_MINORD 212 #define F_SHEET_G_VEN 216
#define F_MAXORD 213 #define F_CODVETT1 217
#define F_PREVORD 214 #define F_CODVETT2 218
#define F_TIPOEVORD 215 #define F_CODVETT3 219
#define F_SHEET_G_VEN 216 #define F_RAGSOCALLEG 220
#define F_CODVETT1 217 #define F_CODCASS 221
#define F_CODVETT2 218 #define F_CODFASS 222
#define F_CODVETT3 219 #define F_TEMP 223
#define F_RAGSOCALLEG 220 #define F_DESTACF 224
#define F_CODCASS 221
#define F_CODFASS 222 #define DLG_RIC 300
#define F_TEMP 223 #define DLG_CST 301
#define F_RAGSOCA 302
#define DLG_RIC 300
#define DLG_CST 301
#define F_RAGSOCA 302 //////////////////////////////////////
// Identificatori per cg0200b.uml //
//////////////////////////////////////
////////////////////////////////////// #define F_RAGSOCI 101
// Identificatori per cg0200b.uml // #define F_INDIRI 102
////////////////////////////////////// #define F_CIVI 103
#define F_RAGSOCI 101 #define F_LOCALI 104
#define F_INDIRI 102 #define F_CAPI 105
#define F_CIVI 103 #define F_STATOI 106
#define F_LOCALI 104 #define F_COMI 107
#define F_CAPI 105 #define F_PTELI 108
#define F_STATOI 106 #define F_TELI 109
#define F_COMI 107 #define F_PFAXI 110
#define F_PTELI 108 #define F_FAXI 111
#define F_TELI 109 #define F_IVARIDI 112
#define F_PFAXI 110 #define F_CODINDI 113
#define F_FAXI 111 #define F_DENCOMI 114
#define F_IVARIDI 112
#define F_CODINDI 113 #endif // __CG0200_H
#define F_DENCOMI 114
#endif // __CG0200_H

66
cg/cg1.url
View File

@ -1,33 +1,33 @@
#include <default.url> #include <default.url>
MENU TASK_MENUBAR MENU TASK_MENUBAR
SUBMENU MENU_FILE "~File" SUBMENU MENU_FILE "~File"
MENUBAR MENU_BAR(1) MENUBAR MENU_BAR(1)
MENU MENU_BAR(1) MENU MENU_BAR(1)
SUBMENU MENU_FILE "~File" SUBMENU MENU_FILE "~File"
MENUBAR MENU_BAR(3) MENUBAR MENU_BAR(3)
MENU MENU_BAR(3) MENU MENU_BAR(3)
SUBMENU MENU_FILE "~File" SUBMENU MENU_FILE "~File"
MENUBAR MENU_BAR(4) MENUBAR MENU_BAR(4)
MENU MENU_BAR(4) MENU MENU_BAR(4)
SUBMENU MENU_FILE "~File" SUBMENU MENU_FILE "~File"
MENUBAR MENU_BAR(5) MENUBAR MENU_BAR(5)
MENU MENU_BAR(5) MENU MENU_BAR(5)
SUBMENU MENU_FILE "~File" SUBMENU MENU_FILE "~File"
MENUBAR MENU_BAR(6) MENUBAR MENU_BAR(6)
MENU MENU_BAR(6) MENU MENU_BAR(6)
SUBMENU MENU_FILE "~File" SUBMENU MENU_FILE "~File"

14
cg/cg1300.cpp
View File

@ -1,7 +1,7 @@
#include <checks.h> #include <checks.h>
int cg1300(int argc, char* argv[]) int cg1300(int argc, char* argv[])
{ {
error_box("Applicazione ancora da sviluppare"); error_box("Applicazione ancora da sviluppare");
return 1; return 1;
} }

1902
cg/cg2100.cpp
View File

File diff suppressed because it is too large Load Diff

660
cg/cg2101.cpp
View File

@ -1,330 +1,330 @@
#include <stdlib.h> #include <stdlib.h>
#include <xvtmacro.h> #include <xvtmacro.h>
#include <applicat.h> #include <applicat.h>
#include <tabutil.h> #include <tabutil.h>
#include "cg2101.h" #include "cg2101.h"
#include "cg2103.h" #include "cg2103.h"
#include <mov.h> #include <mov.h>
#include <rmov.h> #include <rmov.h>
#include <rmoviva.h> #include <rmoviva.h>
// Calcola l'anno di esercizio di una data // Calcola l'anno di esercizio di una data
// Certified 99% // Certified 99%
int date2esc(const TDate& d, int* prevesc) int date2esc(const TDate& d, int* prevesc)
{ {
if (prevesc) *prevesc = 0; if (prevesc) *prevesc = 0;
TTable esc("ESC"); TTable esc("ESC");
for (int err = esc.first(); err == NOERR; err = esc.next()) for (int err = esc.first(); err == NOERR; err = esc.next())
{ {
const TDate ia(esc.get("D0")); // Data inizio esercizio const TDate ia(esc.get("D0")); // Data inizio esercizio
const TDate fa(esc.get("D1")); // Data fine esercizio const TDate fa(esc.get("D1")); // Data fine esercizio
TString16 sanno(esc.get("CODTAB")); sanno.cut(4); TString16 sanno(esc.get("CODTAB")); sanno.cut(4);
const int anno = atoi(sanno); const int anno = atoi(sanno);
if (d >= ia && d <= fa) if (d >= ia && d <= fa)
return anno; return anno;
if (prevesc) *prevesc = anno; if (prevesc) *prevesc = anno;
} }
return 0; return 0;
} }
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
// Movimento di prima nota // Movimento di prima nota
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
TMovimentoPN::TMovimentoPN() TMovimentoPN::TMovimentoPN()
: TRelation(LF_MOV), _oldcg(0), _oldiva(0) : TRelation(LF_MOV), _oldcg(0), _oldiva(0)
{ {
add(LF_RMOV, "NUMREG=NUMREG"); add(LF_RMOV, "NUMREG=NUMREG");
add(LF_RMOVIVA, "NUMREG=NUMREG"); add(LF_RMOVIVA, "NUMREG=NUMREG");
} }
void TMovimentoPN::destroy_rows() void TMovimentoPN::destroy_rows()
{ {
_cg.destroy(); _cg.destroy();
_iva.destroy(); _iva.destroy();
} }
TRectype& TMovimentoPN::cg(int i) TRectype& TMovimentoPN::cg(int i)
{ {
TRectype* r = (TRectype*)_cg.objptr(i); TRectype* r = (TRectype*)_cg.objptr(i);
if (r == NULL) if (r == NULL)
{ {
r = new TRectype(LF_RMOV); r = new TRectype(LF_RMOV);
_cg.add(r, i); _cg.add(r, i);
} }
return *r; return *r;
} }
TRectype& TMovimentoPN::iva(int i) TRectype& TMovimentoPN::iva(int i)
{ {
TRectype* r = (TRectype*)_iva.objptr(i); TRectype* r = (TRectype*)_iva.objptr(i);
if (r == NULL) if (r == NULL)
{ {
r = new TRectype(LF_RMOVIVA); r = new TRectype(LF_RMOVIVA);
_iva.add(r, i); _iva.add(r, i);
} }
return *r; return *r;
} }
int TMovimentoPN::read_mov_rows() int TMovimentoPN::read_mov_rows()
{ {
const TLocalisamfile& rm = lfile(LF_RMOV); const TLocalisamfile& rm = lfile(LF_RMOV);
const TLocalisamfile& ri = lfile(LF_RMOVIVA); const TLocalisamfile& ri = lfile(LF_RMOVIVA);
position_rels(); position_rels();
destroy_rows(); destroy_rows();
for(bool ok = is_first_match(LF_RMOV); ok; ok = next_match(LF_RMOV)) for(bool ok = is_first_match(LF_RMOV); ok; ok = next_match(LF_RMOV))
{ {
const int row = rm.get_int(RMV_NUMRIG) - 1; const int row = rm.get_int(RMV_NUMRIG) - 1;
cg(row) = rm.curr(); cg(row) = rm.curr();
} }
_oldcg = cg_items(); _oldcg = cg_items();
for(ok = is_first_match(LF_RMOVIVA); ok; ok = next_match(LF_RMOVIVA)) for(ok = is_first_match(LF_RMOVIVA); ok; ok = next_match(LF_RMOVIVA))
{ {
const int row = ri.get_int(RMI_NUMRIG) - 1; const int row = ri.get_int(RMI_NUMRIG) - 1;
iva(row) = ri.curr(); iva(row) = ri.curr();
} }
_oldiva = iva_items(); _oldiva = iva_items();
return NOERR; return NOERR;
} }
int TMovimentoPN::read(TIsamop op, TReclock lockop, TDate& atdate) int TMovimentoPN::read(TIsamop op, TReclock lockop, TDate& atdate)
{ {
int err = file().read(op, lockop, atdate); int err = file().read(op, lockop, atdate);
if (err == NOERR) if (err == NOERR)
{ {
_olddate = file().get("DATAREG"); _olddate = file().get("DATAREG");
err = read_mov_rows(); err = read_mov_rows();
} }
return err; return err;
} }
int TMovimentoPN::write_rec(bool re, const TRectype& rec, TLocalisamfile& f) int TMovimentoPN::write_rec(bool re, const TRectype& rec, TLocalisamfile& f)
{ {
const bool scrivi = re ? (f.rewrite(rec) != NOERR) : TRUE; const bool scrivi = re ? (f.rewrite(rec) != NOERR) : TRUE;
if (scrivi) if (scrivi)
f.write(rec); f.write(rec);
#ifdef TRC #ifdef TRC
const long numreg = rec.get_long("NUMREG"); const long numreg = rec.get_long("NUMREG");
const int numrig = f.num() == LF_MOV ? 0 : rec.get_int("NUMRIG"); const int numrig = f.num() == LF_MOV ? 0 : rec.get_int("NUMRIG");
TRACE("write file=%d record=%ld nummov=%ld numrig=%d status=%d", TRACE("write file=%d record=%ld nummov=%ld numrig=%d status=%d",
f.num(), f.recno(), numreg, numrig, f.status()); f.num(), f.recno(), numreg, numrig, f.status());
#endif #endif
return f.status(); return f.status();
} }
int TMovimentoPN::cancella(TLocalisamfile& f, int da, int a) int TMovimentoPN::cancella(TLocalisamfile& f, int da, int a)
{ {
const long numreg = lfile().get_long(MOV_NUMREG); const long numreg = lfile().get_long(MOV_NUMREG);
for (int i = da; i <= a; i++) for (int i = da; i <= a; i++)
{ {
f.put(MOV_NUMREG, numreg); f.put(MOV_NUMREG, numreg);
f.put(RMV_NUMRIG, i); f.put(RMV_NUMRIG, i);
if (f.read(_isequal, _lock) == NOERR) if (f.read(_isequal, _lock) == NOERR)
f.remove(); f.remove();
} }
return f.status(); return f.status();
} }
char TMovimentoPN::frequenza_versamenti(int year) const char TMovimentoPN::frequenza_versamenti(int year) const
{ {
static int last_year = 0; static int last_year = 0;
static char last_freq = ' '; static char last_freq = ' ';
if (year != last_year) if (year != last_year)
{ {
TString16 key; TString16 key;
key << year; key << year;
TTable lia("LIA"); TTable lia("LIA");
lia.setkey(1); lia.setkey(1);
lia.put("CODTAB", key); lia.put("CODTAB", key);
if (lia.read() != NOERR) if (lia.read() != NOERR)
{ {
TLocalisamfile nditte(LF_NDITTE); TLocalisamfile nditte(LF_NDITTE);
nditte.setkey(1); nditte.setkey(1);
nditte.put("CODDITTA", main_app().get_firm()); nditte.put("CODDITTA", main_app().get_firm());
nditte.read(); nditte.read();
last_freq = nditte.get_char("FREQVIVA"); last_freq = nditte.get_char("FREQVIVA");
} }
else else
last_freq = lia.get_char("S7"); last_freq = lia.get_char("S7");
CHECK(last_freq == 'M' || last_freq == 'T', "Frequenza versamenti IVA assurda"); CHECK(last_freq == 'M' || last_freq == 'T', "Frequenza versamenti IVA assurda");
} }
return last_freq; return last_freq;
} }
int TMovimentoPN::date2liq(const TDate& data) const int TMovimentoPN::date2liq(const TDate& data) const
{ {
const int anno = data.year(); const int anno = data.year();
int mese = data.month(); int mese = data.month();
if (frequenza_versamenti(anno) == 'T') if (frequenza_versamenti(anno) == 'T')
mese += 2 - ((mese-1) % 3); mese += 2 - ((mese-1) % 3);
return mese; return mese;
} }
bool TMovimentoPN::controlla_liquidazione(const TDate& data, bool reset) const bool TMovimentoPN::controlla_liquidazione(const TDate& data, bool reset) const
{ {
bool calcolata = FALSE; bool calcolata = FALSE;
const int anno = data.year(); const int anno = data.year();
const int mese = date2liq(data); const int mese = date2liq(data);
// Chiave di LIM: Anno (1-4), Mese (5-6) // Chiave di LIM: Anno (1-4), Mese (5-6)
TString16 key; TString16 key;
key << anno << mese; key << anno << mese;
TTable lim("LIM"); TTable lim("LIM");
lim.setkey(1); lim.setkey(1);
lim.put("CODTAB", key); lim.put("CODTAB", key);
if (lim.read() == NOERR) if (lim.read() == NOERR)
calcolata = lim.get_bool("B1"); // Controlla se calcolata in definitivo calcolata = lim.get_bool("B1"); // Controlla se calcolata in definitivo
if (reset && lim.get_bool("B0")) if (reset && lim.get_bool("B0"))
{ {
// Resetta i flag di calcolato sulla liquidazione IVA del mese di registrazione // Resetta i flag di calcolato sulla liquidazione IVA del mese di registrazione
lim.put("B0", FALSE); // calcolato lim.put("B0", FALSE); // calcolato
lim.put("B1", FALSE); // definitivo lim.put("B1", FALSE); // definitivo
lim.rewrite(); lim.rewrite();
} }
return calcolata; return calcolata;
} }
int TMovimentoPN::registra(bool re, bool force) int TMovimentoPN::registra(bool re, bool force)
{ {
TLocalisamfile& m = lfile(); TLocalisamfile& m = lfile();
const int err = write_rec(re, m.curr(), m); const int err = write_rec(re, m.curr(), m);
if (err != NOERR) return err; if (err != NOERR) return err;
TLocalisamfile& rm = lfile(LF_RMOV); TLocalisamfile& rm = lfile(LF_RMOV);
TLocalisamfile& ri = lfile(LF_RMOVIVA); TLocalisamfile& ri = lfile(LF_RMOVIVA);
const long numreg = m.get_long("NUMREG"); const long numreg = m.get_long("NUMREG");
for (int i = 0 ; i < cg_items(); i++) for (int i = 0 ; i < cg_items(); i++)
{ {
if (!re) cg(i).put("NUMREG", numreg); if (!re) cg(i).put("NUMREG", numreg);
const int err = write_rec(re, cg(i), rm); const int err = write_rec(re, cg(i), rm);
if (!force && err != NOERR) return err; if (!force && err != NOERR) return err;
} }
if (i < _oldcg) if (i < _oldcg)
cancella(rm, i+1, _oldcg); cancella(rm, i+1, _oldcg);
_oldcg = cg_items(); _oldcg = cg_items();
const int annoiva = m.get_int("ANNOIVA"); const int annoiva = m.get_int("ANNOIVA");
const TString16 reg(m.get("REG")); const TString16 reg(m.get("REG"));
TRegistro registro(reg, annoiva); TRegistro registro(reg, annoiva);
const bool att_mista = reg.empty() ? FALSE : registro.attivita_mista(); const bool att_mista = reg.empty() ? FALSE : registro.attivita_mista();
for (i = 0 ; i < iva_items(); i++) for (i = 0 ; i < iva_items(); i++)
{ {
TRectype& r = iva(i); TRectype& r = iva(i);
if (!re) r.put("NUMREG", numreg); // Force correct number if (!re) r.put("NUMREG", numreg); // Force correct number
int tipoatt = 1; int tipoatt = 1;
if (att_mista) if (att_mista)
{ {
const char tipo = r.get_char("TIPOC"); const char tipo = r.get_char("TIPOC");
if (tipo <= ' ') if (tipo <= ' ')
{ {
TBill c(r.get_int("GRUPPO"), r.get_int("CONTO"), r.get_long("SOTTOCONTO")); TBill c(r.get_int("GRUPPO"), r.get_int("CONTO"), r.get_long("SOTTOCONTO"));
tipoatt = c.tipo_att(); tipoatt = c.tipo_att();
} }
} }
r.put("TIPOATT", tipoatt); r.put("TIPOATT", tipoatt);
const int err = write_rec(re, r, ri); const int err = write_rec(re, r, ri);
if (!force && err != NOERR) return err; if (!force && err != NOERR) return err;
} }
if (i < _oldiva) if (i < _oldiva)
cancella(ri, i+1, _oldiva); cancella(ri, i+1, _oldiva);
_oldiva = iva_items(); _oldiva = iva_items();
// Aggiorna data registrazione e protocollo IVA sul registro // Aggiorna data registrazione e protocollo IVA sul registro
const TDate datareg(m.get("DATAREG")); const TDate datareg(m.get("DATAREG"));
if (reg.not_empty()) if (reg.not_empty())
{ {
const long protiva = m.get_long("PROTIVA"); const long protiva = m.get_long("PROTIVA");
const long uprotiva = m.get_long("UPROTIVA"); const long uprotiva = m.get_long("UPROTIVA");
registro.update(max(protiva, uprotiva), datareg); registro.update(max(protiva, uprotiva), datareg);
} }
// Aggiorna flags di ricalcolo liquidazione // Aggiorna flags di ricalcolo liquidazione
controlla_liquidazione(datareg, TRUE); controlla_liquidazione(datareg, TRUE);
if (re && datareg != _olddate) if (re && datareg != _olddate)
controlla_liquidazione(_olddate, TRUE); controlla_liquidazione(_olddate, TRUE);
const int att = att_mista ? 2 : 1; const int att = att_mista ? 2 : 1;
// Chiave di PLM: Anno (1-4), Cod. Att. (5-9), Tipo att. (10-10), Mese (11-12) // Chiave di PLM: Anno (1-4), Cod. Att. (5-9), Tipo att. (10-10), Mese (11-12)
TTable plm("PLM"); TTable plm("PLM");
plm.setkey(1); plm.setkey(1);
for (int a = 1; a <= att; a++) for (int a = 1; a <= att; a++)
{ {
TString16 chiave; TString16 chiave;
chiave << annoiva << registro.attivita() << a << date2liq(datareg); chiave << annoiva << registro.attivita() << a << date2liq(datareg);
plm.put("CODTAB", chiave); plm.put("CODTAB", chiave);
if (plm.read() == NOERR) if (plm.read() == NOERR)
{ {
const bool calcolato = plm.get_bool("B0"); const bool calcolato = plm.get_bool("B0");
if (calcolato) if (calcolato)
{ {
plm.put("B0", FALSE); plm.put("B0", FALSE);
plm.rewrite(); plm.rewrite();
} }
} }
} }
return err; return err;
} }
int TMovimentoPN::write(bool force, TDate&) int TMovimentoPN::write(bool force, TDate&)
{ {
const TRectype& r = lfile().curr(); const TRectype& r = lfile().curr();
_oldcg = _oldiva = 0; _oldcg = _oldiva = 0;
int err = registra(FALSE, force); int err = registra(FALSE, force);
return err; return err;
} }
int TMovimentoPN::rewrite(bool force, TDate&) int TMovimentoPN::rewrite(bool force, TDate&)
{ {
return registra(TRUE, force); return registra(TRUE, force);
} }
int TMovimentoPN::remove(TDate&) int TMovimentoPN::remove(TDate&)
{ {
TLocalisamfile& m = lfile(); TLocalisamfile& m = lfile();
TLocalisamfile& rm = lfile(LF_RMOV); TLocalisamfile& rm = lfile(LF_RMOV);
TLocalisamfile& ri = lfile(LF_RMOVIVA); TLocalisamfile& ri = lfile(LF_RMOVIVA);
cancella(rm, 1, _oldcg); cancella(rm, 1, _oldcg);
cancella(ri, 1, _oldiva); cancella(ri, 1, _oldiva);
m.remove(); m.remove();
_oldcg = _oldiva = 0; _oldcg = _oldiva = 0;
return m.status(); return m.status();
} }

534
cg/cg21iva.uml
View File

@ -1,267 +1,267 @@
PAGE "RIGA IVA" -1 -1 78 13 PAGE "RIGA IVA" -1 -1 78 13
GROUPBOX DLG_NULL 76 5 GROUPBOX DLG_NULL 76 5
BEGIN BEGIN
PROMPT 1 1 "@BImposta" PROMPT 1 1 "@BImposta"
END END
STRING 102 4 STRING 102 4
BEGIN BEGIN
PROMPT 2 2 "IVA " PROMPT 2 2 "IVA "
HELP "Codice IVA della riga" HELP "Codice IVA della riga"
FLAGS "U" FLAGS "U"
USE %IVA USE %IVA
INPUT CODTAB 102 INPUT CODTAB 102
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "%@6" R0 DISPLAY "%@6" R0
DISPLAY "Tipo" S1 DISPLAY "Tipo" S1
OUTPUT 102 CODTAB OUTPUT 102 CODTAB
OUTPUT 211 S0 OUTPUT 211 S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Codice IVA assente" WARNING "Codice IVA assente"
VALIDATE ZEROFILL_FUNC 2 VALIDATE ZEROFILL_FUNC 2
END END
STRING 211 58 STRING 211 58
BEGIN BEGIN
PROMPT 16 2 "" PROMPT 16 2 ""
FLAGS "D" FLAGS "D"
END END
NUMBER 103 1 NUMBER 103 1
BEGIN BEGIN
PROMPT 2 3 "Detraibilita' " PROMPT 2 3 "Detraibilita' "
HELP "Indicare il tipo di detraibilita' della riga" HELP "Indicare il tipo di detraibilita' della riga"
SHEET "Codice|Tipo detraibilita'@75" SHEET "Codice|Tipo detraibilita'@75"
INPUT 103 INPUT 103
ITEM " |Regime normale" ITEM " |Regime normale"
ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti" ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti"
ITEM "3|IVA indicata per passaggi interni al solo fine del calcolo di ventilazione" ITEM "3|IVA indicata per passaggi interni al solo fine del calcolo di ventilazione"
ITEM "9|IVA non detraibile per l'articolo 19" ITEM "9|IVA non detraibile per l'articolo 19"
OUTPUT 103 OUTPUT 103
OUTPUT 130 OUTPUT 130
END END
STRING 130 75 52 STRING 130 75 52
BEGIN BEGIN
PROMPT 22 3 "" PROMPT 22 3 ""
FLAGS "D" FLAGS "D"
END END
NUMBER 101 15 NUMBER 101 15
BEGIN BEGIN
PROMPT 2 4 "Imponibile " PROMPT 2 4 "Imponibile "
HELP "Importo imponibile" HELP "Importo imponibile"
FLAGS "RV" FLAGS "RV"
PICTURE "." PICTURE "."
END END
NUMBER 104 15 NUMBER 104 15
BEGIN BEGIN
PROMPT 48 4 "Imposta " PROMPT 48 4 "Imposta "
HELP "Importo dell'IVA. Se e' nullo, col tasto F8 si puo' effettuare lo scorporo" HELP "Importo dell'IVA. Se e' nullo, col tasto F8 si puo' effettuare lo scorporo"
FLAGS "RV" FLAGS "RV"
PICTURE "." PICTURE "."
END END
GROUPBOX DLG_NULL 76 5 GROUPBOX DLG_NULL 76 5
BEGIN BEGIN
PROMPT 1 6 "@BConto" PROMPT 1 6 "@BConto"
END END
LIST 106 1 12 LIST 106 1 12
BEGIN BEGIN
PROMPT 2 7 "Tipo " PROMPT 2 7 "Tipo "
HELP "Tipo del conto" HELP "Tipo del conto"
FIELD TMCF FIELD TMCF
ITEM " |Conto" ITEM " |Conto"
MESSAGE SHOW,109|HIDE,209|HIDE,309|SHOW,110|HIDE,210|HIDE,310 MESSAGE SHOW,109|HIDE,209|HIDE,309|SHOW,110|HIDE,210|HIDE,310
ITEM "C|Cliente" ITEM "C|Cliente"
MESSAGE SHOW,209|HIDE,109|HIDE,309|SHOW,210|HIDE,110|HIDE,310 MESSAGE SHOW,209|HIDE,109|HIDE,309|SHOW,210|HIDE,110|HIDE,310
ITEM "F|Fornitore" ITEM "F|Fornitore"
MESSAGE SHOW,309|HIDE,109|HIDE,209|SHOW,310|HIDE,110|HIDE,210 MESSAGE SHOW,309|HIDE,109|HIDE,209|SHOW,310|HIDE,110|HIDE,210
FLAGS "U" FLAGS "U"
END END
NUMBER 107 3 NUMBER 107 3
BEGIN BEGIN
PROMPT 22 7 "Gruppo " PROMPT 22 7 "Gruppo "
HELP "Codice del gruppo" HELP "Codice del gruppo"
FIELD GRUPPO FIELD GRUPPO
END END
NUMBER 108 3 NUMBER 108 3
BEGIN BEGIN
PROMPT 38 7 "Conto " PROMPT 38 7 "Conto "
HELP "Codice del conto" HELP "Codice del conto"
FIELD CONTO FIELD CONTO
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
INPUT GRUPPO 107 INPUT GRUPPO 107
INPUT CONTO 108 INPUT CONTO 108
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Tipo" TMCF DISPLAY "Tipo" TMCF
OUTPUT 106 TMCF OUTPUT 106 TMCF
OUTPUT 107 GRUPPO OUTPUT 107 GRUPPO
OUTPUT 108 CONTO OUTPUT 108 CONTO
OUTPUT 110 DESCR OUTPUT 110 DESCR
ADD RUN cg0 -0 ADD RUN cg0 -0
MESSAGE DIRTY,109|DIRTY,209|DIRTY,309 MESSAGE DIRTY,109|DIRTY,209|DIRTY,309
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Conto assente" WARNING "Conto assente"
END END
NUMBER 109 6 NUMBER 109 6
BEGIN BEGIN
PROMPT 55 7 "Sottoconto " PROMPT 55 7 "Sottoconto "
HELP "Codice del sottoconto" HELP "Codice del sottoconto"
FIELD SOTTOCONTO FIELD SOTTOCONTO
USE LF_PCON SELECT SOTTOCONTO!="" USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO 107 INPUT GRUPPO 107
INPUT CONTO 108 INPUT CONTO 108
INPUT SOTTOCONTO 109 INPUT SOTTOCONTO 109
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "C/R" TIPOSPRIC DISPLAY "C/R" TIPOSPRIC
OUTPUT 109 SOTTOCONTO OUTPUT 109 SOTTOCONTO
OUTPUT 107 GRUPPO OUTPUT 107 GRUPPO
OUTPUT 108 CONTO OUTPUT 108 CONTO
OUTPUT 110 DESCR OUTPUT 110 DESCR
ADD RUN cg0 -0 ADD RUN cg0 -0
CHECKTYPE NORMAL CHECKTYPE NORMAL
VALIDATE REQIF_FUNC 1 101 VALIDATE REQIF_FUNC 1 101
WARNING "Sottoconto assente" WARNING "Sottoconto assente"
END END
NUMBER 209 6 NUMBER 209 6
BEGIN BEGIN
PROMPT 55 7 "Cliente " PROMPT 55 7 "Cliente "
HELP "Codice del cliente" HELP "Codice del cliente"
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT CODCF 209 INPUT CODCF 209
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale Cliente@50" RAGSOC DISPLAY "Ragione Sociale Cliente@50" RAGSOC
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
OUTPUT 209 CODCF OUTPUT 209 CODCF
OUTPUT 210 RAGSOC OUTPUT 210 RAGSOC
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN cg0 -1 ADD RUN cg0 -1
MESSAGE COPY,109 MESSAGE COPY,109
VALIDATE REQIF_FUNC 1 101 VALIDATE REQIF_FUNC 1 101
WARNING "Cliente assente" WARNING "Cliente assente"
END END
NUMBER 309 6 NUMBER 309 6
BEGIN BEGIN
PROMPT 55 7 "Fornitore " PROMPT 55 7 "Fornitore "
HELP "Codice del fornitore" HELP "Codice del fornitore"
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF "F" INPUT TIPOCF "F"
INPUT CODCF 309 INPUT CODCF 309
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
OUTPUT 107 GRUPPO OUTPUT 107 GRUPPO
OUTPUT 108 CONTO OUTPUT 108 CONTO
OUTPUT 309 CODCF OUTPUT 309 CODCF
OUTPUT 310 RAGSOC OUTPUT 310 RAGSOC
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN cg0 -1 ADD RUN cg0 -1
MESSAGE COPY,109 MESSAGE COPY,109
VALIDATE REQIF_FUNC 1 101 VALIDATE REQIF_FUNC 1 101
WARNING "Fornitore assente" WARNING "Fornitore assente"
END END
STRING 110 50 STRING 110 50
BEGIN BEGIN
PROMPT 2 8 "Descrizione " PROMPT 2 8 "Descrizione "
HELP "Descrizione del conto" HELP "Descrizione del conto"
FIELD LF_PCON->DESCR FIELD LF_PCON->DESCR
USE LF_PCON KEY 2 USE LF_PCON KEY 2
INPUT DESCR 110 INPUT DESCR 110
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT 109 COPY OUTPUT 109
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN cg0 -0 ADD RUN cg0 -0
END END
STRING 210 50 STRING 210 50
BEGIN BEGIN
PROMPT 2 8 "Cliente " PROMPT 2 8 "Cliente "
HELP "Ragione sociale del cliente" HELP "Ragione sociale del cliente"
FIELD LF_CLIFO->RAGSOC FIELD LF_CLIFO->RAGSOC
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT RAGSOC 210 INPUT RAGSOC 210
DISPLAY "Ragione Sociale Cliente@50" RAGSOC DISPLAY "Ragione Sociale Cliente@50" RAGSOC
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
COPY OUTPUT 209 COPY OUTPUT 209
MESSAGE COPY,110 MESSAGE COPY,110
ADD RUN cg0 -1 ADD RUN cg0 -1
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING 310 50 STRING 310 50
BEGIN BEGIN
PROMPT 2 8 "Fornitore " PROMPT 2 8 "Fornitore "
HELP "Ragione sociale del forntore" HELP "Ragione sociale del forntore"
FIELD LF_PCON->SOTTOCONTO FIELD LF_PCON->SOTTOCONTO
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF "F" INPUT TIPOCF "F"
INPUT RAGSOC 310 INPUT RAGSOC 310
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
COPY OUTPUT 309 COPY OUTPUT 309
MESSAGE COPY,110 MESSAGE COPY,110
ADD RUN cg0 -1 ADD RUN cg0 -1
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
LIST 105 1 53 LIST 105 1 53
BEGIN BEGIN
PROMPT 2 9 "Tipo Costo/Ricavo " PROMPT 2 9 "Tipo Costo/Ricavo "
ITEM " |0. Acquisti o vendite in genere" ITEM " |0. Acquisti o vendite in genere"
ITEM "1|1. Acquisti beni per rivendita" ITEM "1|1. Acquisti beni per rivendita"
ITEM "2|2. Acquisti beni ammortizzabili" ITEM "2|2. Acquisti beni ammortizzabili"
ITEM "3|3. Acquisti beni ammortizzabili con detr. 6%" ITEM "3|3. Acquisti beni ammortizzabili con detr. 6%"
ITEM "4|4. Vendita beni strumentali art. 17" ITEM "4|4. Vendita beni strumentali art. 17"
ITEM "5|5. Beni per rivendita da non ventilare" ITEM "5|5. Beni per rivendita da non ventilare"
ITEM "8|8. Altri beni strumentali acquistati in leasing" ITEM "8|8. Altri beni strumentali acquistati in leasing"
ITEM "9|9. Spese generali" ITEM "9|9. Spese generali"
FLAGS "D" FLAGS "D"
HELP "Tipo Costo/Ricavo del conto" HELP "Tipo Costo/Ricavo del conto"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
END END
BUTTON DLG_DELREC 9 2 BUTTON DLG_DELREC 9 2
BEGIN BEGIN
PROMPT -33 -1 "Elimina" PROMPT -33 -1 "Elimina"
MESSAGE EXIT,K_DEL MESSAGE EXIT,K_DEL
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

846
cg/cg4100.cpp
View File

@ -1,423 +1,423 @@
// Rinumerazione movimenti e saldi // Rinumerazione movimenti e saldi
// fv 12/12/93 // fv 12/12/93
// ------------------------------------------------------------------------- // -------------------------------------------------------------------------
// *TBI* Partenza dall'ultimo movimento stampato // *TBI* Partenza dall'ultimo movimento stampato
// *TBI* Aggiornamento scadenziario // *TBI* Aggiornamento scadenziario
// *TBI* Aggiornamento cespiti // *TBI* Aggiornamento cespiti
// ------------------------------------------------------------------------- // -------------------------------------------------------------------------
#include <signal.h> #include <signal.h>
#include <stdlib.h> #include <stdlib.h>
#include <applicat.h> #include <applicat.h>
#include <isam.h> #include <isam.h>
#include <mask.h> #include <mask.h>
#include <progind.h> #include <progind.h>
#include <sort.h> #include <sort.h>
#include <urldefid.h> #include <urldefid.h>
#include <utility.h> #include <utility.h>
#define FLD_CG41_YEAR 100 #define FLD_CG41_YEAR 100
#define MAX_CNT 300 #define MAX_CNT 300
#include <mov.h> #include <mov.h>
#include <rmov.h> #include <rmov.h>
#include <rmoviva.h> #include <rmoviva.h>
#include <saldi.h> #include <saldi.h>
#include <causali.h> #include <causali.h>
#include "cglib.h" #include "cglib.h"
struct therec { struct therec {
char DATAREG[9]; char DATAREG[9];
char REG[4]; char REG[4];
char DATADOC[9]; char DATADOC[9];
char NUMPROT[9]; char NUMPROT[9];
char ANNOES[5]; char ANNOES[5];
char NUMREG[8]; char NUMREG[8];
}; };
class CG4100_App : public TApplication class CG4100_App : public TApplication
{ {
TString _year; TString _year;
char _optype; char _optype;
TMask* _msk; TMask* _msk;
public: public:
virtual bool create(); virtual bool create();
virtual bool destroy(); virtual bool destroy();
bool set_parms(); bool set_parms();
virtual bool menu(MENU_TAG m); virtual bool menu(MENU_TAG m);
void restore_mov(TSystemisamfile& a, TSystemisamfile& b, TSystemisamfile& c); void restore_mov(TSystemisamfile& a, TSystemisamfile& b, TSystemisamfile& c);
void sort_all(); void sort_all();
bool sort_mov(); bool sort_mov();
bool sort_sal(); bool sort_sal();
CG4100_App() : TApplication(), _year(4), _optype('S') {} CG4100_App() : TApplication(), _year(4), _optype('S') {}
virtual ~CG4100_App() {} virtual ~CG4100_App() {}
}; };
bool CG4100_App::create() bool CG4100_App::create()
{ {
TApplication::create(); TApplication::create();
// UNIX: signal() per intercettare errori // UNIX: signal() per intercettare errori
#if XVT_OS == XVT_OS_SCOUNIX #if XVT_OS == XVT_OS_SCOUNIX
signal(SIGINT,SIG_IGN); signal(SIGINT,SIG_IGN);
#endif #endif
if (fexist("__sal__.sav")) if (fexist("__sal__.sav"))
warning_box("Un'operazione di riordino saldi si e' conclusa" warning_box("Un'operazione di riordino saldi si e' conclusa"
" impropriamente. Si raccomanda di rieseguirla"); " impropriamente. Si raccomanda di rieseguirla");
if (fexist("__mov__.sav")) if (fexist("__mov__.sav"))
warning_box("Un'operazione di riordino movimenti si e' conclusa" warning_box("Un'operazione di riordino movimenti si e' conclusa"
" impropriamente. Si raccomanda di rieseguirla"); " impropriamente. Si raccomanda di rieseguirla");
if (argc() > 2) if (argc() > 2)
_optype = toupper(argv(2)[0]); _optype = toupper(argv(2)[0]);
_msk = new TMask(_optype == 'S' ? "cg4100b" : "cg4100a"); _msk = new TMask(_optype == 'S' ? "cg4100b" : "cg4100a");
dispatch_e_menu(MENU_ITEM(1)); dispatch_e_menu(MENU_ITEM(1));
return TRUE; return TRUE;
} }
bool CG4100_App::destroy() bool CG4100_App::destroy()
{ {
// UNIX: resettare i segnali // UNIX: resettare i segnali
#if XVT_OS == XVT_OS_SCOUNIX #if XVT_OS == XVT_OS_SCOUNIX
signal(SIGINT,SIG_DFL); signal(SIGINT,SIG_DFL);
#endif #endif
delete _msk; delete _msk;
return TApplication::destroy(); return TApplication::destroy();
} }
bool CG4100_App::set_parms() bool CG4100_App::set_parms()
{ {
_msk->run(); _msk->run();
if (_optype == 'S') if (_optype == 'S')
_year = _msk->get(FLD_CG41_YEAR); _year = _msk->get(FLD_CG41_YEAR);
else else
_year = 0; _year = 0;
return _msk->last_key() == K_ENTER; return _msk->last_key() == K_ENTER;
} }
bool CG4100_App::menu(MENU_TAG) bool CG4100_App::menu(MENU_TAG)
{ {
if (_optype == 'S') if (_optype == 'S')
sort_sal(); sort_sal();
else else
sort_mov(); sort_mov();
return FALSE; return FALSE;
} }
void CG4100_App::restore_mov(TSystemisamfile& mov, TSystemisamfile& rmov, void CG4100_App::restore_mov(TSystemisamfile& mov, TSystemisamfile& rmov,
TSystemisamfile& rmoviva) TSystemisamfile& rmoviva)
{ {
long rn, rec; long rn, rec;
if (fexist("__mov__.ind")) if (fexist("__mov__.ind"))
{ {
// rebuild all indexes // rebuild all indexes
mov.close(); rmov.close(); rmoviva.close(); mov.close(); rmov.close(); rmoviva.close();
mov.packfile(); rmov.packfile(); rmoviva.packfile(); mov.packfile(); rmov.packfile(); rmoviva.packfile();
mov.packindex(); rmov.packindex(); rmoviva.packindex(); mov.packindex(); rmov.packindex(); rmoviva.packindex();
remove("__mov__.ind"); remove("__mov__.ind");
return; return;
} }
FILE* fp = fopen("__mov__.sav","r"); FILE* fp = fopen("__mov__.sav","r");
if (feof(fp)) if (feof(fp))
{ {
warning_box("File di ripristino vuoto; il ripristino non e' necessario"); warning_box("File di ripristino vuoto; il ripristino non e' necessario");
remove("__mov__.sav"); remove("__mov__.sav");
return; return;
}; };
for (;;) for (;;)
{ {
if (feof(fp)) break; if (feof(fp)) break;
fscanf(fp,"%ld %ld", &rn, &rec); fscanf(fp,"%ld %ld", &rn, &rec);
mov.readat(rec); mov.readat(rec);
mov.put(MOV_NUMREG,rn); mov.put(MOV_NUMREG,rn);
mov.rewrite(); mov.rewrite();
for (;;) for (;;)
{ {
if (feof(fp)) break; if (feof(fp)) break;
fscanf(fp,"%ld",&rec); fscanf(fp,"%ld",&rec);
if (rec == -1l) break; if (rec == -1l) break;
rmov.readat(rec); rmov.readat(rec);
rmov.put(RMV_NUMREG,rn); rmov.put(RMV_NUMREG,rn);
rmov.rewrite(); rmov.rewrite();
} }
for (;;) for (;;)
{ {
if (feof(fp)) break; if (feof(fp)) break;
fscanf(fp,"%ld",&rec); fscanf(fp,"%ld",&rec);
if (rec == -1l) break; if (rec == -1l) break;
rmoviva.readat(rec); rmoviva.readat(rec);
rmoviva.put(RMI_NUMREG,rn); rmoviva.put(RMI_NUMREG,rn);
rmoviva.rewrite(); rmoviva.rewrite();
} }
} }
fclose(fp); fclose(fp);
remove("__mov__.sav"); remove("__mov__.sav");
} }
bool CG4100_App::sort_mov() bool CG4100_App::sort_mov()
{ {
if (!set_parms()) if (!set_parms())
return FALSE; return FALSE;
TSystemisamfile mov(LF_MOV); TSystemisamfile mov(LF_MOV);
TSystemisamfile rmov(LF_RMOV); TSystemisamfile rmov(LF_RMOV);
TSystemisamfile rmoviva(LF_RMOVIVA); TSystemisamfile rmoviva(LF_RMOVIVA);
if (mov.open(_excllock) || rmov.open(_excllock) || if (mov.open(_excllock) || rmov.open(_excllock) ||
rmoviva.open(_excllock)) rmoviva.open(_excllock))
{ {
warning_box("Gli archivi sono in uso. Operazione interrotta"); warning_box("Gli archivi sono in uso. Operazione interrotta");
return FALSE; return FALSE;
} }
mov.indexoff(); rmov.indexoff(); rmoviva.indexoff(); mov.indexoff(); rmov.indexoff(); rmoviva.indexoff();
mov.first(); mov.first();
TSort sort(sizeof(struct therec)); TSort sort(sizeof(struct therec));
if (fexist("__mov__.sav") || fexist("__mov__.ind")) if (fexist("__mov__.sav") || fexist("__mov__.ind"))
{ {
// previous operation failed // previous operation failed
if (yesno_box("Un riordinamento precedente e' fallito.\n" if (yesno_box("Un riordinamento precedente e' fallito.\n"
" Ripristino la situazione iniziale ora?" )) " Ripristino la situazione iniziale ora?" ))
restore_mov(mov, rmov, rmoviva); restore_mov(mov, rmov, rmoviva);
else return FALSE; else return FALSE;
} }
therec rbuf; therec rbuf;
sort.addsortkey(rbuf.DATAREG - (char*)&rbuf, 8); sort.addsortkey(rbuf.DATAREG - (char*)&rbuf, 8);
sort.addsortkey(rbuf.REG - (char*)&rbuf, 3); sort.addsortkey(rbuf.REG - (char*)&rbuf, 3);
sort.addsortkey(rbuf.NUMPROT - (char*)&rbuf, 8); sort.addsortkey(rbuf.NUMPROT - (char*)&rbuf, 8);
sort.addsortkey(rbuf.DATADOC - (char*)&rbuf, 8); sort.addsortkey(rbuf.DATADOC - (char*)&rbuf, 8);
sort.addsortkey(rbuf.NUMREG - (char*)&rbuf, 7); sort.addsortkey(rbuf.NUMREG - (char*)&rbuf, 7);
sort.init(); sort.init();
TProgind prnd(mov.items(), TProgind prnd(mov.items(),
"Riordino archivio movimenti in corso\nOrdinamento file movimenti...", "Riordino archivio movimenti in corso\nOrdinamento file movimenti...",
FALSE,TRUE,30); FALSE,TRUE,30);
TString16 s; TString16 s;
while (!mov.eof()) while (!mov.eof())
{ {
do_events(); do_events();
TDate d(mov.get(MOV_DATAREG)); TDate d(mov.get(MOV_DATAREG));
strcpy(rbuf.DATAREG, d.string(ANSI)); strcpy(rbuf.DATAREG, d.string(ANSI));
strcpy(rbuf.REG, mov.get(MOV_REG)); strcpy(rbuf.REG, mov.get(MOV_REG));
d = mov.get(MOV_DATADOC); d = mov.get(MOV_DATADOC);
s = mov.get(MOV_PROTIVA); s = mov.get(MOV_PROTIVA);
if (s.len() > 0 && isdigit(s[s.len() - 1])) s << " "; if (s.len() > 0 && isdigit(s[s.len() - 1])) s << " ";
s.right_just(8); s.right_just(8);
strcpy(rbuf.NUMPROT, (const char *) s); strcpy(rbuf.NUMPROT, (const char *) s);
strcpy(rbuf.DATADOC, d.string(ANSI)); strcpy(rbuf.DATADOC, d.string(ANSI));
strcpy(rbuf.ANNOES, mov.get(MOV_ANNOES)); strcpy(rbuf.ANNOES, mov.get(MOV_ANNOES));
strcpy(rbuf.NUMREG, mov.get(MOV_NUMREG)); strcpy(rbuf.NUMREG, mov.get(MOV_NUMREG));
sort.sort((char*)&rbuf); sort.sort((char*)&rbuf);
mov.next(); mov.next();
prnd.addstatus(1); prnd.addstatus(1);
} }
sort.endsort(); sort.endsort();
prnd.setstatus(0); prnd.setstatus(0);
prnd.set_text("Riordino archivio movimenti in corso\nRiscrittura file movimenti..."); prnd.set_text("Riordino archivio movimenti in corso\nRiscrittura file movimenti...");
therec* rr; therec* rr;
long num = 1; long num = 1;
TRecnotype recno; TRecnotype recno;
while ((rr = (therec*)sort.retrieve()) != NULL) while ((rr = (therec*)sort.retrieve()) != NULL)
{ {
do_events(); do_events();
if (atol(rr->NUMREG) != num) if (atol(rr->NUMREG) != num)
{ {
// find record // find record
mov.curr().zero(); mov.curr().zero();
mov.put(MOV_NUMREG, rr->NUMREG); mov.put(MOV_NUMREG, rr->NUMREG);
mov.read(); mov.read();
// should never happen // should never happen
CHECK(mov.good(), "Archivio movimenti inconsistente. Questo si' che e' un casino."); CHECK(mov.good(), "Archivio movimenti inconsistente. Questo si' che e' un casino.");
// retrieve and change NUMREG // retrieve and change NUMREG
recno = mov.recno(); recno = mov.recno();
TString rgn = rr->NUMREG; TString rgn = rr->NUMREG;
FILE* fsav = fopen("__mov__.sav","a"); FILE* fsav = fopen("__mov__.sav","a");
fprintf(fsav,"%s %d ", (const char*)rgn, recno); fprintf(fsav,"%s %d ", (const char*)rgn, recno);
fclose(fsav); fclose(fsav);
mov.put(MOV_NUMREG,num); mov.put(MOV_NUMREG,num);
mov.rewriteat(recno); mov.rewriteat(recno);
// update linked records // update linked records
rmov.curr().zero(); rmov.curr().zero();
rmov.put(RMV_NUMREG,rgn); rmov.put(RMV_NUMREG,rgn);
rmov.read(_isgteq); rmov.read(_isgteq);
int row = 0; int row = 0;
while (!rmov.eof() && rgn == rmov.get(RMV_NUMREG) && while (!rmov.eof() && rgn == rmov.get(RMV_NUMREG) &&
row++ < rmov.get_int(RMV_NUMRIG)) row++ < rmov.get_int(RMV_NUMRIG))
{ {
recno = rmov.recno(); recno = rmov.recno();
fsav = fopen("__mov__.sav","a"); fsav = fopen("__mov__.sav","a");
fprintf(fsav,"%ld ", recno); fprintf(fsav,"%ld ", recno);
fclose(fsav); fclose(fsav);
rmov.put(RMV_NUMREG,num); rmov.put(RMV_NUMREG,num);
rmov.rewriteat(recno); rmov.rewriteat(recno);
rmov.next(); rmov.next();
} }
fsav = fopen("__mov__.sav","a"); fsav = fopen("__mov__.sav","a");
fprintf(fsav,"-1"); fclose(fsav); fprintf(fsav,"-1"); fclose(fsav);
rmoviva.zero(); rmoviva.zero();
rmoviva.put(RMI_NUMREG,rgn); rmoviva.put(RMI_NUMREG,rgn);
rmoviva.read(_isgteq); rmoviva.read(_isgteq);
row = 0; row = 0;
while (!rmoviva.eof() && rgn == rmoviva.get(RMV_NUMREG) && while (!rmoviva.eof() && rgn == rmoviva.get(RMV_NUMREG) &&
row++ < rmoviva.get_int(RMV_NUMRIG)) row++ < rmoviva.get_int(RMV_NUMRIG))
{ {
recno = rmoviva.recno(); recno = rmoviva.recno();
fsav = fopen("__mov__.sav","a"); fsav = fopen("__mov__.sav","a");
fprintf(fsav,"%ld ", recno); fprintf(fsav,"%ld ", recno);
fclose(fsav); fclose(fsav);
rmoviva.put(RMI_NUMREG,num); rmoviva.put(RMI_NUMREG,num);
rmoviva.rewriteat(recno); rmoviva.rewriteat(recno);
rmoviva.next(); rmoviva.next();
} }
fsav = fopen("__mov__.sav","a"); fsav = fopen("__mov__.sav","a");
fprintf(fsav,"-1"); fclose(fsav); fprintf(fsav,"-1"); fclose(fsav);
} }
num++; num++;
prnd.addstatus(1); prnd.addstatus(1);
} }
remove("__mov__.sav"); remove("__mov__.sav");
FILE* fsav = fopen("__mov__.ind","w"); fclose(fsav); FILE* fsav = fopen("__mov__.ind","w"); fclose(fsav);
prnd.set_text("Riordino archivio movimenti in corso\nRicostruzione files indice..."); prnd.set_text("Riordino archivio movimenti in corso\nRicostruzione files indice...");
// rebuild indexes // rebuild indexes
mov.close(); rmov.close(); rmoviva.close(); mov.close(); rmov.close(); rmoviva.close();
mov.indexon(); rmov.indexon(); rmoviva.indexon(); mov.indexon(); rmov.indexon(); rmoviva.indexon();
mov.packfile(); rmov.packfile(); rmoviva.packfile(); mov.packfile(); rmov.packfile(); rmoviva.packfile();
mov.packindex(); rmov.packindex(); rmoviva.packindex(); mov.packindex(); rmov.packindex(); rmoviva.packindex();
remove("__mov__.ind"); remove("__mov__.ind");
return TRUE; return TRUE;
} }
bool CG4100_App::sort_sal() bool CG4100_App::sort_sal()
{ {
if (!set_parms()) if (!set_parms())
return FALSE; return FALSE;
FILE* fp = fopen ("__sal__.sav","w"); FILE* fp = fopen ("__sal__.sav","w");
fclose(fp); fclose(fp);
TLocalisamfile rmov(LF_RMOV); TLocalisamfile rmov(LF_RMOV);
TLocalisamfile mov(LF_MOV); TLocalisamfile mov(LF_MOV);
TLocalisamfile causali(LF_CAUSALI); TLocalisamfile causali(LF_CAUSALI);
TSaldo_agg sal; TSaldo_agg sal;
int gruppo, conto; int gruppo, conto;
const int year = atoi(_year); const int year = atoi(_year);
long oldnumreg = 0L, sottoconto; long oldnumreg = 0L, sottoconto;
TProgind prnd(rmov.items(), TProgind prnd(rmov.items(),
"Riordino archivio saldi in corso\nLettura archivio movimenti...", "Riordino archivio saldi in corso\nLettura archivio movimenti...",
FALSE,TRUE,30); FALSE,TRUE,30);
causali.zero(); causali.zero();
mov.setkey(1); mov.setkey(1);
rmov.first(); rmov.first();
sal.reset(); sal.reset();
sal.set_anno_es(year); sal.set_anno_es(year);
sal.clear_saldi(year); sal.clear_saldi(year);
while (!rmov.eof()) while (!rmov.eof())
{ {
if (_year == rmov.get(RMV_ANNOES)) if (_year == rmov.get(RMV_ANNOES))
{ {
const long numreg = rmov.get_long(RMV_NUMREG); const long numreg = rmov.get_long(RMV_NUMREG);
gruppo = rmov.get_int(RMV_GRUPPO); gruppo = rmov.get_int(RMV_GRUPPO);
conto = rmov.get_int(RMV_CONTO); conto = rmov.get_int(RMV_CONTO);
sottoconto = rmov.get_long(RMV_SOTTOCONTO); sottoconto = rmov.get_long(RMV_SOTTOCONTO);
if (numreg != oldnumreg) if (numreg != oldnumreg)
{ {
oldnumreg = numreg; oldnumreg = numreg;
mov.zero(); mov.zero();
mov.put(MOV_NUMREG, numreg); mov.put(MOV_NUMREG, numreg);
mov.read(); mov.read();
CHECK(mov.good(),"Archivi movimenti e righe inconsistenti"); CHECK(mov.good(),"Archivi movimenti e righe inconsistenti");
const char* codcaus = mov.get(MOV_CODCAUS); const char* codcaus = mov.get(MOV_CODCAUS);
// cerca causale // cerca causale
causali.zero(); causali.zero();
if (*codcaus) if (*codcaus)
{ {
causali.put(CAU_CODCAUS, codcaus); causali.put(CAU_CODCAUS, codcaus);
causali.read(); causali.read();
CHECK(causali.good(),"Archivi causali e movimenti inconsistenti"); CHECK(causali.good(),"Archivi causali e movimenti inconsistenti");
} }
} }
const char sezione = rmov.get(RMV_SEZIONE)[0]; const char sezione = rmov.get(RMV_SEZIONE)[0];
real importo(rmov.get(RMV_IMPORTO)); real importo(rmov.get(RMV_IMPORTO));
sal.set_movap(causali.get(CAU_MOVAP) == "A"); sal.set_movap(causali.get(CAU_MOVAP) == "A");
sal.set_movprovv(mov.get(MOV_PROVVIS).not_empty()); sal.set_movprovv(mov.get(MOV_PROVVIS).not_empty());
sal.aggiorna(gruppo, conto, sottoconto, importo, sezione); sal.aggiorna(gruppo, conto, sottoconto, importo, sezione);
if (sal.items() > MAX_CNT) if (sal.items() > MAX_CNT)
{ {
sal.registra(); sal.registra();
sal.reset(); sal.reset();
sal.set_anno_es(atoi(_year)); sal.set_anno_es(atoi(_year));
} }
} }
rmov.next(); rmov.next();
prnd.addstatus(1); prnd.addstatus(1);
do_events(); do_events();
} }
if (sal.items() > 0) if (sal.items() > 0)
sal.registra(); sal.registra();
remove("__sal__.sav"); remove("__sal__.sav");
return TRUE; return TRUE;
} }
int cg4100(int argc, char* argv[]) int cg4100(int argc, char* argv[])
{ {
CG4100_App main_app; CG4100_App main_app;
main_app.run(argc, argv, "Ricalcolo Saldi"); main_app.run(argc, argv, "Ricalcolo Saldi");
return TRUE; return TRUE;
} }

5848
cg/cg4400.cpp
View File

File diff suppressed because it is too large Load Diff

282
cg/cglib.h
View File

@ -1,141 +1,141 @@
#ifndef __CGLIB_H #ifndef __CGLIB_H
#define __CGLIB_H #define __CGLIB_H
#ifndef __ISAM_H #ifndef __ISAM_H
#include <isam.h> #include <isam.h>
#endif #endif
#ifndef __REAL_H #ifndef __REAL_H
#include <real.h> #include <real.h>
#endif #endif
#ifndef __DATE_H #ifndef __DATE_H
#include <date.h> #include <date.h>
#endif #endif
#include <assoc.h> #include <assoc.h>
#include "conto.h" #include "conto.h"
//TLocalisamfile * get_descr_cf(TLocalisamfile * pconti,TLocalisamfile * clifo , int g, int c, long s); //TLocalisamfile * get_descr_cf(TLocalisamfile * pconti,TLocalisamfile * clifo , int g, int c, long s);
class TSaldi_list : public TAssoc_array class TSaldi_list : public TAssoc_array
{ {
public: public:
TSaldi_list (int g, int c, int aec, int aep=0); TSaldi_list (int g, int c, int aec, int aep=0);
TRectype* saldi() const; TRectype* saldi() const;
}; };
#define Saldo TSaldo #define Saldo TSaldo
enum tipobil { DataLimite=1, UltimaImmissione }; enum tipobil { DataLimite=1, UltimaImmissione };
class TSaldo class TSaldo
{ {
real _saldo, _saldo_iniziale; real _saldo, _saldo_iniziale;
real _prg_dare, _prg_avere, _prg_daresca, _prg_averesca; real _prg_dare, _prg_avere, _prg_daresca, _prg_averesca;
int _indbil; int _indbil;
TRectype _saldo_ep; TRectype _saldo_ep;
int _annoes; int _annoes;
TDate _inizioEs, _fineEs; TDate _inizioEs, _fineEs;
TString16 _codcaus; TString16 _codcaus;
TDate _datareg; TDate _datareg;
TDate _datacomp; TDate _datacomp;
TString _provv; TString _provv;
bool _movimentato; bool _movimentato;
bool _significativo; bool _significativo;
bool _rec_presente_ec; bool _rec_presente_ec;
bool _rec_presente_ep; bool _rec_presente_ep;
protected: protected:
void InFinEs(int); void InFinEs(int);
void leggi_mov(long numreg); // Leggi testata void leggi_mov(long numreg); // Leggi testata
real calcola_saldo_iniziale(int g, int c, long s, int indbil); real calcola_saldo_iniziale(int g, int c, long s, int indbil);
public: public:
bool movimentato() const { return _movimentato; } bool movimentato() const { return _movimentato; }
bool significativo() const { return _significativo; } bool significativo() const { return _significativo; }
bool esiste_saldo() const { return _rec_presente_ec || _rec_presente_ep;} bool esiste_saldo() const { return _rec_presente_ec || _rec_presente_ep;}
const int EsePre (const int annocorr); // Determina esercizio precedente const int EsePre (const int annocorr); // Determina esercizio precedente
int annoes () const { return _annoes; } int annoes () const { return _annoes; }
void set_annoes (int anno) { _annoes = anno; } void set_annoes (int anno) { _annoes = anno; }
bool causale_mov(long, const TDate&, const TDate&, TString&); bool causale_mov(long, const TDate&, const TDate&, TString&);
const char* causale_chiusura_es(); const char* causale_chiusura_es();
const char* causale_apertura_es(); const char* causale_apertura_es();
bool ultima_immissione_bilancio(int anno,int g,int c,long s,int indbil); bool ultima_immissione_bilancio(int anno,int g,int c,long s,int indbil);
bool ultima_immissione_verifica(int anno,int g,int c,long s,int indbil); bool ultima_immissione_verifica(int anno,int g,int c,long s,int indbil);
bool data_limite_bilancio(int,int,int,long,const TDate&,const TDate&,int,bool); bool data_limite_bilancio(int,int,int,long,const TDate&,const TDate&,int,bool);
TRectype& ricerca_progr_prec(int, int, int, long); TRectype& ricerca_progr_prec(int, int, int, long);
real saldofin_esprec(int,int,int,long); real saldofin_esprec(int,int,int,long);
bool prg_attuali(int,TConto&,real&,real&); bool prg_attuali(int,TConto&,real&,real&);
bool prg_mov_eliminati(int,TConto&,real&,real&); bool prg_mov_eliminati(int,TConto&,real&,real&);
const real& saldo() const { return _saldo;} const real& saldo() const { return _saldo;}
const real& saldoini() const { return _saldo_iniziale;} const real& saldoini() const { return _saldo_iniziale;}
const real& prgdare() const { return _prg_dare;} const real& prgdare() const { return _prg_dare;}
const real& prgavere() const { return _prg_avere;} const real& prgavere() const { return _prg_avere;}
bool prg_attuali(int,TConto&,int,real&,real&); bool prg_attuali(int,TConto&,int,real&,real&);
bool prg_mov_eliminati(int,TConto&,int,real&,real&); bool prg_mov_eliminati(int,TConto&,int,real&,real&);
Saldo(); Saldo();
~Saldo(); ~Saldo();
}; };
class TTab_conti : public TAssoc_array class TTab_conti : public TAssoc_array
{ {
void do_agg(TConto* tc, int anno_es, const real& importo, char sezione, void do_agg(TConto* tc, int anno_es, const real& importo, char sezione,
bool movap, bool provv, bool somma, const char* key); bool movap, bool provv, bool somma, const char* key);
public: public:
void aggiorna_conto(const TConto& tc, int anno_es, const real& importo, void aggiorna_conto(const TConto& tc, int anno_es, const real& importo,
char sezione, bool movap, bool provv, bool somma); char sezione, bool movap, bool provv, bool somma);
void aggiorna_conto (int gruppo, int conto, long sottoconto, int anno_es, void aggiorna_conto (int gruppo, int conto, long sottoconto, int anno_es,
const real& importo, char sezione, bool movap, const real& importo, char sezione, bool movap,
bool provv, bool somma); bool provv, bool somma);
}; };
class TSaldo_agg : public TObject class TSaldo_agg : public TObject
{ {
TTab_conti _tab_conti; TTab_conti _tab_conti;
bool _movap; // se e' mov. d'apertura (aggiorno SALDO e FLAGSALINI in bool _movap; // se e' mov. d'apertura (aggiorno SALDO e FLAGSALINI in
// saldi) // saldi)
bool _provv; bool _provv;
int _anno_es; // anno esercizio int _anno_es; // anno esercizio
TDate _data_ulmov; // data ultimo movimento TDate _data_ulmov; // data ultimo movimento
long _num_ulmov; // numero ultimo movimento long _num_ulmov; // numero ultimo movimento
TRectype * _rec; // record corrente sui saldi TRectype * _rec; // record corrente sui saldi
THash_object * tconti() { return _tab_conti.get_hashobj(); } THash_object * tconti() { return _tab_conti.get_hashobj(); }
public: public:
void clear_saldi(int year); void clear_saldi(int year);
void registra(); void registra();
void aggiorna (const TConto& tc, const real& importo, char sezione, void aggiorna (const TConto& tc, const real& importo, char sezione,
bool somma=TRUE); bool somma=TRUE);
void aggiorna (int gruppo, int conto, long sottoconto, const real& importo, void aggiorna (int gruppo, int conto, long sottoconto, const real& importo,
char sezione, bool somma=TRUE); char sezione, bool somma=TRUE);
void set_anno_es(int anno) { _anno_es = anno; } void set_anno_es(int anno) { _anno_es = anno; }
int anno_es() const { return _anno_es; } int anno_es() const { return _anno_es; }
void set_movap (bool movap) { _movap = movap; } void set_movap (bool movap) { _movap = movap; }
bool movap() const { return _movap; } bool movap() const { return _movap; }
void set_movprovv (bool p) { _provv = p; } void set_movprovv (bool p) { _provv = p; }
bool movprovv() const { return _provv; } bool movprovv() const { return _provv; }
void set_data_ulmov (const TDate& data) { _data_ulmov = data; } void set_data_ulmov (const TDate& data) { _data_ulmov = data; }
const TDate& data_ulmov() const { return _data_ulmov; } const TDate& data_ulmov() const { return _data_ulmov; }
void set_num_ulmov (long num) { _num_ulmov = num; } void set_num_ulmov (long num) { _num_ulmov = num; }
long num_ulmov() const { return _num_ulmov; } long num_ulmov() const { return _num_ulmov; }
void reset(); // pulisce l'array dei conti void reset(); // pulisce l'array dei conti
TSaldo_agg(); TSaldo_agg();
int items() const { return _tab_conti.items();} int items() const { return _tab_conti.items();}
}; };
#endif #endif

512
cg/cglib02.cpp
View File

@ -1,256 +1,256 @@
///////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////
// cglib02.cpp // cglib02.cpp
// //
// Aggiornamento saldi // Aggiornamento saldi
// //
///////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////
#include <stdlib.h> #include <stdlib.h>
#include <isam.h> #include <isam.h>
#include <utility.h> #include <utility.h>
#include <saldi.h> #include <saldi.h>
#include "conto.h" #include "conto.h"
#include "cglib.h" #include "cglib.h"
void TTab_conti::do_agg(TConto* tc, int anno_es, const real& importo, void TTab_conti::do_agg(TConto* tc, int anno_es, const real& importo,
char sezione, bool movap, bool provv, bool somma, const char* key) char sezione, bool movap, bool provv, bool somma, const char* key)
{ {
real i = somma ? importo : -importo; real i = somma ? importo : -importo;
if (movap) if (movap)
{ {
if (sezione == 'D') tc->saldo() += i; if (sezione == 'D') tc->saldo() += i;
else tc->saldo() -= i; else tc->saldo() -= i;
} }
else else
if (provv) if (provv)
{ {
if (sezione == 'D') tc->darepro() += i; if (sezione == 'D') tc->darepro() += i;
else tc->averepro() += i; else tc->averepro() += i;
} }
else else
{ {
if (sezione == 'D') tc->dare() += i; if (sezione == 'D') tc->dare() += i;
else tc->avere() += i; else tc->avere() += i;
} }
// rimuovo dalla tabella il conto se dare e avere vanno a zero // rimuovo dalla tabella il conto se dare e avere vanno a zero
if (tc->dare().is_zero() && tc->avere().is_zero() && if (tc->dare().is_zero() && tc->avere().is_zero() &&
tc->darepro().is_zero() && tc->averepro().is_zero() && tc->darepro().is_zero() && tc->averepro().is_zero() &&
tc->saldo().is_zero()) remove(key); tc->saldo().is_zero()) remove(key);
} }
void TTab_conti::aggiorna_conto(const TConto& tcon, int anno_es, const real& importo, char sezione, bool movap, bool provv, bool somma) void TTab_conti::aggiorna_conto(const TConto& tcon, int anno_es, const real& importo, char sezione, bool movap, bool provv, bool somma)
{ {
TString80 key; TString80 key;
key << format("%4d", anno_es); key << format("%4d", anno_es);
key << format("%3d", tcon.gruppo()); key << format("%3d", tcon.gruppo());
key << format("%3d", tcon.conto()); key << format("%3d", tcon.conto());
key << format("%6ld", tcon.sottoconto()); key << format("%6ld", tcon.sottoconto());
TConto* tc = (TConto*) objptr(key); TConto* tc = (TConto*) objptr(key);
if (tc == NULL) if (tc == NULL)
{ {
tc = new TConto(tcon.gruppo(), tcon.conto(), tcon.sottoconto(), tc = new TConto(tcon.gruppo(), tcon.conto(), tcon.sottoconto(),
tcon.tipo()); tcon.tipo());
add(key, tc); add(key, tc);
tc->dare() = ZERO; tc->dare() = ZERO;
tc->avere() = ZERO; tc->avere() = ZERO;
tc->darepro() = ZERO; tc->darepro() = ZERO;
tc->averepro() = ZERO; tc->averepro() = ZERO;
tc->saldo() = ZERO; tc->saldo() = ZERO;
} }
do_agg(tc, anno_es, importo, sezione, movap, provv, somma, key); do_agg(tc, anno_es, importo, sezione, movap, provv, somma, key);
} }
void TTab_conti::aggiorna_conto(int gruppo, int conto, long sottoconto, void TTab_conti::aggiorna_conto(int gruppo, int conto, long sottoconto,
int anno_es, const real& importo, char sezione, int anno_es, const real& importo, char sezione,
bool movap, bool provv, bool somma) bool movap, bool provv, bool somma)
{ {
TString80 key; TString80 key;
key << format("%4d", anno_es); key << format("%4d", anno_es);
key << format("%3d", gruppo); key << format("%3d", gruppo);
key << format("%3d", conto); key << format("%3d", conto);
key << format("%6ld", sottoconto); key << format("%6ld", sottoconto);
TConto* tc = (TConto*) objptr(key); TConto* tc = (TConto*) objptr(key);
if (tc == NULL) if (tc == NULL)
{ {
tc = new TConto(gruppo, conto, sottoconto); tc = new TConto(gruppo, conto, sottoconto);
add(key, tc); add(key, tc);
} }
do_agg(tc, anno_es, importo, sezione, movap, provv, somma, key); do_agg(tc, anno_es, importo, sezione, movap, provv, somma, key);
} }
TSaldo_agg::TSaldo_agg() TSaldo_agg::TSaldo_agg()
{ {
_anno_es = 0; _anno_es = 0;
_data_ulmov = ""; _data_ulmov = "";
_num_ulmov = 0l; _num_ulmov = 0l;
_movap = FALSE; _movap = FALSE;
_provv = FALSE; _provv = FALSE;
reset(); // pulizia dell'array dei conti reset(); // pulizia dell'array dei conti
} }
void TSaldo_agg::aggiorna(const TConto& tc, const real& importo, char sezione, void TSaldo_agg::aggiorna(const TConto& tc, const real& importo, char sezione,
bool somma) bool somma)
{ {
_tab_conti.aggiorna_conto(tc, _anno_es, importo, sezione, _movap, _provv, _tab_conti.aggiorna_conto(tc, _anno_es, importo, sezione, _movap, _provv,
somma); somma);
} }
void TSaldo_agg::aggiorna(int gruppo, int conto, long sottoconto, const real& importo, char sezione, bool somma) void TSaldo_agg::aggiorna(int gruppo, int conto, long sottoconto, const real& importo, char sezione, bool somma)
{ {
_tab_conti.aggiorna_conto(gruppo, conto, sottoconto, _anno_es, importo, _tab_conti.aggiorna_conto(gruppo, conto, sottoconto, _anno_es, importo,
sezione, _movap, _provv, somma); sezione, _movap, _provv, somma);
} }
void TSaldo_agg::reset() void TSaldo_agg::reset()
{ {
_tab_conti.destroy(); _tab_conti.destroy();
} }
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////
// pulizia file saldi // pulizia file saldi
// //
// Scorro il file saldi per l' anno year o per tutti gli anni se year = 0 // Scorro il file saldi per l' anno year o per tutti gli anni se year = 0
// e azzero i progressivi. // e azzero i progressivi.
// //
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////
void TSaldo_agg::clear_saldi(int year) void TSaldo_agg::clear_saldi(int year)
{ {
TLocalisamfile saldi(LF_SALDI); TLocalisamfile saldi(LF_SALDI);
set_anno_es(year); set_anno_es(year);
saldi.zero(); saldi.zero();
if (anno_es() != 0) if (anno_es() != 0)
saldi.put(SLD_ANNOES, anno_es()); saldi.put(SLD_ANNOES, anno_es());
TRectype last(saldi.curr()); TRectype last(saldi.curr());
for (saldi.read(_isgteq, _lock); for (saldi.read(_isgteq, _lock);
!saldi.eof() && saldi.curr() <= last; !saldi.eof() && saldi.curr() <= last;
saldi.next(_lock)) saldi.next(_lock))
{ {
saldi.put(SLD_FLAGSALINI, "D"); saldi.put(SLD_FLAGSALINI, "D");
saldi.zero(SLD_SALDO); saldi.zero(SLD_SALDO);
saldi.zero(SLD_PDAREPRO); saldi.zero(SLD_PDAREPRO);
saldi.zero(SLD_PAVEREPRO); saldi.zero(SLD_PAVEREPRO);
saldi.zero(SLD_PDARE); saldi.zero(SLD_PDARE);
saldi.zero(SLD_PAVERE); saldi.zero(SLD_PAVERE);
saldi.zero(SLD_NUMULTMOV); saldi.zero(SLD_NUMULTMOV);
saldi.zero(SLD_DATAULMOV); saldi.zero(SLD_DATAULMOV);
saldi.rewrite(); saldi.rewrite();
} }
saldi.reread(_unlock); saldi.reread(_unlock);
} }
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////
// Aggiornamento file saldi // Aggiornamento file saldi
// //
// Scorro la tabella dei conti interna _tab_conti. // Scorro la tabella dei conti interna _tab_conti.
// Per ogni conto cerco il record su saldi, se non c'e' lo creo. // Per ogni conto cerco il record su saldi, se non c'e' lo creo.
// Se c'e' gia' lo aggiorno nel seguente modo: // Se c'e' gia' lo aggiorno nel seguente modo:
// //
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////
void TSaldo_agg::registra() void TSaldo_agg::registra()
{ {
real s, r; real s, r;
TString Flagsalini; TString Flagsalini;
TDate data_ulmov; TDate data_ulmov;
long num_ulmov; long num_ulmov;
TLocalisamfile saldi(LF_SALDI); TLocalisamfile saldi(LF_SALDI);
int conti = _tab_conti.items(); int conti = _tab_conti.items();
_tab_conti.restart(); _tab_conti.restart();
for (int i = 0; i < conti; i++) for (int i = 0; i < conti; i++)
{ {
THash_object * hobj = tconti(); THash_object * hobj = tconti();
const TConto& tcon = (TConto &)hobj->obj(); const TConto& tcon = (TConto &)hobj->obj();
CHECK(tcon.ok(), "Tentativo di saldare un conto incompleto"); CHECK(tcon.ok(), "Tentativo di saldare un conto incompleto");
saldi.zero(); saldi.zero();
saldi.put(SLD_ANNOES, atoi(hobj->key().left(4)) ); saldi.put(SLD_ANNOES, atoi(hobj->key().left(4)) );
saldi.put(SLD_GRUPPO, tcon.gruppo()); saldi.put(SLD_GRUPPO, tcon.gruppo());
saldi.put(SLD_CONTO, tcon.conto()); saldi.put(SLD_CONTO, tcon.conto());
saldi.put(SLD_SOTTOCONTO, tcon.sottoconto()); saldi.put(SLD_SOTTOCONTO, tcon.sottoconto());
bool update = TRUE; bool update = TRUE;
if (saldi.read(_isequal, _lock) != NOERR) if (saldi.read(_isequal, _lock) != NOERR)
{ {
saldi.zero(); saldi.zero();
saldi.put(SLD_ANNOES, anno_es()); saldi.put(SLD_ANNOES, anno_es());
saldi.put(SLD_GRUPPO, tcon.gruppo()); saldi.put(SLD_GRUPPO, tcon.gruppo());
saldi.put(SLD_CONTO, tcon.conto()); saldi.put(SLD_CONTO, tcon.conto());
saldi.put(SLD_SOTTOCONTO, tcon.sottoconto()); saldi.put(SLD_SOTTOCONTO, tcon.sottoconto());
s = tcon.saldo(); s = tcon.saldo();
if (s < ZERO) if (s < ZERO)
{ Flagsalini = "A"; s = -s; } { Flagsalini = "A"; s = -s; }
else else
Flagsalini = "D"; Flagsalini = "D";
saldi.put(SLD_FLAGSALINI, (const char *) Flagsalini); saldi.put(SLD_FLAGSALINI, (const char *) Flagsalini);
saldi.put(SLD_SALDO, s); saldi.put(SLD_SALDO, s);
saldi.put(SLD_PDAREPRO, tcon.darepro()); saldi.put(SLD_PDAREPRO, tcon.darepro());
saldi.put(SLD_PAVEREPRO, tcon.averepro()); saldi.put(SLD_PAVEREPRO, tcon.averepro());
saldi.put(SLD_PDARE, tcon.dare()); saldi.put(SLD_PDARE, tcon.dare());
saldi.put(SLD_PAVERE, tcon.avere()); saldi.put(SLD_PAVERE, tcon.avere());
if (_num_ulmov != 0L) saldi.put(SLD_NUMULTMOV, _num_ulmov); if (_num_ulmov != 0L) saldi.put(SLD_NUMULTMOV, _num_ulmov);
if (_data_ulmov.ok()) saldi.put(SLD_DATAULMOV, _data_ulmov); if (_data_ulmov.ok()) saldi.put(SLD_DATAULMOV, _data_ulmov);
update = saldi.write() == _isreinsert; update = saldi.write() == _isreinsert;
if (update) if (update)
saldi.read(_isequal, _lock); saldi.read(_isequal, _lock);
} }
if (update) if (update)
{ {
num_ulmov = saldi.get_long(SLD_NUMULTMOV); num_ulmov = saldi.get_long(SLD_NUMULTMOV);
data_ulmov = saldi.get_date(SLD_DATAULMOV); data_ulmov = saldi.get_date(SLD_DATAULMOV);
if (((_num_ulmov != 0L) && (_num_ulmov > num_ulmov)) || if (((_num_ulmov != 0L) && (_num_ulmov > num_ulmov)) ||
((_data_ulmov.ok()) && (_data_ulmov > data_ulmov))) ((_data_ulmov.ok()) && (_data_ulmov > data_ulmov)))
{ {
saldi.put(SLD_DATAULMOV, _data_ulmov); saldi.put(SLD_DATAULMOV, _data_ulmov);
saldi.put(SLD_NUMULTMOV, _num_ulmov); saldi.put(SLD_NUMULTMOV, _num_ulmov);
} }
r = tcon.saldo(); r = tcon.saldo();
if (r != ZERO) if (r != ZERO)
{ {
s = saldi.get_real(SLD_SALDO); s = saldi.get_real(SLD_SALDO);
Flagsalini = saldi.get(SLD_FLAGSALINI); Flagsalini = saldi.get(SLD_FLAGSALINI);
if (Flagsalini == "A") s = r - s; if (Flagsalini == "A") s = r - s;
else s = r + s; else s = r + s;
if (s < ZERO) if (s < ZERO)
{ {
Flagsalini = "A"; s = -s; Flagsalini = "A"; s = -s;
} }
else else
Flagsalini = "D"; Flagsalini = "D";
saldi.put(SLD_FLAGSALINI, Flagsalini); saldi.put(SLD_FLAGSALINI, Flagsalini);
saldi.put(SLD_SALDO, s); saldi.put(SLD_SALDO, s);
} }
r = saldi.get_real(SLD_PDAREPRO); r = saldi.get_real(SLD_PDAREPRO);
r += tcon.darepro(); r += tcon.darepro();
saldi.put(SLD_PDAREPRO, r); saldi.put(SLD_PDAREPRO, r);
r = saldi.get_real(SLD_PAVEREPRO); r = saldi.get_real(SLD_PAVEREPRO);
r += tcon.averepro(); r += tcon.averepro();
saldi.put(SLD_PAVEREPRO, r); saldi.put(SLD_PAVEREPRO, r);
r = saldi.get_real(SLD_PDARE); r = saldi.get_real(SLD_PDARE);
r += tcon.dare(); r += tcon.dare();
saldi.put(SLD_PDARE, r); saldi.put(SLD_PDARE, r);
r = saldi.get_real(SLD_PAVERE); r = saldi.get_real(SLD_PAVERE);
r += tcon.avere(); r += tcon.avere();
saldi.put(SLD_PAVERE, r); saldi.put(SLD_PAVERE, r);
saldi.rewrite(); saldi.rewrite();
} }
} }
} }

186
cg/conto.h
View File

@ -1,93 +1,93 @@
#ifndef __CONTO_H #ifndef __CONTO_H
#define __CONTO_H #define __CONTO_H
#ifndef __STRINGS_H #ifndef __STRINGS_H
#include <strings.h> #include <strings.h>
#endif #endif
#ifndef __REAL_H #ifndef __REAL_H
#include <real.h> #include <real.h>
#endif #endif
class TBill : public TSortable class TBill : public TSortable
{ {
char _tipo; // ' ' = Conto, 'C' = Cliente, 'F' = 'Fornitore' char _tipo; // ' ' = Conto, 'C' = Cliente, 'F' = 'Fornitore'
int _gruppo, _conto; int _gruppo, _conto;
long _sottoconto; // Sottoconto, codice cliente o fornitore long _sottoconto; // Sottoconto, codice cliente o fornitore
TString80 _descrizione; // Vuota fino alla chiamata di describe TString80 _descrizione; // Vuota fino alla chiamata di describe
int _tipo_cr; // Tipo costo/ricavo int _tipo_cr; // Tipo costo/ricavo
bool _sospeso; bool _sospeso;
protected: protected:
virtual int compare(const TSortable& s) const; virtual int compare(const TSortable& s) const;
virtual const char* class_name() const { return "Conto"; } virtual const char* class_name() const { return "Conto"; }
void describe(); void describe();
const TBill& copy(const TBill& b); const TBill& copy(const TBill& b);
public: public:
TBill(int g = 0, int c = 0, long s = 0L, char t = ' ', const char* d = NULL, int r = -1) TBill(int g = 0, int c = 0, long s = 0L, char t = ' ', const char* d = NULL, int r = -1)
: _tipo(t), _gruppo(g), _conto(c), _sottoconto(s), _descrizione(d), _tipo_cr(r) { set(g,c,s,t,d,r);} : _tipo(t), _gruppo(g), _conto(c), _sottoconto(s), _descrizione(d), _tipo_cr(r) { set(g,c,s,t,d,r);}
TBill(TToken_string& tgcsd, int from, int mode = 0); TBill(TToken_string& tgcsd, int from, int mode = 0);
TBill(const TBill& b) { copy(b); } TBill(const TBill& b) { copy(b); }
virtual ~TBill() {} virtual ~TBill() {}
const TBill& set(int g = 0, int c = 0, long s = 0L, char t = ' ', const TBill& set(int g = 0, int c = 0, long s = 0L, char t = ' ',
const char* d = NULL, int r = -1); const char* d = NULL, int r = -1);
const TBill& add_to(TToken_string& ts, int from, int mode = 0); const TBill& add_to(TToken_string& ts, int from, int mode = 0);
const TBill& operator=(const TBill& b) { return copy(b); } const TBill& operator=(const TBill& b) { return copy(b); }
virtual bool ok() const; // Gruppo, Conto e Sottoconto non nulli virtual bool ok() const; // Gruppo, Conto e Sottoconto non nulli
bool empty() const { return _gruppo==0 && _conto==0 && _sottoconto == 0; } bool empty() const { return _gruppo==0 && _conto==0 && _sottoconto == 0; }
char tipo() const { return _tipo; } char tipo() const { return _tipo; }
int gruppo() const { return _gruppo; } int gruppo() const { return _gruppo; }
int conto() const { return _conto; } int conto() const { return _conto; }
long sottoconto() const { return _sottoconto; } long sottoconto() const { return _sottoconto; }
const TString& descrizione(); const TString& descrizione();
int tipo_cr(); int tipo_cr();
void tipo_cr(int tcr) { _tipo_cr = tcr; } void tipo_cr(int tcr) { _tipo_cr = tcr; }
int tipo_att(); int tipo_att();
bool read(TRectype& r); bool read(TRectype& r);
bool sospeso() const { return _sospeso;} // _sospeso e' letto nella read() bool sospeso() const { return _sospeso;} // _sospeso e' letto nella read()
const char* string(int mode = 0); const char* string(int mode = 0);
}; };
enum TIndbil { ib_null, ib_attivita, ib_passivita, ib_costi, ib_ricavi, ib_conti_ordine }; enum TIndbil { ib_null, ib_attivita, ib_passivita, ib_costi, ib_ricavi, ib_conti_ordine };
class TConto : public TBill class TConto : public TBill
{ {
real _dare, _avere, _darepro, _averepro, _saldo; real _dare, _avere, _darepro, _averepro, _saldo;
public: public:
TConto(int g = 0, int c = 0, long s = 0L, char t = ' ', const char* d = NULL) TConto(int g = 0, int c = 0, long s = 0L, char t = ' ', const char* d = NULL)
: TBill(g, c, s, t, d) {} : TBill(g, c, s, t, d) {}
TConto (TToken_string& tgcsd, int from, int mode = 0) TConto (TToken_string& tgcsd, int from, int mode = 0)
: TBill(tgcsd, from, mode) {}; : TBill(tgcsd, from, mode) {};
real& dare() { return _dare; } real& dare() { return _dare; }
const real& dare() const { return _dare; } const real& dare() const { return _dare; }
real& avere() { return _avere; } real& avere() { return _avere; }
const real& avere() const { return _avere; } const real& avere() const { return _avere; }
real& darepro() { return _darepro; } real& darepro() { return _darepro; }
const real& darepro() const { return _darepro; } const real& darepro() const { return _darepro; }
real& averepro() { return _averepro; } real& averepro() { return _averepro; }
const real& averepro() const { return _averepro; } const real& averepro() const { return _averepro; }
real& saldo() { return _saldo; } real& saldo() { return _saldo; }
const real& saldo() const { return _saldo; } const real& saldo() const { return _saldo; }
}; };
#endif #endif