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

Patch level : nopatch

Browse Source 
Files correlati     : si0.exe
Ricompilazione Demo : [ ]
Commento            :
Messo un TDocumento come record principale per supportare anche i campi virtuali come TOTDOC


git-svn-id: svn://10.65.10.50/trunk@9984 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2001-12-24 11:37:42 +00:00
parent 805ee2ccb8
commit e367c53d2a
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
si/si0200.cpp
View File

@ -9,7 +9,6 @@
#include <printer.h> #include <printer.h>
#include <progind.h> #include <progind.h>
#include <sheet.h> #include <sheet.h>
#include <lffiles.h>
#include <utility.h> #include <utility.h>
#include <doc.h> #include <doc.h>
@ -45,7 +44,7 @@ protected:
public: public:
virtual bool validate(TForm_item& fld, TToken_string& val); virtual bool validate(TForm_item& fld, TToken_string& val);
TListe_form(const char* form, const char * code = "", int editlevel = 0, const char* desc = "") : TForm(form, code, editlevel, desc) {} TListe_form(const char* form, const char * code = "", int editlevel = 0, const char* desc = "");
virtual ~TListe_form() {} virtual ~TListe_form() {}
}; };
@ -54,6 +53,11 @@ bool TListe_form::validate(TForm_item& fld, TToken_string& val)
return TForm::validate(fld, val); return TForm::validate(fld, val);
} }
TListe_form::TListe_form(const char* form, const char* code, int editlevel, const char* desc)
: TForm(form, code, editlevel, desc)
{
relation()->lfile().set_curr(new TDocumento);
}
class TListe_application: public TSkeleton_application class TListe_application: public TSkeleton_application
{ {
@ -110,8 +114,7 @@ void TListe_application::set_limits()
TString16 rag_to(_select_mask->get(F_RAGSOCTO)); TString16 rag_to(_select_mask->get(F_RAGSOCTO));
if (rag_to.not_empty()) if (rag_to.not_empty())
to.put("RAGSOC", rag_to); to.put("RAGSOC", rag_to);
r->lfile().setkey(2); c->setkey(2);
} }
else else
{ {
@ -121,8 +124,7 @@ void TListe_application::set_limits()
TString16 rag_to(_select_mask->get(F_CODTO)); TString16 rag_to(_select_mask->get(F_CODTO));
if (rag_to.not_empty()) if (rag_to.not_empty())
to.put("CODCF", cli_to); to.put("CODCF", cli_to);
r->lfile().setkey(1); c->setkey(1);
} }
c->setregion(from, to); c->setregion(from, to);
TString filter; TString filter;