Aggiustamenti per videi veloci

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

m770/770100a.uml

@@ -1,7 +1,7 @@
 #include "770100a.h"
 TOOLBAR "" 0 18 0 4
 
-BUTTON F_GESTPERC 21 2
+BUTTON F_GESTPERC 22 2
 BEGIN
   PROMPT -13 -3 "~Percipienti"   
   MESSAGE RUN,775,-0,#F_CODDITTA,#F_TIPOA,#F_CODANAGR

m770/771100.cpp

@@ -42,6 +42,7 @@ class TDati_anagrafici : public TApplication
     static bool fisica_handler(TMask_field&, KEY);
     static bool giuridica_handler(TMask_field&, KEY);
     static bool anagrafica_handler(TMask_field&, KEY);  
+    static bool anagr_dich_handler(TMask_field&, KEY);      
 // bottone ditta in DatiCAAF
     static bool DCditta_handler(TMask_field&, KEY);            
     TMask*      _msk;  
@@ -249,6 +250,41 @@ bool TDati_anagrafici::anagrafica_handler(TMask_field& m, KEY k)
   return FALSE;
 }  
 
+bool TDati_anagrafici::anagr_dich_handler(TMask_field& m, KEY k)
+{  
+  TString16 cmd;
+     
+  if (k != K_SPACE)
+    return TRUE;
+  
+  app().registra();
+  m.mask().stop_run(K_ESC);
+
+  TToken_string body(16);
+
+  body << "1" << "|";
+  body << m.mask().get(F_ANAGR);
+  
+  char tipoa = m.mask().get(F_TIPOA)[0];
+  
+  if (tipoa == 'F')
+    cmd = "ba4 -1 F";
+  else
+    if (tipoa == 'G')
+      cmd = "ba4 -1 G";
+      
+  TMessage  msg(cmd, MSG_LN, (const char*) body);
+  TMailbox mb;
+  mb.send(msg);
+  
+  TExternal_app a(cmd);
+  a.run();
+
+  m.set_focus();           
+  
+  return FALSE;
+}
+
 bool TDati_anagrafici::indirizzo (TMask_field& f, KEY k)
 {                                          
   TLocalisamfile anag (LF_ANAG, FALSE);
@@ -336,11 +372,17 @@ bool TDati_anagrafici::cod_conc (TMask_field& f, KEY k)
   int     codconc,uffiidd,codcs;        
   TString codcom;
   
-  if ( k == K_TAB || k == K_SPACE )// && f.mask().is_running() )
+  if ( k == K_TAB )// && f.mask().is_running() )
   {           
     tipoa    = f.mask().get     (F_TIPOA)[0];
     codanagr = f.mask().get_long(F_ANAGR);  
 
+// Setta il prompt del button di uscita sull'anagrafica del dichiarante
+//		if (tipoa == 'G')
+//			f.mask().field(F_ANAGR_DICH).set_prompt("Giuridiche");
+//		if (tipoa == 'F')
+//			f.mask().field(F_ANAGR_DICH).set_prompt("Fisiche");	    
+    
 // Ricerca sull'archivio anagrafiche dei dati 
     anag.setkey(1);
     anag.zero();
@@ -363,6 +405,7 @@ bool TDati_anagrafici::cod_conc (TMask_field& f, KEY k)
     {
       codconc  = comuni.get_int("UFFCONC");
       uffiidd  = comuni.get_int("UFFIIDD1");
+      codcs = comuni.get_int("UFFCSERV");
       
       if (uffiidd == 0)
         uffiidd = comuni.get_int("UFFIIDD2");
@@ -370,8 +413,6 @@ bool TDati_anagrafici::cod_conc (TMask_field& f, KEY k)
       if (uffiidd == 0)
         uffiidd = comuni.get_int("UFFIIDD3");
       
-      codcs = comuni.get_int("UFFCSERV");
-      
       if (codconc != 0)
         f.mask().set(F_CODCONC1, codconc);
       if (uffiidd != 0)  
@@ -379,13 +420,14 @@ bool TDati_anagrafici::cod_conc (TMask_field& f, KEY k)
       if (codcs != 0)  
         f.mask().set(F_CODCS,    codcs);  
 
-      f.mask().send_key(K_TAB, F_CODUI);
+      f.mask().check_field(F_CODCS);
-      f.mask().send_key(K_TAB, F_CODCS);
+      f.mask().check_field(F_CODUI);
     }
   }     
   return TRUE;
 }
 
+
 bool TDati_anagrafici::niscraa(TMask_field& f, KEY k)
 {
   if (k == K_TAB && !f.mask().is_running())
@@ -500,7 +542,8 @@ bool TDati_anagrafici::create()
     _msk = new TMask ("771100g");                
     _msk->field(F_CODCONC2).set_dirty();
     _msk->set_handler(F_CODCONC2, cod_conc);               
-    _msk->set_handler(F_ANAGRAFICA, anagrafica_handler);
+    _msk->set_handler(F_BTN_GIURIDICA, anagr_dich_handler); 
+    _msk->set_handler(F_BTN_FISICA, anagr_dich_handler);
   }
 
   TString16 codditta; codditta << _codditta;

m770/771100.h

@@ -66,6 +66,7 @@
 #define F_PTELCS     262
 #define F_TELCS      263      
 #define F_ATTIVITA   264   
+#define F_ANAGRAFICA 265
 
 // Campi maschera dati CAAF 771100e.uml
 
@@ -89,12 +90,13 @@
 #define F_CAPUI       358
 #define F_COMUI       359
 #define F_PROVUI      360
-//#define GF_ANAGR		  361
 #define F_CODUI       362
 #define F_CODCS       363                         
 #define F_DESCRUI     364
 #define F_DESCRCS     375         
-#define F_ANAGRAFICA  376
+#define F_BTN_GIURIDICA  376
+#define F_BTN_FISICA     377 
+#define F_TIPOA2BTN      378 
 
 // Campi maschera Societa' trasformate 771100h.uml
 #define	MDSTF_CODDITTA	181
@@ -114,7 +116,6 @@
 #define F_SOC_LAVDIPCIN 412
 #define F_SOC_DATAINPI  413
 #define F_SOC_DATAFINPI 414
-
 #define	DCF_DITTA	  		415
 
 #endif

m770/771100a.uml

