From f16f316f93db4f6d2466bbdd065cbe2665eca5a5 Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Mon, 9 Nov 2009 01:16:29 +0000
Subject: [PATCH] Patch level         : 10.0 504 Files correlati     :  tc0.exe
 tc1.exe Ricompilazione Demo : [ ]

Tabelle di correlazione zucchetti non finito


git-svn-id: svn://10.65.10.50/trunk@19588 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 tc/tc0800a.uml |  2 +-
 tc/tc1800.cpp  | 17 +++++------------
 tc/tc1800a.uml | 50 +++++++++++++++++++++++++-------------------------
 tc/tcmenu.men  |  1 +
 tc/tctbzco.uml |  4 ++--
 5 files changed, 34 insertions(+), 40 deletions(-)

diff --git a/tc/tc0800a.uml b/tc/tc0800a.uml
index 94faf950a..b6a94f359 100755
--- a/tc/tc0800a.uml
+++ b/tc/tc0800a.uml
@@ -34,7 +34,7 @@ BEGIN
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
-  DISPLAY "Descrizione@50" DESCRIZ
+  DISPLAY "Descrizione@50" LF_PCON->DESCR
   DISPLAY "Gruppo TS" CODICE[1,2]
   DISPLAY "Conto TS" CODICE[3,4]
   DISPLAY "Sottoconto TS" CODICE[5,7]
diff --git a/tc/tc1800.cpp b/tc/tc1800.cpp
index 3c3e71f2d..67e285cb8 100755
--- a/tc/tc1800.cpp
+++ b/tc/tc1800.cpp
@@ -91,39 +91,32 @@ void TZCRiclass_application::init_insert_mode(TMask& m)
 	m.show(-1);
 	m.disable(-1);
 	m.hide(-2);
+	m.disable(-3);
 }
 void TZCRiclass_application::init_query_mode(TMask& m) 
 {
 	m.show(-1);
 	m.hide(-2);
+	m.enable(-3);
 }   
 
 void TZCRiclass_application::init_query_insert_mode(TMask& m) 
 {
 	m.hide(-1);
 	m.show(-2);
+	m.enable(-3);
 }
 
 void TZCRiclass_application::init_modify_mode(TMask& m) 
 {
-  for (int i = m.fields() - 1; i >= 0; i--)
-  {
-    TMask_field& c = m.fld(i);
-    if (c.in_group(1) && c.is_edit())
-    {
-      TEdit_field& e = (TEdit_field&)c;
-
-      e.enable();
-			if (e.browse() != NULL)
-        e.enable_check();
-    }
-  }
+	TRelation_application::init_modify_mode(m);
 	_gruppo = m.get_int(F_GRUPPO);
 	_conto = m.get_int(F_CONTO);
 	_sottoconto = m.get_long(F_SOTTOCONTO);
 	m.show(-1);
 	m.disable(-1);
 	m.hide(-2);
+	m.disable(-3);
 }
 
 bool TZCRiclass_application::user_create()
diff --git a/tc/tc1800a.uml b/tc/tc1800a.uml
index f38e8d2fd..529d81da5 100755
--- a/tc/tc1800a.uml
+++ b/tc/tc1800a.uml
@@ -27,18 +27,19 @@ BEGIN
   FIELD GRUPPO
   KEY 1
   USE LF_RICLPDC
-  INPUT TIPORIC F_COD
+  JOIN LF_PCON INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
+	INPUT TIPORIC F_COD
   INPUT GRUPPO F_GRUPPO
   INPUT CONTO F_CONTO
   INPUT SOTTOCONTO F_SOTTOCONTO
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
-  DISPLAY "Descrizione@50" DESCRIZ
+  DISPLAY "Descrizione@50" LF_PCON->DESCR
   OUTPUT F_GRUPPO GRUPPO
   OUTPUT F_CONTO CONTO
   OUTPUT F_SOTTOCONTO SOTTOCONTO
-  OUTPUT F_DESC DESCRIZ
+//  OUTPUT F_DESC LF_PCON->DESCR
   MESSAGE_COPY F_GRUPPO1
   VALIDATE REQIF_FUNC 1 F_SOTTOCONTO
   CHECKTYPE NORMAL
