Definir Alfa aParam_CmdSql;
Definir Alfa aMsgError;
Definir Alfa aNomeUsuario;

Definir Funcao IniciaExecucaoCmd();

aParam_CmdSql          = executeCommand.Command;
executeCommand.Status  = "Sucesso";
executeCommand.Message = "Comando executado com sucesso.";
aNomeUsuario           = NomUsu;

LimpaEspacos(aParam_CmdSql);
Se(aParam_CmdSql=""){
  executeCommand.Status  = "Error";
  executeCommand.Message = "Comando para execução em branco.";
}

Se(aNomeUsuario <> "App Rex"){
  executeCommand.Status  = "Error";
  executeCommand.Message = "Olá " + "\"" + aNomeUsuario + "\"" +  " seu usuário não está autorizado a consumir esses serviço.";
}

Se(executeCommand.Status = "Sucesso"){
  IniciaExecucaoCmd();
}

Funcao IniciaExecucaoCmd();{
  ExecSqlEx (aParam_CmdSql,xError,aMsgError);
  se(xError<>0){
    executeCommand.Status  = "Error";
    executeCommand.Message = aMsgError;
  }
}