EMBarbosa

Virá de sua aplicação. É a lista de formas de pagamentos que sua aplicação vai passar.

Veja que a mensagem só vai ser mostrada caso a variável "EstadoECF" não for nem 'V', nem 'P' e nem 'N'. Então, se pergunte, de onde vem o valor dessa variável "EstadoECF"? Faça o debug pra responder essa pergunta.

Olá Luciano, Muito obrigado pela contribuição. Fiz a implementação baseada nela com alguns ajustes. Subi as alterações para o SVN na Revisão 17190. Por exemplo: Notei que havia alguns arquivos que estavam apenas trocando "string" para "String". Isso eu desconsiderei. Talvez seus arquivos estivessem desatualizados... Essa alteração abaixo em específico eu não enviei ao SVN: Nosso entendimento atual é que se deve usar string ou AnsiString e não misturar os casos com uma diretiva de compilação. Então preciso de um exemplo em como usar string ou Ansstring pode gerar problemas nas propriedades numa versão específica do Delphi. Se você puder propor um exemplo, podemos analisar isso melhor. Apesar das alterações, pelo que vi está tudo certo. Queira por favor atualizar, testar e reportar qualquer problema. Mais uma vez obrigado.

Hmm... então é bem provável que o Windows Defender estava encrencando com alguma coisa. Não é incomum acontecer de um anti-virus detectar uma aplicação como tantas funcionalidades como uma possível ameaça. Pelo log o email foi enviado com sucesso... ou pelo menos o ACBrMonitor está pensando que foi: 19/06/2019 13:39:13 - BOLETO.EnviarEmail("[email protected]") 19/06/2019 13:39:14 - Email: Iniciando processo de envio. 19/06/2019 13:39:14 - Email: Configurando o cabeçalho do e-mail. 19/06/2019 13:39:14 - Email: Logando no servidor de e-mail. 19/06/2019 13:39:15 - Email: Iniciando os envios. 19/06/2019 13:39:15 - Email: Processando lista de destinatários. 19/06/2019 13:39:15 - Email: Enviando dados. 19/06/2019 13:39:17 - Email: Fazendo Logout no servidor de e-mail. 19/06/2019 13:39:17 - Email: Enviado com sucesso 19/06/2019 13:39:17 - OK: E-mail enviado com sucesso! Note o seguinte problema no entanto: 19/06/2019 13:39:10 - EFOpenError - Unable to open file "C:\ACBrMonitorPLUS\ENT.TXT" 19/06/2019 13:39:10 - Unable to open file "C:\ACBrMonitorPLUS\ENT.TXT" Tem alguém ou alguma coisa bloqueando o acesso. Talvez seja sua própria aplicação. Verifique se está fazendo o seguinte: Primeiro crie o arquivo com um nome temporário. Preencha o arquivo com os comandos. Só então renomeie ele para ENT.TXT.

Vou verificar...

Poderia anexar o log gerado quando o ACBrMonitor é fechado sozinho? Verificaria também se no Visualizador de Eventos do Windows tem alguma informação do ACBrMonitor?

Bom dia a todos. Acabei de corrigir e enviar ao SVN, na revisão 17188. O fato de as versões mais novas do Delphi e o Lazarus não acusarem o erro é que gerou essa confusão. O pior é que eu testei justamente nas versões que não dão problema. Esse comportamento foi alterado na versão XE4 para aceitar tanto $ENDIF como $IFEND como terminador do $IF ou $ELSEIF. Para quem quiser mais informação, veja: http://docwiki.embarcadero.com/RADStudio/Rio/en/Legacy_IFEND_(Delphi)

Estou verificando a situação para definir o melhor modo. Só pra confirmar, qual a versão do seu Delphi?

Muito obrigado pela contribuição. Fiz a implementação baseada nela. Subi as alterações para o SVN na Revisão 17187. Pelo que vi está tudo certo. Queira por favor atualizar, testar e reportar qualquer problema. Mais uma vez obrigado.

ewbCore é uma unit do projeto Delphi-EmbeddedWB. Nenhuma unit do ACBr atualmente faz uso de units desse outro projeto. É bem provável que seja algum problema local na sua máquina. Talvez arquivos alterados localmente.

