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 <progind.h>
#include <sheet.h>
#include <lffiles.h>
#include <utility.h>
#include <doc.h>
@ -45,7 +44,7 @@ protected:
public:
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() {}
};
@ -54,6 +53,11 @@ bool TListe_form::validate(TForm_item& fld, TToken_string& 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
{
@ -110,8 +114,7 @@ void TListe_application::set_limits()
TString16 rag_to(_select_mask->get(F_RAGSOCTO));
if (rag_to.not_empty())
to.put("RAGSOC", rag_to);
r->lfile().setkey(2);
c->setkey(2);
}
else
{
@ -121,8 +124,7 @@ void TListe_application::set_limits()
TString16 rag_to(_select_mask->get(F_CODTO));
if (rag_to.not_empty())
to.put("CODCF", cli_to);
r->lfile().setkey(1);
c->setkey(1);
}
c->setregion(from, to);
TString filter;