[delphi-br] Impressão do Cupom Não Fiscal Vinculado na Bematech
Galera estou tentando imprimir o cupom não fiscal vinculado na bematech da
farmacia popular, mas não estou conseguindo veja como estou fazendo:
// Imprimir Cupom vinculado da Farmacia Popular
if wwVENDAS.FieldByName('FARMACIA_POPULAR').AsString = 'S' then
begin
if FileExists('C:\FarmaciaPopular\Status_FP.txt') then
begin
Bematech_FI_AbreComprovanteNaoFiscalVinculado( xxxFormaPagto, Pchar(
FormatFloat('0,00',wwVENDASTOTAL.Value) ), Pchar(vNumeroCupom) );
AssignFile(F,'C:\FarmaciaPopular\Status_FP.txt');
Reset(F);
Descricao := '';
while not Eof(F) do
begin
Readln(F,Descricao);
Bematech_FI_UsaComprovanteNaoFiscalVinculado(
Pchar(Descricao)+#13+#10 );
end;
CloseFile(F);
Bematech_FI_FechaComprovanteNaoFiscalVinculado();
end;
end;
Alguém tem alguma diga, obrigado
Sergio Kawahara
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Agrupar por mês, serviço e quant idade
Amigo faz assim:
select extract( month from DT_ENTRADA), sum(NR_QUANTIDADE) from
group by extract( month from DT_ENTRADA)
order by extract( month from DT_ENTRADA)
pronto ta ai, espero te ajudado
Sergio Kawahara
- Original Message -
From: Eduardo Silva dos Santos
To: delphi-br@yahoogrupos.com.br
Sent: Monday, November 19, 2007 3:45 PM
Subject: Re: [delphi-br] Agrupar por mês, serviço e quantidade
Rapaz.. que briga de foice heim, vc ja considerou em mudar pra algum banco
de dados SQL?
Em 19/11/07, Eduardo Silva <[EMAIL PROTECTED]> escreveu:
>
> Galera, tenho uma tabela (paradox) onde eu preciso agrupar a quantidade
> por mês e serviço realizado.
>
> Tenho 3 serviços: Visita, Serviço e Entrega.
>
> Estou com o laço abaixo mas ele esta dando erro e não esta agrupando por
> mês, alguém pode me dar uma mão?
>
> Obrigado
>
> sServico := '';
> while not qrySIAE0501.Eof do
> begin
> sServico := qrySIAE0501.FieldByName('NM_SERVICO').AsString;
> while (not qrySIAE0501.Eof) and (sServico =
qrySIAE0501.FieldByName('NM_SERVICO').AsString)
> do
> begin
> sMes := FormatDateTime('', qrySIAE0501.FieldByName
> ('DT_ENTRADA').AsDateTime);
> iTotMes := 0;
> while (not qrySIAE0501.Eof) and
> (sServico = qrySIAE0501.FieldByName('NM_SERVICO').AsString) and
> (sMes = FormatDateTime('',
qrySIAE0501.FieldByName('DT_ENTRADA').AsDateTime))
> do
> begin
> iTotMes := iTotMes + qrySIAE0501.FieldByName('NR_QUANTIDADE').AsInteger;
> qrySIAE0501.Next;
> end;
> tblSIAETEMP.Append;
> tblSIAETEMP.FieldByName('NM_SERVICO').AsString := sServico;
> tblSIAETEMP.FieldByName('NR_QUANTIDADE').AsInteger := iTotMes;
> tblSIAETEMP.FieldByName('NM_MES').AsString := sMes;
> tblSIAETEMP.Post;
> end;
> end;
> tblSIAETEMP.First;
>
> -
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
...
[As partes desta mensagem que não continham texto foram removidas]
__ NOD32 2669 (20071119) Information __
This message was checked by NOD32 antivirus system.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: RES:SqlQuery não aceita RecordCount [delphi-br] Resumo 5790
Pessoal, na versão 5 do Delphi o PROJECT MANAGER ficava em ordem alfabetica agora na versao 7 fica em ordem de criação alguem sabe como deixar em ordem alfabetica, obrigado. [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] 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] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Error !!!
Vc tem que instalar o BDE. - Original Message - From: Omazio Alves To: delphi-br@yahoogrupos.com.br Sent: Wednesday, April 13, 2005 7:56 AM Subject: [delphi-br] Error !!! Olá pessoal, bom dia ... Baixei um aplicativo que trabalha com a base de dados (*.dbf). Tentei acessar e esta mostrando o seguinte erro !!! Application Error Exception EDatabase Error in module Project1.exe at 0005:11EB An error accurred while attempting to initialize the Borland Database Engine ( error $2108 ) Se alguem puder mim ajudar, desde já agradeço ... Sei que a maioria dos aplicativos do Delphi é preciso configurar o BDE, mas nunca testei um com base de dados (*.dbf). Atenciosamente, Omazio Alves Recife / PE [EMAIL PROTECTED] [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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- 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!. [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] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Casas Decimais
Edit1.Text := FormatFloat(',0.00',valor)
[]'s
- Original Message -
From: moacirponti
To: delphi-br@yahoogrupos.com.br
Sent: Monday, April 04, 2005 12:14 PM
Subject: [delphi-br] Casas Decimais
Aproveitando o assunto das casas decimais, gostaria de passar ao
grupo uma dificuldade que tenho com as casas decimais, que é de
formatar Edits para receber os dados sempre no formato: ,99
Portanto, se o dado for 50,10 ele deve exibir: 50,10 e não 50,1, se
for 50,00, deve exibir 50,00 e não 50.
Alguém sabe como fazer isto? Já tentei o MaskEdit, mas obtive
apenas o resultado que descrevi. Quando o valor era 50,00 ele exibia
apenas 50, e assim por diante.
Obrigado,
Moacir.
--
< 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]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
--
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!.
[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]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Rave Reports
Oi amigo existe um Grupo especialmente de Report Rave, se quiser de uma pesquisada la. [EMAIL PROTECTED] - Original Message - From: Gabriel Ferrarini To: Delphi-BR Sent: Monday, April 04, 2005 10:03 AM Subject: [delphi-br] Rave Reports Olá a todos. Estou tentando fazer um relatório no Rave com o seguinte layout. Band1: VendaParcela Total DataBand1: Cliente: NOME_CLIENTE DataBand2: COD_VENDACOD_PARCELA TOTAL_PARCELA Band1 é o cabeçalho que aparece uma vez por página. Meu código SQL me traz todas as parcelas cadastradas junto com código e nome do cliente e ordenado pelo código de cliente. Ou seja, estou ordenando a tabela de tal forma que as parcelas de um mesmo cliente fiquem juntas para na impressão eu ter o resultado seguinte: VendaParcelaTotal Cliente: José 1110,00 1210,00 2115,00 Cliente: João 3120,00 4125,00 4225,00 Total: 105,00 _ Acontece que eu não estou conseguindo fazer funcionar. No quickrep seria fácil usando um QRGroup. Mas e aqui? Valeu. Gabriel. [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] Yahoo! Grupos, um serviço oferecido por: -- 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!. [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] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Erro DLL qtintf70.dll
Já descobri o que aconteceu, foi um relatório de Rave que inclui no sistema, agora gostaria de saber se existe um jeito de colocar essa DLL dentro do projeto para naum precisar distribuir para cada cliente. - Original Message - From: Futura System Informática To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 02, 2005 4:04 PM Subject: [delphi-br] Erro DLL qtintf70.dll Pessoal atualizei a Versão do delphi 6 para 7 e compilei meu sistema e disponibilizei para meus clientes, mas esta aparecendo um erro dizendo que falta uma DLL qtintf70.dll, e parou todo mundo aguem sabe o que fazer, obrigado. Sérgio Toshio Kawahara [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- 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!. [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] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Erro DLL qtintf70.dll
Pessoal atualizei a Versão do delphi 6 para 7 e compilei meu sistema e disponibilizei para meus clientes, mas esta aparecendo um erro dizendo que falta uma DLL qtintf70.dll, e parou todo mundo aguem sabe o que fazer, obrigado. Sérgio Toshio Kawahara [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] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Problema de Focus
Pessoal continuo com o problema do focu no form depois que rodo o WinExec com
Winzip para compactar alguns arquivos:
WinExec(PChar('c:\Arquivos de Programas\WinZip\WinZip32 -min -a -r "NOME DO
ARQUIVO.ZIP'" '+'PASTA DESTINO),SW_HIDE);
O problema é que quando rodo esses comando o sistema sai de focu, e não mostra
mais as outras mensagem e o Gauge/ProgressBar1 que disparo para o form, a tela
simplesmente fica em branco até o final do processo, alguém já passou por isso,
agradeço qualquer ajuda.
Sérgio Toshio Kawahara
[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]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Amigos Paradoxianos
Oi vc, esta enviando para os Arquivos do grupo, ou para quem pedir se for a segunda opção gostaria de receber pois ainda uso o piradox e tenho muitos problemas, obrigado. Sergio Toshio Kawahara [EMAIL PROTECTED] - Original Message - From: info.Desenvolvimento To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 01, 2005 5:02 PM Subject: [delphi-br] Amigos Paradoxianos A todos os amigos paradoxianos estou enviando uma apostila FELIZ COM O PARADOX feita por Daniel Pereira Guimarães, espero que ajude a todos pois me ajudou e muito. OBS: Com a chegado do Windows XP o Paradox não roda com Windows 98 sendo Servidor, só roda ao contrário, mais uma vez deixo isso bem claro. PAULO FERNANDES PORTO ALEGRE RS [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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- 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!. [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] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Problema de Focus
Ae Eduardo Silva, olha coloquei a linha logo abaixo do comando WinExec, mas
continua o mesmo problema será que coloquei no lugar errado.
Sérgio Toshio Kawahara
- Original Message -
From: Eduardo Silva ®
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 01, 2005 4:15 PM
Subject: RES: [delphi-br] Problema de Focus
Tenta colocar a linha setactivewindow(application.handle);
Depois vc me diz se funcionou.
-Mensagem original-
De: Futura System Informática [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 1 de março de 2005 16:09
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Problema de Focus
Galera é o seguinte eu tenho um sistema que faz Download e Upload via FTP,
os arquivos que são recebidos e enviados estão zipados, eu uso o seguinte
comando para zipar:
WinExec(PChar('c:\Arquivos de Programas\WinZip\WinZip32 -min -a -r "NOME
DO ARQUIVO.ZIP'" '+'PASTA DESTINO),SW_HIDE);
e esse para descompactar:
WinExec(PChar('c:\Arquivos de Programas\WinZip\WinZip32 -min -e "NOME DO
ARQUIVO.ZIP+'" '+'PASTA DESTINO'),SW_HIDE);
O problema é que quando rodo esses comando o sistema sai de focu, e não
mostra mais as outras mensagem que disparo para o form, a tela simplesmente
fica em branco até o final do processo, alguém já passou por isso, agradeço
qualquer ajuda.
Sérgio Toshio Kawahara
[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]
Yahoo! Grupos, um serviço oferecido por:
--
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!.
[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]
Yahoo! Grupos, um serviço oferecido por:
--
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!.
[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]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Problema de Focus
Amigos Eduardo, coloquei a Update em todas as atualizações, mas mesmo assim o
problema continua, eu estou usando IdFTP, e mostro o progressão em um Guage,
antes no Delphi 6 eu usava NMFTP e tudo funcionava beleza mas agora isso, de
qualquer forma agradeço pela sua atenção.
Sergio Toshio Kawahara
- Original Message -
From: Eduardo Buffara Junior
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 01, 2005 4:13 PM
Subject: Re: [delphi-br] Problema de Focus
Vc precisa dar um update no form...
Ex:
Form.Update;
Dae ele carrega o form daquela hr...mais a cada inserção ou modificação no
form durante o processo eh necessario dar um update..
Espero ter ajudado...
Flw
- Original Message -
From: "Futura System Informática" <[EMAIL PROTECTED]>
To:
Sent: Tuesday, March 01, 2005 4:09 PM
Subject: [delphi-br] Problema de Focus
Galera é o seguinte eu tenho um sistema que faz Download e Upload via FTP,
os arquivos que são recebidos e enviados estão zipados, eu uso o seguinte
comando para zipar:
WinExec(PChar('c:\Arquivos de Programas\WinZip\WinZip32 -min -a -r "NOME DO
ARQUIVO.ZIP'" '+'PASTA DESTINO),SW_HIDE);
e esse para descompactar:
WinExec(PChar('c:\Arquivos de Programas\WinZip\WinZip32 -min -e "NOME DO
ARQUIVO.ZIP+'" '+'PASTA DESTINO'),SW_HIDE);
O problema é que quando rodo esses comando o sistema sai de focu, e não
mostra mais as outras mensagem que disparo para o form, a tela simplesmente
fica em branco até o final do processo, alguém já passou por isso, agradeço
qualquer ajuda.
Sérgio Toshio Kawahara
[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
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
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!.
[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]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] XP x WIN98 NO DBE
Olha amigo minha experiência com essa combinação foi desastrosa, pedi o banco de dados inteiro varias vezes mesmo fazendo todas as configurações possiveis e imaginarias, não consegui fazer funcionar a solução foi deixar tudos 98 ou tudo XP. Abraços e Sucesso []'s - Original Message - From: info.Desenvolvimento To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 01, 2005 2:51 PM Subject: [delphi-br] XP x WIN98 NO DBE Para quem usa PARADOX com WINDOWX XP e WINDOWS 98 em rede. O que fazer? Coloque o windows XP como SERVIDOR de DADOS (onde ficam as tabelas.db) e no Windows 98 ficam como CLIENTE. Já tive esse problema e arrumei dessa forma, nunca mais deu problema. [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- 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!. [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] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Problema de Focus
Galera é o seguinte eu tenho um sistema que faz Download e Upload via FTP, os
arquivos que são recebidos e enviados estão zipados, eu uso o seguinte comando
para zipar:
WinExec(PChar('c:\Arquivos de Programas\WinZip\WinZip32 -min -a -r "NOME DO
ARQUIVO.ZIP'" '+'PASTA DESTINO),SW_HIDE);
e esse para descompactar:
WinExec(PChar('c:\Arquivos de Programas\WinZip\WinZip32 -min -e "NOME DO
ARQUIVO.ZIP+'" '+'PASTA DESTINO'),SW_HIDE);
O problema é que quando rodo esses comando o sistema sai de focu, e não mostra
mais as outras mensagem que disparo para o form, a tela simplesmente fica em
branco até o final do processo, alguém já passou por isso, agradeço qualquer
ajuda.
Sérgio Toshio Kawahara
[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]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: FTP com Indy
Falo Luiz Henrique muito obrigado eu tinha resolvido com uns exemplos que
consegui pegar no http://www.nevrona.com/indy, mas de qualquer forma fico
agradecido.
sucesso []s.
- Original Message -
From: Luiz Henrique Severo d Oliveira
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 01, 2005 9:06 AM
Subject: [delphi-br] Re: FTP com Indy
Sergio,
Para fazer um upload eu faço isso:
IdFTP1.Host := '127.13.34.111';
IdFTP1.Username := Usuario;
IdFTP1.Password := Senha;
IdFTP1.Connect;
IdFTP1.Put(AbZipper1.FileName,ExtractFileName(AbZipper1.FileName),False);
IdFTP1.Disconnect;
Acredito que para fazer um download basta trocar o IdFTP1.Put por IdFTP1.Get.
Abraços
Luiz Henrique Severo d Oliveira
RPG Soluçoes
www.rpgsolucoes.com.br
>
>
> Mensagem: 7
> Data: Mon, 28 Feb 2005 19:55:43 -0300
> De: Futura System Informática <[EMAIL PROTECTED]>
> Assunto: FTP com Indy
>
> Ae pessoal alguem sabe como eu posso fazer um Download via FTP com o
componente idFTP da paleta Indy Client, eu usava no Delphi 6 o FNMFTP desta
forma:
>
> if NMFTP1.Connected then
> ftp.Disconnect;
>
> NMFTP1.Host := 'ftp.provedor.com.br';
> NMFTP1.UserID := 'minhaconta';
> NMFTP1.Password := 'minhasenha';
>
> NMFTP1.Connect;
> NMFTP1.Mode(MODE_BYTE);
> NMFTP1.ChangeDir('/');
> if NMFTP1.Connected then
> NMFTP1.Download(Pchar('Programa.exe'), Pchar('Programa.exe'));
>
> if NMFTP1.Connected then
> NMFTP1.Disconnect;
> // Fim
>
> Agradeço qualquer ajuda.
>
> Sergio Toshio Kawahara
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por:
--
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!.
[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]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] FTP com Indy
Ae pessoal alguem sabe como eu posso fazer um Download via FTP com o componente
idFTP da paleta Indy Client, eu usava no Delphi 6 o FNMFTP desta forma:
if NMFTP1.Connected then
ftp.Disconnect;
NMFTP1.Host := 'ftp.provedor.com.br';
NMFTP1.UserID := 'minhaconta';
NMFTP1.Password := 'minhasenha';
NMFTP1.Connect;
NMFTP1.Mode(MODE_BYTE);
NMFTP1.ChangeDir('/');
if NMFTP1.Connected then
NMFTP1.Download(Pchar('Programa.exe'), Pchar('Programa.exe'));
if NMFTP1.Connected then
NMFTP1.Disconnect;
// Fim
Agradeço qualquer ajuda.
Sergio Toshio Kawahara
[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]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] FTP
Oi Francisco, obrigado por responder, esse componente é o que esta na palheta
Indy Clients, se for ja tentei usar mais naum sei a sintaxe dele, para colocar
o Host, Id, password, se vc puder me passar fico agradecido.
eu usava assim:
if ftp.Connected then
ftp.Disconnect;
ftp.Host := 'ftp.provedor.com.br';
ftp.UserID := 'minhaconta';
ftp.Password := 'minhasenha';
ftp.Connect;
ftp.Mode(MODE_BYTE);
ftp.ChangeDir('/');
if ftp.Connected then
ftp.Download(Pchar('Programa.exe'), Pchar('Programa.exe'));
if ftp.Connected then
ftp.Disconnect;
// Fim
Sergio Toshio Kawahara
- Original Message -
From: Francisco Thiago
To: delphi-br@yahoogrupos.com.br
Sent: Monday, February 28, 2005 3:29 PM
Subject: Re: [delphi-br] FTP
usa o IdFTP
Francisco Thiago de Almeida
Enter&Plug Informática
Divisão: Desenvolvimento e Banco de dados
MSN: [EMAIL PROTECTED]
----- Original Message -
From: "Futura System Informática" <[EMAIL PROTECTED]>
To:
Sent: Monday, February 28, 2005 2:51 PM
Subject: [delphi-br] FTP
Pessoal eu usava o FNMFTP do delphi 6 para fazer ftp automaticamente pelo
meu sistema, agora migrei para o Delphi 7 e naum estou encontrando o
componente, alguem pode me ajudar.
Grato
Sergio Toshio Kawahara
[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
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
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!.
[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]
Yahoo! Grupos, um serviço oferecido por:
--
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!.
[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]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] FTP
Oi Francisco, obrigado por responder, esse componente é o que esta na palheta Indy Clients, se for ja tentei usar mais naum sei a sintaxe dele, para colocar o Host, Id, password, se vc puder me passar fico agradecido. Sergio Toshio Kawahara - Original Message - From: Francisco Thiago To: delphi-br@yahoogrupos.com.br Sent: Monday, February 28, 2005 3:29 PM Subject: Re: [delphi-br] FTP usa o IdFTP Francisco Thiago de Almeida Enter&Plug Informática Divisão: Desenvolvimento e Banco de dados MSN: [EMAIL PROTECTED] - Original Message - From: "Futura System Informática" <[EMAIL PROTECTED]> To: Sent: Monday, February 28, 2005 2:51 PM Subject: [delphi-br] FTP Pessoal eu usava o FNMFTP do delphi 6 para fazer ftp automaticamente pelo meu sistema, agora migrei para o Delphi 7 e naum estou encontrando o componente, alguem pode me ajudar. Grato Sergio Toshio Kawahara [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 -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- 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!. [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] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] FTP
Pessoal eu usava o FNMFTP do delphi 6 para fazer ftp automaticamente pelo meu sistema, agora migrei para o Delphi 7 e naum estou encontrando o componente, alguem pode me ajudar. Grato Sergio Toshio Kawahara [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] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Data e MaskEdit! (Denovo!)
FormatDateTime('dd',Date) // Extrai o dia
FormatDateTime('mm',Date) // Extrai o mes
FormatDateTime('',Date) // Extrai o ano
espero que te ajude.
- Original Message -
From: DelphiStar
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, February 22, 2005 10:52 AM
Subject: Re: [delphi-br] Data e MaskEdit! (Denovo!)
COPY(DateToStr(mskdata.text),1,2);
--
Ola Lista!!!
Naum consigo achar como separar um dia de uma data,
naum sei nem por onde comecar, e o pior, depois eu
tenho que juntar pra fazer outra data, to cacando o
help e nada que ajude, sera que alguem pode dar uma
forcinha?
Obrigado
/*==*/
--- Rodrigo Izquierdo da Motta <[EMAIL PROTECTED]>
escreveu:
>
>
[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]
Yahoo! Grupos, um serviço oferecido por:
--
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!.
[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]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Capturar a Imagem gerada pelo Preview do QR
Pessoal alguem sabe como posso capturar a imagem gerada pelo preview do QReport e jogar para um arquivo tipo BMP ou JPG, agradeço qualquer ajuda. Sérgio Toshio Kawahara [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] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Rotina para exlcuir arquivo do HD
Amigo Eduardo eu faço assim:
procedure TForm.BitBtn1Click(Sender: TObject);
var
SR: TSearchRec;
i: Integer;
begin
// Vamos apagar todos os arquivos de uma Pasta usando o caracter coringa
"*".
i := FindFirst('C:\Dados\*.DB', faAnyFile, SR);
while i = 0 do
begin
if (SR.Attr and faDirectory) <> faDirectory then
DeleteFile('C:\Dados\'+SR.Name);
i := FindNext(SR);
end;
end;
Espero que te ajude, sucesso []'s
Sergio Toshio Kawahara
Futura System Informatica
[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]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Msg de erro do FB
Pessoal como pego a msg de erro gerada pelo banco por exception, eu tenho a
seguinte função para gravar no banco:
function Gravar(cdse:TClientDataSet):Boolean;
begin
with cdse do
begin
Post;
if ApplyUpdates(0) > 0 then
begin
-- QUERO COLOCAR AQUI A MSG DO BANCO
ShowMessage('Atenção! Erro na Gravação.');
CancelUpdates;
Result := False;
end
else
begin
Result := True;
end;
end;
end;
Agradeço qualquer ajuda
Sérgio Toshio Kawahara
[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]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Mensagem de erro do Banco FB 1.5
Estou usando essa função para fazer a gravação no banco, mas ela naum esta
identificando as mensagem de erros gerados pelo banco, o que tenho que fazer
nela para que mostre a mensagem que foi colocado no exception do banco.
function Gravar(cdse:TClientDataSet):Boolean;
begin
with cdse do
begin
if ApplyUpdates(0) > 0 then
begin
ShowMessage('Atenção! Erro na Gravação.');
CancelUpdates;
Result := False;
end
else
begin
Result := True;
end;
end;
end;
Agradeço qualquer ajuda.
Sérgio Kawahara
[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]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
