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

Patch level :2.0 p@rtners new implementation

Browse Source 
Files correlati     :cg3.exe cg3800a.frm
Ricompilazione Demo : [ ]
Commento            :nuova implementazione CM20083; aggiunto link ai movimenti doppi


git-svn-id: svn://10.65.10.50/trunk@11753 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2004-02-09 11:46:55 +00:00
parent 3db207440b
commit 0b3cad8984
2 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
cg/cg3800.cpp
View File

@ -50,6 +50,7 @@ protected:
virtual bool validate(TForm_item &cf, TToken_string &s);
virtual long records() const {return _duplicati.items();}
const TRectype& get_mov (int i, int j) const;
static bool process_link(int id, const char * lnk);
public:
void fill_header_last(int i);
@ -65,6 +66,14 @@ bool TDouble_fatt_form::validate(TForm_item &cf, TToken_string &s)
return TForm::validate(cf,s);
}
bool TDouble_fatt_form::process_link(int id, const char * lnk)
{
TRectype mov(LF_MOV);
mov.put(MOV_NUMREG, lnk);
mov.edit(); //fighissimo modo per lanciare l'editor del record (programma scelto in automatico!!)
return true;
}
const TRectype& TDouble_fatt_form::get_mov (int i, int j) const
{
const TPointer_array& dup = (const TPointer_array&)_duplicati[i];
@ -108,6 +117,7 @@ void TDouble_fatt_form::fill_body_odd(int i, int j)
body.find_field(FR_DESCREG).set(mov.get(MOV_DESCR));
body.update();
for (word k = 0; k < body.height(); k++)
printer().print(body.row(k));
}
@ -154,7 +164,12 @@ void TDouble_fatt_form::print(const TMask& m)
}
TDouble_fatt_form::TDouble_fatt_form(TPointer_array& dupl) :TForm ("cg3800a"), _duplicati(dupl)
{
{// setta i links presenti nel form (sono gli elementi scritti in blu(b) su bianco(w))
// procedimento standard in questi casi
TArray& arr = printer().links();
if (arr.items() == 0)
arr.add(new TToken_string("Ordina|b|w"));
printer().setlinkhandler(process_link);
}
TDouble_fatt_form::~TDouble_fatt_form()

8
cg/cg3800a.frm
View File

@ -127,7 +127,13 @@ SECTION BODY ODD 1 // section dei duplicati
NUMERO FR_NUMREG
BEGIN
KEY "numero registrazione"
PROMPT 6 1 ""
PROMPT 6 1 "$[b]"
END
STRINGA -1
BEGIN
KEY "spegnitore del colore"
PROMPT 15 1 "$[n]"
END
DATA FR_DATAREG