Endrigo Rodrigues

Vi que os fontes do SVN ainda continuam com problemas com ECF FiscNet. Alguma previsão de alteração da função FechaCupom?

Qual será o preço da versão comercial?

Tente abrir a sua tela de login no OnActivate do seu formulário principal da sua aplicação, e no mesmo OnActivate você trata com uma propriedade na classe do formulário se já foi executado o OnActivate, se não foi executado o OnActivate, você faz o processo de ativação do ACBr e depois a tela de login, lembrando que em sua tela de login você tem que disponibilizar um atalho para o "Menu Fiscal" senão você dança na homologação. Dessa forma, mesmo que você abra a tela de login novamente, a comunicação do ACBr estará ativa e vc não precisará ficar fechando e abrindo a mesma. Feche somente no evento OnClose ou OnDestroy do formulário principal.

Tente o seguinte: ECF_ACBR.Device.ProcessMessages := False;

Achei fantástico o projeto e parabéns pela iniciativa, sou programador Visual FoxPro e participo do grupo FoxBrasil, e postei o link do tópico para o pessoal apreciar o projeto. Abraços, e mais uma vez, parabéns.

procedure TACBrECFFiscNET.FechaCupom(Observacao: AnsiString; IndiceBMP : Integer); var Obs: AnsiString; begin Obs := Observacao ; if not Consumidor.Enviado then begin { Removendo o Consumidor da Observação, pois vai usar comando próprio } Obs := StringReplace(Obs,#10+'CPF/CNPJ consumidor: '+Consumidor.Documento,'',[]) ; Obs := StringReplace(Obs,#10+'Nome: '+Consumidor.Nome,'',[]) ; Obs := StringReplace(Obs,#10+'Endereco: '+Consumidor.Endereco,'',[]) ; try { Se tiver Observações no rodape, deve enviar antes do consumidor } if Obs <> '' then begin FiscNETComando.NomeComando := 'EncerraDocumento' ; FiscNETComando.AddParamString('TextoPromocional',Obs); EnviaComando ; end ; FiscNETComando.NomeComando := 'IdentificaConsumidor' ; FiscNETComando.AddParamString('IdConsumidor',LeftStr(Consumidor.Documento,29)) ; if Consumidor.Nome <> '' then FiscNETComando.AddParamString('NomeConsumidor',LeftStr(Consumidor.Nome,30)) ; if Consumidor.Nome <> '' then FiscNETComando.AddParamString('EnderecoConsumidor',LeftStr(Consumidor.Endereco,80)) ; EnviaComando ; Consumidor.Enviado := True ; except // Obs := Observacao ; end ; end ; { Tem PAF ? } { PAF ainda não está na Obs ?} if (fsPAF <> '') and (pos(fsPAF,Obs) = 0) then if Obs = '' then Obs := fsPAF else Obs := fsPAF + #10 + Obs ; FiscNETComando.NomeComando := 'EncerraDocumento' ; if (Obs <> '') then FiscNETComando.AddParamString('TextoPromocional',Obs); FiscNETComando.TimeOut := 5 ; FiscNETComando.AddParamString('Operador',Operador) ; EnviaComando ; fsEmPagamento := false ; end;

Em que momento o ACBr está truncando sendo que o ACBr não manda total em momento algum?

Vc tem que ler como o seu ECF está trabalhando para realizar a venda da maneira que está configurado o ECF, e não o contrário.

O ACBr está utilizando o comando ImprimeTexto para a impressão do rodapé da Sangria, isso está ocasionando erro. O correto é utilizar o parâmetro TextoPromocional do comando EncerraDocumento. Gostaria de saber se é possível fazerem essa alteração.

Ninguém teve esse problema? Gostaria que alguém que utilize IdentificaPAF e Sangria na FiscNet postasse um parecer sobre o assunto. Será que somente eu estou tendo esse problema?

Estou tendo problemas com as impressoras FiscNet quando é utilizado o comando IdentificaPAF na inicialização do sistema. Ao emitir a Sangria, o sistema dá erro na parte do fechamento do cupom não fiscal, mesmo executando o IdentificaPAF('', ''); o ACBr tenta enviar um #$A para o rodapé do cupom não fiscal. Alguém saberia me dizer o que está acontecendo, se o problema é do meu ECF ou se realmente a Sangria não aceita rodapé na FiscNet? Obs: Depurando e setando o conteúdo da variável para vazio a sangria é realizada.

Entendi, então esse campo deve existir somente na tabela de itens de cupom, para informar o que foi feito no ECF para gerar os registro R05. Entendi completamente errado então o que diz o requisito XI, pois para mim o campo deveria existir na minha tabela de produtos.

E quando o ECF já estiver programado para arredondar? Qual o procedimento para se utilizado o IAT?

Não precisar de homologação será a melhor coisa do mundo. Que acabem logo com esses ECFs e que venha logo os CF-e.

Por incrível que pareça, após mudar o ECF para 115200, mesmo voltando para 9600 não consegui fazer com que o erro acontecesse novamente.

Pesoal, segue em anexo o arquivo de auditoria juntamente com DarumaFramework.xml utilizados para realizar o teste com o ECF a 9600. Realmente está com problemas. Já enviei o email para a Agatha e em breve teremos respostas. Erro Daruma 9600bps.7z

Sim Alexandre, estou tentando voltar o ECF para 9600, para gerar a auditoria para passar para ela.

Sim, já havia testado o DarumaFramework_Delphi.exe e também deu o mesmo erro. Mas acho que descobri o que pode ser. Se você puder testar aí para mim para comprovarmos e avisarmos a Daruma, por favor, configure o seu ECF para 9600 bps, e tente executar o processo de geração do arquivo.

Está aí em anexo. Sim, estão todas atualizadas de acordo com o site da Daruma e agora também de acordo com os arquivos que você enviou. DarumaFrameWork.7z

Regys, deu o mesmo problema, só mudou a mensagem, mas o código de erro é o mesmo -1. Minha Daruma é uma FS-600 versão 010500. Tudo funciona nela, menos a geração dos arquivos, já tentei no meu notebook usando um conversor USB/Serial e também em um desktop com serial on-board (detalhe, placa mãe ASUS).

Observe o código fonte das duas funções e veja qual função da DLL as duas executam. As duas apontam para ArquivoMFD_DLL().

Só lembrando Welkson, que tanto o LMFC Cotepe quanto Arq. MFD se utilizam da mesma função, mas com parâmetros diferentes.

Sim, acabei de testar no ECFTeste, e obtive o mesmo erro. Estou utilizando a DLL que o Regys passou, e o SVN 2470.

Regys, continuo tendo o mesmo problema, porém agora estou utilizando a função PafMF_LMFC_Cotepe1704 por data.

Tive o seguinte retorno ao tentar gerar O LMFC Ato COTEPE/ICMS 17/04. Utilizei o comando: ArquivoMFD_DLL(edtDataIni.Date, edtDataFin.Date, 'C:\Fantastsoft\LMFC-COTEPE.TXT', docTodos, finMF);