Re: RES: [delphi-br] OFF - Assunto relacionado ao Projeto NFe Nacional
Bom dia... Vitor, você não sou interpretar o texto :( Não sou contra o projeto da NFe, apenas acredito que o formato de distribuição do XML é ineficiente, pois se o XML já na SEFAZ o mesmo poderia ser disponibilizado via WS para download Esse simples processo melhoraria em muito a vida das empresas, contadores e pessoal da TI. []'s Paulo Vitor Yahoo escreveu: Vou fazer um questionamento ao seu questionamento. Você realmente acha que o progresso (atrasado) tecnológico da receita federal deve parar porque tem alguns barnabés no Brasil que não tem e-mail? Quem não tem e-mail que faça! Quem não recebeu o xml que reclame! Bem simples, do meu ponto de vista. Outra coisa, questionar a NFe sob esse ponto de vista é muito inocente, sinceramente, já se o questionamento fosse quanto aos 9000% do seu dinheiro que você terá de pagar por causa da NFe, que é praticamente “insonegável” (ah não ser que os caras emitam pedidinhos por aí), aí eu concordo. _ De: delphi...@yahoogrup os.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi...@yahoogrup os.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Paulo Casagrande Enviada em: sexta-feira, 26 de março de 2010 12:08 Para: delphi...@yahoogrup os.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] OFF - Assunto relacionado ao Projeto NFe Nacional O texto abaixo é um pequeno manifesto que reflete a minha insatisfação, é possível que esse texto fique preso dentro desse grupo, mas com um pouco de esforço e divulgação podemos almejar algo melhor para todos. - Cordiais Saudações... Existem detalhes que servem apenas para complicar e eu não consigo entender o sentido de algumas exigências do projeto NFe Quando a NF era apenas em papel (não digital), o destinatário tinha acesso as informações no momento em que recebia a nota em seu estabelecimento. OK? Hoje além do DANFE devemos enviar o arquivo XML (que na realidade é a nota) para o destinatário. Aqui entra o meu questionamento: Se a nota já esta na SEFAZ porque devemos envia-la? Não seria muito mais fácil o destinatário entrar com a chave e baixar a NFe ou através de uma conexão com o Certificado Digital (que somos obrigados a comprar) o usuário acessaria uma área com todos os documentos emitidos contra ele? Ou ainda porque não desenvolvem um XML para baixar a NFe? Será que o pessoal do projeto Nacional não tem a visão de que nem todos os destinatários tem e-mail, ou/e de que nem todos os e-mails chegam aos destinatários, pode parecer incrível, mas tem pessoas no Brasil que nem sabe para que serve um computador. Ao exigir dos emitentes e destinatários a guarda do XML a SEFAZ, Receita etc, praticamente assinam um atestado de que são incompetentes e que não querem assumir o compromisso de ser o guardião dos documentos fiscais. Resumindo não confiam em seus próprios recursos. Sou contra a correntes e apologias na net, mas quem sabe com um pouco de união dos contadores e pessoal de TI, conseguimos pressionar os responsáveis pelas implementações do Projeto Nacional a ajustarem o modelo atual para um formato que permita apenas vantagens. Obrigado, Paulo Casagrande Publicado em 26/03/2010 - Grupo Projeto Cooperar NFe http://br.groups. http://br.groups. yahoo.com/ group/projeto_ cooperar_ nfe/messages http://br.groups.yahoo.com/group/projeto_cooperar_nfe/messages yahoo.com/group/ projeto_cooperar _nfe/messages [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] OFF - Assunto relacionado ao Projeto NFe Nacional
O texto abaixo é um pequeno manifesto que reflete a minha insatisfação, é possível que esse texto fique preso dentro desse grupo, mas com um pouco de esforço e divulgação podemos almejar algo melhor para todos. - Cordiais Saudações... Existem detalhes que servem apenas para complicar e eu não consigo entender o sentido de algumas exigências do projeto NFe Quando a NF era apenas em papel (não digital), o destinatário tinha acesso as informações no momento em que recebia a nota em seu estabelecimento. OK? Hoje além do DANFE devemos enviar o arquivo XML (que na realidade é a nota) para o destinatário. Aqui entra o meu questionamento: Se a nota já esta na SEFAZ porque devemos envia-la? Não seria muito mais fácil o destinatário entrar com a chave e baixar a NFe ou através de uma conexão com o Certificado Digital (que somos obrigados a comprar) o usuário acessaria uma área com todos os documentos emitidos contra ele? Ou ainda porque não desenvolvem um XML para baixar a NFe? Será que o pessoal do projeto Nacional não tem a visão de que nem todos os destinatários tem e-mail, ou/e de que nem todos os e-mails chegam aos destinatários, pode parecer incrível, mas tem pessoas no Brasil que nem sabe para que serve um computador. Ao exigir dos emitentes e destinatários a guarda do XML a SEFAZ, Receita etc, praticamente assinam um atestado de que são incompetentes e que não querem assumir o compromisso de ser o guardião dos documentos fiscais. Resumindo não confiam em seus próprios recursos. Sou contra a correntes e apologias na net, mas quem sabe com um pouco de união dos contadores e pessoal de TI, conseguimos pressionar os responsáveis pelas implementações do Projeto Nacional a ajustarem o modelo atual para um formato que permita apenas vantagens. Obrigado, Paulo Casagrande Publicado em 26/03/2010 - Grupo Projeto Cooperar NFe http://br.groups.yahoo.com/group/projeto_cooperar_nfe/messages
Re: [delphi-br] Projeto ACBrNFe. Mais dúvidas.
2- Sem usar o PCN consigo gerar o XML? Sim, Você pode gerar o xml sem utilizar o PCN. O PCN traz as seguintes vantagens quanto a geração do xml, segue abaixo algumas delas. * Ajustar a TagNro quando tamanho menor que 3 caracteres. * Normatizar o nome dos municípios conforme a tabela do IBGE. * Substituir caracteres inválidos na gravação do xml. * Suprimir Zeros não significativos em decimais. * Retirar espaços em branco duplicados. * Validar as Inscrições Estaduais. * Validar CNPJ e CPF * Validar o código da UF. * Validar o código do município. * Validar o código do país. * Validar o código da Lista de Serviços. * Validar a chave da NFe. * Validar periodo AAMM. * Validar Modelo. * Validar sigla da UF. * Permite identificar erros antes mesmo da validação pelo schema * Usa a nomenclatura definida no manual do SEFAZ * Incorpora a gravação do formato TXT []'s Paulo
[delphi-br] OFF - Opção para geração arquivo NFe em Delphi/Pascal
Bom dia a todos... A quem possa interessar. Grupo Open Source para desenvolvimento dos arquivos XML(*) do projeto da NFe em Delphi/pascal. Os trabalhos estão bastante avançados e alguns membros já o utiliza em produção. http://br.groups. yahoo.com/ group/projeto_ cooperar_ nfe/ []'s Paulo (*) O objetivo é apenas a geração e a leitura, WS e DANFE não fazem parte do escopo.
[delphi-br] Inscrição Suframa
Bom dia a todos... Alguém tem o código que valida a Inscrição Suframa? ou a formula? Por favor poste aqui ou envie para projetocooperar@ zipmail.com. br Obrigado
Re: [delphi-br] NFe
http://br.groups.yahoo.com/group/projeto_cooperar_nfe/ Olá Pessoal, bom dia. Alguém saberia informar se existe um grupo de discussão sobre nota fiscal eletrônica com Delphi? automacaototal- subscribe@ yahoogrupos. com.br mailto:automacaototal-subscribe%40yahoogrupos.com.br Joao Morais
[delphi-br] [OFF] Convite
Boa tarde a todos... - Já é do conhecimento de alguns aqui do DelphiBR a sobre existência do do grupo (http://br.groups.yahoo.com/group/projeto_cooperar_nfe) aqui mesmo no yahoo. - O grupo tem por objetivo desenvolver um classe (em delphi) para a gravação e leitura dos xml da NFe. - Caso alguém se interesse por projetos Open Source e quiser participar é só se inscrever no grupo (e ajudar). Obrigado.
Re: [delphi-br] nfe
| Jancarlos Martins escreveu: | Ja existe uma solucao open-source, desenvolvida em .Net que envia XML, | valida e certifica, a unica coisa que tem q desenvolver é o xml. Esse aqui pretende apenas desenvolver o xml ( www.projetocooperar.org/nfe )
[delphi-br] Carregar texto quando compila?
Bom dia a todos... Estou criando uma classe e tenho a necessidade de trabalhar com um arquivo texto. Até hoje eu fiz assim: ... Texto: TstringList; begin Texto := TstringList.create; Texto.add(' nonononononononon ' ); Texto.add(' nonononon ' ); Texto.add(' nonononononon ' ); Texto.add(' nonononon ' ); ... Mas é pouco produtivo e não quero carregar o texto em run time (Texto.loadFrom) Minha pergunta: Tem como eu criar o texto e deixar em um txt e quando eu compilar a aplicação ele importa esse texto todo para o TStringList? Ou existe algum semelhante ao TEXT ENDTEXT do clipper (acho que era isso) que criava um bloco com o texto? []'s
Re: Res: [delphi-br] Carregar texto quando compila?
A sua dica já foi meio caminho andado :) Criei um *.RES com o brcc32.exe - OK mas agora estou com dificuldade para carregar do res para Stream para depois do Stream para TstringList :( Dá Abstract Error na linha conforme abaixo... {$R TEXTO.RES} constructor TcNFeINU.Create; var Res: TResourceStream; xyz: TStream; begin inherited Create; Fmodelo := TStringList.create; xyz := TStream.create; Res := TResourceStream.Create(Hinstance, 'TEXTO', 'TXTFILE'); // Até aqui foi beleza Res.SaveToStream(xyz); // Nessa linha da Abstract Error Fmodelo.LoadFromStream(xyz); Res.Free; xyz.Free; end; PS: Testei com REs.SaveToFile e gravou beleza ( mas não é isso que eu quero.) Não me lembro a sintaxe, mas você pode usar diretivas de compilação para isso. Da mesma que em um TForm você tem a diretiva {$R *.DFM} Pesquise sobre isso. Luciano Calenzani Simões Bom dia a todos... Estou criando uma classe e tenho a necessidade de trabalhar com um arquivo texto. Até hoje eu fiz assim: ... Texto: TstringList; begin Texto := TstringList. create; Texto.add(' nonononononononon ' ); Texto.add(' nonononon ' ); Texto.add(' nonononononon ' ); Texto.add(' nonononon ' ); ... Mas é pouco produtivo e não quero carregar o texto em run time (Texto.loadFrom. ...) Minha pergunta: Tem como eu criar o texto e deixar em um txt e quando eu compilar a aplicação ele importa esse texto todo para o TStringList? Ou existe algum semelhante ao TEXT ENDTEXT do clipper (acho que era isso) que criava um bloco com o texto? []'s
Re: Res: [delphi-br] Carregar texto quando compila? [RESOLVIDO]
RESOLVIDO Res := TResourceStream. Create(Hinstance , 'TEXTO', 'TXTFILE'); // Até aqui foi beleza Res.SaveToStream( xyz); // Nessa linha da Abstract Error Fmodelo.LoadFromStr eam(xyz); res já é um stream, utilize-o ao invés do xyz. Realmente é... ...eu devia ter testado antes de postar :) Obrigado a todos...
[delphi-br] Grupo sobre a NFe
Bom dia a todos... Foi criado um grupo especifico para desenvolvimento de componentes, DLL etc em Delphi. Caso alguém queira participar deixo o endereço abaixo: http://br.groups.yahoo.com/group/nfe_nota_fiscal_eletronica/ []'s
[delphi-br] Inscrição Estadual
Boa tarde a todos... Para aqueles que utilizam o algoritmo para validação de IE (que eu disponibilizei no link abaixo) Informo que é necessário baixar a nova versão; ela foi ajustada para validar a nova inscrição de PE [] http://cincobytes.net/funcao-para-validar-inscricao-estadual-ie-de-todos-os-estados/ PS: dentro do possível peço para que realizem testes de validação.
Re: [delphi-br] Assinatura digital do arquivo eletrônico NFPaulista
Bom dia! Talvez isso ajude... http://cincobytes.net/como-utilizar-o-lockbox-para-gerar-ead-cat-52-delphi/ dangra2008 escreveu: Alguém tem uma dica de como fazer essa assinatura digital? Entendi que se deve usar o MD5 nos arquivos (exceto no que deve conter a assinatura digital), mas tem passos posteriores de criptografia que não entendi. Graça No virus found in this incoming message. Checked by AVG. Version: 7.5.524 / Virus Database: 269.24.3/1472 - Release Date: 29/05/2008 07:27
Re: [delphi-br] sistema em rede
Você pode usar o MS Terminal Server :) Bom dia pessoal, Alguém pode ajudar com uma dúvida. Tenho um sistema que funciona como client/server, até ai tudo bem ele funciona perfeitamente na rede, mas tenho que usar esse sistema em lojas separada. Ex: Uma loja está a 100 km de distância da outra. Como posso fazer isso?
Re: [delphi-br] Classe para Nota Fiscal
A alguns anos atrás eu até entraria de cabeça em uma classe desta. Mas hoje, a tendencia será a NFe. Será que compensa investir o tempo em uma classe que está fadada a morrer? Pense nisso []Os Joel A proposta é de uma classe para o calculo dos Impostos de uma NF. Sobre a utilização desse resultados: Imprimir ou Enviar via XML vai depender das circunstâncias. Se houver a possibilidade de trabalhar em cima do layout da NFe, pode ser melhor ainda. []
Re: [delphi-br] Desenvolvimento em Equipe
Você esta se referindo ao 3Q1POC? http://www.janelanaweb.com/digitais/gomiero7.html Vinicius, Seu problema é mais administrativo do que efetivamente digital. Existe um método muito eficiente que se chama regra dos porquês. À primeira vista parece meio idiota, mas se vc adotá-lo em sua empresa, em menos de 5 perguntas vc resolve seu problema. []Os Joel
[delphi-br] Classe para Nota Fiscal
Outro dia comentei sobre a idéia de fazer uma classe para calculo dos imposto de um nota fiscal. Disponibilize o espaço abaixo: http://cincobytes.net/classenota/ Conto com a ajuda de todos... Obrigado
Re: [delphi-br] Tecla TAB
Bom dia a todos... Onde você quer fazer isso: A) Toda a aplicação. B) Apenas uns forms. C) Apenas em alguns componentes. Sugestão: A maneira mais simples seria através do keyDown identifique se foi teclado um TAB e retorne um 0 no lugar. [] Boa noite a todos. Eu gostaria de bloquear a tecla TAB, eu queria que esta tecla não faça nada. Deltalhe, sem passar para false os TabStops dos componentes. Obrigado
Re: [delphi-br] Diferença entre TXT e UTF-8
veja em www.cincobytes.net com fazer RM Jr (uol) escreveu: Para a NF-Paulista o arquivo a ser gerado, ref. nf’s mod. 1-A, deve estar no formato “Text Encoding = UTF-8” (cf. portaria CAT-102/07). Qual a direrença entre um arquivo TXT e esse UTF-8 ? (que também é TXT !) Dival Zambon Junior Quirius Sistemas de Informática Ltda [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG. Version: 7.5.524 / Virus Database: 269.23.3/1393 - Release Date: 23/04/2008 08:12 -- 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: [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Diferença entre TXT e UTF-8
Paulo Casagrande escreveu: veja em www.cincobytes.net com fazer Para ser mais especifico http://cincobytes.net/erro-ao-validar-arquivo-cat-102-converter-para-utf8-ansitoutf8/ RM Jr (uol) escreveu: Para a NF-Paulista o arquivo a ser gerado, ref. nf’s mod. 1-A, deve estar no formato “Text Encoding = UTF-8” (cf. portaria CAT-102/07). Qual a direrença entre um arquivo TXT e esse UTF-8 ? (que também é TXT !) Dival Zambon Junior Quirius Sistemas de Informática Ltda [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG. Version: 7.5.524 / Virus Database: 269.23.3/1393 - Release Date: 23/04/2008 08:12 -- 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: [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Para Paulo Cassagrande
Marcos Infelizmente estive ausente nesse período; espero que você tenha encontrado uma solução para o seu problema não dependendo exclusivamente com a minha ajuda. :) Um abraço. PS: Observei que é trabalho de escola, assim sendo, pelo que eu sei, normalmente os professores dão primeira a matéria, depois pedem um trabalho; vai ver que você precisou faltar a aula nesse dia, procure com algum colega a aula perdida, pode ser que esteja lá a resposta que você procura. Paulo percebi que nunca são 4 espaço, podem ser 3 ou ate 5, mas que o ip´s vem sempre antes de TCP, isto não ajuda ? veja abaixo ? olha só, também tenho que pegar estes campos que estão em vermelho blz ? web-proxy,debug, packet 1208372932.554 1117 10.5.50.142 TCP_MISS/206 19832 GET http://au.download. windowsupdate. com/msdownload/ update/v3- 19990518/ cabpool/windowsx p-kb890859- x86-express- ptb_c5bcf7fb51b5 4d8b920cdf7e6eb3 ef7988aaacf8. exe http://au.download.windowsupdate.com/msdownload/update/v3-19990518/cabpool/windowsxp-kb890859-x86-express-ptb_c5bcf7fb51b54d8b920cdf7e6eb3ef7988aaacf8.exe - DIRECT/68.142. 101.229 application/ octet-st in 16-Apr 19:10:48.17 from 10.5.50.145 web-proxy,debug, packet 1208372932.775 13 10.5.50.18 TCP_HIT/200 3389 GET http://ego.globo. com/Portal/ cda/estilo_ css_cda/0, ,6328,00. css http://ego.globo.com/Portal/cda/estilo_css_cda/0,,6328,00.css - NONE/- text/css in 16-Apr 19:10:48.39 from 10.5.50.145 web-proxy,debug, packet 1208372932.903 0 10.5.50.18 TCP_HIT/200 591 GET http://assinaturasm s.globo.com/ Portal/globocelu lar/js/retorno. js http://assinaturasms.globo.com/Portal/globocelular/js/retorno.js - NONE/- application/ x-javascript in 16-Apr 19:10:48.51 from 10.5.50.145 web-proxy,debug, packet 1208372931.251 63 10.5.50.18 TCP_HIT/200 390 GET http://www.globo. com/ImageShow/ 0,,120949, 00.gif http://www.globo.com/ImageShow/0,,120949,00.gif - NONE/- image/gif in 16-Apr 19:10:46.86 from 10.5.50.145 web-proxy,debug, packet 1208372931.879 4055 10.5.50.90 TCP_MISS/404 515 GET ttp://www2.consorci ocontauto. com.br/favicon. ico ttp://www2.consorciocontauto.com.br/favicon.ico - DIRECT/201.30. 222.65 text/html in 16-Apr 19:10:47.50 from 10.5.50.145 Cara e que sou leigo no Delphi e preciso fazer este trabalho velho. Blz ?
[delphi-br] Classe para emissão de nota fiscal
Bom dia a todos... Pretendo desenvolver uma classe para calculo dos impostos de uma nota-fiscal e depois disponibilizar de maneira free para quem quiser, vou disponibilizar um espaço para download depois :) Seria um TNota (mestre) para os totalizados e TItens (detalhes) para os totais dos itens. Ainda não sei muito bem o que usar para fazer isso: Array, TRecord, TCollection, TStringList etc... O que estou pedindo... 1) Ajuda para decidir qual seria o melhor método a ser utilizado. 2) Se possível... algum exemplo de algo semelhante ao que quero fazer. 3) Troca de informações não só a nível de programação mas também a nível contábil. 4) Caso alguém já tenha isso pronto; se puder me envie, não pretendo copiar mas seria uma boa referencia. 5) Qualquer tipo de ajuda é bem vinda Um abraço.
Re: [delphi-br] Classe para emissão de nota fiscal
Ricardo Mendes escreveu: Boa Tarde Paulo, Boa tarde Eu acho interessante ter uma classe meio que generica para padronização de nota fiscal... Detalhe é que se o seu sistema for utilizar impressão de nota, vc vai ter que homologa-lo na receita do estado que tiver A idéia inicial não contempla a emissão da nota-fiscal, mas apenas uma classe para o calculo dos impostos. Além disso é importante verificar tbem o arquivo que deve ser encaminhando para a receita em formato txt... Aqui cada um faria de acordo com as suas necessidades e particularidades de cada estado Aki na empresa foi feito homologação de nota fiscalé claro que foi feito de acordo com as necessidades, mas posso dar uma ajuda de como montar a nota tbem... Muito obrigado, vou precisar .
Re: [delphi-br] Classe para emissão de nota fiscal
Ricardo César Cardoso escreveu: Boa tarde Paulo! Boa tarde! Idéia legal a sua... e bastante útil, na verdade. E espero que possa ajudar a muitas pessoas :) Exemplos de como fazer acredito que vc encontre na própria página de downloads ( arquivos ) do grupo. Ok Não conheço muito ( pra não dizer quase nada ) de contabilidade, Acredito que a parte mais complicada é essa mesmo devido a diversidade de opiniões e interpretações. mas acho que posso dar uns pitacos quanto aos requisitos técnicos. Sua ajuda será bem-vinda obrigado.
Re: [delphi-br] Capturar texto ... urgente socorro...
Bom dia... if pos('10. 5.50.',List[ i]) 0 then s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) else s := copy(List[i] ,pos('192.168.',List[ i]),maxInt); ip := copy(s, 1, pos( ' ', s)-1); s := copy(s,pos(' GET',s)+3, maxint); url := copy(s, 1, pos( '- DIRECT', s)-1); s := copy(s,pos(' in ',s)+4,maxint) ; data := copy(s, 1, pos( ' ', s)-1); Hora := copy(s,pos(' ',s)+1,8); Boa sorte! Paulo so teve um prob. nem todos os ips so 10.5.50.* podem ser 192.168.254. * e ai como fica esta linha abaixo s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ; so para lembrar da linha web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556 GET http://go.microsoft .com/fwlink/ ? web-proxy,debug, packet 1206551497.262 921 192.168.254. 101 TCP_MISS/302 556 GET http://go.microsoft .com/fwlink/ ? Cara Valeu mesmo por sua ajuda.
Re: [delphi-br] algumas dúvidas sobre SUM( ) e GROUP BY...
Bom dia... Você pode fazer isso através de uma PROCEDURE selecionável do lado servidor :) Um abraço! Olá pessoal, bom dia, estou com um probleminha aqui. Suponha que tenho 1 tabela com os campos: ID, NUMERO, NOME, SALARIO. Quero fazer a seguinte consulta: no resultado tem que aparecer todos esses campos + um campo indicando o total de salario de acordo com o NUMERO, mas não deve ser agrupado o campo NUMERO, ou seja, para cada registro que tiver o mesmo NUMERO deve aparecer nos resultados com o campo TOTAL DE SALARIOS armazenando o total de salários daquele NUMERO. EXEMPLO: a resposta poderia ser como essa: ID | NUMERO | NOME | SALARIO | TOTALSALARIOS | 1 | 1 | a | 1.00 | 3.00 | 2 | 1 | b | 2.00 | 3.00 | 3 | 2 | c | 5.00 | 5.00 | É possível néh, mas como ? Alguém me ajuda ? Obrigado pela atenção de todos. Flávio.
Re: [delphi-br] Capturar texto ... urgente socorro...
Paulo, em primeiro lugar bom dia... Cara de coração obrigado mesmo pela ajuda. mas veja bem o íp eu quiz dizer que pode começar com alguer numero entendeu e ai, como eu faria ? 191 200.. 20.. 45... entendeu ? Bom dia novamente... Observe que o Ip que você quer vem após 4 espaços em branco web-proxy,debug, packet 1206551497.262 921 10.5.50.2... web-proxy,debug, packet 1206551497.268 925 10.5.50.2... web-proxy,debug, packet 1206551498.304 962 10.5.50.2... assim sendo... s := copy(List[i], pos(' ',List[ i])+1,maxInt); s := copy(s, pos(' ',s)+1,maxInt); s := copy(s, pos(' ',s)+1,maxInt); s := copy(s, pos(' ',s)+1,maxInt); ip := copy(s, 1, pos( ' ', s)-1); s := copy(s,pos(' GET',s)+3, maxint); url := copy(s, 1, pos( '- DIRECT', s)-1); s := copy(s,pos(' in ',s)+4,maxint) ; data := copy(s, 1, pos( ' ', s)-1); Hora := copy(s,pos(' ',s)+1,8); PS: Não testei.
Re: [delphi-br] Numeros Aleatórios não Al eatórios
Bom dia... var s:string; i:integer; begin s:=''; while length(s)10 do begin i:=randon(0,9); Não me lembro se é assim que se usa if pos(intToSt(i),s)=0 then s:=s+intToSt(i)+ '-'; end; end; Um abraço! Galera, para desenvolver um soft que preciso, tive que aprender a usar o random e o randomize, só que tem coisa errada no meu projeto. Fiz um simplesinho, que me gerasse 10 numeros aleatórios, de 0 a 9, só que ele repeti os numeros, tipo fica 2-2-1-3-5-4- 6-7-9-8, algo assim. Já coloquei o randomize, e não resolveu, daí pensei que fosse pq estava fora do loop, coloquei o randomize dentro do loop e nada. Esse randomize realmente funciona ou é mais uma lorota da CodeGear ?!?!? Abraço, quem quizer o prj me passe o email que envio, está simples, simples, era só para eu aprender como usar o random, mas o randomize está me tirando. Grato. Tiago de Assis Pimenta MSN: tiagopimenta@ hotmail.com mailto:tiagopimenta%40hotmail.com Email: tiagopimenta@ gmail.com mailto:tiagopimenta%40gmail.com [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG. Version: 7.5.524 / Virus Database: 269.23.0/1382 - Release Date: 16/04/2008 17:34
Re: [delphi-br] Capturar texto ... urgente socorro...
Bom dia... 1) Fiz de cabeça! 2) Não testei! 3) Os ajuste é com você! 4) Okay ? s := copy(linha[i],pos('10.5.50.',linha[i]),maxInt); ip := copy(s, 1, pos( ' ', s)-1); s := copy(s,pos('GET',s)+3,maxint); url := copy(s, 1, pos( '- DIRECT', s)-1); s := copy(s,pos(' in ',s)+4,maxint); data := copy(s, 1, pos( ' ', s)-1); Hora := copy(s,pos(' ',s)+1,8); Boa sorte ex. tenho um arquivo txt conforme abaixo web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556 GET http://go.microsoft .com/fwlink/ ? http://go.microsoft.com/fwlink/? - DIRECT/64.4. 52.189 text/html in 26-Mar 17:13:3.71 from 10.5.50.1 web-proxy,debug, packet 1206551497.268 925 10.5.50.2 TCP_MISS/302 550 GET http://go.microsoft .com/fwlink/ ? http://go.microsoft.com/fwlink/? - DIRECT/64.4. 52.189 text/html in 26-Mar 17:13:3.72 from 10.5.50.1 web-proxy,debug, packet 1206551498.304 962 10.5.50.2 TCP_CLIENT_REFRESH_ MISS/304 171 GET http://www.microsof t.com/brasil/ technet/rss/ rss.xml http://www.microsoft.com/brasil/technet/rss/rss.xml - DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1 web-proxy,debug, packet 1206551498.312 969 10.5.50.2 TCP_MISS/304 168 GET http://www.microsof t.com/brasil/ msdn/rss/ rss.xml http://www.microsoft.com/brasil/msdn/rss/rss.xml - DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1 preciso pegar os seguintes campos e salva-los em uma tabela ficando + ou - assim ex. 1 linha do arquivo acima campo ip campo - 10.5.50.2 ur - http://go.microsoft .com/fwlink/ ? http://go.microsoft.com/fwlink/? Campo data - 26-Mar Campo hora - 17:13:3.71 e assim ate o fim do arquivo.. alguem poderia me da uma rotina que faça isto ? ja me falaram pos copy so que reparem que nada começa numa mesma posição mas preciso de ex. mais basico Desde ja fico muito grato com qualquer ajuda.
Re: [delphi-br] Capturar texto ... urgente socorro...
Claudio Marconi escreveu: no cole o arquivo na mensagem, mande como anexo mesmo em formato txt. em arquivo separado. tendeu ? Não! Não colei nada apenas respondi a pergunta. Se foi alguma coisa colada é por conta da configuração do Thunderbird :) Bom dia... 1) Fiz de cabeça! 2) Não testei! 3) Os ajuste é com você! 4) Okay ? s := copy(linha[i] ,pos('10. 5.50.',linha[ i]),maxInt) ; ip := copy(s, 1, pos( ' ', s)-1); s := copy(s,pos(' GET',s)+3, maxint); url := copy(s, 1, pos( '- DIRECT', s)-1); s := copy(s,pos(' in ',s)+4,maxint) ; data := copy(s, 1, pos( ' ', s)-1); Hora := copy(s,pos(' ',s)+1,8); Boa sorte
Re: [delphi-br] Capturar texto ... urgente socorro...
var list: TStringList; i : integer; // declara as outra variaveis begin list := TStringList.Create; list.LoadFromFile( 'C:\meuarquivo.log'); for i := 0 to list.count - 1 do begin // executa a captura dos dados // Grava no arquivo end; // Quando ele sair do loop, acabou o arquivo! end; Valeu Paulo prob. quase resolvido. agora preciso percorer o aquivo txt ate o final gravando cada campo em um banco de dados como posso fazer isto e o sistema me avisar que ja compretou chegou a ultima linha ? Atenciosamente Marcos Diirr Bom dia... 1) Fiz de cabeça! 2) Não testei! 3) Os ajuste é com você! 4) Okay ? s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ; ip := copy(s, 1, pos( ' ', s)-1); s := copy(s,pos(' GET',s)+3, maxint); url := copy(s, 1, pos( '- DIRECT', s)-1); s := copy(s,pos(' in ',s)+4,maxint) ; data := copy(s, 1, pos( ' ', s)-1); Hora := copy(s,pos(' ',s)+1,8); Boa sorte ex. tenho um arquivo txt conforme abaixo web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556 GET http://go.microsoft .com/fwlink/ ? http://go.microsoft .com/fwlink/ ? http://go.microsoft.com/fwlink/? - DIRECT/64.4. 52.189 text/html in 26-Mar 17:13:3.71 from 10.5.50.1 web-proxy,debug, packet 1206551497.268 925 10.5.50.2 TCP_MISS/302 550 GET http://go.microsoft .com/fwlink/ ? http://go.microsoft .com/fwlink/ ? http://go.microsoft.com/fwlink/? - DIRECT/64.4. 52.189 text/html in 26-Mar 17:13:3.72 from 10.5.50.1 web-proxy,debug, packet 1206551498.304 962 10.5.50.2 TCP_CLIENT_REFRESH_ MISS/304 171 GET http://www.microsof t.com/brasil/ technet/rss/ rss.xml http://www.microsof t.com/brasil/ technet/rss/ rss.xml http://www.microsoft.com/brasil/technet/rss/rss.xml - DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1 web-proxy,debug, packet 1206551498.312 969 10.5.50.2 TCP_MISS/304 168 GET http://www.microsof t.com/brasil/ msdn/rss/ rss.xml http://www.microsof t.com/brasil/ msdn/rss/ rss.xml http://www.microsoft.com/brasil/msdn/rss/rss.xml - DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1 preciso pegar os seguintes campos e salva-los em uma tabela ficando + ou - assim ex. 1 linha do arquivo acima campo ip campo - 10.5.50.2 ur - http://go.microsoft .com/fwlink/ ? http://go.microsoft .com/fwlink/ ? http://go.microsoft.com/fwlink/? Campo data - 26-Mar Campo hora - 17:13:3.71 e assim ate o fim do arquivo.. alguem poderia me da uma rotina que faça isto ? ja me falaram pos copy so que reparem que nada começa numa mesma posição mas preciso de ex. mais basico Desde ja fico muito grato com qualquer ajuda.
Re: [delphi-br] String X pChar
wPrimLetra := 'A'; ShowMessage( IntToStr( Ord( wPrimLetra )) ); Caros, Estou tentando retornar o código ASCII de uma letra: wPrimLetra := 'A'; ShowMessage( IntToStr( Ord( pchar( wPrimLetra ))) ); Mas dá o seguinte erro: [Error] UnitCadPlacas. pas(742): E2008 Incompatible types. Alguém poderia me ajudar? sds Adjalma
Re: [delphi-br] Função que retorna nú mero de linhas de TXT
Bom dia a todos... result := sCount-1; // é melhor mas no seu código... S.LoadfromFile( arquivo.txt) TOTLINHAS := 0; Faltou isso aqui for x=0 to s.Count -1 do Inc(TOTLINHAS) Hrq48 iG escreveu: Eu fiz assim: S.LoadfromFile( arquivo.txt) for x=0 to s.Count -1 do Inc(TOTLINHAS) mas retorna um valor muito esquisito 1233488795 (???) Grato - Original Message - From: Jackson Gomes - ToolsComps To: [EMAIL PROTECTED] os.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, April 14, 2008 5:21 PM Subject: Re: [delphi-br] Função que retorna número de linhas de TXT Como posso obter o número total de linhas de um arquivo TXT ? (arquivo.txt) Carregue pra memória com um TStringList e veja o Count do objeto (use count-1) Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsand comps.com http://www.toolsandcomps.com Nosso Fórum: http://groups. yahoo.com/ group/toolsandco mps http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] ps.com mailto:jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 - - - - - - Devhost - Webhost para desenvolvedores Borland http://www.devhost. com.br http://www.devhost.com.br [EMAIL PROTECTED] com.br mailto:devhost%40devhost.com.br [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.12/1372 - Release Date: 10/04/2008 17:36
Re: [delphi-br] Como Fazer Perguntas Inteligentes
Concordo com o seu post! Seria impossível não concordar :) Mas... se o local foi criado especificamente para que pessoas formulem as suas perguntas qual o problema dela ser básica? Agora só falta umas dicas de como responder com inteligência as perguntas formuladas! Deixo uma frase para nossa reflexão: Um homem só tem o direito de olhar a um outro de cima para baixo, quando vai ajuda-lo a levantar-se. Gabriel Garcia Marquez VALE A PENA LER... Introdução No mundo dos hackers, o tipo de resposta que você obtém as suas perguntas técnicas depende muito mais de como você faz a pergunta do que da dificuldade em preparar a resposta. Este guia ensinará a você como fazer perguntas do jeito mais indicado para conseguir uma resposta satisfatória. Agora que o uso do open source está bastante difundido, é mais comum você encontrar respostas de outros usuários, mais experientes, do que dos hackers. Isto é uma Coisa Boa: usuários tendem a ser um pouco mais tolerantes com os tipos de problemas que os novatos enfrentam. E ainda, tratar estes usuários como hackers, da maneira como recomendamos aqui é, geralmente, a maneira mais efetiva de conseguir respostas úteis deles também. A primeira coisa que você deve saber é que hackers realmente gostam de problemas difíceis e questões boas e intrigantes sobre estes problemas. Senão, nós não estaríamos aqui. Se você nos der uma questão interessante para mastigar nós ficaremos gratos à você; boas perguntas são um estímulo e um presente. Boas perguntas nos ajudam a desenvolver nosso entendimento, e freqüentemente revela problemas que não conhecíamos ou sobre os quais nunca pensamos. Entre hackers, boa pergunta é um forte e sincero elogio. Apesar disso, hackers têm a reputação de encarar perguntas simples com arrogância e hostilidade. De vez em quando aparentamos ser rudes com novatos e ignorantes. Mas isto não é verdade. Nós somos, sim, hostis com pessoas que não querem pensar nem fazer seu dever de casa antes de fazer perguntas. Pessoas assim são dissipadoras de tempo - elas pegam e não devolvem, elas desperdiçam tempo que pode ser usado em questões de gente que que merece uma resposta. Nós chamamos pessoas assim de losers (e por uma razão histórica, algumas vezes grafamos como lusers). N.T.: Luser é um trocadilho com as palavras user (usuário) e loser (perdedor, otário). Nós percebemos que existem muitas pessoas que querem apenas usar os softwares que escrevemos e não têm nenhum interesse em aprender detalhes técnicos. Para muitas pessoas, um computador é apenas uma ferramenta, um meio para um fim; eles têm coisas mais importantes para fazer nas suas vidas. Nós reconhecemos isso e não esperamos que todos tenham interesse nas questões técnicas que nos fascinam. Entretanto, nosso estilo de resposta é ajustado para aqueles que possuem este tipo de interesse e que desejam participar da solução de problemas. Isto não vai mudar. Nem deveria; se isso acontecesse, nós nos tornaríamos menos eficazes naquilo que sabemos fazer de melhor. Nós somos (na maioria dos casos) voluntários. Nós reservamos um tempo nas nossas ocupadas vidas para responder perguntas e, às vezes, ficamos sobrecarregados delas. Então nós as filtramos sem dó nem piedade. Em particular, nós jogamos fora questões de pessoas que aparentam ser losers, para que possamos gastar nosso tempo de forma mais eficiente, em questões de winners. (N.T.: vencedores) Se você acha essa atitude condenável ou arrogante, reveja seus conceitos. Nós não estamos pedindo que se curve diante de nós - na verdade, o que muitos de nós mais queremos é tratá-lo como igual e recebê-lo em nossa cultura, se você fizer o esforço necessário para que isso seja possível. Mas é simplesmente inútil para nós tentar ajudar pessoas que não estão dispostas a ajudar a si mesmas. Tudo bem ser ignorante; mas não é legal bancar o estúpido. Portanto, mesmo que não seja necessário ser tecnicamente competente para receber nossa atenção, você precisa apresentar atitudes que te levem a esta competência - mostrar-se preparado, atencioso, observador e disposto a ser um participante ativo no desenvolvimento de soluções. Se você não suporta este tipo de discriminação, sugerimos que você pague a alguém por um suporte comercial ao invés de pedir ajuda através de doações de hackers. Se você decidir vir até nós para pedir ajuda, você não quer ser um perdedor. Você não quer nem se parecer com um perdedor. A melhor maneira de conseguir uma resposta rápida e precisa é perguntar como uma pessoa que possui confiança, inteligência e dicas, e que precisa de ajuda em um problema bem específico. Antes de perguntar Antes de fazer uma pergunta por email, em um newsgroup ou em um fórum na web, faça o seguinte: 1.. Tente achar uma reposta pesquisando na Web. 2.. Tente achar uma reposta lendo o
Re: [delphi-br] Re: Nota fiscal Eletrônica.
Bom dia a todos... Componentes que ajudam no processo da NFe achei foram: TurboPower LockBox (Free, porem nao consigo carregar meu certificado digital) Dificuldades com o LockBox!? Post o trecho do código que se refere ao LockBox ou me envie por e-mail. Quem sabe!? posso te ajudar :)
Re: [delphi-br] Formato de data no sistema
Boa tarde As variáveis abaixo servem para configuração! Ex: ShortDateFormat := 'dd/MM/'; var CurrencyString: string; var CurrencyFormat: Byte; var NegCurrFormat: Byte; var ThousandSeparator: Char; var DecimalSeparator: Char; var CurrencyDecimals: Byte; var DateSeparator: Char; var ShortDateFormat: string; var LongDateFormat: string; var TimeSeparator: Char; var TimeAMString: string; var TimePMString: string; var ShortTimeFormat: string; var LongTimeFormat: string; var ShortMonthNames: array[1..12] of string; var LongMonthNames: array[1..12] of string; var ShortDayNames: array[1..7] of string; var LongDayNames: array[1..7] of string; var SysLocale: TSysLocale; var EraNames: array[1..7] of string; var EraYearOffsets: array[1..7] of Integer; var TwoDigitYearCenturyWindow: Word = 50; var TListSeparator: Char; Boa tarde, eu gostaria de saber se existe alguma forma de deixar padrão o formato de data do sistema, por padrão o windows xp trás o formato 1/1/2008, atualmente eu preciso entrar nas opções regionais do windows e alterar manualmente para o formato que eu trabalho, no caso seria 01/01/2008. -- www.cincobytes.net
Re: [delphi-br] Como gerar Assinatura do Hash
Boa tarde Para qual ECF você esta desenvolvendo!? Para a maioria dos casos o próprio software básico da ECF gera o arquivo automaticamente após a redução Z, e permite que o arquivo seja gerado novamente mesmo depois disso! Instalei, mais não tenho nem ideia como eu uso isso dentro do meu aplicativo.. Se você já instalou é só ver os exemplos de utilização na pasta ...\TurboPower\examples\Delphi é fácil de utilizar :) ex: Até aqui tudo bem, usei uma unit para gerar o MD5 6.10.1.1.1 - Aplicar a função unidirecional MD5 uma única vez em todo o arquivo, com exceção do registro EAD. O resultado será um código de 128 bits, ou 16 caracteres ASCII, correspondendo a um número hexadecimal de 32 dígitos. Deverá ser utilizado nos cálculos o número hexadecimal, considerando-o como um único bloco. daqui pra baixo, como implementar dentro do meu aplicativo ?? 6.10.1.1.2 - Criar uma chave privada de 1024 bits, equivalente a um número hexadecimal de 256 dígitos. 6.10.1.1.3 - Criptografar o código hexadecimal gerado no item 6.10.1.1.1, utilizando a chave do item 6.10.1.1.2, pelo algoritmo RSA de chave pública. O resultado dessa critptografia, um número hexadecimal com até 256 dígitos, deverá ser informado no campo Assinatura digital. 6.10.1.1.1 - Aplicar a função unidirecional MD5 uma única vez em todo o arquivo, com exceção do registro EAD. O resultado será um código de 128 bits, ou 16 caracteres ASCII, correspondendo a um número hexadecimal de 32 dígitos. Deverá ser utilizado nos cálculos o número hexadecimal, considerando-o como um único bloco. 6.10.1.1.2 - Criar uma chave privada de 1024 bits, equivalente a um número hexadecimal de 256 dígitos. 6.10.1.1.3 - Criptografar o código hexadecimal gerado no item 6.10.1.1.1, utilizando a chave do item 6.10.1.1.2, pelo algoritmo RSA de chave pública. O resultado dessa critptografia, um número hexadecimal com até 256 dígitos, deverá ser informado no campo Assinatura digital. Até que está bem explicado... se você tem a função MD5 e uma para criptografar é só seguir as instruções acima.
[delphi-br] Erro ao validar arquivo CAT102 conversão para UTF8
Bom dia a todos... Se você esta com dificuldades para validar o arquivo gerado conforme o layout do CAT-102, com relação ao formato do arquivo UTF-8 o link abaixo aponta para duas soluções. http://cincobytes.net/erro-ao-validar-arquivo-cat-102-converter-para-utf8-ansitoutf8/ Um abraço!
Re: [delphi-br] Erro ao validar a rquivo CAT102 conversão para UTF8
Alcistemas Informática escreveu: nao daria problema no registro EAD ? Acredito que não... Pelo TD-REDF não é necessário a EAD, é preciso ter a a senha do PFE, tanto é que o layout do CAT-102 não tem nenhum campo com EAD, talvez você esteja confundindo com o CAT-52. - Original Message - From: Paulo Casagrande To: delphi-br@yahoogrupos.com.br Sent: Monday, January 21, 2008 8:57 AM Subject: [delphi-br] Erro ao validar arquivo CAT102 conversão para UTF8 Bom dia a todos... Se você esta com dificuldades para validar o arquivo gerado conforme o layout do CAT-102, com relação ao formato do arquivo UTF-8 o link abaixo aponta para duas soluções. http://cincobytes.net/erro-ao-validar-arquivo-cat-102-converter-para-utf8-ansitoutf8/ Um abraço! [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.19.7/1234 - Release Date: 20/01/2008 14:15
Re: [delphi-br] chave privada 1024
Qual Portaria? CAT-52, CAT-85 ou CAT-102 ? Alguém já criou uma rotina em delphi para gerar uma chave privada de 1024 bits ? Preciso disso para Nota Fiscal Paulista.. Grato, Alcione Guimarães e-mail: [EMAIL PROTECTED] Cel: 11-9515-8707 SIP VOIP: 3301040 SKYPE: alcistemas msn:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.19.2/1224 - Release Date: 14/01/2008 17:39
Re: [delphi-br] Currency para string
Bom dia a todos... Obrigado pela ajuda, mas preciso que o retorno seja: 0123,45 e não 343.434.123.204,54 Obrigado! bem eu fiz aqui : procedure TForm1.Button1Click(Sender: TObject); var cur : currency; begin cur:= 343434123204.54; edit1.Text:=FormatFloat('###,##0.00',cur); end; end. o resultado é : 343.434.123.204,54 acho q vc nao precisa de uma função pra isso somente o comando formatfloat() Bom dia a todos... A seguinte função recebe um currency e retorna uma string conforme o tamanho indicado e duas casas decimais separadas por vírgula function FormatarCurr2D( Value: Currency; MaxLength: integer): string; begin Result := FormatCurr(StringOfChar('0', MaxLength - 4) + '0.00', Value); Result := StringReplace(Result, '.', ',', [rfReplaceAll]); end; Ex: FormatarCurr2D( 123.45, 15) retorna '0123,45' Tô achando feio esse código! Tem como fazer melhor?? Obrigado
Re: [delphi-br] Currency para string
0123,45 e não 343.434.123.204,54 Utilize a sua própria rotina sem o StringReplace. Acho que não dá... se não estou enganado o resultado depende do DecimalSeparator, assim sendo não tenho nenhuma garantia que DecimalSeparator é igual = ',' sem o StringReplace o resultado pode variar :) Obrigado. function FormatarCurr2D( Value: Currency; MaxLength: integer): string; begin Result := FormatCurr(StringOfChar('0', MaxLength - 4) + '0.00', Value); Result := StringReplace(Result, DecimalSeparator, ',', [rfReplaceAll]); end; Ex: FormatarCurr2D( 123.45, 15) retorna '0123,45' Tô achando feio esse código! Tem como fazer melhor?? Obrigado
[delphi-br] Currency para string
Bom dia a todos... A seguinte função recebe um currency e retorna uma string conforme o tamanho indicado e duas casas decimais separadas por vírgula function FormatarCurr2D( Value: Currency; MaxLength: integer): string; begin Result := FormatCurr(StringOfChar('0', MaxLength - 4) + '0.00', Value); Result := StringReplace(Result, '.', ',', [rfReplaceAll]); end; Ex: FormatarCurr2D( 123.45, 15) retorna '0123,45' Tô achando feio esse código! Tem como fazer melhor?? Obrigado
[delphi-br] Re: função for next
Clovis... for i:= 1 to 100 do se tiver algum código aqui i aqui o i é igual a 100 for i:= 1 to 100 do begin se tiver algum código aqui i aqui o i é igual a 1 end; Não tá faltando um begin end no seu código não? Ola pessoal. Saudações Algo inusitado acontece qdo uso a funçao for i := 1 to 100 do O valor inicial de i é 100 e não 1 como deveria ser. Porque? D7 Obrigado Clovis