Carlos Tre

Márcio, Esta é uma limitação que vem dos tempos do Turbo Pascal, e é interna ao compilador. Constantes (ou "string literals") são limitadas em 255 caracteres, variáveis tipo string, não. O que você precisa fazer é algo do tipo: infEvento.detEvento.xCorrecao := 'CFOP Correto......' + // string literal 1 abaixo de 255 caracteres 'Natureza correta..' + // string literal 2 abaixo de 255 caracteres .... e assim por diante Cordialmente, Carlos

Olá Régys, Por favor note que o arquivo local não corresponde à última versão disponível no repositório. Cordialmente, Carlos ACBrNFeDANFEFRDM.zip ACBrNFeDANFEFRDM.zip

Olá Régys, Esta é a modificação que sugiro: cdsEmitenteDADOS_ENDERECO.AsString := Trim(FieldByName('XLgr').AsString) + ', ' + trim(FieldByName('Nro').AsString); if (trim(FieldByName('XCpl').AsString) <> '') then cdsEmitenteDADOS_ENDERECO.AsString := cdsEmitenteDADOS_ENDERECO.AsString + ', ' + Trim(FieldByName('XCpl').AsString); cdsEmitenteDADOS_ENDERECO.AsString := cdsEmitenteDADOS_ENDERECO.AsString + ' - ' + Trim(FieldByName('XBairro').AsString) + ' - ' + Trim(FieldByName('XMun').AsString) + ' - ' + Trim(FieldByName('UF').AsString) + #13 + 'Fone: ' + Trim(FieldByName('Fone').AsString) + ' - CEP: ' + Trim(FieldByName('CEP').AsString); Cordialmente, Carlos

Olá Regys, Muito obrigado mais uma vez. Farei como sugeriu e hoje mais tarde eu anexo aqui. Cordialmente, Carlos

Olá Régys, Muito obrigado por responder. FastReports (TdmACBrNFeFR.CarregaEmitente). Cordialmente, Carlos

No seu lugar eu faria o seguinte: 1) distribuiria as notas em lotes de até 50 notas ou menos, dependendo da quantidade de itens por nota, o limite é de 50 notas ou 500k; 2) transmita o lote de notas; 3) valide o status e se ok (103) pegue o recibo e o tempo médio de resposta, além das outras informações que porventura lhe interesse guardar; 4) aguarde um pouco, no meu caso eu aguardo o tempo médio de resposta ou 5 segundos, o que for maior - segurança e caldo de galinha nunca matou ninguém; 5) consulte as notas do lote e atualize o seu sistema de acordo. Baseei a minha sistemática em alguns posts de Maio de 2012, pelos usuários peterson161 e ronnei, mas não consegui localizá-los agora para informar o link (fiquei com a impressão de que o sistema de busca está quebrado, não importando a maneira como formulei a pesquisa, o resultado foi nulo todas as vezes). Cordialmente, Carlos

Prezados, Alguma razão em particular para o campo "complemento" [cdsEmitente.FieldByName('XCpl')] ter sido deixado de fora em [procedure TdmACBrNFeFR.CarregaEmitente]? cdsEmitenteDADOS_ENDERECO.AsString := Trim(FieldByName('XLgr').AsString) + ', ' + trim(FieldByName('Nro').AsString) + ' - ' + Trim(FieldByName('XBairro').AsString) + ' - ' + Trim(FieldByName('XMun').AsString) + ' - ' + Trim(FieldByName('UF').AsString) + #13 + 'Fone: ' + Trim(FieldByName('Fone').AsString) + ' - CEP: ' + Trim(FieldByName('CEP').AsString); Pergunto o porquê em razão de ter sido questionado e 1) não quero consertar por mim mesmo e perder, inadvertidamente, a correção em uma próxima atualização; 2) pode ser que tenha que ser deixado de fora mesmo em função de alguma limitação que eu não esteja vendo. Agradeço antecipadamente a sua preciosa ajuda. Cordialmente, Carlos

Não consegui voltar ontem, mas vejo que a discussão está praticamente encerrada. Tanto melhor. Cordialmente, Carlos

Quando o Windows é atualizado para 8.1 o Internet Explorer é atualizado para o IE11 junto? Se for pode estar aí a raiz do problema. Só um palpite, entretanto. Cordialmente, Carlos

Posso lhe dar uma ideia de por onde começar a investigar o problema: Consulte a chave de uma nota rejeitada por duplicidade e veja quando a sua numeração foi autorizada ou denegada - o ACBr Demo pode ser usado aqui. De posse da data, investigue o seu sistema para ver, por exemplo, se esta nota está registrada. Se estiver, investigue seus elementos e veja onde está a causa da duplicidade indevida. Cordialmente, Carlos

Não uso o monitor, mas se ele sempre usa a impressora padrão a única solução que vejo seria interrogar o sistema operacional sobre a padrão a cada impressão de nota ou lote de notas. Creio que seja isto o que ele faça durante a carga inicial, certo? Cordialmente, Carlos

Não sei exatamente qual o processo de instalação de certificados A3, mas os certificados A1 precisam ser instalados, na máquina remota, para cada usuário individualmente, e não vejo porque com os A3 seja diferente. Cenários: 1) Computador A (servidor), Usuário A, autenticado localmente ao Computador A, certificado em uma porta USB do Computador A, funciona? 2) Computado B (estação), Usuário A, autenticado ao computador A pela Área de Trabalho Remota, certificado em uma porta USB do Computador B, funciona? Se o cenário 2 não funciona, tentou executar nele o processo de instalação do certificado? Cordialmente, Carlos

Raquel, O meu grande amigo para depurar problemas que só acontecem em instalações remotas é o CodeSite. Uso a versão completa desde os tempos do Delphi 5, mas acredito que mesmos a versão "express" que acompanha as versões mais recentes do Delphi seja suficiente. Coloco rastreadores na entrada e saída de todas as rotinas executadas durante o processo de emissão da nota, bem como dos valores instantâneos das variáveis suspeitas, no seu caso em particular o campo que aponta para a pasta com schemas. Não apostaria em interferência externa causando bloqueio, embora tecnicamente possível, acho extremamente improvável. Cordialmente, Carlos

Olá Luciano, Pode ser algum diálogo modal, não é raro acontecer da janela ficar atrás de uma outra, e como ela é modal não se consegue fazer mais nada. Quando acontece eu geralmente trazer a janela para a frente com Alt+Tab para outra aplicação, e um segundo Alt+Tab para a aplicação congelada. Tente este truque para ler a provável mensagem de erro apresentada na janela oculta. Cordialmente, Carlos

Fabio, Aqui está ok, tanto pelo meu sistema quanto pelo demo, veja o resultado por este último: - <retConsStatServ versao="2.00" xmlns="http://www.portalfiscal.inf.br/nfe"> <tpAmb>2</tpAmb> <verAplic>SP_NFE_PL_006q</verAplic> <cStat>107</cStat> <xMotivo>Servico em Operacao</xMotivo> <cUF>35</cUF> <dhRecbto>2013-10-21T11:12:49</dhRecbto> <tMed>1</tMed> </retConsStatServ> Cordialmente, Carlos

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