Corretti errori vari PATTY, CINZIA e VLADI (wow!)

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

cg/cg0500a.uml

@@ -21,7 +21,7 @@ BEGIN
   FLAGS "UZ"
   USE LF_CAUSALI
   INPUT CODCAUS F_COD_CAUS
-  DISPLAY "Codice" CODCAUS
+  DISPLAY "Cod." CODCAUS
   DISPLAY "Descrizione@50" DESCR
   DISPLAY "Documento" TIPODOC
   DISPLAY "Registro" REG
@@ -42,7 +42,7 @@ BEGIN
   USE LF_CAUSALI KEY 2
   INPUT DESCR F_DESCR
   DISPLAY "Descrizione @50" DESCR
-  DISPLAY "Codice" CODCAUS
+  DISPLAY "Cod." CODCAUS
   DISPLAY "Documento" TIPODOC
   DISPLAY "Registro" REG
   DISPLAY "Movimento" TIPOMOV

cg/cg2100.cpp

@@ -482,8 +482,15 @@ void TPrimanota_application::init_query_mode(TMask& m)
 {
   enable_menu_item(M_FILE_PRINT);
   
+  if (lnflag())
+  {
+    m.field(F_NUMREG).on_hit();  // Aggiorna opportunamente le date
+  }
+  else
+  {
     m.set(F_DATAREG,  _last_dreg);                    
     m.set(F_DATACOMP, _last_dcom);
+  }  
 }
 
 

cg/cg2100c.uml

@@ -377,7 +377,7 @@ BEGIN
   OUTPUT F_DESPAG S0
   CHECKTYPE NORMAL
   ADD RUN ba3 -6
-  WARNING "Codice pagamento errato"
+  WARNING "Codice pagamento assente"
 END
 
 STRING F_DESPAG 50

cg/cg2102.cpp

@@ -578,7 +578,11 @@ bool TPrimanota_application::cg_handler(TMask_field& f, KEY k)
           return f.error_box("Il conto della riga %d non e' completo", i+1);
         const TBill co(r, 10, 0x0);
         if (!co.empty() && !co.ok()) 
-          f.error_box("La contropartita della riga %d non e' completa", i+1);
+        {
+          const bool ok = f.yesno_box("La contropartita della riga %d non e' completa:\n"
+                                      "Si desidera continuare ugualmente?", i+1);
+          if (!ok) return FALSE;
+        }
         
         empty = FALSE;       
         if (paga || nota)
