Carlos Tre

Olá a todos, Nunca passei por esta situação específica, mas em outras situações parecidas, em que o sistema fecha misteriosamente, ou se comporta de forma errática, em computadores específicos, o que sempre fiz foi me valer do CodeSite para gerar um passo a passo e determinar o ponto onde o programa falha. Cordialmente, Carlos

Fausto, A opção que destaquei tem que ser desmarcada, como está na captura de tela, e não marcada como o seu comentário acima sugere que você tenha feito. Se ela for marcada a senha será pedida a cada acesso. Cordialmente, Carlos

Valdecir, Tente este: http://svn.code.sf.net/p/acbr/code/trunk Cordialmente, Carlos

Olá Fausto, Eu não consigo imaginar outra situação em que a senha seja solicitada a cada acesso. Veja a captura de tela abaixo, é a segunda tela do instalador do arquivo PFX: https://www.dropbox.com/s/fok8h0z9hp4wfou/ProtecaoChavePrivada.jpg Cordialmente, Carlos

Ola Harison, Embora meus sistemas baseados no componentes ACBr executem em Windows Server 2008, não faço uso do monitor, e nunca me deparei com este erro em outras situações. Você já considerou a possibilidade de hardware defeituoso, neste caso em particular, a placa de rede? "If any dhcpcsvc.dll errors persist after a clean install of Windows, your DLL problem can only be hardware related". http://pcsupport.about.com/od/fixtheproblem/ht/dll-hardware-error-troubleshoot.htm. Acho que vale a pena ainda peneirar os links retornados em http://search.microsoft.com/en-us/supportresults.aspx?form=mssupport&q=dhcpcsvc.dll Cordialmente, Carlos

Josadac, Segundo o fabricante você precisa de uma licença por servidor e assim, pelo que entendi, você pode ter várias estações compartilhando um mesmo dispositivo USB: 1 servidor (certificado) -> N estações emissoras. Como eu disse anteriormente você pode baixar a versão de testes sem custo algum, usá-la por até 15 dias, e confirmar se resolve ou não o problema. Não se esqueça de nos manter a par do seu progresso. Cordialmente, Carlos

Segundo o Helton, este programa http://www.fabulatech.com/usb-over-network.html resolve o problema a um custo razoável (US$ 149,00 + 6,38% IOF). A versão de testes permite compartilhar 1 dispositivo USB por até 15 dias, acredito que seja o suficiente para testar e decidir. Cordialmente, Carlos

Olá Harison, Mas não há mensagem de erro alguma? Pelo que você descreveu acima o erro parece estar relacionado ao módulo 'dhcpcsvc.DLL'. Veja se este artigo ajuda: http://pcsupport.about.com/od/findbyerrormessage/a/dhcpcsvc-dll-not-found-missing-error.htm Cordialmente, Carlos

Fausto, Apenas pelo que você detalhou acima é difícil, ao menos para mim, descobrir qual seja a causa. Entretanto vou arriscar um palpite: se não me engano, durante a instalação do certificado é oferecida uma opção de segurança que implica em solicitação da senha a cada utilização, e é muito provável que a causa do seu problema esteja aí. Cordialmente, Carlos

Se eu entendi bem o que acontece, a primeira coisa que eu faria é atribuir o valor de ACBrNFe1.Configuracoes.Geral.PathSalvar+'\'+copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, (length(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44)+'-NFe.xml' a uma variável. Se a rotina GerarDigito funciona em alguns casos e em outros não, a simples exposição do valor problemático já mostra onde está o erro.

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