cg1200a.uml Allungato codice cliente/fornitore da 5 a 6

cg3.url        Aggiunto menu dei colori
cg3600.cpp     Completata visualizzazione mastrini a video
cg3600a.uml    Maschera di query mastrini
cglib.h        Migliorata gestione esercizi
cglib02.cpp    Resa statica la tabella degli esercizi
cg3600.h       Nomi dei campi per la visualizzazione mastrini
cg3600b.uml    Maschera di visualizzazione sheet mastrini


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

cg/cg1200a.uml

@@ -1,5 +1,5 @@
 #include "cg1200a.h"
-#include <lffiles.h>
+
 PAGE "Selezione" -1 -1 70 19
 
 NUMBER F_CODDITTA 5
@@ -70,7 +70,7 @@ BEGIN
   PROMPT 48 5 "a Codice"
 END
 
-STRING FLD_CLI_CODFR 5
+STRING FLD_CLI_CODFR 6
 BEGIN
   PROMPT 34 6 ""
   USE LF_CLIFO KEY 1
@@ -84,7 +84,7 @@ BEGIN
         HELP "Codice di inizio stampa: vuoto = inizio archivio"
 END
 
-STRING FLD_CLI_CODTO 5
+STRING FLD_CLI_CODTO 6
 BEGIN
   PROMPT 48 6 ""
   COPY USE FLD_CLI_CODFR
@@ -128,7 +128,7 @@ BEGIN
   WARNING "Limite superiore errato"
 END
 
-STRING FLD_FOR_CODFR 5
+STRING FLD_FOR_CODFR 6
 BEGIN
   PROMPT 34 6 ""
   COPY USE FLD_CLI_CODFR
@@ -140,7 +140,7 @@ BEGIN
         HELP "Codice C/F di inizio stampa: vuoto = inizio archivio"
 END
 
-STRING FLD_FOR_CODTO 5
+STRING FLD_FOR_CODTO 6
 BEGIN
   PROMPT 48 6 ""
   COPY USE FLD_FOR_CODFR

cg/cg3.url

@@ -48,8 +48,15 @@ MENU MENU_BAR(4)
 
 /* ----------------------------------------------------
  * cg3 -5
+ * 
+ * cg3600.cpp Mastrini a video
  * ---------------------------------------------------- */
 MENUBAR MENU_BAR(5)
 
 MENU MENU_BAR(5)
     SUBMENU MENU_FILE "~File" 
+    SUBMENU M_FONT    "~Opzioni"
+
+MENU M_FONT
+    ITEM MENU_ITEM(1) "~Colori righe"
+

cg/cg3600.h

@@ -19,12 +19,16 @@
 #define F_ACAUSALE    115
 #define F_ADESCAUS    116
 #define F_MASTRINI    200 
-#define F_TOTRIG_IMP  201
+#define F_TOTRIG_SAL  201
 #define F_TOTRIG_DAR  202
 #define F_TOTRIG_AVE  203
-#define F_TOTPER_IMP  211
+#define F_TOTPER_SAL  211
 #define F_TOTPER_DAR  212
 #define F_TOTPER_AVE  213
-#define F_TOTATT_IMP  221
+#define F_TOTATT_SAL  221
 #define F_TOTATT_DAR  222
 #define F_TOTATT_AVE  223
+#define F_TOTPRO_SAL  231
+#define F_TOTPRO_DAR  232
+#define F_TOTPRO_AVE  233
+

cg/cg3600a.uml

@@ -1,26 +1,21 @@
-#include "cg3600a.h"
+#include "cg3600.h"
 
-TOOLBAR "" 0 21 0 0
+TOOLBAR "" 0 20 0 0
 
 BUTTON DLG_OK 10 2
 BEGIN
-  PROMPT -14 -11 ""
+  PROMPT -13 -11 ""
-END
-
-BUTTON DLG_CANCEL 10 2
-BEGIN
-  PROMPT -24 -11 ""
 END
 
 BUTTON DLG_FINDREC 10 2
 BEGIN
-  PROMPT -34 -11 ""
+  PROMPT -23 -11 ""
   PICTURE BMP_FINDREC
 END
 
 BUTTON DLG_QUIT 10 2
 BEGIN
