Ultime modifiche da Parma

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

cg/cg3200a.uml

@@ -1,18 +1,19 @@
 #include "cg3200.h"
 
-PAGE "Mastrini" -1 -1 78 20
+PAGE "" -1 -1 78 20
+
 
 NUMBER F_CODDITTA 5
 BEGIN
 	PROMPT 4 1 "Ditta             "
-  FLAGS "FRD"
-  USE LF_NDITTE KEY 1  
-  CHECKTYPE REQUIRED
-  INPUT CODDITTA F_CODDITTA
-  DISPLAY "Codice" CODDITTA
+        FLAGS "FRD"
+        USE LF_NDITTE KEY 1  
+        CHECKTYPE REQUIRED
+        INPUT CODDITTA F_CODDITTA
+        DISPLAY "Codice" CODDITTA
 	DISPLAY "Ragione sociale @50" RAGSOC
 	OUTPUT F_CODDITTA CODDITTA 
-  OUTPUT F_RAGSOC RAGSOC
+        OUTPUT F_RAGSOC RAGSOC
 END
 
 STRING F_RAGSOC 50
@@ -57,422 +58,268 @@ BEGIN
   FLAGS "RZ"
 END
 
-LIST F_RICERCA 25
+LIST F_TIPOCF 25
 BEGIN
   PROMPT 4 4 "Ricerca           "
-  ITEM "C|Clienti"
+  ITEM " |Gruppo/conto/sottoconto"
   MESSAGE HIDE,2@|HIDE,3@|RESET,2@|RESET,3@|SHOW,1@
+  ITEM "C|Clienti"
+  MESSAGE HIDE,1@|HIDE,3@|RESET,1@|RESET,3@|SHOW,2@
   ITEM "F|Fornitori"
-  MESSAGE HIDE,1@|HIDE,3@|RESET,1@|RESET,3@|SHOW,2@    
-  ITEM "P|Gruppo/conto/sottoconto"
-  MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@|SHOW,3@
+  MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@|SHOW,3@    
 END
 
 NUMBER F_GRUPPOINI 3
 BEGIN
   PROMPT 4 5 "Da Gruppo - Conto - Sottoconto "
-  USE LF_CLIFO SELECT TIPOCF="C"
-//  CHECKTYPE NORMAL
-  INPUT GRUPPO F_GRUPPOINI
-  DISPLAY "Tipo" TIPOCF
-  DISPLAY "Gruppo" GRUPPO
-  DISPLAY "Conto" CONTO 
-  DISPLAY "Codice" CODCF
-  DISPLAY "Ragione sociale@50" RAGSOC
-  OUTPUT F_GRUPPOINI GRUPPO
-  OUTPUT F_CONTOINI CONTO
-  OUTPUT F_SOTTOCONTOINI CODCF
-  OUTPUT F_DESCRINI RAGSOC
-  FLAGS "R"
-  GROUP 1
 END
 
 NUMBER F_CONTOINI 3 
 BEGIN
   PROMPT 41 5 ""
-  COPY USE F_GRUPPOINI
-//  CHECKTYPE NORMAL
+  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
+  CHECKTYPE NORMAL
   INPUT GRUPPO F_GRUPPOINI
   INPUT CONTO F_CONTOINI
-  DISPLAY "Tipo" TIPOCF
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO 
-  DISPLAY "Codice" CODCF
-  DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_TIPOCF TMCF
   OUTPUT F_GRUPPOINI GRUPPO
   OUTPUT F_CONTOINI CONTO
-  OUTPUT F_SOTTOCONTOINI CODCF
-  OUTPUT F_DESCRINI RAGSOC
+  OUTPUT F_DESCRINI_CONTO DESCR
+  FLAGS "R"
+  WARNING "Conto inesistente o mancante"
+  MESSAGE DIRTY,F_SOTTOCINI_CONTO|DIRTY,F_SOTTOCINI_CLIENTE|DIRTY,F_SOTTOCINI_FORN
+END
+
+NUMBER F_SOTTOCINI_CONTO 6
+BEGIN
+  PROMPT 48 5 ""
+  USE LF_PCON SELECT SOTTOCONTO!=""
+  CHECKTYPE NORMAL
+  INPUT GRUPPO F_GRUPPOINI
+  INPUT CONTO F_CONTOINI
+  INPUT SOTTOCONTO F_SOTTOCINI_CONTO
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO 
+  DISPLAY "Sottoconto" SOTTOCONTO
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_GRUPPOINI GRUPPO
+  OUTPUT F_CONTOINI CONTO
+  OUTPUT F_SOTTOCINI_CONTO SOTTOCONTO
+  OUTPUT F_DESCRINI_CONTO DESCR
   FLAGS "R"
   GROUP 1
 END
 
