flavioavilela

boa noite galera... algo estranho está ocorrendo aqui... estou utilizando, para deletar um arquivo a seguinte forma: DeleteFile(ArqTemp); onde ArqTemp é 'C:\Windows\System32\Arquivo_Teste.txt'... se eu utilizo, colocando o ArqTemp entre ( ), ele não deleta o arquivo... se eu coloco entre ( ) o caminho completo, ele deleta... :o alguém sabe o que é isso??? desde já, obrigado a todos...

boa tarde a todos... alguém pode me dar uma ajuda em como fazer um relatório no quickreport, assim como está na imagem? Uploaded with ImageShack.us estou usando quickreport com sqlserver de banco com componente ado... desde já, obrigado a todos...

pois é, foi por isso que coloquei no título do tópico: certificado digital para testes de NFe... preciso de um certificado de teste para testar minha aplicação que emite Nfe... achei um chamado Associacao.psx, só que já expirou :blink: ...

bom, pelo que vi e sei, isso é certificado para e-mail, mas eu preciso de um certificado para testes de NF-e... :wacko:

ok, vou testar e volto com a resposta.. desde já, obrigado

bom dia a todos... alguém sabe me informar se há algum certificado digital para testar a NF-e...???

galera, descobri, é assim: ShowMessage(chr(Key))... assim, traz o texto da tecla pressiona e não seu código... um amigo de outro fórum me ajudou...

bom dia a todos... queria fazer o seguinte: quando o usuário pressionar o número 5 (VK_NUMPAD5), ao invés de trazer o VK_NUMPAD5, queria pegar o texto da tecla, no caso 5... tem como trazer apenas esse texto da tecla???

Boa noite a todos... tenho duas dúvidas e gostaria de sanar com vocês aqui do forum... 1- vou colocar meu sistema em rede... qual a diferença de puxar um atalho do .exe para a estação ou copiar o exe e outros arquivos para a estação? obvio, descartando a resposta de que se apenas puxar o exe, o sistema já fica atualizado nas estações rsrs... tipo, estou fazendo essa pergunta, pois já vi alguns sistemas funcionarem dessas duas formas, ou por atalho apenas ou copiando o exe nas estações... queria saber a diferença entre as duas.... 2- caso eu queira usar o método de copiar o exe pras estações, qual código utilizo, na inicialização do sistema para verificar se tem um exe atualizado no servidor para ser atualizado na estação???? desde já, agradeço a todos...

só pra complementar, estou usando delphi 2010 com windows 7...

eu já tentei com a função BlockInput só que não deu certo.... declarei a função e passo true quando quero bloquear e false quando quero desbloquear... não deu certo :wacko:

Bom dia a todos... alguém sabe como faço para bloquear todas as teclas do teclado, incluindo Alt+TAB, Ctrl+Alt+Del e todas as demais combinações??? desde já, obrigado...

entendi... eu tenho aqui sim, um cadastro do atleta, com, além de informações peculiares a cada atleta, o nome e a habilidade dele.... essa noite ou no mais tardar esse fim de semana vou mexer nisso, e volto com o resultado... e desde já, obrigado pela ajuda...

oi Micheus, obrigado por sua disponibilidade em me ajudar.... estou sim, mas, como você pode perceber, me desliguei um pouco desse projeto por não ter essas informações e essa ajuda que você me propôs... pois é, eu estou utilizando o sql server e, imagino eu que cada time formado, ele gravará no bd esse time pronto, uma tabela com o nome do jogador e o nome da equipe que ele foi........... e, só respondendo ao seu questionamento, é isso mesmo, o usuário vai escolher quantos ótimos, bons, ruins, totalizando a quantidade de jogadores do time..... mas ai, eu terei que ter duas tabelas? uma de equipes em formação e outra de equipes formadas????? desde já, obrigado pela atenção de todos...

ta bom, vou testar e já já retorno com a resposta... e desde já, obrigado...