@@ -18,8 +18,10 @@ END
 
 BUTTON DLG_SAVEREC 10 2
 BEGIN
-PROMPT -35 -1 "~Registra"
+PROMPT -35 -1 ""
 MESSAGE EXIT,K_SAVE  
+PICTURE BMP_SAVEREC
+PICTURE BMP_SAVERECDN
 END
 
 BUTTON DLG_CANCEL 10 2

m770/771100b.uml

@@ -9,14 +9,16 @@ END
 
 BUTTON F_ATTIVITA 10 2
 BEGIN
-  PROMPT -25 -1 "~Attivita'" 
+  PROMPT -25 -1 "~Attività" 
   MESSAGE K_TAB,F_ATTIV
 END
 
 BUTTON DLG_SAVEREC 10 2
 BEGIN
-PROMPT -35 -1 "~Registra"
+PROMPT -35 -1 ""
 MESSAGE EXIT,K_SAVE   
+PICTURE BMP_SAVEREC
+PICTURE BMP_SAVERECDN
 END
 
 BUTTON DLG_CANCEL 10 2
@@ -98,7 +100,7 @@ END
 /*
 STRING F_ATTIV 5
 BEGIN
-  PROMPT 1 4 "Attivita'       "
+  PROMPT 1 4 "Attività        "
   USE %AIS
   INPUT CODTAB F_ATTIV   
   DISPLAY "Codice" CODTAB
@@ -111,7 +113,7 @@ END
 
 STRING F_ATTIV 5
 BEGIN
-  PROMPT 1 4 "Attivita'       "
+  PROMPT 1 4 "Attività        "
   USE LF_ATTIV
   INPUT CODDITTA 	F_CODDITTA SELECT
   INPUT CODATT		F_ATTIV

m770/771100c.uml

@@ -16,8 +16,10 @@ END
 
 BUTTON DLG_SAVEREC 10 2
 BEGIN
-PROMPT -24 -1 "~Registra"
+PROMPT -24 -1 ""
 MESSAGE EXIT,K_SAVE   
+PICTURE BMP_SAVEREC
+PICTURE BMP_SAVERECDN
 END
 
 BUTTON DLG_CANCEL 10 2

m770/771100d.uml

@@ -14,8 +14,10 @@ END
 
 BUTTON DLG_SAVEREC 10 2
 BEGIN
-PROMPT -35 -1 "~Registra"
+PROMPT -35 -1 ""
 MESSAGE EXIT,K_SAVE 
+PICTURE BMP_SAVEREC
+PICTURE BMP_SAVERECDN
 END
 
 BUTTON DLG_CANCEL 10 2
@@ -32,7 +34,7 @@ END
 
 ENDPAGE
 
-PAGE "Luogo di conservazione delle scritture contabili" -1 -1 78 18
+PAGE "Scritture contabili" -1 -1 78 18
 
 GROUPBOX DLG_NULL 78 4
 BEGIN

m770/771100e.uml

@@ -14,8 +14,10 @@ END
 
 BUTTON DLG_SAVEREC 10 2
 BEGIN
-PROMPT -35 -1 "~Registra"
+PROMPT -35 -1 ""
 MESSAGE EXIT,K_SAVE  
+PICTURE BMP_SAVEREC
+PICTURE BMP_SAVERECDN
 END
 
 BUTTON DLG_CANCEL 10 2
@@ -32,7 +34,7 @@ END
 
 ENDPAGE
 
-PAGE "Dati C.A.A.F." -1 -1 78 18
+PAGE "Dati C.A.A." -1 -1 78 18
 
 GROUPBOX DLG_NULL 78 4
 BEGIN
@@ -105,7 +107,7 @@ END
 
 NUMBER F_DITTACAAF 5
 BEGIN
-  PROMPT 1 9 "Ditta CAAF "
+  PROMPT 1 9 "Ditta CAA "
   FLAGS "RZ" 
   USE LF_NDITTE KEY 3 SELECT CODANAGR=#F_ANAGR
   INPUT TIPOA "G"

m770/771100f.uml

@@ -9,8 +9,10 @@ END
   
 BUTTON DLG_SAVEREC 10 2
 BEGIN
-PROMPT -24 -1 "~Registra"
+PROMPT -24 -1 ""
 MESSAGE EXIT,K_SAVE 
+PICTURE BMP_SAVEREC
+PICTURE BMP_SAVERECDN
 END
 
 BUTTON DLG_CANCEL 10 2
@@ -27,7 +29,7 @@ END
 
 ENDPAGE
 
-PAGE "Dati relativi alle persone fisiche" -1 -1 78 18
+PAGE "Direttore / Professionista" -1 -1 78 18
 
 GROUPBOX DLG_NULL 78 4
 BEGIN

m770/771100g.uml

@@ -2,15 +2,23 @@
 
 TOOLBAR "" 0 20 0 2
 
-BUTTON F_ANAGRAFICA 10 2
+/* questi button vengono abilitati alternativamente
+   dal listbox ghost F_TIPOA2BTN */
+BUTTON F_BTN_GIURIDICA 10 2
 BEGIN
-PROMPT -14 -1 "~Anagrafica"
+PROMPT -14 -1 "~Giuridiche"
+END
+BUTTON F_BTN_FISICA 10 2
+BEGIN
+PROMPT -14 -1 "~Fisiche"
 END
 
 BUTTON DLG_SAVEREC 10 2
 BEGIN
-PROMPT -24 -1 "~Registra"
+PROMPT -24 -1 ""
 MESSAGE EXIT,K_SAVE  
+PICTURE BMP_SAVEREC
+PICTURE BMP_SAVERECDN
 END
 
 BUTTON DLG_CANCEL 10 2
@@ -27,7 +35,7 @@ END
 
 ENDPAGE
 
-PAGE "Dati vari" -1 -1 78 18
+PAGE "Concessione / UIDD" -1 -1 78 18
 
 GROUPBOX DLG_NULL 78 4
 BEGIN
@@ -45,6 +53,7 @@ BEGIN
   OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
   OUTPUT F_TIPOA TIPOA
   OUTPUT F_ANAGR CODANAGR   
+  OUTPUT F_TIPOA2BTN TIPOA                               
   KEY 1
 END
 
@@ -80,7 +89,7 @@ BEGIN
   USE %UCC
   INPUT CODTAB F_CODCONC2
   DISPLAY "Codice" CODTAB
