Carlos Tre

Rodrigo, O XML é um arquivo texto regular. var ArqvXml : TextFile; NomeXml : TFileName; begin NomeXml := 'ZeAntonioDaRocha.XML'; AssignFile(ArqvXml,NomeXml); Rewrite(ArqvXml); Write(ArqvXml,'TextoXMLLidoDoBlob'); CloseFile(ArqvXml); Carlos

Acho que alterar a UF para emissão não funciona mesmo, pois a empresa teria que estar autorizada a emitir notas naquela UF e ter o certificado digital apropriado. Poderia ter testado daqui para você não fosse este "pequeno" detalhe. Cordialmente, Carlos

Está certo então, camarada. Não consigo pensar em mais nada, talvez algum colega do Paraná possa se manifestar e ajudar , Em todo o caso cStat = 0 só vi quando a conversa com o serviço não chega a acontecer por estar fora do ar. O que eu acho estranho é que você consiga emitir a nota, indicando serviço disponível. Tentou fazer uma carta de correção? Cordialmente, Carlos

Eu estou no mesmo pé de desenvolvimento que você, entretanto não tenho tido problema com o webservice, no meu caso SP. Qual é o estado? Você consegue cancelar a nota utilizando o demo distribuído junto com o componente? Uma coisa que faço diferente é não dar bola pro retorno do método "nfe_ACBr.EnviarEventoNFe(ANumrLote)", eu testo o "...RetInfEvento.cStat" e tiro as minhas próprias conclusões. Como o código que você mostrou para justamente no teste, não sei se o problema pode ser decorrente disto. Cordialmente, Carlos

Veja se não é InfEvento.tpAmb := taHomologacao; que está faltando. Cordialmente, Carlos

Régys, Para mim ajudou horrores. Muito obrigado. Carlos

Alexandre, Bem, eu nunca senti a necessidade de comandar um "Build", no máximo um "Compile" antes to "Install". No presente caso, ao menos teoricamente, "Compile" ou "Build" não deveriam produzir resultados diferentes ("Install" forçosamente compila o pacote), mas pode ser que alguma coisa esteja me escapando. Incômodo algum, disponha. -- Carlos

Alexandre, Depois de descobrir o que estava pegando com o FastReports, consigo usá-lo sem problemas, até então eu usava o Rave, pois abandonei o QR há mais de dez anos. Não há porque não funcionar no XE, eu acredito. Sugiro a você zerar a instalação, desinstalando todas a bpl porventura instaladas, e excluí-las fisicamente junto com os arquivos DCP. Os pacotes que passei para você são os que eu uso, e não vejo porque não funcionarem para você, talvez seja uma questão de ordem de compilação e instalação - siga a ordem recomendada para os pacotes básicos, e certifique-se que os pacotes que eu lhe passei sobrepuseram os originais. Na primeira mensagem de erro poste-a aqui, juntamente com os pacotes instalados até então, e verei como posso ajudar. No meu sistema: Pasta BPL: ACBr_NFe2.bpl ACBrCapicom.bpl ACBrComum.bpl ACBrDiversos.bpl ACBrNFeDanfeFRpkg.bpl ACBrNFeDanfeRV.bpl ACBrSerial.bpl PCN2.bpl Pasta DCP: ACBr_NFe2.dcp ACBrCapicom.dcp ACBrComum.dcp ACBrDiversos.dcp ACBrNFeDanfeFRpkg.dcp ACBrNFeDanfeRV.dcp ACBrSerial.dcp PCN2.dcp -- Até, Carlos

Não conseguia utilizar a propriedade acima porque ela é apenas para leitura Estudando o fonte descobri que a propriedade a ser usada é a "FastFile". Alimentando-a em tempo de projeto, ao salvar o formulário ocorre um erro de violação de acesso no módulo frx15.bpl, leitura do endereço 0. Em tempo de execução a atribuição ocorre normalmente, e o DANFE é gerado corretamente. Não tenho versões anteriores do Delphi para determinar se ocorre apenas com o XE, ou se é um bug da versão do FasteReports que eu uso (4.11.2), ou outro problema qualquer. Alguém em condições de ajudar a determinar o que acontece? Obrigado. -- Carlos

Olá Daniel, Obrigado pela pronta resposta. Eu não tenho como investigar mais a fundo esta questão, pelo menos não no momento, portanto vou assumir que as distribuídas com o XE, por serem mais recentes, sejam compatíveis com as necessidades do projeto ACBr. O processamento de NFe e CTe pelo nosso sistema ainda não é certeza, é um estudo que está sendo tocado na medida do possível, mas qualquer coisa que eu observe, relatarei aqui. Mais uma vez, muito obrigado. Carlos

Olá Daniel, 0.9.8.14 Obrigado, Carlos

Passei por problemas similares aos que você descreve, mas não me lembro exatamente do que fiz para resolver. Tenho instalados apenas o necessário para a NFe2 e CTe, e usei os pacotes como estão no arquivo em anexo. Baixei instalei o ACBr muito recentemente, fiz apenas um único projeto para gerar DANFE no formato PDF a partir do XML. Uma tarefa deveras trivial, entretanto não consigo usar o FastReports para imprimir porque não consigo alimentar a propriedade "PreparedReport" ou estabelecer outro meio de configurar o componente. O fonte dos pacotes, com as modificações que precisei fazer para os dois itens que pretendo usar, encontra-se anexo. Até, Carlos PacotesDelphiXE.rar

Caros, Instalei recentemente os componentes ACBr, e o primeiro projeto, simples, imprimir DANFEs em lote, foi um relativo sucesso, por enquanto muito obrigado. Relativo porque a intenção era usar o FastReports mas acabei não conseguindo contornar um problema, e fui conseguir o que queria usando o RAVE. Entretanto, após a instalação, a cada carga de projeto, mesmo que este não fizesse uso dos componentes ACBr, era exibida uma mensagem de erro sobre a impossibilidade de localizar o número ordinal 3866 na bibiblioteca LIBEAY32.DLL. Inicialmente achei (embora estranhando) que fosse algum problema com os componenentes recém instalados, mas na verdade acabei descobrindo que a DLLs distribuídas com o projeto conflitam com as necessides do DelphiXE, mais especificamente com a versão installada em $(BDSBIN)\subversion. Substituí as cópias em System32 pelas presentes na pasta Subversion e o problema se resolveu. Dito isto, minhas dúvidas são: 1) os componentes que necessitam desta DLL serão atendidos pela versão que acompanha o Delphi? 2) caso a resposta à pergunta anterior seja não, posso manter esta DLL (assim como também a SSLEAY32.DLL) na mesma pasta que o executável que utilizará os componentes ACBr apenas, ou durante a fase de projeto elas precisarão ser encontradas em outro local? Obrigado, Carlos