$clitbirural->incluir($clitbi->it01_guia);
     if ($clitbirural->erro_status == "0") {
         $erro = $clitbirural->erro_msg;
         $sqlerro = true;
     }
     $sqlcar = "select * from caracter inner join cargrup on cargrup.j32_grupo = caracter.j31_grupo where j32_tipo = 'I'";
     $resultcar = pg_query($sqlcar);
     $linhascar = pg_num_rows($resultcar);
     if ($linhascar > 0) {
         for ($i = 0; $i < $linhascar; $i++) {
             db_fieldsmemory($resultcar, $i);
             $input = "j31_descr" . $i;
             $clitbiruralcaract->it19_guia = $clitbi->it01_guia;
             $clitbiruralcaract->it19_codigo = $j31_codigo;
             $clitbiruralcaract->it19_valor = ${$input};
             $clitbiruralcaract->incluir($clitbi->it01_guia, $j31_codigo);
             if ($clitbiruralcaract->erro_status == "0") {
                 $erro = $clitbiruralcaract->erro_msg;
                 $sqlerro = true;
             }
         }
     }
 }
 //####################################################################
 if ($tipo == "urbano") {
     echo "xxxxxxxxxxxxxxx";
     // inclui na itburbano ...........................................
     $clitburbano->it05_guia = $clitbi->it01_guia;
     $clitburbano->it05_frente = $it05_frente;
     $clitburbano->it05_fundos = $it05_fundos;
     $clitburbano->it05_direito = $it05_direito;