Felipe - Iniciante-Delphi

HUAHAUHAAUAH Acho que eu que estou me expressando mal, Eu tenho 2 function no SQL SERVER 2000 . Elas analisam o CNPJ e o CPF, porém, não quero chama-las no proprio sql ( Mas agora que aprendi vou passar a chamar ) EU QUERO CHAMAR ELAS NO DELPHI. tipo, to la com minha aplicação no delphi, ai chega uma hora que eu chamo essa function que vem la do SQL, isso que eu queria aprender, hahaha Mais MUITO obrigado, eu também não sabia chamar no proprio sql, mas agora passei a aprender . Obrigado mesmo ..

Galera, sou iniciante nesse mundo de T.I Bom, meu problema é o seguinte , assim, eu tenho 2 tabela (TB_PESSOA e TB_PESSOA_FISICA) na TB_PESSOA tem uma PK ( CD_PESSOA) e CONSEQUENTEMENTE NA TB_PESSOA_FISICA UMA FK. Bom, o campo CD_PESSOA é IDENTITY e eu tenho uma procedure que faz insert, delete e update dependendo do que for digitado, mas acontece que não consigo atribuir valor na tablea TB_PESSOA_FISICA pois quando eu executo a PROCEDURE os valores que é pra cair na TB_PESSOA cai, porém , os da TB_PESSOA_FISICA não . aqui esta minha procedure : -- PROCEDURE PRONTA PROCEDURE SP_TESTE_1 @tipo decimal(10,2), @email varchar(200), @cadastro datetime, @atualizacao datetime, @bloqueio decimal(10,2), @ordem char(1), @nome varchar(200), @cpf numeric(11), @rg varchar(20), @nascimento smalldatetime, @civil varchar(20), @sexo varchar(20), @profissao varchar(45), @codigo integer AS if (@ordem) = 'i' -- insere um registro begin if exists(select ds_email from TB_PESSOA where ds_email = @email) begin select @email = 'E-MAIL já CADASTRADO' return (@email) end else begin select @email = '' begin transaction insert into TB_PESSOA ( ds_tipo_pessoa, ds_email, dt_cadastro, dt_atualização, fl_bloqueio) values ( @tipo, @email, @cadastro, @atualizacao, @bloqueio) -- set @codigo = @@identity end end else if (@ordem) = 'u' -- Altera um registro begin select @email = '' begin transaction update TB_PESSOA set ds_tipo_pessoa = @tipo, ds_email = @email, dt_cadastro = @cadastro, dt_atualização = @atualizacao, fl_bloqueio = @bloqueio where ds_email = @email end else if (@ordem) = 'd' --Exclui um registro begin select @email = '' begin transaction delete from TB_PESSOA where ds_email = @email end if (@ordem) = 'i_fisica' -- insere um registro begin if exists(select ds_nome from TB_PESSOA_FISICA where ds_nome = @nome) begin select @nome = 'NOME já EXISTENTE' return (@nome) end else begin select @nome = '' begin transaction insert into TB_PESSOA_FISICA (cd_pessoa, ds_nome, nr_cpf, ds_rg, dt_nascimento, tp_estado_civil, tp_sexo, tp_profissao) values ( @codigo, @nome, @cpf, @rg, @nascimento, @civil, @sexo, @profissao) -- set @codigo = @@identity insert into TB_PESSOA (ds_tipo_pessoa, ds_email, dt_cadastro, dt_atualização, fl_bloqueio) values (@tipo, @email, @cadastro, @atualizacao, @bloqueio) end end else if @@error <> 0 begin rollback transaction return(1) end else begin commit transaction return(0) end -- AQUI EU CHAMO A PROCEDURE exec SP_TESTE_1 @ordem = 'i_fisica', @tipo = 1, @email = 'felipe.junior@bol.com.br', @cadastro = '05/05/05', @atualizacao = '05/05/05', @bloqueio = 1, @nome = 'Felipe', @cpf = 45256986532, @rg = '458963658', @nascimento = '05/05/05', @civil = 'SOLTEIRO', @sexo = 'M', @profissao = 'Paraquedista', @CODIGO = (SELECT CD_PESSOA FROM TB_PESSOA where @@identity = cd_pessoa) Por favor, alguém pode me ajudar? Agradeço desde já, Obrigado

Eu falei a mesma coisa pro meu chefe, mas ele quer por que quer, mas irei entregar esse mesmo, huahuahuahauhauha Não acho uma pessoa que me mostre como chamar uma function. Abs brother Obrigado,

Não cara, Eu criei as FUNCTION para validar CPF e CNPJ no sql server, Agora preciso chamalas la no delphi, esse exemplo que você me deu, mostra como validar direto no delphi, e infelizmente não é isso que eu quero, se você ainda puder me ajudar eu agradeço, Obrigado pela resposta, abraco

Boa Tarde gente, Bom estou com probleminhas no meu Projeto Delphi que estou desenvolvendo, irei fazer um breve resumo. Um form no qual Recebe números, se o rapaz digitar 11 números significa que o cara digitou o CPF. caso digite 14 sera no CNPJ, bom, o delphi ira analisar qual dos dois foi ( com o comando Lenght ) e ira enviar a pessoa para o cadastro de CNPJ ou CPF, Bom. eu tenho 2 Function criadas no SQL uma que analisa se o CNPJ está certo e outra analisa se o CPF está certo. E estou querendo chamar elas no Delphi. Nome das Function Sql Server : CPF_VALIDO ( valida o CPF ) e f_VerificaCNPJ ( Valida o CNPJ) Mas não to conseguindo chamalas no meu Delphi, alguém por favor pode me ajudar? Código Delphi : procedure TfrmValida.btValidaClick(Sender: TObject); begin if txtNumero.text <> '' then begin if Length(txtNumero.text) = 14 then begin dm.qryChamaFunction.Close; dm.qryChamaFunction.SQL.Clear; dm.qryChamaFunction.SQL.Add('begin'); dm.qryChamaFunction.SQL.Add('f_VerificaCNPJ'); dm.qryChamaFunction.SQL.Add('end'); dm.qryChamaFunction.ExecSQL; end else if Length(txtNumero.text) = 11 then begin dm.qryChamaFunction.Close; dm.qryChamaFunction.SQL.Clear; dm.qryChamaFunction.SQL.Add('begin'); dm.qryChamaFunction.SQL.Add('CPF_VALIDO'); dm.qryChamaFunction.SQL.Add('end'); dm.qryChamaFunction.ExecSQL; end else begin ShowMessage('Favor Digitar 11 Numeros para CPF (ou) 14 para CNPJ'); end; end; end. ---- Estou começando a proramar em DELPHI agora, então se to fazendo algo muito errado, desculpa Obrigado a todos. Agradeço desde já.