boa tarde galera... estou precisando de uma forcinha aqui, para utilizar um IF ou um CASE, não sei, nunca precisei disso... estou fazendo essa consulta aqui e tudo está funcionando perfeitamente bem: select P.Codigo_Original, P.Codigo_Venda, P.Descricao, P.Valor_Compra, UM.Sigla, '); sql.add('sum(IP.Qtde) as total_vendido, ((sum(IP.Qtde) / :Dias_Uteis1) * :Dias_Uteis2) as previsao_venda, '); sql.add('((sum(IP.Qtde) / :Dias_Uteis3) * :Dias_Entrega1) as previsao_venda_entrega,'); sql.add('(sum(IP.Qtde) / :Dias_Uteis4) as media_diaria, P.Estoque, P.Estoque_Maximo, '); sql.add('(sum(IP.Qtde_Restante)) as pendente, (((sum(IP.Qtde) / :Dias_Uteis5) * :Dias_Entrega2) + P.Estoque_Maximo - P.Estoque) as sugestao from Produto P'); sql.add('inner join Unidade_Medida UM on (P.Codigo_Unidade_Medida = UM.Codigo)'); sql.add('inner join Itens_Pedido IP on (IP.Codigo_Produto = P.Codigo)'); sql.add('inner join Pedido Ped on(IP.N_Pedido = Ped.N_Pedido)'); sql.Add('where Ped.Data_Venda between :DI and :DF'); sql.add('group by P.Codigo_Original, P.Codigo_Venda, P.Descricao, P.Valor_Compra, UM.Sigla, P.Estoque, P.Estoque_Maximo'); só que: 1 dúvida - se ((sum(IP.Qtde) / :Dias_Uteis3) * :Dias_Entrega1) as previsao_venda_entrega for maior que P.Estoque então esse valor de ((sum(IP.Qtde) / :Dias_Uteis3) * :Dias_Entrega1) as previsao_venda_entrega passa a ser o de P.Estoque .... 2 dúvida - se P.Estoque < 0 então, na hora de gerar a consulta, ele deve ser desconsiderado.......... alguém pode ajudar???? Desde já, obrigado pela atenção e ajuda de todos..

boa tarde galera... estou precisando de uma forcinha aqui, para utilizar um IF ou um CASE, não sei, nunca precisei disso... estou fazendo essa consulta aqui e tudo está funcionando perfeitamente bem: select P.Codigo_Original, P.Codigo_Venda, P.Descricao, P.Valor_Compra, UM.Sigla, '); sql.add('sum(IP.Qtde) as total_vendido, ((sum(IP.Qtde) / :Dias_Uteis1) * :Dias_Uteis2) as previsao_venda, '); sql.add('((sum(IP.Qtde) / :Dias_Uteis3) * :Dias_Entrega1) as previsao_venda_entrega,'); sql.add('(sum(IP.Qtde) / :Dias_Uteis4) as media_diaria, P.Estoque, P.Estoque_Maximo, '); sql.add('(sum(IP.Qtde_Restante)) as pendente, (((sum(IP.Qtde) / :Dias_Uteis5) * :Dias_Entrega2) + P.Estoque_Maximo - P.Estoque) as sugestao from Produto P'); sql.add('inner join Unidade_Medida UM on (P.Codigo_Unidade_Medida = UM.Codigo)'); sql.add('inner join Itens_Pedido IP on (IP.Codigo_Produto = P.Codigo)'); sql.add('inner join Pedido Ped on(IP.N_Pedido = Ped.N_Pedido)'); sql.Add('where Ped.Data_Venda between :DI and :DF'); sql.add('group by P.Codigo_Original, P.Codigo_Venda, P.Descricao, P.Valor_Compra, UM.Sigla, P.Estoque, P.Estoque_Maximo'); só que: 1 dúvida - se ((sum(IP.Qtde) / :Dias_Uteis3) * :Dias_Entrega1) as previsao_venda_entrega for maior que P.Estoque então esse valor de ((sum(IP.Qtde) / :Dias_Uteis3) * :Dias_Entrega1) as previsao_venda_entrega passa a ser o de P.Estoque .... 2 dúvida - se P.Estoque < 0 então, na hora de gerar a consulta, ele deve ser desconsiderado.......... alguém pode ajudar???? Desde já, obrigado pela atenção e ajuda de todos...