-  PROMPT -44 -11 ""
+  PROMPT -33 -11 ""
 END
 
 ENDPAGE
@@ -29,7 +24,7 @@ PAGE "Mastrini" -1 -1 76 20
 
 NUMBER F_CODDITTA 5
 BEGIN
-  PROMPT 1 0 "Ditta       "
+  PROMPT 1 1 "Ditta       "
   FLAGS "DF"
   USE LF_NDITTE
   INPUT CODDITTA F_CODDITTA
@@ -39,22 +34,21 @@ END
 
 STRING F_RAGSOC 50
 BEGIN
-  PROMPT 22 0 ""
+  PROMPT 22 1 ""
   FLAGS "D"
 END
 
 LIST F_TIPO 10
 BEGIN
-  PROMPT 1 0 "Tipo       "
+  PROMPT 1 3 "Tipo   "
   ITEM " |Conto"     MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
   ITEM "C|Cliente"   MESSAGE HIDE,1@|SHOW,2@|HIDE,3@
   ITEM "F|Fornitore" MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
-  FLAGS "H"
 END
 
 NUMBER F_GRUPPO 3
 BEGIN
-  PROMPT 1 1 "Gruppo        "
+  PROMPT 1 4 "Gruppo        "
   USE LF_PCON SELECT (CONTO="")
   INPUT GRUPPO F_GRUPPO
   DISPLAY "Gruppo" GRUPPO
@@ -62,24 +56,22 @@ BEGIN
   OUTPUT F_GRUPPO GRUPPO
   OUTPUT F_DESGRUPPO DESCR
   CHECKTYPE REQUIRED      
-  ADD RUN cg0 -0
 END
 
 STRING F_DESGRUPPO 50
 BEGIN
-  PROMPT 22 1 ""
+  PROMPT 22 4 ""
   USE LF_PCON KEY 2 SELECT (CONTO="")
   INPUT DESCR F_DESGRUPPO
   DISPLAY "Descrizione@50" DESCR
   DISPLAY "Gruppo" GRUPPO
   COPY OUTPUT F_GRUPPO
   CHECKTYPE REQUIRED
-  ADD RUN cg0 -0
 END
 
 NUMBER F_CONTO 3
 BEGIN
-  PROMPT 1 2 "Conto         "
+  PROMPT 1 5 "Conto         "
   USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
   INPUT GRUPPO F_GRUPPO
   INPUT CONTO F_CONTO
@@ -92,12 +84,11 @@ BEGIN
   OUTPUT F_CONTO CONTO
   OUTPUT F_DESCONTO DESCR
   CHECKTYPE REQUIRED
-  ADD RUN cg0 -0
 END
 
 STRING F_DESCONTO 50
 BEGIN
-  PROMPT 22 2 ""
+  PROMPT 22 5 ""
   USE LF_PCON KEY 2 SELECT (CONTO!="")&&(SOTTOCONTO="")
   INPUT DESCR F_DESGRUPPO
   COPY DISPLAY F_GRUPPO
@@ -105,12 +96,11 @@ BEGIN
   DISPLAY "Tipo" TMCF
   COPY OUTPUT F_CONTO
   CHECKTYPE REQUIRED
-  ADD RUN cg0 -0
 END
 
 NUMBER F_SOTTOCONTO 6
 BEGIN
-  PROMPT 1 3 "Sottoconto "
+  PROMPT 1 6 "Sottoconto "
   USE LF_PCON SELECT (SOTTOCONTO!="")
   COPY INPUT F_CONTO 
   INPUT SOTTOCONTO F_SOTTOCONTO
@@ -123,26 +113,24 @@ BEGIN
   OUTPUT F_SOTTOCONTO SOTTOCONTO
   OUTPUT F_DESSOTTOC DESCR
   CHECKTYPE REQUIRED
-  GROUP 1
+  GROUP 1 4
-  ADD RUN cg0 -0
 END
 
 STRING F_DESSOTTOC 50
 BEGIN
-  PROMPT 22 3 ""
+  PROMPT 22 6 ""
   USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="")
   INPUT DESCR F_DESSOTTOC
   COPY DISPLAY F_DESCONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   COPY OUTPUT F_SOTTOCONTO
   CHECKTYPE REQUIRED