-  DISPLAY "Ufficio@30" S0
+  DISPLAY "Ufficio@35" S0
   OUTPUT F_CODCONC2 CODTAB
   HELP "Codice dell'ufficio concessioni"
   CHECKTYPE NORMAL   
@@ -236,6 +245,16 @@ BEGIN
   FLAGS "D"
 END   
 
+LISTBOX F_TIPOA2BTN 1 
+BEGIN
+  PROMPT -1 -1 ""
+  FLAGS "GH"
+  ITEM "F|F"  
+  MESSAGE HIDE,F_BTN_GIURIDICA|SHOW,F_BTN_FISICA
+  ITEM "G|G"                            
+  MESSAGE SHOW,F_BTN_GIURIDICA|HIDE,F_BTN_FISICA
+END                
+
 ENDPAGE 
 
 ENDMASK 

m770/771100h.uml

@@ -1,10 +1,13 @@
 #include "771100.h"
 TOOLBAR "" 0 20 0 2    
+
 BUTTON DLG_SAVEREC 8 2
 BEGIN
-PROMPT -16 -1 "~Registra"
+PROMPT -16 -1 ""
 FLAGS "D"
 MESSAGE EXIT,K_SAVE
+PICTURE BMP_SAVEREC
+PICTURE BMP_SAVERECDN
 END
 
 BUTTON DLG_NEWREC 8 2
@@ -12,6 +15,8 @@ BEGIN
 PROMPT -26 -1 "~Nuovo"
 MESSAGE EXIT,K_INS
 FLAGS "D"  
+PICTURE BMP_NEWREC
+PICTURE BMP_NEWRECDN
 END
 
 BUTTON DLG_DELREC 8 2
@@ -26,6 +31,7 @@ BEGIN
 PROMPT -46 -1 "Ri~cerca"
 MESSAGE EXIT,K_F9
 FLAGS "D" 
+PICTURE BMP_FINDREC
 END
 
 BUTTON DLG_CANCEL 8 2
@@ -42,7 +48,7 @@ END
 
 ENDPAGE
 
-PAGE "Manutenzione dati societa' trasformate" -1 -1 78 18
+PAGE " Manutenzione dati societa' trasformate " -1 -1 78 18
 
 GROUPBOX DLG_NULL 78 4
 BEGIN
@@ -53,7 +59,7 @@ END
 NUMBER MDSTF_CODDITTA 5
 BEGIN
   PROMPT 1 1 "Ditta             "
-  FLAGS "GR"
+  FLAGS "GRD"
   KEY 1
   CHECKTYPE REQUIRED             
   USE LF_NDITTE KEY 1
@@ -135,13 +141,13 @@ END
 
 GROUPBOX DLG_NULL 78 4
 BEGIN
-  PROMPT 0 5 "Altri soggetti: art.5 e 87 del T.U. imposte sui redditi DPR 22/12/1986 n.917"
+  PROMPT 0 4 "Altri soggetti: art.5 e 87 del T.U. imposte sui redditi DPR 22/12/1986 n.917"
   GROUP 2
 END
 
 STRING F_SOC_COFI 16
 BEGIN
-  PROMPT 1 6 "Codice fiscale "
+  PROMPT 1 5 "Codice fiscale "
   CHECKTYPE REQUIRED
   FIELD LF_SOCTRASF->CODFISC 
   GROUP 2
@@ -149,7 +155,7 @@ END
 
 STRING F_SOC_DENOMIN 40
 BEGIN
-  PROMPT 1 7 "Denominazione  "
+  PROMPT 1 6 "Denominazione  "
   CHECKTYPE REQUIRED
   FIELD LF_SOCTRASF->DENOMIN
   GROUP 2

m770/771150a.uml

@@ -3,7 +3,7 @@ TOOLBAR "" 0 20 0 2
 #include <toolbar.h>
 ENDPAGE
 
-PAGE "MODULO 770 - Anagrafica Dipendenti" -1 -1 78 21
+PAGE "Anagrafica dipendenti" -1 -1 78 21
 
 GROUPBOX DLG_NULL 78 3
 BEGIN
@@ -208,7 +208,7 @@ END
 
 ENDPAGE
 
-PAGE "MODULO 770 - Anagrafica Dipendenti" -1 -1 78 21
+PAGE "Eredi" -1 -1 78 21
 
 GROUPBOX DLG_NULL 76 12
 BEGIN

m770/771200.cpp

@@ -89,7 +89,6 @@ class TQuadroA : public TRelation_application
 // Handler relativi alla manutenzione quadro A3      
     static bool QA3_codip_handler     (TMask_field& f, KEY key);
     static bool QA3_base_occupazionale(TMask_field& f, KEY key);     
-    static bool QA3_nprog          (TMask_field& f, KEY key);        
     void 	AA3SettaCognomeNome(TMask& m);
     
   protected:
@@ -128,6 +127,8 @@ class TQuadroA : public TRelation_application
     virtual ~TQuadroA() {};
 };                    
               
+// Implementazione classe TQuadroA              
+              
 inline TQuadroA& app() { return (TQuadroA&) main_app(); }
 
 TQuadroA::TQuadroA(char tipo): _rel(NULL), _mode(0), _tipoq(tipo)
@@ -137,10 +138,10 @@ TQuadroA::TQuadroA(char tipo): _rel(NULL), _mode(0), _tipoq(tipo)
 
 bool TQuadroA::changing_mask(int mode)
 {
-  if (mode == MODE_QUERY)
+ if ((mode == MODE_MOD) && (_mode == MODE_INS))
-    return _mode != MODE_QUERY;
+	return FALSE; 
  else	              
-    return TRUE;
+  return _mode != mode;
 }
         
 TMask* TQuadroA::get_mask(int mode)
@@ -208,8 +209,8 @@ TMask* TQuadroA::load_mask(int n)
         m->set_handler(QAF_CODDITTA,   codditta_hnd); 
         if (QuadroA3())
         {
-          m->set_handler(QAF_NPROG,    QA3_nprog);
           m->set_handler(F_CODANAGDIP,  QA3_codip_handler); 
+          m->set_handler(F_CODIPQUADRO, QA3_codip_handler);
           m->set_handler(F_BASEOCCUPA, QA3_base_occupazionale);
         }                                                       
         else 
@@ -274,6 +275,7 @@ TMask* TQuadroA::load_mask(int n)
   return _msk[n] = m;
 }
 			
+        
 bool TQuadroA::is_societa_trasformata(TMask& m)
 {
   TLocalisamfile soc (LF_SOCTRASF);
@@ -319,7 +321,7 @@ bool TQuadroA::setta_nprog(TMask_field& f)
   }
 
   if ( (is_erede(codditta,coddip)) && (nprog + 1) > 1)
-    return error_box("Il dipendente selezionato e' un erede: non e'\n possibile indicare piu' di un rigo sul quadro A");
+    return f.error_box("Il dipendente selezionato e' un erede: non e'\n possibile indicare piu' di un rigo");
     
   f.mask().set(QAF_NPROG, nprog+1);
   return TRUE;
@@ -341,10 +343,10 @@ bool TQuadroA::codditta_hnd(TMask_field& f, KEY k)
 
 bool TQuadroA::codanagr_handler(TMask_field& f, KEY k)
 {
-  if (!f.mask().is_running()) return TRUE;
+  if (!f.mask().is_running())
+    return TRUE;
   
-//  if (k == K_TAB && f.focusdirty())
+  if (k == K_TAB && f.focusdirty())
-  if (k == K_TAB)
   {
     const long coddip   = atol(f.get());
     if (coddip != 0L)   
@@ -451,7 +453,7 @@ bool TQuadroA::nprog_handler(TMask_field& f, KEY key)
     const long codditta = get_firm_770();
 
     if ( (is_erede(codditta,coddip)) && nprog > 1)
-      return error_box("Il dipendente selezionato e' un erede: non e'\n possibile indicare piu' di un rigo sul quadro A");
+      return f.error_box("Il dipendente selezionato e' un erede: non e'\n possibile indicare piu' di un rigo");
     else                            
     {       
       app()._codip = coddip;
@@ -463,39 +465,18 @@ bool TQuadroA::nprog_handler(TMask_field& f, KEY key)
   return TRUE;
 }
 
-bool TQuadroA::QA3_nprog(TMask_field& f, KEY key)
-{
-  if (key == K_TAB)   
-  {
-    const int nprog = atoi(f.get());
-    if (nprog==0) 
-      f.mask().set(QAF_NPROG, 1);
-  }                                   
-  return TRUE;
-}
-
 bool TQuadroA::QA3_codip_handler(TMask_field& f, KEY key)
 {
   if (!f.mask().is_running()) return TRUE;
     
-  if (key == K_ENTER)   
+  if ((key == K_TAB) && f.shown)   
   {
     const long coddip   = atol(f.get());
     if (coddip==0) return TRUE;    
     const long codditta = get_firm_770();
     if (!esiste_dipendente(codditta, coddip))
       return f.warning_box("Dipendente inesistente");
-  }
+    f.mask().set(QAF_NPROG, 1);                           
-    
-  if (key == K_TAB)   
-  {
-    const long coddip   = atol(f.get());
-    if (coddip==0) return TRUE;    
-    const long codditta = get_firm_770();
-    if (!esiste_dipendente(codditta, coddip))
-      return f.warning_box("Dipendente inesistente");
-//    f.mask().stop_run(K_AUTO_ENTER); // entra in modo modifica (se il record che ha chiave specificata esiste gia') oppure
-                                     // inserimento (se trova che non esiste)
   }                                   
   return TRUE;
 }
@@ -608,6 +589,7 @@ bool TQuadroA::QA_comp_netti_hnd  (TMask_field& f, KEY k)
     real compnetti = denaro + natura - cobbdip;
     if (compnetti < ZERO) compnetti = ZERO;
     f.mask().set(F_COMPNETTI, compnetti);  
+    if (f.mask().is_running())           
     	f.mask().send_key(K_TAB,F_COMPNETTI);
   }
   return TRUE;
@@ -954,7 +936,7 @@ void TQuadroA::init_query_mode(TMask& m)
     // forza il ricalcolo dell'ultimo numero disponibile
     TString16 dummy(m.get(QAF_NPROG));
     if (dummy.not_empty())
-      setta_nprog(m.field(QAF_NPROG));   
+      setta_nprog(m.field(F_CODIP));   
   }                                                                   
   m.hide(-1);  // hide group 1 -nasconde DIPEND.
   m.show(-2);  // show group 2 -Ricerca su QUADRO A

m770/771200a.uml

@@ -1,4 +1,5 @@
 #include "771200.h"     
+
 TOOLBAR "" 0 18 0 4
 #include <toolbar.h>
 BUTTON QAF_ALLEG_A 24 2
@@ -10,7 +11,7 @@ ENDPAGE
 #define	G_DIPEND	1
 #define	G_QUADROA	2
 
-PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
+PAGE "Quadro A" -1 -1 78 21
 
 GROUPBOX DLG_NULL 78 3
 BEGIN
@@ -37,7 +38,7 @@ END
 
 NUMBER QAF_ANNODIC 4
 BEGIN
-  PROMPT 52 4 "Anno dichiarazione "
+  PROMPT 52 3 "Anno dichiarazione "
   FLAGS "DR"
 END
 
@@ -48,7 +49,7 @@ END
 
 NUMBER F_CODIP 6
 BEGIN
-  PROMPT 1 1 ""
+  PROMPT 80 80 ""
   FLAGS "D" 
   FIELD LF_QUAA->CODDIP
   CHECKTYPE REQUIRED    
@@ -70,8 +71,8 @@ BEGIN
   ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
   MESSAGE COPY, F_CODIP               
   FLAGS "H"
-  KEY 1
   GROUP G_DIPEND        
+  KEY 1
 END
 
 NUMBER F_CODANAGDIPQA 6
@@ -89,8 +90,8 @@ BEGIN
   OUTPUT QAF_COGNOME 	LF_DIPEND->COGNOME
   OUTPUT QAF_NOME 		LF_DIPEND->NOME 
   MESSAGE COPY, F_CODIP
-  KEY 1
   GROUP G_QUADROA  
+  KEY 1
 END
 
 
@@ -119,8 +120,7 @@ BEGIN
   DISPLAY "Cognome@24" 	LF_DIPEND->COGNOME  
   DISPLAY "Nome@20" 	LF_DIPEND->NOME
   DISPLAY "N°@4" 			NPROG
