Errori Cecilia

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

ba/ba4200.h

@@ -383,5 +383,6 @@
 #define F_CONFIS       412
 #define F_CODREG96     413
 #define F_DESREG96     414
-
+#define H_TIPOA        415                           
+                           
 #endif  // __BA4200_H

ba/ba4200b.uml

@@ -5,13 +5,13 @@ TOOLBAR "" 0 19 0 3
 
 BUTTON DLG_CHGTIP 25 1
 BEGIN
-PROMPT -13 -3 "Persone Giuridiche"
+PROMPT -13 -3 "Persone ~Giuridiche"
 MESSAGE K_F10
 END
 
 BUTTON DLG_DITTE 10 1
 BEGIN
-PROMPT -36 -3 "Ditte"
+PROMPT -36 -3 "~Ditte"
 MESSAGE K_F5
 END
 
@@ -21,7 +21,7 @@ ENDPAGE
 
 PAGE "Pag.1" -1 -1 77 20
 
-LIST DLG_NULL 1 6
+LIST H_TIPOA 1 6
 BEGIN
   PROMPT 1 60 ""
   FIELD LF_ANAG->TIPOA
@@ -430,6 +430,7 @@ HELP "Inserire il codice del comune di domicilio fiscale"
 CHECKTYPE NORMAL
 WARNING "Comune assente"
 ADD RUN ba4 -0
+VALIDATE REQIF_FUNC 1 FLD_AF2_INDRF
 END
 
 STRING FLD_AF2_COMRF_COMUNI_PROVCOM 5

ba/ba4200c.uml

@@ -4,13 +4,13 @@ TOOLBAR "" 0 19 0 3
 
 BUTTON DLG_CHGTIP 25 1
 BEGIN
-  PROMPT -13 -3 "Persone Fisiche"
+  PROMPT -13 -3 "Persone F~isiche"
   MESSAGE K_F10
 END
 
 BUTTON DLG_DITTE 10 1
 BEGIN
-  PROMPT -36 -3 "Ditte"
+  PROMPT -36 -3 "~Ditte"
   MESSAGE K_F5
 END
 
@@ -19,7 +19,7 @@ ENDPAGE
 
 PAGE "Pag.1" -1 -1 77 20
 
- LIST DLG_NULL 1 9
+ LIST H_TIPOA 1 9
  BEGIN   
   PROMPT 1 60 ""
   FIELD LF_ANAG->TIPOA
@@ -240,7 +240,8 @@ BEGIN
   OUTPUT F_STATORES CODTAB
   HELP "Codice dello stato di residenza"
   CHECKTYPE NORMAL 
-  MESSAGE DIRTY,FLD_AG2_COMRES|TAB,FLD_AG2_COMRES
+  MESSAGE DIRTY,FLD_AG2_COMRES|TAB,FLD_AG2_COMRES 
+  MESSAGE EMPTY ENABLE,F_STATORES
 END
 
 STRING FLD_AG2_COMRES 4
@@ -352,6 +353,7 @@ BEGIN
   HELP "Codice del comune domicilio fiscale della ditta"
   CHECKTYPE NORMAL
   WARNING "Comune assente"
+  VALIDATE REQIF_FUNC 1 FLD_AG1_INDRF
   ADD RUN ba4 -0
 END
 
@@ -998,7 +1000,7 @@ END
 
 BOOLEAN CHK_AG5_RFDSL
 BEGIN
-  PROMPT 2 5 "Domcilio fiscale diverso sede legale"
+  PROMPT 2 5 "Domicilio fiscale diverso sede legale"
   FIELD LF_ANAG->RFDIVERSA
   HELP "Indicare se il domicilio fiscale e' diverso dalla sede legale"
 END

ba/ba4300a.uml

@@ -4,25 +4,25 @@ TOOLBAR "" 0 19 0 3
 
 BUTTON DLG_ATT 10 1
 BEGIN
-  PROMPT -16 -3 "Attivita'"
+  PROMPT -16 -3 "~Attivita'"
   MESSAGE K_F6
 END
 
 BUTTON DLG_ULC 10 1
 BEGIN
-  PROMPT -26 -3 "U.Locali"
+  PROMPT -26 -3 "U.~Locali"
   MESSAGE K_F5
 END
 
 BUTTON DLG_SOC 10 1
 BEGIN
-  PROMPT -36 -3 "Soci"
+  PROMPT -36 -3 "~Soci"
   MESSAGE K_F7
 END
 
 BUTTON DLG_REG 10 1
 BEGIN
-  PROMPT -46 -3 "Registri"
+  PROMPT -46 -3 "Re~gistri"
   MESSAGE K_F8
 END
 
