Modifiche apportate allo Spreadsheet, corretta scrittura records,

aggiunti identificatori campi per maschera cg0200b.uml


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

cg/cg0200.cpp

@@ -463,9 +463,9 @@ bool CG0200_application::indsp_notify(int r, KEY key)
     // Disable field # 101 (CODIND) update # of row
     TMask& m = indsp.sheet_mask();
 
-    if (m.get_int(114)==0)  // Is it a new row ?
+    if (m.get_int(F_CODINDI)==0)  // Is it a new row ?
-      m.set(114,(long)(r+1));
+      m.set(F_CODINDI,(long)(r+1));
-    m.disable(114);
+    m.disable(F_CODINDI);
   }
   break;
  case K_INS: 

cg/cg0200.h

@@ -125,4 +125,24 @@
 
 #define DLG_RIC                       300
 #define DLG_CST                       301
+
+
+//////////////////////////////////////
+// Identificatori per cg0200b.uml   //
+//////////////////////////////////////
+#define F_RAGSOCI              101
+#define F_INDIRI               102
+#define F_CIVI                 103
+#define F_LOCALI               104
+#define F_CAPI                 105
+#define F_STATOI               106
+#define F_COMI                 107
+#define F_PTELI                108
+#define F_TELI                 109
+#define F_PFAXI                110
+#define F_FAXI                 111
+#define F_IVARIDI              112
+#define F_CODINDI              113
+#define F_DENCOMI              114
+
 #endif  // __CG0200_H

cg/cg0200b.uml

@@ -2,57 +2,57 @@
 
 PAGE "" -1 -1 76 16
 
-STRING 101 50 
+STRING F_RAGSOCI 50 
 BEGIN
   PROMPT 1 2 "Rag. soc. "
   HELP "Inserire la ragione sociale"
 	GROUP 1
 END
 
-STRING 102 35
+STRING F_INDIRI 35
 BEGIN
   PROMPT 1 4 "Indirizzo "
   HELP "Inserire l'indirizzo"
 	GROUP 1
 END
 
-STRING 103 10
+STRING F_CIVI 10
 BEGIN
   PROMPT 54 4 "N.       "
   HELP "Inserire il numero civico"
 	GROUP 1
 END
 
-STRING 104 35
+STRING  F_LOCALI 35
 BEGIN
   PROMPT 1 5 "Localita  "
   HELP "Inserire la localita"
 	GROUP 1
 END
 
-STRING 105 5
+STRING F_CAPI 5
 BEGIN
   PROMPT 54 5 "CAP      "
   HELP "Inserire il Codice di Avviamento Postale"
 	GROUP 1
 END
 
-NUMBER 106 3
+NUMBER F_STATOI 3
 BEGIN
   PROMPT 1 6 "Stato     "
   FLAGS "RZ"
   USE %STA
-  INPUT CODTAB 106
+  INPUT CODTAB F_STATOI
   DISPLAY "Codice" CODTAB
   DISPLAY "Stato@50" S0
-  OUTPUT 106 CODTAB
+  OUTPUT F_STATOI CODTAB
   CHECKTYPE NORMAL
   WARNING "Stato assente"
   HELP "Inserire il codice dello stato"
 	GROUP 1
 END
 
-STRING 107 4
+STRING F_COMI 4
 BEGIN
   PROMPT 18 6 "Comune "
   FLAGS "U"
@@ -62,9 +62,9 @@ BEGIN
   DISPLAY "Stato" STATO
   DISPLAY "Codice" COM
   DISPLAY "Comune@50" DENCOM
-  OUTPUT 105 CAPCOM
+  OUTPUT F_CAPI CAPCOM
-  OUTPUT 106 STATO
+  OUTPUT F_STATOI STATO
-  OUTPUT 107 COM
+  OUTPUT F_COMI COM
   OUTPUT F_DENCOMI DENCOM
   CHECKTYPE NORMAL
   WARNING "Comune assente"
@@ -81,7 +81,8 @@ BEGIN
     DISPLAY "Comune@50" DENCOM
   DISPLAY "Stato" STATO
   DISPLAY "Codice" COM
-  COPY OUTPUT 107
+  COPY OUTPUT F_COMI 
+	CHECKTYPE NORMAL
   ADD MASK ba4100a
 	GROUP 1
 END
@@ -91,40 +92,40 @@ BEGIN
 	PROMPT 1 8 "Numeri Telefonici"
 END
 
-STRING 108 10
+STRING F_PTELI 10
 BEGIN
   PROMPT 2 9 "Telefono      "
   HELP "Inserire il prefisso ed il numero di telefono"
 	GROUP 1
 END
 
-STRING 109 30
+STRING F_TELI 30
 BEGIN
   PROMPT 40 9 ""
 	GROUP 1
 END
 
-STRING 110 10
+STRING F_PFAXI 10
 BEGIN 
 	PROMPT 2 10 "Fax           "
 	HELP "Inserire il prefisso del numero di fax"
 	GROUP 1
 END
 
-STRING 111 30
+STRING F_FAXI 30
 BEGIN
 	PROMPT 40 10 ""
 	GROUP 1
 END
 
-BOOLEAN 112
+BOOLEAN F_IVARIDI 
 BEGIN
   PROMPT 2 13 "Riduzione IVA"
   HELP "Flag per la riduzione IVA"
 	GROUP 1
 END
 
-NUMBER 113 3
+NUMBER F_CODINDI 3
 BEGIN
   PROMPT 1 1 "Codice    "
 END