boa noite a todos... não sei se estou postando no lugar certo e/ou se tem alguém que já trabalhou com isso, mas, vamos lá..... estou desenvolvendo um sistema de automação comercial, e na entrada de produtos, preciso de colocar o CFOP de cada produto na hora do lançamento da entrada de produtos, só que isso, automático, baseando-se se ele é um produto de entrada ou saida... pra fora do estado ou não e por ai vai.... me falaram para colocar isso no cadastro do produto, mas fiquei meio zuado e sem entender porque, levando-se em conta que existem N classificação para o CFOP e como o sistema saberá que aquele produto é o CFOP tal.... entendem??? alguém que já trabalhou com isso, pode ajudar??? desde já, agradeço a todos....

como assim? deletar o toolbar e os toolbuttons e fazer novamente??? ou deletar as imagens???

boa tarde a todos... miguei para o delphi 2010.. antes, estava no 2007... todas as minhas janelas eu utilizo uma toolbar com um toolbutton e no toolbutton uma imagem, para simbolizar os botões Novo, Salvar e tal.... no delphi 2010, eu consigo visualizar esse botão com a imagem apenas em design, quando rodo o programa, a toolbar(ou os botões (toolbuttons)) sei lá, não aparece, no lugar da barra fica tudo branco.... ai eu paro a execução, volto no form e estão lá a barra com os botões e tal.... alguém já passou por isso???

boa tarde a todos, fiz um controle de usuários e lá coloquei todos os itens dos menus que o usuário pode acessar ou não, e então, foi + - uns 100, cento e poucos campos que foi criado... quando eu dou um .close e .open na query que está ligado na tabela, demora uns 2, 3 segundos pra abrir e obvio essa "lentidão" pro usuário não pode ter né... alguém sabe o que fazer??

boa noite a todos... tenho um sistema que controla jogos de futebol e campeonatos.... no cadastro do atleta, tem lá o nível do camarada rsrs, Ótimo, Bom, Ruim. Ai, tem uma outra janela que é Gerar Equipe. Ai lá, tem pro usuário escolher quantos atletas terá aquela equipe e também o usuário escolhe quantos atletas Ótimos quer, quantos Bons e quantos Ruins, justamente pra não ficar uma equipe melhor que a outra. Como eu faço para gerar essas equipes, baseando-se no nível de cada atleta e na quantidade que o usuário marcou de cada nível e também não podendo repetir um atleta que já foi lançado numa equipe.... e isso tudo randomizado. alguém de habilita??? rsrsrs...

boa noite a todos... tenho duas dúvidas com o treeview... 1 - Como faço para, clicar por exemplo, num botão Marcar Todos e ele marcar todos os filhos de todos os pais, mas, não marcar os pais....???? 2 - Como faço para, ao marcar um pai, automaticamente marcar todos os seus filhos...???

agora deu certo, eu retirei o código da safra, ai funcionou.... obrigado a todos...

é meu amigo, não deu certo... vou postar o que fiz para os produtos... como já disse, tenho aqui uma tabela produtos, funcionários e máquinas... select PP.Codigo, PP.Codigo_Produto, PP.Codigo_Safra, Sum(PP.Preco_RS) as preco_rs, sum(PP.Preco_S) as preco_s, sum(PP.Qtde) as qtde, sum(PP.Sub_Total_Rs) as sub_total_rs, sum(PP.Sub_Total_S) as sub_total_s from Produtos_Plantio PP where PP.Codigo = :Codigo group by PP.Codigo_Produto, PP.Codigo, PP.Codigo_Safra ai na consulta, aparece os produtos tudo repetido... :blink: