From e367c53d2a8815dc090cdc1725a24193065e2e1c Mon Sep 17 00:00:00 2001
From: guy <guy@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Mon, 24 Dec 2001 11:37:42 +0000
Subject: [PATCH] Patch level         : nopatch 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
---
 si/si0200.cpp | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/si/si0200.cpp b/si/si0200.cpp
index 6df1af110..595288c58 100755
--- a/si/si0200.cpp
+++ b/si/si0200.cpp
@@ -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;