@@ -1537,8 +1541,7 @@ bool TPrimanota_application::sheet_clifo_handler(TMask_field& f, KEY k)
 bool TPrimanota_application::num_handler(TMask_field& f, KEY key)
 {                       
   TMask& m = f.mask();
-  const long num = atol(f.get());
+  if (key == K_TAB /* && m.is_running() */ && !f.empty())
-  if (key == K_TAB && m.is_running() && num > 0)
   {                    
     TPrimanota_application& a = app();    
     const long max = a._lastreg+1;
@@ -1546,6 +1549,7 @@ bool TPrimanota_application::num_handler(TMask_field& f, KEY key)
     a._skip_giornale_check = FALSE;
     a._skip_bollato_check  = FALSE;
     
+    const long num = atol(f.get());
     if (num < max)
     {
       if (a.find(1))

cg/cg2105.cpp

@@ -1752,6 +1752,12 @@ bool TGame_mask::edit_pagamento(TPartita& p, int nriga, int nrata, int nrigp) co
   
   KEY key = m.run();
   
+  if (key == K_DEL)
+  {
+    const bool truly = yesno_box("Confermare l'eliminazione");
+    if (!truly) key = K_ESC;
+  }
+  
   if (key == K_ESC && nuovo)
     key = K_DEL;
   

cg/cg3200.cpp

@@ -3674,13 +3674,15 @@ bool TMastrini_application::user_create()
   _d30   = new TParagraph_string ("",30);
   
   _msk = new TMask("cg3200a");     
+
+/*  Guy: Provo a non usarli e uso i check normali
   _msk->set_handler(F_SOTTOCINI_CONTO,    sottoc_handler_ini);
   _msk->set_handler(F_SOTTOCINI_CLIENTE,  sottoc_handler_ini);
   _msk->set_handler(F_SOTTOCINI_FORN,     sottoc_handler_ini);
   _msk->set_handler(F_SOTTOCFINE_CONTO,   sottoc_handler_fine);
   _msk->set_handler(F_SOTTOCFINE_CLIENTE, sottoc_handler_fine);
   _msk->set_handler(F_SOTTOCFINE_FORN,    sottoc_handler_fine);
-  
+*/
   _msk->set_handler (F_GRUPPOFINE         ,gruppo_hnd);
   _msk->set_handler (F_CONTOINI_CONTO     ,contoi_hnd);
   _msk->set_handler (F_CONTOINI_CLIENTE   ,contoi_hnd);

cg/cg3200a.uml

@@ -2,16 +2,16 @@
 
 TOOLBAR "" 0 20 0 2
 
-BUTTON DLG_PRINT 9 2
+BUTTON DLG_PRINT 10 2
 
 BEGIN
-    PROMPT -12 -1 "~Stampa"
+    PROMPT -12 -11 "~Stampa"
     MESSAGE EXIT,K_ENTER
 END
 
-BUTTON DLG_QUIT 9 2
+BUTTON DLG_QUIT 10 2
 BEGIN
-    PROMPT -22 -1 ""
+    PROMPT -22 -11 ""
 END
 
 ENDPAGE
@@ -102,15 +102,12 @@ BEGIN
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO 
   DISPLAY "Descrizione@50" DESCR
-  //OUTPUT F_TIPOCF TMCF
   OUTPUT F_GRUPPOINI GRUPPO
   OUTPUT F_CONTOINI_CONTO CONTO 
-  //OUTPUT F_SOTTOCINI_CONTO SOTTOCONTO
+  CHECKTYPE NORMAL
-  //OUTPUT F_DESCRINI_CONTO DESCR
+  WARNING "Conto inesistente o mancante"
-  FLAGS "R"    
+  MESSAGE DIRTY,F_SOTTOCINI_CONTO
-  //CHECKTYPE NORMAL
+  VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CONTO
-  //WARNING "Conto inesistente o mancante"
-  //MESSAGE DIRTY,F_SOTTOCINI_CONTO|DIRTY,F_SOTTOCINI_CLIENTE|DIRTY,F_SOTTOCINI_FORN
   GROUP 1
 END
 
@@ -124,17 +121,14 @@ BEGIN
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO 
   DISPLAY "Descrizione@50" DESCR
-  //OUTPUT F_TIPOCF TMCF
   OUTPUT F_GRUPPOINI GRUPPO
   OUTPUT F_CONTOINI_CLIENTE CONTO
-  //OUTPUT F_SOTTOCINI_CLIENTE SOTTOCONTO
+  CHECKTYPE NORMAL
-  //OUTPUT F_DESCRINI_CLIENTE DESCR
+  VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CLIENTE
-  FLAGS "R"       
+  WARNING "Conto inesistente o mancante"
-  //CHECKTYPE NORMAL
+  MESSAGE DIRTY,F_SOTTOCINI_CLIENTE
-  //WARNING "Conto inesistente o mancante"
-  //MESSAGE DIRTY,F_SOTTOCINI_CONTO|DIRTY,F_SOTTOCINI_CLIENTE|DIRTY,F_SOTTOCINI_FORN
-  GROUP 2  
   MESSAGE COPY,F_CONTOINI_CONTO
+  GROUP 2  
 END
 
 NUMBER F_CONTOINI_FORN 3 
@@ -147,17 +141,14 @@ BEGIN
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO 
   DISPLAY "Descrizione@50" DESCR
-  //OUTPUT F_TIPOCF TMCF
   OUTPUT F_GRUPPOINI GRUPPO
   OUTPUT F_CONTOINI_FORN CONTO         
-  //OUTPUT F_SOTTOCINI_FORN SOTTOCONTO
+  CHECKTYPE NORMAL
-  //OUTPUT F_DESCRINI_FORN DESCR
+  VALIDATE REQIF_FUNC 1 F_SOTTOCINI_FORN
-  FLAGS "R"       
+  WARNING "Conto inesistente o mancante"
-  //CHECKTYPE NORMAL
+  MESSAGE DIRTY,F_SOTTOCINI_FORN
-  //WARNING "Conto inesistente o mancante"
-  //MESSAGE DIRTY,F_SOTTOCINI_CONTO|DIRTY,F_SOTTOCINI_CLIENTE|DIRTY,F_SOTTOCINI_FORN
-  GROUP 3                      
   MESSAGE COPY,F_CONTOINI_CONTO
+  GROUP 3                      
 END
 
 NUMBER F_SOTTOCINI_CONTO 6
@@ -172,12 +163,11 @@ BEGIN
   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_SOTTOCINI_CONTO SOTTOCONTO
+  OUTPUT F_DESCRINI_CONTO DESCR
-  //OUTPUT F_DESCRINI_CONTO DESCR
+  CHECKTYPE NORMAL
-  FLAGS "R"       
-  //CHECKTYPE NORMAL
   GROUP 1
 END
 
@@ -200,7 +190,7 @@ BEGIN
   PROMPT 48 5 ""
   HELP "Codice conto da cui iniziare la stampa"
   USE LF_CLIFO
-  //CHECKTYPE NORMAL
+  CHECKTYPE NORMAL
   INPUT TIPOCF "C"
   INPUT CODCF F_SOTTOCINI_CLIENTE
   DISPLAY "Codice" CODCF
@@ -208,9 +198,8 @@ BEGIN
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO 
   OUTPUT F_SOTTOCINI_CLIENTE CODCF
-  //OUTPUT F_DESCRINI_CLIENTE RAGSOC
+  OUTPUT F_DESCRINI_CLIENTE RAGSOC
   MESSAGE COPY,F_SOTTOCINI_CONTO
-  FLAGS "R"
   GROUP 2
 END
 
@@ -237,7 +226,7 @@ BEGIN
   PROMPT 48 5 ""
   HELP "Codice conto da cui iniziare la stampa"
   USE LF_CLIFO
-  //CHECKTYPE NORMAL
+  CHECKTYPE NORMAL
   INPUT TIPOCF "F"
   INPUT CODCF F_SOTTOCINI_FORN
   DISPLAY "Codice" CODCF
@@ -245,7 +234,7 @@ BEGIN
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO
   OUTPUT F_SOTTOCINI_FORN CODCF
-  //OUTPUT F_DESCRINI_FORN RAGSOC
+  OUTPUT F_DESCRINI_FORN RAGSOC
   FLAGS "R"
   GROUP 3
   MESSAGE COPY,F_SOTTOCINI_CONTO
@@ -295,14 +284,12 @@ BEGIN
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO 
   DISPLAY "Descrizione@50" DESCR
-  //OUTPUT F_TIPOCF TMCF
   OUTPUT F_GRUPPOFINE GRUPPO
   OUTPUT F_CONTOFINE_CONTO CONTO
-  //OUTPUT F_DESCRFINE_CONTO DESCR
+  CHECKTYPE NORMAL                    
-  FLAGS "R"       
+  VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CONTO
-  //CHECKTYPE NORMAL
+  WARNING "Conto inesistente o mancante"
-  //WARNING "Conto inesistente o mancante"
+  MESSAGE DIRTY,F_SOTTOCFINE_CONTO
-  //MESSAGE DIRTY,F_SOTTOCFINE_CONTO|DIRTY,F_SOTTOCFINE_CLIENTE|DIRTY,F_SOTTOCFINE_FORN
   GROUP 4
 END
 
@@ -316,14 +303,12 @@ BEGIN
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO 
   DISPLAY "Descrizione@50" DESCR
-  //OUTPUT F_TIPOCF TMCF
   OUTPUT F_GRUPPOFINE GRUPPO
   OUTPUT F_CONTOFINE_CLIENTE CONTO
-  //OUTPUT F_DESCRFINE_CLIENTE DESCR
+  CHECKTYPE NORMAL
-  FLAGS "R"       
+  VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CLIENTE
-  //CHECKTYPE NORMAL
+  WARNING "Conto inesistente o mancante"
-  //WARNING "Conto inesistente o mancante"
+  MESSAGE DIRTY,F_SOTTOCFINE_CLIENTE
-  //MESSAGE DIRTY,F_SOTTOCFINE_CONTO|DIRTY,F_SOTTOCFINE_CLIENTE|DIRTY,F_SOTTOCFINE_FORN
   MESSAGE COPY,F_CONTOFINE_CONTO
   GROUP 5
 END
@@ -338,14 +323,12 @@ BEGIN
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO 
   DISPLAY "Descrizione@50" DESCR
-  //OUTPUT F_TIPOCF TMCF
   OUTPUT F_GRUPPOFINE GRUPPO
   OUTPUT F_CONTOFINE_FORN CONTO
-  //OUTPUT F_DESCRFINE_FORN DESCR
+  CHECKTYPE NORMAL
-  FLAGS "R"       
+  VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_FORN
-  //CHECKTYPE NORMAL
+  WARNING "Conto inesistente o mancante"
-  //WARNING "Conto inesistente o mancante"
+  MESSAGE DIRTY,F_SOTTOCFINE_FORN
-  //MESSAGE DIRTY,F_SOTTOCFINE_CONTO|DIRTY,F_SOTTOCFINE_CLIENTE|DIRTY,F_SOTTOCFINE_FORN
   MESSAGE COPY,F_CONTOFINE_CONTO
   GROUP 6
 END
@@ -362,12 +345,12 @@ BEGIN
   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_SOTTOCFINE_CONTO SOTTOCONTO
+  OUTPUT F_DESCRFINE_CONTO DESCR
-  //OUTPUT F_DESCRFINE_CONTO DESCR
+  CHECKTYPE NORMAL
-  FLAGS "R"       
+  WARNING "Sottoconto inesistente o mancante"
-  //CHECKTYPE NORMAL
   GROUP 4
 END
 
@@ -391,7 +374,8 @@ BEGIN
   PROMPT 48 8 ""
   HELP "Codice conto a cui terminare la stampa"
   USE LF_CLIFO
-  //CHECKTYPE NORMAL
+  CHECKTYPE NORMAL               
+  WARNING "Cliente inesistente o mancante"
   INPUT TIPOCF "C"
   INPUT CODCF F_SOTTOCFINE_CLIENTE
   DISPLAY "Codice" CODCF
@@ -399,9 +383,8 @@ BEGIN
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO 
   OUTPUT F_SOTTOCFINE_CLIENTE CODCF
-  //OUTPUT F_DESCRFINE_CLIENTE RAGSOC
+  OUTPUT F_DESCRFINE_CLIENTE RAGSOC
   MESSAGE COPY,F_SOTTOCFINE_CONTO
-  FLAGS "R"
   GROUP 5
 END
 
@@ -428,7 +411,8 @@ BEGIN
   PROMPT 48 8 ""
   HELP "Codice conto a cui terminare la stampa"
   USE LF_CLIFO
-  //CHECKTYPE NORMAL
+  CHECKTYPE NORMAL
+  WARNING "Fornitore inesistente o mancante"
   INPUT TIPOCF "F"
   INPUT CODCF F_SOTTOCFINE_FORN
   DISPLAY "Codice" CODCF
@@ -436,10 +420,9 @@ BEGIN
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO
   OUTPUT F_SOTTOCFINE_FORN CODCF
-  //OUTPUT F_DESCRFINE_FORN RAGSOC
+  OUTPUT F_DESCRFINE_FORN RAGSOC
-  FLAGS "R"
-  GROUP 6
   MESSAGE COPY,F_SOTTOCFINE_CONTO
+  GROUP 6
 END
 
 STRING F_DESCRFINE_FORN 50

cg/cg5200a.uml

@@ -166,9 +166,9 @@ BEGIN
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
+  OUTPUT F_SOTTOCONTO SOTTOCONTO
   OUTPUT F_GRUPPO GRUPPO
   OUTPUT F_CONTO CONTO
-  OUTPUT F_SOTTOCONTO SOTTOCONTO
   OUTPUT F_DESCR_CONTO DESCR
   CHECKTYPE REQUIRED
   KEY 2