Criaçao da funçao CriaCasamento