Endrigo Rodrigues

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);

Que é isso, você foi rápido demais. Brincadeira Daniel. Mas valeu, eu questionei pois ontem a noite eu tinha atualizado e não tinha vindo nada. Mas parabéns.

Com relação a mudança da DLL da Daruma, alguém já estaria realizando as alterações? Pergunto pois eu possuo uma Daruma FS-600 e gostaria de saber se eu mesmo posso iniciar essas mudanças, não entendo nada de DarumaFramework.dll, entendo bem de ACBr Framework (rsrsrs), mas nada que uma lida no manual da DarumaFramework não resolva, mas se já tiver alguém modificando é perda de tempo, portanto fico no aguardo.

Rafael, pelo que vejo, com o ActiveX eu instanciaria objetos de acordo com as classes e preencheria os valores das propriedades, como no caso da NFe por exemplo.

Bom, como será o funcionamento para a NFe e DANFE? Um dos grandes problemas no Visual FoxPro é o limite de 26 parâmetros por função, seja ela criada dentro do VFP ou declarada externamente, como uma DLL por exemplo. Eu pensava que sendo o componente Delphi seria mais fácil a compilação do mesmo para ActiveX sem muitas alterações. Portanto, poderiam ser utilizados as classes, métodos e propriedades diretamente nas linguagens que suportem ActiveX, como se eu estivesse no Delphi usando os componentes ACBr diretamente. Espero que tenha entendido a minha dúvida e o posicionamento com relação a limitação da linguagem de 26 parâmetros por função. Abraços e muito obrigado.