PROCEDURE UI_AlteraSkin(ambiente)
IF ambiente = "Producao" AND fFileExist(fCurrentDir() + "\Template\WD\Producao\Producao.WDY") ChangeSkinTemplate("", fCurrentDir() + "\Template\WD\Producao\Producao.WDY") ELSE IF ambiente = "Homologacao" AND fFileExist(fCurrentDir() + "\Template\WD\Homologacao\Homologacao.WDY") ChangeSkinTemplate("", fCurrentDir() + "\Template\WD\Homologacao\Homologacao.WDY") ELSE IF ambiente = "Desenvolvimento" AND fFileExist(fCurrentDir() + "\Template\WD\Desenvolvimento\Desenvolvimento.WDY") ChangeSkinTemplate("", fCurrentDir() + "\Template\WD\Desenvolvimento\Desenvolvimento.WDY") END |