-NUMBER F_SOTTOCONTOINI 6
+STRING F_DESCRINI_CONTO 50
 BEGIN
-  PROMPT 47 5 ""
-  COPY USE F_GRUPPOINI
-//  CHECKTYPE NORMAL
-  INPUT GRUPPO F_GRUPPOINI
-  INPUT CONTO F_CONTOINI
-  INPUT CODCF F_SOTTOCONTOINI
-  DISPLAY "Tipo" TIPOCF
+  PROMPT 4 6 "Descrizione       "
+  USE LF_PCON KEY 2
+  INPUT DESCR F_DESCRINI_CONTO
+  DISPLAY "Descrizione@50" DESCR
   DISPLAY "Gruppo" GRUPPO
-  DISPLAY "Conto" CONTO 
-  DISPLAY "Codice" CODCF
-  DISPLAY "Ragione sociale@50" RAGSOC
-  OUTPUT F_GRUPPOINI GRUPPO
-  OUTPUT F_CONTOINI CONTO
-  OUTPUT F_SOTTOCONTOINI CODCF
-  OUTPUT F_DESCRINI RAGSOC
-  FLAGS "R"
-  GROUP 1
-END
-
-STRING F_DESCRINI 50
-BEGIN
-  PROMPT 4 6 "Ragione sociale   "
-  FLAGS "D"
+  DISPLAY "Conto" CONTO
+  DISPLAY "Sottoconto" SOTTOCONTO
+  COPY OUTPUT F_SOTTOCINI_CONTO
+  CHECKTYPE NORMAL
   GROUP 1
 END
 
 NUMBER F_GRUPPOFINE 3
 BEGIN
   PROMPT 4 7 "A  Gruppo - Conto - Sottoconto "
-  COPY USE F_GRUPPOINI
-//  CHECKTYPE NORMAL
-  INPUT GRUPPO F_GRUPPOFINE
-  DISPLAY "Tipo" TIPOCF
-  DISPLAY "Gruppo" GRUPPO
-  DISPLAY "Conto" CONTO 
-  DISPLAY "Codice" CODCF
-  DISPLAY "Ragione sociale@50" RAGSOC
-  OUTPUT F_GRUPPOFINE GRUPPO
-  OUTPUT F_CONTOFINE CONTO
-  OUTPUT F_SOTTOCONTOFINE CODCF
-  OUTPUT F_DESCRFINE RAGSOC
-  FLAGS "R"
-  GROUP 1
 END
 
 NUMBER F_CONTOFINE 3
 BEGIN
   PROMPT 41 7 ""
-  COPY USE F_GRUPPOINI
-//  CHECKTYPE NORMAL
+  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
+  CHECKTYPE NORMAL
   INPUT GRUPPO F_GRUPPOFINE
   INPUT CONTO F_CONTOFINE
-  DISPLAY "Tipo" TIPOCF
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO 
-  DISPLAY "Codice" CODCF
-  DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_TIPOCF TMCF
   OUTPUT F_GRUPPOFINE GRUPPO
   OUTPUT F_CONTOFINE CONTO
-  OUTPUT F_SOTTOCONTOFINE CODCF
-  OUTPUT F_DESCRFINE RAGSOC
+  OUTPUT F_DESCRFINE_CONTO DESCR
   FLAGS "R"
-  GROUP 1
+  WARNING "Conto inesistente o mancante"
+  MESSAGE DIRTY,F_SOTTOCFINE_CONTO|DIRTY,F_SOTTOCFINE_CLIENTE|DIRTY,F_SOTTOCFINE_FORN
 END
 
-NUMBER F_SOTTOCONTOFINE 6
+NUMBER F_SOTTOCFINE_CONTO 6
 BEGIN
-  PROMPT 47 7 ""
-  COPY USE F_GRUPPOINI
-//  CHECKTYPE NORMAL
+  PROMPT 48 7 ""
+  USE LF_PCON SELECT SOTTOCONTO!=""
+  CHECKTYPE NORMAL
   INPUT GRUPPO F_GRUPPOFINE
   INPUT CONTO F_CONTOFINE
