*/
$cllistainscr = new cl_listainscr();
$cllistainscrcab = new cl_listainscrcab();
$db_opcao = 1;
$db_botao = true;
if ((isset($HTTP_POST_VARS["db_opcao"]) && $HTTP_POST_VARS["db_opcao"]) == "Incluir Inscrição na Lista") {
    $p12_cnpj = str_replace(".", "", $p12_cnpj);
    $p12_cnpj = str_replace("/", "", $p12_cnpj);
    $p12_cnpj = str_replace("-", "", $p12_cnpj);
    $HTTP_POST_VARS["p12_cnpj"] = $p12_cnpj;
    $result = $cllistainscr->sql_record($cllistainscr->sql_query("", "", "*", "", " p12_codigo = {$p12_codigo} and trim(p12_cnpj) = '{$p12_cnpj}'"));
    if ($cllistainscr->numrows > 0) {
        $erro = true;
    } else {
        db_inicio_transacao();
        $cllistainscr->incluir($p12_codigo, $p12_inscr);
        db_fim_transacao();
    }
} elseif ((isset($HTTP_POST_VARS["opcao"]) && $HTTP_POST_VARS["opcao"]) == "Excluir") {
    db_inicio_transacao();
    $db_opcao = 2;
    $cllistainscr->excluir($p12_codigo_excluir, $p12_inscr_excluir);
    db_fim_transacao();
} elseif (isset($HTTP_POST_VARS["fechar"])) {
    db_inicio_transacao();
    $cllistainscrcab->p11_fechado = 't';
    $cllistainscrcab->p11_codigo = $p12_codigo;
    $cllistainscrcab->alterar($p12_codigo);
    db_fim_transacao();
}
if (isset($fechar)) {
        * Descricao: select para pesquisa se cgccpf informado coresponde a inscr e numcgm informado na consulta, 
        * se campo estiver vazio nao permite incluir cliente na lista
        * */
        $str_sql = " select * \n                  from cgm\n                       left outer join db_cgmbairro on cgm.z01_numcgm     = db_cgmbairro.z01_numcgm\n                       left outer join db_cgmcgc    on cgm.z01_numcgm     = db_cgmcgc.z01_numcgm\n                       left outer join db_cgmcpf    on cgm.z01_numcgm     = db_cgmcpf.z01_numcgm\n                       left outer join db_cgmruas   on cgm.z01_numcgm     = db_cgmruas.z01_numcgm\n                       inner join issbase           on issbase.q02_numcgm = cgm.z01_numcgm\n                 where cgm.z01_cgccpf    = '{$p12_cnpj}'\n                   and issbase.q02_inscr = '{$p12_inscr}' ";
        $clcgm->sql_record($str_sql);
        /*
        * Referencia: verifica retorno do sql anterior
        * Descricao: verifica se dados informados estao consistentes se nao nao permite inclusao na tabela listainscr
        * */
        if ($clcgm->numrows == 1) {
            if ($p12_tipolanc != 0) {
                $cllistainscr->p12_tipolanc = $p12_tipolanc;
            }
            db_inicio_transacao();
            $cllistainscr->p12_fone = $p12_fone;
            $cllistainscr->incluir($oCriaLista->p11_codigo, $p12_inscr, $p12_cnpj);
            db_fim_transacao();
            if ($cllistainscr->erro_status == "0") {
                @$cllistainscr->erro();
            } else {
                $sUrl = "id=" . base64_encode($id_usuario) . "&cgm=" . base64_encode($cgmlogin) . "&escrito=true&nome=" . base64_encode($nomeusuario);
                db_msgbox("Cliente adicionado com sucesso em sua lista...");
                db_redireciona("informe_clientes.php?{$sUrl}");
            }
        } else {
            db_msgbox("CPF/CNPJ NÃO CORRESPONDE COM A INSCRIÇÃO INFORMADA");
            db_redireciona($_SERVER['REQUEST_URI']);
        }
    }
}
/*