Sistemate maschere registri e libro unico

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

ba/ba2100.cpp

@@ -252,16 +252,11 @@ bool TForm_editor::edit(char s, pagetype t)
   
   if (dirty && yesno_box("Salvare le modifiche?"))
   {
-    CURSOR old = get_cursor(TASK_WIN);
-    set_cursor(TASK_WIN, CURSOR_WAIT);
-    
     const TFilename& n = _form->name();
     TFilename bak(n); bak.ext("bak");
     rename(n, bak);
     ofstream out(n);
     _form->print_on(out);
-    
-    set_cursor(TASK_WIN, old);
   }
 
   return dirty;

ba/ba6100.cpp

@@ -136,19 +136,20 @@ bool mask_reset_fields(TMask_field& mf, KEY k)
 {
   if (k == K_SPACE)
   {  
-    BA6100_App* a =  (BA6100_App*)MainApp();
+    TMask& m = mf.mask();
-    mf.mask().field(FLD_BA6B_INDROW).set(format("%d",a->_ind_row));
+    BA6100_App& a = (BA6100_App&)main_app();
-    mf.mask().field(FLD_BA6B_INDCOL).set(format("%d",a->_ind_col));
+    m.set(FLD_BA6B_INDROW, a._ind_row));
-    mf.mask().field(FLD_BA6B_PIVROW).set(format("%d",a->_piv_row));
+  m.set(FLD_BA6B_INDCOL, a._ind_col));
-    mf.mask().field(FLD_BA6B_PIVCOL).set(format("%d",a->_piv_col));
+  m.set(FLD_BA6B_PIVROW, a._piv_row));
-    mf.mask().field(FLD_BA6B_CODROW).set(format("%d",a->_cod_row));
+  m.set(FLD_BA6B_PIVCOL, a._piv_col));
-    mf.mask().field(FLD_BA6B_CODCOL).set(format("%d",a->_cod_col));
+  m.set(FLD_BA6B_CODROW, a._cod_row));
-    mf.mask().field(FLD_BA6B_TOTROW).set(format("%d",a->_rows_et));
+  m.set(FLD_BA6B_CODCOL, a._cod_col));
-    mf.mask().field(FLD_BA6B_TOTCOL).set(format("%d",a->_cols_et));
+  m.set(FLD_BA6B_TOTROW, a._rows_et));
-    mf.mask().field(CHK_BA6B_PIVA).set(a->_is_piv ? "X" : " ");
+  m.set(FLD_BA6B_TOTCOL, a._cols_et));
-    mf.mask().field(CHK_BA6B_CODICE).set(a->_is_cod ?"X": " ");
+  m.set(CHK_BA6B_PIVA, a._is_piv ? "X" : " ");
-  }
+  m.set(CHK_BA6B_CODICE, a._is_cod ? "X": " ");
-  return TRUE;
+}
+return TRUE;
 }
 
 

ba/batbinl.uml

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

ba/batblbu.uml

@@ -10,55 +10,65 @@ PAGE "Tabella libro unico" -1 -1 78 18
 
 NUMBER F_ANNO 4
 BEGIN
-  PROMPT 4 1 "Anno esercizio     "
+  PROMPT 3 1 "Anno esercizio       "
-  FIELD %LBU->CODTAB[1,4]
+  FIELD CODTAB[1,4]
-  USE %LBU KEY 1 ALIAS 50
+  FLAGS "AZ"
-  CHECKTYPE REQUIRED
+  USE %LBU
   INPUT CODTAB[1,4] F_ANNO
+  INPUT CODTAB[5,7] F_CODLIB
   DISPLAY "Anno" CODTAB[1,4]
-  DISPLAY "Codice libro unico" CODTAB[5,7]
+  DISPLAY "Codice" CODTAB[5,7]
+  DISPLAY "Descrizione@50" S0
   OUTPUT F_ANNO CODTAB[1,4]
   OUTPUT F_CODLIB CODTAB[5,7]
+  OUTPUT F_DESCRLBU S0
+  CHECKTYPE REQUIRED
   KEY 1
 END
 
 STRING F_CODLIB 3
 BEGIN
-  PROMPT 4 2 "Codice libro unico "
+  PROMPT 45 1 "Codice "
   FLAGS "U"
-  FIELD %LBU->CODTAB[5,7]
+  FIELD CODTAB[5,7]
-  COPY USE F_ANNO
+  COPY ALL F_ANNO
-  INPUT CODTAB[5,7] F_CODLIB
-  COPY DISPLAY F_ANNO
-  COPY OUTPUT F_ANNO
   CHECKTYPE REQUIRED
+  VALIDATE ZEROFILL_FUNC 3
   KEY 1
 END
 
+STRING F_DESCRLBU 50
+BEGIN
+  PROMPT 3 2 "Descrizione          "
+  FIELD S0
+  USE %LBU KEY 2
+  INPUT S0 F_DESCRLBU
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Anno" CODTAB[1,4]
+  DISPLAY "Codice libro unico" CODTAB[5,7]
+  COPY OUTPUT F_CODLIB
+  CHECKTYPE REQUIRED
+  KEY 2
+END
+  
 LIST F_ULT_MESE_STAMP 2 10
 BEGIN
