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:
parent
01d8d3a4be
commit
1734194597
@ -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);
|
||||
}
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user