@@ -83,24 +84,6 @@ BEGIN
   GROUP 1
 END
 
-STRING F_DESC 50
-BEGIN
-  PROMPT 24 4 ""
-  USE LF_PCON KEY 2
-  KEY 2
-  FILED DESCRIZ
-  INPUT DESCR F_DESC
-  DISPLAY "Descrizione@50" DESCR
-  DISPLAY "Sosp." SOSPESO
-  DISPLAY "Gruppo" GRUPPO
-  DISPLAY "Conto" CONTO
-  DISPLAY "Sottoconto" SOTTOCONTO
-  COPY OUTPUT F_SOTTOCONTO
-  CHECKTYPE NORMAL
-  HELP "Descrizione del gruppo o del conto o del sottoconto"
-  WARNING "Descrizione mancante"
-END
-
 NUMBER F_GRUPPO1 3
 BEGIN
   PROMPT 2 2 "Gruppo     "
@@ -157,9 +140,9 @@ BEGIN
   DISPLAY "Sottoconto" SOTTOCONTO
   DISPLAY "Sosp." SOSPESO
   DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_SOTTOCONTO1 SOTTOCONTO
   OUTPUT F_GRUPPO1 GRUPPO
   OUTPUT F_CONTO1 CONTO
+  OUTPUT F_SOTTOCONTO1 SOTTOCONTO
   OUTPUT F_DESC DESCR
   CHECKTYPE NORMAL
   GROUP 2
@@ -167,12 +150,30 @@ BEGIN
   ADD RUN cg0 -0
 END
 
+STRING F_DESC 50
+BEGIN
+  PROMPT 24 4 ""
+  USE LF_PCON KEY 2
+  KEY 2
+  INPUT DESCR F_DESC
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Sosp." SOSPESO
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Sottoconto" SOTTOCONTO
+  COPY OUTPUT F_SOTTOCONTO
+  CHECKTYPE NORMAL
+  HELP "Descrizione del gruppo o del conto o del sottoconto"
+  WARNING "Descrizione mancante"
+  GROUP 3
+END
+
 GROUPBOX DLG_NULL 78 4
 BEGIN
   PROMPT 1 6 "Conto Zucchetti"
 END
 
-STRING F_CONTOZU 6
+STRING F_CONTOZU 5
 BEGIN
   PROMPT 2 7 "Sottoconto "
   USE &ZCO
@@ -194,8 +195,7 @@ BEGIN
   DISPLAY "Descrizione@50" S0
   DISPLAY "Conto Zucchetti" CODTAB
 	COPY OUTPUT F_CONTOZU
-  FIELD DESCRIZ
-  CHECKTYPE REQUIRED
+  CHECKTYPE NORMAL
 END
 
 
diff --git a/tc/tcmenu.men b/tc/tcmenu.men
index 7966d06c8..f7b8edef2 100755
--- a/tc/tcmenu.men
+++ b/tc/tcmenu.men
@@ -75,6 +75,7 @@ Flags   = ""
 Item_01 = "Banche", "tc1 -1 &ZBA", ""
 Item_02 = "Causali", "tc1 -1 &ZCA", ""
 Item_03 = "Codici IVA", "tc1 -1 &ZIV", ""
+Item_04 = "Conti", "tc1 -1 &ZCO", ""
 
 [TCMENU_008]
 Caption = "Tabelle di Riclassificazione"
diff --git a/tc/tctbzco.uml b/tc/tctbzco.uml
index 6222b8cd5..63f042f67 100755
--- a/tc/tctbzco.uml
+++ b/tc/tctbzco.uml
@@ -11,7 +11,7 @@ BEGIN
   PROMPT 1 1 "Conto Zucchetti"
 END
 
-NUMBER F_CODTAB 6
+NUMBER F_CODTAB 5
 BEGIN
   PROMPT 2 2 "Codice      "
   USE &ZCO
@@ -29,7 +29,7 @@ END
 STRING F_DESC 50
 BEGIN
   PROMPT 2 5 "Descrizione "
-  USE &ZCO KEY 2
+  USE &TCZCO KEY 2
   INPUT S0 F_DESC
   DISPLAY "Descrizione@60" S0
   DISPLAY "Codice" CODTAB