Merge remote-tracking branch 'origin/R_10_00' into R_10_00

This commit is contained in:
Simone Palacino 2020-07-21 10:54:44 +02:00
commit aaeaa0c1bf
10 changed files with 188 additions and 125 deletions

4
cd/test/ba0980.txt Normal file
View File

@ -0,0 +1,4 @@
ba8200b.msk
ba8.exe
- Corretta generazione quesry per il file del 770

32
cd/test/ba0980a.ini Normal file
View File

@ -0,0 +1,32 @@
[Main]
Demo=0
[ba8]
File(503) = ba8.exe|X
File(505) = ba8200b.msk|X
Patch = 980
Versione = 21511200
[ba99]
Kill(0) = wxmsw240.dll|x
Kill(1) = batbsce.txt|x
Kill(2) = bastfsc.rep|x
Kill(3) = bastfsc.msk|x
Kill(4) = bastcms.msk|x
Kill(5) = bastcms.rep|x
Kill(6) = bastuue.rep|x
Kill(7) = bastuue.msk|x
[ba]
Data = 11-07-2020
Descrizione = Base
Dischi = 1
Moduli = sy
OEM =
Patch = 980
PostProcess = bainst -0 BA
PreProcess =
Prezzo(1) =
Prezzo(2) =
Versione = 21511200

BIN
cd/test/ba0980a1.zip Normal file

Binary file not shown.

View File

@ -3,3 +3,5 @@ f90.exe
Corretta associazione MovimentoInErrore-FPPRO rimuovendo correttamente il record anche alla riapertura e corretto il reset del filtro date.
Rimossi flag non utilizzati dalla maschera di configurazione.
Corretta prima registrazione delle categorie doc. continuava a dare errore che erano incomplete.
Aggiunto doppio percorso cartella cartacei WebApp in configurazione.
Corretta copia file cartacei nella cartella cartacei WebApp.

View File

@ -7,7 +7,7 @@ Patch = 0978
Versione = 21511200
[f9]
Data = 14-07-2020
Data = 15-07-2020
Descrizione = Archiviazione Sostitutiva
Dischi = 1
Moduli = fp,cg

Binary file not shown.

View File

