Patch level : 10.0 558

Files correlati     : tc0.exe
Ricompilazione Demo : [ ]
Commento            :

Riclassifiacazione piano dei conti team system


git-svn-id: svn://10.65.10.50/trunk@19823 c028cbd2-c16b-5b4b-a496-9718f37d4682

tc/tc0800.cpp

@@ -89,43 +89,48 @@ void TTSRiclass_application::print()
 void TTSRiclass_application::init_query_mode(TMask& m) 
 {
 	TRelation_application::init_query_mode(m);
-	m.show(-1);
+
-	m.hide(-2);
+	m.show(-1, _use_pcn);
-	m.disable(-3);
+	m.enable(-1, _use_pcn);
-	m.show(-10, _use_pcn);
 	m.show(-20, !_use_pcn);
+	m.hide(-2);
+	m.disable(-2);
+	m.disable(-10);
 }
 
 void TTSRiclass_application::init_query_insert_mode(TMask& m) 
 {
 	TRelation_application::init_query_insert_mode(m);
+
 	m.hide(-1);
-	m.show(-2);
+	m.disable(-1);
-	m.enable(-3);
-	m.show(-10, _use_pcn);
 	m.show(-20, !_use_pcn);
+	m.show(-2, _use_pcn);
+	m.enable(-2, _use_pcn);
+	m.enable(-10, _use_pcn);
 }
 
 void TTSRiclass_application::init_modify_mode(TMask& m)
 {
 	TRelation_application::init_modify_mode(m);
-	m.show(-1);
+
+	m.show(-1, _use_pcn);
+	m.show(-20, !_use_pcn);
 	m.disable(-1);
 	m.hide(-2);
-	m.disable(-3);
+	m.disable(-10);
-	m.show(-10, _use_pcn);
-	m.show(-20, !_use_pcn);
 }
 
 void TTSRiclass_application::init_insert_mode(TMask& m)
 {
 	TRelation_application::init_insert_mode(m);
-	m.show(-1);
+
+	m.show(-1, _use_pcn);
+	m.show(-20, !_use_pcn);
 	m.disable(-1);
 	m.hide(-2);
-	m.disable(-3);
+	m.disable(-2);
-	m.show(-10, _use_pcn);
+	m.disable(-10);
-	m.show(-20, !_use_pcn);
 }
 
 bool TTSRiclass_application::user_create()

tc/tc0800a.uml

@@ -28,9 +28,9 @@ BEGIN
   USE LF_RICLPDC
   JOIN LF_PCON INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
   INPUT TIPORIC F_COD SELECT
-  INPUT GRUPPO F_GRUPPO
+  INPUT GRUPPO F_GRUPPO2
-  INPUT CONTO F_CONTO
+  INPUT CONTO F_CONTO2
-  INPUT SOTTOCONTO F_SOTTOCONTO
+  INPUT SOTTOCONTO F_SOTTOCONTO2
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
@@ -38,12 +38,15 @@ BEGIN
   DISPLAY "Gruppo TS" CODICE[1,2]
   DISPLAY "Conto TS" CODICE[3,4]
   DISPLAY "Sottoconto TS" CODICE[5,7]
-  OUTPUT F_DESCRIZ DESCRIZ
+  OUTPUT F_GRUPPO2 GRUPPO
+  OUTPUT F_CONTO2 CONTO
+  OUTPUT F_SOTTOCONTO2 SOTTOCONTO
   OUTPUT F_GRUPPO GRUPPO
   OUTPUT F_CONTO CONTO
   OUTPUT F_SOTTOCONTO SOTTOCONTO
+  OUTPUT F_DESCRIZ DESCRIZ
   KEY 1
-	GROUP 2
+	GROUP 1
   CHECKTYPE REQUIRED
 END
 	
@@ -53,7 +56,7 @@ BEGIN
   HELP "Codice del gruppo"
   FIELD GRUPPO
   KEY 1
-	GROUP 1 10
+	GROUP 2
   USE LF_PCON KEY 1 SELECT CONTO=""
   INPUT GRUPPO F_GRUPPO
   DISPLAY "Gruppo" GRUPPO
@@ -61,6 +64,7 @@ BEGIN
   OUTPUT F_GRUPPO GRUPPO
   OUTPUT F_DESCG DESCR
   CHECKTYPE REQUIRED
+  FLAGS "G"
 END
 
 NUMBER F_GRUPPO1 3
@@ -68,7 +72,7 @@ BEGIN
   PROMPT 2 2 "Gruppo     "
   FIELD GRUPPO
   KEY 1
-	GROUP 1 20
+	GROUP 20
 	FLAGS "H"
 END
 
@@ -76,7 +80,6 @@ STRING F_DESCG 50
 BEGIN
   PROMPT 24 2 ""
   FLAGS "D"
