No evento Onvalidate tenho esse código:
if ({pessoa} == ‘F’)
{
sc_lookup(DS,“Select cpf,nome from clientes where
cpf={cpf} AND codigo <> {codigo}”);
if(!empty({DS[0][0]})){
sc_error_message(“O CPF
}
}
else
{
sc_lookup(DS,“Select cnpj,nome from clientes where
cnpj={cnpj} AND codigo <> {codigo}”);
if(!empty({DS[0][0]})){
sc_error_message(“O CNPJ
}
}
Somente a primeira instrução é realizada a segunda não executa, mesmo deixando somente
ela, já usei o debug, não mostra nenhum erro, inclusive mostra a sql certinha.
Objetivo: Mostrar a existencia do cpf ou cnpj conforme o tipo de pessoa.
Banco Firebird
Código da Aplicação (7.01.0013)
Alguém se habilitar a comentar.
Obrigado,
Leão
Obrigado