-  PROMPT 45 1 "Ultimo mese stampa "
+  PROMPT 3 3 "Ultimo mese stampa   "
-  FIELD %LBU->I0
+  FIELD I0
   ITEM " |Nessuno"
   FLAGS "M"
 END
 
 NUMBER F_ULT_PAG 5
 BEGIN
-  PROMPT 45 2 "Ultima pagina      "
+  PROMPT 45 3 "Ultima pagina      "
-  FIELD %LBU->I1
+  FIELD I1
-END
-
-STRING F_DESCRLBU 50
-BEGIN
-  PROMPT 4 3 "Descrizione        "
-  FIELD %LBU->S0
 END
 
 LIST F_TIPOA 10
 BEGIN
   PROMPT 3 4 "Tipo persona         "
-  FIELD %LBU->S2
+  FIELD S2
   ITEM "F|Fisica"
   ITEM "G|Giuridica"
 END
@@ -66,7 +76,7 @@ END
 STRING F_TIPOANAGR 50
 BEGIN
   PROMPT 3 5 "Tipo anagrafico      "
-  FIELD %LBU->S1
+  FIELD S1
   USE LF_ANAG KEY 2
   INPUT TIPOA F_TIPOA
   INPUT RAGSOC F_TIPOANAGR
@@ -80,7 +90,7 @@ END
 NUMBER F_CODTABLIB 2
 BEGIN
   PROMPT 3 6 "Codice libro         "
-  FIELD %LBU->I3
+  FIELD I3
   FLAGS "Z"
   USE %ITL
   INPUT CODTAB F_CODTABLIB
@@ -89,7 +99,6 @@ BEGIN
   OUTPUT F_CODTABLIB CODTAB
   OUTPUT F_DESCR S0
   CHECKTYPE NORMAL
-  HELP "Inserire il codice del libro"
 END
 
 STRING F_DESCR 50
@@ -101,57 +110,57 @@ END
 STRING F_CONSPRESSO 40
 BEGIN
   PROMPT 3 8 "Conservato presso    "
-  FIELD %LBU->S3
+  FIELD S3
 END
 
 STRING F_CODVID 3
 BEGIN
   PROMPT 3 9 "Codice vidimazione   "
-  FIELD %LBU->S4
+  FIELD S4
 END
 
 DATE F_DATAVID
 BEGIN
   PROMPT 3 10 "Data vidimazione     "
-  FIELD %LBU->D0
+  FIELD D0
 END
 
 DATE F_DATASCAD
 BEGIN
   PROMPT 45 10 "Data scadenza      "
-  FIELD %LBU->D1
+  FIELD D1
 END
 
 NUMBER F_NUMPAG 5
 BEGIN
   PROMPT 3 12 "Num.pag. libro unico "
-  FIELD %LBU->I2
+  FIELD I2
 END
 
 BOOLEAN F_STAMPAINT
 BEGIN
-  PROMPT 3 14 "Stampa intestazione studio su libro unico"
+  PROMPT 3 13 "Stampa intestazione studio su libro unico"
-  FIELD %LBU->B0
+  FIELD B0
 END
 
 BOOLEAN F_STAMPAINDCOMP
 BEGIN
-  PROMPT 3 15 "Stampa l' indirizzo completo della ditta"
+  PROMPT 3 14 "Stampa l' indirizzo completo della ditta"
-  FIELD %LBU->B1
+  FIELD B1
 END
 
 RADIOBUTTON F_MODULO 27
 BEGIN
-  PROMPT 3 17 "Formato modulo di stampa   "
+  PROMPT 3 15 "Formato modulo di stampa   "
   ITEM "66|11 pollici (27,94 cm)"
   ITEM "72|12 pollici (30,48 cm)"
 END
 
 RADIOBUTTON F_STAMPA 27
 BEGIN
-  PROMPT 46 17 "Numero caratteri           "
+  PROMPT 46 15 "Numero caratteri           "
-  ITEM "1|132 crt."
+  ITEM "1|132 caratteri per riga"
-  ITEM "2|198 crt."
+  ITEM "2|198 caratteri per riga"
 END
 
 ENDPAGE

ba/batbreg.uml

@@ -211,9 +211,11 @@ END
 STRING F_CODLBU 3
 BEGIN
   PROMPT 1 15 "Cod. libro unico  "
-  HELP "Codice del libro unico a cui fa riferimento"
-  GROUP 2 3 4
   FIELD S6
+  HELP "Codice del libro unico a cui fa riferimento"
+  FLAGS "U"
+  VALIDATE ZEROFILL_FUNC 3
+  GROUP 2 3 4
   USE %LBU
   INPUT CODTAB[1,4] F_ANNO
   INPUT CODTAB[5,7] F_CODLBU
@@ -222,7 +224,6 @@ BEGIN
   DISPLAY "Descrizione@50" S0
   OUTPUT F_ANNO CODTAB[1,4]
   OUTPUT F_CODLBU CODTAB[5,7]
-  ADD RUN ba3 -4
   CHECKTYPE NORMAL
   WARNING "Libro unico assente"
 END