diff --git a/bd/PenMetaBD.php b/bd/PenMetaBD.php
index e4fb547..44e119e 100644
--- a/bd/PenMetaBD.php
+++ b/bd/PenMetaBD.php
@@ -389,7 +389,7 @@ class PenMetaBD extends InfraMetaBD {
     }
     
     public function adicionarChavePrimaria($strTabela, $strNomePK, $arrCampos) {
-        
+        $strNomePK = substr($strNomePK, 0, 30);
         if(!$this->isChaveExiste($strTabela, $strNomePK)) {
             parent::adicionarChavePrimaria($strTabela, $strNomePK, $arrCampos);
         }
--
libgit2 0.21.2