-  INPUT CODCF F_SOTTOCONTOFINE
-  DISPLAY "Tipo" TIPOCF
+  INPUT SOTTOCONTO F_SOTTOCFINE_CONTO
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO 
-  DISPLAY "Codice" CODCF
-  DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Sottoconto" SOTTOCONTO
+  DISPLAY "Descrizione@50" DESCR
   OUTPUT F_GRUPPOFINE GRUPPO
   OUTPUT F_CONTOFINE CONTO
-  OUTPUT F_SOTTOCONTOFINE CODCF
-  OUTPUT F_DESCRFINE RAGSOC
+  OUTPUT F_SOTTOCFINE_CONTO SOTTOCONTO
+  OUTPUT F_DESCRFINE_CONTO DESCR
   FLAGS "R"
   GROUP 1
 END
 
-STRING F_DESCRFINE 50
+STRING F_DESCRFINE_CONTO 50
 BEGIN
-  PROMPT 4 8 "Ragione sociale   "
-  FLAGS "D"
+  PROMPT 4 8 "Descrizione       "
+  USE LF_PCON KEY 2
+  INPUT DESCR F_DESCRINI_CONTO
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Sottoconto" SOTTOCONTO
+  COPY OUTPUT F_SOTTOCINI_CONTO
+  CHECKTYPE NORMAL
   GROUP 1
 END
 
-NUMBER F_GRUPPOINI2 3
+NUMBER F_SOTTOCINI_CLIENTE 6
 BEGIN
-  PROMPT 4 5 "Da Gruppo - Conto - Sottoconto "
-  USE LF_CLIFO SELECT TIPOCF="F"
-//  CHECKTYPE NORMAL
-  INPUT GRUPPO F_GRUPPOINI2
-  DISPLAY "Tipo" TIPOCF
+  PROMPT 48 5 ""
+  USE LF_CLIFO
+  CHECKTYPE NORMAL
+  INPUT TIPOCF "C"
+  INPUT CODCF F_SOTTOCINI_CLIENTE
+  DISPLAY "Codice" CODCF
+  DISPLAY "Ragione Sociale@50" RAGSOC
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO 
-  DISPLAY "Codice" CODCF
-  DISPLAY "Ragione sociale@50" RAGSOC
-  OUTPUT F_GRUPPOINI2 GRUPPO
-  OUTPUT F_CONTOINI2 CONTO
-  OUTPUT F_SOTTOCONTOINI2 CODCF
-  OUTPUT F_DESCRINI2 RAGSOC
+  OUTPUT F_SOTTOCINI_CLIENTE CODCF
+  OUTPUT F_DESCRINI_CLIENTE RAGSOC
+  MESSAGE COPY,F_SOTTOCINI_CONTO
   FLAGS "R"
   GROUP 2
-  MESSAGE COPY,F_GRUPPOINI
 END
 
-NUMBER F_CONTOINI2 3 
+STRING F_DESCRINI_CLIENTE 50
 BEGIN
-  PROMPT 41 5 ""
-  COPY USE F_GRUPPOINI2
-//  CHECKTYPE NORMAL
-  INPUT GRUPPO F_GRUPPOINI2
-  INPUT CONTO F_CONTOINI2
-  DISPLAY "Tipo" TIPOCF
+  PROMPT 4 6 "Ragione sociale C "
+  FIELD LF_CLIFO->RAGSOC
+  USE LF_CLIFO KEY 2
+  INPUT TIPOCF "C"
+  INPUT RAGSOC F_DESCRINI_CLIENTE
+  DISPLAY "Ragione Sociale Cliente@50" RAGSOC
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Codice" CODCF
+  COPY OUTPUT F_SOTTOCINI_CLIENTE
+  MESSAGE COPY,F_DESCRINI_CONTO
+  CHECKTYPE NORMAL
+  GROUP 2
+END
+
+NUMBER F_SOTTOCFINE_CLIENTE 6
+BEGIN
+  PROMPT 48 7 ""
+  USE LF_CLIFO
+  CHECKTYPE NORMAL
+  INPUT TIPOCF "C"
+  INPUT CODCF F_SOTTOCFINE_CLIENTE
+  DISPLAY "Codice" CODCF
+  DISPLAY "Ragione Sociale@50" RAGSOC
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO 
-  DISPLAY "Codice" CODCF
-  DISPLAY "Ragione sociale@50" RAGSOC
-  OUTPUT F_GRUPPOINI2 GRUPPO
-  OUTPUT F_CONTOINI2 CONTO
-  OUTPUT F_SOTTOCONTOINI2 CODCF
-  OUTPUT F_DESCRINI2 RAGSOC
+  OUTPUT F_SOTTOCFINE_CLIENTE CODCF
+  OUTPUT F_DESCRFINE_CLIENTE RAGSOC
+  MESSAGE COPY,F_SOTTOCFINE_CONTO
   FLAGS "R"
   GROUP 2