-  OUTPUT F_CODANAGDIP	CODDIP
+  OUTPUT F_CODIP	CODDIP
-  OUTPUT F_CODANAGDIPQA	CODDIP
   OUTPUT QAF_NPROG 		NPROG  
   FIELD LF_QUAA->NPROG        
   KEY 1     

m770/771200b.uml

@@ -3,7 +3,7 @@ TOOLBAR "" 0 20 0 2
 #include <toolbar.h>
 ENDPAGE
 
-PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
+PAGE "1" -1 -1 78 21
 
 TEXT DLG_NULL 
 BEGIN
@@ -12,11 +12,11 @@ END
 
 NUMBER QAF_CODDITTA 5
 BEGIN       
-  FLAGS "H"
+  PROMPT 80 80 ""
+  FLAGS "D"
   FIELD LF_QUAA->CODDITTA
   KEY 1               
   GROUP 10
-  MESSAGE COPY,1@
 END
 
 NUMBER F_CODIP 6
@@ -68,7 +68,7 @@ BEGIN
   PROMPT 1 3 "@bDati relativi al rapporto di lavoro"
 END
 
-LISTBOX QAF_AREAATT 1 22
+LISTBOX QAF_AREAATT 1 19
 BEGIN
   PROMPT 2 4 "13 Area attività "
   ITEM " |"
@@ -224,7 +224,7 @@ END
 
 ENDPAGE
 
-PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
+PAGE "2" -1 -1 78 21
 
 TEXT DLG_NULL 
 BEGIN
@@ -420,18 +420,20 @@ END
 
 ENDPAGE    
 
-PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
+PAGE "3" -1 -1 78 21
 
 TEXT DLG_NULL 
 BEGIN
   PROMPT 1 1 "@bDipendente"
 END
 
+/*
 NUMBER QAF_CODDITTA 5
 BEGIN 
   FLAGS "H"
   GROUP 1
 END
+*/
 
 NUMBER F_CODIP 6
 BEGIN           
@@ -589,18 +591,20 @@ END
 
 ENDPAGE
 
-PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
+PAGE "4" -1 -1 78 21
 
 TEXT DLG_NULL 
 BEGIN
   PROMPT 1 1 "@bDipendente"
 END
 
+/*
 NUMBER QAF_CODDITTA 5
 BEGIN 
   FLAGS "H"
   GROUP 1
 END 
+*/
 
 NUMBER F_CODIP 6
 BEGIN           
@@ -829,18 +833,20 @@ END
 
 ENDPAGE
 
-PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
+PAGE "5" -1 -1 78 21
 
 TEXT DLG_NULL 
 BEGIN
   PROMPT 1 1 "@bDipendente"
 END
 
+/*
 NUMBER QAF_CODDITTA 5
 BEGIN 
   FLAGS "H"
   GROUP 1
 END 
+*/
 
 NUMBER F_CODIP 6
 BEGIN           

m770/771200c.uml

@@ -6,7 +6,7 @@ ENDPAGE
 #define	G_DIPEND	1
 #define	G_QUADROA	2
 
-PAGE "MODULO 770 - Manutenzione Quadro A1" -1 -1 78 21
+PAGE "Quadro A1" -1 -1 78 21
 
 GROUPBOX DLG_NULL 78 3
 BEGIN
@@ -33,7 +33,7 @@ END
 
 NUMBER QAF_ANNODIC 4
 BEGIN
-  PROMPT 52 4 "Anno dichiarazione "
+  PROMPT 52 3 "Anno dichiarazione "
   FLAGS "DR"
 END
 
@@ -56,7 +56,7 @@ BEGIN
   PROMPT 1 8 "@bCodice  " 
   USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
   INPUT CODDITTA 	QAF_CODDITTA
-  INPUT CODDIP 		F_CODIP
+  INPUT CODDIP 		F_CODANAGDIP
   DISPLAY "Codice " 	CODDIP
   DISPLAY "Cognome@24" 	COGNOME  
   DISPLAY "Nome@20" 	NOME
@@ -104,6 +104,8 @@ NUMBER QAF_NPROG 4
 BEGIN
   PROMPT 1 10 "@bNumero  "  
   CHECKTYPE REQUIRED     
+  KEY 1    
+  FIELD LF_QUAA1->NPROG  
   USE LF_QUAA1 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) 
   JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
   INPUT CODDITTA 	QAF_CODDITTA 
@@ -113,11 +115,8 @@ BEGIN
   DISPLAY "Cognome@24" 	LF_DIPEND->COGNOME  
   DISPLAY "Nome@20" 	LF_DIPEND->NOME
   DISPLAY "N°@4" 			NPROG
-  OUTPUT F_CODANAGDIP	CODDIP
+  OUTPUT F_CODIP			CODDIP
-  OUTPUT F_CODANAGDIPQA	CODDIP
   OUTPUT QAF_NPROG 		NPROG  
-  FIELD LF_QUAA1->NPROG        
-  KEY 1     
 END  
 
 ENDPAGE

m770/771200d.uml

@@ -3,7 +3,7 @@ TOOLBAR "" 0 20 0 2
 #include <toolbar.h>
 ENDPAGE
 
-PAGE "MODULO 770 - Manutenzione Quadro A1" -1 -1 78 21
+PAGE "1" -1 -1 78 21
 
 TEXT DLG_NULL 
 BEGIN
@@ -12,7 +12,8 @@ END
 
 NUMBER QAF_CODDITTA 5
 BEGIN      
-  FLAGS "H"
+  PROMPT 80 80 ""
+  FLAGS "D"
   FIELD LF_QUAA1->CODDITTA
   KEY 1               
   MESSAGE COPY,1@
@@ -154,7 +155,7 @@ END
 
 ENDPAGE
 
-PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
+PAGE "2" -1 -1 78 21
 
 TEXT DLG_NULL 
 BEGIN

m770/771200e.uml

@@ -11,7 +11,7 @@ ENDPAGE
 #define	G_DIPEND	1
 #define	G_QUADROA	2
 
-PAGE "MODULO 770 - Manutenzione Quadro A2" -1 -1 78 21
+PAGE "Quadro A2" -1 -1 78 21
 
 GROUPBOX DLG_NULL 78 3
 BEGIN