-  GROUP 1
+  GROUP 1 4
-  ADD RUN cg0 -0  
 END
 
 NUMBER F_CLIENTE 6
 BEGIN
-  PROMPT 1 3 "Cliente    "
+  PROMPT 1 6 "Cliente    "
   USE LF_CLIFO
   INPUT TIPOCF "C"
   INPUT CODCF F_CLIENTE
@@ -151,13 +139,12 @@ BEGIN
   OUTPUT F_CLIENTE CODCF
   OUTPUT F_RAGSOCCLI RAGSOC
   CHECKTYPE REQUIRED
-  GROUP 2
+  GROUP 2 4
-  ADD RUN cg0 -1 C
 END
 
 STRING F_RAGSOCCLI 50
 BEGIN
-  PROMPT 22 3 ""
+  PROMPT 22 6 ""
   USE LF_CLIFO KEY 2
   INPUT TIPOCF "C"
   INPUT RAGSOC F_RAGSOCCLI
@@ -165,13 +152,12 @@ BEGIN
   DISPLAY "Codice" CODCF
   COPY OUTPUT F_CLIENTE
   CHECKTYPE REQUIRED
-  GROUP 2
+  GROUP 2 4
-  ADD RUN cg0 -1 C
 END
 
 STRING F_FORNITORE 6
 BEGIN
-  PROMPT 1 3 "Fornitore "
+  PROMPT 1 6 "Fornitore  "
   USE LF_CLIFO
   INPUT TIPOCF "F"
   INPUT CODCF F_FORNITORE
@@ -179,26 +165,24 @@ BEGIN
   OUTPUT F_FORNITORE CODCF
   OUTPUT F_RAGSOCFOR RAGSOC
   CHECKTYPE REQUIRED
-  GROUP 3
+  GROUP 3 4
-  ADD RUN cg0 -1 F
 END
 
 STRING F_RAGSOCFOR 50
 BEGIN
-  PROMPT 22 3 ""
+  PROMPT 22 6 ""
   USE LF_CLIFO KEY 2
   INPUT TIPOCF "F"
   INPUT RAGSOC F_RAGSOCFOR
   COPY DISPLAY F_RAGSOCCLI
   COPY OUTPUT F_FORNITORE
   CHECKTYPE REQUIRED
-  GROUP 3
+  GROUP 3 4
-  ADD RUN cg0 -1 F
 END
 
 NUMBER F_ESERCIZIO 4
 BEGIN
-  PROMPT 1 4 "Esercizio    "
+  PROMPT 1 8 "Esercizio    "
   USE ESC
   INPUT CODTAB F_ESERCIZIO
   DISPLAY "Codice" CODTAB
@@ -210,19 +194,19 @@ END
 
 DATE F_DADATA
 BEGIN
-  PROMPT 22 4 "Dalla data "
+  PROMPT 22 8 "Dalla data "
 END
 
 DATE F_ADATA
 BEGIN
-  PROMPT 51 4 "Alla data  "
+  PROMPT 51 8 "Alla data  "
   VALIDATE DATE_CMP_FUNC >= F_DADATA
   WARNING "La data finale deve essere maggiore di quella iniziale"
 END
 
 STRING F_DACAUSALE 3
 BEGIN
-  PROMPT 1 5 "Da causale    "  
+  PROMPT 1 10 "Da causale    "  
   FLAGS "U"
   USE LF_CAUSALI
   INPUT CODCAUS F_DACAUSALE
@@ -237,7 +221,7 @@ END
 
 STRING F_DADESCAUS 50
 BEGIN
-  PROMPT 22 5 ""
+  PROMPT 22 10 ""
   USE LF_CAUSALI KEY 2
   INPUT DESCR F_DADESCAUS
   DISPLAY "Descrizione@50" DESCR
@@ -248,7 +232,7 @@ END
 
 STRING F_ACAUSALE 3
 BEGIN
-  PROMPT 1 6 "A causale     "
+  PROMPT 1 11 "A causale     "
   FLAGS "U"
   COPY USE F_DACAUSALE
   INPUT CODCAUS F_ACAUSALE
@@ -262,7 +246,7 @@ END
 
 STRING F_ADESCAUS 50
 BEGIN
