RES: [delphi-br] Ajuda com stored procedure
Valeu Ricardo, eu postei tbm no grupo Firebase, mais não obtive nenhuma resposta. Já pesquisei bastante, tenho muito material impresso e alguns livros sobre o assunto. É que em todo material que tenho, não faz referencia a incluir uma variavel junto com um select na inclusão, e todas as mexidas que eu dou sempre dá erro, por isso recorri a lista. segue a procedure que estou tentando criar: CREATE PROCEDURE INCL_SERVICOS (WcdEvento Integer) as BEGIN INSERT into TBservicos (CDESTOQUE, CDEVENTO, VALORCOBRADO, QTDE, DATAPEDIDO, CONFIRMADO) values in (select CDESTOQUE, :WcdEvento, VALORVENDA, 100, Now, 'S' from bdestoque where INCLUIPACOTE = 'S'); Já tentei sem o IN, já tentei com a variavel entre aspas e sem o : O programa esta rodando pois estou fazendo a inclusão na mão, até que consiga resolver este problema. Peço desculpa ao pessoal da lista por ter enviado duas vezes o mesmo pedido de ajuda. Um abraço a todos. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em nome de Ricardo César Cardoso Enviada em: quarta-feira, 27 de maio de 2009 22:05 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Ajuda com stored procedure Vinícius, acho que perdi a sua dúvida original... Sobre o que seria? Dependendo do que for, é como o Jackson já disse. Uma pesquisada ou um post na Firebase-BR pode resolver. Na boa... se é pra ficar com flame, melhor nem responder. Eu na maioria das vezes acabo fazendo pesquisa pra ajudar a galera, mas por que isso me serve também de aprendizado e motivação. Mandar um comentário até vá lá... mas depois disso é meio improdutivo. As vezes também cometo meus deslizes, mas tenho tentado me policiar quanto a isso. Já me estrepei umas duas vezes respondendo coisas que sabia na ponta da língua. Pois vi que a minha solução não era a melhor possível. []'s 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! 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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] Servidor para Delphi
Rafael, Eu acho que um projeto que há dois anos se estimava ter 30 milhões de usuários no mundo todo não deve ser uma M... como o colega aparentemente tenta demonstrar no post. Eu particularmente já tive algumas experiências ruins com o linux, mas isso não me credencia a dizer que o mesmo seja ruim. Eu apenas não me adaptei ao mesmo, o que não significa que outros colegas não o possam fazer. Mas o grande problema para quem não quer mudar de ambiente é querer que, na contramão da lógica, o ambiente se adeque às suas necessidades... Quanto às novas versões e distros, foram justamente elas que me incentivaram a querer voltar ao linux novamente, coisa que só não fiz definitivamente pelo fato de a empresa em que trabalho estar fortemente enraizada no ambiente Windows. Mas tenho o Ubuntu e o Kurumin rodando em máquinas virtuais em minha casa e posso afirmar que em vários aspectos, são superiores ao Windows. Agora se não me interessei em pesquisar e descobrir as soluções para os meus problemas, coisa que tive que fazer quando sai do DOS para o Windows, porquê vou por a culpa no Linux ou querer me achar mais esperto que que esses supostos 30 milhões de usuários??? -- []’s. Evandro Siqueira Programador de Sistemas L’essentiel Lingerie (79) 3254-5511 Ramal 218 skype: evandro.lessentiel Rafael Augusto Ferrereira escreveu: 'sinceramente, mas o seu ponto de vista sobre profissionais Linux é complicado e polêmico.' R: Concordo plenamente. Mas, eu tenho meus motivos. 'Se todos os profissionais de TI usarem o mesmo conselho para fugir de profissionais Linux, estes profissionais acabam cada vez mais raros e por conseqüência, mais caros. Um dos pilares do sucesso atual do Windows é justamente o inverso dessa prática; ao invés do fuja do..., usaram o venha ' R: Pois é. Mas, eu prefiro continuar .. fugindo. hehehe 'Em algumas listas vejo o pessoal se dizendo satisfeito de servidores Linux.' R: Diga-me umas 10 dessas listas, por favor. É sempre bom estar preparado para dar manutenção em software livre. 'Eu também já montei um servidor para uso domestico com Linux RedHat (faz tempo pra caramba) e não achei nada difícil.' R: Logo que, o LINUX apareceu eu adquiri algumas versões pagas, e, realmente as antigas funcionavam muito bem. Mas, com o tempo as versões posteriores 'tolheram' o desenvolvimento de aplicações por parte de nós programadores. Criaram até 'repositórios' para baixar bibliotecas e atualizações, mas, NADA disso funciona ! Já experimentei umas 30 versões diferentes de LINUX, desde, as 'one disk LINUX' até as versões com 3 cd's num DVD só, como a Mandriva (Conectiva + Mandrake). Infelizmente, o LINUX reconhece as estações Windows e suas pastas compartilhadas, mas, NEM se comunica com as próprias estações onde roda apenas LINUX ! Um absurdo !!! É como se o pessoal tivesse se acostumado\acomodado em ocupar um 2o. lugar, deixando o 1o. para as estações Windows. Lamentável !!! No Conectiva 2 eu usava o FreePascal, e, até trocava aquivos pela minha rede com o Kurumim !! Mas, depois que, o Conectiva (3-Guarani, 4-Nasm, 5-Black, 6-Blue, e 8) foi engolido pela Mandrake LINUX (Mandriva), e, o o Kurumim foi substituído pelo Ubuntu, tudo falhou. Parti então para os NoteBooks da Dell que, já vem com o FreeDOS instalado. Tudo funciona: Fox2.6, dB3+, Clipper Summer 87, etc. -- 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] Delphi e os índices
O VKDBF é um componente de terceiros, porém sua licença é Freeware, inclusive para uso comercial. O código fonte acompanha o componente. Até onde me lembro e para o que precisei, ele funcionou bem. Mas a base que eu tinha não apresentou nenhum problema. Usei para fazer a migração dos dados apenas. []'s 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 qua, 27/5/09, Rafael Augusto Ferrereira arca...@yahoo.com.br escreveu: '..mas pra usar DBF e indice NTX não tem jeito não, tem que usar componentes de terceiros... ' R: Então, eu não vou usar índices .ndx\.ntx, e, vou carregar todas as bases de dados .dbf para o Delphi !! 'VKDBF é uma boa opção,' R: O vkdbf já é próprio do Delphi :? 'agora se você não pode abrir mão do dbase e quer algo poderoso parta para o Apollo Database.' R: Não, nem pensar ! Eu quero me livrar do Clipper Summer 87 (.ntx), e, do dB3+ (.dbf) SIM !! Eu os uso sob FreeDOS, mas, o sistema ainda está muito deficiente. 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] FireBird Developers Day
Salve Galera Amanha é o ultimo dia de inscrição com desconto para o FDD 2009. Este ano o evento esta sensacional, muitas novidades, sessões técnicas fantásticas, completamente imperdível! Quem for no evento que participar aqui do fórum, por favor me procure, pois é uma ótima oportunidade de trocar idéias e fazer network. Link: http://www.firebirddevelopersday.com.br/fdd/index.html?utm_source=Brunoutm_medium=webutm_campaign=banners Nos vemos no FDD!!! Abraços, BL [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Ajuda com stored procedure
Bom dia Vinícius!
Ainda estou pesquisando a respeito, mas tenta modificar essa tua SP para o
seguinte e me diz o que deu (acerto ou erro e mensagem):
{ INÍCIO COPY/PASTE }
CREATE PROCEDURE INCL_SERVICOS(
wcdEvento Integer)AS
DECLARE VARIAVLE numEvento INTEGER;
BEGIN
numEvento = wcdEvento;
INSERT INTO TBservicos(
cdestoque,
cdevento,
valorcobrado,
qtde,
datapedido,
confirmado
)
VALUES IN(
SELECT cdestoque, :numEvento, valorvenda, 100, Now, 'S'
FROM bdestoque
WHERE incluipacote = 'S'
);
END
{ FINAL COPY/PASTE }
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 qui, 28/5/09, Vinicius da Silva Pinto vinic...@cnen.gov.br escreveu:
Valeu Ricardo, eu postei tbm no grupo Firebase, mais não obtive nenhuma
resposta.
Já pesquisei bastante, tenho muito material impresso e alguns livros sobre o
assunto.
É que em todo material que tenho, não faz referencia a incluir uma variavel
junto com um select na inclusão,
e todas as mexidas que eu dou sempre dá erro, por isso recorri a lista.
segue a procedure que estou tentando criar:
CREATE PROCEDURE INCL_SERVICOS (WcdEvento Integer) as
BEGIN
INSERT into TBservicos (CDESTOQUE, CDEVENTO, VALORCOBRADO, QTDE, DATAPEDIDO,
CONFIRMADO)
values in (select CDESTOQUE, :WcdEvento, VALORVENDA, 100, Now, 'S'
from bdestoque where INCLUIPACOTE = 'S');
Já tentei sem o IN, já tentei com a variavel entre aspas e sem o :
O programa esta rodando pois estou fazendo a inclusão na mão, até que
consiga resolver este problema.
Peço desculpa ao pessoal da lista por ter enviado duas vezes o mesmo pedido
de ajuda.
Um abraço 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] Validar Celula de uma String Grid
Pessoal como posso validar o texto ao sair da celula de um string grid? Exemplo verificar se a celula e um numero ou uma data... Valeu!
[delphi-br] RESOLUCAO DE VIDEO
Bom dia pessoal, a algum tempo postei uma duvida sobre a seguinte coisa: tenho uma aplicação que roda do meu pen drive mas na minha casa no meu micro a resolução de vídeo é altíssima (uso placa de vídeo 1280x1024 no minimo), então lá a aplicação fica filé da para ver todos os botões e todo o resto o problema é que quando chego num cliente e a resolução dele é 800x600 ou 1024x768 não consigo ver os botões ou seja na resolução diferente não consigo usar o programa sei que tem como carregar dinamicamente a resolução da maquina em que estou mas como fazer isso alguém sabe me dizer??? Atenciosamente Ruberval [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Update Via Internet
Bom dia a todos. Eu gostaria que meus clientes fizessem o update do sistema via Internet, mais ou menos, algo parecido com o anti virus, porem tenho alguma duvidas: 1 ) Como ter certeza que ninguem estara usando o sistema na hora do update. 2 ) Como atualizar o banco de dados ?? Jr.
[delphi-br] String - Mesmo Endereço de Memória
Olá pessoal ,
Tenho duas variaveis (ITENSFATURADOS e sMsg) as duas do
tipo string:
- declaração var
const
MAX =
4000;
var
ITENSFATURADOS : array[1..MAX] of array[1..2] of String; //L
C
sMsg : String;
-
* atribuo valor para
sMsg
sMsg := RetornaFuncao();
*quando vou atribuir um valor para o meu
vetor
ITENSFATURADOS[Linha][2] :=
TblConsulta.FieldByName('NrItem').AsString;
* a VAR sMsg muda o valor
para o mesmo valor do VETOR.
Estava depurando e fui no INSPECT e estão no
mesmo endereço(sem imagem - não
foi ).
Alguém tem idéia do que pode ser
Obrigado
Rodrigo
®¿®
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] Servidor para Delphi
Bom dia Rafael! Olha, 10 listas não posso te passar até porque não participo de 10 listas relacionadas a tecnologia. Mas cito os exemplos de NDDV, Firebase-BR, Automação Total e Delphi-BR (esta lista) as quais acompanho mais ativamente e já vi bons relatos. Não quero nem de longe dizer que *NIX (Unix/Linux) seja melhor ou pior que Windows (nem o contrário); assim há relatos de boas experiências com *nix, também há com Windows. O inverso também é verdadeiro. Porém todavia entretanto, as más experiências tanto de um lado (Windows) quanto do outro (*nix) passam por falhas dos profissionais que configuram os servidores. O que mais me deixa pasmo nos relatos de más experiências com servidores Windows é que mesmo o Windows tendo vários assistêntes para diversas tarefas e deixando a configuração o mais simples possível, segundo nota-se quando se acompanha os relatos, é que as pessoas acabam sendo mais displicentes. Configurar servidores *Nix nem sempre possui assistentes ou opções intuitivas, pelo contrário exige conhecimento dos conceitos envolvidos, manipulação em linha de comando e etc. Tudo isso dá uma margem a erros muito maior, com certeza, mas conhecendo os conceitos de configuração do servidor (a teoria) a chance de erro é muito menor. Como nos dias de hoje tempo é artigo de luxo, há quem se proponha a investir mais num produto do que no conhecimento e conceitos. Não considero isso um erro ou até mesmo um acerto. É apenas uma decisão estratégica que pode dar certo ou não. Agora quanto ao seu relato de testar várias distribuições diferentes, nas antigas funcionava e agora não funciona mais e etc, não posso dizer muito. Acho improvável o kernel involuir e não reconhecer uma estação rodando um sistema Linux mesmo que de outra distribuição. Já tentou recorrer a alguma lista de Linux? Configurou as estações para aceitarem conexões remotas? Configurou o firewall nas estações? No Windows tudo transparente para o usuário, mas tudo isso é feito, na maioria das vezes, nos bastidores. Quanto a acomodação do pessoal do Linux, não sei. Acho que é mais amadurecimento. O foco mudou; a Microsoft tem muito dinheiro para evoluir seus produtos, integrá-los e oferecer parcerias lucrativas pois esse é o fim da Microsoft. O Linux, pelo contrário é parte de uma fundação. Acho que hoje o Linux deve ser visto não como um concorrente, mas como uma opção ao Windows. Infelizmente (ou não) essa é uma discussão filosófica e foge do escopo da lista, mas ainda sim considero importante. Se quiser continuar em PVT, fique a vontade. Desculpe alongar o assunto, 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 qua, 27/5/09, Rafael Augusto Ferrereira arca...@yahoo.com.br escreveu: 'sinceramente, mas o seu ponto de vista sobre profissionais Linux é complicado e polêmico.' R: Concordo plenamente. Mas, eu tenho meus motivos. 'Se todos os profissionais de TI usarem o mesmo conselho para fugir de profissionais Linux, estes profissionais acabam cada vez mais raros e por conseqüência, mais caros. Um dos pilares do sucesso atual do Windows é justamente o inverso dessa prática; ao invés do fuja do..., usaram o venha ' R: Pois é. Mas, eu prefiro continuar .. fugindo. hehehe 'Em algumas listas vejo o pessoal se dizendo satisfeito de servidores Linux.' R: Diga-me umas 10 dessas listas, por favor. É sempre bom estar preparado para dar manutenção em software livre. 'Eu também já montei um servidor para uso domestico com Linux RedHat (faz tempo pra caramba) e não achei nada difícil.' R: Logo que, o LINUX apareceu eu adquiri algumas versões pagas, e, realmente as antigas funcionavam muito bem. Mas, com o tempo as versões posteriores 'tolheram' o desenvolvimento de aplicações por parte de nós programadores. Criaram até 'repositórios' para baixar bibliotecas e atualizações, mas, NADA disso funciona ! Já experimentei umas 30 versões diferentes de LINUX, desde, as 'one disk LINUX' até as versões com 3 cd's num DVD só, como a Mandriva (Conectiva + Mandrake). Infelizmente, o LINUX reconhece as estações Windows e suas pastas compartilhadas, mas, NEM se comunica com as próprias estações onde roda apenas LINUX ! Um absurdo !!! É como se o pessoal tivesse se acostumado\acomodad o em ocupar um 2o. lugar, deixando o 1o. para as estações Windows. Lamentável !!! No Conectiva 2 eu usava o FreePascal, e, até trocava aquivos pela minha rede com o Kurumim !! Mas, depois que, o Conectiva (3-Guarani, 4-Nasm, 5-Black, 6-Blue, e 8) foi engolido pela Mandrake LINUX (Mandriva), e, o o Kurumim foi substituído pelo Ubuntu, tudo falhou. Parti então para os NoteBooks da Dell que, já vem com o FreeDOS instalado. Tudo funciona: Fox2.6, dB3+, Clipper Summer 87,
Re: [delphi-br] Para: Rubem (você esqueceu? )
Com vc faz para acessar as partições EXT2 com Windows??? Fiquei curioso agora, pois achei uma ou duas dicas e não consegui implementar.! []'s 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 qua, 27/5/09, EmbarcaDelphi embarcadel...@yahoo.com.br escreveu: E aí Rubem, Navegando na Net pesquisando por umas questões pouco difundidas eu me deparei com uma mensagem sua que iria retornar, a mensagem era de 2008. O link é este: http://cincobytes. net/simular- inkey-do- clipper-no- delphi/ Teve mais novidades a este respeito? Não sei em que situação poderia utilizar esta rotina, mas, acabei caindo nesse link. De vez em quando eu pego uma função da API do Windows (coisa que nunca usei e fiquei curioso) e vou navegando na internet para estudar, creio que poucas pessoas fazem isso. É pena que muitas coisas não se encontram no idioma português (meu inglês é muito fraco), mas vendo o código dá para ter uma idéia do que se trata, como não uso Banco de Dados, só busco por APIs e coisas de baixo nível. A pouco tempo atrás eu descobri como acessar uma partição EXT2 de dentro do Windows, podendo lêr ou gravar nesta partição, também na partição ReiserFS. Coisa que para muitos isso seria impossível, visto que só na linguagem C se faz., k. Estou fazendo uma proteção para meu programa e estou desenrolando, ainda falta muitos ajustes, como criar a partição EXT2. Só queria ver como criar uma partição pelo Delphi (FAT32 e EXT2), ainda estou pesquisando. Um dia acho algo. Se alguém souber alguma informação a respeito então será muito bem-vinda. Teve um colega aqui na lista que tava procurando, não sei se ele encontrou... Blz. 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] Validar Celula de uma String Grid
Talvez voce poderia utilizar as funções de strtodate e strtoint dentro de try .. except blocos. Se existe uma excepção, o valor não é uma data / número com desculpas pelo meu Português, espero ter ajudado. Steve -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]on Behalf Of dhsb Sent: 28 May 2009 13:27 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Validar Celula de uma String Grid Pessoal como posso validar o texto ao sair da celula de um string grid? Exemplo verificar se a celula e um numero ou uma data... Valeu! -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM *** This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received. Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles. This footnote also confirms that, unless otherwise stated, this email message has been swept by Sophos Anti-virus for the presence of computer viruses. ***
Re: [delphi-br] RESOLUCAO DE VIDEO
Minha resposta vai ser bem vaga, mas vi um link para um componente que prometia redimensionar o form de acordo com a resolução [1]; até peguei o código fonte e criei o componente, mas não testei. Existem também uma possibilidade de alterar a resolução de vídeo o que se vê aqui [2]. Também existem rotinas aqui [3] e aqui [4] que prometem fazer esse trabalho. Já testei essas e não tive reclamações a respeito, o que me deixou satisfeito. Veja qual alternativa, entre as expostas, lhe agrada mais. Atte, Ricardo. [1] - http://www.delphipages.com/threads/thread.cfm?ID=54939G=54933SAR=TRUE [2] - http://www.planetadelphi.com.br/dica/3444/Mudar%20realmente%20a%20resolu%E7%E3o%20de%20v%EDdeo [3] - http://www.mail-archive.com/delphi-br@yahoogrupos.com.br/msg01781.html [4] - http://www.planetadelphi.com.br/dica/7077/mudar-resolucao-de-video 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 qui, 28/5/09, RUBERVAL - YAHOO agenda.ruber...@yahoo.com.br escreveu: Bom dia pessoal, a algum tempo postei uma duvida sobre a seguinte coisa: tenho uma aplicação que roda do meu pen drive mas na minha casa no meu micro a resolução de vídeo é altíssima (uso placa de vídeo 1280x1024 no minimo), então lá a aplicação fica filé da para ver todos os botões e todo o resto o problema é que quando chego num cliente e a resolução dele é 800x600 ou 1024x768 não consigo ver os botões ou seja na resolução diferente não consigo usar o programa sei que tem como carregar dinamicamente a resolução da maquina em que estou mas como fazer isso alguém sabe me dizer??? Atenciosamente Ruberval 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] Validar Celula de uma String Grid
Seu português está bem razoável. Melhor que até de alguns fluentes... Regards, 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 qui, 28/5/09, Wilson, Stephen stephen.wil...@ipswichhospital.nhs.uk escreveu: Talvez voce poderia utilizar as funções de strtodate e strtoint dentro de try .. except blocos. Se existe uma excepção, o valor não é uma data / número com desculpas pelo meu Português, espero ter ajudado. Steve 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: Servidor para Delphi
Continuo sem saber qual a melhor estrutura montar. Aceito sugestões. Quanto a Windows X Linux isto é uma outra discussão. Abraço Zé Maria --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso ricardo_engs...@... escreveu Amigo... sinceramente, mas o seu ponto de vista sobre profissionais Linux é complicado e polêmico. Se todos os profissionais de TI usarem o mesmo conselho para fugir de profissionais Linux, estes profissionais acabam cada vez mais raros e por conseqüência, mais caros. Um dos pilares do sucesso atual do Windows é justamente o inverso dessa prática; ao invés do fuja do..., usaram o venha Em algumas listas vejo o pessoal se dizendo satisfeito de servidores Linux. Eu também já montei um servidor para uso domestico com Linux RedHat (faz tempo pra caramba) e não achei nada difícil. E olha que eu tinha bastante hardware xing-ling pendurado no servidor e nas estações. 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 qua, 27/5/09, Rafael Augusto Ferrereira arca...@... escreveu: De: Rafael Augusto Ferrereira arca...@... Assunto: Re: [delphi-br] Servidor para Delphi Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 27 de Maio de 2009, 12:32 José, Tentarei responder algumas questões, pois, já trabalhei como autônomo. 'Bom dia,' R: .. dia. 'Atualmente trabalho sozinho' R: O S.O.H.O. (Small Office Home Office) é uma tendência mundial já há algumas décadas. 'Gostaria de sugestões para aquisição de um servidor(equipament o) que esteja bem dimensionado para minha realidade' R: De quanto capital vc dispõe de imediato para implantar esta estrutura ? Quanto capital por mês vc poderá dispor para manter esta estrutura ? 'sistema operacional( Windows ou Linux)' R: Fuja do LINUX. Não existe uma revenda no mundo que, te forneça suporte à máquinas\programas servidores usando o LINUX ! Já o Windows vc encontra suporte em TODAS as revendas de Soft\Hard !! 'Ninguém usa o LINUX' foi o que, disse meu instrutor que, tb é empresário !!! 'e software para controle de versões(svn ou similar) que funcione bem para desenvolvimento em uma softwarehouse com vários programadores utilizando o mesmo programa ao mesmo tempo.' R: Já trabalhei assim, e, era muito legal. Nós, programadores, desenvolvíamos 'trechos' de programas, e, os Analistas 'costuravam' esses 'trechos' de programas nos Sistemas principais da Empresa. 'Na verdade não tenho muito conhecimento nisto, pois como disse anteriormente, trabalho sozinho.' R: Então, para começar sem arriscar um enorme capital em tempos de crise, pq, vc não procura uma SoftWareHouse, e, terceiriza o desenvolvimento do teu Sistema ? 'É possível ter um servidor linux?' R: Não recomendo ! Os profissionais LINUX são raros, e, caríssimos, pois, geralmente eles já têm até mesmo sua própria empresa devido à dificuldade de se configurar o sistema. Por exemplo, o 'governo' usa aqui em Sampa o LINUX Jaguatirica em programas sociais voltados à 3a. idade. Eles 'fuçaram' o Kernel do LINUX, e, o 'travaram' só para eles ! Mas, o 'governo' pode ! Os custos envolvidos na alteração\recompilaçã o do LINUX são absurdos para nós empresários da iniciativa privada. É preferível pagar um Windows\Delphi por cada máquina, pois, vale mais a pena !! Hoje em dia, graças a Deus, as máquinas já vem com uma versão atualizada do Windows quando se compra um micro qualquer. Daí, é só 'radiografar' o HD por segurança. Assim, se o 'sistema' cair, é, só recopiar a 'imagem' radiografada do sistema para o HD !! 'Grato' R: .. nada. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [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]
RES: RES: [delphi-br] Ajuda com stored procedure
Ricardo, do seu jeito não consegui... mais olhando outras apostilas que
tenho eu resolvi em parte, explico melhor.
A procedure ficou assim:
SET TERM ^ ;
CREATE PROCEDURE INCL_SERVICOS (
wcdevento integer)
as
declare variable wcodest integer;
declare variable wvalor numeric(12,2);
BEGIN
FOR select CDESTOQUE, VALORVENDA from BDESTOQUE WHERE INCLUIPACOTE = 'S'
INTO :WCODEST, :WVALOR
DO
BEGIN
INSERT into servicosevento (CDEVENTO, CDESTOQUE, VALORCOBRADO, QTDE,
DATAPEDIDO, CONFIRMADO)
values (:WcdEvento, :WCODEST, :WVALOR, 100, 'Now', 'S');
END
END^
SET TERM ; ^
Eu agora estou com outro problema. precisando de ajuda novamente...
Utilizando o IBExpert, mandando executar esta procedure, passo como
parametro um número de pedido válido,
e ela inclui todos os itens do estoque no arquivo certinho... todos eles.
Agora, dentro da minha aplicação, quando eu termino de incluir um pedido,
guardo o numero do pedido em uma variável, fecho o CDS,
Abro o CDS, o pedido está gravado normalmente, ai eu mando executar a
procedure desta forma:
Dm.SP_InclServicos.Params[0].AsInteger := Wpedido;
Dm.SP_InclServicos.ExecProc;
Estou recebendo mensagens de erro dizendo que esta havendo violação de
chave.
Alguem sabe porque
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Ricardo César Cardoso
Enviada em: quinta-feira, 28 de maio de 2009 09:04
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Ajuda com stored procedure
Bom dia Vinícius!
Ainda estou pesquisando a respeito, mas tenta modificar essa tua SP para o
seguinte e me diz o que deu (acerto ou erro e mensagem):
{ INÍCIO COPY/PASTE }
CREATE PROCEDURE INCL_SERVICOS(
wcdEvento Integer)AS
DECLARE VARIAVLE numEvento INTEGER;
BEGIN
numEvento = wcdEvento;
INSERT INTO TBservicos(
cdestoque,
cdevento,
valorcobrado,
qtde,
datapedido,
confirmado
)
VALUES IN(
SELECT cdestoque, :numEvento, valorvenda, 100, Now, 'S'
FROM bdestoque
WHERE incluipacote = 'S'
);
END
{ FINAL COPY/PASTE }
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 qui, 28/5/09, Vinicius da Silva Pinto vinic...@cnen.gov.br
escreveu:
Valeu Ricardo, eu postei tbm no grupo Firebase, mais não obtive nenhuma
resposta.
Já pesquisei bastante, tenho muito material impresso e alguns livros sobre o
assunto.
É que em todo material que tenho, não faz referencia a incluir uma variavel
junto com um select na inclusão,
e todas as mexidas que eu dou sempre dá erro, por isso recorri a lista.
segue a procedure que estou tentando criar:
CREATE PROCEDURE INCL_SERVICOS (WcdEvento Integer) as
BEGIN
INSERT into TBservicos (CDESTOQUE, CDEVENTO, VALORCOBRADO, QTDE, DATAPEDIDO,
CONFIRMADO)
values in (select CDESTOQUE, :WcdEvento, VALORVENDA, 100, Now, 'S'
from bdestoque where INCLUIPACOTE = 'S');
Já tentei sem o IN, já tentei com a variavel entre aspas e sem o :
O programa esta rodando pois estou fazendo a inclusão na mão, até que
consiga resolver este problema.
Peço desculpa ao pessoal da lista por ter enviado duas vezes o mesmo pedido
de ajuda.
Um abraço 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]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] Re: Servidor para Delphi
Depende. Vc conhece alguma coisa de Linux ou tem tempo / disposição para aprender sobre, mas não quer gastar? Se sim, seu servidor pode Linux. As estações podem ser Linux. Vc não conhece Linux, não tem tempo e/ou disposição para aprender sobre, mas pode gastar? Se sim, veja quanto pode gastar e compare com o valor de um especialista em servidores Windows + o software (Windows Server) e o valor de um especialista em servidores Linux + software (alguma distribuição Linux específica) Vc não conhece Linux, não tem tempo nem disposição para aprender sobre, e não pode gastar? Se sim, nesse caso, só um milagre salva a situação... No mais, não entendi sua dúvida inicial: vc quer montar um servidor / repositório para codigos fonte? Vc tem um software ou planeja desenvolver, mas tem que pensar na arquitetura? Ou ainda: o que vc define como Servidor para Delphi? []'s 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 qui, 28/5/09, José Maria jmche...@uem.br escreveu: Continuo sem saber qual a melhor estrutura montar. Aceito sugestões. Quanto a Windows X Linux isto é uma outra discussão. Abraço Zé Maria 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] Intraweb
Bom dia Consigo rodar intraweb em palm, smart ,etc Aldinei Simões [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Pegar dados quando form e minimizado
Bom dia a todos (e obrigado, Ricardo - voce esta muito amavel) Alguem pode dar-me ajuda? Quando mais de uma e visivel, as formas no meu projeto podem ser minimizadas individualmente utilizando CreateParams, assim: procedure TJbForm.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW; end; Agora eu preciso que ums dados sejam armazenados num base de dados sempre que o form e minimizado (como eu preciso de um evento OnMinimize), Alguem tem alguma sugestao como posso conseguir isso? Att Steve *** This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received. Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles. This footnote also confirms that, unless otherwise stated, this email message has been swept by Sophos Anti-virus for the presence of computer viruses. ***
Re: [delphi-br] Update Via Internet
Amigo, Não vou escrever os comandos, mas sim a lógica. 1 - Um programa específico de atualização é executado pelo seu sistema e este conecta em um servidor ftp. 2 - Verifica se tem alguma atualização na pasta updates. 3 - Baixa um arquivo texto que você mantém na raiz desta pasta, abre e compara a versão. 4 - Se a versão do servidor for superior que a sua, pega tanto o novo executrável, quanto um script seu .sql (que são as atualizações do banco de dados). 5 - Tanto o novo exe quanto este novo script deverão ser baixadas para uma pasta temporária no micro. 6 - programa de atualização verifica se o seu programa está rodando na lista de processos (tem muitos exemplos de como fazer isso na web) 7 - programa de atualização conecta no banco, executa o .sql. em caso de sucesso, pega o executável que está na pasta temporária e copia por cima do anterior. Obs: Esta é apenas uma forma muito simples de se fazer, existem N maneiras, com download via hhtp, via webservices, Eu particularmente faço via click-once do C#. Espero que tenha te dado uma luz. Um abraço. 2009/5/28 Adauri Antonio Camacho Junior adauri...@yahoo.com.br Bom dia a todos. Eu gostaria que meus clientes fizessem o update do sistema via Internet, mais ou menos, algo parecido com o anti virus, porem tenho alguma duvidas: 1 ) Como ter certeza que ninguem estara usando o sistema na hora do update. 2 ) Como atualizar o banco de dados ?? Jr. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TVideoCap
Pessoal, Alguem sabe como posso instalar o componente TVideoCap no delphi 2007? Onde posso consegui-lo? Se nao me engano é free... Alguem conhece? [As partes desta mensagem que não continham texto foram removidas]
Re: RES: RES: [delphi-br] Ajuda com stored procedure
Por algum motivo, a aplicação está tentando usar a mesma chave primária para um
novo registro. dos parâmetros da procedure, qual deles é o wPedido? Qual é a
chave primária da tabela relacionada?
[]'s
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 qui, 28/5/09, Vinicius da Silva Pinto vinic...@cnen.gov.br escreveu:
De: Vinicius da Silva Pinto vinic...@cnen.gov.br
Assunto: RES: RES: [delphi-br] Ajuda com stored procedure
Para: delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 28 de Maio de 2009, 11:43
Ricardo, do seu jeito não consegui... mais olhando outras apostilas que
tenho eu resolvi em parte, explico melhor.
A procedure ficou assim:
SET TERM ^ ;
CREATE PROCEDURE INCL_SERVICOS (
wcdevento integer)
as
declare variable wcodest integer;
declare variable wvalor numeric(12,2) ;
BEGIN
FOR select CDESTOQUE, VALORVENDA from BDESTOQUE WHERE INCLUIPACOTE = 'S'
INTO :WCODEST, :WVALOR
DO
BEGIN
INSERT into servicosevento (CDEVENTO, CDESTOQUE, VALORCOBRADO, QTDE,
DATAPEDIDO, CONFIRMADO)
values (:WcdEvento, :WCODEST, :WVALOR, 100, 'Now', 'S');
END
END^
SET TERM ; ^
Eu agora estou com outro problema . precisando de ajuda novamente...
Utilizando o IBExpert, mandando executar esta procedure, passo como
parametro um número de pedido válido,
e ela inclui todos os itens do estoque no arquivo certinho... todos eles.
Agora, dentro da minha aplicação, quando eu termino de incluir um pedido,
guardo o numero do pedido em uma variável, fecho o CDS,
Abro o CDS, o pedido está gravado normalmente, ai eu mando executar a
procedure desta forma:
Dm.SP_InclServicos. Params[0] .AsInteger := Wpedido;
Dm.SP_InclServicos. ExecProc;
Estou recebendo mensagens de erro dizendo que esta havendo violação de
chave.
Alguem sabe porque
-Mensagem original -
De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br]Em
nome de Ricardo César Cardoso
Enviada em: quinta-feira, 28 de maio de 2009 09:04
Para: delphi...@yahoogrup os.com.br
Assunto: Re: RES: [delphi-br] Ajuda com stored procedure
Bom dia Vinícius!
Ainda estou pesquisando a respeito, mas tenta modificar essa tua SP para o
seguinte e me diz o que deu (acerto ou erro e mensagem):
{ INÍCIO COPY/PASTE }
CREATE PROCEDURE INCL_SERVICOS(
wcdEvento Integer)AS
DECLARE VARIAVLE numEvento INTEGER;
BEGIN
numEvento = wcdEvento;
INSERT INTO TBservicos(
cdestoque,
cdevento,
valorcobrado,
qtde,
datapedido,
confirmado
)
VALUES IN(
SELECT cdestoque, :numEvento, valorvenda, 100, Now, 'S'
FROM bdestoque
WHERE incluipacote = 'S'
);
END
{ FINAL COPY/PASTE }
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 qui, 28/5/09, Vinicius da Silva Pinto vinic...@cnen. gov.br
escreveu:
Valeu Ricardo, eu postei tbm no grupo Firebase, mais não obtive nenhuma
resposta.
Já pesquisei bastante, tenho muito material impresso e alguns livros sobre o
assunto.
É que em todo material que tenho, não faz referencia a incluir uma variavel
junto com um select na inclusão,
e todas as mexidas que eu dou sempre dá erro, por isso recorri a lista.
segue a procedure que estou tentando criar:
CREATE PROCEDURE INCL_SERVICOS (WcdEvento Integer) as
BEGIN
INSERT into TBservicos (CDESTOQUE, CDEVENTO, VALORCOBRADO, QTDE, DATAPEDIDO,
CONFIRMADO)
values in (select CDESTOQUE, :WcdEvento, VALORVENDA, 100, Now, 'S'
from bdestoque where INCLUIPACOTE = 'S');
Já tentei sem o IN, já tentei com a variavel entre aspas e sem o :
O programa esta rodando pois estou fazendo a inclusão na mão, até que
consiga resolver este problema.
Peço desculpa ao pessoal da lista por ter enviado duas vezes o mesmo pedido
de ajuda.
Um abraço a todos.
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos.yahoo. 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]
[delphi-br] Re: Validar Celula de uma String Grid
Ate pensei isso, mas em qual evento colocar estes testes? Aguardo... --- Em delphi-br@yahoogrupos.com.br, Wilson, Stephen stephen.wil...@... escreveu Talvez voce poderia utilizar as funções de strtodate e strtoint dentro de try .. except blocos. Se existe uma excepção, o valor não é uma data / número com desculpas pelo meu Português, espero ter ajudado. Steve -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]on Behalf Of dhsb Sent: 28 May 2009 13:27 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Validar Celula de uma String Grid Pessoal como posso validar o texto ao sair da celula de um string grid? Exemplo verificar se a celula e um numero ou uma data... Valeu! -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM *** This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received. Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles. This footnote also confirms that, unless otherwise stated, this email message has been swept by Sophos Anti-virus for the presence of computer viruses. ***
Re: [delphi-br] Re: Servidor para Delphi
José Maria Atualmente aqui na empresa usamos servidor Linux para o seguinte uso: Subversion - Controlar as versões de software Redmine - Como gerenciador de projetos e bugtracker (É um aplicativo web) Firebird, MySQL - Acho que dispensa comentários :) Apache, PHP5 Apensar do servidor aqui ser linux, a mesma configuração pode ser aplicada no windows da mesma forma. Nenhum deles é realmente complicado de instalar (Mas esta é a realidade daqui, pode ser que vc use algum soft que necessite de mais trabalho pra funcionar) Subversion É um excelente controle de versões. Aqui, hoje em dia atende softwares desenvolvidos em Java, PHP e Delphi. Existem vários, como o Git, Baazar, Mercurial, CVS, JEDI VCS, mas, acho que o mais popular aqui na lista é o subversion. Suponho eu que seja pelo excelente cliente que ele tem, e, que se integra muito bem com o Windows (E, como trabalhamos com Delphi, isso é excelente). Redmine Ótimo gerenciador de projetos, open source, com uma boa comunidade (Alguns aqui mesmo na Delphi-br o utilizam) e, que se integra com quase todos os controles de versões. Todos os softwares são Open Source. Todos rodam em Windows e Linux, e, na minha opinião, é uma boa estrutura basica de desenvolvimento. Caso utilize svn, tente colocar o svn como módulo do apache. Assim vc pode utilizar algum administrador web como o usvn (http://www.usvn.info/) para gerenciar usuários e repositórios, protocolo com criptografia SSL, visualizadores web dos repositórios. Não utilizo desta forma aqui por restrições de configuração no servidor. VPN Não vejo necessidade necessidade (Principalmente porque não faço idéia do motivo que vc vá utiliza-la) Abs Daniel Augusto Bastos 2009/5/28 Ricardo César Cardoso ricardo_engs...@yahoo.com.br Depende. Vc conhece alguma coisa de Linux ou tem tempo / disposição para aprender sobre, mas não quer gastar? Se sim, seu servidor pode Linux. As estações podem ser Linux. Vc não conhece Linux, não tem tempo e/ou disposição para aprender sobre, mas pode gastar? Se sim, veja quanto pode gastar e compare com o valor de um especialista em servidores Windows + o software (Windows Server) e o valor de um especialista em servidores Linux + software (alguma distribuição Linux específica) Vc não conhece Linux, não tem tempo nem disposição para aprender sobre, e não pode gastar? Se sim, nesse caso, só um milagre salva a situação... No mais, não entendi sua dúvida inicial: vc quer montar um servidor / repositório para codigos fonte? Vc tem um software ou planeja desenvolver, mas tem que pensar na arquitetura? Ou ainda: o que vc define como Servidor para Delphi? []'s 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 qui, 28/5/09, José Maria jmche...@uem.br escreveu: Continuo sem saber qual a melhor estrutura montar. Aceito sugestões. Quanto a Windows X Linux isto é uma outra discussão. Abraço Zé Maria 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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Informações de versão em projeto RAD Studio 2007
Em win32: Project - Options - Version Info Marque o checkbox e seja feliz :) em .net sei não .. só tenho a versão win32, mas deve ser a mesma coisa. Abs Daniel Augusto Bastos 2009/5/26 dangra2008 dangra2...@yahoo.com.br Como faço para digitar as informações do aplicativo (versão, nome, nome interno, etc) feito em RAD Studio 2007 (dot net), da mesma forma como posso editar as informações em um projeto Win 32? Graça -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
RES: RES: RES: [delphi-br] Ajuda com stored procedure
A tabela servicos é composta pelo numero do pedido e o codigo do estoque,
não teria como dar chave duplicada.
O estoque tem chave única e a tabela servicos tem chave composta (pedido +
estoque).
O que eu não entendo é que rodando na mão (via IBExpert), passando o último
número do pedido, não dá erro nenhum.
Já olhei o meu DataModule e a tabela servicos está indexada pelos campos
Pedido e Estoque.
Ideias???
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Ricardo César Cardoso
Enviada em: quinta-feira, 28 de maio de 2009 13:20
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: [delphi-br] Ajuda com stored procedure
Por algum motivo, a aplicação está tentando usar a mesma chave primária para
um novo registro. dos parâmetros da procedure, qual deles é o wPedido? Qual
é a chave primária da tabela relacionada?
[]'s
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 qui, 28/5/09, Vinicius da Silva Pinto vinic...@cnen.gov.br
escreveu:
De: Vinicius da Silva Pinto vinic...@cnen.gov.br
Assunto: RES: RES: [delphi-br] Ajuda com stored procedure
Para: delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 28 de Maio de 2009, 11:43
Ricardo, do seu jeito não consegui... mais olhando outras apostilas
que
tenho eu resolvi em parte, explico melhor.
A procedure ficou assim:
SET TERM ^ ;
CREATE PROCEDURE INCL_SERVICOS (
wcdevento integer)
as
declare variable wcodest integer;
declare variable wvalor numeric(12,2) ;
BEGIN
FOR select CDESTOQUE, VALORVENDA from BDESTOQUE WHERE INCLUIPACOTE = 'S'
INTO :WCODEST, :WVALOR
DO
BEGIN
INSERT into servicosevento (CDEVENTO, CDESTOQUE, VALORCOBRADO, QTDE,
DATAPEDIDO, CONFIRMADO)
values (:WcdEvento, :WCODEST, :WVALOR, 100, 'Now', 'S');
END
END^
SET TERM ; ^
Eu agora estou com outro problema . precisando de ajuda novamente...
Utilizando o IBExpert, mandando executar esta procedure, passo como
parametro um número de pedido válido,
e ela inclui todos os itens do estoque no arquivo certinho... todos eles.
Agora, dentro da minha aplicação, quando eu termino de incluir um pedido,
guardo o numero do pedido em uma variável, fecho o CDS,
Abro o CDS, o pedido está gravado normalmente, ai eu mando executar a
procedure desta forma:
Dm.SP_InclServicos. Params[0] .AsInteger := Wpedido;
Dm.SP_InclServicos. ExecProc;
Estou recebendo mensagens de erro dizendo que esta havendo violação de
chave.
Alguem sabe porque
-Mensagem original -
De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br]Em
nome de Ricardo César Cardoso
Enviada em: quinta-feira, 28 de maio de 2009 09:04
Para: delphi...@yahoogrup os.com.br
Assunto: Re: RES: [delphi-br] Ajuda com stored procedure
Bom dia Vinícius!
Ainda estou pesquisando a respeito, mas tenta modificar essa tua SP para o
seguinte e me diz o que deu (acerto ou erro e mensagem):
{ INÍCIO COPY/PASTE }
CREATE PROCEDURE INCL_SERVICOS(
wcdEvento Integer)AS
DECLARE VARIAVLE numEvento INTEGER;
BEGIN
numEvento = wcdEvento;
INSERT INTO TBservicos(
cdestoque,
cdevento,
valorcobrado,
qtde,
datapedido,
confirmado
)
VALUES IN(
SELECT cdestoque, :numEvento, valorvenda, 100, Now, 'S'
FROM bdestoque
WHERE incluipacote = 'S'
);
END
{ FINAL COPY/PASTE }
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 qui, 28/5/09, Vinicius da Silva Pinto vinic...@cnen. gov.br
escreveu:
Valeu Ricardo, eu postei tbm no grupo Firebase, mais não obtive nenhuma
resposta.
Já pesquisei bastante, tenho muito material impresso e alguns livros sobre o
assunto.
É que em todo material que tenho, não faz referencia a incluir uma variavel
junto com um select na inclusão,
e todas as mexidas que eu dou sempre dá erro, por isso recorri a lista.
segue a procedure que estou tentando criar:
CREATE PROCEDURE INCL_SERVICOS (WcdEvento Integer) as
BEGIN
INSERT into TBservicos (CDESTOQUE, CDEVENTO, VALORCOBRADO, QTDE, DATAPEDIDO,
CONFIRMADO)
values in (select CDESTOQUE, :WcdEvento, VALORVENDA, 100, Now, 'S'
from bdestoque where INCLUIPACOTE = 'S');
Já tentei sem o IN, já tentei com a variavel entre aspas e sem o :
O programa esta rodando pois estou fazendo a inclusão na mão, até que
consiga resolver este problema.
Peço desculpa ao pessoal da lista por ter enviado duas vezes o mesmo pedido
de ajuda.
Um abraço a todos.
Veja quais são os assuntos do momento no Yahoo! +Buscados
[delphi-br] 3 camadas (servidor de aplicação) + OOP ..... ( pode usar DataSnap?)
Olá amigos, eu utilizo a programação OOP, mas sempre em sistemas client/server e gostaria de saber como aplicar esse padrão à tecnologia de 3 camadas, conheço o DataSnap e sua versatilidade com componentes dataset, mas não conheço um método de trabalhar com OOP transportando Objetos VO que sejam, em delphi, se algum dos colegas puderem me orientar em como posso utilizar essas duas tecnologias OOP e 3 camadas ( servidor de aplicação) por favor me ajudem. Será que existe uma maneira de juntar DataSnap e OOP ? Obrigado!
RES: [delphi-br] Para: Rubem (você esqueceu?)
Essa função InKey que eu codifiquei nessa dica é usei faz uns 5 ou 6 anos atrás pra implementar um ovo de páscoa em um software. Funcionou bem na época. A unit revisada ficou assim; unit uKbdTools; interface procedure ClearInputMessages; function InKey(Secs: Double): integer; overload; function InKey(MSecs: LongWord): integer; overload; implementation uses Windows, Messages; // Limpa mensagens de entrada (teclado e mouse) da fila de mensagens do Windows. // Não existe no Windows a figura do buffer de teclado procedure ClearInputMessages; var Msg: TMsg; begin while PeekMessage( Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_QS_INPUT) do ; while PeekMessage( Msg, 0, WM_MOUSEFIRST, WM_MOUSELAST, PM_REMOVE or PM_QS_INPUT) do ; end; function InKey(Secs: Double): integer; var Msg: TMsg; TickCount: DWORD; MSecs: DWORD; lResult: BOOL; begin Application.ProcessMessages; Result := 0; MSecs := Trunc(Secs * 1000); TickCount := GetTickCount(); repeat lResult := PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_QS_INPUT) until (GetTickCount() - TickCount = MSecs) or lResult; if lResult then Result := Msg.wParam; end; function InKey(MSecs: LongWord): integer; var Msg: TMsg; TickCount: DWORD; lResult: Boolean; begin Application.ProcessMessages; Result := 0; TickCount := GetTickCount(); repeat lResult := PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_QS_INPUT) until (GetTickCount() - TickCount = MSecs) or lResult; if lResult then Result := Msg.wParam; end; end. Em tempo: (1)Sobre o que vc comentou a respeito de acessar discos rígidos, o terreno é árido e muito infértil. Vc vai ter que pesquisar e muito como ter acesso a um disco rígido em baixo nível passando por cima das prerrogativas do sistema operacional. Parei de pesquisar por conta do meu tempo como desenvolvedor e analista. (2)Nos meus tempos áureos de colaboração à finada (porém, excelente) revista Micro Sistemas, desenvolvi um utilitário em Turbo Pascal 5.5/6.0/7.0 que lia a MBR de um HD e salva as informações das partições, juntamente com os parâmetros do HD lidos da memória CMOS do setup, em um arquivo binário. Era uma maneira de tentar recuperar o setor de boot do disco em caso de algum problema ocasionado por vírus. Funcionou muito bem na época. Fora algumas coisas legais que eu consegui fazer em Clipper, como por exemplo criar classes de verdade para usar no Clipper 5.x. Resumo da ópera: Eu tb já fui escovador de bits! Até programas TSR em Pascal e Assembly eu já fiz! (Mas o que é TSR? Wikipédia, amigo!) ;) Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de EmbarcaDelphi Enviada em: quarta-feira, 27 de maio de 2009 20:23 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Para: Rubem (você esqueceu?) E aí Rubem, Navegando na Net pesquisando por umas questões pouco difundidas eu me deparei com uma mensagem sua que iria retornar, a mensagem era de 2008. O link é este: http://cincobytes.net/simular-inkey-do-clipper-no-delphi/ Teve mais novidades a este respeito? Não sei em que situação poderia utilizar esta rotina, mas, acabei caindo nesse link. De vez em quando eu pego uma função da API do Windows (coisa que nunca usei e fiquei curioso) e vou navegando na internet para estudar, creio que poucas pessoas fazem isso. É pena que muitas coisas não se encontram no idioma português (meu inglês é muito fraco), mas vendo o código dá para ter uma idéia do que se trata, como não uso Banco de Dados, só busco por APIs e coisas de baixo nível. A pouco tempo atrás eu descobri como acessar uma partição EXT2 de dentro do Windows, podendo lêr ou gravar nesta partição, também na partição ReiserFS. Coisa que para muitos isso seria impossível, visto que só na linguagem C se faz., k. Estou fazendo uma proteção para meu programa e estou desenrolando, ainda falta muitos ajustes, como criar a partição EXT2. Só queria ver como criar uma partição pelo Delphi (FAT32 e EXT2), ainda estou pesquisando. Um dia acho algo. Se alguém souber alguma informação a respeito então será muito bem-vinda. Teve um colega aqui na lista que tava procurando, não sei se ele encontrou... Blz. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Servidor para Delphi
'Bom dia Rafael!' R: ..dia. 'Eu acho que um projeto que há dois anos se estimava ter 30 milhões de usuários no mundo todo não deve ser uma M... como o colega aparentemente tenta demonstrar no post.' R: Se, quantidade fosse razão então TODOS os miseráveis do mundo estariam certo em não querer melhorar de vida por estudarem e abrirem seus próprios negócios. 'Eu particularmente já tive algumas experiências ruins com o linux, mas isso não me credencia a dizer que o mesmo seja ruim. Eu apenas não me adaptei ao mesmo, o que não significa que outros colegas não o possam fazer.' R: Estou mais preocupado em ganhar dinheiro com a informática do que, com ideologias libertacionárias. 'Mas o grande problema para quem não quer mudar de ambiente é querer que, na contramão da lógica, o ambiente se adeque às suas necessidades...' R: Mas, é exatamente ISTO o que, a 'HiTech' nos promete (políticos), e, não cumpre: O SoftWare se adaptar às nossas necessidades ! E, não nós termos que, REINVENTAR a roda a cada nova 'versão' destas porcarias !!! Desde que, tive meu 1o. contato com MainFrames (década de 60) tudo o que, um Computador deve fazer é: imprimir, exibir no 'ecrã', emitir sons, etc. As funções continuam as mesmas, e, apenas o que, mudou foram: a resolução, a qualidade do som, a velocidade, as MegaCores, etc. 'Mas tenho o Ubuntu e o Kurumin rodando em máquinas virtuais em minha casa e posso afirmar que em vários aspectos, são superiores ao Windows.' R: Os nossos usuários (Money) não estão interessados SÓ (apenas) em uma pseudo 'superioridade' do LINUX ! É óbvio que, um SoftWare com código aberto, e, desenvolvido por milhares de programadores de muitas etnias irão produzir um SoftWare MUITO melhor do que, o produzido por uma diminuta 'equipezinha' da MS ! Eu prefiro a simplicidade à complicacionática linuxer com inutilitários que, eu NUNCA irei utilizar (man, info, vi, df, etc.) 'Olha, 10 listas não posso te passar até porque não participo de 10 listas relacionadas a tecnologia. Mas cito os exemplos de NDDV, Firebase-BR, Automação Total e Delphi-BR (esta lista) as quais acompanho mais ativamente e já vi bons relatos.' R: Daria então para citar o nome de 10 grandes empresas que, utilizem esta tecnologia, e que, consigam comprovar através de 'gráficos' administrativos que, elas 'economizaram' ao migrarem para o LINUX :? Sabe como é, né. O pe$$oal da ADM é que, libera a 'verba', e, eles só entendem de lucro, e, não de ideologias esquerdistas (comunismo, socialismo, etc.), pois, qual é o 'comuna' que, não visitou a EuroDisney :? Há até versões do LINUX que, são VENDIDAS pela InterNet. O tal do Lindus Estorvalds deve estar se 'revirando' em seu leito de morte. hehehe 'Porém todavia entretanto, as más experiências tanto de um lado (Windows) quanto do outro (*nix) passam por falhas dos profissionais que configuram os servidores.' R: Quanto mais complexo o SoftWare pior será a sua configuração ! 'O que mais me deixa pasmo nos relatos de más experiências com servidores Windows é que mesmo o Windows tendo vários assistêntes para diversas tarefas e deixando a configuração o mais simples possível, segundo nota-se quando se acompanha os relatos, é que as pessoas acabam sendo mais displicentes.' R: Quando Stephen Wosniak + Steve Jobs (Apple) transformaram uma das placas que, o pai de um dêles havia deixado na garagem em um MicroComputador a 'proposta' (Osborne I) era: diminuir os 'gastos' com o CPD\CI\TI ! Ou seja, eliminar o OS-670 (MainFrame + Assembler + Cobol), e, subistituir TUDO isto por algo mais simples (DR-DOS + Gary Kildall + basic) Mas, com o tempo (IBM + PC + DOS + MS + Win + OOP + ASP + IIs) injetaram TUDO de nôvo em nossos simples micros: Servidores, Analistas, Programadores, Schedullers, Operadores, Digitadores, etc. Enfiaram um CPD\CI\TI todo DENTRO de nossos simples micros. Prova disso é que, os consoles de jogos continuam imbatíveis, pois, são dedicados !! A 'proposta' dos inventores de micros foi .. soterrada. 'Configurar servidores *Nix nem sempre possui assistentes ou opções intuitivas, pelo contrário exige conhecimento dos conceitos envolvidos, manipulação em linha de comando e etc. Tudo isso dá uma margem a erros muito maior, com certeza, mas conhecendo os conceitos de configuração do servidor (a teoria) a chance de erro é muito menor.' R: Já fui instrutor de um Analista que, trabalhava no grupo Pão de Açúcar e de um engenheiro da Siemens, que, necessitavam migrar para os micros. A grande maioria dos formados em Análise (Pós + Cie. da Comp. + Adm de Sis, etc.) nem sabe o que, é um Servidor ! Como é que, eles conseguirão configurá-lo :? Repare os milhões de fóruns para esclarecer dúvidas relativas a LINUX ! Existem mais pessoas perguntando COMO se faz, do que, realmente desenvolvendo, pois, o LINUX tolhe o programador dificultando o acesso a tudo ! 'Como nos dias de hoje tempo é artigo de luxo, há quem se proponha
Re: [delphi-br] Update Via Internet
Eu utilizo de maneira parecida a do Fernando, mas tenho problemas e gostaria de aproveitar e perguntar. Eu utilizo banco de dados firebird, e ao executar o script se uma estaçao estiver usando o banco de dados ele nao fará atualização correta, teriam alguma ideia para executar o script, pensei em reininciar o servidor firebird ai funcionario mas como fazer isso via delphi??? 2009/5/28 Fernando Nati fernandon...@gmail.com Amigo, Não vou escrever os comandos, mas sim a lógica. 1 - Um programa específico de atualização é executado pelo seu sistema e este conecta em um servidor ftp. 2 - Verifica se tem alguma atualização na pasta updates. 3 - Baixa um arquivo texto que você mantém na raiz desta pasta, abre e compara a versão. 4 - Se a versão do servidor for superior que a sua, pega tanto o novo executrável, quanto um script seu .sql (que são as atualizações do banco de dados). 5 - Tanto o novo exe quanto este novo script deverão ser baixadas para uma pasta temporária no micro. 6 - programa de atualização verifica se o seu programa está rodando na lista de processos (tem muitos exemplos de como fazer isso na web) 7 - programa de atualização conecta no banco, executa o .sql. em caso de sucesso, pega o executável que está na pasta temporária e copia por cima do anterior. Obs: Esta é apenas uma forma muito simples de se fazer, existem N maneiras, com download via hhtp, via webservices, Eu particularmente faço via click-once do C#. Espero que tenha te dado uma luz. Um abraço. 2009/5/28 Adauri Antonio Camacho Junior adauri...@yahoo.com.bradauri_jr%40yahoo.com.br Bom dia a todos. Eu gostaria que meus clientes fizessem o update do sistema via Internet, mais ou menos, algo parecido com o anti virus, porem tenho alguma duvidas: 1 ) Como ter certeza que ninguem estara usando o sistema na hora do update. 2 ) Como atualizar o banco de dados ?? Jr. [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Samuel M. Basso Tel: (54) 3463-9114 Cel: (54) 8135-3723 E-mail: samuelba...@gmail.com Web site: www.samuelbasso.com MSN: samuelba...@gmail.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Gerar Parcelas de um Contrato
Para fazer nesse esquema de datainicial e data final por adendos seria, mas ou menos assim, a estruta das tabelas? tbcontratos id_contrato - Pk (restantes dos campos) tbadendos id_adendo - pk id_contrato - fk datainicial datafinal meses valoraluguel tbparcelas id_parcela - pk id_adendo - fk (restantes dos campos) e como no meu sistema terei pra cada parcela vários lançamentos de débitos e créditos, teria que ter mais uma tabela detalhe de: tbparcelas_item id_Item - pk id_parcela - fk (restante dos campos) Então, seria essa a forma certa de fazer os relacionamentos? a Tabela Contratos seria a Tabela Master, a tabela adendos detalhe da tabela contratos, a tabela parcela detalhe da tabela adendos e a tabela parcela item detalhe da tabela parcelas.
[delphi-br] Dúvida com Debug (Trace into - F7)
Pessoal, como é que faço para Debugar o código apenas na unit principal? Selecionei nas opções do Projeto: - Debug information; - Local symbols - Reference info - Assertions Coloquei o BreakPoint numa procedure, Run (F9). Quando chega no breakpoint ele para, pressiono a tecla F7 (Trace into), linha-a-linha vai me mostrando os passos, até aí tudo ok, mas, queria que, quando o compilador fosse para outras unit ele não fosse passo-a-passo. Tenho muitas units e o processo até terminar leva mais de hora, não compensa esperar tanto para encontrar o erro, e se tiver de repetir então, é um saco! As units não há problemas, o negócio é só no meu FormPrincipal (não tenho outros forms), as units é que não queria ver. Grato.
RES: [delphi-br] Re: Validar Celula de uma String Grid
Experimente o evento OnSetEditText. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de dhsb Enviada em: quinta-feira, 28 de maio de 2009 12:48 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Validar Celula de uma String Grid Ate pensei isso, mas em qual evento colocar estes testes? Aguardo... --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Wilson, Stephen stephen.wil...@... escreveu Talvez voce poderia utilizar as funções de strtodate e strtoint dentro de try .. except blocos. Se existe uma excepção, o valor não é uma data / número com desculpas pelo meu Português, espero ter ajudado. Steve -Original Message- From: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ]On Behalf Of dhsb Sent: 28 May 2009 13:27 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: [delphi-br] Validar Celula de uma String Grid Pessoal como posso validar o texto ao sair da celula de um string grid? Exemplo verificar se a celula e um numero ou uma data... Valeu! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] GetPropValue retornar conteúdo do tipo TMemoryStrea m
Olá pessoal. Não sei se é possível, mas vamos lá... Tenho uma classe principal: TMinhaClasse, que tem algumas propertys básicas. Eu crio outra classe TMinhaClasseHerdada = class(TMinhaClasse) e acrescento mais algumas propertys... Implementei uma função usando RTTI que lê qualquer tipo de objeto herdado de TMinhaClasse e mostra suas propriedades e respectivos valores. Só que estou tendo problema quando a property é do tipo TMemoryStream, pois utilizo a function GetPropValue, que me retorna uma Variant, e os dados contidos nessa property, que seria um monte de binários, me retorna alguns números apenas. Será que tem outro jeito de fazer isso? Alguem sabe como ler uma propriedade genericamente, sem saber previamente qual o seu tipo, e se for do tipo TMemoryStream ou TStream, que retorne o seu conteúdo corretamente? Grato, Edelson. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Informações de versão em proje to RAD Studio 2007
Pois é, em dot net não tem essa opção. Ela só aparece em projetos win32. Graça --- Em qui, 28/5/09, Daniel Augusto Bastos danbas...@gmail.com escreveu: De: Daniel Augusto Bastos danbas...@gmail.com Assunto: Re: [delphi-br] Informações de versão em projeto RAD Studio 2007 Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 28 de Maio de 2009, 14:41 Em win32: Project - Options - Version Info Marque o checkbox e seja feliz :) em .net sei não .. só tenho a versão win32, mas deve ser a mesma coisa. Abs Daniel Augusto Bastos 2009/5/26 dangra2008 dangra2...@yahoo. com.br Como faço para digitar as informações do aplicativo (versão, nome, nome interno, etc) feito em RAD Studio 2007 (dot net), da mesma forma como posso editar as informações em um projeto Win 32? Graça - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [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] Servidor para Delphi
Minha nossa, você é o típico cara que não conhece nada de linux e sai falando besteira. cara, vai fazer um curso vai conhecer o sistema operacional e ai sim, tirar suas conclusões.. eu ja implantei redes com servidor linux e estações windows/linux e tudo funciona muito bem. procura conhecer melhor o SO antes de tirar suas conclusões baseadas na sua pouca experiência com ele. pra você Servidor UNIX também deve ser uma porcaria né 2009/5/27 Rafael Augusto Ferrereira arca...@yahoo.com.br 'sinceramente, mas o seu ponto de vista sobre profissionais Linux é complicado e polêmico.' R: Concordo plenamente. Mas, eu tenho meus motivos. 'Se todos os profissionais de TI usarem o mesmo conselho para fugir de profissionais Linux, estes profissionais acabam cada vez mais raros e por conseqüência, mais caros. Um dos pilares do sucesso atual do Windows é justamente o inverso dessa prática; ao invés do fuja do..., usaram o venha ' R: Pois é. Mas, eu prefiro continuar .. fugindo. hehehe 'Em algumas listas vejo o pessoal se dizendo satisfeito de servidores Linux.' R: Diga-me umas 10 dessas listas, por favor. É sempre bom estar preparado para dar manutenção em software livre. 'Eu também já montei um servidor para uso domestico com Linux RedHat (faz tempo pra caramba) e não achei nada difícil.' R: Logo que, o LINUX apareceu eu adquiri algumas versões pagas, e, realmente as antigas funcionavam muito bem. Mas, com o tempo as versões posteriores 'tolheram' o desenvolvimento de aplicações por parte de nós programadores. Criaram até 'repositórios' para baixar bibliotecas e atualizações, mas, NADA disso funciona ! Já experimentei umas 30 versões diferentes de LINUX, desde, as 'one disk LINUX' até as versões com 3 cd's num DVD só, como a Mandriva (Conectiva + Mandrake). Infelizmente, o LINUX reconhece as estações Windows e suas pastas compartilhadas, mas, NEM se comunica com as próprias estações onde roda apenas LINUX ! Um absurdo !!! É como se o pessoal tivesse se acostumado\acomodado em ocupar um 2o. lugar, deixando o 1o. para as estações Windows. Lamentável !!! No Conectiva 2 eu usava o FreePascal, e, até trocava aquivos pela minha rede com o Kurumim !! Mas, depois que, o Conectiva (3-Guarani, 4-Nasm, 5-Black, 6-Blue, e 8) foi engolido pela Mandrake LINUX (Mandriva), e, o o Kurumim foi substituído pelo Ubuntu, tudo falhou. Parti então para os NoteBooks da Dell que, já vem com o FreeDOS instalado. Tudo funciona: Fox2.6, dB3+, Clipper Summer 87, etc. 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] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Servidor para Delphi
'normalmente esse povo que fala essas coisas é pq a primeira experiência com linux foi talvez desastrosa, e acha que pq tudo aquilo que passou na primeira vez n serve para ngm.' R: Mais de 5 anos 'penando' com LINUX não são só uma 'primeira experiência' ! 'TEmos noassa aplicação em servidor linux e windows e vou te contar que os usuários, quando posto o servidor em linux, falam a seguinte frase, 'Nossa que rápido que ta fazendo as coisas no sistema' .' R: A rapidez depende mais das MÁQUINAS (memória, clock, InterNet 2, Banda Larga) do que, dos sistemas utilizados ! Imagino que, esses 'usuários' sejam uns experts para distinguir quando estão acessando o LINUX, e, quando estão acessando o Windows ! Se, o LINUX fosse tão BOM assim, pq usam TAMBÉM o Windows :? É pq se der 'pau' no LINUX vcs irão apelar para o fácil Windows até encontrarem algum expert em LINUX que, o possa consertar ! Se, o LINUX é tão 'maravilhoso', então, joguem foram o Windows, e, fiquem APENAS com o LINUX ! 'Portanto acho que este consultor, professor ou sei lá oque era, deverá olhar com mais cuidado para este sistema operacional,' R: Ele possui uma empresa que, desenvolve sites, e, possui uma espécie de hipercoletador de 'garbages', ou, informações mundiais online sobre o uso do LINUX, Windows, Mac, etc. São pouquíssimas as empresas pelo mundo que, utilizam-se do LINUX.Até o Mac bate o LINUX nos USA. E, ele prova isso online com esse sistema de estatísticas de utilização de sistemas ao redor do mundo. Que, eu saiba Aeroportos, Portos, Bancos, Sistema Financeiro, Bolsas de Valores, e, todas as demais aplicações sérias NÃO utilizam nem o LINUX, e, nem o Windows. Utilizam o bom, velho, e, confiável Unix !! O pessoal do LINUX quis pegar carona na boa 'fama' do Unix, mas, LINUX nunca têve, nem nunca terá nada a ver com o Unix ! Já desenvolvi sob Unix (Xênix) da MS, e, é tudo muito mais fácil, prático e confiável do que, o LINUX ! 'Não sei porque se mete tanto pau no Linux, eu uso e já fazem 3 anos que não formatei minha maquina. Trabalho com o Delphi dentro do VMware pois faço desenvolvimento de sistemas e é o meu ganha pão. Quando é algo para o Linux eu uso o Lazarus.' R: Observe o nome do Delphi sob LINUX: Kylix. Parece que, o inventor do nome quis dizer QueLixo (KiLixu), hehehe ! E, Lázarus :? Na Bíblia o 'mendigo' Lázaro tinha suas feridas lambidas por cães, hehehe ! Que, coisa mais nojenta ! Argh ! Gozado é que, o LINUX necessita do vmware para rodar aplicações Delphi sob LINUX. Ora, pq não se usa diretamente o Kylix\Lázarus\FreePascal para se desenvolver :? Pq se precisa ainda 'simular' o Windows dentro do LINUX :? 'Servidor usando Linux não existe melhor!' R: Pode ser que, sim. Mas, o ponto em questão é a abertura de uma SoftWareHouse para odesenvolvimento\manutenção !! O ideal é possuir os 2 mundos (Windows e LINUX), e, atender aos clientes conforme eles preferirem. Eu, prefiro o Windows. Alguns poucos 'gatos pingados' irão querer arriscar no LINUX. Questão de gosto eu não discuto, hehehe ! 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] Delphi e os índices
Rafael, ta tudo meio confuso... se você quer usar os componentes nativos do Delphi para acessar seus dados então você terá que abandonar DBF e usar algum SGDB como FireBird ou outro que o Delphi conecte nativamente.. algumas considerações: R: Então, eu não vou usar índices .ndx\.ntx, e, vou carregar todas as bases de dados .dbf para o Delphi !! ::Você não carrega .dbf para o Delphi.. ou você acessa os DBF Pelo Delphi ou migra de DBF para um Servidor SQL e também acessa pelo Delphi.. R: O vkdbf já é próprio do Delphi :? ::Se fosse você já teria visto por ai.. R: Não, nem pensar ! Eu quero me livrar do Clipper Summer 87 (.ntx), e, do dB3+ (.dbf) SIM !! Eu os uso sob FreeDOS, mas, o sistema ainda está muito deficiente. :: Se eu entendi bem, seu software é em clipper e as estações usam o FreeDos.. se for isso mesmo você tem uma longa jornada.. instalar o Windows nas máquinas, reescrever seus sistemas em Delphi e migrar os dados. ha quanto tempo você já usa Delphi? ou ta começando agora? 2009/5/27 Rafael Augusto Ferrereira arca...@yahoo.com.br '..mas pra usar DBF e indice NTX não tem jeito não, tem que usar componentes de terceiros...' R: Então, eu não vou usar índices .ndx\.ntx, e, vou carregar todas as bases de dados .dbf para o Delphi !! 'VKDBF é uma boa opção,' R: O vkdbf já é próprio do Delphi :? 'agora se você não pode abrir mão do dbase e quer algo poderoso parta para o Apollo Database.' R: Não, nem pensar ! Eu quero me livrar do Clipper Summer 87 (.ntx), e, do dB3+ (.dbf) SIM !! Eu os uso sob FreeDOS, mas, o sistema ainda está muito deficiente. 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] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Arquivo .ini na pasta
Bom dia eu uso isso ai numa aplicação que roda no meu pen drive, vou pegar as pas e te mandar pra vc ver como vai ficar, gostei muito de como ficou, a tarde te mando ok. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eduardo Silva dos Santos Enviada em: quarta-feira, 27 de maio de 2009 21:06 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Arquivo .ini na pasta O Andrei já te falou qual função usar.. se dê ao trabalho de buscar no help 2009/5/27 Ricardo Rocha ricardo_r...@yahoo.com.br mailto:ricardo_rmsr%40yahoo.com.br Olá Andrei Luís, muito obrigado pela atenção. Você poderia me mandar um exemplo de como ficaria esse código? Desde já agradeço Ricardo Messias da Silva Rocha Ciência da Computação - 2009 - De: Andrei Luís compuvale.softw...@gmail.com mailto:compuvale.software%40gmail.com compuvale.software%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Quarta-feira, 27 de Maio de 2009 8:12:17 Assunto: Re: [delphi-br] Arquivo .ini na pasta Ricardo, use ExtractFilePath para pegar o caminho onde o seu executável está e adicione a pasta config. [] Andrei 2009/5/27 ricardo_rmsr ricardo_rmsr@ yahoo.com. br Olá pessoalu, não esto conseguindo configurar meu aquivo .ini para executar a aplicação em qualquer lugar que ela esteja. Tipo tenho a pasta 'Projeto' onde as pastas 'codigo', 'dcu', 'database' e 'config', dai eu queria que o arquivo 'Config_Banco' ficasse dentro da pasta 'config', mas sem indicar o diretorio que é 'f:\Projeto\ config', para que eu possa executar a minha aplicação em outro computador sem da erro. O jeito que estou fazendo e está dando erro é assim: Exemplo: iniconfi := TIniFile.create( 'f:\Projeto\ config\Config_ Banco.ini' ) Sendo desta maneira quando executa a aplicação em um diretório diferente de 'f:\', da um erro. Obrigado, Ricardo Rocha [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] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com mailto:eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.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] Validar Celula de uma String Grid
Desculpe o palavreado, mas que validação encardida vc quer fazer num StringGrid, não?!?!? Já precisei fazer uma validação mais simples, restringindo apenas à texto e tomei como base a dica daqui [1]. Num DBGrid essa validação seria mais simples, pois é feita em cima do evento OnValidate do DataSource ligado ao DBGrid. Veja se isso realmente serve de base. [1] - http://www.activedelphi.com.br/forum/viewtopic.php?p=14135sid=fbc8bfc0420d1c977c1c1fc647637337 []'s 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 qui, 28/5/09, dhsb diona...@prosisinformatica.com.br escreveu: Pessoal como posso validar o texto ao sair da celula de um string grid? Exemplo verificar se a celula e um numero ou uma data... Valeu! 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] Servidor para Delphi
Só complementando teus comentários: - Uso Linux no meu Servidor a mais de 12 anos. Nunca tive um unico problema que não fosse rapidamente solucionado e em 99,8% dos casos de forma remota (putty ou outra ferramenta semelhante). A duas unicas vezes que necessitei da presença do técnico foi na INSTALAÇÃO INICIAL e quando ocorreu a QUEIMA DO PROCESSADOR (Hardaware). Atualmente utilizo CentOS 5 rodando num hardware ridiculo (P4 1.5, 512 RAM). ps.: Nunca ocorreu perda de dados. - Tenho DIVERSOS clientes utilizando servidores DELL com LINUX, e extremamente satisfeitos. Sucesso !! Moacir Ricardo César Cardoso escreveu: Amigo... sinceramente, mas o seu ponto de vista sobre profissionais Linux é complicado e polêmico. Se todos os profissionais de TI usarem o mesmo conselho para fugir de profissionais Linux, estes profissionais acabam cada vez mais raros e por conseqüência, mais caros. Um dos pilares do sucesso atual do Windows é justamente o inverso dessa prática; ao invés do fuja do..., usaram o venha Em algumas listas vejo o pessoal se dizendo satisfeito de servidores Linux. Eu também já montei um servidor para uso domestico com Linux RedHat (faz tempo pra caramba) e não achei nada difícil. E olha que eu tinha bastante hardware xing-ling pendurado no servidor e nas estações. 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 qua, 27/5/09, Rafael Augusto Ferrereira arca...@yahoo.com.br escreveu: De: Rafael Augusto Ferrereira arca...@yahoo.com.br Assunto: Re: [delphi-br] Servidor para Delphi Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 27 de Maio de 2009, 12:32 José, Tentarei responder algumas questões, pois, já trabalhei como autônomo. 'Bom dia,' R: .. dia. 'Atualmente trabalho sozinho' R: O S.O.H.O. (Small Office Home Office) é uma tendência mundial já há algumas décadas. 'Gostaria de sugestões para aquisição de um servidor(equipament o) que esteja bem dimensionado para minha realidade' R: De quanto capital vc dispõe de imediato para implantar esta estrutura ? Quanto capital por mês vc poderá dispor para manter esta estrutura ? 'sistema operacional( Windows ou Linux)' R: Fuja do LINUX. Não existe uma revenda no mundo que, te forneça suporte à máquinas\programas servidores usando o LINUX ! Já o Windows vc encontra suporte em TODAS as revendas de Soft\Hard !! 'Ninguém usa o LINUX' foi o que, disse meu instrutor que, tb é empresário !!! 'e software para controle de versões(svn ou similar) que funcione bem para desenvolvimento em uma softwarehouse com vários programadores utilizando o mesmo programa ao mesmo tempo.' R: Já trabalhei assim, e, era muito legal. Nós, programadores, desenvolvíamos 'trechos' de programas, e, os Analistas 'costuravam' esses 'trechos' de programas nos Sistemas principais da Empresa. 'Na verdade não tenho muito conhecimento nisto, pois como disse anteriormente, trabalho sozinho.' R: Então, para começar sem arriscar um enorme capital em tempos de crise, pq, vc não procura uma SoftWareHouse, e, terceiriza o desenvolvimento do teu Sistema ? 'É possível ter um servidor linux?' R: Não recomendo ! Os profissionais LINUX são raros, e, caríssimos, pois, geralmente eles já têm até mesmo sua própria empresa devido à dificuldade de se configurar o sistema. Por exemplo, o 'governo' usa aqui em Sampa o LINUX Jaguatirica em programas sociais voltados à 3a. idade. Eles 'fuçaram' o Kernel do LINUX, e, o 'travaram' só para eles ! Mas, o 'governo' pode ! Os custos envolvidos na alteração\recompilaçã o do LINUX são absurdos para nós empresários da iniciativa privada. É preferível pagar um Windows\Delphi por cada máquina, pois, vale mais a pena !! Hoje em dia, graças a Deus, as máquinas já vem com uma versão atualizada do Windows quando se compra um micro qualquer. Daí, é só 'radiografar' o HD por segurança. Assim, se o 'sistema' cair, é, só recopiar a 'imagem' radiografada do sistema para o HD !! 'Grato' R: .. nada. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [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] Servidor para Delphi
R: Fuja do LINUX. Não existe uma revenda no mundo que, te forneça suporte à máquinas\programas servidores usando o LINUX ! Já o Windows vc encontra suporte em TODAS as revendas de Soft\Hard !! 'Ninguém usa o LINUX' foi o que, disse meu instrutor que, tb é empresário !!! Antes de eu vir pra Telemont, eu trabalhava em uma empresa que usavamos como servidor de Internet o Linux Mandrake. numa maquina Pentium 166 lá de 32MB de Ram. Funcionou lá durante 2 anos, não fedeu, não cheirou, não incomodava. Internet tava lá ao bel prazer sem lentidão ou sem cair. Esse servidor chegou ao ponto dó pessoal da rede até esquecer que tinha ele lá. Tanto foi que no trabalho de faculdade que fiz de proposta de implantação de um projeto de rede numa empresa, optei pelo servidor de Internet e de e-mail como o Linux. Quanto a encontrar suporte nas revendas, o problema é voce, nas revendas, encontrar um profissional que saiba realmente configurar um servidor de forma descente. Porque, de profissionais que fazem merda com montagem/configurações de rede, o mercado tá abarrotadésimo. R: Já trabalhei assim, e, era muito legal. Nós, programadores, desenvolvíamos 'trechos' de programas, e, os Analistas 'costuravam' esses 'trechos' de programas nos Sistemas principais da Empresa. Ao meu entender, ele perguntou uma coisa e voce respondeu outra. Ele perguntou sobre um software que faça controle de versões de fonte e não de algum remendador de fontes do tipo cata daqui, cata dalí pra montar algo que se diz ser um programa... R: Não recomendo ! Os profissionais LINUX são raros, e, caríssimos, pois, geralmente eles já têm até mesmo sua própria empresa devido à dificuldade de se configurar o sistema. Por exemplo, o 'governo' usa aqui em Sampa o LINUX Jaguatirica em programas sociais voltados à 3a. idade. Eles 'fuçaram' o Kernel do LINUX, e, o 'travaram' só para eles ! Mas, o 'governo' pode ! Os custos envolvidos na alteração\recompilação do LINUX são absurdos para nós empresários da iniciativa privada. É preferível pagar um Windows\Delphi por cada máquina, pois, vale mais a pena !! Hoje em dia, graças a Deus, as máquinas já vem com uma versão atualizada do Windows quando se compra um micro qualquer. Daí, é só 'radiografar' o HD por segurança. Assim, se o 'sistema' cair, é, só recopiar a 'imagem' radiografada do sistema para o HD !! Profissionais Linux são caros mesmo dada a complexidade da configuração do sistema operacional. Não é qualquer um que consegue mexer e arrumar ele e, eu particularmente, até prefiro pagar estes profissionais careiros mas que deixem meu servidor o fino da bola, do que entregar minha rede na mao do chegado do amigo do vizinho que é bão toda vida de computador: Vai lá, faz, caga e não assume nada depois. E como eu já disse e torno a reprisar: profissionais que fazem merda com montagem/configurações de rede, o mercado tá abarrotadésimo. E eu vou te falar um negocio viu. Essa parada de espelhar HD daqui pra por alí ou mesmo pra depois restaurar o proprio HD corrompido na mesma maquina, eu tenho até pavor de ouvir um negocio desses []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] tabelas postgre
Olá pessoal Estou me aventurando no mundo do postgre. Alguém pode me dizer como transferir para outro computador as tabelas que criei no postgre? Grato
Re: [delphi-br] Re: Gerar Parcelas de um Contrato
Vandeir, sua idéia é bem bacana. A minha idéia é o seguinte: Tabelas: - Contratos id_contrato pk - Adendos id_adendo pk id_contrato fk data_incial data_final - Financeiro id_financeiro pk id_adendo fk valor recdesp (1 receita e -1 despesa) Conseguiu entender a idéia? 2009/5/28 vandeirr vande...@yahoo.com.br Para fazer nesse esquema de datainicial e data final por adendos seria, mas ou menos assim, a estruta das tabelas? tbcontratos id_contrato - Pk (restantes dos campos) tbadendos id_adendo - pk id_contrato - fk datainicial datafinal meses valoraluguel tbparcelas id_parcela - pk id_adendo - fk (restantes dos campos) e como no meu sistema terei pra cada parcela vários lançamentos de débitos e créditos, teria que ter mais uma tabela detalhe de: tbparcelas_item id_Item - pk id_parcela - fk (restante dos campos) Então, seria essa a forma certa de fazer os relacionamentos? a Tabela Contratos seria a Tabela Master, a tabela adendos detalhe da tabela contratos, a tabela parcela detalhe da tabela adendos e a tabela parcela item detalhe da tabela parcelas. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Projeto ACBrNFe. Por onde começar?
Gostaria de conhecer o projeto ACBrNFe, mas tenho algumas dúvidas: 1. Onde fazer o download? 2. Como fazer as atualizações? 3. Como reportar bugs e sugestões? Existe uma lista de discussão exclusiva do ACBr? 4. Ele funciona em Delphi 7 e Rad Studio 2007? 5. Quais as funções disponibilizadas? a-gerar xml (para isso tenho que gerar que tipo de arquivo: txt, ini) b-validar xml c-enviar NFe d-integração com o ERP e-SCAN f-cancelamento g-inutilização 6. Alguem já está utilizando ele em ambiente de Produção? 7. Tem muitos bugs ou já está estável? 8. Vem com os fontes completos? Graça
Res: [delphi-br] Projeto ACBrNFe. Por onde co meçar?
Grupo Yahoo Dúvidas : http://br.groups.yahoo.com/group/projeto_cooperar_nfe/ 1 - FONTES Primeiramente precisamos baixar os fontes dos dois projetos: 1.1 PCN Utilize o tortoiseSVN e obtenha do endereço: http://projetocooperar.googlecode.com/svn/trunk/ E se tiver alguma duvido sobre o SVN http://code.google.com/p/projetocooperar/wiki/UsarTortoiseSVN 1.2 ACBrNFe Para baixar o ACBr via SVN, veja o seguinte link: http://acbr.sourceforge.net/drupal/?q=node/37 2 – GERAR O ARQUIVO XML USANDO O PCN Dentro do projeto PCN – temos o arquivo pcpModeloNfe.pas, o qual tem um exemplo de como gerar o arquivo XML. Seguindo o pcpModeloNFe incorpore a seu sistema para que o mesmo possa gerar o XML com os dados da Nota Fiscal. 3 – INSTALANDO O COMPONENTE PARA ASSINATURA DIGITAL Baseado em http://acbr.sourceforge.net/drupal/?q=node/36 O componente ACBrNFe é um projeto para gerar, validar, transmitir, receber as respostas e imprimir o DANFE. O componente, possui duas versões - ACBr_NFe_CAPICOM e ACBr_NFe_OpenSSL. As principais diferenças entre as versões são: ACBr_NFe_CAPICOM - Usa as DLLs da Microsfot CAPICOM (conexão segura) e MSXML (Assinatura e validação do XML) - Apenas funciona no Delphi e Windows. Funciona com certificados do tipo A1 e A3. Com a CAPICOM ele usa o proxy configurado no Internet Explorer. ACBr_NFe_OpenSSL - Usa Projetos OpenSource: Synapse+OpenSSL (conexão segura) e LibXml2 + XmlSEC (Assinatura e validação do XML) - Será compatível com Lazarus, Kylix e com Linux. Funciona apenas com certificados do tipo A1. Possui uma configuração de Proxy própria. Se vc pretende desenvolver apenas para Windows e não pretende usar o Lazarus, de preferência a versão CAPICOM. 4 – MONITOR ACBrNFeMonitor Comandos: http://acbr.sourceforge.net/drupal/?q=node/40 A versão compilada do ACBrNFeMonitor vc encontra em : http://djsystem.sytes.net/ccount/click.php?id=5 Rodrigo ®¿® De: dangra2008 dangra2...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 28 de Maio de 2009 17:06:33 Assunto: [delphi-br] Projeto ACBrNFe. Por onde começar? Gostaria de conhecer o projeto ACBrNFe, mas tenho algumas dúvidas: 1. Onde fazer o download? 2. Como fazer as atualizações? 3. Como reportar bugs e sugestões? Existe uma lista de discussão exclusiva do ACBr? 4. Ele funciona em Delphi 7 e Rad Studio 2007? 5. Quais as funções disponibilizadas? a-gerar xml (para isso tenho que gerar que tipo de arquivo: txt, ini) b-validar xml c-enviar NFe d-integração com o ERP e-SCAN f-cancelamento g-inutilização 6. Alguem já está utilizando ele em ambiente de Produção? 7. Tem muitos bugs ou já está estável? 8. Vem com os fontes completos? Graça 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] [DICA] Layouts FEBRABAN
http://www.febraban.org.br/acervo.asp?id_pagina=173 http://www.febraban.org.br/acervo.asp?id_pagina=173id_paginaDe=78 id_paginaDe=78 Se alguém puder baixar os arquivos e postar na área de arquivos, seria interessante! Rubem Nascimento da Rocha Analista/Desenvolvedor Pleno Digital Training - Seção de CA ( Fone: (92)2101-0100, ramal 125 ÈCelular: (92)8429-2865 * E-Mail: rubem.ro...@dtmanaus.com.br þ Site: http://www.dtmanaus.com.br http://www.dtmanaus.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] tabelas postgre
Faça um backup/restore e pronto ! Ou então pegue as DDL's da tabelas que vc quer, e rode em outra máquina. asandro1501 escreveu: Olá pessoal Estou me aventurando no mundo do postgre. Alguém pode me dizer como transferir para outro computador as tabelas que criei no postgre? Grato -- Vinicius A. Santos www.msisolucoes.com.br
[delphi-br] DUVIDAS COM CAMPOS CALCULADOS
Pessoal tenho a seguinte duvida, tenho uma tabela (tabromaneio) e a tabela detalhe (tabromaneiodetalhe) ligadas pelo campo ID e ID_TABROMANEIO respectivamente, na detalhe tenho os produtos e na tabela pai tenho o campo valor total que é a soma dos produtos daquele pedido, preciso somar isso e jogar para este campo, bom no SQL (uso firebird a três anos)eu consigo fazer a soma tranqüilo o problema ta sendo dentro do Delphi jogar o resultado da soma para o campo desejado pois é a soma de uma tabela tem que ser jogada (dar um update) para a outra tabela e quando eu clicar no botão salvar ele salvar este valor na tabela pai, o que não to conseguindo é como fazer isso no Delphi, desculpem ai pessoal que é pouca pratica mesmo, já fucei na net mas não achei nenhum material parecido, e quando acho é com dbf(piradox) ai não da o conceito é outro. Atenciosamente Ruberval Obs. Uso Delphi2007, firebird 2.0, dbx e interbase para acesso ao banco. [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Servidor para Delphi
dexa o cara ficar com windows gente, daqui um tempo o servidor de bd dele vai pro pau e ele n sabe mais oque fazer. Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com De: Eduardo Silva dos Santos eduardo@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 28 de Maio de 2009 8:33:02 Assunto: Re: [delphi-br] Servidor para Delphi Minha nossa, você é o típico cara que não conhece nada de linux e sai falando besteira. cara, vai fazer um curso vai conhecer o sistema operacional e ai sim, tirar suas conclusões.. eu ja implantei redes com servidor linux e estações windows/linux e tudo funciona muito bem. procura conhecer melhor o SO antes de tirar suas conclusões baseadas na sua pouca experiência com ele. pra você Servidor UNIX também deve ser uma porcaria né 2009/5/27 Rafael Augusto Ferrereira arca...@yahoo. com.br 'sinceramente, mas o seu ponto de vista sobre profissionais Linux é complicado e polêmico.' R: Concordo plenamente. Mas, eu tenho meus motivos. 'Se todos os profissionais de TI usarem o mesmo conselho para fugir de profissionais Linux, estes profissionais acabam cada vez mais raros e por conseqüência, mais caros. Um dos pilares do sucesso atual do Windows é justamente o inverso dessa prática; ao invés do fuja do..., usaram o venha ' R: Pois é. Mas, eu prefiro continuar .. fugindo. hehehe 'Em algumas listas vejo o pessoal se dizendo satisfeito de servidores Linux.' R: Diga-me umas 10 dessas listas, por favor. É sempre bom estar preparado para dar manutenção em software livre. 'Eu também já montei um servidor para uso domestico com Linux RedHat (faz tempo pra caramba) e não achei nada difícil.' R: Logo que, o LINUX apareceu eu adquiri algumas versões pagas, e, realmente as antigas funcionavam muito bem. Mas, com o tempo as versões posteriores 'tolheram' o desenvolvimento de aplicações por parte de nós programadores. Criaram até 'repositórios' para baixar bibliotecas e atualizações, mas, NADA disso funciona ! Já experimentei umas 30 versões diferentes de LINUX, desde, as 'one disk LINUX' até as versões com 3 cd's num DVD só, como a Mandriva (Conectiva + Mandrake). Infelizmente, o LINUX reconhece as estações Windows e suas pastas compartilhadas, mas, NEM se comunica com as próprias estações onde roda apenas LINUX ! Um absurdo !!! É como se o pessoal tivesse se acostumado\acomodad o em ocupar um 2o. lugar, deixando o 1o. para as estações Windows. Lamentável !!! No Conectiva 2 eu usava o FreePascal, e, até trocava aquivos pela minha rede com o Kurumim !! Mas, depois que, o Conectiva (3-Guarani, 4-Nasm, 5-Black, 6-Blue, e 8) foi engolido pela Mandrake LINUX (Mandriva), e, o o Kurumim foi substituído pelo Ubuntu, tudo falhou. Parti então para os NoteBooks da Dell que, já vem com o FreeDOS instalado. Tudo funciona: Fox2.6, dB3+, Clipper Summer 87, etc. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] -- . . . . ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo.drd@ gmail.com Site: http://www.drdsiste mas.com.br/ . . . . ... [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]
Res: [delphi-br] Servidor para Delphi
eu tbm uso centos em 4 servidores e nada de problemas Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com De: Moacir - GMail prism...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 28 de Maio de 2009 12:08:44 Assunto: Re: [delphi-br] Servidor para Delphi Só complementando teus comentários: - Uso Linux no meu Servidor a mais de 12 anos. Nunca tive um unico problema que não fosse rapidamente solucionado e em 99,8% dos casos de forma remota (putty ou outra ferramenta semelhante). A duas unicas vezes que necessitei da presença do técnico foi na INSTALAÇÃO INICIAL e quando ocorreu a QUEIMA DO PROCESSADOR (Hardaware). Atualmente utilizo CentOS 5 rodando num hardware ridiculo (P4 1.5, 512 RAM). ps.: Nunca ocorreu perda de dados. - Tenho DIVERSOS clientes utilizando servidores DELL com LINUX, e extremamente satisfeitos. Sucesso !! Moacir Ricardo César Cardoso escreveu: Amigo... sinceramente, mas o seu ponto de vista sobre profissionais Linux é complicado e polêmico. Se todos os profissionais de TI usarem o mesmo conselho para fugir de profissionais Linux, estes profissionais acabam cada vez mais raros e por conseqüência, mais caros. Um dos pilares do sucesso atual do Windows é justamente o inverso dessa prática; ao invés do fuja do..., usaram o venha Em algumas listas vejo o pessoal se dizendo satisfeito de servidores Linux. Eu também já montei um servidor para uso domestico com Linux RedHat (faz tempo pra caramba) e não achei nada difícil. E olha que eu tinha bastante hardware xing-ling pendurado no servidor e nas estações. 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 qua, 27/5/09, Rafael Augusto Ferrereira arca...@yahoo. com.br escreveu: De: Rafael Augusto Ferrereira arca...@yahoo. com.br Assunto: Re: [delphi-br] Servidor para Delphi Para: delphi...@yahoogrup os.com.br Data: Quarta-feira, 27 de Maio de 2009, 12:32 José, Tentarei responder algumas questões, pois, já trabalhei como autônomo. 'Bom dia,' R: .. dia. 'Atualmente trabalho sozinho' R: O S.O.H.O. (Small Office Home Office) é uma tendência mundial já há algumas décadas. 'Gostaria de sugestões para aquisição de um servidor(equipament o) que esteja bem dimensionado para minha realidade' R: De quanto capital vc dispõe de imediato para implantar esta estrutura ? Quanto capital por mês vc poderá dispor para manter esta estrutura ? 'sistema operacional( Windows ou Linux)' R: Fuja do LINUX. Não existe uma revenda no mundo que, te forneça suporte à máquinas\programas servidores usando o LINUX ! Já o Windows vc encontra suporte em TODAS as revendas de Soft\Hard !! 'Ninguém usa o LINUX' foi o que, disse meu instrutor que, tb é empresário !!! 'e software para controle de versões(svn ou similar) que funcione bem para desenvolvimento em uma softwarehouse com vários programadores utilizando o mesmo programa ao mesmo tempo.' R: Já trabalhei assim, e, era muito legal. Nós, programadores, desenvolvíamos 'trechos' de programas, e, os Analistas 'costuravam' esses 'trechos' de programas nos Sistemas principais da Empresa. 'Na verdade não tenho muito conhecimento nisto, pois como disse anteriormente, trabalho sozinho.' R: Então, para começar sem arriscar um enorme capital em tempos de crise, pq, vc não procura uma SoftWareHouse, e, terceiriza o desenvolvimento do teu Sistema ? 'É possível ter um servidor linux?' R: Não recomendo ! Os profissionais LINUX são raros, e, caríssimos, pois, geralmente eles já têm até mesmo sua própria empresa devido à dificuldade de se configurar o sistema. Por exemplo, o 'governo' usa aqui em Sampa o LINUX Jaguatirica em programas sociais voltados à 3a. idade. Eles 'fuçaram' o Kernel do LINUX, e, o 'travaram' só para eles ! Mas, o 'governo' pode ! Os custos envolvidos na alteração\recompilaçã o do LINUX são absurdos para nós empresários da iniciativa privada. É preferível pagar um Windows\Delphi por cada máquina, pois, vale mais a pena !! Hoje em dia, graças a Deus, as máquinas já vem com uma versão atualizada do Windows quando se compra um micro qualquer. Daí, é só 'radiografar' o HD por segurança. Assim, se o 'sistema' cair, é, só recopiar a 'imagem' radiografada do sistema para o HD !! 'Grato' R: .. nada. Veja
[delphi-br] Delphi e os índices
'Rafael, ta tudo meio confuso...' R: Tenhamos calma .. irmãos !! 'se você quer usar os componentes nativos do Delphi para acessar seus dados então você terá que abandonar DBF' R: Pronto !! Já abandonei meus .dbf's !! 'e usar algum SGDB como FireBird ou outro que o Delphi conecte nativamente..' R: Baixei 2 FireBirds. Um dos pássaros (bin\doc\etc) não executou. A outra 'ave-de-fogo' me mostrou um console SQL (Structure Query Language) da época do 'onça' (antigão) ! Achei ridículo um software ainda usar um console (DOS) sob plataformas gráficas tão poderosas. Daí, joguei os 2 fora !! '::Você não carrega .dbf para o Delphi.. ou você acessa os DBF Pelo Delphi ou migra de DBF para um Servidor SQL e também acessa pelo Delphi..' R: Por razões de segurança não poderei explicitar a 'estratégia' de proteção aos dados que, utilizarei. Só direi que, não usarei componente algum (externo\interno) do Delphi. Apenas, usarei meus conhecimentos de programação para criptografar os dados com uma chave bem complexa (128 bits, no mínimo) Assim, se algum Hacker\Cracker\Lammer quiser me sacanear .. NÃO terá acesso aos dados, e, nem poderá alterá-los. '::Se fosse você já teria visto por ai..' R: Baixei alguns .htm's sobre o vkdbf, e, estou lendo-os. ':: Se eu entendi bem, seu software é em clipper e as estações usam o reeDos.. se for isso mesmo você tem uma longa jornada.. instalar o Windows nas máquinas, reescrever seus sistemas em Delphi e migrar os dados.' R: Tempo não é problema. 'ha quanto tempo você já usa Delphi? ou ta começando agora?' R: O Pascal eu uso desde a primeira versão trazida pelo Francês que, fundou a BorLand: TurboPascal 1.1. O Delphi eu estou começando agora. Mas, já criei um Form de Login com 2 campos (Usr\Psw), e, estarei acrescentando um cmdbt para validar o acesso aos dados. Eu uso os micros da minha escola, pois, lá eles dão cursos de LINUX\Delphi\etc. Às sextas eu fico lá desenvolvendo\aprendendo com os outros monitores. hehehe
[delphi-br] Servidor para Delphi
'Minha nossa, você é o típico cara que não conhece nada de linux e sai falando besteira. cara, vai fazer um curso vai conhecer o sistema operacional e ai sim, tirar suas conclusões.. eu ja implantei redes com servidor linux e estações windows/linux e tudo funciona muito bem.' R: Orgulhosamente eu concordo: Não sei NADA sobre LINUX. E, digo mais: NEM quero saber !! O único curso que, precisei fazer nestes mais de 20 anos na microinformática foi o de WebDesign. Eu era desenhista Técnico (TecNíGrafo, lapiseira, borracha, etc.), e, programador mas AINDA não era um artísta. hehehe Eu vislumbro um mundo em que, as máquinas um dia sejam suficientemente inteligentes para se autoconfigurar, e, se autoconsertar. Enquanto isso, estarei repousando numa rede de verdade sentindo a brisa do mar debaixo de um coqueiro tomando áqua de côco ! 'procura conhecer melhor o SO antes de tirar suas conclusões baseadas na sua pouca experiência com ele. pra você Servidor UNIX também deve ser uma porcaria né' R: Mais uma vez sou obrigado a dizer: NEM quero saber o que, um SÔ (Zistemaz Operacionauz) faz ! Há 20 anos meu micro (Apple Unitron IIe) NEM tinha um Zistemaz Operacionauz ! Bastava pressionar um botão, e, o cursor do AppleSoftBasic aparecia INSTANTANEAMENTE ! Pois, o FirmWare (Bios) encontrava-se pré-gravado numa EPROM !! Eu preciso é usar o Micro, e, não saber como se faz um ! Servidor :? NEM servidor público presta ! Vá obter algum documento dêles :? Meses prá se abrir uma MicroEmpresa, e, ANOS prá se fechar a mesma ! Enquanto a BurroCracia estatal encalha nos Sistemas Operacionais capengas, a economia se esvai. Prá mim, micro inteligente tem que, servir sem que, eu tenha que, implorar ao 'servidor' para que, o mesmo se reconfigure pela milionésima vez. Afinal, TODOS as arquiteturas dos micros são iguais (Intel, AMD, etc.) ! Pq tanta 'frescura' prá reconhecer: placas de rede, pastas compartilhadas, terminais, placas de vídeo, drivers, periféricos, etc. Quando precisei programar em PHP bastou baixar o PHPTríad !! Ele instalou\configurou o APACHE automaticamente ! NEM precisei abrir os arquivos de configuração para mudar UMA só linha (descomentar, etc.) Isso é que, era engine inteligente !! O PHP parece o Clipper, mas, infelizmente já estão OOPzando ele tb. Já que, é para OOPzar, então, prefiri usar o Delphi, pois, é mais userfriendly. 'Só complementando teus comentários:' R: Sim .. sim:) '- Uso Linux no meu Servidor a mais de 12 anos. Nunca tive um unico problema que não fosse rapidamente solucionado e em 99,8% dos casos de forma remota (putty ou outra ferramenta semelhante). A duas unicas vezes que necessitei da presença do técnico foi na INSTALAÇÃO INICIAL e quando ocorreu a QUEIMA DO PROCESSADOR (Hardaware). Atualmente utilizo CentOS 5 rodando num hardware ridiculo (P4 1.5, 512 RAM).' R: Sei .. sei : 'ps.: Nunca ocorreu perda de dados.' R: Fantástico. '- Tenho DIVERSOS clientes utilizando servidores DELL com LINUX, e extremamente satisfeitos.' R: Então .. tá .. então :- '.. usavamos como servidor de Internet o Linux Mandrake.' R: Tá:) 'numa maquina Pentium 166 lá de 32MB de Ram. Funcionou lá durante 2 anos, não fedeu, não cheirou, não incomodava. Internet tava lá ao bel prazer sem lentidão ou sem cair. Esse servidor chegou ao ponto dó pessoal da rede até esquecer que tinha ele lá. Tanto foi que no trabalho de faculdade que fiz de proposta de implantação de um projeto de rede numa empresa, optei pelo servidor de Internet e de e-mail como o Linux.' R: Sim .. sim :? 'Quanto a encontrar suporte nas revendas, o problema é voce, nas revendas, encontrar um profissional que saiba realmente configurar um servidor de forma descente. Porque, de profissionais que fazem merda com montagem/configuraçõ es de rede, o mercado tá abarrotadésimo.' R: Eureka ! Era essa a VERDADE que, eu queria ! Adianta ter um ziztemaz SEM garantia nenhuma :? Não. 'Ao meu entender, ele perguntou uma coisa e voce respondeu outra. Ele perguntou sobre um software que faça controle de versões de fonte e não de algum remendador de fontes do tipo cata daqui, cata dalí pra montar algo que se diz ser um programa...' R: Foi .. é :? Pensei que, eu estivesse respondendo à necessidade de instalação de um servidor Delphi. E, que, o usuário precisasse de uma 'outra' opinião sobre o Windows. E, eu dei, nééé. 'Profissionais Linux são caros mesmo dada a complexidade da configuração do sistema operacional. Não é qualquer um que consegue mexer e arrumar ele e, eu particularmente, até prefiro pagar estes profissionais careiros mas que deixem meu servidor o fino da bola, do que entregar minha rede na mao do chegado do amigo do vizinho que é bão toda vida de computador: Vai lá, faz, caga e não assume nada depois.' R: Já que, tá SOBRANDO din din .. hehehe Eu, prefiro
[delphi-br] SQL Count em Mais de um CAMPO!!!!
Olá Galera, queria saber se é possível usa SQL COUNT em Mais de um campo???
E tbm como é que eu Faço para o SQL COUNT não considerar os registros que estão
NULL??? Exemplo:
Tenho 3 Campos na Tabela PONTO, Denomindos de DATA_ENTRADA, HORA_ENTRADA e
HORA_SAIDA.
DATA_ENTRADA HORA_ENTRADAHORA_SAIDA
28/05/2009 09:00 18:00
28/05/2009 09:00 18:09
28/05/2009 09:00 Null
Eu Faço a Consulta para Verificar os Dias Trabalhados(DATA_ENTRADA registrada)
de Determinado Funcionário no MÊS de MAIO com a Seguinte Linha de Comando:
Query2.ADD('Select count (DATA_ENTRADA) as DIAS From PONTO where
NOME='''+Query1.fieldbyname('NOME').asstring+''' and extract(month from
DATA_ENTRADA) ='''+Edit4.text+''' order by DATA_ENTRADA Desc');
o Resultado sempre Retornará 3.
Minha Dúvida é... Quero Saber se posso usar a clausula COUNT para consultar
mais de um CAMPO e não Considerar o valor Null. Tendo como base o exemplo
acima, ele teria que me retornar 2 e não 3, pois tem um HORA_SAIDA que está com
valor NULL.
Conseguiram entender...Abraços???
[delphi-br] Servidor para Delphi - Planilha
Servidores 'top-de-linha': 1 micro LINUX Server 1 micro Windows IIs Server Servidor reserva\extra 'top-de-linha': 1 micro LINUX Server Terminais: 2 micros LINUX Lázarus 2 micros Windows Delphi Pessoal: 1 Analista Sênior 6 Programadores sendo que, 2 deverão ser júniores para ajudar na instalação\movimentação dos micros Local: 1 Sobrado numa vila em rua sem saída Outros: 1 Vigia à cada 24 hs na entrada da vila 1 Atendente 1 Faxina 1 Motorista Veículos: 2 pick-ups Custo estimado: Implantação da infraestrutura R$ 40 mil Custo da manutenção mensal R$ 14 mil Passos: 1) Procurar um contador para obter o CNPJ; 2) Abrir conta pessoa jurídica no BB (Banco do Brasil); 3) Levantar empréstimo de R$ 140 mil; 4) Aplicar na poupança R$ 100 mil do empréstimo levantado; 5) Aplicar R$ 40 na reforma\implantação do negócio.
Re: [delphi-br] GetPropValue retornar conteúdo do t ipo TMemoryStream
2009/5/28 Edelson Regis de Lima edre...@ig.com.br: Olá pessoal. Não sei se é possível, mas vamos lá... Tenho uma classe principal: TMinhaClasse, que tem algumas propertys básicas. Eu crio outra classe TMinhaClasseHerdada = class(TMinhaClasse) e acrescento mais algumas propertys... Implementei uma função usando RTTI que lê qualquer tipo de objeto herdado de TMinhaClasse e mostra suas propriedades e respectivos valores. Só que estou tendo problema quando a property é do tipo TMemoryStream, pois utilizo a function GetPropValue, que me retorna uma Variant, e os dados contidos nessa property, que seria um monte de binários, me retorna alguns números apenas. Será que tem outro jeito de fazer isso? Alguem sabe como ler uma propriedade genericamente, sem saber previamente qual o seu tipo, e se for do tipo TMemoryStream ou TStream, que retorne o seu conteúdo corretamente? Para ver o tipo da propriedade: var VPropInfo: PPropInfo; begin VPropInfo := GetPropInfo(Owner, Metadata.Name); if Assigned(VPropInfo) then VPropInfo^.PropType^.Kind // - aqui está o tipo da propriedade Para ler um objeto use GetObjectProp. Joao Morais
Re: [delphi-br] SQL Count em Mais de um CAMPO!!!!
Verificando se os campos de hora estão nulos não resolve?
select Count(DATA_ENTRADA) As Dias
from PONTO
where (HORA_ENTRADA is not null
or HORA_SAIDA is not null)
se alguma das horas estiver nula, não aparecerá no seu resultado.
Testa aí.
2009/5/28 rafaelpinto19 rafaelpint...@gmail.com
Olá Galera, queria saber se é possível usa SQL COUNT em Mais de um campo???
E tbm como é que eu Faço para o SQL COUNT não considerar os registros que
estão NULL??? Exemplo:
Tenho 3 Campos na Tabela PONTO, Denomindos de DATA_ENTRADA, HORA_ENTRADA e
HORA_SAIDA.
DATA_ENTRADA HORA_ENTRADA HORA_SAIDA
28/05/2009 09:00 18:00
28/05/2009 09:00 18:09
28/05/2009 09:00 Null
Eu Faço a Consulta para Verificar os Dias Trabalhados(DATA_ENTRADA
registrada) de Determinado Funcionário no MÊS de MAIO com a Seguinte Linha
de Comando:
Query2.ADD('Select count (DATA_ENTRADA) as DIAS From PONTO where
NOME='''+Query1.fieldbyname('NOME').asstring+''' and extract(month from
DATA_ENTRADA) ='''+Edit4.text+''' order by DATA_ENTRADA Desc');
o Resultado sempre Retornará 3.
Minha Dúvida é... Quero Saber se posso usar a clausula COUNT para consultar
mais de um CAMPO e não Considerar o valor Null. Tendo como base o exemplo
acima, ele teria que me retornar 2 e não 3, pois tem um HORA_SAIDA que está
com valor NULL.
Conseguiram entender...Abraços???
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] GetPropValue retornar conteúdo do t ipo TMemoryStream
2009/5/28 Joao Morais jcmorai...@gmail.com: VPropInfo := GetPropInfo(Owner, Metadata.Name); GetPropInfo(SeuObjeto, 'NomeDaPropriedade'); Joao Morais
Re: [delphi-br] DUVIDAS COM CAMPOS CALCULADOS
Caro Roberval Usa um Campo agreggate do ClientDataSet, procure na net que irá encontrar.. Rubens Antunes Autor do Livro - Delphi Faça Uma Aplicação Comercial Blog http://rubensantunes.zip.net/ --- Em qui, 28/5/09, RUBERVAL - YAHOO agenda.ruber...@yahoo.com.br escreveu: De: RUBERVAL - YAHOO agenda.ruber...@yahoo.com.br Assunto: [delphi-br] DUVIDAS COM CAMPOS CALCULADOS Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 28 de Maio de 2009, 20:54 Pessoal tenho a seguinte duvida, tenho uma tabela (tabromaneio) e a tabela detalhe (tabromaneiodetalhe ) ligadas pelo campo ID e ID_TABROMANEIO respectivamente, na detalhe tenho os produtos e na tabela pai tenho o campo valor total que é a soma dos produtos daquele pedido, preciso somar isso e jogar para este campo, bom no SQL (uso firebird a três anos)eu consigo fazer a soma tranqüilo o problema ta sendo dentro do Delphi jogar o resultado da soma para o campo desejado pois é a soma de uma tabela tem que ser jogada (dar um update) para a outra tabela e quando eu clicar no botão salvar ele salvar este valor na tabela pai, o que não to conseguindo é como fazer isso no Delphi, desculpem ai pessoal que é pouca pratica mesmo, já fucei na net mas não achei nenhum material parecido, e quando acho é com dbf(piradox) ai não da o conceito é outro. Atenciosamente Ruberval Obs. Uso Delphi2007, firebird 2.0, dbx e interbase para acesso ao banco. [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] Dúvida com Debug (Trace into - F7)
2009/5/28 EmbarcaDelphi embarcadel...@yahoo.com.br:
Pessoal, como é que faço para Debugar o código apenas na unit principal?
Selecionei nas opções do Projeto:
- Debug information;
- Local symbols
- Reference info
- Assertions
Coloquei o BreakPoint numa procedure, Run (F9). Quando chega no
breakpoint ele para, pressiono a tecla F7 (Trace into), linha-a-linha
vai me mostrando os passos, até aí tudo ok, mas, queria que, quando o
compilador fosse para outras unit ele não fosse passo-a-passo. Tenho
muitas units e o processo até terminar leva mais de hora, não compensa
esperar tanto para encontrar o erro, e se tiver de repetir então, é um saco!
As units não há problemas, o negócio é só no meu FormPrincipal (não
tenho outros forms), as units é que não queria ver.
Inclua {$D-} nas units que você não quer debugar e ligue o debug info
do projeto, ou inclua {$D+} nas units que você quer debugar e desligue
o debug info do projeto. Escolha o caminho mais curto. Além disto você
pode ou não usar as units de debug da vcl (Project | Options |
Compiler | Use debug DCUs). Depois de alterar essas coisas, dê um
build all no projeto.
Joao Morais
Re: [delphi-br] Projeto ACBrNFe. Por onde começar?
1. Onde fazer o download? Veja http://acbr.sourceforge.net/drupal/?q=node/37 2. Como fazer as atualizações? Use o SVN 3. Como reportar bugs e sugestões? Existe uma lista de discussão exclusiva do ACBr? Vc pode usar o FórumWeb - http://www.forumweb.com.br/foruns/index.php?showforum=465 ou o Mantis - http://acbr.sourceforge.net/drupal/?q=node/41 4. Ele funciona em Delphi 7 e Rad Studio 2007? Delphi 7 sim, 2007 alguns usuários utilizam 5. Quais as funções disponibilizadas? a-gerar xml (para isso tenho que gerar que tipo de arquivo: txt, ini) Vc deve preencher as propriedades do componente. Veja o demo para entender como fazer. b-validar xml Sim c-enviar NFe Sim d-integração com o ERP O que seria integração com ERP? e-SCAN Ainda não, mas em breve será desenvolvido f-cancelamento sim g-inutilização sim 6. Alguem já está utilizando ele em ambiente de Produção? Sim, eu e alguns outros usuários 7. Tem muitos bugs ou já está estável? Está estável, mas, como vc tem acesso aos fontes, se vc encontrar algum bug, pode corrigí-lo e enviar sua colaboração para o projeto 8. Vem com os fontes completos? sim André F. Moraes - Original Message - From: dangra2008 To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 28, 2009 5:06 PM Subject: [delphi-br] Projeto ACBrNFe. Por onde começar? Gostaria de conhecer o projeto ACBrNFe, mas tenho algumas dúvidas: 1. Onde fazer o download? 2. Como fazer as atualizações? 3. Como reportar bugs e sugestões? Existe uma lista de discussão exclusiva do ACBr? 4. Ele funciona em Delphi 7 e Rad Studio 2007? 5. Quais as funções disponibilizadas? a-gerar xml (para isso tenho que gerar que tipo de arquivo: txt, ini) b-validar xml c-enviar NFe d-integração com o ERP e-SCAN f-cancelamento g-inutilização 6. Alguem já está utilizando ele em ambiente de Produção? 7. Tem muitos bugs ou já está estável? 8. Vem com os fontes completos? Graça [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] 3 camadas (servidor de aplicação) + OOP ..... ( pode usar DataSnap?)
2009/5/28 josehenriqu...@ymail.com josehenriqu...@ymail.com: Olá amigos, eu utilizo a programação OOP, mas sempre em sistemas client/server e gostaria de saber como aplicar esse padrão à tecnologia de 3 camadas, conheço o DataSnap e sua versatilidade com componentes dataset, mas não conheço um método de trabalhar com OOP transportando Objetos VO que sejam, em delphi, se algum dos colegas puderem me orientar em como posso utilizar essas duas tecnologias OOP e 3 camadas ( servidor de aplicação) por favor me ajudem. Será que existe uma maneira de juntar DataSnap e OOP ? Se datasnap é orientado a tdataset, então não dá. Você vai precisar de frameworks como kbmMW, RemObjects, RTC SDK, IndySoap para trafegar objetos entre camadas físicas. Joao Morais
Re: [delphi-br] String - Mesmo Endereço de Memória
2009/5/28 Rodrigo Bevilacqua Marcondes rodrig...@yahoo.com.br:
Olá pessoal ,
Tenho duas variaveis (ITENSFATURADOS e sMsg) as duas do
tipo string:
- declaração var
const
MAX =
4000;
var
ITENSFATURADOS : array[1..MAX] of array[1..2] of String; //L
C
sMsg : String;
-
* atribuo valor para
sMsg
sMsg := RetornaFuncao();
*quando vou atribuir um valor para o meu
vetor
ITENSFATURADOS[Linha][2] :=
TblConsulta.FieldByName('NrItem').AsString;
* a VAR sMsg muda o valor
para o mesmo valor do VETOR.
Estava depurando e fui no INSPECT e estão no
mesmo endereço(sem imagem - não
foi ).
Alguém tem idéia do que pode ser
A primeira coisa que me vem a memória é que você estourou o limite do
vetor. Qual o valor de Linha?
Joao Morais
[delphi-br] [OFFTOPIC] Velharias
2009/5/28 Rubem Rocha rubem.ro...@dtmanaus.com.br: Resumo da ópera: Eu tb já fui escovador de bits! Antigamente o desafio era a gente fazer o programinha menor, mais útil e mais inusitado do que os outros colegas do cursinho. Hoje é nos mantermos atualizados e entendermos tudo o que um framework ou uma ferramenta são capazes de fazer por nós, bem como saber da existência deles para evitar retrabalho. Minhas melhores marcas foram: um .com de 20 bytes (sim, bytes) que eu colocava no autoexec para ligar o numlock e o capslock, e outro .com de 2,6k que colocava um reloginho na 26ª (sim, 26ª) linha do monitor. Pior que não dava pau nem no Sidekick. Meu maior arrependimento acredito ser o fato de eu não ter mexido com *nix naqueles bons tempos. Joao Morais
Re: [delphi-br] Servidor para Delphi
como sempre a msm discussao entre linux e windows... e na minha opiniao a frase q mais se cabe eh dita ha anos em tds as listas, sobre td q eh assunto: o melhor eh o q meu da o sustento... sei de relatos de linuxes funcionando bem, e sei de um lugar onde trabalhei q um servidor windows funcionou anos sem precisar manutencao... eu, pessoalmente prefiro windows, eh o q sei mexer, eh o q sei configurar, eh o q ja me deu grana... hj soh uso windows pq veio no meu laptop, talvez eu compre um mac e fique com 2 mas nao me vejo usando um linux, nao tenho paciencia pra configurar (camera digital, celular, filmadora, etc...) julio cesar [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arquivo .ini na pasta
A Questão não é essa, o problema é que o cara quer tudo mastigado, e dessa forma nunca vai aprender nada.. vai ficar sempre escravo da comodidade. 2009/5/28 Ricardo Rocha ricardo_r...@yahoo.com.br Olá Eduardo Silva dos Santos, se você não sabe como usar ou sabe e não quer falar, não precisa dar uma resposta desse, apenas não responda.. Obrigado, Ricardo Messias da Silva Rocha Ciência da Computação - 2009 - De: Eduardo Silva dos Santos eduardo@gmail.comeduardo.drd%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Quarta-feira, 27 de Maio de 2009 21:06:20 Assunto: Re: [delphi-br] Arquivo .ini na pasta O Andrei já te falou qual função usar.. se dê ao trabalho de buscar no help 2009/5/27 Ricardo Rocha ricardo_rmsr@ yahoo.com. br Olá Andrei Luís, muito obrigado pela atenção. Você poderia me mandar um exemplo de como ficaria esse código? Desde já agradeço Ricardo Messias da Silva Rocha Ciência da Computação - 2009 - _ _ __ De: Andrei Luís compuvale.software@ gmail.comcompuvale.software %40gmail. com Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br Enviadas: Quarta-feira, 27 de Maio de 2009 8:12:17 Assunto: Re: [delphi-br] Arquivo .ini na pasta Ricardo, use ExtractFilePath para pegar o caminho onde o seu executável está e adicione a pasta config. [] Andrei 2009/5/27 ricardo_rmsr ricardo_rmsr@ yahoo.com. br Olá pessoalu, não esto conseguindo configurar meu aquivo .ini para executar a aplicação em qualquer lugar que ela esteja. Tipo tenho a pasta 'Projeto' onde as pastas 'codigo', 'dcu', 'database' e 'config', dai eu queria que o arquivo 'Config_Banco' ficasse dentro da pasta 'config', mas sem indicar o diretorio que é 'f:\Projeto\ config', para que eu possa executar a minha aplicação em outro computador sem da erro. O jeito que estou fazendo e está dando erro é assim: Exemplo: iniconfi := TIniFile.create( 'f:\Projeto\ config\Config_ Banco.ini' ) Sendo desta maneira quando executa a aplicação em um diretório diferente de 'f:\', da um erro. Obrigado, Ricardo Rocha [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] -- . . . . ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo.drd@ gmail.com Site: http://www.drdsiste mas.com.br/ . . . . ... [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] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi - código
Criei um Form tamanho padrão. Acrescentei 2 cxs de texto lableadas\identificadas Usr\Psw (Usuário\Senha). Acresci 1 botão Ok. Assim que, o usuário preencher os 2 campos (Usr\Psw), e, clicar no botão Ok o que, é que, eu faço :? Onde eu digito o código fonte para poder 'trabalhar' com o nome do usuário, e, a senha :? Onde estão o Begin\End. do arquivo principal .pas :?
[delphi-br] Re: Delphi + (SMTP x FTP x E-Mail) :?
Boa noite. Se você deseja implantar um chat, existem vários exemplos usando Indy ou Socket no Delphi, inclusive projetos prontos. Dúvidas, é só perguntar. Abraços e boa sorte!
[delphi-br] Re: Material avançado para IntraWeb
O melhor material de Intraweb são os exemplos e o site da Atozed. Eu ja usei Intraweb antes, e se puder ajudar, é só postar. Abraço e boa sorte!
Res: [delphi-br] [OFFTOPIC] Velharias
legal João, gostei do Off... Creio que você também teve o ilustre prazer, de fuçar rs.. naqueles consoles da IBM com a tela verde abacatão..rs..rs.. também.. Novidade pra mim, era fazer o clipper mudar as cores das letras..rs..rs.. Vamos parar por aqui senão os nossos caríssimos amigos do grupo deve achar que já sou vovô..rs..e isso é um topic sobre museu info. rs Como diz aquele velho ditado: recordar é viver grande abraço à todos, deixa eu estudar mais um teco... De: Joao Morais jcmorai...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 28 de Maio de 2009 21:01:20 Assunto: [delphi-br] [OFFTOPIC] Velharias 2009/5/28 Rubem Rocha rubem.rocha@ dtmanaus. com.br: Resumo da ópera: Eu tb já fui escovador de bits! Antigamente o desafio era a gente fazer o programinha menor, mais útil e mais inusitado do que os outros colegas do cursinho. Hoje é nos mantermos atualizados e entendermos tudo o que um framework ou uma ferramenta são capazes de fazer por nós, bem como saber da existência deles para evitar retrabalho. Minhas melhores marcas foram: um .com de 20 bytes (sim, bytes) que eu colocava no autoexec para ligar o numlock e o capslock, e outro .com de 2,6k que colocava um reloginho na 26ª (sim, 26ª) linha do monitor. Pior que não dava pau nem no Sidekick. Meu maior arrependimento acredito ser o fato de eu não ter mexido com *nix naqueles bons tempos. Joao Morais 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] Delphi - código
Vixi... Cego em tiroteio? 2009/5/28 arca765 arca...@yahoo.com.br Criei um Form tamanho padrão. Acrescentei 2 cxs de texto lableadas\identificadas Usr\Psw (Usuário\Senha). Acresci 1 botão Ok. Assim que, o usuário preencher os 2 campos (Usr\Psw), e, clicar no botão Ok o que, é que, eu faço :? Onde eu digito o código fonte para poder 'trabalhar' com o nome do usuário, e, a senha :? Onde estão o Begin\End. do arquivo principal .pas :? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Servidor para Delphi
Olha... se vc pensa assim, seja feliz. O que me assusta é tanto radicalismo contra o Linux. Agora dizer que nenhum fórum de Linux conseguiu te dar nenhuma resposta; isso pra mim é uma MENTIRA. []'s 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 qui, 28/5/09, arca765 arca...@yahoo.com.br escreveu: De: arca765 arca...@yahoo.com.br Assunto: [delphi-br] Servidor para Delphi Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 28 de Maio de 2009, 13:33 'Bom dia Rafael!' R: ..dia. 'Eu acho que um projeto que há dois anos se estimava ter 30 milhões de usuários no mundo todo não deve ser uma M... como o colega aparentemente tenta demonstrar no post.' R: Se, quantidade fosse razão então TODOS os miseráveis do mundo estariam certo em não querer melhorar de vida por estudarem e abrirem seus próprios negócios. 'Eu particularmente já tive algumas experiências ruins com o linux, mas isso não me credencia a dizer que o mesmo seja ruim. Eu apenas não me adaptei ao mesmo, o que não significa que outros colegas não o possam fazer.' R: Estou mais preocupado em ganhar dinheiro com a informática do que, com ideologias libertacionárias. 'Mas o grande problema para quem não quer mudar de ambiente é querer que, na contramão da lógica, o ambiente se adeque às suas necessidades. ..' R: Mas, é exatamente ISTO o que, a 'HiTech' nos promete (políticos), e, não cumpre: O SoftWare se adaptar às nossas necessidades ! E, não nós termos que, REINVENTAR a roda a cada nova 'versão' destas porcarias !!! Desde que, tive meu 1o. contato com MainFrames (década de 60) tudo o que, um Computador deve fazer é: imprimir, exibir no 'ecrã', emitir sons, etc. As funções continuam as mesmas, e, apenas o que, mudou foram: a resolução, a qualidade do som, a velocidade, as MegaCores, etc. 'Mas tenho o Ubuntu e o Kurumin rodando em máquinas virtuais em minha casa e posso afirmar que em vários aspectos, são superiores ao Windows.' R: Os nossos usuários (Money) não estão interessados SÓ (apenas) em uma pseudo 'superioridade' do LINUX ! É óbvio que, um SoftWare com código aberto, e, desenvolvido por milhares de programadores de muitas etnias irão produzir um SoftWare MUITO melhor do que, o produzido por uma diminuta 'equipezinha' da MS ! Eu prefiro a simplicidade à complicacioná tica linuxer com inutilitários que, eu NUNCA irei utilizar (man, info, vi, df, etc.) 'Olha, 10 listas não posso te passar até porque não participo de 10 listas relacionadas a tecnologia. Mas cito os exemplos de NDDV, Firebase-BR, Automação Total e Delphi-BR (esta lista) as quais acompanho mais ativamente e já vi bons relatos.' R: Daria então para citar o nome de 10 grandes empresas que, utilizem esta tecnologia, e que, consigam comprovar através de 'gráficos' administrativos que, elas 'economizaram' ao migrarem para o LINUX :? Sabe como é, né. O pe$$oal da ADM é que, libera a 'verba', e, eles só entendem de lucro, e, não de ideologias esquerdistas (comunismo, socialismo, etc.), pois, qual é o 'comuna' que, não visitou a EuroDisney :? Há até versões do LINUX que, são VENDIDAS pela InterNet. O tal do Lindus Estorvalds deve estar se 'revirando' em seu leito de morte. hehehe 'Porém todavia entretanto, as más experiências tanto de um lado (Windows) quanto do outro (*nix) passam por falhas dos profissionais que configuram os servidores.' R: Quanto mais complexo o SoftWare pior será a sua configuração ! 'O que mais me deixa pasmo nos relatos de más experiências com servidores Windows é que mesmo o Windows tendo vários assistêntes para diversas tarefas e deixando a configuração o mais simples possível, segundo nota-se quando se acompanha os relatos, é que as pessoas acabam sendo mais displicentes. ' R: Quando Stephen Wosniak + Steve Jobs (Apple) transformaram uma das placas que, o pai de um dêles havia deixado na garagem em um MicroComputador a 'proposta' (Osborne I) era: diminuir os 'gastos' com o CPD\CI\TI ! Ou seja, eliminar o OS-670 (MainFrame + Assembler + Cobol), e, subistituir TUDO isto por algo mais simples (DR-DOS + Gary Kildall + basic) Mas, com o tempo (IBM + PC + DOS + MS + Win + OOP + ASP + IIs) injetaram TUDO de nôvo em nossos simples micros: Servidores, Analistas, Programadores, Schedullers, Operadores, Digitadores, etc. Enfiaram um CPD\CI\TI todo DENTRO de nossos simples micros. Prova disso é que, os consoles de jogos continuam imbatíveis, pois, são dedicados !! A 'proposta' dos inventores de micros foi .. soterrada. 'Configurar servidores *Nix nem sempre possui assistentes ou opções intuitivas, pelo contrário exige conhecimento dos conceitos envolvidos, manipulação em linha de comando e etc. Tudo isso dá uma margem a erros
Re: [delphi-br] [DICA] Layouts FEBRABAN
Putz, Rubem... se ninguém fizer, amanhã eu tento... []'s 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 qui, 28/5/09, Rubem Rocha rubem.ro...@dtmanaus.com.br escreveu: De: Rubem Rocha rubem.ro...@dtmanaus.com.br Assunto: [delphi-br] [DICA] Layouts FEBRABAN Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 28 de Maio de 2009, 16:02 http://www.febraban .org.br/acervo. asp?id_pagina= 173 http://www.febraban .org.br/acervo. asp?id_pagina= 173id_paginaDe= 78 id_paginaDe= 78 Se alguém puder baixar os arquivos e postar na área de arquivos, seria interessante! Rubem Nascimento da Rocha Analista/Desenvolve dor Pleno Digital Training - Seção de CA ( Fone: (92)2101-0100, ramal 125 ÈCelular: (92)8429-2865 * E-Mail: rubem.rocha@ dtmanaus. com.br þ Site: http://www.dtmanaus .com.br http://www.dtmanaus .com.br/ [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]
[delphi-br] Novo arquivo carregado em delphi-br
Olá, Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no grupo delphi-br. Arquivo : /FEBRABAN/Convênio Padrão Febraban.pdf Carregado por : silvioprog silviop...@yahoo.com.br Descrição : CONTRATO PARA PRESTAÇÃO DE SERVIÇOS DE ARRECADAÇÃO. Você pode acessar o arquivo pela URL: http://br.groups.yahoo.com/group/delphi-br/files/FEBRABAN/Conv%80%A0%A6%EAnio%20Padr%80%A0%A6%E3o%20Febraban.pdf Para saber mais sobre compartilhamento de arquivos no grupo, leia: http://help.yahoo.com/help/br/groups/files Atenciosamente, silvioprog silviop...@yahoo.com.br
[delphi-br] Novo arquivo carregado em delphi-br
Olá, Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no grupo delphi-br. Arquivo : /FEBRABAN/SELTEC layout de arquivo.pdf Carregado por : silvioprog silviop...@yahoo.com.br Descrição : Minuta - Manual de Leiautes de Mensagens e Arquivos do SELTEC. Você pode acessar o arquivo pela URL: http://br.groups.yahoo.com/group/delphi-br/files/FEBRABAN/SELTEC%20%80%A0%A6%92%B6%20layout%20de%20arquivo.pdf Para saber mais sobre compartilhamento de arquivos no grupo, leia: http://help.yahoo.com/help/br/groups/files Atenciosamente, silvioprog silviop...@yahoo.com.br
[delphi-br] Novo arquivo carregado em delphi-br
Olá, Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no grupo delphi-br. Arquivo : /FEBRABAN/Layout Conta Eletrônica V3R0.xls Carregado por : silvioprog silviop...@yahoo.com.br Descrição : Layout Febraban Conta Eletrônica - V3R0. Você pode acessar o arquivo pela URL: http://br.groups.yahoo.com/group/delphi-br/files/FEBRABAN/Layout%20Conta%20Eletr%80%A0%A6%F4nica%20V3R0.xls Para saber mais sobre compartilhamento de arquivos no grupo, leia: http://help.yahoo.com/help/br/groups/files Atenciosamente, silvioprog silviop...@yahoo.com.br
[delphi-br] Novo arquivo carregado em delphi-br
Olá, Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no grupo delphi-br. Arquivo : /FEBRABAN/Layout Padrão 240 posições V8.3.pdf Carregado por : silvioprog silviop...@yahoo.com.br Descrição : Intercâmbio de Informações entre Bancos e Empresas. Você pode acessar o arquivo pela URL: http://br.groups.yahoo.com/group/delphi-br/files/FEBRABAN/Layout%20Padr%80%A0%A6%E3o%20240%20posi%80%A0%A6%E7%F5es%20V8.3.pdf Para saber mais sobre compartilhamento de arquivos no grupo, leia: http://help.yahoo.com/help/br/groups/files Atenciosamente, silvioprog silviop...@yahoo.com.br
[delphi-br] Novo arquivo carregado em delphi-br
Olá, Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no grupo delphi-br. Arquivo : /FEBRABAN/Layout Cancelamento Centralizado - v1.0.pdf Carregado por : silvioprog silviop...@yahoo.com.br Descrição : Cancelamento do protesto - Arquivo magnético. Você pode acessar o arquivo pela URL: http://br.groups.yahoo.com/group/delphi-br/files/FEBRABAN/Layout%20Cancelamento%20Centralizado%20-%20v1.0.pdf Para saber mais sobre compartilhamento de arquivos no grupo, leia: http://help.yahoo.com/help/br/groups/files Atenciosamente, silvioprog silviop...@yahoo.com.br
Re: [delphi-br] Delphi - código
Vixi... nem me fale. Esse tá causando.
Piadinhas a parte e indo ao que interessa, uma validação burra de usuário e
senha seria:
{* Inicio do Copy/Paste *}
Procedure TForm1.Button1Click(Sender: TObject);
Const
..USER = 'SYSDBA'; PASS = 'masterkey';
Begin
..if( (Usr.Text USER) and (Psw.Text PASS) ) then
..begin
ShowMessage( 'Nome de usuário ou senha inválidos' );
Usr.Clear;
Psw.Clear;
Usr.Setfocus;
..end;
End;
{* Final do Copy/Paste *}
Como disse, é uma validação burra (não dá pra dizer didática, pois tá meio
capenga, sei lá) pois na prática vc não usaria constantes hardcoded. E faria
algum tratamento para uma tela desse tipo por exemplo, fazendo uma consulta a
uma base de dados e retornando apenas um valor booleano para credenciais (usr +
psw) válidos. Poderia também usar um recurso dos TEdits que é a propriedade
PasswordChar que define um caractere para aparecer no campo PSW ao invés do
texto que vc digitou (mostrar ao invés das letras)
Outra coisa: se vc quiser, pode usar as funções UpperCase ou LowerCase na
comparação, pois mesmo que o usuário digite 'Sysdba', 'sYSDBA', 'sysdba' ou
qualquer outra variação, essa digitação será convertida toda para letras
maiúsculas (usando UpperCase) ou minúsculas (usando LowerCase) o que dispensa o
usuário de se preocupar se digitou tudo em maiúsulas, ou minúsculas ou
camelcase (SysDba).
Bem, o mínimo do básico é isso. Já é suficiente pra poder testar... E falando
sério, sem nenhuma ironia MESMO, você está fazendo algum curso ou seguindo
algum material? Ajuda bastante ter algum material pra começar a mexer. Ou se
estiver usando o Delphi 7, o próprio Help tem alguns exemplos de código que vc
pode copiar e colar pra testar a execução.
[]'s
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 qui, 28/5/09, Humberto Oliveira holiveira.wordpr...@gmail.com escreveu:
De: Humberto Oliveira holiveira.wordpr...@gmail.com
Assunto: Re: [delphi-br] Delphi - código
Para: delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 28 de Maio de 2009, 21:24
Vixi... Cego em tiroteio?
2009/5/28 arca765 arca...@yahoo. com.br
Criei um Form tamanho padrão.
Acrescentei 2 cxs de texto lableadas\identific adas Usr\Psw
(Usuário\Senha) .
Acresci 1 botão Ok.
Assim que, o usuário preencher os 2 campos (Usr\Psw), e, clicar
no botão Ok o que, é que, eu faço :?
Onde eu digito o código fonte para poder 'trabalhar' com o nome
do usuário, e, a senha :?
Onde estão o Begin\End. do arquivo principal .pas :?
[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]
[delphi-br] Novo arquivo carregado em delphi-br
Olá, Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no grupo delphi-br. Arquivo : /FEBRABAN/Layout centralizado V4.3.pdf Carregado por : silvioprog silviop...@yahoo.com.br Descrição : Protesto de títulos. Você pode acessar o arquivo pela URL: http://br.groups.yahoo.com/group/delphi-br/files/FEBRABAN/Layout%20centralizado%20V4.3.pdf Para saber mais sobre compartilhamento de arquivos no grupo, leia: http://help.yahoo.com/help/br/groups/files Atenciosamente, silvioprog silviop...@yahoo.com.br
[delphi-br] Novo arquivo carregado em delphi-br
Olá, Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no grupo delphi-br. Arquivo : /FEBRABAN/Transmissão de arquivo de protesto.pdf Carregado por : silvioprog silviop...@yahoo.com.br Descrição : Layout de transmissão de arquivo de protesto. Você pode acessar o arquivo pela URL: http://br.groups.yahoo.com/group/delphi-br/files/FEBRABAN/Transmiss%80%A0%A6%E3o%20de%20arquivo%20de%20protesto.pdf Para saber mais sobre compartilhamento de arquivos no grupo, leia: http://help.yahoo.com/help/br/groups/files Atenciosamente, silvioprog silviop...@yahoo.com.br
[delphi-br] Novo arquivo carregado em delphi-br
Olá, Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no grupo delphi-br. Arquivo : /FEBRABAN/Layout padrão de débito automático v.4.pdf Carregado por : silvioprog silviop...@yahoo.com.br Descrição : Manual do débito automático - Versão 04. Você pode acessar o arquivo pela URL: http://br.groups.yahoo.com/group/delphi-br/files/FEBRABAN/Layout%20padr%80%A0%A6%E3o%20de%20d%80%A0%A6%E9bito%20autom%80%A0%A6%E1tico%20v.4.pdf Para saber mais sobre compartilhamento de arquivos no grupo, leia: http://help.yahoo.com/help/br/groups/files Atenciosamente, silvioprog silviop...@yahoo.com.br
[delphi-br] Novo arquivo carregado em delphi-br
Olá, Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no grupo delphi-br. Arquivo : /FEBRABAN/Layout padrão de débito automático v.5.pdf Carregado por : silvioprog silviop...@yahoo.com.br Descrição : Manual do débito automático - Versão 0.5. Você pode acessar o arquivo pela URL: http://br.groups.yahoo.com/group/delphi-br/files/FEBRABAN/Layout%20padr%80%A0%A6%E3o%20de%20d%80%A0%A6%E9bito%20autom%80%A0%A6%E1tico%20v.5.pdf Para saber mais sobre compartilhamento de arquivos no grupo, leia: http://help.yahoo.com/help/br/groups/files Atenciosamente, silvioprog silviop...@yahoo.com.br
[delphi-br] Novo arquivo carregado em delphi-br
Olá, Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no grupo delphi-br. Arquivo : /FEBRABAN/Layout Padrão FEBRABAN 240 posições V8.2.pdf Carregado por : silvioprog silviop...@yahoo.com.br Descrição : Intercâmbio de Informações entre Bancos e Empresas. Você pode acessar o arquivo pela URL: http://br.groups.yahoo.com/group/delphi-br/files/FEBRABAN/Layout%20Padr%80%A0%A6%E3o%20FEBRABAN%20240%20posi%80%A0%A6%E7%F5es%20V8.2.pdf Para saber mais sobre compartilhamento de arquivos no grupo, leia: http://help.yahoo.com/help/br/groups/files Atenciosamente, silvioprog silviop...@yahoo.com.br
[delphi-br] Novo arquivo carregado em delphi-br
Olá, Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no grupo delphi-br. Arquivo : /FEBRABAN/Layout de cancelamento de protesto v2.1.pdf Carregado por : silvioprog silviop...@yahoo.com.br Descrição : Cancelamento do protesto de títulos. Você pode acessar o arquivo pela URL: http://br.groups.yahoo.com/group/delphi-br/files/FEBRABAN/Layout%20de%20cancelamento%20de%20protesto%20v2.1.pdf Para saber mais sobre compartilhamento de arquivos no grupo, leia: http://help.yahoo.com/help/br/groups/files Atenciosamente, silvioprog silviop...@yahoo.com.br
[delphi-br] Novo arquivo carregado em delphi-br
Olá, Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no grupo delphi-br. Arquivo : /FEBRABAN/Layout de desistência de protesto v2.1.pdf Carregado por : silvioprog silviop...@yahoo.com.br Descrição : Desistência do protesto de títulos. Você pode acessar o arquivo pela URL: http://br.groups.yahoo.com/group/delphi-br/files/FEBRABAN/Layout%20de%20desist%80%A0%A6%EAncia%20de%20protesto%20v2.1.pdf Para saber mais sobre compartilhamento de arquivos no grupo, leia: http://help.yahoo.com/help/br/groups/files Atenciosamente, silvioprog silviop...@yahoo.com.br
[delphi-br] Novo arquivo carregado em delphi-br
Olá, Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no grupo delphi-br. Arquivo : /FEBRABAN/Arrecadação recebimento código de barras.pdf Carregado por : silvioprog silviop...@yahoo.com.br Descrição : Arrecadação/Recebimento com utilização do código de barras - Versão 04. Você pode acessar o arquivo pela URL: http://br.groups.yahoo.com/group/delphi-br/files/FEBRABAN/Arrecada%80%A0%A6%E7%E3o%20recebimento%20c%80%A0%A6%F3digo%20de%20barras.pdf Para saber mais sobre compartilhamento de arquivos no grupo, leia: http://help.yahoo.com/help/br/groups/files Atenciosamente, silvioprog silviop...@yahoo.com.br
[delphi-br] Re: Pegar o ID do registro incluído.
Ninguém tem uma solução para isto? 2009/5/27 Paulo Coutinho pa...@prsolucoes.com Olá, Alguém já conseguiu uma solução para pegar o ID do registro incluído com o DBX? -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com [As partes desta mensagem que não continham texto foram removidas]