@@ -38,7 +38,7 @@ END
 
 NUMBER QAF_ANNODIC 4
 BEGIN
-  PROMPT 52 4 "Anno dichiarazione "
+  PROMPT 52 3 "Anno dichiarazione "
   FLAGS "DR"
 END
 
@@ -117,8 +117,7 @@ BEGIN
   DISPLAY "Cognome@24" 	LF_DIPEND->COGNOME  
   DISPLAY "Nome@20" 	LF_DIPEND->NOME
   DISPLAY "N°@4" 		NPROG
-  OUTPUT F_CODANAGDIP	CODDIP
+  OUTPUT F_CODIP	  CODDIP   
-  OUTPUT F_CODANAGDIPQA	CODDIP   
   OUTPUT QAF_NPROG 		NPROG 
   FIELD LF_QUAA2->NPROG        
   KEY 1     

m770/771200f.uml

@@ -3,7 +3,7 @@ TOOLBAR "" 0 20 0 2
 #include <toolbar.h>
 ENDPAGE
 
-PAGE "MODULO 770 - Manutenzione Quadro A2" -1 -1 78 21
+PAGE "1" -1 -1 78 21
 
 TEXT DLG_NULL 
 BEGIN
@@ -12,7 +12,8 @@ END
 
 NUMBER QAF_CODDITTA 5
 BEGIN 
-  FLAGS "H"
+  PROMPT 80 80 ""
+  FLAGS "D"
   FIELD LF_QUAA2->CODDITTA
   KEY 1               
   MESSAGE COPY,1@
@@ -224,7 +225,7 @@ END
 
 ENDPAGE
 
-PAGE "MODULO 770 - Manutenzione Quadro A2" -1 -1 78 21
+PAGE "2" -1 -1 78 21
 
 TEXT DLG_NULL 
 BEGIN

m770/771200g.uml

@@ -3,14 +3,14 @@ TOOLBAR "" 0 18 0 4
 #include <toolbar.h>
 BUTTON F_BASEOCCUPA 24 2
 BEGIN
-  PROMPT -13 -3 "~Dati base occupazionale"
+  PROMPT -13 -3 "~Base occupazionale"
 END
 ENDPAGE
 
 #define	G_DIPEND	1
 #define	G_QUADROA	2
 
-PAGE "Manutenzione dati base occupazionale" -1 -1 78 18
+PAGE "Quadro A3" -1 -1 78 18
 
 GROUPBOX DLG_NULL 78 3
 BEGIN
@@ -21,12 +21,12 @@ NUMBER QAF_CODDITTA 5
 BEGIN
   PROMPT 3 1 "Ditta  "
   FLAGS "GRD"           
-    KEY 1
-    CHECKTYPE REQUIRED             
   USE LF_NDITTE KEY 1
   INPUT CODDITTA QAF_CODDITTA
   OUTPUT QAF_RAGDITTA RAGSOC
   FIELD LF_QUAA3->CODDITTA 
+  CHECKTYPE REQUIRED     
+  KEY 1
 END
 
 STRING QAF_RAGDITTA 50
@@ -37,7 +37,7 @@ END
 
 NUMBER QAF_ANNODIC 4
 BEGIN
-    PROMPT 52 4 "Anno dichiarazione "
+  PROMPT 52 3 "Anno dichiarazione "
   FLAGS "DR"
 END
 
@@ -46,22 +46,10 @@ BEGIN
   PROMPT 1 7 "@bCodice "
 END
 
-NUMBER QAF_NPROG 1
-BEGIN
-  PROMPT 80 80 ""
-  FLAGS "DG" 
-  FIELD LF_QUAA3->NPROG   
-  CHECKTYPE REQUIRED
-  KEY 1
-END
-
 NUMBER F_CODIP 6
 BEGIN
   PROMPT 80 80 ""
   FLAGS "D"
-  FIELD LF_QUAA3->CODDIP
-  CHECKTYPE REQUIRED    
-  KEY 1  
 END
 
 NUMBER F_CODANAGDIP 6
@@ -77,9 +65,13 @@ BEGIN
   OUTPUT QAF_COGNOME COGNOME
   OUTPUT QAF_NOME NOME
   MESSAGE COPY, F_CODIP	 
+  MESSAGE COPY, F_CODIPQUADRO
   ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti" 
   GROUP G_DIPEND
   FLAGS "H"    
+  FIELD LF_QUAA3->CODDIP
+  CHECKTYPE REQUIRED
+  KEY 1
 END
 
 NUMBER F_CODIPQUADRO 6
@@ -96,12 +88,20 @@ BEGIN
   DISPLAY "gg.incremento" 		NGINC17
   DISPLAY "Reddito corrisposto" REDCOR18
   OUTPUT F_CODIPQUADRO 	CODDIP             
-  OUTPUT F_CODANAGDIP	CODDIP
-  OUTPUT QAF_NPROG		NPROG
-//  ADD RUN BA4 -1
-  FLAGS "H"              
   MESSAGE COPY, F_CODIP  
+  MESSAGE COPY, F_CODANAGDIP
   GROUP G_QUADROA   
+  FIELD LF_QUAA3->CODDIP
+  CHECKTYPE REQUIRED
+  KEY 1
+END   
+
+NUMBER QAF_NPROG 4
+BEGIN
+  PROMPT 80 80 ""
+  FIELD LF_QUAA3->NPROG   
+  CHECKTYPE REQUIRED
+  KEY 1
 END
 
 STRING QAF_COGNOME 24

m770/771200h.uml

@@ -12,7 +12,8 @@ END
 
 NUMBER QAF_CODDITTA 5
 BEGIN     
-  FLAGS "HG"
+  PROMPT 80 80 ""
+  FLAGS "D"
   FIELD LF_QUAA3->CODDITTA
   KEY 1            
 END
@@ -62,49 +63,49 @@ END
 
 DATE F_DIRAPTI
 BEGIN
-  PROMPT 1 4 "8 Data inizio rapporto a tempo indeterminato "
+  PROMPT 1 5 "8 Data inizio rapporto a tempo indeterminato "
   FIELD LF_QUAA3->DIRAPTI
 END
 
 GROUPBOX DLG_NULL 78 4
 BEGIN
