diff --git a/cg/cg5200a.uml b/cg/cg5200a.uml
index 116a71ca1..6e492fd4f 100755
--- a/cg/cg5200a.uml
+++ b/cg/cg5200a.uml
@@ -47,7 +47,6 @@ BEGIN
   DISPLAY "Gruppo" GRUPPO 
   DISPLAY "Descrizione@50" DESCR
   OUTPUT F_GRUPPO GRUPPO
-  //OUTPUT F_DESCR_CONTO DESCR
   FLAGS "R" 
 END
 
@@ -65,15 +64,9 @@ BEGIN
   OUTPUT F_CONTO CONTO
   OUTPUT F_GRUPPO GRUPPO
   OUTPUT F_TIPOCF TMCF
-  //OUTPUT F_DESCR_CLIENTE DESCR
-  //OUTPUT F_DESCR_FORN DESCR
-  //OUTPUT F_DESCR_CONTO DESCR
-
   FLAGS "R"
   CHECKTYPE NORMAL
   WARNING "Conto inesistente o mancante"
-  //MESSAGE DIRTY,F_SOTTOCONTO|DIRTY,F_SOTTOC_CLIENTE|DIRTY,F_SOTTOC_FORN
-  //MESSAGE DIRTY,F_DESCR_CONTO|DIRTY,F_DESCR_CLIENTE|DIRTY,F_DESCR_FORN
 END
 
 NUMBER F_SOTTOCONTO 6
@@ -92,15 +85,8 @@ BEGIN
   OUTPUT F_SOTTOCONTO SOTTOCONTO
   OUTPUT F_GRUPPO GRUPPO
   OUTPUT F_CONTO CONTO
-  //OUTPUT F_DESCR_CONTO DESCR
-  //OUTPUT F_DESCR_CLIENTE DESCR
-  //OUTPUT F_DESCR_FORN DESCR  
-  //CHECKTYPE NORMAL  
-  //MESSAGE COPY,F_SOTTOC_FORN  //li gestisco da programma senno' fanno casino
-  //MESSAGE COPY,F_SOTTOC_CLIENTE 
   FLAGS "R" 
   CHECKTYPE NORMAL
-  //VALIDATE AUTOEXIT_FUNC 3 F_GRUPPO F_CONTO F_SOTTOCONTO 
   GROUP 1         
   WARNING "Conto inesistente"
 END
@@ -109,7 +95,6 @@ NUMBER F_SOTTOC_CLIENTE 6
 BEGIN
   PROMPT 54 3 "Cliente "
   USE LF_CLIFO
-//FIELD LF_CLIFO->CODCF
   INPUT TIPOCF "C"
   INPUT CODCF F_SOTTOC_CLIENTE
   DISPLAY "Codice" CODCF
@@ -117,14 +102,10 @@ BEGIN
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO 
   OUTPUT F_SOTTOC_CLIENTE CODCF
-//OUTPUT F_DESCR_CONTO RAGSOC
-//OUTPUT F_DESCR_CLIENTE RAGSOC
-//OUTPUT F_DESCR_FORN RAGSOC 
   FLAGS "R"
   CHECKTYPE NORMAL  
   KEY 1
   WARNING "Cliente inesistente"
-  //VALIDATE AUTOEXIT_FUNC 3 F_GRUPPO F_CONTO F_SOTTOC_CLIENTE
   GROUP 2
 END
 
@@ -139,15 +120,10 @@ BEGIN
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO
   OUTPUT F_SOTTOC_FORN CODCF
-//  OUTPUT F_DESCR_FORN RAGSOC
-//  OUTPUT F_DESCR_CONTO RAGSOC
-//  OUTPUT F_DESCR_CLIENTE RAGSOC
   FLAGS "R"
   CHECKTYPE NORMAL
-// serve per l' autopremimento
   KEY 1  
   WARNING "Fornitore inesistente"
-  //VALIDATE AUTOEXIT_FUNC 3 F_GRUPPO F_CONTO F_SOTTOC_FORN
   GROUP 3
 END
 
@@ -344,24 +320,6 @@ BEGIN
     PROMPT -22 -1 ""
 END 
 
-/*
-BUTTON DLG_OK 9 2
-BEGIN
-    PROMPT -13 -1 ""
-END
-
-BUTTON DLG_CANCEL 9 2
-BEGIN
-    PROMPT -23 -1 ""
-END
-
-BUTTON DLG_NULL 9 2
-BEGIN
-    PROMPT -33 -1 "Azzera"
-    MESSAGE RESET,1@      
-END
-*/
-
 ENDPAGE
 
 ENDMASK