Aggiunta tabella indici libro unico

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

ba/ba0.cpp

@@ -147,8 +147,8 @@ bool TMenu_application::_find_button = FALSE;
 inline TMenu_application& app() 
 { return (TMenu_application&)main_app(); }
 
-bool TMenu_application::build_firm_data(long codditta, bool flagcom)
 
+bool TMenu_application::build_firm_data(long codditta, bool flagcom)
 {
   const char * const ndir = "/dir.gen";
   const char * const ntrc = "/trc.gen";
@@ -183,7 +183,7 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
     return error_box("Impossibile copiare il file %s della ditta %ld",
                      ntrc, codditta);
 
-  set_cursor(TASK_WIN, CURSOR_WAIT);
+  begin_wait();
   const long old_firm = get_firm();
   TDir dir, dir1;
   TTrec rec;
@@ -209,7 +209,7 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
     dir.put(LF_DIR, _nordir, _sysdirop);
     rec.zero();
   }
-  TString mess("Generazione archivi della ditta "); mess << codditta;
+  TString80 mess("Generazione archivi della ditta "); mess << codditta;
   TProgind p(maxeod0 ? maxeod0 : 1, mess, TRUE, TRUE, 70);
 
   for (int i = LF_DIR + 1; i <= maxeod0; i++)
@@ -244,8 +244,9 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
   }
 
   set_firm(old_firm);
-  set_cursor(TASK_WIN, CURSOR_ARROW);
   set_autoload_new_files(TRUE);
+  end_wait();
+  
   return TRUE;
 }
 

ba/batbinl.h

@@ -0,0 +1,16 @@
+#define F_ANNOREG  101
+#define F_MESE     102
+#define F_PINI_LU  103
+#define F_PFIN_LU  104
+#define F_DITTA    105
+#define F_RAGSOC   106
+#define F_CODREG   107
+#define F_DESCREG  108
+#define F_PINI_RU  109
+#define F_PFIN_RU  110
+#define F_CODVID   111
+#define F_STAMPATO 112
+#define F_PANN_LU  113
+#define F_ANNO     114
+#define F_CODLIB   115
+#define F_INDEX    116

ba/batbinl.uml

@@ -0,0 +1,156 @@
+#include "batbinl.h"
+
+TOOLBAR "" 0 20 0 2
+
+#include <toolbar.h>
+
+ENDPAGE        
+
+PAGE "Tabella Indici Libro Unico" -1 -1 71 20
+
+NUMBER F_ANNO 4
+BEGIN
+  PROMPT 4 1 "Anno esercizio     "
+  FLAGS "AZ"
+  FIELD %INL->CODTAB[1,4]
+  USE %LBU
+  INPUT F_ANNO CODTAB[1,4]
+  INPUT F_CODLIB CODTAB[5,7]
+  DISPLAY "Anno" CODTAB[1,4]
+  DISPLAY "Codice libro unico" CODTAB[5,7]
+  OUTPUT F_ANNO CODTAB[1,4]
+  OUTPUT F_CODLIB CODTAB[5,7]
+  CHECKTYPE REQUIRED
+  KEY 1
+END
+
+STRING F_CODLIB 3
+BEGIN
+  PROMPT 34 1 "Codice libro unico "
+  FLAGS "U"
+  FIELD %INL->CODTAB[5,7]
+  COPY ALL F_ANNO
+  CHECKTYPE REQUIRED
+  KEY 1
+END
+
+NUMBER F_INDEX 7
+BEGIN
+  PROMPT 54 1 "Indice "
+  FLAGS "Z"
+  FIELD %INL->CODTAB[8,14]
+  USE %INL
+  COPY INPUT F_ANNO
+  INPUT CODTAB[8,14] F_INDEX
+  COPY DISPLAY F_ANNO
+  DISPLAY "Indice@7" CODTAB[8,14]
+  COPY OUTPUT F_ANNO
+  OUTPUT F_INDEX CODTAB[8,14]
+  CHECKTYPE REQUIRED
+  KEY 1
+END
+
+NUMBER F_ANNOREG 4
+BEGIN
+  PROMPT 1 2 "Anno registrazione "
+  FIELD %INL->I0
+  VALIDATE NOT_EMPTY_FUNC
+END
+
+LIST F_MESE 2 10
+BEGIN
+  PROMPT 38 2 "Mese registrazione "
+  FIELD %INL->I1
+  ITEMS " |Nessuno"
+  FLAGS "M"
+END
+
+STRING F_PINI_LU 5 5
+BEGIN
+  PROMPT 1 3 "Numero iniziale pagina registro unico  "
+  FIELD %INL->I2
+  FLAGS "R"
+END
+
+NUMBER F_PFIN_LU 5
+BEGIN
+  PROMPT 1 4 "Numero finale pagina registro unico    "
+  FIELD %INL->I3
+  FLAGS "R"
+END
+
+NUMBER F_DITTA 5
+BEGIN
+  PROMPT 1 6 "Codice ditta    "
+  FIELD %INL->I4
+  FLAGS "R"
+  USE LF_NDITTE
+  INPUT CODDITTA F_DITTA 
+  DISPLAY "Codice ditta" CODDITTA
+  DISPLAY "Ragione sociale@50" RAGSOC
+  OUTPUT F_DITTA CODDITTA
+  OUTPUT F_RAGSOC RAGSOC
+  CHECKTYPE NORMAL
+END
+
+STRING F_RAGSOC 50
+BEGIN
+  PROMPT 1 7 "Ragione sociale "
+  FLAGS "D"
+END
+
+STRING F_CODREG 3
+BEGIN
+  PROMPT 1 8 "Codice registro "
+  FIELD %INL->S0
+  USE REG
+  FLAGS "UZ"
+  INPUT CODTAB[5,7] F_CODREG
+  DISPLAY "Codice registro" CODTAB[5,7]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODREG CODTAB[5,7]
+  OUTPUT 113 S0
+  CHECKTYPE NORMAL
+END
+
+STRING F_DESCREG 50 50
+BEGIN
+  PROMPT 1 9 "Descrizione     "
+  FLAGS "D"
+END
+
+NUMBER F_PINI_RU 5
+BEGIN
+  PROMPT 1 11 "Numero iniziale pagina registro utente "
+  FIELD %INL->I5
+  FLAGS "R"
+END
+
+NUMBER F_PFIN_RU 5
+BEGIN
+  PROMPT 1 12 "Numero finale pagina registro utente   "
+  FIELD %INL->I6
+  FLAGS "R"
+END
+
+STRING F_CODVID 3 3
+BEGIN
+  PROMPT 1 14 "Codice vidimazione "
+  FIELD %INL->S1
+END
+
+BOOLEAN F_STAMPATO
+BEGIN
+  PROMPT 1 16 "Stampato su bollato "
+  FIELD %INL->B0
+END
+
+BOOLEAN F_PANN_LU
+BEGIN
+  PROMPT 36 16 "Pagine libro unico annullate"
+  FIELD %INL->B1
+END
+
+ENDPAGE
+
+ENDMASK