Patch level :10.0 cd

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :controllo delle personalizzazioni VE in custom di studio e di ditta


git-svn-id: svn://10.65.10.50/trunk@17830 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2008-12-09 11:32:12 +00:00
parent 01d8d3a4be
commit 1734194597

View File

@ -370,19 +370,20 @@ bool CampoWizardPage3::ForwardValidate()
//a) custom di studio
if (!CheckCustomDir(strStudy + "custom", strPrgPath))
return ErrorBox("Sono presenti personalizzazioni relative ai documenti di vendita.\n"
"Richiedere l'intervento dell'assistenza tecnica.\nL'aggiornamento verrà terminato.");
"Richiedere l'intervento dell'assistenza tecnica.\nImpossibile proseguire l'aggiornamento.");
//b) custom di ditta
wxArrayString asDirsList;
const size_t uFirmDirs = wxDir::GetAllFiles(strStudy, &asDirsList, "", wxDIR_DIRS);
for (size_t i = 0; i < uFirmDirs; i++)
{
const wxString strDir = asDirsList[i].Lower();
if (strDir.Len() == 6 && strDir.EndsWith("a") && atol(strDir) > 0)
wxDir dirStudy(strStudy);
wxString strDir;
//deve farsi un giro sulle sole directory che abbiano nome lungo 6 caratteri (sono le ditte)
for (bool ok = dirStudy.GetFirst(&strDir, wxT("??????"), wxDIR_DIRS); ok; ok = dirStudy.GetNext(&strDir))
{
strDir.MakeLower();
if (strDir.EndsWith("a") && atol(strDir) > 0)
{
if (!CheckCustomDir(strDir + "custom", strPrgPath))
if (!CheckCustomDir(strStudy + strDir + "/custom", strPrgPath))
{
wxString strMsg = "Sono presenti personalizzazioni relative ai documenti di vendita nella ditta ";
strMsg << strDir << ".\nRichiedere l'intervento dell'assistenza tecnica.";
strMsg << strDir << ".\nRichiedere l'intervento dell'assistenza tecnica.\nImpossibile proseguire l'aggiornamento.";
return ErrorBox(strMsg);
}
}