-	GROUP 10
 END
 
 NUMBER F_CONTO2 3
@@ -84,9 +87,9 @@ BEGIN
   PROMPT 2 4 "Conto      "
   HELP "Codice dell'eventuale conto"
   FIELD CONTO
-  COPY ALL F_GRUPPO
+  COPY ALL F_GRUPPO2
   KEY 1
-	GROUP 2
+	GROUP 1
   CHECKTYPE REQUIRED
   WARNING "Manca il conto"
 END
@@ -97,7 +100,7 @@ BEGIN
   HELP "Codice dell'eventuale conto"
   FIELD CONTO
   KEY 1
-	GROUP 1 10
+	GROUP 2
   USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
   COPY INPUT F_GRUPPO
   INPUT CONTO F_CONTO
@@ -109,6 +112,7 @@ BEGIN
   OUTPUT F_DESCC DESCR
   CHECKTYPE REQUIRED
   WARNING "Manca il conto"
+  FLAGS "G"
 END
 
 NUMBER F_CONTO1 3
@@ -118,14 +122,13 @@ BEGIN
   FIELD CONTO
   FLAGS "H"
   KEY 1
-	GROUP 1 20
+	GROUP 20
 END
 
 STRING F_DESCC 50
 BEGIN
   PROMPT 24 4 ""
   FLAGS "D"
-	GROUP 10
 END
 
 NUMBER F_SOTTOCONTO2 6
@@ -133,9 +136,9 @@ BEGIN
   PROMPT 2 6 "Sottoconto "
   HELP "Codice dell'eventuale sottoconto"
   FIELD SOTTOCONTO
-  COPY ALL F_GRUPPO
+  COPY ALL F_GRUPPO2
   KEY 1
-	GROUP 2
+	GROUP 1
   CHECKTYPE REQUIRED
 END
 
@@ -145,7 +148,7 @@ BEGIN
   HELP "Codice dell'eventuale sottoconto"
   FIELD SOTTOCONTO
   KEY 1
-	GROUP 1 10
+	GROUP 2
   USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
   COPY INPUT F_CONTO
   INPUT SOTTOCONTO F_SOTTOCONTO
@@ -154,11 +157,12 @@ BEGIN
   DISPLAY "Sottoconto" SOTTOCONTO
   DISPLAY "Sosp." SOSPESO
   DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_SOTTOCONTO SOTTOCONTO
   OUTPUT F_GRUPPO GRUPPO
   OUTPUT F_CONTO CONTO
+	OUTPUT F_SOTTOCONTO SOTTOCONTO
   OUTPUT F_DESCRIZ DESCR
   CHECKTYPE REQUIRED
+  FLAGS "G"
 END
 
 NUMBER F_SOTTOCONTO1 6
@@ -167,7 +171,7 @@ BEGIN
   HELP "Codice dell'eventuale sottoconto"
   FIELD SOTTOCONTO
   KEY 1
-	GROUP 1 20
+	GROUP 20
 	FLAGS "H"
 END
 
@@ -183,6 +187,7 @@ BEGIN
 	COPY OUTPUT F_SOTTOCONTO
   KEY 2
   CHECKTYPE REQUIRED
+  GROUP 10
 END
 
 STRING F_TSGRUPPO 2
@@ -203,7 +208,6 @@ BEGIN
   OUTPUT F_TSDESCR S0
   VALIDATE FIXLEN_FUNC 2
   FIELD CODICE[1,2]
-  KEY 1
 END
 
 STRING F_TSCONTO 2
@@ -213,7 +217,6 @@ BEGIN
 	CHECKTYPE REQUIRED
   FIELD CODICE[3,4]
   VALIDATE FIXLEN_FUNC 2
-  KEY 1
 END
 
 STRING F_TSSOTTOCONTO 3
@@ -223,20 +226,19 @@ BEGIN
 	CHECKTYPE REQUIRED
   FIELD CODICE[5,7]
   VALIDATE FIXLEN_FUNC 3
-  KEY 1
 END
 
 STRING F_TSDESCR 50
 BEGIN
   PROMPT 2 12 "Descrizione "
-	USE &TCO
+	USE &TCO KEY 2
-  INPUT S0 F_TSGRUPPO
+  INPUT S0 F_TSDESCR
   DISPLAY "Descrizione@60" S0
   DISPLAY "Gruppo" CODTAB[1,2]
   DISPLAY "Conto" CODTAB[3,4]
   DISPLAY "Sottoconto" CODTAB[5,7]
   COPY OUTPUT F_TSGRUPPO
-  CHECKTYPE NORMAL
+  CHECKTYPE SEARCH
 END
 
 ENDPAGE