Modifiche estetiche e funzionali alle varie maschere.

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

ba/ba0.cpp

@@ -9,6 +9,9 @@ extern "C"
 { 
 #include <cpb.h> 
 }
+#include <dos.h>
+#else
+#include <dirent.h>
 #endif
 
 #include "ba0.h"
@@ -74,7 +77,7 @@ void TPicture_mask::handler(WINDOW win, EVENT* ep)
   {
 #if XVT_OS == XVT_OS_WIN
     if (_picture)
-      cpb_win_picture_draw_at(win, _picture, 1, 64);
+      cpb_win_picture_draw_at(win, _picture, 1, CHARY<<1);
     else
 #endif
     {
@@ -103,6 +106,7 @@ class TMenu_application : public TApplication
   int _level, _max;
 
 protected:
+  void test_temp() const;
   void load_menu();
   int do_level();
   virtual bool create();
@@ -210,9 +214,32 @@ int TMenu_application::do_level()
 }
 
 
+void TMenu_application::test_temp() const
+{
+  TFilename name; name.temp();
+  const TString16 ext = name.ext();
+  name.tempdir();
+  name << "/" << "*." << ext;
+#if XVT_OS == XVT_OS_WIN
+  struct _find_t f;
+  if (_dos_findfirst(name, _A_NORMAL, &f) == 0 &&
+      yesno_box("Si desidera cancellare i file temporanei (*.tmp)"))
+  {   
+    TFilename dir; dir.tempdir();
+    do
+    {
+      name = dir; 
+      name << "/" << f.name;
+      remove(name);
+    } while (_dos_findnext(&f) == 0);
+  }
+#endif
+}
+
 
 bool TMenu_application::create()
 {
+  test_temp();
   load_menu();
   dispatch_e_menu(BAR_ITEM(1));
   return TRUE;

ba/ba1102.cpp

@@ -7,7 +7,6 @@
 #include "ba1100.h"
 
 
-
 bool TEdit_file::browse(int logicnum, const char* name)
 {
   TRelation relation(logicnum);
@@ -27,9 +26,10 @@ bool TEdit_file::browse(int logicnum, const char* name)
     trac.add(n);
     head.add(n);
     
-    int len = curr.length(n);
+    TFieldtypes t = curr.type(n);
-    if (curr.type(n) == _datefld) len = 10;
+    const int len = (t == _datefld) ? 10 : curr.length(n);
-    if (len > (int)strlen(n)) head << '@' << len;
+    head << '@' << max(len, (int)strlen(n));
+    if (t == _realfld) head << 'R';
   }
   
   KEY ch;

ba/ba3.cpp

@@ -1,24 +1,33 @@
 #include <xvt.h>
-#include <strings.h>
+#include <stdlib.h>
+
+#include <checks.h>
 
 #include "ba3.h"
 
-#define usage   "Error - usage : %s -{0|1|2|3|4|5}"
+#define usage   "Error - usage : %s -{0|1|2|3|4|5|6}", argv[0]
 
 int main(int argc, char** argv)
 {
-  if (argc < 2) fatal_box(usage, argv[0]);
+  const int s = argc > 1 ? atoi(argv[1]+1) : -1;
-  
+  switch (s)
-  const TFixed_string s(argv[1]);
+  {
-
+  case 0: 
-  if (s == "-0") ba3100(argc,argv) ; else
+    ba3100(argc,argv) ; break;
-    if (s == "-1") ba3200(argc,argv) ; else
+  case 1: 
-      if (s == "-2") ba3300(argc,argv) ; else
+    ba3200(argc,argv) ; break;
-        if (s == "-3") ba3400(argc,argv) ; else
+  case 2: 
-          if (s == "-4") ba3500(argc,argv) ; else
+    ba3300(argc,argv) ; break;
-            if (s == "-5") ba3600(argc,argv) ; else
+  case 3: 
-              if (s == "-6") ba3700(argc,argv);
+    ba3400(argc,argv) ; break;
-              else fatal_box(usage, argv[0]) ;
+  case 4: 
-
+    ba3500(argc,argv) ; break;
+  case 5: 
+    ba3600(argc,argv) ; break;
+  case 6: 
+    ba3700(argc,argv); break;
+  default:  
+    error_box(usage); break;
+  }
   return 0;
 }

ba/ba4200b.uml

@@ -742,7 +742,7 @@ BOOLEAN F_TITCF
 BEGIN
   PROMPT 2 14 "Titolare conto fiscale"
   FIELD LF_ANAG->TITCF
-  HELP "Dire se e' titolare di conto fiscale"
+  HELP "Indica se la persona e' titolare di conto fiscale"
 END
 
 LIST F_TIPOSTDEL 12

ba/batb%ais.uml

@@ -9,12 +9,12 @@ STRING FLD_TABAIS_CODTAB 5
 BEGIN
 	PROMPT 2 1 "Codice      "
 	FIELD LF_TABCOM->CODTAB
-	HELP "Inserire il codice attivit…"
+	HELP "Codice dell'attivita'"
 	USE %AIS
 	CHECKTYPE REQUIRED
 	INPUT CODTAB FLD_TABAIS_CODTAB
 	DISPLAY "Codice" CODTAB
-	DISPLAY "Descrizione@40" S0
+	DISPLAY "Descrizione@50" S0
 	OUTPUT FLD_TABAIS_CODTAB CODTAB
 	OUTPUT FLD_TABAIS_S0 S0
 	KEY 1
@@ -25,11 +25,11 @@ STRING FLD_TABAIS_S0 40
 BEGIN
 	PROMPT 2 3 "Descrizione "
 	FIELD LF_TABCOM->S0
-	HELP "Inserire la descrizione dell'attivita'"
+	HELP "Descrizione dell'attivita'"
 	USE %AIS KEY 2
 	CHECKTYPE REQUIRED
 	INPUT S0 FLD_TABAIS_S0
-	DISPLAY "Descrizione@40" S0
+	DISPLAY "Descrizione@50" S0
 	DISPLAY "Codice" CODTAB
 	COPY OUTPUT FLD_TABAIS_CODTAB
 	KEY 2

ba/batb%ban.h

@@ -1,5 +1,3 @@
-
-
 //      campi maschera batb%ban.msk
 
 #define F_CODICEABI                            101
@@ -16,18 +14,5 @@
 #define F_PROV                                 112
 #define F_CODICEDIP                            113
 #define H_CODICEABI                            114
-
+#define H_DENOMABI                             115
-
-
-
-
-
-
-
-
-
-
-
-
-
 

ba/batb%ban.uml

@@ -13,14 +13,14 @@ NUMBER F_CODICEABI 5
 BEGIN
   PROMPT 6 1 "Codice ABI "
   FIELD %BAN->CODTAB[1,5]
-  FLAGS "RZ"
+  FLAGS "Z"
   KEY 1
   USE %BAN KEY 1 SELECT CODTAB ?= "?????"
   INPUT CODTAB F_CODICEABI
   DISPLAY "Codice ABI" CODTAB[1,5]
-  DISPLAY "Codice CAB" CODTAB[6,10]
+  DISPLAY "Istituto@50" S0
-  DISPLAY "Denominazione@50" S0
   OUTPUT F_CODICEABI CODTAB[1,5]
+  OUTPUT H_DENOMABI S0
   MESSAGE COPY,H_CODICEABI
 END
 
@@ -28,17 +28,20 @@ NUMBER F_CODICECAB 5
 BEGIN
   PROMPT 28 1 "Codice CAB "
   FIELD %BAN->CODTAB[6,10]
-  FLAGS "RZ"
+  FLAGS "Z"
   KEY 1     
-  USE %BAN 
+  USE %BAN SELECT CODTAB ?= "??????????"
   INPUT CODTAB[1,5] F_CODICEABI
   INPUT CODTAB[6,10] F_CODICECAB
-  COPY DISPLAY F_CODICEABI
+  DISPLAY "Codice ABI" CODTAB[1,5]
+  DISPLAY "Codice CAB" CODTAB[6,10]
+  DISPLAY "Denominazione@50" S0
+  DISPLAY "Dipendenza" I0
+  OUTPUT F_CODICEABI CODTAB[1,5]
   OUTPUT F_CODICECAB CODTAB[6,10]
   OUTPUT F_DENOM S0
-  OUTPUT F_CODICEABI CODTAB[1,5]
+  MESSAGE SHOW,F_ISTIT|SHOW,F_CODICEDIP|HIDE,H_DENOMABI|SHOW,F_DENOM
-  MESSAGE SHOW,F_ISTIT
+  MESSAGE EMPTY HIDE,F_ISTIT|HIDE,F_CODICEDIP|SHOW,H_DENOMABI|HIDE,F_DENOM
-  MESSAGE EMPTY HIDE,F_ISTIT
   VALIDATE AUTOEXIT_FUNC 2 F_CODICEABI F_CODICECAB
   GROUP GR_SEARCH
 END
@@ -47,12 +50,12 @@ NUMBER F_CODICEDIP 4
 BEGIN
   PROMPT 50 1 "Codice Dipendenza "
   FIELD %BAN->I0
-  FLAGS "RZ"
+  FLAGS "Z"
 END
 
 NUMBER H_CODICEABI 5
 BEGIN
-  FLAGS "HRZ"
+  FLAGS "HZ"
   COPY USE F_CODICEABI
   INPUT CODTAB F_CODICEABI
   COPY DISPLAY F_CODICEABI
@@ -71,17 +74,30 @@ BEGIN
   PROMPT 6 5 "Denominazione   "
   FIELD %BAN->S0
   KEY 2
-  USE %BAN KEY 2
+  USE %BAN KEY 2 SELECT CODTAB?="??????????"
   INPUT S0 F_DENOM
   DISPLAY "Denominazione@50" S0
-  INPUT CODTAB[1,5] F_CODICEABI
-  INPUT CODTAB[6,10] F_CODICECAB
   DISPLAY "Codice ABI" CODTAB[1,5]
   DISPLAY "Codice CAB" CODTAB[6,10]
+  DISPLAY "Dipendenza" I0
   COPY OUTPUT F_CODICECAB
   CHECKTYPE REQUIRED
 END
 
+STRING H_DENOMABI 50
+BEGIN
+  PROMPT 6 3 "Istituto        "
+  FIELD %BAN->S0
+  KEY 2
+  USE %BAN KEY 2 SELECT CODTAB ?= "?????"
+  INPUT S0 H_DENOMABI
+  DISPLAY "Istituto@50" S0
+  DISPLAY "Codice ABI" CODTAB[1,5]
+  COPY OUTPUT F_CODICECAB
+  OUTPUT H_DENOMABI S0
+  CHECKTYPE REQUIRED
+END
+
 GROUPBOX DLG_NULL 72 7
 BEGIN
   PROMPT 4 8 "Sede"
@@ -101,7 +117,7 @@ END
 
 STRING F_COMUNE 4
 BEGIN
-  PROMPT 6 11 "Comune         "
+  PROMPT 6 11 "Codice comune  "
   FLAGS "U"
   FIELD %BAN->S5 
   USE LF_COMUNI
@@ -119,7 +135,7 @@ END
 
 STRING F_DENCOM 50
 BEGIN
-  PROMPT 6 12 "Denominazione  "
+  PROMPT 6 12 "Comune         "
   USE LF_COMUNI KEY 2
   INPUT DENCOM F_DENCOM
 #include <comdden.h>

ba/batb%cpg.uml

@@ -9,28 +9,28 @@ PAGE "Tabella pagamenti" -1 -1 78 15
 STRING F_CODICE 4
 BEGIN
   PROMPT 4 1 "Codice          "
-  HELP "Inserire il codice di pagamento"
+  HELP "Codice di pagamento"
   FIELD LF_TABCOM->CODTAB
   FLAGS "U"
   USE %CPG 
-	CHECKTYPE REQUIRED
   INPUT CODTAB F_CODICE
   DISPLAY "Codice" CODTAB
-  DISPLAY "Descrizione@50" S0
+  DISPLAY "Tipo di pagamento@50" S0
   OUTPUT F_CODICE CODTAB
   OUTPUT F_DESC S0
+  CHECKTYPE REQUIRED
   KEY 1
 END 
 
 STRING F_DESC 50
 BEGIN
   PROMPT 4 3 "Descrizione     "
-  HELP "Inserire la descrizione"
+  HELP "Descrizione del tipo di pagamento"
   FIELD LF_TABCOM->S0
   USE %CPG KEY 2
   CHECKTYPE REQUIRED
   INPUT S0 F_DESC
-  DISPLAY "Descrizione@50" S0
+  DISPLAY "Tipo di pagamento@50" S0
   DISPLAY "Codice" CODTAB
   OUTPUT F_CODICE CODTAB
   OUTPUT F_DESC S0

ba/batb%dpn.uml

@@ -6,7 +6,7 @@ TOOLBAR "" 0 20 0 2
 
 ENDPAGE
 
-PAGE "Tabella descrizioni aggiuntive" -1 -1 78 8
+PAGE "Descrizioni aggiuntive" -1 -1 78 8
 
 STRING F_CODICE 5
 BEGIN
@@ -17,7 +17,7 @@ BEGIN
   USE %DPN 
   INPUT CODTAB F_CODICE
   DISPLAY "Codice" CODTAB
-  DISPLAY "Descrizione @50" S0
+  DISPLAY "Descrizione aggiuntiva@50" S0
   OUTPUT F_CODICE CODTAB
   OUTPUT F_DESCR S0
   CHECKTYPE REQUIRED
@@ -31,7 +31,7 @@ BEGIN
   USE %DPN KEY 2
   INPUT CODTAB F_CODICE
   INPUT S0 F_DESCR
-  DISPLAY "Descrizione @50" S0
+  DISPLAY "Descrizione aggiuntiva@50" S0
   DISPLAY "Codice" CODTAB
   OUTPUT F_CODICE CODTAB
   OUTPUT F_DESCR S0

ba/batb%iva.uml

@@ -20,6 +20,7 @@ BEGIN
   DISPLAY "Tipo" S1
   DISPLAY "%@5" R0
   DISPLAY "Vent." S6
+  DISPLAY "Sospeso" B2
   OUTPUT FLD_TABIVA_CODTAB CODTAB
   OUTPUT FLD_TABIVA_S0 S0
   HELP "Inserire il codice IVA"
@@ -38,6 +39,7 @@ BEGIN
   DISPLAY "Tipo" S1
   DISPLAY "%@5" R0
   DISPLAY "Vent." S6
+  DISPLAY "Sospeso" B2
   COPY OUTPUT FLD_TABIVA_CODTAB
   HELP "Inserire la descrizione del codice IVA"
   CHECKTYPE REQUIRED
@@ -83,7 +85,7 @@ END
 
 NUMBER FLD_TABIVA_R0 6 2
 BEGIN
-  PROMPT 3 4 "Percentuale "
+  PROMPT 3 4 "Aliquota    "
   FIELD R0
   HELP "Inserire la percentuale di imposta"
 END

ba/batb%ivd.uml

@@ -7,7 +7,7 @@ TOOLBAR "" 0 20 0 2
 
 ENDPAGE
 
-PAGE "Tabella codici IV direttiva CEE" -1 -1 78 15
+PAGE "Voci di bilancio IV direttiva CEE" -1 -1 78 15
 
 LIST F_SEZ 1 18
 BEGIN
@@ -35,6 +35,7 @@ BEGIN
   OUTPUT F_SEZ CODTAB[1,1]
   OUTPUT F_LETT CODTAB[2,2]
   OUTPUT F_DESCR_LETT S0
+  CHECKTYPE NORMAL
   HELP "Lettera secondo la IV dir. CEE"
   GROUP GR_SEARCH
 END
@@ -56,12 +57,13 @@ BEGIN
   INPUT CODTAB[3,6] F_CLASSE
   DISPLAY "Sezione" CODTAB[1,1]
   DISPLAY "Lettera" CODTAB[2,2]
-  DISPLAY "Classe  " CODTAB[3,6]
+  DISPLAY "Classe  @M" CODTAB[3,6]
   DISPLAY "Descrizione@50" S0
   OUTPUT F_SEZ CODTAB[1,1]
   OUTPUT F_LETT CODTAB[2,2]
   OUTPUT F_CLASSE CODTAB[3,6]
   OUTPUT F_DESCR_CLAS S0
+  CHECKTYPE NORMAL
   HELP "Classe secondo la IV dir. CEE (numero romano)"
 END
 
@@ -82,13 +84,13 @@ BEGIN
   INPUT CODTAB[7,8] F_NUM
   DISPLAY "Sezione" CODTAB[1,1]
   DISPLAY "Lettera" CODTAB[2,2]
-  DISPLAY "Classe  " CODTAB[3,6]
+  DISPLAY "Classe  @M" CODTAB[3,6]
   DISPLAY "Numero" CODTAB[7,8]
   DISPLAY "Descrizione@50" S0
+  OUTPUT F_NUM CODTAB[7,8]
   OUTPUT F_SEZ CODTAB[1,1]
   OUTPUT F_LETT CODTAB[2,2]
   OUTPUT F_CLASSE CODTAB[3,6]
-  OUTPUT F_NUM CODTAB[7,8]
   OUTPUT F_DESCR S0
   HELP "Numero (arabo) secondo la IV dir. CEE"
   VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM
@@ -104,7 +106,7 @@ BEGIN
   DISPLAY "Descrizione@50" S0
   DISPLAY "Sezione" CODTAB[1,1]
   DISPLAY "Lettera" CODTAB[2,2]
-  DISPLAY "Classe  " CODTAB[3,6]
+  DISPLAY "Classe  @M" CODTAB[3,6]
   DISPLAY "Numero" CODTAB[7,8]
   COPY OUTPUT F_NUM
   CHECKTYPE REQUIRED

ba/batb%val.uml

@@ -38,25 +38,17 @@ BEGIN
   CHECKTYPE REQUIRED
 END
 
-STRING FLD_TABVAL_S7 5
-BEGIN
-  PROMPT 3 5 "Simbolo     "
-  FIELD LF_TABCOM->S7
-  HELP "Simbolo della valuta"
-END
-
 NUMBER FLD_TABVAL_R0 15 5
 BEGIN
-  PROMPT 3 7 "Cambio      "
+  PROMPT 3 5 "Cambio      "
   FIELD LF_TABCOM->R10
   PICTURE ".5"
   FLAGS "R"
-  HELP "Cambio attuale"
 END
 
 DATE FLD_TABVAL_D0
 BEGIN
-  PROMPT 3 9 "Data        "
+  PROMPT 3 7 "Data        "
   FIELD LF_TABCOM->D0
   HELP "Data di ultimo aggiornamento"
 END

ba/batbreg.rpt

@@ -3,8 +3,8 @@
 Tabella dei registri
 
 [Rows]
-1|CODTAB[1,3]|@2gCodice: @3s
+1|CODTAB[5,7]|@2gCodice: @3s
-1|CODTAB[4,7]|@13gAnno: @4s
+1|CODTAB[1,4]|@13gAnno: @4s
 1|S0|@24gDescrizione: @25s
 1|I0|@64gTipo: @25t
 1|S7|@94gCod. libro: @3s

ba/prassi.mnu

@@ -21,7 +21,8 @@
 2|Tabelle|1
 2|Codici IVA|ba3 -0 %iva
 2|Codici Attivita'|ba3 -0 %ais
-2|Cond. di pagamento|ba3 -0 %cpg
+2|Condizioni di pagamento|ba3 -0 %cpg
+2|Classificazione pagamenti|ba3 -0 %clr
 2|Libri sociali|ba3 -0 %itl
 2|Banche|ba3 -0 %ban
 2|Codici statistici|ba3 -0 %stt
@@ -33,7 +34,8 @@
 3|Stampa tabelle|3
 3|Codici IVA|ba3 -1 %iva
 3|Codici Attivita'|ba3 -1 %ais
-3|Cond. di pagamento|ba3 -1 %cpg
+3|Condizioni di pagamento|ba3 -1 %cpg
+3|Classificazione pagamenti|ba3 -1 %clr
 3|Libri sociali|ba3 -1 %itl
 3|Banche|ba3 -1 %ban
 3|Codici statistici|ba3 -1 %stt
@@ -54,7 +56,8 @@
 4|Gestione Libro Unico|14
 5|Tabelle studio|1
 5|Tipi documento|ba3 -0 %tpd
-5|Cond. di pagamento|ba3 -0 %cpg
+5|Condizioni di pagamento|ba3 -0 %cpg
+5|Classificazione pagamenti|ba3 -0 %clr
 5|Descrizioni aggiuntive|ba3 -0 %dpn
 5|Codici IVA|ba3 -0 %iva
 5|Codici Attivita'|ba3 -0 %ais
@@ -65,7 +68,8 @@
 5|Valute|ba3 -0 %val
 5|Lingue|ba3 -0 %lng
 6|Stampa tabelle studio|3
-6|Cond. di pagamento|ba3 -1 %cpg
+6|Condizioni di pagamento|ba3 -1 %cpg
+6|Classificazione pagamenti|ba3 -1 %clr
 6|Descrizioni aggiuntive|ba3 -1 %dpn
 6|Codici IVA|ba3 -1 %iva
 6|Codici Attivita'|ba3 -1 %ais
@@ -91,6 +95,7 @@
 8|Banche|ba3 -1 %ban
 9|Prima nota|2
 9|Prima nota|cg2 -0
+9|Elimina movimenti provvisori|cg2 -1
 9|Ricalcolo saldi|cg4 -0
 9|IVA|10
 9|Lista movimenti|cg3 -0