if (pg_numrows($resultpref) != 0) {
    db_fieldsmemory($resultpref, 0);
}
$result_aidof = $claidof->sql_record($claidof->sql_query_file($codaidof));
if ($claidof->numrows != 0) {
    db_fieldsmemory($result_aidof, 0);
}
$result_notasiss = $clnotasiss->sql_record($clnotasiss->sql_query_file(null, "q09_descr as especie", null, "q09_codigo={$y08_nota}"));
if ($clnotasiss->numrows != 0) {
    db_fieldsmemory($result_notasiss, 0);
}
$result_graf = $clcgm->sql_record($clcgm->sql_query_file($y08_numcgm, "z01_nome as nome_graf,z01_ender as ender_graf,z01_numero as num_graf,z01_cgccpf as cgccpf_graf,z01_bairro as bairro_graf,z01_munic as munic_graf"));
if ($clcgm->numrows != 0) {
    db_fieldsmemory($result_graf, 0);
}
$result_graf_inscr = $clissbase->sql_record($clissbase->sql_query_file(null, "q02_inscr as inscr_graf", null, "q02_numcgm={$y08_numcgm}"));
if ($clissbase->numrows != 0) {
    db_fieldsmemory($result_graf_inscr, 0);
}
$sql_empr = "select q02_inscr as inscr_usu,z01_nome as nome_usu,z01_ender as ender_usu,z01_numero as num_usu,z01_cgccpf as cgccpf_usu,z01_bairro as bairro_usu,z01_munic as munic_usu from empresa where q02_inscr={$y08_inscr}";
$result_empresa = pg_exec($sql_empr);
if (pg_numrows($result_empresa) != 0) {
    db_fieldsmemory($result_empresa, 0);
}
//***************************
$mes = date("m");
$ano = date("Y");
$dia = date("d");
$codigo = $y08_codigo;
$ins = $inscr_usu;
$cnpj = $cgccpf_usu;