@ -3,119 +3,119 @@ Demo=0
[ve0]
Edit_163 = ve0 -6
Edit_4 = ve0 -6
Edit_5 = ve0 -6
Edit_4 = ve0 -4
Edit_5 = ve0 -4
File(20) = ve0.exe|X
Patch = 978
Versione = 21511200
[ve99]
Kill(0) = batbimb.msk|x
Kill(1) = batbacr.msk|x
Kill(2) = batbcau.msk|x
Kill(3) = bastgmc.rep|x
Kill(4) = batbtip.msk|x
Kill(5) = ve7.exe|x
Kill(6) = batbfrm.msk|x
Kill(7) = efstbnp.msk|x
Kill(8) = bastfrd.rep|x
Kill(9) = batbcra.msk|x
Kill(10) = batbums.msk|x
Kill(11) = ve7300a.msk|x
Kill(12) = batbnum.msk|x
Kill(13) = bastimb.rep|x
Kill(14) = basteld.msk|x
Kill(15) = bastrfa.msk|x
Kill(16) = batbprv.msk|x
Kill(17) = bastums.rep|x
Kill(18) = batbfid.msk|x
Kill(19) = ve7500a.msk|x
Kill(20) = efstbnp.rep|x
Kill(21) = batbprs.msk|x
Kill(22) = bastfrr.rep|x
Kill(23) = batbctr.msk|x
Kill(0) = batbcld.msk|x
Kill(1) = bastspp.rep|x
Kill(2) = bastgca.rep|x
Kill(3) = batbeld.msk|x
Kill(4) = bastubi.msk|x
Kill(5) = batbasf.msk|x
Kill(6) = bastprs.rep|x
Kill(7) = bastgcg.rep|x
Kill(8) = bastcaa.rep|x
Kill(9) = basttip.msk|x
Kill(10) = baststd.rep|x
Kill(11) = batbabe.msk|x
Kill(12) = ve7200a.frm|x
Kill(13) = ve7400a.ini|x
Kill(14) = batbgcg.msk|x
Kill(15) = bastubi.rep|x
Kill(16) = ve7700a.msk|x
Kill(17) = batbtri.msk|x
Kill(18) = bastasf.msk|x
Kill(19) = bastctr.rep|x
Kill(20) = ve7500a.msk|x
Kill(21) = batbstd.msk|x
Kill(22) = ve7600a.msk|x
Kill(23) = batbfid.msk|x
Kill(24) = basteld.rep|x
Kill(25) = batbstd.msk|x
Kill(26) = batbmre.msk|x
Kill(27) = ve7200a.msk|x
Kill(28) = batbfrr.msk|x
Kill(29) = batbubi.msk|x
Kill(30) = basttag.msk|x
Kill(31) = ve7600a.msk|x
Kill(32) = bastnum.rep|x
Kill(33) = batbgca.msk|x
Kill(34) = batbrfa.msk|x
Kill(35) = ve7100a.msk|x
Kill(36) = bastasf.rep|x
Kill(37) = ve7300a.frm|x
Kill(38) = bastrfa.rep|x
Kill(39) = bastbnp.msk|x
Kill(40) = bastgcg.msk|x
Kill(41) = bastgca.msk|x
Kill(42) = bastcra.msk|x
Kill(43) = batbpro.msk|x
Kill(44) = bastfrm.rep|x
Kill(45) = ve7400a.msk|x
Kill(46) = bastcaa.msk|x
Kill(47) = batbtag.msk|x
Kill(48) = basttag.rep|x
Kill(49) = bastums.msk|x
Kill(50) = bastimb.msk|x
Kill(51) = bastcau.rep|x
Kill(52) = batbcaa.msk|x
Kill(53) = bastfca.msk|x
Kill(54) = bastfrm.msk|x
Kill(55) = baststd.msk|x
Kill(56) = batbgmc.msk|x
Kill(57) = batbfrd.msk|x
Kill(58) = bastabe.msk|x
Kill(59) = batbgsa.msk|x
Kill(60) = batbspt.msk|x
Kill(61) = basttri.msk|x
Kill(62) = bastfrd.msk|x
Kill(63) = bastnum.msk|x
Kill(64) = basttip.rep|x
Kill(65) = bastprs.msk|x
Kill(66) = bastspp.msk|x
Kill(67) = ve7400conf.ini|x
Kill(68) = basttri.rep|x
Kill(69) = eftbbnp.msk|x
Kill(70) = bastrfc.rep|x
Kill(71) = bastrfc.msk|x
Kill(72) = batbfsa.msk|x
Kill(73) = batbspp.msk|x
Kill(74) = bastfca.rep|x
Kill(75) = ve7701a.ini|x
Kill(76) = bastctr.msk|x
Kill(77) = bastcau.msk|x
Kill(78) = bastabe.rep|x
Kill(79) = batbbnp.msk|x
Kill(80) = batbtri.msk|x
Kill(81) = ve7700a.msk|x
Kill(82) = bastctr.rep|x
Kill(83) = bastasf.msk|x
Kill(84) = baststd.rep|x
Kill(85) = bastcaa.rep|x
Kill(86) = batbgcg.msk|x
Kill(87) = ve7200a.frm|x
Kill(88) = bastubi.msk|x
Kill(89) = bastgca.rep|x
Kill(90) = batbabe.msk|x
Kill(91) = basttip.msk|x
Kill(92) = bastubi.rep|x
Kill(93) = ve7400a.ini|x
Kill(94) = batbasf.msk|x
Kill(95) = batbeld.msk|x
Kill(96) = bastgcg.rep|x
Kill(97) = bastprs.rep|x
Kill(98) = bastspp.rep|x
Kill(99) = batbcld.msk|x
Kill(100) = batbrfc.msk|x
Kill(101) = bastgmc.msk|x
Kill(102) = bastbnp.rep|x
Kill(103) = bastfrr.msk|x
Kill(104) = bastcra.rep|x
Kill(105) = batbfca.msk|x
Kill(25) = basttag.msk|x
Kill(26) = ve7200a.msk|x
Kill(27) = batbgca.msk|x
Kill(28) = batbmre.msk|x
Kill(29) = bastnum.rep|x
Kill(30) = bastrfa.msk|x
Kill(31) = batbprs.msk|x
Kill(32) = basteld.msk|x
Kill(33) = efstbnp.rep|x
Kill(34) = bastums.rep|x
Kill(35) = batbctr.msk|x
Kill(36) = batbprv.msk|x
Kill(37) = bastfrr.rep|x
Kill(38) = ve7300a.msk|x
Kill(39) = batbums.msk|x
Kill(40) = bastimb.rep|x
Kill(41) = batbnum.msk|x
Kill(42) = batbgsa.msk|x
Kill(43) = bastprs.msk|x
Kill(44) = bastrfc.msk|x
Kill(45) = bastabe.msk|x
Kill(46) = basttip.rep|x
Kill(47) = bastrfc.rep|x
Kill(48) = ve7400conf.ini|x
Kill(49) = batbspp.msk|x
Kill(50) = bastspp.msk|x
Kill(51) = batbfsa.msk|x
Kill(52) = bastums.msk|x
Kill(53) = baststd.msk|x
Kill(54) = basttri.msk|x
Kill(55) = basttag.rep|x
Kill(56) = bastfrm.msk|x
Kill(57) = batbspt.msk|x
Kill(58) = batbfrd.msk|x
Kill(59) = bastnum.msk|x
Kill(60) = batbgmc.msk|x
Kill(61) = bastfrd.msk|x
Kill(62) = bastbnp.msk|x
Kill(63) = ve7400a.msk|x
Kill(64) = bastcau.rep|x
Kill(65) = bastrfa.rep|x
Kill(66) = bastfrm.rep|x
Kill(67) = bastimb.msk|x
Kill(68) = batbtag.msk|x
Kill(69) = bastfca.msk|x
Kill(70) = bastcaa.msk|x
Kill(71) = batbcaa.msk|x
Kill(72) = batbubi.msk|x
Kill(73) = ve7100a.msk|x
Kill(74) = bastgca.msk|x
Kill(75) = batbfrr.msk|x
Kill(76) = batbrfa.msk|x
Kill(77) = bastgcg.msk|x
Kill(78) = ve7300a.frm|x
Kill(79) = batbpro.msk|x
Kill(80) = bastasf.rep|x
Kill(81) = bastcra.msk|x
Kill(82) = batbbnp.msk|x
Kill(83) = bastabe.rep|x
Kill(84) = eftbbnp.msk|x
Kill(85) = ve7701a.ini|x
Kill(86) = basttri.rep|x
Kill(87) = bastfca.rep|x
Kill(88) = bastcau.msk|x
Kill(89) = bastctr.msk|x
Kill(90) = batbfca.msk|x
Kill(91) = bastcra.rep|x
Kill(92) = bastgmc.msk|x
Kill(93) = batbrfc.msk|x
Kill(94) = bastfrr.msk|x
Kill(95) = bastbnp.rep|x
Kill(96) = batbcra.msk|x
Kill(97) = bastfrd.rep|x
Kill(98) = batbacr.msk|x
Kill(99) = batbimb.msk|x
Kill(100) = ve7.exe|x
Kill(101) = batbtip.msk|x
Kill(102) = bastgmc.rep|x
Kill(103) = batbcau.msk|x
Kill(104) = efstbnp.msk|x
Kill(105) = batbfrm.msk|x
[ve]
Data = 30-06-2020

