Re: [delphi-br] Módulo 97 base 10 (norma iso 7064)
Bom, acredito que se não é pra ajudar, melhor não responder... do que dizer asneiras por aí.. Att. 2009/12/15 Walter Chagas (Bol) wchag...@bol.com.br O google, o Yahoo e o Altavista com certeza tem.. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: rod rodli...@ymail.com rodlinux%40ymail.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, December 15, 2009 2:33 PM Subject: [delphi-br] Módulo 97 base 10 (norma iso 7064) Olá a todos Trabalho com sistema jurídico de distribuição de processos judiciais e o CNJ determinou que fosse gerado um único número por processo, através de uma combinação de valores, calculando o dígito verificador através do alg. Módulo 97 base 10 (norma iso 7064). Alguém tem essa função para Delphi? Grato Rodrigo [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como verificar se um programa esta e m execução pelo seu path?
Olha, eu acho que pelo path não dá, mas você pode saber se um programa está
em execução ou não com o seguinte trecho de código:
procedure TForm4.FormClick(Sender: TObject);
begin
if FindWindow(nil, 'Form4') 0 then
ShowMessage('exec');
end;
tem outras maneiras mas, esta é a mais simples.
2009/12/15 Ricardo Lima rlma...@gmail.com
Desculpa mas acho que não tem nada a ver sua resposta com a minha pergunta.
At.
rlmariz
Rafael Jorge escreveu:
extractfilepath(paramstr(0));
2009/12/15 Ricardo Lima rlma...@gmail.com rlmariz%40gmail.com
Tem alguma forma de saber se um determinado programa está em execução
utilizando seu path?
Eu sei que pelo nome do programa é possivel, mas eu preciso do path, ex:
c:\meu programa\meuexe.exe.
Obrigado,
At.
rlmariz
--
Estou utilizando a versão gratuita de SPAMfighter para usuários
privados.
Foi removido 1207 emails de spam até hoje.
Os usuários pagantes não têm esta mensagem nos seus emails.
Adquira SPAMfighter grátis aqui: http://www.spamfighter.com/lpt
--
Estou utilizando a versão gratuita de SPAMfighter para usuários privados.
Foi removido 1212 emails de spam até hoje.
Os usuários pagantes não têm esta mensagem nos seus emails.
Adquira SPAMfighter grátis aqui: http://www.spamfighter.com/lpt
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema com ClientDataset
Olá pessoal, No meu Data Module tenho TSQLDataSet, TDataSetProvider e um ClientDataset. O Meu TDataSetProvider a Options - poAllowCommandText := True; para o ClientDatase passar comandos SQL. O commandText do ClientDataset := select * from CONTAS Where COD_CONTA = :COD O Tipo do Parametro :COD já definir como Integer. Faço o seguinte commando DM_Cadastro.cdsContas.Close; DM_Cadastro.cdsContas.Params[0].AsInteger := DBGrid1.Fields[0].AsInteger; DM_Cadastro.cdsContas.Open; Ele insiste em dar o error 'Dynamic SQL Error SQL error code =-104 Unexpected end of command - line1, column51' Devo confessar que sou novo usando ClientDataset. O que devo estar fazendo de errado. Desde já agradeço DarkZad __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Como verificar se um programa esta e m execução pelo seu path?
Ricardo, acredito que você terá que verificar todos os processos em execução. Não tenho uma rotina pronta, mas uma busca irá lhe ajudar. Com o PID de cada processo, você poderia usar a rotina abaixo: var Alca : THandle; sExe : string; dwRet : DWORD; begin Alca := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,False,piPID); SetLength(sExe,MAX_PATH); dwRet := GetModuleFileNameEx(Alca,0,PChar(sExe),MAX_PATH); SetLength(sExe,StrLen(PChar(sExe))); Self.FCaminhoExe := sExe; CloseHandle(Alca); end; É mais ou menos isso. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Módulo 97 base 10 (norma iso 706 4)
Olha... sinceramente não vi nenhuma asneira por aí não... O único problema é que não existe implementação em Delphi ainda para o algoritmo proposto pela norma. A documentação e exemplos que achei são para Java, VB e PL/SQL. Mas perdendo um pouco de tempo, e lendo este documento [1] acredito que seja possível chegar a alguma coisa em Delphi. [1] - http://monoceros.cnj.gov.br/portalcnj/images/numerao_nica_de_processos_nos_estados/digito_de_verificacao_justica_em_numeros_do_cnj_15122008.pdf Atte, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 15/12/09, Fellipe Henrique felli...@gmail.com escreveu: De: Fellipe Henrique felli...@gmail.com Assunto: Re: [delphi-br] Módulo 97 base 10 (norma iso 7064) Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 15 de Dezembro de 2009, 20:53 Bom, acredito que se não é pra ajudar, melhor não responder... do que dizer asneiras por aí.. Att. 2009/12/15 Walter Chagas (Bol) wchag...@bol.com.br O google, o Yahoo e o Altavista com certeza tem.. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: rod rodli...@ymail.com rodlinux%40ymail.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, December 15, 2009 2:33 PM Subject: [delphi-br] Módulo 97 base 10 (norma iso 7064) Olá a todos Trabalho com sistema jurídico de distribuição de processos judiciais e o CNJ determinou que fosse gerado um único número por processo, através de uma combinação de valores, calculando o dígito verificador através do alg. Módulo 97 base 10 (norma iso 7064). Alguém tem essa função para Delphi? Grato Rodrigo [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
Re: [delphi-br] Módulo 97 base 10 (norma iso 7 064)
Bom, se voce disser qual foi a asneira que eu disse, eu me calo e acato plenamente sua crítica hostil. A lista já tá farta de pessoas que, ao invés de consultar os mecanismos de busca na WEB, optam pelo comodismo: Posta na lista e espera alguem fazer isto pra ele pra lhe passar mastigado. Aí se ninguem responde, ainda por cima acha ruim... Fala sééério ow!!! []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Fellipe Henrique felli...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Tuesday, December 15, 2009 8:53 PM Subject: Re: [delphi-br] Módulo 97 base 10 (norma iso 7064) Bom, acredito que se não é pra ajudar, melhor não responder... do que dizer asneiras por aí.. Att. 2009/12/15 Walter Chagas (Bol) wchag...@bol.com.br O google, o Yahoo e o Altavista com certeza tem.. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: rod rodli...@ymail.com rodlinux%40ymail.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, December 15, 2009 2:33 PM Subject: [delphi-br] Módulo 97 base 10 (norma iso 7064) Olá a todos Trabalho com sistema jurídico de distribuição de processos judiciais e o CNJ determinou que fosse gerado um único número por processo, através de uma combinação de valores, calculando o dígito verificador através do alg. Módulo 97 base 10 (norma iso 7064). Alguém tem essa função para Delphi? Grato Rodrigo [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- 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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Res: [delphi-br] Como verificar se um program a esta em execução pelo seu path?
Ricardo;
Veja a rotina abaixo eu a utilizo nos meu programas e funciona bem, deve ser
colocada no dpr
o nome Sistema de Cobrança é atribuido na janela Project Options opcao
Version Info e no
key FileDescription.
O nome que voce colocar lá deve ser o mesmo de HprevHist := FindWindow(Nil,
PChar('Sistema de Cobrança'));
Desta forma somente uma instancia do aplicativo na execução será permitida
REINALDO
{$R *.res}
var ExtendedStyle: integer;
HprevHist : HWND;
begin
Application.Initialize;
HprevHist := FindWindow(Nil, PChar('Sistema de Cobrança'));
if HprevHist 0 then
begin
MessageBox(0, 'ATENÇÃO! Este aplicativo já está em execução', 'Sigecob',
MB_ICONERROR or MB_OK);
EXIT;
end;
Application.CreateForm(TForm_Main, Form_Main);
De: José Mário Silva Guedes jmariogue...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 16 de Dezembro de 2009 10:27:48
Assunto: Re: [delphi-br] Como verificar se um programa esta em execução pelo
seu path?
Ricardo, acredito que você terá que verificar todos os processos em
execução.
Não tenho uma rotina pronta, mas uma busca irá lhe ajudar.
Com o PID de cada processo, você poderia usar a rotina abaixo:
var
Alca : THandle;
sExe : string;
dwRet : DWORD;
begin
Alca := OpenProcess( PROCESS_QUERY_ INFORMATION or
PROCESS_VM_READ, False,piPID) ;
SetLength(sExe, MAX_PATH) ;
dwRet := GetModuleFileNameEx (Alca,0,PChar( sExe),MAX_ PATH);
SetLength(sExe, StrLen(PChar( sExe)));
Self.FCaminhoExe := sExe;
CloseHandle( Alca);
end;
É mais ou menos isso.
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Módulo 97 base 10 (norma iso 7064)
Veja esta idéia , Walter... http://monoceros.cnj.gov.br/portalcnj/images/numerao_nica_de_processos_nos_estados/digito_de_verificacao_justica_em_numeros_do_cnj_15122008.pdf 2009/12/16 Walter Chagas (Bol) wchag...@bol.com.br Bom, se voce disser qual foi a asneira que eu disse, eu me calo e acato plenamente sua crítica hostil. A lista já tá farta de pessoas que, ao invés de consultar os mecanismos de busca na WEB, optam pelo comodismo: Posta na lista e espera alguem fazer isto pra ele pra lhe passar mastigado. Aí se ninguem responde, ainda por cima acha ruim... Fala sééério ow!!! []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Fellipe Henrique felli...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Tuesday, December 15, 2009 8:53 PM Subject: Re: [delphi-br] Módulo 97 base 10 (norma iso 7064) Bom, acredito que se não é pra ajudar, melhor não responder... do que dizer asneiras por aí.. Att. 2009/12/15 Walter Chagas (Bol) wchag...@bol.com.br O google, o Yahoo e o Altavista com certeza tem.. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: rod rodli...@ymail.com rodlinux%40ymail.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, December 15, 2009 2:33 PM Subject: [delphi-br] Módulo 97 base 10 (norma iso 7064) Olá a todos Trabalho com sistema jurídico de distribuição de processos judiciais e o CNJ determinou que fosse gerado um único número por processo, através de uma combinação de valores, calculando o dígito verificador através do alg. Módulo 97 base 10 (norma iso 7064). Alguém tem essa função para Delphi? Grato Rodrigo [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Márcio F. Cruz [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema com ClientDataset
Verifique se DBGrid1.Fields[0].AsInteger não está nulo. Tente também : ClientDataset.CommandText := 'select * from CONTAS Where COD_CONTA = ' + DBGrid1.Fields[0].AsString. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Módulo 97 base 10 (norma iso 706 4)
Mas quer melhor lugar para achar soluções que no google, não vejo isso como asneira. Quem sabe as pessoas melhorem suas tecnicas de busca --- Em ter, 15/12/09, Fellipe Henrique felli...@gmail.com escreveu: De: Fellipe Henrique felli...@gmail.com Assunto: Re: [delphi-br] Módulo 97 base 10 (norma iso 7064) Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 15 de Dezembro de 2009, 20:53 Bom, acredito que se não é pra ajudar, melhor não responder... do que dizer asneiras por aí.. Att. 2009/12/15 Walter Chagas (Bol) wchag...@bol.com.br O google, o Yahoo e o Altavista com certeza tem.. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: rod rodli...@ymail.com rodlinux%40ymail.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, December 15, 2009 2:33 PM Subject: [delphi-br] Módulo 97 base 10 (norma iso 7064) Olá a todos Trabalho com sistema jurídico de distribuição de processos judiciais e o CNJ determinou que fosse gerado um único número por processo, através de uma combinação de valores, calculando o dígito verificador através do alg. Módulo 97 base 10 (norma iso 7064). Alguém tem essa função para Delphi? Grato Rodrigo [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Um dia alguém tava procurando por isso. ..
*ClubeDelphi 82* R$ 9,90 Veja nesta edição: Código fonético no Firebird.Um dos maiores problemas em um cadastro, seja de clientes, fornecedores ou produtos, é quando ele se torna muito grande, dificultando a busca por nome ou descrição. Quem nunca se confundiu com o nome de um cliente ou de um produto? Walter ou Valter? Luis ou Luiz? Tem acento? Elizabeth, Elisabette ou Elizabette? Neste artigo veremos como criar uma rotina de código fonético em português para ser utilizada no Firebird e muitos outros artigos. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Módulo 97 bas e 10 (norma iso 7064)
Agradeço a todos pela colaboração! Descobri uma função pronta num site francês e outro em chinês, e esse alg. é feito também pelos bancos (dígito verificador do boleto). Um grande abraço a todos Rod Em Tue, 15 Dec 2009 20:53:19 -0200, Fellipe Henrique felli...@gmail.com escreveu: Bom, acredito que se não é pra ajudar, melhor não responder... do que dizer asneiras por aí.. Att. 2009/12/15 Walter Chagas (Bol) wchag...@bol.com.br O google, o Yahoo e o Altavista com certeza tem.. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: rod rodli...@ymail.com rodlinux%40ymail.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, December 15, 2009 2:33 PM Subject: [delphi-br] Módulo 97 base 10 (norma iso 7064) Olá a todos Trabalho com sistema jurídico de distribuição de processos judiciais e o CNJ determinou que fosse gerado um único número por processo, através de uma combinação de valores, calculando o dígito verificador através do alg. Módulo 97 base 10 (norma iso 7064). Alguém tem essa função para Delphi? Grato Rodrigo [As partes desta mensagem que não continham texto foram removidas] -- Rod http://www.radiobrgospel.com Você conectado com o som do Céu! -- 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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] User Control
Pessoal alguem aqui usa o User Control? se sim, poriam me dizer se tem como pegar o usuario logado, para gravar o id dele junto com a operação que esta sendo realizada, por exemplo uma venda, orcamento, etc. Tem como fazer isso? -- Nazareno Neto Programador Delphi e Firebird http://www.delphisistemas.com.br nazarenon...@hotmail.com nazareno.nobr...@gmail.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema com ClientDataset
Parece estar tudo ok deve ser algum detalhe.tente dar fetch params antes de
abrir.Eu particularmente prefiro usar assimwith cds do beginclose;commandText
:= '';commandText := 'select * from CONTAS where COD_CONTA
=:COD';Params.ParamByName('COD').asInteger := DBGrid1.Fields[
0].AsInteger;open;end;outra poem um break point e ve qual valor está passando
para o parametro. Boa sortemas num esquenta não ja ja voce resolve
--- Em qua, 16/12/09, Darkzad dark...@yahoo.com.br escreveu:
De: Darkzad dark...@yahoo.com.br
Assunto: [delphi-br] Problema com ClientDataset
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 16 de Dezembro de 2009, 11:16
Olá pessoal,
No meu Data Module tenho TSQLDataSet, TDataSetProvider e um ClientDataset.
O Meu TDataSetProvider a Options - poAllowCommandText := True; para o
ClientDatase passar comandos SQL.
O commandText do ClientDataset := select * from CONTAS Where COD_CONTA =
:COD
O Tipo do Parametro :COD já definir como Integer.
Faço o seguinte commando
DM_Cadastro. cdsContas. Close;
DM_Cadastro. cdsContas. Params[0] .AsInteger := DBGrid1.Fields[ 0].AsInteger;
DM_Cadastro. cdsContas. Open;
Ele insiste em dar o error 'Dynamic SQL Error SQL error code =-104
Unexpected end of command - line1, column51'
Devo confessar que sou novo usando ClientDataset.
O que devo estar fazendo de errado.
Desde já agradeço
DarkZad
_ _ _ _ __
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta. messenger. yahoo.com/
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema com ClientDataset
Porque você não deixa a sql no TSQLDataSet e altera os Parâmetros no ClientDataSet? Vai fucionar igual ao que está fazendo, só que a SQL ficaria no TSQLDataSet, e não precisa do parametro poAllowCommandText, que acho até que serve para outra coisa, e não isso... Darkzad escreveu: Olá pessoal, No meu Data Module tenho TSQLDataSet, TDataSetProvider e um ClientDataset. O Meu TDataSetProvider a Options - poAllowCommandText := True; para o ClientDatase passar comandos SQL. O commandText do ClientDataset := select * from CONTAS Where COD_CONTA = :COD O Tipo do Parametro :COD já definir como Integer. Faço o seguinte commando DM_Cadastro.cdsContas.Close; DM_Cadastro.cdsContas.Params[0].AsInteger := DBGrid1.Fields[0].AsInteger; DM_Cadastro.cdsContas.Open; Ele insiste em dar o error 'Dynamic SQL Error SQL error code =-104 Unexpected end of command - line1, column51' Devo confessar que sou novo usando ClientDataset. O que devo estar fazendo de errado. Desde já agradeço DarkZad
[delphi-br] Boleto BB
Galera, Estou precisando URGENTE, gerar BOLETOS do Banco do Brasil. Sem registro, carteira 18. Alguém poderia me ajudar ?? Por onde começar?? Já testei vários componentes, mas nenhum satisfatório. Uso o Delphi 7.0 Obrigado.
Re: [delphi-br] Módulo 97 base 10 (norma iso 706 4)
Sem stress. veja o anexo. - Original Message - From: Fellipe Henrique felli...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Tuesday, December 15, 2009 8:53 PM Subject: Re: [delphi-br] Módulo 97 base 10 (norma iso 7064) Bom, acredito que se não é pra ajudar, melhor não responder... do que dizer asneiras por aí.. Att. 2009/12/15 Walter Chagas (Bol) wchag...@bol.com.br O google, o Yahoo e o Altavista com certeza tem.. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: rod rodli...@ymail.com rodlinux%40ymail.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, December 15, 2009 2:33 PM Subject: [delphi-br] Módulo 97 base 10 (norma iso 7064) Olá a todos Trabalho com sistema jurídico de distribuição de processos judiciais e o CNJ determinou que fosse gerado um único número por processo, através de uma combinação de valores, calculando o dígito verificador através do alg. Módulo 97 base 10 (norma iso 7064). Alguém tem essa função para Delphi? Grato Rodrigo [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Tabela 1 left join (Tabela 2 inner join Tabela 3)
Geralmente, por questão de desempenho, utiliza-se sempre primeiro os inner, depois left e depois outros joins que tiver, mas neste caso, realmente teria ou usar como Romudo escreveu, ou usando UNION ou até mesmo dependendo do caso, não sei se no seu se encaixaria tabela derivada. 2009/12/12 Romulo Busatto busatto.rom...@gmail.com SELECT T1.* FROM TABELA_1 T1 left join TABELA_2 T2 on (T2.ID_T1 = T1.IDT1) inner join TABELA_3 T3 on (T3.ID_T2 = T2.ID_T2) [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema com ClientDataset
Isso não é seguro! NUNCA concatene na SQL... se ele estiver nulo o asstring dele vai trazer '' então token unknow =) ... Continue usando os parametros. só troca a sql de lugar... como falei antes... Alisson Yahoo escreveu: Verifique se DBGrid1.Fields[0].AsInteger não está nulo. Tente também : ClientDataset.CommandText := 'select * from CONTAS Where COD_CONTA = ' + DBGrid1.Fields[0].AsString.
Re: [delphi-br] Erro em Delphi 7 com AMD Athlon X2 5000B
Bom quando vc tem um micro da marca AiMeuDeus, todos os problemas vem em dobro, tem como trocar por um Pentium não ? Aqui na empresa tínhamos 3 AiMeuDeus e 25 Intel, trocamos os 3 pq varias vezes alguns programas não funcionavam direito, davam erros inexplicáveis, temos um programa do IBOPE e ele tem versão pra Intel e uma pra AiMeuDeus e mesmo assim os próprios desenvolvedores do IBOPE ja falavam, se vc puder rodar nas maquinas INTEL será melhor, pq mesmo tendo a versão pra AiMeuDeus ele ainda assim dava uns probleminhas, a versão INTEL então nem entrava nem sei se já arrumaram isso pq faz tanto tempo []s Luiz Escobar - http://www.megasistema.com.br Harbour 2.0.0beta3(Rev.13200) (DbfNtx+MySQL) MiniGUI 1.7 Extended (Build 78a)-2009.12.15 BCC 5.8.2 (Turbo C++ Explorer 2006) XAMPP 1.7.1 (Apache+MySQL+PHP+(Linux/Win)) FLEX 3.0 (iniciante) Delphi ( 6 PRO 7 Ent ) (DBF/NTX+MySQL) AMD (AiMeuDeus) ? Ñ!, Sou + Intel From: Marcelo Sent: Tuesday, December 15, 2009 4:21 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Erro em Delphi 7 com AMD Athlon X2 5000B Ja tive um problema parecido com um Pentium HT, o problema era em uma unit da biblioteca Jedi especificamente a unt JclSysInfo ela tem uma procedure chamada GetCpuInfo este foi meu problema . Solução um bloco try except e no excepto coloquei para não fazer nada. Solucionou.blz --- Em ter, 15/12/09, Aureo Koppe aureoko...@yahoo.com.br escreveu: De: Aureo Koppe aureoko...@yahoo.com.br Assunto: Re: [delphi-br] Erro em Delphi 7 com AMD Athlon X2 5000B Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 15 de Dezembro de 2009, 11:29 Uma dica: Quando teu programa usa várias thread's, e principalmente quando uma destes thread modifica outra ou duas thread modificam um mesmo arquivo, se for o caso, você terá que colocar um bom mecanismo de bloqueio, ou seja se uma thread está gravando em um determinado arquivo, então nehuma outra poderá gravar neste arquivo enquanto a primeira não terminar, note que em uma máquina bi-processada vai ter dois processos rodando ao mesmo tempo. o que não acontece quando a máquina tem somente um processador. é isso. 2009/12/10 contato cont...@antoniomore ira.com.br Boa noite a todos, alguem ja enfrentou algum problema de incompatibilidade do Delphi 7 com computadores com processador AMD Athlon X2 500B, ou outro parecido ? Sei que nao deveria haver incompatibilidade, mas tenho um sistema com varias threads, onde monitoro/libero uma catraca de acesso atraves de componentes Activex, este sistema funciona em varios computadores sem erros, mas neste especifico esta dando varios erros estranhos. O micro é um HP, ja foi formatado, reinstalado tudo, esta tudo funcionando bem (XP, Office, etc), menos o que precisava :( , que é o sistema.. Se alguem tiver alguma dica, ou se ja passou por algum problema assim... agradeco qualquer ajuda. Obrigado Moreira [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] User Control
UserControl1.CurrentUser.UserId 2009/12/16 Nazareno Neto nazareno.nobr...@gmail.com Pessoal alguem aqui usa o User Control? se sim, poriam me dizer se tem como pegar o usuario logado, para gravar o id dele junto com a operação que esta sendo realizada, por exemplo uma venda, orcamento, etc. Tem como fazer isso? -- Nazareno Neto Programador Delphi e Firebird http://www.delphisistemas.com.br nazarenon...@hotmail.com nazarenoneto%40hotmail.com nazareno.nobr...@gmail.com nazareno.nobrega%40gmail.com [As partes desta mensagem que não continham texto foram removidas] -- José Benedito Software Developer [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Um dia alguém tava procurando por i sso...
Baixa ai!!! http://mrbool.devmedia.com.br/Novo/Revista/ed82-jorge-fonetico.zip -- Gildenor Teixeira Autogere - Sistemas de Automação e Gestão 61 9985-9008 2009/12/16 EmbarcaDelphi embarcadel...@yahoo.com.br *ClubeDelphi 82* R$ 9,90 Veja nesta edição: Código fonético no Firebird.Um dos maiores problemas em um cadastro, seja de clientes, fornecedores ou produtos, é quando ele se torna muito grande, dificultando a busca por nome ou descrição. Quem nunca se confundiu com o nome de um cliente ou de um produto? Walter ou Valter? Luis ou Luiz? Tem acento? Elizabeth, Elisabette ou Elizabette? Neste artigo veremos como criar uma rotina de código fonético em português para ser utilizada no Firebird e muitos outros artigos. [As partes desta mensagem que não continham texto foram removidas] [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Módulo 97 base 10 (norma iso 70 64)
Com base no documento mencionado, escrevi as seguintes funções em Object
Pascal.
function CalculaMod97(NumeroProcesso: longint; Ano, OrgaoJTR,
OrigemProcesso: word): string;
var
resto1, resto2: longint;
valor1, valor2, valor3: string;
begin
valor1 := Format('%7.7d', [NumeroProcesso]);
resto1 := StrToInt64(valor1) mod 97;
valor2 := Format('%2.2d', [resto1]) + Format('%4.4d', [Ano]) +
Format('%3.3d', [OrgaoJTR]);
resto2 := StrToInt64(valor2) Mod 97;
valor3 := Format('%2.2d', [resto2]) + Format('%4.4d', [OrigemProcesso]) +
'00';
Result := Format('%2.2d', [98 - (valor3 Mod 97)]);
end;
function ValidaMod97(NumeroProcesso: longint; Digito: Byte; Ano, OrgaoJTR,
OrigemProcesso: word): boolean;
var
resto1, resto2: longint;
valor1, valor2, valor2: string;
begin
valor1 := Format('%7.7d', [NumeroProcesso]);
resto1 := StrToInt64(valor1) mod 97;
valor2 := Format('%2.2d', [resto1]) + Format('%4.4d', [Ano]) +
Format('%3.3d', [OrgaoJTR]);
resto2 := StrToInt64(valor2) mod 97;
valor3 := Format('%2.2d', [resto2]) + Format('%4.4d', [OrigemProcesso]) +
Format('%2.2d', [Digito]);
Result := (valor3 Mod 97 = 1);
end;
Façam suas validações e, depois, postem suas impressões na lista para saber
se estas funções podem ser usadas em nossos aplicativos Delphi.
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Ricardo César Cardoso
Enviada em: quarta-feira, 16 de dezembro de 2009 09:51
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Módulo 97 base 10 (norma iso 7064)
Olha... sinceramente não vi nenhuma asneira por aí não... O único problema é
que não existe implementação em Delphi ainda para o algoritmo proposto pela
norma.
A documentação e exemplos que achei são para Java, VB e PL/SQL. Mas perdendo
um pouco de tempo, e lendo este documento [1] acredito que seja possível
chegar a alguma coisa em Delphi.
[1] -
http://monoceros.cnj.gov.br/portalcnj/images/numerao_nica_de_processos_nos_e
stados/digito_de_verificacao_justica_em_numeros_do_cnj_15122008.pdf
Atte,
Ricardo.
1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em ter, 15/12/09, Fellipe Henrique felli...@gmail.com
mailto:fellipeh%40gmail.com escreveu:
De: Fellipe Henrique felli...@gmail.com mailto:fellipeh%40gmail.com
Assunto: Re: [delphi-br] Módulo 97 base 10 (norma iso 7064)
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Data: Terça-feira, 15 de Dezembro de 2009, 20:53
Bom, acredito que se não é pra
ajudar, melhor não responder... do que dizer
asneiras por aí..
Att.
2009/12/15 Walter Chagas (Bol) wchag...@bol.com.br
mailto:wchagasj%40bol.com.br
O google, o Yahoo e o Altavista com certeza tem..
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br mailto:wchagasj%40bol.com.br
wchagasj%40bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com
whitesockets%40hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: rod rodli...@ymail.com mailto:rodlinux%40ymail.com
rodlinux%40ymail.com
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
Sent: Tuesday, December 15, 2009 2:33 PM
Subject: [delphi-br] Módulo 97 base 10 (norma iso
7064)
Olá a todos
Trabalho com sistema jurídico de distribuição de
processos judiciais e o
CNJ determinou que fosse gerado um único número por
processo, através de
uma combinação de valores, calculando o dígito
verificador através do alg.
Módulo 97 base 10 (norma iso 7064).
Alguém tem essa função para Delphi?
Grato
Rodrigo
[As partes desta mensagem que não continham texto
foram removidas]
--
_
T.·.F.·.A.·.
Fellipe Henrique
--
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o
seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro,
antes de encaminhar
um e-mail, delete todas as informações que apareçam no
corpo do e-mail e que
possam ser usadas por hackers.
###
[As partes desta mensagem que não continham texto foram
removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER
ESTA MENSAGEM
Links do Yahoo! Grupos
__
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ordenar TIBOQuery
No IBO qdo vc abre o IB_Query tem uma aba Ordering, nela vc pode escolher os campos que podera ordenar em tempo de execução. Depois, qdo estiver rodando seu programa e vc estiver usando um TIB_Grid os campos que podem ser ordenados já aparecem com um simbolo diferente após o nome do titulo. Voce pode ordenar em tempo de execução uma tabela da seguinte forma: IB_qry_SuaTabela. OrderingItemNo := 2 (podera fazer isso se voce criou os campos para serem ordenados como falei no inicio). Um detalhe legal do IBO é que os campos que podem ser ordenados voce podera grava-los em um arquivo .INI por exemplo, que pode ser alterado manualmente por voce caso precise acrescentar ou tirar algum campo da ordenação (sem ter que alterar o executavel). _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Felipe Yahoo Enviada em: terça-feira, 15 de dezembro de 2009 13:46 Para: Felipe Yahoo Assunto: [delphi-br] Ordenar TIBOQuery Boa Tarde Senhores Queria saber como faço pra ordenar o componente TIBOQuery. No ClientDataSet uso ClientDataSet.IndexFieldName := 'CAMPO' ; Obrigadi [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ordenar TIBOQuery
Sugiro monitorar esse recurso do IBOQuery pra ver se ele não reenvia o SELECT acrescido de ORDER BY. Se fizer isso, vc terá perda considerável de performance. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Dimas Enviada em: quarta-feira, 16 de dezembro de 2009 12:16 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Ordenar TIBOQuery No IBO qdo vc abre o IB_Query tem uma aba Ordering, nela vc pode escolher os campos que podera ordenar em tempo de execução. Depois, qdo estiver rodando seu programa e vc estiver usando um TIB_Grid os campos que podem ser ordenados já aparecem com um simbolo diferente após o nome do titulo. Voce pode ordenar em tempo de execução uma tabela da seguinte forma: IB_qry_SuaTabela. OrderingItemNo := 2 (podera fazer isso se voce criou os campos para serem ordenados como falei no inicio). Um detalhe legal do IBO é que os campos que podem ser ordenados voce podera grava-los em um arquivo .INI por exemplo, que pode ser alterado manualmente por voce caso precise acrescentar ou tirar algum campo da ordenação (sem ter que alterar o executavel). _ De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Felipe Yahoo Enviada em: terça-feira, 15 de dezembro de 2009 13:46 Para: Felipe Yahoo Assunto: [delphi-br] Ordenar TIBOQuery Boa Tarde Senhores Queria saber como faço pra ordenar o componente TIBOQuery. No ClientDataSet uso ClientDataSet.IndexFieldName := 'CAMPO' ; Obrigadi [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema com ClientDataset
Com certeza a propriedade poAllowCommandText serve para voce poder passar instruções sql através do CDS, pode não estar funcionando por N motivos menos este. --- Em qua, 16/12/09, Marcelo Luiz Onhate marc...@systempro.com.br escreveu: De: Marcelo Luiz Onhate marc...@systempro.com.br Assunto: Re: [delphi-br] Problema com ClientDataset Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 16 de Dezembro de 2009, 11:44 Porque você não deixa a sql no TSQLDataSet e altera os Parâmetros no ClientDataSet? Vai fucionar igual ao que está fazendo, só que a SQL ficaria no TSQLDataSet, e não precisa do parametro poAllowCommandText, que acho até que serve para outra coisa, e não isso... Darkzad escreveu: Olá pessoal, No meu Data Module tenho TSQLDataSet, TDataSetProvider e um ClientDataset. O Meu TDataSetProvider a Options - poAllowCommandText := True; para o ClientDatase passar comandos SQL. O commandText do ClientDataset := select * from CONTAS Where COD_CONTA = :COD O Tipo do Parametro :COD já definir como Integer. Faço o seguinte commando DM_Cadastro. cdsContas. Close; DM_Cadastro. cdsContas. Params[0] .AsInteger := DBGrid1.Fields[ 0].AsInteger; DM_Cadastro. cdsContas. Open; Ele insiste em dar o error 'Dynamic SQL Error SQL error code =-104 Unexpected end of command - line1, column51' Devo confessar que sou novo usando ClientDataset. O que devo estar fazendo de errado. Desde já agradeço DarkZad Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Módulo 97 base 10 (norma iso 7064)
O problema não é procurar ou não no google, ou no que for... o problema é que de nada ajudou a msg do amigo.. se não é pra ajudar, fica-se em silencio... Imagina, se pra cada pergunta aqui no forum eu virasse e respondesse: se vira, procura no google...! além de gerar tráfego exagerado por uma coisa besta, não ajuda em nada... lembrando que as msg ficam gravadas no google... imagina alguem buscando no google, e achando o arquivo desta thread e pensar... achei a solução! e ver como resposta, procure no google.. Então, só uma idéia, se quiser acatar tudo bem, se não sabe a resposta, não responda... finja que não leu, e exclui a mensagem... pronto.. voce ajuda, a você (que nao se estressa), ajuda a todos do grupo (que não recebem este tipo de msg) e ajuda também a combalida Yahoo, porque não!?1? Tenha dó... []s -- _ T.·.F.·.A.·. Fellipe Henrique --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema com ClientDataset
Não entendi muito bem, poderia dar um exemplo? Coloquei o SQL dentro do TSQLDataset quando executo o comando abaixo sdsContas.Close; sdsContas.Params[0].AsInteger := DBGrid1.Fields[0].AsInteger; sdsContas.Open; Não dá erro nenhum mas tbm não traz nenhum registro. E o DBGrid1.Fields[0].AsInteger não está nulo e tem dado na tabela. Se eu adicionar o comando : ClientDataset.Close; ClientDataset.Open; Ele dá o erro 'Dynamic SQL Error SQL error code =-104 Unexpected end of command - line1, column51' Muito estranho isso. Valeu Marcelo Luiz Onhate escreveu: Isso não é seguro! NUNCA concatene na SQL... se ele estiver nulo o asstring dele vai trazer '' então token unknow =) ... Continue usando os parametros. só troca a sql de lugar... como falei antes... Alisson Yahoo escreveu: Verifique se DBGrid1.Fields[0].AsInteger não está nulo. Tente também : ClientDataset.CommandText := 'select * from CONTAS Where COD_CONTA = ' + DBGrid1.Fields[0].AsString. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- 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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] OFF TOPIC-Consultar registro com acentos em Firebird
Pesquisei na internet sobre a possibilidade de fazer consulta no Firebird sem fazer a distinção entre palavras acentuadas e não acentuadas, entre maiúsculas e minúsculas. Ex. Se eu pesquisar por JOAO, a consulta trará registros que contém joão, joao, JOÃO e JOAO. Achei artigos que dizem dizendo que devo usar o Charset WIN1252 e Collate PXW_INTL850. Usando o IbExpert vi que consigo definir o Charset WIN1252 ao criar o banco, mas e oCollate PXW_INTL850? Como faço para definir? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
RES: [delphi-br] Ordenar TIBOQuery
Muito interessante sua observação, geralmente eu trabalho com procedures, acredito que a ordenação se faça em memoria e somente dos registros que aparecem na tela, ou seja, ele não volta ao banco de dados para ordenar. Mas vou pesquisar melhor. Obrigado _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: quarta-feira, 16 de dezembro de 2009 14:18 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Ordenar TIBOQuery Prioridade: Alta Sugiro monitorar esse recurso do IBOQuery pra ver se ele não reenvia o SELECT acrescido de ORDER BY. Se fizer isso, vc terá perda considerável de performance. Sds. De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de Dimas Enviada em: quarta-feira, 16 de dezembro de 2009 12:16 Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: RES: [delphi-br] Ordenar TIBOQuery No IBO qdo vc abre o IB_Query tem uma aba Ordering, nela vc pode escolher os campos que podera ordenar em tempo de execução. Depois, qdo estiver rodando seu programa e vc estiver usando um TIB_Grid os campos que podem ser ordenados já aparecem com um simbolo diferente após o nome do titulo. Voce pode ordenar em tempo de execução uma tabela da seguinte forma: IB_qry_SuaTabela. OrderingItemNo := 2 (podera fazer isso se voce criou os campos para serem ordenados como falei no inicio). Um detalhe legal do IBO é que os campos que podem ser ordenados voce podera grava-los em um arquivo .INI por exemplo, que pode ser alterado manualmente por voce caso precise acrescentar ou tirar algum campo da ordenação (sem ter que alterar o executavel). _ De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Felipe Yahoo Enviada em: terça-feira, 15 de dezembro de 2009 13:46 Para: Felipe Yahoo Assunto: [delphi-br] Ordenar TIBOQuery Boa Tarde Senhores Queria saber como faço pra ordenar o componente TIBOQuery. No ClientDataSet uso ClientDataSet.IndexFieldName := 'CAMPO' ; Obrigadi [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Módulo 97 base 10 (no rma iso 7064)
Só um detalhe que não é para você Felipe, tem gente que tem preguiça de procurar no Google, isso já é comprovado e já foi tema de discussão aqui na lista. Tem gente que quer tudo na mão, (mais uma vez, não é o seu caso), e..., outras vezes, as pessoas não acreditam que colocar no Google assim: delphi +meu problema. Possam encontrar soluções, porisso que eu sempre digo para dar uma busca no google. Não fui eu que falei nesta thread, mas costumo ditar e em alguns casos aparecem a solução e o agradecimento. :) Em 16/12/2009 12:51, Fellipe Henrique escreveu: O problema não é procurar ou não no google, ou no que for... o problema é que de nada ajudou a msg do amigo.. se não é pra ajudar, fica-se em silencio... Imagina, se pra cada pergunta aqui no forum eu virasse e respondesse: se vira, procura no google...! além de gerar tráfego exagerado por uma coisa besta, não ajuda em nada... lembrando que as msg ficam gravadas no google... imagina alguem buscando no google, e achando o arquivo desta thread e pensar... achei a solução! e ver como resposta, procure no google.. Então, só uma idéia, se quiser acatar tudo bem, se não sabe a resposta, não responda... finja que não leu, e exclui a mensagem... pronto.. voce ajuda, a você (que nao se estressa), ajuda a todos do grupo (que não recebem este tipo de msg) e ajuda também a combalida Yahoo, porque não!?1? Tenha dó... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Boleto BB
usa o delphi boleto, acho q o nome certo eh esse! 2009/12/16 eljusticeiro...@ymail.com proth...@amsistemas.com.br Galera, Estou precisando URGENTE, gerar BOLETOS do Banco do Brasil. Sem registro, carteira 18. Alguém poderia me ajudar ?? Por onde começar?? Já testei vários componentes, mas nenhum satisfatório. Uso o Delphi 7.0 Obrigado. -- Nazareno Neto Programador Delphi e Firebird http://www.delphisistemas.com.br nazarenon...@hotmail.com nazareno.nobr...@gmail.com [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Problema com ClientDataset
sdsContas é o TSQLDataSet? Se é está errado... Isso: sdsContas.Close; sdsContas.Params[0].AsInteger := DBGrid1.Fields[0].AsInteger; sdsContas.Open; Deve ser feito com ClientDataSet... Você também verificou nos params do dataset e do client se os tipos deles estão corretos? Darkzad escreveu: Não entendi muito bem, poderia dar um exemplo? Coloquei o SQL dentro do TSQLDataset quando executo o comando abaixo sdsContas.Close; sdsContas.Params[0].AsInteger := DBGrid1.Fields[0].AsInteger; sdsContas.Open; Não dá erro nenhum mas tbm não traz nenhum registro. E o DBGrid1.Fields[0].AsInteger não está nulo e tem dado na tabela. Se eu adicionar o comando : ClientDataset.Close; ClientDataset.Open; Ele dá o erro 'Dynamic SQL Error SQL error code =-104 Unexpected end of command - line1, column51' Muito estranho isso. Valeu Marcelo Luiz Onhate escreveu: Isso não é seguro! NUNCA concatene na SQL... se ele estiver nulo o asstring dele vai trazer '' então token unknow =) ... Continue usando os parametros. só troca a sql de lugar... como falei antes... Alisson Yahoo escreveu: Verifique se DBGrid1.Fields[0].AsInteger não está nulo. Tente também : ClientDataset.CommandText := 'select * from CONTAS Where COD_CONTA = ' + DBGrid1.Fields[0].AsString. -- 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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Res: [delphi-br] Problema com ClientDataset
Fala Darkzad, Faz o seguinte cara Cria o mesmo parametro (COD) dentro do
ClientDataSet, Igualzinho ao SqlDataSet
Depois tenta fazer assim:
Var
str :TstringList
begin
str := TStringList.Create;
str.Add('select * from CONTAS Where COD_CONTA = COD');
Ds.DataSet.Close;
DM_Cadastro.cdsContas.Close;
DM_Cadastro.cdsContas.Params[0].AsInteger := DBGrid1.Fields[0].AsInteger;
DM_Cadastro.cdsContas.CommandText := str.Text;
Ds.DataSet.Open;
str.Free;
end;
Pra vc fazer isso a propriedade poAllowCommandText deve está como True.
Abrax.
De: Darkzad dark...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 16 de Dezembro de 2009 15:41:03
Assunto: Re: [delphi-br] Problema com ClientDataset
Não entendi muito bem, poderia dar um exemplo?
Coloquei o SQL dentro do TSQLDataset quando executo o comando abaixo
sdsContas.Close;
sdsContas.Params[0].AsInteger := DBGrid1.Fields[0].AsInteger;
sdsContas.Open;
Não dá erro nenhum mas tbm não traz nenhum registro. E o
DBGrid1.Fields[0].AsInteger não está nulo e tem dado na tabela.
Se eu adicionar o comando :
ClientDataset.Close;
ClientDataset.Open;
Ele dá o erro 'Dynamic SQL Error SQL error code =-104 Unexpected end of
command - line1, column51'
Muito estranho isso.
Valeu
Marcelo Luiz Onhate escreveu:
Isso não é seguro! NUNCA concatene na SQL... se ele estiver nulo o
asstring dele vai trazer '' então token unknow =) ...
Continue usando os parametros. só troca a sql de lugar... como falei
antes...
Alisson Yahoo escreveu:
Verifique se DBGrid1.Fields[0].AsInteger não está nulo. Tente também :
ClientDataset.CommandText := 'select * from CONTAS Where COD_CONTA = ' +
DBGrid1.Fields[0].AsString.
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: OFF TOPIC-Consultar registro com acentos em Firebird
Eu comecei a usar este agora, mas que andei lendo o collate PXW_INTL850 teria que ser definido com outro character set. Aí fica para outros que saibam mais, explicar isso. CREATE TABLE CLIENTE ( CODIGO INTEGER NOT NULL, NOME VARCHAR(50) CHARACTER SET WIN1252 NOT NULL COLLATE WIN_PTBR, FANTASIA VARCHAR(50) CHARACTER SET WIN1252 COLLATE WIN_PTBR, ou assim, já que definiste ao criar o banco NOME VARCHAR(50) NOT NULL COLLATE WIN_PTBR, --- Em delphi-br@yahoogrupos.com.br, Alisson Yahoo alss...@... escreveu Pesquisei na internet sobre a possibilidade de fazer consulta no Firebird sem fazer a distinção entre palavras acentuadas e não acentuadas, entre maiúsculas e minúsculas. Ex. Se eu pesquisar por JOAO, a consulta trará registros que contém joão, joao, JOÃO e JOAO. Achei artigos que dizem dizendo que devo usar o Charset WIN1252 e Collate PXW_INTL850. Usando o IbExpert vi que consigo definir o Charset WIN1252 ao criar o banco, mas e oCollate PXW_INTL850? Como faço para definir? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Re: OFF TOPIC-Consultar registro com acentos em Firebird
opa, desculpa. o exemplo que te dei é para diferenciar maiúsculas de minúsculas. nem sabia que tinha como diferenciar também acentuação --- Em delphi-br@yahoogrupos.com.br, Alisson Yahoo alss...@... escreveu Pesquisei na internet sobre a possibilidade de fazer consulta no Firebird sem fazer a distinção entre palavras acentuadas e não acentuadas, entre maiúsculas e minúsculas. Ex. Se eu pesquisar por JOAO, a consulta trará registros que contém joão, joao, JOÃO e JOAO. Achei artigos que dizem dizendo que devo usar o Charset WIN1252 e Collate PXW_INTL850. Usando o IbExpert vi que consigo definir o Charset WIN1252 ao criar o banco, mas e oCollate PXW_INTL850? Como faço para definir? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Boleto BB
GbBoleto não lhe atende? Dê uma verificada... http://www.google.com.br/search?hl=pt-BRsource=hpq=gbboletometa=cr%3DcountryBRaq=1soq=Gb+Bo Cobrebem tbm se estendeu a isso... ou tem algumas soluções interessantes... http://www.google.com.br/search?hl=pt-BRsource=hpq=cobrebemmeta=cr%3DcountryBRaq=4oq=Cobre Att. Ricardo. --- Em qua, 16/12/09, Nazareno Neto nazareno.nobr...@gmail.com escreveu: De: Nazareno Neto nazareno.nobr...@gmail.com Assunto: Re: [delphi-br] Boleto BB Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 16 de Dezembro de 2009, 15:35 usa o delphi boleto, acho q o nome certo eh esse! 2009/12/16 eljusticeiro...@ymail.com proth...@amsistemas.com.br Galera, Estou precisando URGENTE, gerar BOLETOS do Banco do Brasil. Sem registro, carteira 18. Alguém poderia me ajudar ?? Por onde começar?? Já testei vários componentes, mas nenhum satisfatório. Uso o Delphi 7.0 Obrigado. -- Nazareno Neto Programador Delphi e Firebird http://www.delphisistemas.com.br nazarenon...@hotmail.com nazareno.nobr...@gmail.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Módulo 9 7 base 10 (norma iso 7064)
Valeu Rubem!
Vou testar o código aqui!
Abraços
Rod
Em Wed, 16 Dec 2009 14:14:14 -0200, Rubem Rocha
rubem.ro...@dtmanaus.com.br escreveu:
Com base no documento mencionado, escrevi as seguintes funções em Object
Pascal.
function CalculaMod97(NumeroProcesso: longint; Ano, OrgaoJTR,
OrigemProcesso: word): string;
var
resto1, resto2: longint;
valor1, valor2, valor3: string;
begin
valor1 := Format('%7.7d', [NumeroProcesso]);
resto1 := StrToInt64(valor1) mod 97;
valor2 := Format('%2.2d', [resto1]) + Format('%4.4d', [Ano]) +
Format('%3.3d', [OrgaoJTR]);
resto2 := StrToInt64(valor2) Mod 97;
valor3 := Format('%2.2d', [resto2]) + Format('%4.4d', [OrigemProcesso]) +
'00';
Result := Format('%2.2d', [98 - (valor3 Mod 97)]);
end;
function ValidaMod97(NumeroProcesso: longint; Digito: Byte; Ano,
OrgaoJTR,
OrigemProcesso: word): boolean;
var
resto1, resto2: longint;
valor1, valor2, valor2: string;
begin
valor1 := Format('%7.7d', [NumeroProcesso]);
resto1 := StrToInt64(valor1) mod 97;
valor2 := Format('%2.2d', [resto1]) + Format('%4.4d', [Ano]) +
Format('%3.3d', [OrgaoJTR]);
resto2 := StrToInt64(valor2) mod 97;
valor3 := Format('%2.2d', [resto2]) + Format('%4.4d', [OrigemProcesso]) +
Format('%2.2d', [Digito]);
Result := (valor3 Mod 97 = 1);
end;
Façam suas validações e, depois, postem suas impressões na lista para
saber
se estas funções podem ser usadas em nossos aplicativos Delphi.
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Ricardo César Cardoso
Enviada em: quarta-feira, 16 de dezembro de 2009 09:51
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Módulo 97 base 10 (norma iso 7064)
Olha... sinceramente não vi nenhuma asneira por aí não... O único
problema é
que não existe implementação em Delphi ainda para o algoritmo proposto
pela
norma.
A documentação e exemplos que achei são para Java, VB e PL/SQL. Mas
perdendo
um pouco de tempo, e lendo este documento [1] acredito que seja possível
chegar a alguma coisa em Delphi.
[1] -
http://monoceros.cnj.gov.br/portalcnj/images/numerao_nica_de_processos_nos_e
stados/digito_de_verificacao_justica_em_numeros_do_cnj_15122008.pdf
Atte,
Ricardo.
1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em ter, 15/12/09, Fellipe Henrique felli...@gmail.com
mailto:fellipeh%40gmail.com escreveu:
De: Fellipe Henrique felli...@gmail.com mailto:fellipeh%40gmail.com
Assunto: Re: [delphi-br] Módulo 97 base 10 (norma iso 7064)
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Data: Terça-feira, 15 de Dezembro de 2009, 20:53
Bom, acredito que se não é pra
ajudar, melhor não responder... do que dizer
asneiras por aí..
Att.
2009/12/15 Walter Chagas (Bol) wchag...@bol.com.br
mailto:wchagasj%40bol.com.br
O google, o Yahoo e o Altavista com certeza tem..
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br mailto:wchagasj%40bol.com.br
wchagasj%40bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com
whitesockets%40hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: rod rodli...@ymail.com mailto:rodlinux%40ymail.com
rodlinux%40ymail.com
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
Sent: Tuesday, December 15, 2009 2:33 PM
Subject: [delphi-br] Módulo 97 base 10 (norma iso
7064)
Olá a todos
Trabalho com sistema jurídico de distribuição de
processos judiciais e o
CNJ determinou que fosse gerado um único número por
processo, através de
uma combinação de valores, calculando o dígito
verificador através do alg.
Módulo 97 base 10 (norma iso 7064).
Alguém tem essa função para Delphi?
Grato
Rodrigo
[As partes desta mensagem que não continham texto
foram removidas]
-- _
T.·.F.·.A.·.
Fellipe Henrique
--
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o
seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro,
antes de encaminhar
um e-mail, delete todas as informações que apareçam no
corpo do e-mail e que
possam ser usadas por hackers.
###
[As partes desta mensagem que não continham texto foram
removidas]
-- FAVOR REMOVER ESTA PARTE AO RESPONDER
ESTA MENSAGEM
Links do Yahoo! Grupos
[delphi-br] [DICA] Trabalhando com Enumerações em Delphi
{ O código desta dica aplica-se ao Delphi 7. Faça as devidas modificações
para adequar-se ao Delphi que você usa.
Por Rubem Nascimento da Rocha Manaus, AM }
program TiposEnumerados;
{$APPTYPE CONSOLE}
uses SysUtils, TypInfo, DB, DBClient, MidasLib;
type
TOpcao = (opcaoA, opcaoB, opcaoC, opcaoD, opcaoE, opcaoF, opcaoG, opcaoH);
TOpcoes = set of TOpcao;
{ Retorna um ClientDataSet contend todos os valores definidos de uma
Enumeração (ou tipo de dados enumerado) }
function EnumToClientDataSet(TypeInfo: PTypeInfo): TClientDataSet;
function CreateClientDataSet: TClientDataSet;
begin
Result := TClientDataSet.Create(nil);
with Result do
begin
FieldDefs.Add('KEY', ftInteger);
FieldDefs.Add('VALUE', ftString, 100);
CreateDataSet;
end;
end;
var
T: PTypeData;
I: integer;
begin
Result := nil;
if TypeInfo^.Kind = tkEnumeration then
begin
Result := CreateClientDataSet();
T := GetTypeData(GetTypeData(TypeInfo)^.BaseType^);
I := T^.MinValue;
while (I = T^.MaxValue) do
begin
Result.AppendRecord([I, GetEnumName(TypeInfo, I)]);
Inc(I);
end;
end;
end;
var
Opcao: TOpcao;
Opcoes: TOpcoes;
ValorOpcoes: integer absolute Opcoes;
ADataSet: TClientDataSet;
begin
for Opcao := Low(TOpcao) to High(TOpcao) do
WriteLn(Format('%s - %d',
[GetEnumName(PTypeInfo(TypeInfo(TOpcao)), Ord(Opcao)),
Ord(Opcao)]));
WriteLn;
Opcoes := [opcaoA, opcaoB, opcaoC, opcaoD, opcaoE, opcaoF, opcaoG,
opcaoH];
WriteLn(ValorOpcoes);// vai sair na tela 255!
Opcoes := [opcaoG];
WriteLn(ValorOpcoes);// vai sair na tela 64!
Opcoes := [opcaoB, opcaoD, opcaoG];
WriteLn(ValorOpcoes);// vai sair na tela 74 (2 + 8 + 64)!
Writeln;
WriteLn('Percorrendo um ClientDataSet de dados enumerados');
WriteLn('');
ADataSet := EnumToClientDataSet(PTypeInfo(TypeInfo(TOpcao)));
try
ADataSet.First;
while not ADataSet.Eof do
begin
WriteLn(Format('%d - %s', [ADataSet.FieldByName('KEY').AsInteger,
ADataSet.FieldByName('VALUE').AsString]));
ADataSet.Next;
end;
finally
ADataSet.Free;
end;
WriteLn(Eoln);
end.
Rubem Nascimento da Rocha
92 8429 2865
rubem.ro...@dtmanaus.com.br
assinatura email
Digital TI - Coordenação de Automação
Av. Carvalho Leal, 1330 - 1º Andar
Cachoeirinha - 69065-001 Manaus/AM
Call Center: 92 2101-0100
http://www.dtmanaus.com.br www.dtmanaus.com.br
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Módulo 97 base 10 (norma iso 7 064)
Vou testar nao! Correção! Faz o favor de pelo menos ler o codigo e tentar
entender o que ele faz, por favor ne! Ctrl C Ctrl V sem Entender vai Virar o
Que?
2009/12/16 rod rodli...@ymail.com
Valeu Rubem!
Vou testar o código aqui!
Abraços
Rod
Em Wed, 16 Dec 2009 14:14:14 -0200, Rubem Rocha
rubem.ro...@dtmanaus.com.br rubem.rocha%40dtmanaus.com.br escreveu:
Com base no documento mencionado, escrevi as seguintes funções em Object
Pascal.
function CalculaMod97(NumeroProcesso: longint; Ano, OrgaoJTR,
OrigemProcesso: word): string;
var
resto1, resto2: longint;
valor1, valor2, valor3: string;
begin
valor1 := Format('%7.7d', [NumeroProcesso]);
resto1 := StrToInt64(valor1) mod 97;
valor2 := Format('%2.2d', [resto1]) + Format('%4.4d', [Ano]) +
Format('%3.3d', [OrgaoJTR]);
resto2 := StrToInt64(valor2) Mod 97;
valor3 := Format('%2.2d', [resto2]) + Format('%4.4d', [OrigemProcesso]) +
'00';
Result := Format('%2.2d', [98 - (valor3 Mod 97)]);
end;
function ValidaMod97(NumeroProcesso: longint; Digito: Byte; Ano,
OrgaoJTR,
OrigemProcesso: word): boolean;
var
resto1, resto2: longint;
valor1, valor2, valor2: string;
begin
valor1 := Format('%7.7d', [NumeroProcesso]);
resto1 := StrToInt64(valor1) mod 97;
valor2 := Format('%2.2d', [resto1]) + Format('%4.4d', [Ano]) +
Format('%3.3d', [OrgaoJTR]);
resto2 := StrToInt64(valor2) mod 97;
valor3 := Format('%2.2d', [resto2]) + Format('%4.4d', [OrigemProcesso]) +
Format('%2.2d', [Digito]);
Result := (valor3 Mod 97 = 1);
end;
Façam suas validações e, depois, postem suas impressões na lista para
saber
se estas funções podem ser usadas em nossos aplicativos Delphi.
Sds.
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de Ricardo César Cardoso
Enviada em: quarta-feira, 16 de dezembro de 2009 09:51
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Módulo 97 base 10 (norma iso 7064)
Olha... sinceramente não vi nenhuma asneira por aí não... O único
problema é
que não existe implementação em Delphi ainda para o algoritmo proposto
pela
norma.
A documentação e exemplos que achei são para Java, VB e PL/SQL. Mas
perdendo
um pouco de tempo, e lendo este documento [1] acredito que seja possível
chegar a alguma coisa em Delphi.
[1] -
http://monoceros.cnj.gov.br/portalcnj/images/numerao_nica_de_processos_nos_e
stados/digito_de_verificacao_justica_em_numeros_do_cnj_15122008.pdf
Atte,
Ricardo.
1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em ter, 15/12/09, Fellipe Henrique
felli...@gmail.comfellipeh%40gmail.com
mailto:fellipeh%40gmail.com fellipeh%2540gmail.com escreveu:
De: Fellipe Henrique felli...@gmail.com fellipeh%40gmail.commailto:
fellipeh%40gmail.com fellipeh%2540gmail.com
Assunto: Re: [delphi-br] Módulo 97 base 10 (norma iso 7064)
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br
Data: Terça-feira, 15 de Dezembro de 2009, 20:53
Bom, acredito que se não é pra
ajudar, melhor não responder... do que dizer
asneiras por aí..
Att.
2009/12/15 Walter Chagas (Bol)
wchag...@bol.com.brwchagasj%40bol.com.br
mailto:wchagasj%40bol.com.br wchagasj%2540bol.com.br
O google, o Yahoo e o Altavista com certeza tem..
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br wchagasj%40bol.com.br mailto:
wchagasj%40bol.com.br wchagasj%2540bol.com.br
wchagasj%40bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com whitesockets%40hotmail.com mailto:
whitesockets%40hotmail.com whitesockets%2540hotmail.com
whitesockets%40hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: rod rodli...@ymail.com rodlinux%40ymail.com mailto:
rodlinux%40ymail.com rodlinux%2540ymail.com
rodlinux%40ymail.com
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
Sent: Tuesday, December 15, 2009 2:33 PM
Subject: [delphi-br] Módulo 97 base 10 (norma iso
7064)
Olá a todos
Trabalho com sistema jurídico de distribuição de
processos judiciais e o
CNJ determinou que fosse gerado um único número por
processo, através de
uma combinação de valores, calculando o dígito
verificador através do alg.
Módulo 97 base 10 (norma iso 7064).
Alguém tem essa função para Delphi?
Grato
Rodrigo
[As
[delphi-br] [OFF-TOPIC] - Projetos com delphi for php
Existe alguém aí usando delphi for php em projetos? Desculpem, o tópico fora do contexto. Abraços a todos, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: OFF TOPIC-Consultar registro com acentos em Firebird
declare dessa forma ALTER TABLE ESTOQUE ADD DESCRICAO Varchar(60) COLLATE WIN_PTBR; Pesquisei na internet sobre a possibilidade de fazer consulta no Firebird sem fazer a distinção entre palavras acentuadas e não acentuadas, entre maiúsculas e minúsculas. Ex. Se eu pesquisar por JOAO, a consulta trará registros que contém joão, joao, JOÃO e JOAO. Achei artigos que dizem dizendo que devo usar o Charset WIN1252 e Collate PXW_INTL850. Usando o IbExpert vi que consigo definir o Charset WIN1252 ao criar o banco, mas e oCollate PXW_INTL850? Como faço para definir? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