@@ -80,7 +80,7 @@ BEGIN
   KEY 2
   USE LF_NDITTE KEY 2
   INPUT RAGSOC FLD_GD1_RAGSOC
-  DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
+  DISPLAY "Ragione sociale@50" RAGSOC
   DISPLAY "Codice" CODDITTA
   COPY OUTPUT FLD_GD1_CODDITTA
   HELP "Ragione sociale della ditta"
@@ -96,7 +96,7 @@ BEGIN
   FIELD LF_NDITTE->RAGSOC
   KEY 2
   USE LF_NDITTE KEY 2 SELECT (TIPOA==#FLD_GD1_TIPOA) && (CODANAGR==#FLD_GD1_CODANAGR)
-  COPY INPUT FLD_GD1_RAGSOC
+  INPUT RAGSOC FLD_GD1_RAGSOCH 
   COPY DISPLAY FLD_GD1_RAGSOC
   COPY OUTPUT FLD_GD1_RAGSOC
   HELP "Ragione sociale della ditta"
@@ -642,7 +642,7 @@ END
 
 BOOLEAN CHK_GD3_DEDART13
 BEGIN
-  PROMPT 27 7 "Deduzioni art.13"
+  PROMPT 27 7 "Deduzioni art.120 C2"
   FIELD LF_NDITTE->DEDART13
   HELP "Indicare se la ditta ha diritto a deduzioni ex articolo 13"
 END

ba/ba4500a.uml

@@ -53,7 +53,7 @@ BEGIN
   PROMPT 1 2 "Ragione sociale "
   HELP "Ragione sociale della ditta"
   FLAGS "DG"
-  KEY 1
+  KEY 3
   USE LF_NDITTE KEY 2
   INPUT RAGSOC FLD_AT1_PROGD_NDITTE_RAGSOC
   DISPLAY "Ditta@50" RAGSOC
@@ -340,11 +340,6 @@ BEGIN
   GROUP 4
 END
 
-TEXT DLG_NULL
-BEGIN
-  PROMPT 1 11 "Indirizzo (Solo se diverso)"
-END
-
 GROUPBOX DLG_NULL 76 12
 BEGIN
   PROMPT 0 6 "Tenuta Registri Contabili"
@@ -424,6 +419,11 @@ BEGIN
   FLAGS "DU"
 END
 
+TEXT DLG_NULL
+BEGIN
+  PROMPT 1 11 "Indirizzo (Solo se diverso)"
+END
+
 STRING FLD_ATT2_INDCS 35
 BEGIN
   PROMPT 1 12 "Via       "

ba/ba4600a.uml

@@ -70,7 +70,7 @@ END
 
 NUMBER FLD_SC1_CODANAGRSOH 5
 BEGIN
-  PROMPT 31 4 "Codice "
+  PROMPT 32 4 "Codice "
   FIELD LF_SOCI->CODANAGRSO
   FLAGS "R"
   KEY 1
@@ -98,7 +98,7 @@ END
 
 NUMBER FLD_SC1_CODANAGRSO 5
 BEGIN
-  PROMPT 31 4 "Codice "
+  PROMPT 32 4 "Codice "
   FIELD LF_SOCI->CODANAGRSO
   FLAGS "RG"
   KEY 1

ba/batbois.uml

@@ -9,7 +9,7 @@ PAGE "Vecchi codici attivita'" -1 -1 78 7
 STRING FLD_TABOIS_CODTAB 4
 BEGIN
   PROMPT 2 1 "Codice      "
-  FIELD %OIS->CODTAB[1,4]
+  FIELD CODTAB[1,4]
   HELP "Codice del vecchio codice attivita'"
   USE %OIS
   INPUT CODTAB[1,4] FLD_TABOIS_CODTAB
@@ -21,14 +21,15 @@ BEGIN
   OUTPUT FLD_TABOIS_ADD CODTAB[5,]
   OUTPUT FLD_TABOIS_S0 S0
   KEY 1
-  FLAGS "RZ"
+  FLAGS "RZ"   
+  CHECKTYPE REQUIRED
 END
 
 STRING FLD_TABOIS_ADD 1
 BEGIN
   PROMPT 22 1 "Subcodice   "
   HELP "Subcodice del vecchio codice attivita'"
-  FIELD %OIS->CODTAB[5,]
+  FIELD CODTAB[5,]
   COPY ALL FLD_TABOIS_CODTAB
   KEY 1
   FLAGS "U"
@@ -38,7 +39,7 @@ END
 STRING FLD_TABOIS_S0 40
 BEGIN
   PROMPT 2 3 "Descrizione "
-  FIELD %OIS->S0
+  FIELD S0
   HELP "Descrizione del vecchio codice attivita' "
   USE %OIS KEY 2
   CHECKTYPE REQUIRED