Binary file not shown.

View File

@ -138,12 +138,22 @@ public:
int TTable_mask::father_logicnum() const
{
return table2logic(get(F_FATHER));
TFilename n = get(F_FATHER);
int logic = table2logic(n);
if (logic <= 0)
logic = table2logic(n.name_only());
return logic;
}
int TTable_mask::son_logicnum() const
{
return table2logic(get(F_SON));
TFilename n = get(F_SON);
int logic = table2logic(n);
if (logic <= 0)
logic = table2logic(n.name_only());
return logic;
}
// Dato il numero logico di una tabella ed un campo (di un'altra tabella)
@ -263,13 +273,14 @@ TTable_mask::TTable_mask() : TAutomask("ba8200b")
for (int logic = LF_USER; logic < nfiles; logic++)
{
const FileDes& fd = prefix().get_filedes(logic);
tt = fd.SysName;
tt = fd.SysName;
if (tt.full())
{
tt.strip("$%"); tt.upper();
tt.add(logic);
tt.add(fd.Des);
sht.rows_array().add(tt);
tt.add(fd.Des);
sht.rows_array().add(tt);
}
}
sht.rows_array().sort();
@ -617,10 +628,11 @@ static bool sql_tree_handler(TTree& tree, void* jolly, word flags)
TString& where = *(TString*)arr.objptr(1);
TString_array& join = rn->join();
TString str;
TFilename n = rn->name(); n = n.name_only();
if (from.get_pos(rn->id()) < 0)
{
from.add(rn->name());
from.add(n);
if (rn->alias().not_empty())
from << " AS " << rn->alias();
@ -630,10 +642,17 @@ static bool sql_tree_handler(TTree& tree, void* jolly, word flags)
{
if (where.not_empty())
where << "AND";
where << '(' << rn->id() << '.' << row->get(0) << '=';
TFilename id = rn->id(); id = id.name_only();
where << '(' << id << '.' << row->get(0) << '=';
str = row->get();
if (isalpha(str[0]))
where << rn->father()->id() << '.';
if (isalpha(str[0]))
{
TFilename father_id = rn->father()->id(); father_id = father_id.name_only();
where << father_id << '.';
}
where << str << ')';
}
}
@ -718,8 +737,10 @@ void TQuery_mask::sheet2sql()
{
if (multiple)
{
const TString& tab = row->get(0);
if (!tab.blank())
TFilename tab = row->get(0);
tab = tab.name_only();
if (tab.full())
{
field.insert(".");
field.insert(tab); // Table name
@ -788,9 +809,13 @@ void TQuery_mask::sheet2isam()
TString_array rel;
tree2isam(rel);
TString use;
FOR_EACH_ARRAY_ROW(rel, i, row)
use << *row << '\n';
TString use("USE ");
FOR_EACH_ARRAY_ROW(rel, i, row)
{
TFilename t = *row; t = t.name_only();
use << t << '\n';
}
set(F_SQL, use, true);
_sql_dirty = false;

View File

@ -7,11 +7,11 @@ BEGIN
PROMPT 1 0 "@bTabella collegata"
END
STRING F_SON 10
STRING F_SON 30 10
BEGIN
PROMPT 2 1 "Tabella "
FLAGS "U"
SHEET "Tabella@10|Num@3R|Descrizione archivio@70"
SHEET "Tabella@30|Num@3R|Descrizione archivio@70"
INPUT F_SON
OUTPUT F_SON
CHECKTYPE REQUIRED
@ -28,7 +28,7 @@ BEGIN
PROMPT 25 0 "@bTabella principale"
END
STRING F_FATHER 10
STRING F_FATHER 30 10
BEGIN
PROMPT 26 1 "Tabella "
FLAGS "D"