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

Corretti errori 108 109 112 116 171 172 173 174 175 177 178 179 180 181 182

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@73 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-08-26 14:08:52 +00:00
parent 10cb8b20f6
commit 61cb7ebabe
7 changed files with 423 additions and 464 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
cg/cg1100.cpp
View File

@ -12,6 +12,7 @@
#include <execp.h> #include <execp.h>
#include <lffiles.h> #include <lffiles.h>
#include <nditte.h>
#include <pconti.h> #include <pconti.h>
#include "cg1.h" #include "cg1.h"
#include "cg1100.h" #include "cg1100.h"
@ -78,10 +79,10 @@ public:
void CG1100_application::process_link(int id, const char* txt) void CG1100_application::process_link(int id, const char* txt)
{ {
TString ss = "1|"; ss << txt; TString ss = "1|"; ss << txt;
TMessage fs(cmd2name("cg0","0"), MSG_LN, ss); TMessage fs(cmd2name("cg0","-0"), MSG_LN, ss);
TMailbox m; TMailbox m;
m.send(fs); m.send(fs);
TExternal_app cg0("cg -0"); TExternal_app cg0("cg0 -0");
if (cg0.run()) beep(); if (cg0.run()) beep();
} }
@ -113,6 +114,7 @@ print_action CG1100_application::postprocess_page(int file,int counter)
void CG1100_application::set_page(int file,int counter) void CG1100_application::set_page(int file,int counter)
{ {
intesta (_tipo_stampa);
switch (_tipo_stampa) switch (_tipo_stampa)
{ {
case completa: case completa:
@ -284,9 +286,9 @@ void CG1100_application::set_con_IV()
set_row (2, "@18g%40s", (const char *) descr_IV_dir); set_row (2, "@18g%40s", (const char *) descr_IV_dir);
set_row (2, "@60g$[r]%03d$[n].", (const char *) g); set_row (2, "@60g$[r]%3d$[n].", (const char *) g);
set_row (2, "@64g$[r]%03d$[n].", (const char *) c); set_row (2, "@64g$[r]%3d$[n].", (const char *) c);
set_row (2, "@68g$[r]%06d$[n]", (const char *) s); set_row (2, "@68g$[r]%6d$[n]", (const char *) s);
set_row (2, "@78g%2d", (const char *) c4); set_row (2, "@78g%2d", (const char *) c4);
@ -298,9 +300,9 @@ void CG1100_application::set_senza_IV()
reset_row (1); reset_row (1);
set_row (1, "@1g$[r]@pn$[n]", FLD(lnum,PCN_GRUPPO, "@@@.") ); set_row (1, "@1g$[r]@n$[n].", FLD(lnum,PCN_GRUPPO) );
set_row (1, "@5g$[r]@pn$[n]", FLD(lnum,PCN_CONTO, "@@@.") ); set_row (1, "@5g$[r]@n$[n].", FLD(lnum,PCN_CONTO) );
set_row (1, "@9g$[r]@pn$[n]", FLD(lnum, PCN_SOTTOCONTO, "@@@@@@") ); set_row (1, "@9g$[r]@n$[n]", FLD(lnum, PCN_SOTTOCONTO) );
set_row (1, "@16g@50s", FLD(lnum,PCN_DESCR) ); set_row (1, "@16g@50s", FLD(lnum,PCN_DESCR) );
@ -348,9 +350,9 @@ void CG1100_application::set_con_ana()
set_row (1, "@15g%-10s", (const char *)DescrCodTabAnabil); set_row (1, "@15g%-10s", (const char *)DescrCodTabAnabil);
set_row (1, "@61g$[r]%03d$[n].", g ); set_row (1, "@61g$[r]%3d$[n].", g );
set_row (1, "$[r]%03d$[n].", c ); set_row (1, "$[r]%3d$[n].", c );
set_row (1, "$[r]%06ld$[n]", s ); set_row (1, "$[r]%6ld$[n]", s );
int r=1; int r=1;
while ((d = desc_conto.get()) != NULL) while ((d = desc_conto.get()) != NULL)
@ -367,9 +369,9 @@ void CG1100_application::set_senza_ana()
reset_row (1); reset_row (1);
set_row (1, "@1g$[r]@pn$[n]", FLD(lnum,PCN_GRUPPO, "@@@.") ); set_row (1, "@1g$[r]@n$[n].", FLD(lnum,PCN_GRUPPO) );
set_row (1, "@5$[r]g@pn$[n]", FLD(lnum,PCN_CONTO, "@@@.") ); set_row (1, "@5$[r]g@n$[n].", FLD(lnum,PCN_CONTO) );
set_row (1, "@9$[r]g@pn$[n]", FLD(lnum, PCN_SOTTOCONTO, "@@@@@@") ); set_row (1, "@9$[r]g@n$[n]", FLD(lnum, PCN_SOTTOCONTO) );
set_row (1, "@16g@50s", FLD(lnum,PCN_DESCR) ); set_row (1, "@16g@50s", FLD(lnum,PCN_DESCR) );
@ -393,9 +395,9 @@ void CG1100_application::set_completa()
reset_row (1); reset_row (1);
set_row (1, "@1g$[r]@pn$[n]", FLD(lnum,PCN_GRUPPO, "@@@.") ); set_row (1, "@1g$[r]@n$[n].", FLD(lnum,PCN_GRUPPO) );
set_row (1, "@5g$[r]@pn$[n]", FLD(lnum,PCN_CONTO, "@@@.") ); set_row (1, "@5g$[r]@n$[n].", FLD(lnum,PCN_CONTO) );
set_row (1, "@9g$[r]@pn", FLD(lnum, PCN_SOTTOCONTO, "@@@@@@") ); set_row (1, "@9g$[r]@n$[n]", FLD(lnum, PCN_SOTTOCONTO) );
set_row (1, "@16g@50s", FLD(lnum,PCN_DESCR) ); set_row (1, "@16g@50s", FLD(lnum,PCN_DESCR) );
@ -479,10 +481,9 @@ bool CG1100_application::set_print(int)
if (tasto == K_ENTER) if (tasto == K_ENTER)
{ {
_tipo_stampa = (stampe)atoi(_msk->get (F_SCELTA_STAMPA)); _tipo_stampa = (stampe)_msk->get_int(F_SCELTA_STAMPA);
_salto_pag = (bool) (_msk->get (F_SALTO_PAGINA) == "X"); _salto_pag = _msk->get_bool (F_SALTO_PAGINA);
intesta (_tipo_stampa);
scegli_cur(); scegli_cur();
enable_link("Collegamento Piano dei conti : ", 'r'); enable_link("Collegamento Piano dei conti : ", 'r');
return TRUE; return TRUE;
@ -493,24 +494,25 @@ bool CG1100_application::set_print(int)
void CG1100_application::intesta (stampe tipo) void CG1100_application::intesta (stampe tipo)
{ {
int soh = 1; // riga d'inizio dell'intestazione int soh = 1; // riga d'inizio dell'intestazione
TString sep(132); const long firm = get_firm();
reset_header (); reset_header ();
TLocalisamfile ditte(LF_NDITTE);
ditte.zero();
ditte.put(NDT_CODDITTA, firm);
ditte.read();
if (ditte.bad()) ditte.zero();
sep << "Ditta : " << get_firm(); TString s(132);
sep.left_just(132); s = ditte.get(NDT_RAGSOC);
set_header (soh++, (const char*) sep); set_header (soh++, "Ditta : %ld %s@125gData : @< Pag. @#", firm, (const char *) s);
sep = "Studio : ";
sep << "Data : @< Pag. @#";
sep.right_just(132 - (10 + 4));
sep.overwrite ("PIANO DEI CONTI");
set_header (soh++, (const char*)sep); set_header (soh++,"@58gPIANO DEI CONTI");
sep.fill('_'); s.fill('_');
set_header (soh++, (const char *) sep); set_header (soh++, (const char *) s);
switch (tipo) switch (tipo)
{ {
@ -547,9 +549,8 @@ void CG1100_application::intesta (stampe tipo)
break; break;
} }
set_header (soh++,(const char*)sep); set_header (soh++,(const char*)s);
sep = ""; set_header (soh, "");
set_header (soh, (const char *) sep);
} }

343
cg/cg1200.cpp
View File

@ -5,12 +5,16 @@
#include <mailbox.h> #include <mailbox.h>
#include <execp.h> #include <execp.h>
#include <nditte.h>
#include <clifo.h> #include <clifo.h>
#include <saldi.h> #include <saldi.h>
#include <comuni.h> #include <comuni.h>
#include "cg1200a.h" #include "cg1200a.h"
#include "cg1200b.h" #include "cg1200b.h"
#define COMRF_ALIAS 50
#define COMNASC_ALIAS 51
enum pt { undefined = 0, elenco = 1, rubriche = 2, etichette = 3 }; enum pt { undefined = 0, elenco = 1, rubriche = 2, etichette = 3 };
enum pw { clienti = 1, fornitori = 2, both = 3 }; enum pw { clienti = 1, fornitori = 2, both = 3 };
@ -23,47 +27,43 @@ class CG1200_App : public TPrintapp
pt _pr_type; pt _pr_type;
pw _pr_what; pw _pr_what;
TRelation* _rel; TRelation* _rel;
int _cur_c1, _cur_c2, _cur_f1, _cur_f2; int _cur_1, _cur_2;
int _sort; int _sort;
int _interline; int _interline;
bool _mov_only; bool _mov_only;
TLocalisamfile* _comuni;
TLocalisamfile* _saldi; TLocalisamfile* _saldi;
// etichette // etichette
int _startrow, _rows_et, _cols_et, _startcol; int _startrow, _rows_et, _cols_et, _startcol;
// variable field slots // variable field slots
TString _piva; TString _piva, _cpercip, _fax, _telex, _name, _telefono, _indir;
TString _telefono;
TString _name;
public: public:
virtual bool preprocess_page(int counter); virtual bool preprocess_page(int file, int counter);
virtual bool preprocess_print(int counter); virtual bool preprocess_print(int file, int counter);
virtual print_action postprocess_print(int counter); virtual print_action postprocess_print(int file, int counter);
virtual void user_create(); virtual void user_create();
virtual bool destroy(); virtual bool destroy();
virtual bool set_print(int); virtual bool set_print(int);
int ccli() { return _sort == 1 ? _cur_c1 : _cur_c2; } int ccur() { return _sort == 1 ? _cur_1 : _cur_2; }
int cfor() { return _sort == 1 ? _cur_f1 : _cur_f2; }
TRectype& look_com(TString& cod);
const char* look_tab(const char* tabname, TString& cod, const char* look_tab(const char* tabname, TString& cod,
const char* fld = "S0"); const char* fld = "S0");
const char* get_field(int ln, const char* fn) const char* get_field(int ln, const char* fn)
{ return current_cursor()->curr(ln).get(fn); } { return current_cursor()->curr(ln).get(fn); }
void set_rows(); virtual void set_page (int file, int counter);
void set_elenco(); void set_elenco();
void set_rubriche(); void set_rubriche();
void set_etichette(); void set_etichette();
void process_link(int id, const char* txt); void process_link(int id, const char* txt);
CG1200_App() : TPrintapp(), _piva(30), _telefono(50), CG1200_App() : TPrintapp(),_piva(18), _cpercip(10), _fax(50), _telex(50),
_name(60) _name(60), _telefono(90), _indir(70)
{ {
_rel = NULL; _pr_type = undefined; _startrow = 2; _startcol = 3; _rel = NULL; _pr_type = undefined; _startrow = 2; _startcol = 3;
_rows_et = 9; _cols_et = 40; _rows_et = 9; _cols_et = 40;
@ -80,34 +80,14 @@ public:
void CG1200_App::process_link(int id, const char* txt) void CG1200_App::process_link(int id, const char* txt)
{ {
TString ss = "1|"; TString ss = "1|";
switch (_pr_what)
{
case clienti :
ss << "C|"; break;
case fornitori :
ss << "F|"; break;
case both :
default :
break;
}
ss << txt; ss << txt;
TMessage fs(cmd2name("cg0","1"), MSG_LN, ss); TMessage fs(cmd2name("cg0","-1"), MSG_LN, ss);
TMailbox m; TMailbox m;
m.send(fs); m.send(fs);
TExternal_app cg0("cg -1"); TExternal_app cg0("cg0 -1");
if (cg0.run()) beep(); if (cg0.run()) beep();
} }
TRectype& CG1200_App::look_com(TString& cod)
{
_comuni->curr().zero();
_comuni->curr().put("COM",cod);
_comuni->read();
if (_comuni->bad())
_comuni->curr().zero();
return _comuni->curr();
}
const char* CG1200_App::look_tab(const char* tabname, TString& cod, const char* CG1200_App::look_tab(const char* tabname, TString& cod,
const char* fld) const char* fld)
{ {
@ -119,7 +99,7 @@ const char* CG1200_App::look_tab(const char* tabname, TString& cod,
return tab.curr().get(fld); return tab.curr().get(fld);
} }
bool CG1200_App::preprocess_page(int counter) bool CG1200_App::preprocess_page(int file, int counter)
{ {
if (_mov_only) if (_mov_only)
{ {
@ -141,21 +121,41 @@ bool CG1200_App::preprocess_page(int counter)
if (_piva.empty()) _piva = get_field(LF_CLIFO, CLI_PAIV); if (_piva.empty()) _piva = get_field(LF_CLIFO, CLI_PAIV);
_telefono = get_field(LF_CLIFO, CLI_PTEL); _telefono = get_field(LF_CLIFO, CLI_PTEL);
if (!_telefono.empty()) _telefono << "/"; if (!_telefono.empty()) _telefono << "/";
_telefono << get_field(LF_CLIFO, CLI_TEL); _telefono << get_field(LF_CLIFO, CLI_TEL) << " ";
TString s(get_field(LF_CLIFO, CLI_PTEL2));
if (!s.empty()) s << "/";
_telefono << s << get_field(LF_CLIFO, CLI_TEL2) << " ";
s = get_field(LF_CLIFO, CLI_PTEL3);
if (!s.empty()) s << "/";
_telefono << s << get_field(LF_CLIFO, CLI_TEL3);
_fax = get_field(LF_CLIFO, CLI_PFAX);
if (!_fax.empty()) _fax << "/";
_fax << get_field(LF_CLIFO, CLI_FAX);
_telex = get_field(LF_CLIFO, CLI_PTELEX);
if (!_telex.empty()) _telex << "/";
_telex << get_field(LF_CLIFO, CLI_TELEX);
_indir = get_field(LF_CLIFO, CLI_INDCF);
if (!_indir.empty()) _indir << " ";
_indir << get_field(LF_CLIFO, CLI_CIVCF);
_name = get_field(LF_CLIFO, CLI_RAGSOC); _name = get_field(LF_CLIFO, CLI_RAGSOC);
s = get_field(LF_CLIFO, CLI_CODANAGPER);
_cpercip = "";
if (s.not_empty()) _cpercip << get_field(LF_CLIFO, CLI_TIPOAPER) << " " << s;
if (strcmp(get_field(LF_CLIFO, CLI_TIPOAPER),"F") == 0) // che minchia e' questo
{ // if (strcmp(get_field(LF_CLIFO, CLI_TIPOAPER),"F") == 0)
TString surname = _name.mid(30,50); surname.trim(); // {
_name = _name.mid(0,30); _name.trim(); // TString surname = _name.mid(30,50); surname.trim();
_name << " " << surname; // _name = _name.mid(0,30); _name.trim();
} // _name << " " << surname;
// }
return TRUE; return TRUE;
} }
print_action CG1200_App::postprocess_print(int counter) print_action CG1200_App::postprocess_print(int file, int counter)
{ {
static bool more = FALSE; static bool more = FALSE;
if (_pr_what == both) if (_pr_what == both)
@ -163,13 +163,13 @@ print_action CG1200_App::postprocess_print(int counter)
if (more) if (more)
{ {
more = FALSE; more = FALSE;
select_cursor(ccli()); select_cursor(ccur());
return NEXT_PAGE; return NEXT_PAGE;
} }
else else
{ {
more = TRUE; more = TRUE;
select_cursor(cfor()); select_cursor(ccur());
return REPEAT_PAGE; return REPEAT_PAGE;
} }
} }
@ -187,7 +187,7 @@ bool mask_ctrl_handler(TMask_field& mf, KEY k)
// set printrows // set printrows
void CG1200_App::set_rows() void CG1200_App::set_page(int file, int counter)
{ {
switch(_pr_type) switch(_pr_type)
{ {
@ -207,59 +207,69 @@ void CG1200_App::set_rows()
void CG1200_App::set_elenco() void CG1200_App::set_elenco()
{ {
reset_print();
reset_header(); reset_header();
// intestazione // intestazione
set_header(1, "Ditta /*TBI*/@82gStudio /*TBI*/@102gData @<@125gPag @#"); const long firm = get_firm();
TLocalisamfile ditte(LF_NDITTE);
ditte.zero();
ditte.put(NDT_CODDITTA, firm);
ditte.read();
if (ditte.bad()) ditte.zero();
TString s(ditte.get(NDT_RAGSOC));
set_header(1, "Ditta %ld %s @102gData @<@125gPag @#", firm, (const char*) s);
set_header(2, "Elenco %s",(_pr_what == both ? "Clienti+Fornitori" : set_header(2, "Elenco %s",(_pr_what == both ? "Clienti+Fornitori" :
(_pr_what == clienti ? "Clienti" : "Fornitori"))); (_pr_what == clienti ? "Clienti" : "Fornitori")));
set_header(3, (const char *)(TString(132).fill('-'))); set_header(3, (const char *)(TString(132).fill('-')));
set_header(4, "Codice Ragione sociale@55gIndirizzo@91gC.a.p.Localita'" set_header(4, " Codice Ragione sociale");
"@117gPr Telefono"); set_header(5, "@9gIndirizzo@59gC.A.P.@66gLocalita'");
set_header(5,"@8gLuogo di nascita@29gData@40gProv. Nazione " set_header(6, "@9gTelefoni@91gFAX @115gTelex");
"Partita IVA Codice fiscale@91gConto di costo/ricavo"); set_header(7, "@9gLuogo di nascita@46gData"
set_header(6,"@55gCodice per allegato@90gPercipiente 770"); "@56gPartita IVA Codice fiscale@93gConto di costo/ricavo@115gC.allegato@126gPerc.770");
set_header(7, (const char *)(TString(132).fill('-'))); set_header(8, (const char *)(TString(132).fill('-')));
// body // body
set_row(1,"$[r]@pn$[n} #s@55g@s@91g@s @s@117g@s #s", set_row(1,"$[r]@1s$[n] $[r]@pn$[n] #t", FLD(LF_CLIFO, CLI_TIPOCF),
FLD(LF_CLIFO, CLI_CODCF,"@@@@@@"), FLD(LF_CLIFO, CLI_CODCF,"@@@@@@"), &_name);
(const char*)_name, set_row(2,"@9g#t@59g@s@66g@s @s", &_indir, FLD(LF_CLIFO, CLI_CAPCF),
FLD(LF_CLIFO, CLI_INDCF), FLD(-COMRF_ALIAS,COM_DENCOM), FLD(-COMRF_ALIAS,COM_PROVCOM));
FLD(LF_CLIFO, CLI_CAPCF), set_row(3,"@9g#t@90g#t@115g#t", &_telefono, &_fax, &_telex);
FLD(LF_COMUNI,COM_DENCOM), set_row(4,"@9g@s @s@46g@ld@56g#t@92g@3n @3n @6n@115g@n@126g#t",
FLD(LF_COMUNI,COM_PROVCOM), FLD(-COMNASC_ALIAS, COM_DENCOM), FLD(-COMNASC_ALIAS, COM_PROVCOM),
(const char*)_telefono); FLD(LF_CLIFO, CLI_DATANASC), &_piva, FLD(LF_CLIFO,CLI_GRUPPORIC),
set_row(2,"@54g#s@90g@2n @2n @pn", FLD(LF_CLIFO,CLI_CONTORIC), FLD(LF_CLIFO, CLI_SOTTOCRIC),
(const char *)_piva, FLD(LF_CLIFO, CLI_CODALLEG), &_cpercip);
FLD(LF_CLIFO,CLI_GRUPPORIC),
FLD(LF_CLIFO,CLI_CONTORIC),
FLD(LF_CLIFO, CLI_SOTTOCRIC,"@@@@@@"));
for(int i = 0; i < _interline; i++) for(int i = 0; i < _interline; i++)
set_row(i+3,""); set_row(i+5,"");
} }
void CG1200_App::set_rubriche() void CG1200_App::set_rubriche()
{ {
reset_print();
reset_header(); reset_header();
// intestazione // intestazione
set_header(1, "Ditta /*TBI*/@82gStudio /*TBI*/@102gData @<@125gPag @#"); const long firm = get_firm();
TLocalisamfile ditte(LF_NDITTE);
ditte.zero();
ditte.put(NDT_CODDITTA, firm);
ditte.read();
if (ditte.bad()) ditte.zero();
TString s(ditte.get(NDT_RAGSOC));
set_header(1, "Ditta %ld %s @102gData @<@125gPag @#", firm, (const char*) s);
set_header(2, "Rubrica %s",(_pr_what == both ? "Clienti+Fornitori" : set_header(2, "Rubrica %s",(_pr_what == both ? "Clienti+Fornitori" :
(_pr_what == clienti ? "Clienti" : "Fornitori"))); (_pr_what == clienti ? "Clienti" : "Fornitori")));
set_header(3, (const char *)(TString(132).fill('-'))); set_header(3, (const char *)(TString(132).fill('-')));
set_header(4, "Codice C Ragione sociale@41gIndirizzo@77gCap@83gLocalita'" set_header(4, " Codice Ragione sociale");
"@104gPr Partita iva Telefono"); set_header(5, "@9gIndirizzo@59gC.A.P.@66gLocalita'");
set_header(5, (const char *)(TString(132).fill('-'))); set_header(6, "@9gTelefoni@91gFAX @115gTelex");
set_header(7, (const char *)(TString(132).fill('-')));
// body // body
set_row(1,"$[r]@pn$[n] #s@55g@s@91g@s @s@117g@s #s", set_row(1,"$[r]@1s$[n] $[r]@pn$[n] #t", FLD(LF_CLIFO,CLI_TIPOCF),
FLD(LF_CLIFO,CLI_CODCF,"@@@@@@"), FLD(LF_CLIFO,CLI_CODCF,"@@@@@@"), &_name);
(const char *)_name, set_row(2,"@9g#t@59g@s@66g@s @s", &_indir, FLD(LF_CLIFO, CLI_CAPCF),
FLD(LF_CLIFO,CLI_INDCF), FLD(-COMRF_ALIAS,COM_DENCOM), FLD(-COMRF_ALIAS,COM_PROVCOM));
FLD(LF_CLIFO, CLI_CAPCF), set_row(3,"@9g#t@90g#t@115g#t", &_telefono, &_fax, &_telex);
FLD(LF_COMUNI, COM_DENCOM),
FLD(LF_COMUNI, COM_PROVCOM), for(int i = 0; i < _interline; i++)
(const char*)_telefono); set_row(i+4,"");
} }
bool mask2_reset_fields(TMask_field& mf, KEY k) bool mask2_reset_fields(TMask_field& mf, KEY k)
@ -277,11 +287,51 @@ bool mask2_reset_fields(TMask_field& mf, KEY k)
void CG1200_App::set_etichette() void CG1200_App::set_etichette()
{ {
reset_print();
reset_header(); reset_header();
for (int i = 1; i < _startrow; i++)
set_row(i,"");
set_row(_startrow, format("@%dg#-%dt",_startcol, _cols_et - _startcol),
&_name);
set_row(_startrow+1, format("@%dg#-%dt",_startcol, _cols_et - _startcol),
&_indir);
set_row(_startrow+2, format("@%dg@5s @%ds @2s",_startcol,
_cols_et - _startcol - 9),
FLD(LF_CLIFO, CLI_CAPCF),
FLD(-COMRF_ALIAS, COM_DENCOM),
FLD(-COMRF_ALIAS, COM_PROVCOM));
for (i = _startrow+3; i <= _rows_et; i++)
set_row(i,"");
}
bool CG1200_App::set_print(int)
{
disable_links();
set_multiple_link(FALSE);
TMask mask("cg1200a.msk");
mask.set_handler(BUT_CG12_ELENCO, mask_ctrl_handler);
mask.set_handler(BUT_CG12_RUBRICHE, mask_ctrl_handler);
mask.set_handler(BUT_CG12_ETICHETTE, mask_ctrl_handler);
mask.run();
// set print type
switch (mask.last_key())
{
case K_ESC:
return FALSE;
break;
case BUT_CG12_ELENCO:
_pr_type = elenco;
break;
case BUT_CG12_ETICHETTE:
{
TMask mask2("cg1200b.msk"); TMask mask2("cg1200b.msk");
/* TBI read/save from - to config file */ /* TBI read/save from - to config file */
_pr_type = etichette;
mask2.set_handler(BUT_CGB_RESET, mask2_reset_fields); mask2.set_handler(BUT_CGB_RESET, mask2_reset_fields);
@ -299,114 +349,65 @@ void CG1200_App::set_etichette()
_startcol = atoi(mask2.get(FLD_CGB_STARTCOL)); _startcol = atoi(mask2.get(FLD_CGB_STARTCOL));
_rows_et = atoi(mask2.get(FLD_CGB_ROWSET)); _rows_et = atoi(mask2.get(FLD_CGB_ROWSET));
_cols_et = atoi(mask2.get(FLD_CGB_COLSET)); _cols_et = atoi(mask2.get(FLD_CGB_COLSET));
break;
for (int i = 1; i < _startrow; i++)
set_row(i,"");
set_row(_startrow, format("@%dg#%ds",_startcol, _cols_et - _startcol),
(const char*)_name);
set_row(_startrow+1, format("@%dg@%ds",_startcol, _cols_et - _startcol),
FLD(LF_CLIFO, CLI_INDCF));
set_row(_startrow+2, format("@%dg@5s @%ds @2s",_startcol,
_cols_et - _startcol - 9),
FLD(LF_CLIFO, CLI_CAPCF),
FLD(LF_COMUNI, COM_DENCOM),
FLD(LF_COMUNI, COM_PROVCOM));
for (i = _startrow+3; i <= _rows_et; i++)
set_row(i,"");
} }
bool CG1200_App::set_print(int)
{
TMask mask("cg1200a.msk");
mask.set_handler(BUT_CG12_ELENCO, mask_ctrl_handler);
mask.set_handler(BUT_CG12_RUBRICHE, mask_ctrl_handler);
mask.set_handler(BUT_CG12_ETICHETTE, mask_ctrl_handler);
mask.run();
// set print type
switch (mask.last_key())
{
case K_ESC:
return FALSE;
break;
case BUT_CG12_ELENCO:
_pr_type = elenco;
break;
case BUT_CG12_ETICHETTE:
_pr_type = etichette;
break;
case BUT_CG12_RUBRICHE: case BUT_CG12_RUBRICHE:
_pr_type = rubriche; _pr_type = rubriche;
break; break;
} }
_sort = atoi(mask.get(RDB_CG12_SORT)); if (_pr_type != etichette)
_pr_what = (pw)atoi(mask.get(RDB_CG12_TYPE)); {
if (_pr_what != both && _pr_type != rubriche) set_multiple_link(TRUE);
enable_link("Collegamento Archivio clienti e fornitori : ", 'r'); enable_link("Collegamento Archivio clienti e fornitori : ", 'r');
_interline = atoi(mask.get(LST_CG12_INTERLINE)); }
_mov_only = mask.get(CHK_CG12_MOVIM) == "X";
TString cod_from(5), cod_to(5); _sort = mask.get_int(RDB_CG12_SORT);
TLocalisamfile* fl; _pr_what = (pw) mask.get_int(RDB_CG12_TYPE);
_interline = mask.get_int(LST_CG12_INTERLINE);
_mov_only = mask.get_bool(CHK_CG12_MOVIM);
if (_pr_what == fornitori) select_cursor(ccur());
select_cursor(cfor());
else select_cursor(ccli()); TRectype tr1(current_cursor()->curr());
tr1.zero();
TRectype tr2(tr1);
if (_pr_what != both) if (_pr_what != both)
{ {
// filter // filter
if (_sort == 1)
{
cod_from = mask.get(_pr_what == clienti ? FLD_CLI_CODFR
: FLD_FOR_CODFR);
cod_to = mask.get(_pr_what == clienti ? FLD_CLI_CODTO
: FLD_FOR_CODTO);
}
else
{
cod_from = mask.get(_pr_what == clienti ? FLD_CLI_RAGSOCFR
: FLD_FOR_RAGSOCFR);
cod_to = mask.get(_pr_what == clienti ? FLD_CLI_RAGSOCTO
: FLD_FOR_RAGSOCTO);
}
if ((!cod_from.empty() || !cod_to.empty()) && _pr_what != both)
{
fl = current_cursor()->file(LF_CLIFO);
TRectype tr1(fl->curr());
TRectype tr2(fl->curr());
tr1.zero(); tr2.zero();
if (_sort == 1)
{
tr1.put(CLI_CODCF,cod_from);
tr2.put(CLI_CODCF,cod_to);
tr1.put(CLI_TIPOCF, _pr_what == clienti ? "C" : "F"); tr1.put(CLI_TIPOCF, _pr_what == clienti ? "C" : "F");
tr2.put(CLI_TIPOCF, _pr_what == clienti ? "C" : "F"); tr2.put(CLI_TIPOCF, _pr_what == clienti ? "C" : "F");
short fromid, toid;
TString nome_campo(12);
if (_sort == 1)
{
fromid = (_pr_what == clienti) ? FLD_CLI_CODFR : FLD_FOR_CODFR;
toid = (_pr_what == clienti) ? FLD_CLI_CODTO : FLD_FOR_CODTO;
nome_campo = CLI_CODCF;
} }
else else
{ {
tr1.put(CLI_RAGSOC,cod_from); fromid = (_pr_what == clienti) ? FLD_CLI_RAGSOCFR : FLD_FOR_RAGSOCFR;
tr2.put(CLI_RAGSOC,cod_to); toid = (_pr_what == clienti) ? FLD_CLI_RAGSOCTO : FLD_FOR_RAGSOCTO;
} nome_campo = CLI_RAGSOC;
current_cursor()->setregion(cod_from.empty() ? NULL : &tr1,
cod_to.empty() ? NULL : &tr2);
}
} }
const TString cod_from(mask.get(fromid));
const TString cod_to(mask.get(toid));
// initialize (non dovrebbe servire) if (cod_from.not_empty()) tr1.put(nome_campo, cod_from);
(*current_cursor()) = 0l; if (cod_to.not_empty()) tr2.put(nome_campo, cod_to);
}
current_cursor()->setregion(tr1, tr2);
// set initial print rows & headers
set_rows();
return TRUE; return TRUE;
} }
bool CG1200_App::preprocess_print(int counter) bool CG1200_App::preprocess_print(int file, int counter)
{ {
reset_print();
if (_pr_type == undefined) if (_pr_type == undefined)
return set_print(counter); return set_print(counter);
return TRUE; return TRUE;
@ -416,13 +417,11 @@ void CG1200_App::user_create()
{ {
// set relation and cursors // set relation and cursors
_rel = new TRelation(LF_CLIFO); _rel = new TRelation(LF_CLIFO);
_rel->add(LF_COMUNI, "COM=COMCF"); _rel->add(LF_COMUNI, "STATO==STATOCF|COM==COMCF", 1, 0, COMRF_ALIAS);
_comuni = _rel->lfile(LF_COMUNI); _rel->add(LF_COMUNI, "STATO==STATONASC|COM==COMNASC", 1, 0, COMNASC_ALIAS);
_saldi = new TLocalisamfile(LF_SALDI); _saldi->setkey(2); _saldi = new TLocalisamfile(LF_SALDI); _saldi->setkey(2);
_cur_c1 = add_cursor(new TCursor(_rel,"TIPOCF=\"C\"",1)); _cur_1 = add_cursor(new TCursor(_rel,"",1));
_cur_c2 = add_cursor(new TCursor(_rel,"TIPOCF=\"C\"",2)); _cur_2 = add_cursor(new TCursor(_rel,"",2));
_cur_f1 = add_cursor(new TCursor(_rel,"TIPOCF=\"F\"",1));
_cur_f2 = add_cursor(new TCursor(_rel,"TIPOCF=\"F\"",2));
add_file(LF_CLIFO); add_file(LF_CLIFO);
enable_print_menu(); enable_print_menu();
} }

1
cg/cg1200a.h
View File

@ -11,7 +11,6 @@
#define CHK_CG12_MOVIM 111 #define CHK_CG12_MOVIM 111
#define LST_CG12_INTERLINE 112 #define LST_CG12_INTERLINE 112
#define CHK_CG12_INCLDI 113 #define CHK_CG12_INCLDI 113
#define CHK_CG12_PRINTONE 114
#define BUT_CG12_ELENCO 115 #define BUT_CG12_ELENCO 115
#define BUT_CG12_RUBRICHE 116 #define BUT_CG12_RUBRICHE 116
#define BUT_CG12_ETICHETTE 117 #define BUT_CG12_ETICHETTE 117

142
cg/cg1200a.uml
View File

@ -1,28 +1,17 @@
#include "cg1200a.h" #include "cg1200a.h"
#include <lffiles.h> #include <lffiles.h>
PAGE "Definizione Stampe" -1 -1 70 17 PAGE "Selezione" -1 -1 70 17
RADIOBUTTON RDB_CG12_TYPE 22 RADIOBUTTON RDB_CG12_TYPE 22
BEGIN BEGIN
PROMPT 4 1 "Oggetto" PROMPT 4 1 "Oggetto"
HELP "Selezionare l'archivio che si desidera stampare" HELP "Selezionare l'archivio che si desidera stampare"
ITEM "1|Clienti" ITEM "1|Clienti"
MESSAGE HIDE,FLD_FOR_RAGSOCFR|HIDE,FLD_FOR_RAGSOCTO MESSAGE HIDE,2@|SHOW,1@|RESET,2@
MESSAGE HIDE,FLD_FOR_CODFR|HIDE,FLD_FOR_CODTO
MESSAGE SHOW,FLD_CLI_RAGSOCFR|SHOW,FLD_CLI_RAGSOCTO
MESSAGE SHOW,FLD_CLI_CODFR|SHOW,FLD_CLI_CODTO
ITEM "2|Fornitori" ITEM "2|Fornitori"
MESSAGE SHOW,FLD_FOR_RAGSOCFR|SHOW,FLD_FOR_RAGSOCTO MESSAGE HIDE,1@|SHOW,2@|RESET,1@
MESSAGE SHOW,FLD_FOR_CODFR|SHOW,FLD_FOR_CODTO
MESSAGE HIDE,FLD_CLI_RAGSOCFR|HIDE,FLD_CLI_RAGSOCTO
MESSAGE HIDE,FLD_CLI_CODFR|HIDE,FLD_CLI_CODTO
ITEM "3|Entrambi" ITEM "3|Entrambi"
MESSAGE HIDE,FLD_FOR_RAGSOCFR|HIDE,FLD_FOR_RAGSOCTO MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@
MESSAGE HIDE,FLD_FOR_CODFR|HIDE,FLD_FOR_CODTO
MESSAGE SHOW,FLD_CLI_RAGSOCFR|HIDE,FLD_CLI_RAGSOCTO
MESSAGE SHOW,FLD_CLI_CODFR|SHOW,FLD_CLI_CODTO
MESSAGE DISABLE,FLD_CLI_RAGSOCFR|DISABLE,FLD_CLI_RAGSOCTO
MESSAGE DISABLE,FLD_CLI_CODFR|DISABLE,FLD_CLI_CODTO
END END
RADIOBUTTON RDB_CG12_SORT 22 RADIOBUTTON RDB_CG12_SORT 22
@ -30,24 +19,9 @@ BEGIN
PROMPT 4 6 "Ordinamento" PROMPT 4 6 "Ordinamento"
HELP "Selezionare il tipo di ordinamento dei record stampati" HELP "Selezionare il tipo di ordinamento dei record stampati"
ITEM "1|per Codice" ITEM "1|per Codice"
MESSAGE DISABLE,FLD_FOR_RAGSOCFR|DISABLE,FLD_FOR_RAGSOCTO MESSAGE DISABLE,4@|ENABLE,3@|RESET,4@
MESSAGE DISABLE,FLD_CLI_RAGSOCFR|DISABLE,FLD_CLI_RAGSOCTO
MESSAGE RESET,FLD_FOR_RAGSOCFR|RESET,FLD_FOR_RAGSOCTO
MESSAGE RESET,FLD_CLI_RAGSOCFR|RESET,FLD_CLI_RAGSOCTO
MESSAGE ENABLE,FLD_FOR_CODFR|ENABLE,FLD_FOR_CODTO
MESSAGE ENABLE,FLD_CLI_CODFR|ENABLE,FLD_CLI_CODTO
ITEM "2|per Ragione Sociale" ITEM "2|per Ragione Sociale"
MESSAGE DISABLE,FLD_FOR_CODFR|DISABLE,FLD_FOR_CODTO MESSAGE DISABLE,3@|ENABLE,4@|RESET,3@
MESSAGE DISABLE,FLD_CLI_CODFR|DISABLE,FLD_CLI_CODTO
MESSAGE RESET,FLD_FOR_CODFR|RESET,FLD_FOR_CODTO
MESSAGE RESET,FLD_CLI_CODFR|RESET,FLD_CLI_CODTO
MESSAGE ENABLE,FLD_FOR_RAGSOCFR|ENABLE,FLD_FOR_RAGSOCTO
MESSAGE ENABLE,FLD_CLI_RAGSOCFR|ENABLE,FLD_CLI_RAGSOCTO
END
GROUPBOX DLG_NULL 47 3
BEGIN
PROMPT 2 13 "Stampa"
END END
GROUPBOX DLG_NULL 35 10 GROUPBOX DLG_NULL 35 10
@ -59,14 +33,17 @@ TEXT DLG_NULL
BEGIN BEGIN
PROMPT 34 5 "da Ragione Sociale/Nominativo" PROMPT 34 5 "da Ragione Sociale/Nominativo"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 34 7 "a Ragione Sociale/Nominativo" PROMPT 34 7 "a Ragione Sociale/Nominativo"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 34 2 "da Codice" PROMPT 34 2 "da Codice"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 48 2 "a Codice" PROMPT 48 2 "a Codice"
@ -79,10 +56,10 @@ BEGIN
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT CODCF FLD_CLI_CODFR INPUT CODCF FLD_CLI_CODFR
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Codice Fiscale " COFI DISPLAY "Codice Fiscale@16" COFI
DISPLAY "Ragione sociale " RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT FLD_CLI_RAGSOCFR RAGSOC
OUTPUT FLD_CLI_CODFR CODCF OUTPUT FLD_CLI_CODFR CODCF
GROUP 1 3
HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio" HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
END END
@ -92,96 +69,90 @@ BEGIN
COPY USE FLD_CLI_CODFR COPY USE FLD_CLI_CODFR
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT CODCF FLD_CLI_CODTO INPUT CODCF FLD_CLI_CODTO
DISPLAY "Codice" CODCF COPY DISPLAY FLD_CLI_CODFR
DISPLAY "Codice Fiscale " COFI
DISPLAY "Ragione sociale " RAGSOC
OUTPUT FLD_CLI_RAGSOCTO RAGSOC
OUTPUT FLD_CLI_CODTO CODCF OUTPUT FLD_CLI_CODTO CODCF
GROUP 1 3
HELP "Introdurre codice di fine stampa: vuoto = fine archivio" HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
NUM_EXPR {(#THIS_FIELD == 0) || (#THIS_FIELD >= #FLD_CLI_CODFR)}
WARNING "Limite superiore errato"
END END
STRING FLD_CLI_RAGSOCFR 29 STRING FLD_CLI_RAGSOCFR 50 29
BEGIN BEGIN
PROMPT 34 6 "" PROMPT 34 6 ""
USE LF_CLIFO KEY 2 SELECT TIPOCF="C" USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC FLD_CLI_RAGSOCFR INPUT RAGSOC FLD_CLI_RAGSOCFR
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Codice Fiscale " COFI DISPLAY "Codice Fiscale@16" COFI
DISPLAY "Ragione sociale " RAGSOC
OUTPUT FLD_CLI_CODFR CODCF
OUTPUT FLD_CLI_RAGSOCFR RAGSOC OUTPUT FLD_CLI_RAGSOCFR RAGSOC
GROUP 1 4
HELP "Introdurre rag. soc. di inizio stampa: vuoto = inizio archivio" HELP "Introdurre rag. soc. di inizio stampa: vuoto = inizio archivio"
END END
STRING FLD_CLI_RAGSOCTO 29 STRING FLD_CLI_RAGSOCTO 50 29
BEGIN BEGIN
PROMPT 34 8 "" PROMPT 34 8 ""
COPY USE FLD_CLI_RAGSOCFR COPY USE FLD_CLI_RAGSOCFR
INPUT RAGSOC FLD_CLI_RAGSOCTO INPUT RAGSOC FLD_CLI_RAGSOCTO
DISPLAY "Codice" CODCF COPY DISPLAY FLD_CLI_RAGSOCFR
DISPLAY "Codice Fiscale " COFI
DISPLAY "Ragione sociale " RAGSOC
OUTPUT FLD_CLI_CODTO CODCF
OUTPUT FLD_CLI_RAGSOCTO RAGSOC OUTPUT FLD_CLI_RAGSOCTO RAGSOC
GROUP 1 4
HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio" HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
STR_EXPR {(#THIS_FIELD == "") || (#THIS_FIELD >= #FLD_CLI_RAGSOCFR)}
WARNING "Limite superiore errato"
END END
STRING FLD_FOR_CODFR 5 STRING FLD_FOR_CODFR 5
BEGIN BEGIN
PROMPT 34 3 "" PROMPT 34 3 ""
FLAGS "H"
COPY USE FLD_CLI_CODFR COPY USE FLD_CLI_CODFR
INPUT TIPOCF "F" INPUT TIPOCF "F"
INPUT CODCF FLD_FOR_CODFR INPUT CODCF FLD_FOR_CODFR
DISPLAY "Codice" CODCF COPY DISPLAY FLD_CLI_CODFR
DISPLAY "Codice Fiscale " COFI
DISPLAY "Ragione sociale " RAGSOC
OUTPUT FLD_FOR_RAGSOCFR RAGSOC
OUTPUT FLD_FOR_CODFR CODCF OUTPUT FLD_FOR_CODFR CODCF
GROUP 2 3
HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio" HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
END END
STRING FLD_FOR_CODTO 5 STRING FLD_FOR_CODTO 5
BEGIN BEGIN
PROMPT 48 3 "" PROMPT 48 3 ""
FLAGS "H"
COPY USE FLD_FOR_CODFR COPY USE FLD_FOR_CODFR
INPUT TIPOCF "F" INPUT TIPOCF "F"
INPUT CODCF FLD_FOR_CODTO INPUT CODCF FLD_FOR_CODTO
DISPLAY "Codice" CODCF COPY DISPLAY FLD_CLI_CODFR
DISPLAY "Codice Fiscale " COFI
DISPLAY "Ragione sociale " RAGSOC
OUTPUT FLD_FOR_RAGSOCTO RAGSOC
OUTPUT FLD_FOR_CODTO CODCF OUTPUT FLD_FOR_CODTO CODCF
GROUP 2 3
HELP "Introdurre codice di fine stampa: vuoto = fine archivio" HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
NUM_EXPR {(#THIS_FIELD == 0) || (#THIS_FIELD >= #FLD_FOR_CODFR)}
WARNING "Limite superiore errato"
END END
STRING FLD_FOR_RAGSOCFR 29 STRING FLD_FOR_RAGSOCFR 50 29
BEGIN BEGIN
PROMPT 34 6 "" PROMPT 34 6 ""
FLAGS "H" USE LF_CLIFO KEY 2
USE LF_CLIFO KEY 2 SELECT TIPOCF="F" INPUT TIPOCF "F"
INPUT RAGSOC FLD_FOR_RAGSOCFR INPUT RAGSOC FLD_FOR_RAGSOCFR
DISPLAY "Codice" CODCF COPY DISPLAY FLD_CLI_RAGSOCFR
DISPLAY "Codice Fiscale " COFI
DISPLAY "Ragione sociale " RAGSOC
OUTPUT FLD_FOR_CODFR CODCF
OUTPUT FLD_FOR_RAGSOCFR RAGSOC OUTPUT FLD_FOR_RAGSOCFR RAGSOC
GROUP 2 4
HELP "Introdurre rag. soc. di inizio stampa: vuoto = inizio archivio" HELP "Introdurre rag. soc. di inizio stampa: vuoto = inizio archivio"
END END
STRING FLD_FOR_RAGSOCTO 29 STRING FLD_FOR_RAGSOCTO 50 29
BEGIN BEGIN
PROMPT 34 8 "" PROMPT 34 8 ""
FLAGS "H"
COPY USE FLD_FOR_RAGSOCFR COPY USE FLD_FOR_RAGSOCFR
INPUT RAGSOC FLD_FOR_RAGSOCTO INPUT RAGSOC FLD_FOR_RAGSOCTO
DISPLAY "Codice" CODCF COPY DISPLAY FLD_CLI_RAGSOCFR
DISPLAY "Codice Fiscale " COFI
DISPLAY "Ragione sociale " RAGSOC
OUTPUT FLD_FOR_CODTO CODCF
OUTPUT FLD_FOR_RAGSOCTO RAGSOC OUTPUT FLD_FOR_RAGSOCTO RAGSOC
GROUP 2 4
HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio" HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
STR_EXPR {(#THIS_FIELD == "") || (#THIS_FIELD >= #FLD_FOR_RAGSOCFR)}
WARNING "Limite superiore errato"
END END
BOOLEAN CHK_CG12_MOVIM BOOLEAN CHK_CG12_MOVIM
@ -190,40 +161,41 @@ BEGIN
HELP "Selezionare per stampare solo inclusi archivio movimenti" HELP "Selezionare per stampare solo inclusi archivio movimenti"
END END
BOOLEAN CHK_CG12_PRINTONE
BEGIN
PROMPT 4 11 "Stampa un solo record"
HELP "Selezionare per stampare soltanto il record nel campo DA"
END
LIST LST_CG12_INTERLINE 1 LIST LST_CG12_INTERLINE 1
BEGIN BEGIN
PROMPT 34 11 "N. righe interlinea " PROMPT 4 11 "Righe interlinea "
ITEM "0|0" ITEM "0|0"
ITEM "1|1" ITEM "1|1"
ITEM "2|2" ITEM "2|2"
HELP "Scegliere il numero di righe di interlinea tra i nominativi" HELP "Scegliere il numero di righe di interlinea tra i nominativi"
END END
GROUPBOX DLG_NULL 47 4
BEGIN
PROMPT 2 13 "Stampa"
END
BUTTON BUT_CG12_ELENCO 9 2 BUTTON BUT_CG12_ELENCO 9 2
BEGIN BEGIN
PROMPT 4 14 "Elenco" PROMPT 4 14 "~Elenco"
MESSAGE EXIT,BUT_CG12_ELENCO
END END
BUTTON BUT_CG12_RUBRICHE 9 2 BUTTON BUT_CG12_RUBRICHE 9 2
BEGIN BEGIN
PROMPT 19 14 "Rubriche" PROMPT 19 14 "~Rubriche"
MESSAGE EXIT,BUT_CG12_RUBRICHE
END END
BUTTON BUT_CG12_ETICHETTE 9 2 BUTTON BUT_CG12_ETICHETTE 9 2
BEGIN BEGIN
PROMPT 35 14 "Etichette" PROMPT 35 14 "E~tichette"
MESSAGE EXIT,BUT_CG12_ETICHETTE
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT 53 14 "Annulla" PROMPT 53 14 ""
END END
ENDPAGE ENDPAGE

46
cg/cg1200b.uml
View File

@ -1,63 +1,47 @@
#include "cg1200b.h" #include "cg1200b.h"
PAGE "Impostazione etichette" -1 -1 43 10 PAGE "Impostazione etichette" -1 -1 45 12
TEXT DLG_NULL
BEGIN
PROMPT 2 1 "Riga di inizio in etichetta"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 3 "Colonna di inizio in etichetta"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 5 "N. totale di righe etichetta"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 9 "N. totale colonne etichetta"
END
NUMBER FLD_CGB_STARTROW 4 NUMBER FLD_CGB_STARTROW 4
BEGIN BEGIN
PROMPT 35 1 "" PROMPT 2 1 "Riga di inizio in etichetta "
FLAGS "R"
HELP "Immettere la prima riga da stampare nell'etichetta" HELP "Immettere la prima riga da stampare nell'etichetta"
END END
NUMBER FLD_CGB_STARTCOL 4 NUMBER FLD_CGB_STARTCOL 4
BEGIN BEGIN
PROMPT 35 3 "" PROMPT 2 3 "Colonna di inizio in etichetta "
FLAGS "R"
HELP "Immettere il margine sinistro desiderato" HELP "Immettere il margine sinistro desiderato"
END END
NUMBER FLD_CGB_ROWSET 4 NUMBER FLD_CGB_ROWSET 4
BEGIN BEGIN
PROMPT 35 5 "" PROMPT 2 5 "N. totale di righe etichetta "
FLAGS "R"
HELP "Immettere il numero totale di righe per etichetta" HELP "Immettere il numero totale di righe per etichetta"
END END
NUMBER FLD_CGB_COLSET 4 NUMBER FLD_CGB_COLSET 4
BEGIN BEGIN
PROMPT 35 7 "" PROMPT 2 7 "N. totale colonne etichetta "
FLAGS "R"
HELP "Immettere il numero totale di colonne per etichetta" HELP "Immettere il numero totale di colonne per etichetta"
END END
BUTTON DLG_OK 10 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT 21 9 "Conferma" PROMPT -13 -1 "Conferma"
END END
BUTTON DLG_CANCEL 9 BUTTON BUT_CGB_RESET 9 2
BEGIN BEGIN
PROMPT 32 9 "Annulla" PROMPT -23 -1 "~Reset"
END END
BUTTON BUT_CGB_RESET 7 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT 2 9 "Reset" PROMPT -33 -1 "Annulla"
END END
ENDPAGE ENDPAGE

8
cg/makefile
View File

@ -50,13 +50,13 @@ $(EP)cg0500a.msk : cg0500a.uml
$(O)/cg1.o: cg1.cpp $(I10) $(I24) $(I32) $(O)/cg1.o: cg1.cpp $(I10) $(I24) $(I32)
$(O)/cg1100.o: cg1100.cpp $(I6) $(I10) $(I24) $(I27) $(I33) $(I47) $(I48) cg1100.h $(IP)pconti.h $(O)/cg1100.o: cg1100.cpp $(I31) $(I33) $(I39) $(I41) $(I42) $(I47) $(I48) $(I50) cg1100.h $(IP)pconti.h $(IP)nditte.h
$(O)/cg1200.o: cg1200.cpp $(I6) $(I10) $(I24) $(I27) $(I33) $(I47) $(I48) cg1200a.h $(IP)saldi.h $(IP)clifo.h $(IP)comuni.h $(O)/cg1200.o: cg1200.cpp $(I6) $(I10) $(I24) $(I27) $(I33) $(I47) $(I48) cg1200a.h $(IP)saldi.h $(IP)clifo.h $(IP)comuni.h $(IP)nditte.h
$(O)/cg1300.o: cg1200.cpp $(I24) $(I31) $(I33) $(I51) $(O)/cg1300.o: cg1300.cpp $(I24) $(I31) $(I33) $(I51)
$(O)/cg1400.o: cg1200.cpp $(I24) $(I31) $(I33) $(I40) $(I42) $(I51) $(I39) cg1400.h $(O)/cg1400.o: cg1400.cpp $(I24) $(I31) $(I33) $(I40) $(I42) $(I51) $(I39) cg1400.h
$(O)/cg1500.o: cg1500.cpp $(I24) $(I31) $(I33) $(I40) $(I42) $(I51) cg1500.h $(O)/cg1500.o: cg1500.cpp $(I24) $(I31) $(I33) $(I40) $(I42) $(I51) cg1500.h

4
include/clifo.h
View File

@ -25,6 +25,10 @@
#define CLI_CODANAGPER "CODANAGPER" #define CLI_CODANAGPER "CODANAGPER"
#define CLI_PTEL "PTEL" #define CLI_PTEL "PTEL"
#define CLI_TEL "TEL" #define CLI_TEL "TEL"
#define CLI_PTEL2 "PTEL2"
#define CLI_TEL2 "TEL2"
#define CLI_PTEL3 "PTEL3"
#define CLI_TEL3 "TEL3"
#define CLI_PFAX "PFAX" #define CLI_PFAX "PFAX"
#define CLI_FAX "FAX" #define CLI_FAX "FAX"
#define CLI_PTELEX "PTELEX" #define CLI_PTELEX "PTELEX"