Corretto errore 0255

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

cg/cg5.cpp

@@ -3,7 +3,7 @@
 
 #include "cg5.h"
 
-#define usage   "Error - usage : %s -{0,1,3}"
+#define usage   "Error - usage : %s -{0|1|2|3}"
 
 int main(int argc,char** argv)
 {
@@ -11,10 +11,16 @@ int main(int argc,char** argv)
 
   switch (n)
   {
-  case 0: cg5000(argc,argv) ; break;
+  case 0:
-        case 1: cg5100(argc,argv) ; break;
+    cg5000(argc,argv) ; break;
-        case 3: cg5300(argc,argv) ; break;
+  case 1:
-        default: fatal_box(usage, argv[0]) ;
+    cg5100(argc,argv) ; break;
-        }
+  case 2:
+    cg5200(argc,argv) ; break;
+  case 3:
+    cg5300(argc,argv) ; break;
+  default:
+    fatal_box(usage, argv[0]) ;
+  }
   return 0;
 }

cg/cg5.h

@@ -1,3 +1,4 @@
 extern int cg5000 (int argc, char* argv[]);
 extern int cg5100 (int argc, char* argv[]);
+extern int cg5200 (int argc, char* argv[]);
 extern int cg5300 (int argc, char* argv[]);

cg/cg5200.cpp

@@ -347,7 +347,6 @@ bool CG5200_application::user_create()
   _rel1  = new TRelation(LF_SALDI);
   _cur   = new TCursor(_rel1, "", 2);
   set_search_field(F_GRUPPO);
-  TSheet_field& cs = ss();
   
   return TRUE;
 }
@@ -467,12 +466,6 @@ void CG5200_application::compilasheet()
   real saldoini_gc     = ZERO;
   real saldosca_gc     = ZERO;
   real saldopro_gc     = ZERO;
-  real prg_dare_gc     = ZERO;
-  real prg_avere_gc    = ZERO;
-  real prg_daresca_gc  = ZERO;
-  real prg_averesca_gc = ZERO;
-  real prg_darepro_gc  = ZERO;
-  real prg_averepro_gc = ZERO;
   real saldoini  = ZERO; 
   real pdare     = ZERO;
   real pavere    = ZERO;

cg/cg5200a.uml

@@ -25,7 +25,6 @@ END
 GROUPBOX DLG_NULL 73 4
 BEGIN
   PROMPT 3 2 ""
-  //FLAGS "R"
 END
 
 LIST F_TIPOCF 9
@@ -67,13 +66,10 @@ BEGIN
   OUTPUT F_TIPOCF TMCF
   OUTPUT F_GRUPPO GRUPPO
   OUTPUT F_CONTO CONTO
-  //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
 
@@ -94,10 +90,6 @@ BEGIN
   OUTPUT F_CONTO CONTO
   OUTPUT F_SOTTOCONTO SOTTOCONTO
   OUTPUT F_DESCR_CONTO DESCR
-  //OUTPUT F_DESCR_CLIENTE DESCR
-  //OUTPUT F_DESCR_FORN DESCR  
-  //MESSAGE COPY,F_SOTTOC_FORN  //li gestisco da programma senno' fanno casino
-  //MESSAGE COPY,F_SOTTOC_CLIENTE 
   FLAGS "R" 
   CHECKTYPE NORMAL
   GROUP 1         
@@ -108,7 +100,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,8 +108,6 @@ BEGIN
   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"
   KEY 1
   CHECKTYPE NORMAL
@@ -130,7 +119,6 @@ NUMBER F_SOTTOC_FORN 6
 BEGIN
   PROMPT 54 3 "Fornitore "
   USE LF_CLIFO
-  //FIELD LF_CLIFO->CODCF
   INPUT TIPOCF "F"
   INPUT CODCF F_SOTTOC_FORN
   DISPLAY "Codice" CODCF
@@ -138,11 +126,9 @@ 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"
-  KEY 1   //serve per l'autopremimento
+  KEY 1   
   CHECKTYPE NORMAL
   WARNING "Fornitore inesistente"
   GROUP 3
@@ -293,19 +279,6 @@ BEGIN
   PROMPT 44 7 ""
 END  
 
-/*
-NUMBER 105 15
-BEGIN
-  PROMPT 1 5 "Progr.Attuali: Saldo Iniziale "
-  FLAGS "R"
-END
-
-STRING 105 1
-BEGIN
-  PROMPT 1 5 "Segno "
-END  
-*/
-
 DATE 112 
 BEGIN
   PROMPT 1 8 "Ultima data operazione     "