-  PROMPT 0 6 "@bDATI DAL 1/1/95 A FINE PERIODO D'IMPOSTA"
+  PROMPT 0 7 "@bDATI DAL 1/1/95 A FINE PERIODO D'IMPOSTA"
 END
 
 NUMBER F_NGINC15 3
 BEGIN
-  PROMPT 1 7 "9 Num. giorni in incremento "
+  PROMPT 1 8 "9 Num. giorni in incremento "
   FIELD LF_QUAA3->NGINC15
 END
 
 NUMBER F_REDCOR16 15
 BEGIN
-  PROMPT 1 8 "10 Reddito corrisposto      "
+  PROMPT 1 9 "10 Reddito corrisposto      "
   FIELD LF_QUAA3->REDCOR16
   PICTURE "."
 END
 
 GROUPBOX DLG_NULL 78 4
 BEGIN
-  PROMPT 0 10 "@bDATI DA INIZIO SUCCESSIVO PERIODO D'IMPOSTA FINO AL 31/12/95"
+  PROMPT 0 11 "@bDATI DA INIZIO SUCCESSIVO PERIODO D'IMPOSTA FINO AL 31/12/95"
 END
 
 NUMBER F_NGINC17 3
 BEGIN
-  PROMPT 1 11 "11 Num. giorni in incremento"
+  PROMPT 1 12 "11 Num. giorni in incremento"
   FIELD LF_QUAA3->NGINC17
 END
 
 NUMBER F_REDCOR18 15
 BEGIN
-  PROMPT 1 12 "12 Reddito corrisposto      "
+  PROMPT 1 13 "12 Reddito corrisposto      "
   FIELD LF_QUAA3->REDCOR18
   PICTURE "."
 END
 
 ENDPAGE
 
-PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
+PAGE "Societa' trasformata" -1 -1 78 21
 
 TEXT DLG_NULL 
 BEGIN
@@ -113,7 +114,8 @@ END
 
 NUMBER F_CODDITTA_2 5
 BEGIN     
-  FLAGS "HG"
+  PROMPT 80 80 ""
+  FLAGS "D"
   KEY 1 
 END
 

m770/771200i.uml

@@ -2,9 +2,11 @@
 TOOLBAR "" 0 20 0 2
 BUTTON DLG_SAVEREC 8 2
 BEGIN
-PROMPT -16 -1 "~Registra"
+PROMPT -16 -1 ""
 FLAGS "D"
 MESSAGE EXIT,K_SAVE   
+PICTURE BMP_SAVEREC
+PICTURE BMP_SAVERECDN
 END
 
 BUTTON DLG_NEWREC 8 2
@@ -12,6 +14,8 @@ BEGIN
 PROMPT -26 -1 "~Nuovo"
 MESSAGE EXIT,K_INS
 FLAGS "D" 
+PICTURE BMP_NEWREC
+PICTURE BMP_NEWRECDN
 END
 
 BUTTON DLG_DELREC 8 2
@@ -26,6 +30,7 @@ BEGIN
 PROMPT -46 -1 "Ri~cerca"
 MESSAGE EXIT,K_F9
 FLAGS "D" 
+PICTURE BMP_FINDREC
 END
 
 BUTTON DLG_CANCEL 8 2
@@ -42,7 +47,7 @@ END
 
 ENDPAGE
 
-PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
+PAGE "Base occupazionale" -1 -1 78 21
 
 GROUPBOX DLG_NULL 78 3
 BEGIN
@@ -52,7 +57,7 @@ END
 NUMBER QAF_CODDITTA 5
 BEGIN
   PROMPT 3 1 "Ditta  "
-  FLAGS "GR"
+  FLAGS "GRD"
   KEY 1
   CHECKTYPE REQUIRED             
   USE LF_NDITTE KEY 1

m770/771234a.uml

@@ -3,8 +3,10 @@ TOOLBAR "" 0 20 0 2
 
 BUTTON DLG_SAVEREC 8 2
 BEGIN
-PROMPT -16 -1 "~Registra"
+PROMPT -16 -1 ""
 MESSAGE EXIT,K_SAVE
+PICTURE BMP_SAVEREC
+PICTURE BMP_SAVERECDN
 END
 
 BUTTON DLG_DISTINTA 8 2

m770/771300a.uml

@@ -3,8 +3,10 @@
 TOOLBAR "" 0 20 0 2
 BUTTON DLG_SAVEREC 8 2
 BEGIN
-PROMPT -13 -1 "~Registra"
+PROMPT -13 -1 ""
 MESSAGE EXIT,K_SAVE 
+PICTURE BMP_SAVEREC
+PICTURE BMP_SAVERECDN
 END
 BUTTON DLG_CANCEL 8 2
 BEGIN

m770/771400a.uml

@@ -5,8 +5,10 @@ TOOLBAR "" 0 20 0 2
 
 BUTTON DLG_SAVEREC 10 2
 BEGIN
-PROMPT -15 -1 "~Registra"
+PROMPT -15 -1 ""
 MESSAGE EXIT,K_SAVE 
+PICTURE BMP_SAVEREC
+PICTURE BMP_SAVERECDN
 END
 
 BUTTON DLG_CANCEL 10 2

m770/771400b.uml

@@ -5,8 +5,10 @@ TOOLBAR "" 0 20 0 2
 
 BUTTON DLG_SAVEREC 10 2
 BEGIN
-PROMPT -15 -1 "~Registra"
+PROMPT -15 -1 ""
 MESSAGE EXIT,K_SAVE
+PICTURE BMP_SAVEREC
+PICTURE BMP_SAVERECDN
 END
 
 BUTTON DLG_CANCEL 10 2

m770/775100.cpp

@@ -62,7 +62,10 @@ bool TGestionePercipienti::remove()
 
 void TGestionePercipienti::init_mask(TMask& m)
 { 
+  TString16 tipo;
   m.set(F_ANNODIC, _anno_dic);  
+  tipo << _tipoa; 
+  m.set(F_TIPOA, tipo);
 }
 
 void TGestionePercipienti::init_query_mode(TMask& m)
@@ -122,7 +125,7 @@ bool TGestionePercipienti::user_create()
     _codditta = get_firm_770();
 
   _msk->set_handler(F_CODDITTA, codditta_handler);  
-  set_search_field(F_TIPOA);
+  set_search_field(F_CODANAGR);
   return TRUE;
 }
 