-  MESSAGE COPY,F_CONTOINI
 END
 
-NUMBER F_SOTTOCONTOINI2 6
+STRING F_DESCRFINE_CLIENTE 50
 BEGIN
-  PROMPT 47 5 ""
-  COPY USE F_GRUPPOINI2
-//  CHECKTYPE NORMAL
-  INPUT GRUPPO F_GRUPPOINI2
-  INPUT CONTO F_CONTOINI2
-  INPUT CODCF F_SOTTOCONTOINI2
-  DISPLAY "Tipo" TIPOCF
+  PROMPT 4 8 "Ragione sociale C "
+  FIELD LF_CLIFO->RAGSOC
+  USE LF_CLIFO KEY 2
+  INPUT TIPOCF "C"
+  INPUT RAGSOC F_DESCRFINE_CLIENTE
+  DISPLAY "Ragione Sociale Cliente@50" RAGSOC
   DISPLAY "Gruppo" GRUPPO
-  DISPLAY "Conto" CONTO 
+  DISPLAY "Conto" CONTO
   DISPLAY "Codice" CODCF
-  DISPLAY "Ragione sociale@50" RAGSOC
-  OUTPUT F_GRUPPOINI2 GRUPPO
-  OUTPUT F_CONTOINI2 CONTO
-  OUTPUT F_SOTTOCONTOINI2 CODCF
-  OUTPUT F_DESCRINI2 RAGSOC
-  FLAGS "R"
-  GROUP 2
-  MESSAGE COPY,F_SOTTOCONTOINI
-END
-
-STRING F_DESCRINI2 50
-BEGIN
-  PROMPT 4 6 "Ragione sociale   "
-  FLAGS "D"
-  GROUP 2
-END
-
-NUMBER F_GRUPPOFINE2 3
-BEGIN
-  PROMPT 4 7 "A  Gruppo - Conto - Sottoconto "
-  COPY USE F_GRUPPOINI2
-//  CHECKTYPE NORMAL
-  INPUT GRUPPO F_GRUPPOFINE2
-  DISPLAY "Tipo" TIPOCF
-  DISPLAY "Gruppo" GRUPPO
-  DISPLAY "Conto" CONTO 
-  DISPLAY "Codice" CODCF
-  DISPLAY "Ragione sociale@50" RAGSOC
-  OUTPUT F_GRUPPOFINE2 GRUPPO
-  OUTPUT F_CONTOFINE2 CONTO
-  OUTPUT F_SOTTOCONTOFINE2 CODCF
-  OUTPUT F_DESCRFINE2 RAGSOC
-  FLAGS "R"
-  GROUP 2
-  MESSAGE COPY,F_GRUPPOFINE
-END
-
-NUMBER F_CONTOFINE2 3
-BEGIN
-  PROMPT 41 7 ""
-  COPY USE F_GRUPPOINI2
-//  CHECKTYPE NORMAL
-  INPUT GRUPPO F_GRUPPOFINE2
-  INPUT CONTO F_CONTOFINE2
-  DISPLAY "Tipo" TIPOCF
-  DISPLAY "Gruppo" GRUPPO
-  DISPLAY "Conto" CONTO 
-  DISPLAY "Codice" CODCF
-  DISPLAY "Ragione sociale@50" RAGSOC
-  OUTPUT F_GRUPPOFINE2 GRUPPO
-  OUTPUT F_CONTOFINE2 CONTO
-  OUTPUT F_SOTTOCONTOFINE2 CODCF
-  OUTPUT F_DESCRFINE2 RAGSOC
-  FLAGS "R"
-  GROUP 2
-  MESSAGE COPY,F_CONTOFINE
-END
-
-NUMBER F_SOTTOCONTOFINE2 6
-BEGIN
-  PROMPT 47 7 ""
-  COPY USE F_GRUPPOINI2
-//  CHECKTYPE NORMAL
-  INPUT GRUPPO F_GRUPPOFINE2
-  INPUT CONTO F_CONTOFINE2
-  INPUT CODCF F_SOTTOCONTOFINE2
-  DISPLAY "Tipo" TIPOCF
-  DISPLAY "Gruppo" GRUPPO
-  DISPLAY "Conto" CONTO 
-  DISPLAY "Codice" CODCF
-  DISPLAY "Ragione sociale@50" RAGSOC
-  OUTPUT F_GRUPPOFINE2 GRUPPO
-  OUTPUT F_CONTOFINE2 CONTO
-  OUTPUT F_SOTTOCONTOFINE2 CODCF
-  OUTPUT F_DESCRFINE2 RAGSOC
-  FLAGS "R"
-  GROUP 2
-  MESSAGE COPY,F_SOTTOCONTOFINE
-END
-
-STRING F_DESCRFINE2 50
-BEGIN
-  PROMPT 4 8 "Ragione sociale   "
-  FLAGS "D"
+  COPY OUTPUT F_SOTTOCFINE_CLIENTE
+  MESSAGE COPY,F_DESCRFINE_CONTO
+  CHECKTYPE NORMAL
   GROUP 2
 END 
 
