RES: [delphi-br] Problema com SQL
Meu amigo, Ridson, Bom dia. Considerando que o Firebird utilize o SQL ANSI, estou te passando como deveria ser, pois não exis o objeto QUANT, mas sim a somatória a coluna quantidade sum(QUANTIDADE). select Saida.PRODUTO, Saida.SECAO, P.DESCRICAO, sum(QUANTIDADE) as QUANT, sum(VALOR_TOTAL) as VALTOT, P.CUSTO * sum(QUANTIDADE) as TOTCUSTO, (Sum(Valor_Total) - (P.Custo * sum(quantidade))) * (100 / (P.Custo * sum(quantidade))) as Acrescimo from PROSAI Saida, PRODUTOS P where Saida.Empresa = '002' AND P.Empresa = '002' AND Saida.PRODUTO = P.CODIGO and saida = '12/01/2008' and saida = '12/31/2008' group by Saida.PRODUTO, Saida.SECAO, P.DESCRICAO /* order by QUANT*/ order by sum(QUANTIDADE) Adilson Figueiredo de Lima Skype : adilson.afl P Antes de imprimir pense em sua responsabilidade e Compromisso com o MEIO AMBIENTE De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ridson Xavier de Moura Enviada em: quarta-feira, 31 de dezembro de 2008 01:41 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Problema com SQL Boa noite a todos. Quando utilizava Paradox esta instrução SQL funcinava perfeitamente: select Saida.PRODUTO, Saida.SECAO, P.DESCRICAO, sum(QUANTIDADE) as QUANT, sum(VALOR_TOTAL) as VALTOT, P.CUSTO*sum(QUANTIDADE) as TOTCUSTO, (Sum(Valor_Total)-(P.Custo*sum(quantidade)))*(100/(P.Custo*sum(quantidade))) as Acrescimo from PROSAI Saida, PRODUTOS P where Saida.Empresa='002' AND P.Empresa='002' AND Saida.PRODUTO=P.CODIGO and saida='12/01/2008' and saida='12/31/2008' group by Saida.PRODUTO, Saida.SECAO, P.DESCRICAO order by QUANT Agora usando firebird v1.5 ela retorna erro: Invalid expression in the select list (not contained in either an aggregate function or the GROUP BY clause). Alguem saberia me diser o q tem de errado nela... -- Moura Informática Venda, assistência técnica, especializada em GNU/Linux e Software Livre Sistema para automação comercial Contatos: Ridson (65)9237-2734 ridson_xm[arroba]hotmail.com Classificados pela internet. Aqui você vende! http://usadonovo.net23.net/ http://ridson.blogspot.com/ http://mourainformatica.blogspot.com/ Biblioteca digital desenvolvida com software livre http://www.dominiopublico.gov.br [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] Localizar - O Retorno
Janise, Bom dia verifiquei seu problema e a ajuda de Coutinho. Só corrigindo uns pequenos detalhes: a) Não é necessário usar um variável tipo VARIANT para que o locate funcione. a.1) Se precisar realizar um locate numa chave composta é necessário usar a função VarOfArray, para converter em um array variant mas as variáveis podem ter seu tipo original. ex: tabela.locate('nome',editnome.text,[]) // para pesquisa numa chave fixa (e exata, sem lopartialkey) tabela.locate('uf;cidade',varofarray([edituf.text,editcidade.text]),[]); // para pesquisa numa chave composta (e exata, sem lopartialkey) b) Lendo a sua mensagem, pelo que entendi vc ele não está reconhecendo as constante LOPARTIALKEY (por exemplo) se for isto, basta acrescentar a unit DB na USES da sua unit. Abs e bom 2009 Rodinei Amorim Programador Delphi rodinei_amo...@hotmail.com (11) 8208-9503 - (11) 2024-2723 -- From: Coutinho - Yahoo emanuelcouti...@yahoo.com.br Sent: Tuesday, December 30, 2008 11:06 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Localizar - O Retorno Janise... Tudo bem? Eta menina chorona!!! Hehehehehe! Veja bem.. Na sua linha de código, vc está passando como parâmetro edtNome.text... isso é um parâmetro do tipo string... na verdade o Locate precisa de um parâmetro do tipo Variant para poder funcionar... assim, crie uma variável do tipo variant, atribua-lhe o conteúdo do seu etdnome.text, e certamente sua consulta no banco funcionará... Use desta forma: Var vvChaveDeBusca : Variant; begin . . aqui vai seu código de abertura de bases de dados e otras cositas más se for o caso... . vvChaveBusca := edtNome.Text; - Aqui vc transforma o valor string em variant... Seu código estava assim --- dmBaseDados.T_Assessoria.Locate('Nome',edtnome.Text,[]) // é sempre bom dar uma testada... para dar um retorno visual ao usuário... if dmBaseDados.T_Assessoria.Locate('Nome',vvChaveBusca,[loPartialkey, loCaseInsensitive]) then begin faz o que precisa fazer end else Application.messagebox('Nome não encontrado...', 'Atenção!', mb_ok+mb_iconwarning); Usando [loPartiakey, loCaseinsensitive] é sempre bom para uma pesquisa de valores aproximados, principalmente se está apresentando os dados em um grid, ok? Espero que isso esclareça e consiga te ajudar a resolver. Sds Emanuel Coutinho Janise Dantas escreveu: Pelo jeito vou passar a virada do ano de cabeça virada com meu projeto. Tenho pesquisado na net direto, mas como os filhos estão de férias meu tempo na net diminuiu bem. Também sei que a gente só pede Ajuda aos Universitários em último caso, e acho que chegou a hora... estou aloprando!!! Meu trabalho não segue adiante ( choradeira rsrsrsr!!!) Ainda não consegui localizar meus registros(fazer pesquisa). O mais perto que cheguei foi: dmBaseDados.T_Assessoria.Locate('Nome',edtnome.Text,[]) ; (Não reconhece mais nada que eu acrescente, tipo: loPartialKey, locasesensitive... e sei lá mais o quê!!) Mas é só clicar no ok que o bicho dá erro e sinto vontade de chorar!! (mas tô me segurando...) E outra que descobri, afff!!! Que meu menu não está aparecendo, inclusive já refiz, mas ele resolveu que não quer fazer parte do meu projeto (caraca!!!) Será que tem alguém, um abençoado aí que tem pena dos pobres e oprimidos?? Janise Dantas -- 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
[delphi-br] Datasanap pesquisas ajuda basica?
estou aprendendo agora programar em ntier(DataSnap) e tenho um tanto de duvidas conforme exemplo abaixo: este é o servidor: SQLConnection1 SQLDataSet1(select * from CLIENTES ) DataSetProvider1 este é o cliente win32: SocketConnection1 ClientDataSet1 DataSource1 Dá certo, grava tudo certinho DM.cdsClientes.Append; //Incluir Cliente DM.cdsClientes.ApplyUpdates(0) //Grava no Banco de Dados o problema que estou enfrentando é pesquisar, mudar os parametros da pesquisa, coisas assim. onde faço essa mudança desses parametros no servidor? ou no cliente? se no cliente como fazer? tentei assim no cliente DM.ClientDataSet1.Close; DM.ClientDataSet1.CommandText:='SELECT * FROM CLIENTES WHERE ID_CLIENTES =:ID_CLI'; DM.ClientDataSet1.Params[0].AsInteger:=StrToInt(Edit1.Text); DM.ClientDataSet1.Open; e dá o seguinte erro CommandText changes are not allowed não é possivel fazer isso pelo ClientDataSet ?? achei alguns poucos exemplos na web, mas com pesquisas engessadas, não permitiam mudar os parametros de forma dinamica Agradeço de coração aos amigos que ajudarem Feliz 2009 a todos 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] FastReport
Estou utilizando o Fast como editor de relatórios ... Encontro algumas dificuldades e solicito ao grupo se alguém tiver algum material Apostilas ou tutorial, ou outro material que encaminhe ... Naturalmente já andei pelo Google e não obtive sucesso ... donde me reporto ao grupo ... Desde já agradeço Cícero Fernandes cíc...@fiosecabos.ind.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Localizar - O Retorno - Correçã o do Rodinei
Rodinei, Bom dia... Foi, no mínimo, uma discortesia fazer uma correção impensada... na minha informação para a colega Janise... Como ela havia pedido informações sobre uma pesquisa simples, e visto que ela ainda é iniciante... Veja o Help do Delphi sobre o Dataset.Locate: *- Implements a virtual method for searching a dataset for a specified record and making it the active record. function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; virtual; Description This function Checks whether the dataset is unidirectional, and if so, raises an EDatabaseError exception. Returns False, indicating that a matching record was not found and the active record was not changed. Descendant classes that are not unidirectional override this method so that it locates the record where the fields identified by the semicolon-separated list of fields in KeyFields have the values specified by the Variant or Variant array KeyValues. Options indicates whether the search is case insensitive and whether partial matches are supported. Locate returns True if a record is found that matches the specified criteria and that record is now active. -- *Observando o parâmetro da KeyValues, minha informação à colega, não está ERRADA*. * Tenha um dia abençâdo, e que seu 2009 seja especialmente edificante! Cordiais saudações, Emanuel Coutinho -- 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] Localizar - O Retorno - Correção do Rodinei
Coutinho, mil desculpas, minha intenção não foi em hipótese alguma insulta-lo. Mas, acredito que se testar o código por mim postado e atentar antes de desmerecer minha ajuda, verá que estou certo. Tenha em mente que por um parâmetro ser VARIANT, ele receberá qualquer tipo de váriavel, não necessariamente só VARIANT. Minha intenção foi apenas mostrar uma alternativa funcional e prática (além de muito mais simples, do que igualar a variável a um tipo variant). Lamento que não tenha visto assim. Bom, espero, que deixe-mos esta discortesia por mim feita. E nos abracemos, desejando um ótimo e maravilhoso ano novo a todos inclusive a nós. Bjs Coutinho. Rodinei Amorim Programador Delphi rodinei_amo...@hotmail.com (11) 8208-9503 - (11) 2024-2723 -- From: Coutinho - Yahoo emanuelcouti...@yahoo.com.br Sent: Wednesday, December 31, 2008 12:11 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Localizar - O Retorno - Correção do Rodinei Rodinei, Bom dia... Foi, no mínimo, uma discortesia fazer uma correção impensada... na minha informação para a colega Janise... Como ela havia pedido informações sobre uma pesquisa simples, e visto que ela ainda é iniciante... Veja o Help do Delphi sobre o Dataset.Locate: *- Implements a virtual method for searching a dataset for a specified record and making it the active record. function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; virtual; Description This function Checks whether the dataset is unidirectional, and if so, raises an EDatabaseError exception. Returns False, indicating that a matching record was not found and the active record was not changed. Descendant classes that are not unidirectional override this method so that it locates the record where the fields identified by the semicolon-separated list of fields in KeyFields have the values specified by the Variant or Variant array KeyValues. Options indicates whether the search is case insensitive and whether partial matches are supported. Locate returns True if a record is found that matches the specified criteria and that record is now active. -- *Observando o parâmetro da KeyValues, minha informação à colega, não está ERRADA*. * Tenha um dia abençâdo, e que seu 2009 seja especialmente edificante! Cordiais saudações, Emanuel Coutinho -- 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
Re: [delphi-br] Localizar - O R etorno - Correção do Rodinei
Entendo seu ponto de vista Só que você quis na realidade mostrar como fazer uma pesquisa com vários campos... usando VarArrayOf(), que na realidade passa como parâmetro um array de variants... percebeu? Assim, vc está na realidade passando Variants. o Var do VarArrayOf, não se refere a Variable (variável), e sim A Variant (tipo de dados variavel).. It is slightly different in english... Demands understanding... De qualquer forma, não estou brigando contigo... e te desejo de coração, sucesso, e profícuos negócios em 2009. Encejando mais uma vez o desejo de um maravilhoso 2009 a todos os colegas e amigos da lista!!! Sds Emanuel Couitnho Rodinei (MSN) escreveu: Coutinho, mil desculpas, minha intenção não foi em hipótese alguma insulta-lo. Mas, acredito que se testar o código por mim postado e atentar antes de desmerecer minha ajuda, verá que estou certo. Tenha em mente que por um parâmetro ser VARIANT, ele receberá qualquer tipo de váriavel, não necessariamente só VARIANT. Minha intenção foi apenas mostrar uma alternativa funcional e prática (além de muito mais simples, do que igualar a variável a um tipo variant). Lamento que não tenha visto assim. Bom, espero, que deixe-mos esta discortesia por mim feita. E nos abracemos, desejando um ótimo e maravilhoso ano novo a todos inclusive a nós. Bjs Coutinho. Rodinei Amorim Programador Delphi rodinei_amo...@hotmail.com (11) 8208-9503 - (11) 2024-2723 -- From: Coutinho - Yahoo emanuelcouti...@yahoo.com.br Sent: Wednesday, December 31, 2008 12:11 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Localizar - O Retorno - Correção do Rodinei Rodinei, Bom dia... Foi, no mínimo, uma discortesia fazer uma correção impensada... na minha informação para a colega Janise... Como ela havia pedido informações sobre uma pesquisa simples, e visto que ela ainda é iniciante... Veja o Help do Delphi sobre o Dataset.Locate: *- Implements a virtual method for searching a dataset for a specified record and making it the active record. function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; virtual; Description This function Checks whether the dataset is unidirectional, and if so, raises an EDatabaseError exception. Returns False, indicating that a matching record was not found and the active record was not changed. Descendant classes that are not unidirectional override this method so that it locates the record where the fields identified by the semicolon-separated list of fields in KeyFields have the values specified by the Variant or Variant array KeyValues. Options indicates whether the search is case insensitive and whether partial matches are supported. Locate returns True if a record is found that matches the specified criteria and that record is now active. -- *Observando o parâmetro da KeyValues, minha informação à colega, não está ERRADA*. * Tenha um dia abençâdo, e que seu 2009 seja especialmente edificante! Cordiais saudações, Emanuel Coutinho -- 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
Re: [delphi-br] Localizar - O Retorno
Janise vc quer um projetinho para servir de auxilio? Rubens --- Em ter, 30/12/08, Janise Dantas janisedan...@yahoo.com.br escreveu: De: Janise Dantas janisedan...@yahoo.com.br Assunto: [delphi-br] Localizar - O Retorno Para: Grupo Delphi-br delphi-br@yahoogrupos.com.br Data: Terça-feira, 30 de Dezembro de 2008, 20:34 Pelo jeito vou passar a virada do ano de cabeça virada com meu projeto.. Tenho pesquisado na net direto, mas como os filhos estão de férias meu tempo na net diminuiu bem. Também sei que a gente só pede Ajuda aos Universitários em último caso, e acho que chegou a hora... .estou aloprando!!! Meu trabalho não segue adiante ( choradeira rsrsrsr!!!) Ainda não consegui localizar meus registros(fazer pesquisa). O mais perto que cheguei foi: dmBaseDados.T_Assessoria.Locate('Nome',edtnome.Text,[]) ; (Não reconhece mais nada que eu acrescente, tipo: loPartialKey, locasesensitive... e sei lá mais o quê!!) Mas é só clicar no ok que o bicho dá erro e sinto vontade de chorar!! (mas tô me segurando...) E outra que descobri, afff!!! Que meu menu não está aparecendo, inclusive já refiz, mas ele resolveu que não quer fazer parte do meu projeto (caraca!!!) Será que tem alguém, um abençoado aí que tem pena dos pobres e oprimidos?? Janise Dantas -- 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] Indy - Server socket com multi clientes
Olá galera, Alguém sabe usar o socket do indy para que receba vários clientes, assim como funciona o socket padrão do Delphi. Existe alguma forma que eu possa identificar o cliente que está conectado e enviar pra ele algo? Assim como existe no scket padrão do Delphi o array de conexões (socket.connections[x]). Abs. -- Atenciosamente, Paulo Coutinho. Site: www.prsolucoes.com Msn: pa...@prsolucoes.com Skype: paulo.prsolucoes [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE: Configuração INTERBAS E Dual Core
Amigo Ericsson, Boa noite! Amigo você tem um problema relativamente sério. Primeiro. Eu Sou um grande intusiasta de InterBase deixo isso empre claro. Segundo. InterBase 6 já algo muito antigo do ano de 2000, mês de Junho. O interBase 6 não suporta multi processamento simétrico ou seja ele não tira proveito máquinas com mais de 1 processadores. Além disso ele potencialmente lento para os novos hardwares e sistemas operacionais por vários motivos que ficaria longo eu descrever neste email. Você tem duas saídas Licenciar (Não é Free é pago mas é muito barato a licença vai variar conforme a quantidade de usuários e de processadores no servidor) uma versão do interbase que tire proveito de SMP (simetrical multi processing) e iso já foi implementado des de a versão 7 do InterBase, e já estamos na versão 2009 que tira mais proveito ainda de máquinas com mais de um processador (Coisa que o firebird está lonje muito lonje de fazer acontecer). InterBase 2007 Que internamente é o InterBase 8 é um dos melhores SGDBRS da história em minha opinião. eu licenciei e não me arrependo de nada. (Mas também uso o Firebird) Ou Segundo usar uma versão do Firebird 1.0.3 que é bem próxima do InterBase 6.0 Porém com a arquitetura ClassicServer que se dá melhor com máquinas multi processadas (Mas não é realmente SMP) e tem a vantagem de ser gratuito Firebird 2.0.4 (ClassicServer também) Melhorou muito isso e outros pontos de performance, tem uma biblioteca de retro-compatibilidade gds32 caso você ainda estiver usando BDE ou IBX funciona tudo igual. O segredo é ter cuidado nahora de fazer uma migração, faça testes antes com um banco piloto, faça backup do seu banco IB6 e em outra máquina muit processada sem IB6 instala uma versão do ClassicServer de uma das versões que te indiquei, depois um restore do banco com a estensão ao invéz de .gdb para .fdb e faça os testes acredito que vc vai se agradar. Se tiver dúvidas e problema sinta-se livre para entrar em contato comigo terei prazer em ajudar. Fraternalmente Marcelo Fortes. --- Em ter, 30/12/08, Jorge Ericsson jericsson...@gmail.com escreveu: De: Jorge Ericsson jericsson...@gmail.com Assunto: [delphi-br] URGENTE: Configuração INTERBASE Dual Core Para: Data: Terça-feira, 30 de Dezembro de 2008, 14:42 Olá amigos Delphianos, Procurei na lista e na NET mas não encontrei solução para o meu problema. Tenho um aplicativo (ADMINISTRATIVO) que funciona em vários estados e município usando IB 6.0. Só que algumas máquinas com dual core (múltiplo processador) o interbase fica lento do nada. Alguém sabe de alguma configuração ou atualização (patch) que resolva esse meu problema ? Obs.: Não posso mudar a arquitetura de acesso ao banco no momento para Firebird ou outro, tenho que manter por enquanto o IB 6.0. Valew pessoal, Jorge Ericsson [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] Multi-Thread
O método serve apenas para quando você for alterar algo visualmente direto da thread, tornando ela uma safe thread. Se na thread você quiser alterar sua progressbar, use este método seguro para fazer tal ação. Claro que isso não é uma solução para o seu problema, mas deve ajudar. Abs. 2008/12/30 Fabio Lima fabio.l...@grupocoan.com.br Boa tarde pessoal! Estou desenvolvento um sistema que trabalha com várias Threads. O sistema tem a função de extrair dados dos servidores e geram um arquivo .txt que é importado por outra Thread. Lendo em alguns artigos vi que os métodos que não alteram algo dentro da VCL não devem utilizar o Synchronize. O sistema roda tranquilamente durante uns 4 minutos e log em seguida acaba gerando vários Access Violation, para tentar encontrar o problema eu utilizei o componen Expression Manager para gerar os logs incluisive o call Stack. Um exmeplo dos logs segue abaixo: Tipo : EAccessViolation ( EExternal ) Unit : Classes Linha : Unknown Classe : Classes Função : TComponent.Notification Endereço : 0x0042AA68 Sender Class : TTimer TComponent TPersistent TObject Sender Name : tmrPing Ip : 121.120.119.142 Mem Total(Kb) : 515.180 Ko Mem Disp(%) : 94 % Mem Virtual(Kb) : 2.097.024 Ko Mem Vir Disp(Kb): 2.064.796 Ko Pag Total(Kb) : 1.259.336 Ko Pag Disp(Kb) : 409.056 Ko Mensagem : Access violation at address 0042AA68 in module 'Monitoramento.exe'. Read of address 0830 Call Stack : U_XAM_Debug::U_XAM_Debug.TXAMDebug.GetCallStack U_XAM_Debug::U_XAM_Debug.TXAMDebug.GetExceptionInfos U_XAM_Debug::U_XAM_Debug.TXAMDebug.ProcessException U_XAM_Debug::U_XAM_Debug.TXAMDebug.HandleException Forms::Forms.TApplication.HandleException Classes::Classes.StdWndProc Windows::Windows.HwndMSWheel ActiveX::ActiveX.SafeArrayGetUBound SysConst::ActiveX.Succeeded SysConst::ActiveX.Succeeded Variants::varian...@varfromlstr Variants::varian...@vartoint64 Classes::Classes.TComponent.DestroyComponents Classes::Classes.TThread.CheckThreadError Menus::Menus.TMenu.UpdateImage Menus::Menus.TMenu.AdjustBiDiBehavior StdCtrls::StdCtrls.TCustomGroupBox.AdjustClientRect StdCtrls::StdCtrls.TCustomGroupBox.Create SysUtils::SysUtils.ShowException System::System.ParamCount SysUtils::SysUtils.ScanTime Já tentei analizar este log, principalmente tentar encontrar uma explicação para o Access violation. Se alguém analizando este log conseguir encontrar algo que possa me ajudar agradeço. Aproveitando, Feliz Ano Novo a todos. Fábio Lima de Oliveira Analista de Sistema Grupo Coan Alimentos Serviços Fone: +55 15 3282-9050 Ramal: 9050 Cel: 19 9187-4192 E-mail: mailto:fabio.l...@grupocoan.com.brfabio.lima%40grupocoan.com.br fabio.l...@grupocoan.com.br fabio.lima%40grupocoan.com.br Site: http://www.grupocoan.com.br/ http://www.grupocoan.com.br [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Paulo Coutinho. Site: www.prsolucoes.com Msn: pa...@prsolucoes.com Skype: paulo.prsolucoes [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] FastReport
no site do Fast http://fast-report.com/en/ tem toda a documentação. 2008/12/31 Cicero Fernandes cic...@fiosecabos.ind.br Estou utilizando o Fast como editor de relatórios ... Encontro algumas dificuldades e solicito ao grupo se alguém tiver algum material Apostilas ou tutorial, ou outro material que encaminhe ... Naturalmente já andei pelo Google e não obtive sucesso ... donde me reporto ao grupo ... Desde já agradeço Cícero Fernandes cíc...@fiosecabos.ind.br cero%40fiosecabos.ind.br [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Copiar dados de uma tabela mysql pra outra
Boa tarde pessoal! Tenho duas tabelas my-sql idênticas, mas de nomes diferentes e preciso copiar todos os dados de uma para a outra usando SQL ou alguma forma bem rápida! Deixa eu explicar... Eu tenho uma tabela de nome Pre-notas e outra tabela de nome Notas e inicialmente eu uso a tabela Pre-notas para ser preenchida inicialmente. Eu gostaria de criar um botão que qdo fosse clicado fizesse a copia do registro atual que estiver na Pre-notas para a Tabela notas, ou seja, eu não gostaria de copiar a tabela inteira, mas apenas o registro atual ou a linha desejada. Mesmo assim quem souber como copiar a tabela inteira e quiser postar eu agradeceria! Obrigado e um feliz ano novo a todos! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Copiar dados de uma tabela mysql pra outra
Bruno Deixa eu entender... Vc cria um pedido ou uma nota que fica pendente de confirmação, e quando confirmado ou fechado, vc copia tudo para outra tabela? Se for isso, creio que estará tendo trabalho desnecessário. Se vc criar um campo lógico booleano, ou texto sim/não, e usa como um flag para filtro... assim, vc tem os registros que são orçamentos / pr-enotas, e pedidos fechados / notas fechadas... Aí vc não teria redundância nos dados... pois se fizer o que está fazendo, terá duas notas... e eleas podem estasr diferentes se uma delas for editada... Isso que está fazendo não parece ser uma base muito normalizada... Pode explicar melhor a necessidade real de ter duas tabelas IGUAIS? Sds Emanuel Coutinho Lopes Jr. Bruno Lepesqueur J. Ribeiro escreveu: Boa tarde pessoal! Tenho duas tabelas my-sql idênticas, mas de nomes diferentes e preciso copiar todos os dados de uma para a outra usando SQL ou alguma forma bem rápida! Deixa eu explicar... Eu tenho uma tabela de nome Pre-notas e outra tabela de nome Notas e inicialmente eu uso a tabela Pre-notas para ser preenchida inicialmente. Eu gostaria de criar um botão que qdo fosse clicado fizesse a copia do registro atual que estiver na Pre-notas para a Tabela notas, ou seja, eu não gostaria de copiar a tabela inteira, mas apenas o registro atual ou a linha desejada. Mesmo assim quem souber como copiar a tabela inteira e quiser postar eu agradeceria! Obrigado e um feliz ano novo a todos! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Res: Copiar dados de uma tabela mysql pra outra
Pessoal, seguinte... Eu consegui fazer copiar a tabela inteira da seguinte forma: INSERT INTO notasfiscais (`CodigoLctoNF`, `NumeroNF`, `SerieNF`, `DataLctoNF`, `DataEmissaoNF`, `CodigoVendedor`, `CodigoOperNF`, `CodigoEndNF`, `CFOPNF`, `CFOPNF2`, `CodigoCli`, `TotalIpiNF`, `ServicosNF`, `DescontoPercentualNF`, `DescontoNF`, `FreteNF`, `SeguroNF`, `CustoFinancNF` `ValorIcmsSubNF`, `BaseIcmsSubNF`, `DescIrrfNF`, `DescInssNF`, `DescFunRurNF`, `PisCofinsNF`, `BaseCalcIcmsNF`, `VlrIcmsNF`, `BaseCalcIssNF`, `IssNF`, `DespesasNF`, `TotalMercadoriasNF`, `SomaParcNF`, `TotalNF`, `ObsNF`, `CodigoTransNF`, `PlacaNF`, `TipoPgtoNF`, `QtdeParcNF`, `EmissaoEntradaNF`, `MarcaTransNF`, `NumeroTransNF`, `EspecieTransNF`, `PesoBrutoNF`, `PesoLiqNF`, `QtdeTransNF`, `FretePorConta`, `HoraSaidaNF`, `DataSaidaNF`, `TipoNF`) SELECT `CodigoLctoPre`, `NumeroPre`, `SeriePre`, `DataLctoPre`, `DataEmissaoPre`, `CodigoVendedorPre`, `CodigoOperPre`, `CodigoEndPre`, `CFOPPre`, `CFOP2Pre`, `CodigoCliPre`, `TotalIpiPre`, `ServicosPre`, `DescontoPercentualPre`, `DescontoPre`, `FretePre`, `SeguroPre`, `CustoFinancPre`, `ValorIcmsSubPre`, `BaseIcmsSubPre`, `DescIrrfPre`, `DescInssPre`, `DescFunRurPre`, `PisCofinsPre`, `BaseCalcIcmsPre`, `VlrIcmsPre`, `BaseCalcIssPre`, `IssPre`, `DespesasPre`, `TotalMercadoriasPre`, `SomaParcPre`, `TotalPre`, `ObsPre`, `CodigoTransPre` `PlacaPre`, `TipoPgtoPre`, `QtdeParcPre`, `EmissaoEntradaPre`, `MarcaTransPre`, `NumeroTransPre`, `EspecieTransPre`, `PesoBrutoPre`, `PesoLiqPre`, `QtdeTransPre`, `FretePorContaPre`, `HoraSaidaPre`, `DataSaidaPre`, `TipoPre` FROM prenotas; Só que eu preciso que copie todos esses campos apenas do registro que estiver sendo editado no momento, por exemplo: Copiar apenas do registro que tenha CodigoLctoNF = 18 e não a tabela contendo todos os registros. Mais uma vez, obrigado! ---Mensagem original--- De: Bruno Lepesqueur J. Ribeiro Data: 31/12/2008 15:08:29 Para: delphi-br@yahoogrupos.com.br Assunto: Copiar dados de uma tabela mysql pra outra Boa tarde pessoal! Tenho duas tabelas my-sql idênticas, mas de nomes diferentes e preciso copiar todos os dados de uma para a outra usando SQL ou alguma forma bem rápida! Deixa eu explicar... Eu tenho uma tabela de nome Pre-notas e outra tabela de nome Notas e inicialmente eu uso a tabela Pre-notas para ser preenchida inicialmente. Eu gostaria de criar um botão que qdo fosse clicado fizesse a copia do registro atual que estiver na Pre-notas para a Tabela notas, ou seja, eu não gostaria de copiar a tabela inteira, mas apenas o registro atual ou a linha desejada. Mesmo assim quem souber como copiar a tabela inteira e quiser postar eu agradeceria! Obrigado e um feliz ano novo a todos! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] gFramework - A free and open-source SuperRAD web-framework for Delphi Win32
http://delphi.wikia.com/wiki/G_Framework The G Framework is a free (open source), model-driven SuperRAD web-framework for Delphi Win32 created by Steve Krame. P.S.: Não avaliei! Postei para que cada um possa olhar os vídeos existentes na página e criar suas próprias impressões! _ Mais do que emails! Confira tudo o que Windows Live™ pode oferecer. http://www.microsoft.com/windows/windowslive/ -- 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] gFramework - A free and open-source SuperRAD web-framework for Delphi Win32
http://delphi.wikia.com/wiki/G_Framework The G Framework is a free (open source), model-driven SuperRAD web-framework for Delphi Win32 created by Steve Krame. P.S.: Não avaliei! Postei para que cada um possa olhar os vídeos existentes na página e criar suas próprias impressões! _ Mais do que emails! Confira tudo o que Windows Live™ pode oferecer. http://www.microsoft.com/windows/windowslive/ -- 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] gFramework - A free and open-source SuperRAD web-framework for Delphi Win32
Impressionante! Aproveito pra desejar feliz ano novo a todos. Alexandre. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: quarta-feira, 31 de dezembro de 2008 20:07 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] gFramework - A free and open-source SuperRAD web-framework for Delphi Win32 Prioridade: Alta http://delphi.wikia.com/wiki/G_Framework The G Framework is a free (open source), model-driven SuperRAD web-framework for Delphi Win32 created by Steve Krame. P.S.: Não avaliei! Postei para que cada um possa olhar os vídeos existentes na página e criar suas próprias impressões! _ Mais do que emails! Confira tudo o que Windows Live pode oferecer. http://www.microsoft.com/windows/windowslive/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Information from ESET NOD32 Antivirus, version of virus signature database 3727 (20081231) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com __ Information from ESET NOD32 Antivirus, version of virus signature database 3727 (20081231) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com
Re: [delphi-br] gFramework - A free and open-source SuperRAD web-framework for Delphi Win32
AWSOME ABRAÇOS Rubem Nascimento da Rocha escreveu: http://delphi.wikia.com/wiki/G_Framework The G Framework is a free (open source), model-driven SuperRAD web-framework for Delphi Win32 created by Steve Krame. P.S.: Não avaliei! Postei para que cada um possa olhar os vídeos existentes na página e criar suas próprias impressões! _ Mais do que emails! Confira tudo o que Windows Live™ pode oferecer. http://www.microsoft.com/windows/windowslive/ -- 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] Re: Res: Copiar dados de uma tabela mysql pra outra
Bom dia! Feliz Ano NOvo a todos da lista! Bem... a sua resposta já está na sua pergunta: insert into nome_tabela(nome_dos_campos) select nome_dos_campos from nome_tabela where CodigoLctoNF = valor_desejado Espero ter ajudado! Fraterno abraço, Carlos