Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. voce esta errando em coisas basicas procedure .... begin . . . end; procedure TFormClientes.TableClientesBeforePost(DataSet: TDataSet); begin If DBEditRazaoSocial.Text = '' then //nada foi digitado begin ShowMessage('Digite a Razão Social/Nome'); DBEditRazaoSocial.SetFocus; //posiciona o cursor Abort; //não grava e continua editando end; end; abraço
  2. muito simples .... rode o BDE em modo de compatibilidade com o windows XP ou procure na Net BDE 64 Bits http://www.tudoemfoco.com.br/bde-64-bits-download.html abraço
  3. qual é a liguagem de programação que voce esta usando ?
  4. veja em http://webcache.googleusercontent.com/sear...CdM&ct=clnk abraço
  5. outra forma http://www.ufpa.br/dicas/htm/htm-som1.htm abraço
  6. exemplo http://www.devmedia.com.br/montar-tree-vie...m-dataset/16991 abraço
  7. ERRO: Cannot open file "C:\sisglog\Notas Fiscais\PDF\12\Julho\NFe51120707421604000150550010000136761001134621.pdf". O sistema não pode encontrar o arquivo especificado experimente reduzir o tamanho do nome do arquivo para ver se funciona abraço
  8. [Error] Clientes.pas(138): Declaration expected but 'IF' found [Error] Clientes.pas(146): Declaration expected but 'IF' found [Error] Clientes.pas(152): ';' expected but 'ELSE' found Correção: procedure TFormClientes.DBRadioGroupTipoClick(Sender: TObject); begin If DBRadioGroupTipo.ItemIndex:= 0 then //pessoa fisica begin LabelRazaoSocial.Caption:='Nome'; LabelFantasia.Caption:='Apelido'; TableClientesCGC_CPF.EditMask:='999\.999\.999\-99;0;_'; end else //pessoa Juridica begin LabelRazaoSocial.Caption:='Razao Social'; LabelFantasia.Caption:='Fantasia'; TableClientesCGC_CPF.EditMask:='99\.999\.999\/9999\-99;0;_'; end; end; [Error] Clientes.pas(154): Undeclared identifier: 'LabelRazaoSocial' [Error] Clientes.pas(154): Missing operator or semicolon [Error] Clientes.pas(155): Undeclared identifier: 'LabelFantasia' procedure TFormClientes.TableClientesAfterScroll(DataSet: TDataSet); begin if TableClientesTipo.AsString = 'F' then //pessoa fisica begin LabelRazaoSocial.Caption:='Nome'; LabelFantasia.Caption:='Apelido'; TableClientesCGC_CPF.EditMask:='999\.999\.999\-99;0;_'; end else //pessoa juridica begin LabelRazaoSocial.Caption:='Razao Social'; LabelFantasia.Caption:='Fantasia'; TableClientesCGC_CPF.EditMask:='99\.999\.999\/9999\-99;0;_'; end; end; abraço
  9. Cláusula Distinct no SQL Após a lista de seleção ser processada, a tabela resultante pode opcionalmente estar sujeita à remoção das linhas duplicadas. A palavra chave DISTINCT deve ser escrita logo após o SELECT para especificar esta funcionalidade SELECT DISTINCT lista_de_seleção ... (Em vez de DISTINCT pode ser utilizada a palavra ALL para especificar o comportamento padrão de manter todas as linhas) Como é óbvio, duas linhas são consideradas distintas quando têm pelo menos uma coluna diferente. Os valores nulos são considerados iguais nesta comparação. Como alternativa, uma expressão arbitrária pode determinar quais linhas devem ser consideradas distintas: SELECT DISTINCT ON (expressão [, expressão ...]) lista_de_seleção ... Neste caso, expressão é uma expressão de valor arbitrária avaliada para todas as linhas. Um conjunto de linhas para as quais todas as expressões são iguais são consideradas duplicadas, e somente a primeira linha do conjunto é mantida na saída. Deve ser observado que a “primeira linha” de um conjunto é imprevisível, a não ser que a consulta seja ordenada por um número suficiente de colunas para garantir a ordem única das linhas que chegam no filtro DISTINCT (o processamento de DISTINCT ON ocorre após a ordenação do ORDER BY). A cláusula DISTINCT ON não faz parte do padrão SQL, sendo algumas vezes considerada um estilo ruim devido à natureza potencialmente indeterminada de seus resultados. Utilizando-se adequadamente GROUP BY e subconsultas no FROM esta construção pode ser evitada, mas geralmente é a alternativa mais fácil. Em Resumo: duas linhas são consideradas distintas quando têm pelo menos uma coluna diferente. Os valores nulos são considerados iguais nesta comparação. Assim sendo : select DISTINCT ORCAPAI_CODIGO ORCAITEM_DESCRICAO, ORCAITEM_ITEM, ORCAITEM_SUBTOTAL, ORCAITEM_CODIGO_ORCA_PAI, ORSER_CODIGO_ORCA_PAI, SER_CODIGO, ORSER_ITEM, ORSER_PRECO_MAO_OBRA, ORSER_PRECO_MAO_OBRA_TOTAL, ORSER_PRECO_MATERIAL, ORSER_PRECO_MATERIAL_TOTAL, ORSER_QUANTIDADE,ORSER_UNIDADE, ORSER_VALOR_TOTAL from ORCA_SERVICO, ORCA_ITEM, ORCA_PAI where ORCAITEM_CODIGO_ORCA_PAI = ORCAPAI_CODIGO and ORSER_CODIGO_ORCA_PAI = ORCAPAI_CODIGO order by orser_item O seu select retorna 3 valores iguais como resultado da união de 3 tabelas, onde pelo menos um dos campos selecionados tem valor diferente uma maneira de contornar esse problema, seria na hora de montar o relatorio, utilizar a banda GROUP HEADER colocando na propriedade Expression o campo delimitador ( ex: ORCAITEM_ITEM ) isso faz com que somente o item não duplicado apareça exemplo http://limanetoinfo.blogspot.com.br/2009/0...uickreport.html tutorial em ingles http://delphi.about.com/library/bluc/text/uc051701f.htm abraço
  10. use o mysql-front , voce pode importar todas as tabelas do access ( estrutura e dados ) http://www.superdownloads.com.br/download/100/mysql-front/ http://www.devmedia.com.br/conhecendo-o-my...nt-parte-1/7021 http://mysql-front.softonic.com.br/ ou veja http://www.google.com.br/search?hl=pt&....1c.KP9__i3-hfQ abraço
  11. Amigo, access para mim não é banco de dados ... sugiro voce utilizar interbase, firebird, mysql, sqlserver ou outro ... são bancos de dados robustos e simples de usar so para exemplificar, tenho um cadastro de produtos em mysql com mais de 160.000 itens. uma pesquisa nesse cadastro leva 2 segundos ( obs: dependendo do processador do micro o interbase se torna lento ... a mesma pesquisa demora mais de 30 segundos ) ao optar em fazer uma escolha entre um banco de dados ou outro, leve sempre em consideração a velocidade do processador da maquina e a quantidade de memoria RAM, pois eles são o gargalo de desempenho do seu programa. abraço
  12. veja http://khfw.wordpress.com/2011/04/08/imped...-web-no-apache/ abraço
  13. tem um exemplo nesse link http://www.guj.com.br/java/238168-duvida-cifra-de-musica abraço
  14. voce não disse qual é o banco de dados, mas seria algo assim UPDATE ESTACAI SET CAIDEL = 'X' (SELECT DISTINCT CAIDAT, CAIHIS, CAIHO2 FROM ESTACAI WHERE CAIDAT IS NOT NULL'); ou procure na net select dentro de select para o seu banco de dados abraço
  15. depende ... se a rotina estiver dentro de um while ou for sim, caso contrário o resultado só é mostrado no dbgrid se houver uma atualização da tabela ( refresh ou applayupdates ) abraço
  16. erro: faltando dados do provedor ou pacote de dados amigo, sem o seu código fica dificil te ajudar abraço
  17. nesse link tem um exemplo de componente bem simples que voce pode usar http://www.planetadelphi.com.br/delphi/com...os/00004238.zip abraço
  18. sim, porque se o banco de dados não estiver configurado para receber caracteres especiais, o resultado voce já sabe abraço
  19. cobol http://www.downsfull.net/cursos/apostila-programacao-cobol/ dataflex http://pt.scribd.com/doc/41185261/Tutorial-Dataflex abraço
  20. procure na net como criar apresentações em flash http://www.google.com.br/search?q=programa....1c.sFLSqmxZ1UM abraço
  21. veja http://www.google.com.br/search?q=chat+act....1c.sFLSqmxZ1UM abraço
  22. veja a função MOD e AMOD do fortran http://www.dsc.ufcg.edu.br/~icc/Periodo-20...m%20FORTRAN.htm abraço
  23. dependendo da linguagem de progamação que voce for usar, é possivel fazer essas comparações de maneira bem simples
  24. a primeira opção é melhor abraço
  25. veja ... tem muitas opções na net http://www.google.com.br/search?hl=pt&....1c.sFLSqmxZ1UM abraço
×
×
  • Criar Novo...