-NUMBER F_GRUPPOINI3 3
+NUMBER F_SOTTOCINI_FORN 6
 BEGIN
-  PROMPT 4 5 "Da Gruppo - Conto - Sottoconto "
-  USE LF_PCON 
-//  CHECKTYPE NORMAL
-  INPUT GRUPPO F_GRUPPOINI3
+  PROMPT 48 5 ""
+  USE LF_CLIFO
+  CHECKTYPE NORMAL
+  INPUT TIPOCF "F"
+  INPUT CODCF F_SOTTOCINI_FORN
+  DISPLAY "Codice" CODCF
+  DISPLAY "Ragione Sociale@50" RAGSOC
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO
-  DISPLAY "Sottoconto" SOTTOCONTO 
-  DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_GRUPPOINI3 GRUPPO
-  OUTPUT F_CONTOINI3 CONTO
-  OUTPUT F_SOTTOCONTOINI3 SOTTOCONTO
-  OUTPUT F_DESCRINI3 DESCR
+  OUTPUT F_SOTTOCINI_FORN CODCF
+  OUTPUT F_DESCRINI_FORN RAGSOC
   FLAGS "R"
   GROUP 3
-  MESSAGE COPY,F_GRUPPOINI
+  MESSAGE COPY,F_SOTTOCINI_CONTO
 END
 
-NUMBER F_CONTOINI3 3 
+STRING F_DESCRINI_FORN 50
 BEGIN
-  PROMPT 41 5 ""
-  COPY USE F_GRUPPOINI3
-//  CHECKTYPE NORMAL
-  INPUT GRUPPO F_GRUPPOINI3
-  INPUT CONTO F_CONTOINI3
+  PROMPT 4 6 "Ragione Sociale F "
+  USE LF_CLIFO KEY 2
+  INPUT TIPOCF "F"
+  INPUT RAGSOC F_DESCRINI_FORN
+  DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO
-  DISPLAY "Sottoconto" SOTTOCONTO 
-  DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_GRUPPOINI3 GRUPPO
-  OUTPUT F_CONTOINI3 CONTO
-  OUTPUT F_SOTTOCONTOINI3 SOTTOCONTO
-  OUTPUT F_DESCRINI3 DESCR
-  FLAGS "R"
+  DISPLAY "Codice" CODCF
+  COPY OUTPUT F_DESCRINI_CONTO
+  MESSAGE COPY,F_DESCRINI_CONTO
+  CHECKTYPE NORMAL
   GROUP 3
-  MESSAGE COPY,F_CONTOINI
 END
 
-NUMBER F_SOTTOCONTOINI3 6
+NUMBER F_SOTTOCFINE_FORN 6
 BEGIN
-  PROMPT 47 5 ""
-  COPY USE F_GRUPPOINI3
-//  CHECKTYPE NORMAL
-  INPUT GRUPPO F_GRUPPOINI3
-  INPUT CONTO F_CONTOINI3
-  INPUT SOTTOCONTO F_SOTTOCONTOINI3
+  PROMPT 48 7 ""
+  USE LF_CLIFO
+  CHECKTYPE NORMAL
+  INPUT TIPOCF "F"
+  INPUT CODCF F_SOTTOCFINE_FORN
+  DISPLAY "Codice" CODCF
+  DISPLAY "Ragione Sociale@50" RAGSOC
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO
-  DISPLAY "Sottoconto" SOTTOCONTO 
-  DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_GRUPPOINI3 GRUPPO
-  OUTPUT F_CONTOINI3 CONTO
-  OUTPUT F_SOTTOCONTOINI3 SOTTOCONTO
-  OUTPUT F_DESCRINI3 DESCR
+  OUTPUT F_SOTTOCFINE_FORN CODCF
+  OUTPUT F_DESCRFINE_FORN RAGSOC
   FLAGS "R"
   GROUP 3
