Corretta gestione clifo occasionali

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

cg/cg2100c.uml

@@ -244,10 +244,10 @@ BEGIN
   OUTPUT F_GRUPPORIC GRUPPORIC
   OUTPUT F_CONTORIC CONTORIC
   OUTPUT F_SOTTOCONTORIC SOTTOCRIC
-  OUTPUT F_OCCASIONALE OCCAS
   OUTPUT F_CODPAG CODPAG
   OUTPUT F_STATOPAIV STATOPAIV
   OUTPUT F_PIVACLIENTE PAIV
+  OUTPUT F_OCCASIONALE OCCAS
   MESSAGE COPY,F_FORNITORE
   CHECKTYPE REQUIRED
   ADD RUN cg0 -1
@@ -360,17 +360,16 @@ BEGIN
   ITEM "PT|Portogallo"
 END
 
-  BUTTON F_OCCASEDIT 20
+BUTTON F_OCCASEDIT 18
 BEGIN
-  PROMPT 34 11 "Dati anagrafici"
+  PROMPT 32 11 "Dati anagrafici"
   FLAGS "H"
 END
 
 BOOLEAN F_OCCASIONALE
 BEGIN
-  PROMPT 64 11 "Occasionale"
+  MESSAGE FALSE HIDE,F_OCCASEDIT|ENABLE,F_PIVACLIENTE|ENABLE,F_PIVAFORNITORE|SHOW,F_STATOPAIV
-  MESSAGE FALSE HIDE,F_OCCASEDIT
+  MESSAGE TRUE  SHOW,F_OCCASEDIT|DISABLE,F_PIVACLIENTE|DISABLE,F_PIVAFORNITORE|HIDE,F_STATOPAIV|PUSH,F_OCCASEDIT
-  MESSAGE TRUE  SHOW,F_OCCASEDIT|PUSH,F_OCCASEDIT
   FLAGS "GH"                    
 END
 
@@ -399,13 +398,6 @@ BEGIN
   CHECKTYPE NORMAL
 END
 
-  DATE F_DATA74TER
-  BEGIN
-  PROMPT 1 13 "Data 74/ter  "
-  CHECKTYPE REQUIRED
-  FIELD DATA74TER
-  END
-
 NUMBER F_TOTALE 15
 BEGIN
   PROMPT 45 12 "Totale documento "
@@ -430,6 +422,14 @@ BEGIN
   PICTURE "."
 END
   
+DATE F_DATA74TER
+BEGIN
+  PROMPT 1 13 "Data 74/ter  "
+  CHECKTYPE REQUIRED
+  FIELD DATA74TER
+END
+
+
 NUMBER F_ANNORIF 4
 BEGIN
   PROMPT 1 14 "Rif.partita  "

cg/cg2100o.uml

@@ -11,7 +11,6 @@ BEGIN
   DISPLAY "Ragione Sociale@50" RAGSOC
   OUTPUT O_CODICE CFPI
   OUTPUT O_RAGSOC RAGSOC
-  CHECKTYPE REQUIRED
   WARNING "Codice obbligatorio"
   HELP "Codice fiscale o Partita IVA o altro codice che identifichi univocamente la persona"
   FIELD CFPI
@@ -27,7 +26,6 @@ BEGIN
   DISPLAY "Codice@16" CFPI
   OUTPUT O_CODICE CFPI
   OUTPUT O_RAGSOC RAGSOC
-  CHECKTYPE REQUIRED
   HELP "Ragione sociale o Nome della persona"
   WARNING "Ragione sociale obbligatoria"
 END
@@ -151,12 +149,7 @@ END
 
 BUTTON DLG_OK 9 2
 BEGIN
-  PROMPT -12 -1 "Conferma"
+  PROMPT -11 -1 "Conferma"
-END
-
-BUTTON DLG_CANCEL 9 2
-BEGIN
-  PROMPT -22 -1 "Annulla"
 END
 
 ENDPAGE

cg/cg2102.cpp

@@ -838,10 +838,18 @@ bool TPrimanota_application::occas_code_handler(TMask_field& f, KEY key)
       if (occas.read() == NOERR)
       {
         f.mask().autoload(&occas);
-        f.mask().send_key(K_TAB, O_COMUNE);
+        f.mask().send_key(K_TAB, O_COMUNE);         // Forza decodifica comuni
         f.mask().send_key(K_TAB, O_COMUNENAS);
       }  
     }
+  } else
+    if (key == K_ENTER)
+    {
+      const TFixed_string codice(f.get());
+      if (codice.not_empty()) 
+        app().mask().set(app().iva() == iva_vendite ? F_PIVACLIENTE : F_PIVAFORNITORE, codice);
+      else
+        return f.error_box("Il codice e' obbligatorio");
     }  
   return TRUE;
 }
@@ -852,6 +860,7 @@ bool TPrimanota_application::occas_handler(TMask_field& f, KEY key)
   {
     TMask& om = app().occas_mask();
     om.run();     
+    f.set_focus();
   }  
   return TRUE;
 }
@@ -872,7 +881,6 @@ void TPrimanota_application::add_cgs_tot(TMask& m)
     TConto bill; _causale.bill(1, bill);
     gruppo = bill.gruppo(); m.set(F_GRUPPOCLIFO, gruppo);
     conto = bill.conto(); m.set(F_CONTOCLIFO, conto);
-    codice = bill.sottoconto(); m.set(tipo == 'F' ? F_FORNITORE : F_CLIENTE, codice);
   }
   
   if (tipo == 'C' && causale().reg().corrispettivi())