@@ -136,7 +139,7 @@ bool TGestionePercipienti::user_destroy()
 int GestPerc(int argc, char* argv[])
 { 
   long codditta = 0L;
-  char tipoa = '\0';
+  char tipoa = 'F';
   long codanagr = 0L;
     
   if (argc >= 5)   

m770/775100a.uml

@@ -38,22 +38,21 @@ END
 
 TEXT DLG_NULL
 BEGIN
-  PROMPT 1 8 "@bDati percipiente"
+  PROMPT 1 7 "@bDati percipiente"
 END
 
-LIST F_TIPOA 1 12
+LISTBOX F_TIPOA 1 9
 BEGIN
-  PROMPT 1 9 ""    
+  PROMPT 1 8 ""    
   FIELD LF_PERC->TIPOA
   ITEM "F|Fisica"
   ITEM "G|Giuridica"
-  CHECKTYPE REQUIRED
   KEY 1
 END
 
 NUMBER F_CODANAGR 5
 BEGIN
-  PROMPT 15 9 "" 
+  PROMPT 15 8 "" 
   USE LF_PERC KEY 1 SELECT ((CODDITTA==#F_CODDITTA)&&(TIPOA==#F_TIPOA))
   JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR  
   INPUT CODDITTA F_CODDITTA
@@ -72,7 +71,7 @@ END
 
 STRING F_RAGSOC 50
 BEGIN
-  PROMPT 25 9 ""
+  PROMPT 25 8 ""
   FLAGS "D"
 END            
 

m770/776100b.uml

@@ -624,7 +624,7 @@ END
 
 TEXT DLG_NULL_CAAF
 BEGIN
-  PROMPT 5 8 "Dati C.A.A.F."
+  PROMPT 5 8 "Dati C.A.A."
   FLAGS "H"
   GROUP 2  
 END

m770/776500a.uml

@@ -4,8 +4,10 @@ TOOLBAR "" 0 20 0 2
 
 BUTTON DLG_SAVEREC 10 2
 BEGIN
-PROMPT -13 -1 "~Registra"
+PROMPT -13 -1 ""
 MESSAGE EXIT,K_SAVE 
+PICTURE BMP_SAVEREC
+PICTURE BMP_SAVERECDN
 END
 
 BUTTON DLG_CANCEL 10 2

m770/776600.cpp

@@ -21,6 +21,7 @@ class TEstinti_app : public TApplication
     TRelation*		  _rel;
     TCursor*		    _cur;
     TBrowse_sheet*	_estint_sheet;   
+    TRectype&       _rec;
     static bool show_estinti(TMask_field& f, KEY k);    
     void 		force_output(int dlg, const long cod);
   protected:     
@@ -36,7 +37,8 @@ TEstinti_app& app() { return (TEstinti_app&) main_app(); }
 
 bool TEstinti_app::set_codditta(TMask_field& f)
 {
-  TString16 codditta; codditta << get_firm_770();
+  TString16 codditta; 
+  codditta << get_firm_770();
   if (codditta != "0")
   {
     f.set(codditta);
@@ -100,11 +102,13 @@ void TEstinti_app::force_output(int dlg, const long codditta)
 bool TEstinti_app::save(TMask& m, const long codic_prec)
 {
   const long new_codic = m.get_long(F_CODDIC);
-  
+  _rec = _base->curr();
-  _base->zero();
+  _rec.zero();     
-  _base->put("CODDITTA", (long)_codditta);     
+  _rec.put("TIPOQUA", ' '); 
-  _base->put("CODDIC",   (long)new_codic);
+  _rec.put("CODDITTA",(long)_codditta); 
-  _base->rewrite();
+  _base->read(_rec);    
+  _rec.put("CODDIC",(long)new_codic);
+  _base->rewrite(_rec);
 
 // Stessa cosa su basebis
   _basebis->zero();              
@@ -124,15 +128,17 @@ bool TEstinti_app::save(TMask& m, const long codic_prec)
 
 bool TEstinti_app::main_loop()
 {
-  KEY     tasto;            
+  KEY  tasto = K_ESC;            
 
   const long codditta = _msk->get_long(F_CODDITTA);
   _base->zero();            
   _base->setkey(1);
   _base->put("CODDITTA", (long)codditta);
   _base->read(); 
+  _msk->open_modal();
 
-  do  {                     
+  while (tasto != K_QUIT) 
+  {                     
     const bool dichiarante = sogg_dic(_codditta);
     long  coddic = 0L;
     if (!dichiarante)
@@ -171,7 +177,7 @@ bool TEstinti_app::main_loop()
         break;
     }
   }     
-  while (tasto != K_QUIT);                              
+  _msk->close();                        
   return FALSE;
 }
 

m770/776600a.uml

@@ -9,13 +9,6 @@ BEGIN
     PROMPT 1 0 ""
 END
 
-STRING F_TIPOQUA 2
-BEGIN
-  PROMPT 80 80 ""
-  FIELD LF_BASE->TIPOQUA
-  KEY 1
-END
-
 NUMBER F_CODDITTA 5
 BEGIN
   PROMPT 3 1 "Ditta  "              
@@ -77,6 +70,8 @@ BUTTON DLG_SAVEREC 9 2
 BEGIN
   PROMPT -13 -1 ""   
   MESSAGE EXIT,K_SAVE   
+  PICTURE BMP_SAVEREC
+  PICTURE BMP_SAVERECDN
 END
 
 BUTTON DLG_QUIT 8 2
@@ -90,13 +85,12 @@ BEGIN
   PROMPT -33 -1 "~Soggetti estinti"
 END   
 
-/***
+STRING F_TIPOQUA 2
-BUTTON DLG_NULL 20 2
 BEGIN
-  PROMPT -44 -1 "Menu' precedente"  
+  PROMPT 80 80 ""
-  MESSAGE EXIT,K_QUIT
+  FIELD LF_BASE->TIPOQUA
+  KEY 1
 END
-****/
 
 ENDPAGE
 

m770/77qaall.uml

@@ -1,7 +1,7 @@
 // 77qaall.uml - A,A2 - allegati 730
 #include "77qaall.h"
 
-PAGE "Allegati 730 " -1 -1 60 7
+PAGE "Allegati 730 " -1 14 60 7
 
 TEXT DLG_NULL
 BEGIN