no convert for format ¬s
BOM DIA, ALGUEM SABERIA ME DIZER O QUE PODE ESTAR ERRADO NESTA LINHA?
DmDentalita.FollowUp(StrToInt(Dbedit_codcliente.Text),´ Clientes´);
É AÍ QUE ESTÁ DANDO O ERRO ´NO FORMAT FOR ARGUMENT ´¬S´´ , ESTE PROGRAMA É DE OUTRO E EU COMECEI A MANUTENÇÃO NELE AGORA.
VLW
DmDentalita.FollowUp(StrToInt(Dbedit_codcliente.Text),´ Clientes´);
É AÍ QUE ESTÁ DANDO O ERRO ´NO FORMAT FOR ARGUMENT ´¬S´´ , ESTE PROGRAMA É DE OUTRO E EU COMECEI A MANUTENÇÃO NELE AGORA.
VLW
Etspaz
Curtidas 0
Respostas
Sremulador
10/01/2008
DmDentalita.FollowUp(StrToInt(Dbedit_codcliente.Text),´ Clientes´);
[b:f3924d895e]->[/b:f3924d895e]
DmDentalita.FollowUp(StrToInt(Dbedit_codcliente.Text),´Clientes´);
GOSTEI 0
Etspaz
10/01/2008
opa voltei,
olha não consegui identificar o erro ainda então vou tentar explicar melhor,
me desculpem o sumiço é por que eu fiquei fora do ar ontem.
DmDentalita.FollowUp(StrToInt(Dbedit_codcliente.Text),´ Clientes´);
é uma procedure criada em dmdentalita.
followup são pendencias de clientes .
este é o codigo:
procedure TDmDentalita.FollowUp(cod_cliente : integer ; chamador : String);
begin
sdt_consluta_followup.Close;
sdt_consluta_followup.DataSet.CommandText := ´´;
sdt_consluta_followup.DataSet.CommandText := ´select * from FOLLOW_UP where CLIENTE_ID = ´ + IntToStr(cod_cliente);
sdt_consluta_followup.Open;
if sdt_consluta_followup.DataSet.RecordCount = 0 then begin
//Caso o cliente não tenha pendências, é perguntado ao usuário se ele quer cadastrar uma nova
if MessageDlg(´Não há registros de Follow Up para este cliente. Deseja cadastrar um novo?´,mtConfirmation,[mbOK,mbCancel],0) = mrOK then begin
if not assigned(Frm_FollowUp) then
application.CreateForm(TFrm_FollowUp,Frm_FollowUp);
if not dts_follow_up.DataSet.Active then dts_follow_up.DataSet.Open;
DmDentalita.Dts_Follow_up.DataSet.Filtered := False;
DmDentalita.Dts_Follow_up.DataSet.Filter := ´CLIENTE_ID = ´ + IntToStr(cod_cliente);
DmDentalita.Dts_Follow_up.DataSet.Filtered := True;
Frm_FollowUp.InserirFollowUp(cod_cliente);
Frm_FollowUp.ShowModal;
end;
end
else begin
//Caso o cliente tenha pendências, é exibida a lista de follow up (todas as ocorrências)
if not assigned(Frm_ListaFollowUp) then
application.CreateForm(TFrm_ListaFollowUp,Frm_ListaFollowUp);
if chamador = ´Principal´ then
Frm_ListaFollowUp.btnInserir.Visible := False
else
Frm_ListaFollowUp.btnInserir.Visible := True;
Frm_ListaFollowUp.ShowModal;
end;
end;
porém o erro surgiu depois que eu fiz algumas alterações, seguinte:
o sistema tem uma tela para gravar novos followups, eu tive que incluir um campo do vendedor para gravar com o nome do vendedor.
usei um dbloockupcombobox para selecionar o nome do vendedor.
a query usada é esta:
select * from usuario
usuario é a tabela que tem os dados do vendedor.
bem acho que tenho que mudar esta procedure, pois ela não previa o campo vendedor, correto?
até beleza, mas aí depois que grava o followp gera uma lista com todos fllowups de um cliente, então,
tem esta query para gerar a lista de followup.
select F.*, U.NOME from
FOLLOW_UP F , USUARIO U
where U.USUARIO_ID = F.USUARIO_ID
ORDER BY DATA_LANCAMENTO
fui no dbgrid que exibe a lista e acrescentei o campo nome do vendedor,
a partir daí gera o erro que eu citei.
olha não consegui identificar o erro ainda então vou tentar explicar melhor,
me desculpem o sumiço é por que eu fiquei fora do ar ontem.
DmDentalita.FollowUp(StrToInt(Dbedit_codcliente.Text),´ Clientes´);
é uma procedure criada em dmdentalita.
followup são pendencias de clientes .
este é o codigo:
procedure TDmDentalita.FollowUp(cod_cliente : integer ; chamador : String);
begin
sdt_consluta_followup.Close;
sdt_consluta_followup.DataSet.CommandText := ´´;
sdt_consluta_followup.DataSet.CommandText := ´select * from FOLLOW_UP where CLIENTE_ID = ´ + IntToStr(cod_cliente);
sdt_consluta_followup.Open;
if sdt_consluta_followup.DataSet.RecordCount = 0 then begin
//Caso o cliente não tenha pendências, é perguntado ao usuário se ele quer cadastrar uma nova
if MessageDlg(´Não há registros de Follow Up para este cliente. Deseja cadastrar um novo?´,mtConfirmation,[mbOK,mbCancel],0) = mrOK then begin
if not assigned(Frm_FollowUp) then
application.CreateForm(TFrm_FollowUp,Frm_FollowUp);
if not dts_follow_up.DataSet.Active then dts_follow_up.DataSet.Open;
DmDentalita.Dts_Follow_up.DataSet.Filtered := False;
DmDentalita.Dts_Follow_up.DataSet.Filter := ´CLIENTE_ID = ´ + IntToStr(cod_cliente);
DmDentalita.Dts_Follow_up.DataSet.Filtered := True;
Frm_FollowUp.InserirFollowUp(cod_cliente);
Frm_FollowUp.ShowModal;
end;
end
else begin
//Caso o cliente tenha pendências, é exibida a lista de follow up (todas as ocorrências)
if not assigned(Frm_ListaFollowUp) then
application.CreateForm(TFrm_ListaFollowUp,Frm_ListaFollowUp);
if chamador = ´Principal´ then
Frm_ListaFollowUp.btnInserir.Visible := False
else
Frm_ListaFollowUp.btnInserir.Visible := True;
Frm_ListaFollowUp.ShowModal;
end;
end;
porém o erro surgiu depois que eu fiz algumas alterações, seguinte:
o sistema tem uma tela para gravar novos followups, eu tive que incluir um campo do vendedor para gravar com o nome do vendedor.
usei um dbloockupcombobox para selecionar o nome do vendedor.
a query usada é esta:
select * from usuario
usuario é a tabela que tem os dados do vendedor.
bem acho que tenho que mudar esta procedure, pois ela não previa o campo vendedor, correto?
até beleza, mas aí depois que grava o followp gera uma lista com todos fllowups de um cliente, então,
tem esta query para gerar a lista de followup.
select F.*, U.NOME from
FOLLOW_UP F , USUARIO U
where U.USUARIO_ID = F.USUARIO_ID
ORDER BY DATA_LANCAMENTO
fui no dbgrid que exibe a lista e acrescentei o campo nome do vendedor,
a partir daí gera o erro que eu citei.
GOSTEI 0