Patch level : 10.0 504

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

Tabelle di correlazione zucchetti


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

tc/tc1800a.h

@@ -4,7 +4,6 @@
 #define F_GRUPPO				102
 #define F_CONTO					103
 #define F_SOTTOCONTO		104
-#define F_GRUPPO1				105
 #define F_CONTO1				106
 #define F_SOTTOCONTO1		107
 #define F_DESCG					108

tc/tc1800a.uml

@@ -4,7 +4,7 @@ TOOLBAR "topbar" 0 0 0 2
 #include <relapbar.h>
 ENDPAGE
 
-PAGE "" 0 2 0 0
+PAGE "Riclassificazione conti" 0 2 0 0
 
 LIST F_COD 7
 BEGIN
@@ -26,24 +26,15 @@ BEGIN
   HELP "Codice del gruppo"
   FIELD GRUPPO
   KEY 1
-  USE LF_RICLPDC
+  USE LF_PCON KEY 1 SELECT CONTO=""
-  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 "Descrizione@50" DESCR
-  DISPLAY "Sottoconto" SOTTOCONTO
-  DISPLAY "Descrizione@50" LF_PCON->DESCR
   OUTPUT F_GRUPPO GRUPPO
-  OUTPUT F_CONTO CONTO
+  OUTPUT F_DESCG DESCR
-  OUTPUT F_SOTTOCONTO SOTTOCONTO
+  CHECKTYPE FORCED
-//  OUTPUT F_DESC LF_PCON->DESCR
+  ADD RUN cg0 -0
-  MESSAGE_COPY F_GRUPPO1
+// GROUP 1
-  VALIDATE REQIF_FUNC 1 F_SOTTOCONTO
-  CHECKTYPE NORMAL
-  GROUP 1
 END
 
 STRING F_DESCG 50
@@ -58,9 +49,22 @@ BEGIN
   HELP "Codice dell'eventuale conto"
   FIELD CONTO
   KEY 1
-  COPY ALL F_GRUPPO
+  USE LF_RICLPDC
+  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" LF_PCON->DESCR
+  OUTPUT F_GRUPPO GRUPPO
+  OUTPUT F_CONTO CONTO
+  OUTPUT F_SOTTOCONTO SOTTOCONTO
+  OUTPUT F_DESC LF_PCON->DESCR
   CHECKTYPE NORMAL
-  MESSAGE_COPY F_CONTO1
+  MESSAGE COPY,F_CONTO1
   VALIDATE REQIF_FUNC 1 F_SOTTOCONTO
   WARNING "Manca il conto"
   GROUP 1
@@ -78,31 +82,12 @@ BEGIN
   HELP "Codice dell'eventuale sottoconto"
   FIELD SOTTOCONTO
   KEY 1
-  COPY ALL F_GRUPPO
+  COPY ALL F_CONTO
-  MESSAGE_COPY F_SOTTOCONTO1
+  MESSAGE COPY,F_SOTTOCONTO1
   CHECKTYPE NORMAL
   GROUP 1
 END
 
-NUMBER F_GRUPPO1 3
-BEGIN
-  PROMPT 2 2 "Gruppo     "
-  HELP "Codice del gruppo"
-  FIELD GRUPPO
-  KEY 1
-  USE LF_PCON KEY 1 SELECT CONTO=""
-  INPUT GRUPPO F_GRUPPO1
-  DISPLAY "Gruppo" GRUPPO
-  DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_GRUPPO GRUPPO
-  OUTPUT F_DESCG DESCR
-  VALIDATE REQIF_FUNC 1 F_CONTO1
-  CHECKTYPE NORMAL
-  GROUP 2
-  FLAGS "HG"
-  ADD RUN cg0 -0
-END
-
 NUMBER F_CONTO1 3
 BEGIN
   PROMPT 2 3 "Conto      "
@@ -110,12 +95,12 @@ BEGIN
   FIELD CONTO
   KEY 1
   USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
-  COPY INPUT F_GRUPPO1
+  COPY INPUT F_GRUPPO
   INPUT CONTO F_CONTO1
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO
   DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_GRUPPO1 GRUPPO
+  OUTPUT F_GRUPPO GRUPPO
   OUTPUT F_CONTO1 CONTO
   OUTPUT F_DESCC DESCR
   CHECKTYPE REQUIRED
@@ -140,7 +125,7 @@ BEGIN
   DISPLAY "Sottoconto" SOTTOCONTO
   DISPLAY "Sosp." SOSPESO
   DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_GRUPPO1 GRUPPO
+  OUTPUT F_GRUPPO GRUPPO
   OUTPUT F_CONTO1 CONTO
   OUTPUT F_SOTTOCONTO1 SOTTOCONTO
   OUTPUT F_DESC DESCR
@@ -194,7 +179,7 @@ BEGIN
   INPUT S0 F_DESCRIZ
   DISPLAY "Descrizione@50" S0
   DISPLAY "Conto Zucchetti" CODTAB
-	COPY OUTPUT F_CONTOZU
+//	COPY OUTPUT F_CONTOZU
   CHECKTYPE NORMAL
 END