diff --git a/ba/ba1100.cpp b/ba/ba1100.cpp index 3b383ac24..34cf0e90a 100755 --- a/ba/ba1100.cpp +++ b/ba/ba1100.cpp @@ -373,7 +373,6 @@ bool TManutenzione_app::create() // initvar e arrmask if (_superprassi) { _browse->add_button(DLG_CONVERT, BR("~Converti", 9), K_F7); -// _browse->add_button(DLG_INSFILE, BR("~Inserisci", 9), K_F6); if (is_power_station()) _browse->add_button(DLG_ADDFILE, BR("~Aggiungi", 9), K_F8); TButton_field& butt = ((TMask*)_browse)->add_button(DLG_OTHERFILE, 0, BR("A~ltri", 9), 0, -1, 9, 2, "", 0, 0); @@ -1279,7 +1278,6 @@ void TManutenzione_app::load_des(const int maxfdir) if (standard) // carica eventuali nuove descrizioni ed il nuovo livello archivi { // Cerca in RECDESC i files f[nnn].dir - ifstream infile; TString ws; TFilename fn; TDir td,new_dir; @@ -1291,11 +1289,10 @@ void TManutenzione_app::load_des(const int maxfdir) if (fexist(fn)) { + ifstream infile(fn); long fl; - infile.open(fn); infile >> fl; if (fl > flags) flags = fl; - infile.close(); } // scandisce *.dir in RECDESC @@ -1310,8 +1307,13 @@ void TManutenzione_app::load_des(const int maxfdir) for (int n = 0; n < totfiles; n++) { fn = list.row(n); - infile.open(fn); - infile >> td; + if (fn == "recdesc/f159.dir") + int cazzo = n; + if (fn.exist()) + { + ifstream infile(fn); + infile >> td; + } ln = td.num(); const bool is_new = ln > last_newln; // memorizza l'ultimo record scritto come nuovo if (is_new) // aggiunge i files che mancano @@ -1328,8 +1330,6 @@ void TManutenzione_app::load_des(const int maxfdir) td.put(ln,_nordir,_sysdirop); if (is_new) tr.put(ln); - infile.close(); - //unlink(fn); } d.eod() = (long)last_newln; diff --git a/ba/ba1100a.uml b/ba/ba1100a.uml index 67014befd..24537513b 100755 --- a/ba/ba1100a.uml +++ b/ba/ba1100a.uml @@ -40,7 +40,7 @@ BEGIN PROMPT 2 5 "Record usati " HELP "Numero di record utilizzati" WARNING "Numero di record errato" - NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=#FLD_EOX)} + NUM_EXPR (#THIS_FIELD>=0)&&(#THIS_FIELD<=#FLD_EOX) FLAGS "DR" GROUP 1 END @@ -60,7 +60,7 @@ BEGIN PROMPT 30 6 "Dimensione " HELP "Dimensione da assegnare al file" WARNING "Dimensione non corretta" - NUM_EXPR {#THIS_FIELD>=#FLD_EOD} + NUM_EXPR (#THIS_FIELD>=#FLD_EOD) FLAGS "DR" END diff --git a/ba/ba1100d.uml b/ba/ba1100d.uml index ff8f305a1..bad790deb 100755 --- a/ba/ba1100d.uml +++ b/ba/ba1100d.uml @@ -122,7 +122,7 @@ BEGIN PROMPT 2 5 "Decimali " FLAGS "UR" HELP "Decimali del campo" - NUM_EXPR {(#FLD_TIPO!=4)||(#THIS_FIELD+2<=#FLD_LEN)} + NUM_EXPR ((#FLD_TIPO!=4)||(#THIS_FIELD+2<=#FLD_LEN)) WARNING "Numero di decimali errato" END diff --git a/ba/ba2100f.uml b/ba/ba2100f.uml index f31be5865..7c1aecb51 100755 --- a/ba/ba2100f.uml +++ b/ba/ba2100f.uml @@ -60,7 +60,7 @@ END NUMBER F_X 3 BEGIN PROMPT 24 3 "Colonna " -NUM_EXPR {#F_X <= #F_NUMCOL} +NUM_EXPR (#F_X<=#F_NUMCOL) WARNING "Il numero di colonna deve essere minore del numero di colonne totali" HELP "Colonna in cui stampare" END diff --git a/ba/ba3300a.uml b/ba/ba3300a.uml index 13dff8135..095ed31e4 100755 --- a/ba/ba3300a.uml +++ b/ba/ba3300a.uml @@ -284,7 +284,7 @@ BEGIN PROMPT 2 14 "Numero pagina iniziale " HELP "Numero della prima pagina da numerare" FLAGS "R" - NUM_EXPR {#THIS_FIELD >= 0} + NUM_EXPR (#THIS_FIELD>=0) WARNING "Numero pagina iniziale errato: non puo' essere negativo" END @@ -293,7 +293,7 @@ BEGIN PROMPT 42 14 "Numero pagina finale " HELP "Numero dell'ultima pagina da numerare" FLAGS "R" - NUM_EXPR {#THIS_FIELD>=(#F_NPAGINI+2)} + NUM_EXPR (#THIS_FIELD>=(#F_NPAGINI+2)) WARNING "Numero pagina finale errato: deve essere maggiore o uguale a quello iniziale + 2" END diff --git a/ba/ba3600a.uml b/ba/ba3600a.uml index 448d692fe..1078e4f79 100755 --- a/ba/ba3600a.uml +++ b/ba/ba3600a.uml @@ -103,7 +103,7 @@ NUMBER F_MESEDA 2 BEGIN PROMPT 8 14 "dal : mese " HELP "Primo mese di cui stampare i movimenti" - NUM_EXPR {(#THIS_FIELD >= 1) && (#THIS_FIELD <= 12)} + NUM_EXPR ((#THIS_FIELD >= 1)&&(#THIS_FIELD <= 12)) END NUMBER F_ANNODA 4 @@ -116,7 +116,7 @@ NUMBER F_MESEA 2 BEGIN PROMPT 8 15 "al : mese " HELP "Ultimo mese di cui stampare i movimenti" - NUM_EXPR {(#THIS_FIELD >= 1) && (#THIS_FIELD <= 12)} + NUM_EXPR ((#THIS_FIELD >= 1)&&(#THIS_FIELD <= 12)) END NUMBER F_ANNOA 4 @@ -174,7 +174,7 @@ NUMBER F_STAMPA_MESE 2 BEGIN PROMPT 4 11 "Stampa mese " HELP "Mese di cui effettuare la stampa" - NUM_EXPR {(#THIS_FIELD >= #F_STAMPA_MESEG) && (#THIS_FIELD <= 12)} + NUM_EXPR ((#THIS_FIELD >= #F_STAMPA_MESEG)&&(#THIS_FIELD <= 12)) WARNING "Il mese da stampare deve essere maggiore o uguale all'ultimo mese di stampa indicato sulla tabella del libro unico selezionato" CHECKTYPE REQUIRED END diff --git a/ba/ba3601a.uml b/ba/ba3601a.uml index 7bacc2c23..6bb5d1a60 100755 --- a/ba/ba3601a.uml +++ b/ba/ba3601a.uml @@ -35,7 +35,7 @@ NUMBER F_MESEDA 2 BEGIN PROMPT 3 4 "Dal mese " HELP "Primo mese di cui stampare i movimenti" - NUM_EXPR {(#THIS_FIELD >= 1) && (#THIS_FIELD <= 12)} + NUM_EXPR ((#THIS_FIELD >= 1)&&(#THIS_FIELD <= 12)) CHECKTYPE REQUIRED WARNING "Il valore deve essere compreso tra 1 e 12" END @@ -44,7 +44,7 @@ NUMBER F_MESEA 2 BEGIN PROMPT 28 4 "Al mese " HELP "Ultimo mese di cui stampare i movimenti" - NUM_EXPR {(((#THIS_FIELD >= 1) && (#THIS_FIELD <= 12)) && (#THIS_FIELD >= #F_MESEDA))} + NUM_EXPR ((((#THIS_FIELD >= 1)&&(#THIS_FIELD <= 12))&&(#THIS_FIELD >= #F_MESEDA))) CHECKTYPE REQUIRED WARNING "Il valore deve essere compreso tra 1 e 12 ed essere maggiore o uguale al mese di partenza" END diff --git a/ba/ba4300a.uml b/ba/ba4300a.uml index fe95705c2..7ba34f317 100755 --- a/ba/ba4300a.uml +++ b/ba/ba4300a.uml @@ -452,7 +452,7 @@ NUMBER FLD_GD2_MESIREDD 3 BEGIN PROMPT 45 6 "Mesi produzione reddito " FIELD LF_NDITTE->MESIREDD - NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)} + NUM_EXPR ((#THIS_FIELD>=0)&&(#THIS_FIELD<=12)) FLAGS "R" HELP "Numero di mesi di produzione reddito" WARNING "Numero di mesi non corretto" diff --git a/ba/ba4600a.uml b/ba/ba4600a.uml index a3f1e6fb5..06e1c03e1 100755 --- a/ba/ba4600a.uml +++ b/ba/ba4600a.uml @@ -184,7 +184,7 @@ BEGIN FLAGS "R" HELP "Percentuale delle azioni possedute dal socio" WARNING "Percentuale quote non corretta" - NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)} + NUM_EXPR ((#THIS_FIELD>=0)&&(#THIS_FIELD<=100)) END NUMBER FLD_SC1_PERCAZREDD 7 3 @@ -194,7 +194,7 @@ BEGIN FLAGS "R" HELP "Reddito derivante da quote aziendali" WARNING "Percentuale quote non corretta" - NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)} + NUM_EXPR ((#THIS_FIELD>=0)&&(#THIS_FIELD<=100)) END NUMBER FLD_SC1_PERCAZPERD 7 3 @@ -204,7 +204,7 @@ BEGIN FLAGS "R" HELP "Perdita derivante da quote aziendali" WARNING "Percentuale quote non corretta" - NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)} + NUM_EXPR ((#THIS_FIELD>=0)&&(#THIS_FIELD<=100)) END LIST LST_SC1_RICQUAL 28 @@ -375,7 +375,7 @@ BEGIN FLAGS "R" HELP "Numero di mesi lavorati ex art.120 comma 1" WARNING "N.ro di mesi non corretto" - NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)} + NUM_EXPR ((#THIS_FIELD>=0)&&(#THIS_FIELD<=12)) END NUMBER FLD_SC2_MLAV120C2 2 @@ -385,7 +385,7 @@ BEGIN FLAGS "R" HELP "Numero di mesi lavorati ex art.120 comma 2" WARNING "N.ro di mesi non corretto" - NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)} + NUM_EXPR ((#THIS_FIELD>=0)&&(#THIS_FIELD<=12)) END TEXT DLG_NULL diff --git a/ba/batbinl.uml b/ba/batbinl.uml index f2cb4cb99..b8288fb67 100755 --- a/ba/batbinl.uml +++ b/ba/batbinl.uml @@ -88,7 +88,7 @@ BEGIN PROMPT 1 4 "Numero pagina finale registro unico " FIELD PAGFIN FLAGS "UR" - NUM_EXPR {#THIS_FIELD>=#F_PINI_LU} + NUM_EXPR (#THIS_FIELD>=#F_PINI_LU) CHECKTYPE REQUIRED WARNING "Inserire un numero di pagina superiore a quella iniziale" END diff --git a/ba/batbvid.uml b/ba/batbvid.uml index b0d3d8ce2..91c98f095 100755 --- a/ba/batbvid.uml +++ b/ba/batbvid.uml @@ -79,7 +79,7 @@ BEGIN FLAGS "R" CHECKTYPE REQUIRED WARNING "Specificare un numero di pagina superiore a quella iniziale" - NUM_EXPR {(#THIS_FIELD>=#F_PAGDA)} + NUM_EXPR ((#THIS_FIELD>=#F_PAGDA)) END ENDPAGE