-  PROMPT 22 6 ""
+  PROMPT 22 11 ""
   COPY USE F_DADESCAUS
   INPUT DESCR F_ADESCAUS
   COPY DISPLAY F_DADESCAUS
@@ -270,36 +254,6 @@ BEGIN
   CHECKTYPE SEARCH
 END
  
-SPREADSHEET F_MASTRINI 0 5
-BEGIN
-  PROMPT 1 7 "Mastrini"
-  FLAGS "M"
-  ITEM "Data Op. \nData Doc.@10"
-  ITEM "C@1"
-  ITEM "Operazione@20F"
-  ITEM "N.Doc.  \nN.Prot.@7"
-  ITEM "Importo@18R"
-  ITEM "Saldo@20R"
-  ITEM "Causale@20"
-  ITEM "Dare@18R"
-  ITEM "Avere@18R"
-END                        
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT 1 -3 "Totali all'ultima riga visualizzata "
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT 1 -2 "Totali al periodo                   "
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT 1 -1 "Totali attuali                      "
-END
- 
 ENDPAGE
 
 ENDMASK

cg/cg3600b.uml

@@ -0,0 +1,194 @@
+#include "cg3600.h"
+
+TOOLBAR "" 0 20 0 0
+
+BUTTON DLG_LINK 10 2
+BEGIN           
+  PROMPT -12 -11 ""
+  PICTURE BMP_LINK
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT -22 -11 ""
+END
+
+ENDPAGE
+
+PAGE "Mastrini" -1 -1 76 20 
+
+NUMBER F_GRUPPO 3
+BEGIN
+  PROMPT 1 0 "Conto "
+  FLAGS "D"
+END
+
+NUMBER F_CONTO 3
+BEGIN
+  PROMPT 12 0 ""
+  FLAGS "D"
+END
+
+NUMBER F_SOTTOCONTO 6
+BEGIN
+  PROMPT 17 0 ""
+  FLAGS "D"
+END
+
+STRING F_DESSOTTOC 50
+BEGIN
+  PROMPT 25 0 ""
+  FLAGS "D"
+END
+
+NUMBER F_ESERCIZIO 4
+BEGIN
+  PROMPT 1 1 "Esercizio  "
+  FLAGS "D"
+END
+
+DATE F_DADATA
+BEGIN
+  PROMPT 25 1 "Dalla data "
+  FLAGS "D"
+END
+
+DATE F_ADATA
+BEGIN
+  PROMPT 54 1 "Alla data  "
+  FLAGS "D"
+END
+
+SPREADSHEET F_MASTRINI 0 -6
+BEGIN
+  PROMPT 1 2 "Mastrini"
+  FLAGS "DM2"
+  ITEM "Data Op. \nData Com.@10F"
+  ITEM "C@1F"
+  ITEM "Operazione@20F"
+  ITEM "Causale@20"
+  ITEM "Dare@15R"
+  ITEM "Avere@15R"
+  ITEM "N.Doc. \nN.Prot.@7"
+  ITEM "Importo@17R"
+  ITEM "Saldo fine\ngiornata@17R"
+END                        
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 26 -5 "@bSaldo"
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 45 -5 "@bDare"
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 61 -5 "@bAvere"
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 1 -4 "Prog. precedenti"
+END
+
+STRING F_TOTPRO_SAL 17
+BEGIN
+  PROMPT 20 -4 ""
+  FLAGS "DR"
+END
+
+NUMBER F_TOTPRO_DAR 15
+BEGIN     
+  PROMPT 39 -4 ""     
+  PICTURE "."
+  FLAGS "D"
+END
+
+NUMBER F_TOTPRO_AVE 15
+BEGIN
+  PROMPT 56 -4 ""
+  PICTURE "."
+  FLAGS "D"
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 1 -3 "Tot. riga corrente"
+END
+
+STRING F_TOTRIG_SAL 17
+BEGIN
+  PROMPT 20 -3 ""
+  FLAGS "DR"
+END
+
+NUMBER F_TOTRIG_DAR 15
+BEGIN     
+  PROMPT 39 -3 ""     
+  PICTURE "."
+  FLAGS "D"
+END
+
+NUMBER F_TOTRIG_AVE 15
+BEGIN
+  PROMPT 56 -3 ""
+  PICTURE "."
+  FLAGS "D"
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 1 -2 "Tot. periodo"
+END
+
+STRING F_TOTPER_SAL 17
+BEGIN
+  PROMPT 20 -2 ""
+  FLAGS "DR"
+END
+
+NUMBER F_TOTPER_DAR 15
+BEGIN     
+  PROMPT 39 -2 ""     
+  PICTURE "."
+  FLAGS "D"
+END
+
+NUMBER F_TOTPER_AVE 15
+BEGIN
+  PROMPT 56 -2 ""
+  PICTURE "."
+  FLAGS "D"
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 1 -1 "Tot. attuali"
+END
+
+STRING F_TOTATT_SAL 17
+BEGIN
+  PROMPT 20 -1 ""
+  FLAGS "DR"
+END
+
+NUMBER F_TOTATT_DAR 15
+BEGIN     
+  PROMPT 39 -1 ""     
+  PICTURE "."
+  FLAGS "D"
+END
+
+NUMBER F_TOTATT_AVE 15
+BEGIN
+  PROMPT 56 -1 ""
+  PICTURE "."
+  FLAGS "D"
+END
+
+ENDPAGE
+
+ENDMASK