Em primeiro lugar, o arquivo que você anexou não tem nenhuma alteração da versão que está no SVN agora. Não entendi se você o anexou por engano ou não... Mas se você deseja que uma alteração seja analisada, é necessário mandar o arquivo com a alteração. Em segundo lugar, o Guia prático da EFD ICMS IPI descreve que a questão não é a simples apresentação do registro C495 e sim que você não pode informar o Registro C425. Veja o que está na página 98, no primeiro parágrafo debaixo do subtítulo "Registro 495: Resumo mensal de ..." (o grifo é meu): Assim, do meu ponto de vista, a validação do componente que você menciona está correta: if Assigned( RegC001.RegistroC495 ) then begin if (DT_INI >= EncodeDate(2014,01,01)) and ( FBloco_0.Registro0000.UF = 'BA') then Check(False, 'A partir de 01/01/2014, os contribuintes situados na Bahia obrigados a este registro devem apresentar o registro C425.'); Então não podemos removê-la. Você é que deve remover a geração dos registros C495 dos que estão da Bahia.

Boa tarde. Essa mensagem não tem nenhuma informação de mudanças. Quais foram as mudanças?

Verifique se realmente isso está acontecendo debugando sua aplicação. Note que no programa de exemplo uma coisa não automaticamente altera a outra. É tudo validado por meio dos eventos. Se seus eventos estiverem validando variáveis diferentes ou em forms diferentes, isso pode explicar o motivo do que você está descrevendo.

Basicamente, sim...

Como eu mencionei antes, a questão é você saber como funciona o TEF. Nesse caso que você citou, o que precisamos entender é: qual o objetivo desses comandos? Por que o ACBrTEFD precisa deles no ECF? O que o ACBrTEFD está tentando fazer? Como isso se encaixa no roteiro atual? A partir daí você pode tratar na sua aplicação do melhor modo. Pegue por exemplo o comando AbreCupomVinculado, e vamos tentar responder as perguntas acima... Esse comando serve para indicar para o ECF que ele precisa abrir um cupom vinculado. O ACBrTEFD precisa dele no ECF porque tudo no ECF é comandado passo a passo e, no caso dos vinculados, é preciso especificar qual vinculado vai ser aberto, qual o valor e especificar também qual o COO. O que o ACBrTEFD está tentando fazer é apenas imprimir o texto que veio da operadora. Só que antes ele precisaria dar esse comando ao ECF No roteiro do SAT, que é por impressora não fiscal, não é preciso comandar a abertura de um cupom vinculado, de modo que basta dar um retorno positivo ao ACBrTEFD. Você faz isso no evento por atribuir "RetornoECF := 1". Quando chegar a hora de imprimir o comprovante basta você enviar pra impressora não fiscal. Deu pra entender a ideia?

Muito obrigado pela contribuição. Fiz a implementação baseada nela. Fiz algumas alterações para o código ficar mais padronizado. Subi as alterações para o SVN na Revisão 17184. Pelo que vi está tudo certo. Queira por favor atualizar, testar e reportar qualquer problema. Mais uma vez obrigado.

Por favor, continue em: https://www.projetoacbr.com.br/forum/topic/51855-reparando-acbrdfehttpindy/

Talvez tenha um mal entendido aqui. A verdade é que o ACBrTEF foi criado com o objetivo de se integrar com o ACBrECF. Mas ele funciona sem o ACBrECF. Só que você precisa simular as respostas que um ECF daria pro ACBrTEF. Se você não informar o componente ECF, todas as situações são tratadas por meio dos eventos. Daí você pode tratar os eventos da melhor maneira pra sua situação. Acho que não temos um demo do ACBrSAT com o ACBrTEF. Mas isso não é tão difícil quanto parece... A questão é você saber como funciona o TEF, qual roteiro a seguir e etc... E isso você consegue com a certificadora. Se isso não ficou claro antes, a resposta é Sim.

Desculpe, talvez eu não tenha entendido direito... Você já está utilizando o ACBrECFVirtualSAT e precisa de informações sobre como implementar o TEF? É isso?

O arquivo destinatário ("MG22843710000116211 1905N01D.001"), parece que está incompleto mesmo. Veja o conteúdo: 66259110000261ISENTO 00000000 00 00360 38930000 12 20190509211 000000001 929E54F4C44D3857748F1E529498E44E Não tem dados de razão social, endereço, código de município, etc... Você precisa verificar se no seu banco de dados esses dados existem e depois se estão sendo informados ao componente. Uma coisa que notei agora no seu código é que você está usando funções para colocar espaços a direita. Como aqui: Não é necessário fazer isso. O componente já faz os tratamentos de tamanhos de campos na hora de gerar os arquivos.

É um arquivo ASCII. Basta abrir no Notepad++, Visual Studio Code, bloco de notas, ou qualquer editor de texto.

Vou verificar...

A princípio tinha achado que poderia ser uma desatualização do componente. Mas olhando o manual do arquivo e o código, eu não encontrei nada que aparentemente geraria essa diferença apontada pelo validador. Poderia por favor me mandar o arquivo que você está tentando validar?

Veja o aplicativo de exemplo do componente ACBrCargaBal.

Está na minha lista de afazeres.