Re: [delphi-br] Onde será que estou er rando???????????
if Application.MessageBox('Deseja excluir esse registro?','Confirmação de
Exclusão',36)=6 then begin
...;
...;
...;
...;
end;
- Original Message -
From: Anderson
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, August 04, 2005 9:57 AM
Subject: RES: [delphi-br] Onde será que estou errando???
if messagebox(0, 'TEM CERTEZA QUE DESEJA EXCLUIR A NOTA DE DEVOLUÇÃO?',
Rapaz me diz para que server esse zero ?
Anderson Daniel
Técnico em Informática
Naju informática
Tel: (21) 2203-0280 / (21)9173-8940
[EMAIL PROTECTED]
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Miguelito
Enviada em: segunda-feira, 28 de fevereiro de 2005 13:16 Anderson
Assunto: [delphi-br] Onde será que estou errando???
Pessoal, num botao que exclui os dados das tabelas coloquei o seguinte
código:
if messagebox(0, 'TEM CERTEZA QUE DESEJA EXCLUIR A NOTA DE DEVOLUÇÃO?',
'CONFIRMAÇÃO',
MB_YESNO + MB_ICONQUESTION) = 6 THEN
IF MESSAGEBOX(0, 'TEM CERTEZA MESMO?' + #13+
'APOS APAGAR A NOTA NÃO PODERAM SER RECUPERADA!',
'CONFIRMAÇÃO',
MB_YESNO + MB_ICONQUESTION) = 6 THEN
BEGIN
WITH qrDados DO //apaga os itens da nota fiscal
tabela itens_devolucao
BEGIN
CLOSE;
SQL.Clear;
SQL.Add('DELETE * FROM ITENS_DEVOLUCAO ');
SQL.Add('WHERE DEVOLUCAO = :DEVOLUCAO ');
ParamByName('DEVOLUCAO').AsInteger :=
cdsNotaDEVOLUCAO.Value;
ExecSQL;
END;
WITH qrGrid DO //apaga os dados da tabela com os
dados da nota
BEGIN
CLOSE;
SQL.Clear;
SQL.Add('DELETE * FROM DEVOLUCAO ');
SQL.Add('WHERE DEVOLUCAO = :DEVOLUCAO ');
ParamByName('DEVOLUCAO').AsInteger :=
cdsNotaDEVOLUCAO.Value;
ExecSQL;
END;
END;
cdsDadosQuery.Refresh;
cdsNota.Refresh;
da o seguinte erro
INVALID USE OS KEYWORD
TOKEN : *
LINE NUMBER 1
se tiro o * da sentença sql, aparece outro erro,
TABLE IS READ ONLY
o que será que esta dando pau???
Miguel Villacorta
4446-4100 ramal 4126
7312-5509
[EMAIL PROTECTED]
www.dpfautopecas.com.br
MSN [EMAIL PROTECTED]
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.9.6/59 - Release Date: 27/7/2005
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
_
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html .
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.10.0/63 - Release Date: 03/08/2005
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL
Re: [delphi-br] Onde será que estou er rando???????????
Essa é simples...
Cada muneração onde está o 36 é de uma seguencia de botões traduzida para o
idioma do SO, 6 é o retorno de sim. Ou seja, se o usoario pressionar o Botão
Sim, a caixa irá retornar o valor 6 e irá executar as instruções a seguir...
qq coisa mail-me
- Original Message -
From: Eduardo Silva ®
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, August 04, 2005 10:16 AM
Subject: RES: [delphi-br] Onde será que estou errando???
Ixi, agora ta complicando cada vez maisrs rs
É bom que, se alguém souber, explique quais as formas e para que serve cda
instrução dessa função.para poder ajudar a todos aqui
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Wilson Valdevite
Enviada em: quinta-feira, 4 de agosto de 2005 10:09
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Onde será que estou errando???
if Application.MessageBox('Deseja excluir esse registro?','Confirmação
de Exclusão',36)=6 then begin
...;
...;
...;
...;
end;
- Original Message -
From: Anderson
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, August 04, 2005 9:57 AM
Subject: RES: [delphi-br] Onde será que estou errando???
if messagebox(0, 'TEM CERTEZA QUE DESEJA EXCLUIR A NOTA DE DEVOLUÇÃO?',
Rapaz me diz para que server esse zero ?
Anderson Daniel
Técnico em Informática
Naju informática
Tel: (21) 2203-0280 / (21)9173-8940
[EMAIL PROTECTED]
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em
nome de Miguelito
Enviada em: segunda-feira, 28 de fevereiro de 2005 13:16 Anderson
Assunto: [delphi-br] Onde será que estou errando???
Pessoal, num botao que exclui os dados das tabelas coloquei o seguinte
código:
if messagebox(0, 'TEM CERTEZA QUE DESEJA EXCLUIR A NOTA DE DEVOLUÇÃO?',
'CONFIRMAÇÃO',
MB_YESNO + MB_ICONQUESTION) = 6 THEN
IF MESSAGEBOX(0, 'TEM CERTEZA MESMO?' + #13+
'APOS APAGAR A NOTA NÃO PODERAM SER RECUPERADA!',
'CONFIRMAÇÃO',
MB_YESNO + MB_ICONQUESTION) = 6 THEN
BEGIN
WITH qrDados DO //apaga os itens da nota fiscal
tabela itens_devolucao
BEGIN
CLOSE;
SQL.Clear;
SQL.Add('DELETE * FROM ITENS_DEVOLUCAO ');
SQL.Add('WHERE DEVOLUCAO = :DEVOLUCAO ');
ParamByName('DEVOLUCAO').AsInteger :=
cdsNotaDEVOLUCAO.Value;
ExecSQL;
END;
WITH qrGrid DO //apaga os dados da tabela com
os
dados da nota
BEGIN
CLOSE;
SQL.Clear;
SQL.Add('DELETE * FROM DEVOLUCAO ');
SQL.Add('WHERE DEVOLUCAO = :DEVOLUCAO ');
ParamByName('DEVOLUCAO').AsInteger :=
cdsNotaDEVOLUCAO.Value;
ExecSQL;
END;
END;
cdsDadosQuery.Refresh;
cdsNota.Refresh;
da o seguinte erro
INVALID USE OS KEYWORD
TOKEN : *
LINE NUMBER 1
se tiro o * da sentença sql, aparece outro erro,
TABLE IS READ ONLY
o que será que esta dando pau???
Miguel Villacorta
4446-4100 ramal 4126
7312-5509
[EMAIL PROTECTED]
www.dpfautopecas.com.br
MSN [EMAIL PROTECTED]
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.9.6/59 - Release Date: 27/7/2005
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
_
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html .
