$clitbi->it01_obs = $it01_obs;
$clitbi->it01_valortransacao = $it01_valortransacao;
$clitbi->it01_areatrans = $it01_areatrans;
$clitbi->it01_mail = $it01_mail;
$clitbi->it01_valortransacaofinanc = $it01_valortransacaofinanc;
$clitbi->it01_finalizado = false;
$clitbi->incluir(null);
if ($clitbi->erro_status == 0) {
$sqlerro = true;
die($clitbi->erro_sql);
$erro_msg = $clitbi->erro_msg;
}
if ($sqlerro == false) {
//###################################################################
if ($tipo == "rural" && $sqlerro == false) {
$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);
