function libCorpUpdatePessoaVinculo($updPessoaVinculo, $userCredential = NULL)
{
    $xmlResult = '<result><status>%s</status><errocode>%s</errocode><response>%s</response></result>';
    try {
        Registry::factory()->setCredential($userCredential);
        $voPessoaVinculo = PessoaVinculoValueObject::factory()->loadData($updPessoaVinculo);
        $voPessoaVinculo = PessoaVinculoBusiness::factory()->updatePessoaVinculo($voPessoaVinculo);
        return sprintf($xmlResult, 'success', '00000', $voPessoaVinculo->toXml());
    } catch (\Exception $excp) {
        return sprintf($xmlResult, 'failure', $excp->getCode(), $excp->getMessage());
    }
}