-  MESSAGE COPY,F_SOTTOCONTOINI
+  MESSAGE COPY,F_SOTTOCFINE_CONTO
 END
 
-STRING F_DESCRINI3 50
+STRING F_DESCRFINE_FORN 50
 BEGIN
-  PROMPT 4 6 "Descrizione       "
-  FLAGS "D"
-  GROUP 3
-END
-
-NUMBER F_GRUPPOFINE3 3
-BEGIN
-  PROMPT 4 7 "A  Gruppo - Conto - Sottoconto "
-  COPY USE F_GRUPPOINI3
-//  CHECKTYPE NORMAL
-  INPUT GRUPPO F_GRUPPOFINE3
+  PROMPT 4 8 "Ragione Sociale F "
+  USE LF_CLIFO KEY 2
+  INPUT TIPOCF "F"
+  INPUT RAGSOC F_DESCRFINE_FORN
+  DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO
-  DISPLAY "Sottoconto" SOTTOCONTO 
-  DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_GRUPPOFINE3 GRUPPO
-  OUTPUT F_CONTOFINE3 CONTO
-  OUTPUT F_SOTTOCONTOFINE3 SOTTOCONTO
-  OUTPUT F_DESCRFINE3 DESCR
-  FLAGS "R"
-  GROUP 3
-  MESSAGE COPY,F_GRUPPOFINE
-END
-
-NUMBER F_CONTOFINE3 3
-BEGIN
-  PROMPT 41 7 ""
-  COPY USE F_GRUPPOFINE3
-//  CHECKTYPE NORMAL
-  INPUT GRUPPO F_GRUPPOFINE3
-  INPUT CONTO F_CONTOFINE3
-  DISPLAY "Gruppo" GRUPPO
-  DISPLAY "Conto" CONTO
-  DISPLAY "Sottoconto" SOTTOCONTO 
-  DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_GRUPPOFINE3 GRUPPO
-  OUTPUT F_CONTOFINE3 CONTO
-  OUTPUT F_SOTTOCONTOFINE3 SOTTOCONTO
-  OUTPUT F_DESCRFINE3 DESCR
-  FLAGS "R"
-  GROUP 3
-  MESSAGE COPY,F_CONTOFINE
-END
-
-NUMBER F_SOTTOCONTOFINE3 6
-BEGIN
-  PROMPT 47 7 ""
-  COPY USE F_GRUPPOFINE3
-//  CHECKTYPE NORMAL
-  INPUT GRUPPO F_GRUPPOFINE3
-  INPUT CONTO F_CONTOFINE3
-  INPUT SOTTOCONTO F_SOTTOCONTOFINE3
-  DISPLAY "Gruppo" GRUPPO
-  DISPLAY "Conto" CONTO
-  DISPLAY "Sottoconto" SOTTOCONTO 
-  DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_GRUPPOFINE3 GRUPPO
-  OUTPUT F_CONTOFINE3 CONTO
-  OUTPUT F_SOTTOCONTOFINE3 SOTTOCONTO
-  OUTPUT F_DESCRFINE3 DESCR
-  FLAGS "R"
-  GROUP 3
-  MESSAGE COPY,F_SOTTOCONTOFINE
-END
-
-STRING F_DESCRFINE3 50
-BEGIN
-  PROMPT 4 8 "Descrizione       "
-  FLAGS "D"
+  DISPLAY "Codice" CODCF
+  COPY OUTPUT F_DESCRFINE_CONTO
+  MESSAGE COPY,F_DESCRFINE_CONTO
+  CHECKTYPE NORMAL
   GROUP 3
 END
 
@@ -557,10 +404,9 @@ BEGIN
   ITEM "2|Due"
 END
 
-BUTTON DLG_PRINT 9 2
+BUTTON DLG_OK 9 2
 BEGIN
-	PROMPT -12 -1 "~Stampa"
-	MESSAGE EXIT,K_ENTER
+	PROMPT -12 -1 ""
 END
 
 BUTTON DLG_QUIT 9 2