Corretti Errori MI6180, MI6181, MI6182, MI6184, MI6185, MI6188, MI6190,

MI6177, MI6178, MI6179.


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

cg/cg3200.cpp

@@ -419,13 +419,11 @@ bool TMastrini_application::gruppo_hnd (TMask_field& f, KEY k)
 
 bool TMastrini_application::contoi_hnd (TMask_field& f, KEY k)
 { 
+  if (k == K_TAB && f.focusdirty() && f.mask().is_running())
+  { 
     TLocalisamfile pconti (LF_PCON);
     TString ds;                 
-  
     const short id  = f.dlg();  
-  
-  if (k == K_TAB && f.mask().is_running())
-  { 
     int gruppo = f.mask().get_int(F_GRUPPOINI);
     int conto  = f.mask().get_int(id);
     
@@ -476,8 +474,6 @@ bool TMastrini_application::contoi_hnd (TMask_field& f, KEY k)
 
 bool TMastrini_application::contof_hnd (TMask_field& f, KEY k)
 {
-  TLocalisamfile pconti (LF_PCON);
-  TString ds;                       
   const short id  = f.dlg();  
    
   if (k == K_ENTER)
@@ -511,8 +507,10 @@ bool TMastrini_application::contof_hnd (TMask_field& f, KEY k)
       return f.error_box("Il conto di partenza deve essere inferiore o uguale al conto di arrivo");
   }
   
-  if (k == K_TAB && f.mask().is_running())
+  if (k == K_TAB && f.focusdirty() && f.mask().is_running())
   {  
+    TLocalisamfile pconti (LF_PCON);
+    TString ds;                       
     int gruppo = f.mask().get_int(F_GRUPPOFINE);
     int conto  = f.mask().get_int(id);
     if (gruppo != 0 && conto != 0)
@@ -596,7 +594,12 @@ bool TMastrini_application::memorizza_handler(TMask_field& f, KEY k)
 {
   bool ok = TRUE;
   if (k == K_SPACE)
+  {
+    TMask& m = f.mask();
     ok = app().mask2sheet();
+    m.reset(-9);
+    m.set_focus_field(F_TIPOCF_INI);
+  }
   return ok;
 }
 
@@ -2404,6 +2407,8 @@ bool TMastrini_application::set_print(int)
 
     _numcarat           = _msk->get_int(F_NUMCARAT);
     _nummast            = _msk->get_int(F_NUMMAST);
+    _data_ini           = _msk->get_date(F_DATAINI);
+    _data_fine          = _msk->get_date(F_DATAFINE);
     int formato         = _msk->get_int(F_FORMATO);    // Molto scenografico!
 
     ricerca_dati_ditta();
@@ -3927,7 +3932,7 @@ bool TMastrini_application::mask2sheet()
   {
     TSheet_field& sht = (TSheet_field&)_msk->field(F_SCELTE);
     TString_array& rows = sht.rows_array();
-    ok = rows.find(row) < 0;
+    ok = rows.find(row) < 0 && rows.items() == 0; // Aggiunge solo se nello sheet non c'e' nulla
     if (ok)              
     {
       rows.add(row);

cg/cg3200a.uml

@@ -10,7 +10,7 @@ END
 
 BUTTON F_MEMORIZZA 16 2
 BEGIN
-  PROMPT -23 -11 "Memorizza scelte"
+  PROMPT -23 -11 "~Memorizza scelte"
 END
 
 BUTTON DLG_QUIT 16 2
@@ -82,16 +82,17 @@ LIST F_TIPOCF_INI 25
 BEGIN
   PROMPT 4 4 "Ricerca           "
   ITEM " |Gruppo/conto/sottoconto"
-  MESSAGE HIDE,2@|HIDE,3@|RESET,2@|RESET,3@|SHOW,1@
+  MESSAGE HIDE,2@|HIDE,3@|RESET,2@|RESET,3@|RESET,1@|SHOW,1@|RESET,F_GRUPPOINI
   ITEM "C|Clienti"
-  MESSAGE HIDE,1@|HIDE,3@|RESET,1@|RESET,3@|SHOW,2@
+  MESSAGE HIDE,1@|HIDE,3@|RESET,1@|RESET,3@|RESET,2@|SHOW,2@|RESET,F_GRUPPOINI
   ITEM "F|Fornitori"
-  MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@|SHOW,3@    
+  MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@|RESET,3@|SHOW,3@|RESET,F_GRUPPOINI
 END
 
 NUMBER F_GRUPPOINI 3
 BEGIN
   PROMPT 4 5 "Da Gruppo - Conto - Sottoconto "
+  GROUP 9
 END
 
 NUMBER F_CONTOINI_CONTO 3 
@@ -107,9 +108,9 @@ BEGIN
   OUTPUT F_CONTOINI_CONTO CONTO 
   CHECKTYPE NORMAL
   WARNING "Conto inesistente o mancante"
-  MESSAGE DIRTY,F_SOTTOCINI_CONTO
+//  MESSAGE DIRTY,F_SOTTOCINI_CONTO
   VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CONTO
-  GROUP 1
+  GROUP 1 9
 END
 
 NUMBER F_CONTOINI_CLIENTE 3 
@@ -128,7 +129,7 @@ BEGIN
   WARNING "Conto inesistente o mancante"
   MESSAGE DIRTY,F_SOTTOCINI_CLIENTE
   MESSAGE COPY,F_CONTOINI_CONTO
-  GROUP 2  
+  GROUP 2  9
 END
 
 NUMBER F_CONTOINI_FORN 3 
@@ -147,7 +148,7 @@ BEGIN
   WARNING "Conto inesistente o mancante"
   MESSAGE DIRTY,F_SOTTOCINI_FORN
   MESSAGE COPY,F_CONTOINI_CONTO
-  GROUP 3                      
+  GROUP 3   9                   
 END
 
 NUMBER F_SOTTOCINI_CONTO 6
@@ -166,7 +167,7 @@ BEGIN
   OUTPUT F_CONTOINI_CONTO CONTO
   OUTPUT F_DESCRINI_CONTO DESCR
   CHECKTYPE NORMAL
-  GROUP 1
+  GROUP 1 9
 END
 
 STRING F_DESCRINI_CONTO 50
@@ -180,7 +181,7 @@ BEGIN
   DISPLAY "Conto" CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   COPY OUTPUT F_SOTTOCINI_CONTO
-  GROUP 1
+  GROUP 1 9
 END
 
 NUMBER F_SOTTOCINI_CLIENTE 6
@@ -197,7 +198,7 @@ BEGIN
   OUTPUT F_SOTTOCINI_CLIENTE CODCF
   OUTPUT F_DESCRINI_CLIENTE RAGSOC
   MESSAGE COPY,F_SOTTOCINI_CONTO
-  GROUP 2
+  GROUP 2 9
 END
 
 STRING F_DESCRINI_CLIENTE 50
@@ -214,7 +215,7 @@ BEGIN
   COPY OUTPUT F_SOTTOCINI_CLIENTE
   MESSAGE COPY,F_DESCRINI_CONTO
   CHECKTYPE NORMAL
-  GROUP 2
+  GROUP 2 9
 END
 
 NUMBER F_SOTTOCINI_FORN 6
@@ -231,7 +232,7 @@ BEGIN
   OUTPUT F_SOTTOCINI_FORN CODCF
   OUTPUT F_DESCRINI_FORN RAGSOC
   FLAGS "R"
-  GROUP 3
+  GROUP 3 9
   MESSAGE COPY,F_SOTTOCINI_CONTO
 END
 
@@ -248,23 +249,24 @@ BEGIN
   COPY OUTPUT F_SOTTOCINI_FORN
   MESSAGE COPY,F_DESCRINI_CONTO
   CHECKTYPE NORMAL
-  GROUP 3
+  GROUP 3 9
 END
              
 LIST F_TIPOCF_FINE 25
 BEGIN
   PROMPT 4 7 "Ricerca           "
   ITEM " |Gruppo/conto/sottoconto"
-  MESSAGE HIDE,5@|HIDE,6@|RESET,5@|RESET,6@|SHOW,4@
+  MESSAGE HIDE,5@|HIDE,6@|RESET,5@|RESET,6@|RESET,4@|SHOW,4@|RESET,F_GRUPPOFINE
   ITEM "C|Clienti"
-  MESSAGE HIDE,4@|HIDE,6@|RESET,4@|RESET,6@|SHOW,5@
+  MESSAGE HIDE,4@|HIDE,6@|RESET,4@|RESET,6@|RESET,5@|SHOW,5@|RESET,F_GRUPPOFINE
   ITEM "F|Fornitori"
-  MESSAGE HIDE,4@|HIDE,5@|RESET,4@|RESET,5@|SHOW,6@    
+  MESSAGE HIDE,4@|HIDE,5@|RESET,4@|RESET,5@|RESET,6@|SHOW,6@|RESET,F_GRUPPOFINE
 END
              
 NUMBER F_GRUPPOFINE 3
 BEGIN
   PROMPT 4 8 "A  Gruppo - Conto - Sottoconto "
+  GROUP 9
 END
 
 NUMBER F_CONTOFINE_CONTO 3
@@ -281,8 +283,8 @@ BEGIN
   CHECKTYPE NORMAL                    
   VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CONTO
   WARNING "Conto inesistente o mancante"
-  MESSAGE DIRTY,F_SOTTOCFINE_CONTO
+//  MESSAGE DIRTY,F_SOTTOCFINE_CONTO
-  GROUP 4
+  GROUP 4 9
 END
 
 NUMBER F_CONTOFINE_CLIENTE 3
@@ -301,7 +303,7 @@ BEGIN
   WARNING "Conto inesistente o mancante"
   MESSAGE DIRTY,F_SOTTOCFINE_CLIENTE
   MESSAGE COPY,F_CONTOFINE_CONTO
-  GROUP 5
+  GROUP 5 9
 END
 
 NUMBER F_CONTOFINE_FORN 3
@@ -320,7 +322,7 @@ BEGIN
   WARNING "Conto inesistente o mancante"
   MESSAGE DIRTY,F_SOTTOCFINE_FORN
   MESSAGE COPY,F_CONTOFINE_CONTO
-  GROUP 6
+  GROUP 6 9
 END
 
 NUMBER F_SOTTOCFINE_CONTO 6
@@ -340,7 +342,7 @@ BEGIN
   OUTPUT F_DESCRFINE_CONTO DESCR
   CHECKTYPE NORMAL
   WARNING "Sottoconto inesistente o mancante"
-  GROUP 4
+  GROUP 4 9
 END
 
 STRING F_DESCRFINE_CONTO 50
@@ -354,7 +356,7 @@ BEGIN
   DISPLAY "Conto" CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   COPY OUTPUT F_SOTTOCFINE_CONTO
-  GROUP 4
+  GROUP 4 9
 END
 
 NUMBER F_SOTTOCFINE_CLIENTE 6
@@ -372,7 +374,7 @@ BEGIN
   OUTPUT F_SOTTOCFINE_CLIENTE CODCF
   OUTPUT F_DESCRFINE_CLIENTE RAGSOC
   MESSAGE COPY,F_SOTTOCFINE_CONTO
-  GROUP 5
+  GROUP 5 9
 END
 
 STRING F_DESCRFINE_CLIENTE 50
@@ -389,7 +391,7 @@ BEGIN
   DISPLAY "Codice" CODCF
   COPY OUTPUT F_SOTTOCFINE_CLIENTE
   MESSAGE COPY,F_DESCRFINE_CONTO
-  GROUP 5
+  GROUP 5 9
 END 
 
 NUMBER F_SOTTOCFINE_FORN 6
@@ -407,7 +409,7 @@ BEGIN
   OUTPUT F_SOTTOCFINE_FORN CODCF
   OUTPUT F_DESCRFINE_FORN RAGSOC
   MESSAGE COPY,F_SOTTOCFINE_CONTO
-  GROUP 6
+  GROUP 6 9
 END
 
 STRING F_DESCRFINE_FORN 50
@@ -423,7 +425,7 @@ BEGIN
   DISPLAY "Codice" CODCF
   COPY OUTPUT F_SOTTOCFINE_FORN
   MESSAGE COPY,F_DESCRFINE_CONTO
-  GROUP 6
+  GROUP 6 9
 END
 
 DATE F_DATAINI 
@@ -507,11 +509,11 @@ BEGIN
   ITEM "Sottoc."
   ITEM "Dal@10"
   ITEM "Al@10"
-  ITEM "IVA"
+  ITEM "Stampa numerazione"
   ITEM "Progr."
-  ITEM "Provvis."
+  ITEM "Totali IVA"
-  ITEM "Numerazione"
+  ITEM "Tipo stampa"
-  ITEM "Stampa"
+  ITEM "Provv."
 END
 
 ENDPAGE
@@ -550,24 +552,6 @@ BEGIN
   PROMPT 44 2 ""
 END
 
-NUMBER F_CONTOINI_CONTO 3 
-BEGIN
-  PROMPT 50 2 ""
-  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="")
-  INPUT GRUPPO F_GRUPPOINI
-  INPUT CONTO F_CONTOINI_CONTO
-  DISPLAY "Gruppo" GRUPPO
-  DISPLAY "Conto" CONTO 
-  DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_GRUPPOINI GRUPPO
-  OUTPUT F_CONTOINI_CONTO CONTO 
-  CHECKTYPE NORMAL
-  WARNING "Conto inesistente o mancante"
-  MESSAGE DIRTY,F_SOTTOCINI_CONTO
-  VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CONTO
-  GROUP 1
-END
-
 NUMBER F_CONTOINI_CLIENTE 3 
 BEGIN
   PROMPT 50 2 ""
@@ -606,36 +590,22 @@ BEGIN
   GROUP 3                      
 END
 
-NUMBER F_SOTTOCINI_CONTO 6
+NUMBER F_CONTOINI_CONTO 3 
 BEGIN
-  PROMPT 58 2 ""
+  PROMPT 50 2 ""
-  USE LF_PCON SELECT SOTTOCONTO!=""
+  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="")
   INPUT GRUPPO F_GRUPPOINI
   INPUT CONTO F_CONTOINI_CONTO
-  INPUT SOTTOCONTO F_SOTTOCINI_CONTO
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO 
-  DISPLAY "Sottoconto" SOTTOCONTO
   DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_SOTTOCINI_CONTO SOTTOCONTO
   OUTPUT F_GRUPPOINI GRUPPO
   OUTPUT F_CONTOINI_CONTO CONTO
-  OUTPUT F_DESCRINI_CONTO DESCR
+//  OUTPUT F_DESCRINI_CONTO DESCR
   CHECKTYPE NORMAL
-  GROUP 1
+  WARNING "Conto inesistente o mancante"
-END
+  MESSAGE DIRTY,F_SOTTOCINI_CONTO
-
+  VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CONTO
-STRING F_DESCRINI_CONTO 50
-BEGIN
-  PROMPT 1 3 "Descrizione  "
-  USE LF_PCON KEY 2
-  CHECKTYPE NORMAL
-  INPUT DESCR F_DESCRINI_CONTO
-  DISPLAY "Descrizione@50" DESCR
-  DISPLAY "Gruppo" GRUPPO
-  DISPLAY "Conto" CONTO
-  DISPLAY "Sottoconto" SOTTOCONTO
-  COPY OUTPUT F_SOTTOCINI_CONTO
   GROUP 1
 END
 
@@ -652,14 +622,14 @@ BEGIN
   DISPLAY "Conto" CONTO 
   OUTPUT F_SOTTOCINI_CLIENTE CODCF
   OUTPUT F_DESCRINI_CLIENTE RAGSOC
-  MESSAGE COPY,F_SOTTOCINI_CONTO
+  FLAGS "R"
   GROUP 2
+  MESSAGE COPY,F_SOTTOCINI_CONTO
 END
 
 STRING F_DESCRINI_CLIENTE 50
 BEGIN
   PROMPT 1 3 "Cliente      "
-  FIELD LF_CLIFO->RAGSOC
   USE LF_CLIFO KEY 2
   INPUT TIPOCF "C"
   INPUT RAGSOC F_DESCRINI_CLIENTE
@@ -707,6 +677,41 @@ BEGIN
   GROUP 3
 END
            
+NUMBER F_SOTTOCINI_CONTO 6
+BEGIN
+  PROMPT 58 2 ""
+  USE LF_PCON SELECT SOTTOCONTO!=""
+  INPUT GRUPPO F_GRUPPOINI
+  INPUT CONTO F_CONTOINI_CONTO
+  INPUT SOTTOCONTO F_SOTTOCINI_CONTO
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO 
+  DISPLAY "Sottoconto" SOTTOCONTO
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_SOTTOCINI_CONTO SOTTOCONTO
+  OUTPUT F_GRUPPOINI GRUPPO
+  OUTPUT F_CONTOINI_CONTO CONTO
+  OUTPUT F_DESCRINI_CONTO DESCR
+  CHECKTYPE NORMAL
+  FLAGS "R"
+  GROUP 1
+END
+
+STRING F_DESCRINI_CONTO 50
+BEGIN
+  PROMPT 1 3 "Descrizione  "
+//  FIELD LF_PCON->DESCR
+  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
+
 LIST F_TIPOCF_FINE 25
 BEGIN
   PROMPT 1 4 "Al conto     "
@@ -723,24 +728,6 @@ BEGIN
   PROMPT 44 4 "" 
 END
 
-NUMBER F_CONTOFINE_CONTO 3
-BEGIN
-  PROMPT 50 4 ""
-  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="")
-  INPUT GRUPPO F_GRUPPOFINE
-  INPUT CONTO F_CONTOFINE_CONTO
-  DISPLAY "Gruppo" GRUPPO
-  DISPLAY "Conto" CONTO 
-  DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_GRUPPOFINE GRUPPO
-  OUTPUT F_CONTOFINE_CONTO CONTO
-  CHECKTYPE NORMAL                    
-  VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CONTO
-  WARNING "Conto inesistente o mancante"
-  MESSAGE DIRTY,F_SOTTOCFINE_CONTO
-  GROUP 4
-END
-
 NUMBER F_CONTOFINE_CLIENTE 3
 BEGIN
   PROMPT 50 4 ""
@@ -779,37 +766,21 @@ BEGIN
   GROUP 6
 END
 
-NUMBER F_SOTTOCFINE_CONTO 6
+NUMBER F_CONTOFINE_CONTO 3
 BEGIN
-  PROMPT 58 4 ""
+  PROMPT 50 4 ""
-  USE LF_PCON SELECT SOTTOCONTO!=""
+  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="")
   INPUT GRUPPO F_GRUPPOFINE
   INPUT CONTO F_CONTOFINE_CONTO
-  INPUT SOTTOCONTO F_SOTTOCFINE_CONTO
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO 
-  DISPLAY "Sottoconto" SOTTOCONTO
   DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_SOTTOCFINE_CONTO SOTTOCONTO
   OUTPUT F_GRUPPOFINE GRUPPO
   OUTPUT F_CONTOFINE_CONTO CONTO
-  OUTPUT F_DESCRFINE_CONTO DESCR
   CHECKTYPE NORMAL                    
-  WARNING "Sottoconto inesistente o mancante"
+  WARNING "Conto inesistente o mancante"
-  GROUP 4
+  MESSAGE DIRTY,F_SOTTOCFINE_CONTO
-END
+  VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CONTO
-
-STRING F_DESCRFINE_CONTO 50
-BEGIN
-  PROMPT 1 5 "Descrizione  "
-  USE LF_PCON KEY 2
-  CHECKTYPE NORMAL
-  INPUT DESCR F_DESCRINI_CONTO
-  DISPLAY "Descrizione@50" DESCR
-  DISPLAY "Gruppo" GRUPPO
-  DISPLAY "Conto" CONTO
-  DISPLAY "Sottoconto" SOTTOCONTO
-  COPY OUTPUT F_SOTTOCFINE_CONTO
   GROUP 4
 END
 
@@ -827,15 +798,15 @@ BEGIN
   DISPLAY "Conto" CONTO 
   OUTPUT F_SOTTOCFINE_CLIENTE CODCF
   OUTPUT F_DESCRFINE_CLIENTE RAGSOC
-  MESSAGE COPY,F_SOTTOCFINE_CONTO
+  FLAGS "R"
   GROUP 5
+  MESSAGE COPY,F_SOTTOCFINE_CONTO
 END
 
 STRING F_DESCRFINE_CLIENTE 50
 BEGIN
   PROMPT 1 5 "Cliente      "
-  FIELD LF_CLIFO->RAGSOC
+//  FIELD LF_CLIFO->RAGSOC
-  CHECKTYPE NORMAL
   USE LF_CLIFO KEY 2
   INPUT TIPOCF "C"
   INPUT RAGSOC F_DESCRFINE_CLIENTE
@@ -845,6 +816,7 @@ BEGIN
   DISPLAY "Codice" CODCF
   COPY OUTPUT F_SOTTOCFINE_CLIENTE
   MESSAGE COPY,F_DESCRFINE_CONTO
+  CHECKTYPE NORMAL
   GROUP 5
 END 
 
@@ -882,6 +854,42 @@ BEGIN
   GROUP 6
 END
 
+NUMBER F_SOTTOCFINE_CONTO 6
+BEGIN
+  PROMPT 58 4 ""
+  USE LF_PCON SELECT SOTTOCONTO!=""
+  INPUT GRUPPO F_GRUPPOFINE
+  INPUT CONTO F_CONTOFINE_CONTO
+  INPUT SOTTOCONTO F_SOTTOCFINE_CONTO
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO 
+  DISPLAY "Sottoconto" SOTTOCONTO
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_SOTTOCFINE_CONTO SOTTOCONTO
+  OUTPUT F_GRUPPOFINE GRUPPO
+  OUTPUT F_CONTOFINE_CONTO CONTO
+  OUTPUT F_DESCRFINE_CONTO DESCR
+  CHECKTYPE NORMAL
+  FLAGS "R"
+  WARNING "Sottoconto inesistente o mancante"
+  GROUP 4
+END
+
+STRING F_DESCRFINE_CONTO 50
+BEGIN
+  PROMPT 1 5 "Descrizione  "
+// FIELD LF_PCON->DESCR
+  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_SOTTOCFINE_CONTO
+  CHECKTYPE NORMAL
+  GROUP 4
+END
+
 DATE F_DATAINI 
 BEGIN
   PROMPT 1 6 "Dalla data   "