cg/cglib.h

@@ -185,23 +185,26 @@ public:
   virtual ~TEsercizio() {}
 };
 
-class TEsercizi_contabili : private TArray
+class TEsercizi_contabili : public TObject
 {               
-  long _firm;
+  static TArray _esercizi;
+  static long _firm;
 
 protected:
-  void check() const;
+  static void check();
   
   const TEsercizio& esc(int i) const 
-  { return (const TEsercizio&)operator[](i); }
+  { return (const TEsercizio&)_esercizi[i]; }
 
   int date2index(const TDate& d) const;
   int esc2index(int codice) const;
+  int items() const { return _esercizi.items(); }
 
 public:
-  void update();
+  static void update();
   
   const TEsercizio& esercizio(int codice) const; 
+  const TEsercizio& operator [](int codice) const { return esercizio(codice); }
   
   int date2esc(const TDate& date) const;
   int pred(int codice) const;

cg/cglib02.cpp

@@ -321,6 +321,9 @@ void TSaldo_agg::registra()
 // Gestione Tabella esercizi
 ///////////////////////////////////////////////////////////
 
+TArray TEsercizi_contabili::_esercizi;
+long TEsercizi_contabili::_firm = 0;
+
 TEsercizio::TEsercizio(const TRectype& rec)
 {                   
   _codice   = rec.get_int("CODTAB");
@@ -339,24 +342,25 @@ int TEsercizio::compare(const TSortable& s) const
   return c;  
 }
 
-TEsercizi_contabili::TEsercizi_contabili() : _firm(0)
+TEsercizi_contabili::TEsercizi_contabili()
-{ }
+{ 
+}
 
 void TEsercizi_contabili::update()
 {       
   _firm = prefix().get_codditta();
   
-  destroy();
+  _esercizi.destroy();
-  TTable esc("ESC");
+  TTable tab_esc("ESC");
-  for (int err = esc.first(); err == NOERR; err = esc.next())
+  for (int err = tab_esc.first(); err == NOERR; err = tab_esc.next())
   {
-    TEsercizio* e = new TEsercizio(esc.curr());
+    TEsercizio* e = new TEsercizio(tab_esc.curr());
-    add(e);
+    _esercizi.add(e);
   }              
-  sort();
+  _esercizi.sort();
 } 
 
-void TEsercizi_contabili::check() const
+void TEsercizi_contabili::check()
 {
   if (_firm != prefix().get_codditta())
   {
@@ -365,7 +369,7 @@ void TEsercizi_contabili::check() const
       error_box("Questo programma carinissimo usa gli esercizi,\n"
                 "purtroppo non tiene conto del cambio ditta!");
 #endif  
-    ((TEsercizi_contabili*)this)->update();    // Fool the compiler
+    update();
   }
 }
 
@@ -434,9 +438,3 @@ const TEsercizio& TEsercizi_contabili::esercizio(int codice) const
   const int i = esc2index(codice);
   return esc(i);
 }
-
-
-
-
-
-