Espelho MFD - Bematech

[giulianon]

Boa tarde colegas!

Estou tentando gerar o Espelho MFD utilizando o programa ECFTeste e está retornando um erro de parâmetro inválido.

Estou utilizando a última versão da DLL.

Segue o log do acbr:

-- 15:05:43 25/02/2011 Ativar

TX -> [sTX][4][0][28][19]/[0]

15:05:43 RX <- [0][0][0][0]

-- 15:05:43

TX -> [sTX][5][0][28]#)h[0]

15:05:43 RX <- [1][1][1][0][0][0][0]

-- 15:05:43

TX -> [sTX][5][0][28]#<{[0]

15:05:44 RX <- BEMATECH MP-2100 TH FI ECF-IF [0][0][0][0]

-- 15:05:44

TX -> [sTX][5][0][28]#(g[0]

15:05:44 RX <- BE050975600000044029[0][0][0][0]

-- 15:05:44 Estado

TX -> [sTX][5][0][28]#[17]P[0]

15:05:44 RX <- [0][0][0][0][0]

-- 15:05:44

TX -> [sTX][5][0][28]#A[128][0]

15:05:44 RX <- [16][0][0][0][0]

-- 15:05:44

TX -> [sTX][5][0][28]#[ESC]Z[0]

15:05:44 RX <- [0][0][0][0][0][0][0]

-- 15:05:44 Estado

TX -> [sTX][5][0][28]#[17]P[0]

15:05:44 RX <- [0][0][0][0][0]

-- 15:05:44

TX -> [sTX][5][0][28]#A[128][0]

15:05:44 RX <- [16][0][0][0][0]

-- 15:05:44

TX -> [sTX][5][0][28]#[ESC]Z[0]

15:05:44 RX <- [0][0][0][0][0][0][0]

-- 15:05:56 LeituraMFDSerial( 2111 , 2111 , Linhas)

TX -> [sTX][5][0][28]#[11]J[0]

15:05:56 RX <- [0][1][0][0][0][0]

-- 15:05:56

TX -> [sTX][22][0][28]>EC0021110021110001[237][ETX]

15:05:56 RX <- [1][1][ETX][0]

----------------- ERRO -----------------

Erro retornado pela Impressora: Bematech

Número de parâmetros de CMD inválido

Comando não executado

Número de parâmetro inválido

----------------------------------------

Agradeço desde já qualquer dica ou ajuda!

Obrigado!

[giulianon]

Bom colegas, consegui gerar trocando a função que gera o arquivo.

Tava usando a LeituraMFDSerial e agora estou usando a EspelhoMFD_DLL.

Bom mas agora surgiu problema na geração do Arquivo MFD.

Gerando o arquivo por data tudo ok.

Gerando por intervalo de coo estava dando um erro ao criar o arquivo.

Já tinha passado por isso nos testes com a Sweda e a correção foi a mesma.

Alias no processo de geração por data já estava corrigido. Foi só trocar os parâmetros de PChar pra PAnsiChar.

Estou usando a função ArquivoMFD_DLL e o problema agora está nesse trecho.

Resp := xGeraTxtPorCOO( PAnsiChar( ArqTmp + '.mfd'),

                             PAnsiChar( ArqTmp+'_ESP_' + '.txt'),

                             StrToInt(Prop),

                             COOInicial,

                             COOFinal);

Essa função está gerando o txt vazio o que causa um List index out of bounds mais abaixo.

Alguma idéia do que pode ser?

Obrigado!!

PS: Esqueci de falar que uso Delphi 2010

[giulianon]

Bom galera!

Achei o problema e já arrumei na classe da Bematech.

Era na chamada da função xBematech_FI_DownloadMFD.

Os parâmetros estavam sendo passado no formato errado.

O download da memória estava vindo sem o período correto, e consequentemente ao chamar a função xGeraTxtPorCOO era gerado o arquivo vazio causando o erro.

Gostaria de saber pra quem enviar a correção pra que nos próximos updates do ACBR isso já venha certo

Att.

[ricardomendes]

Boa Noite Giuliano

Vc pode postar aqui mesmo no topico a unit alterada que o Daniel ou o pessoal que tem autorização para subir essas alterações já o fazem assim que possivel.

[giulianon]

Segue anexo unit com a correção da função ArquivoMFD_DLL

Att.

ACBrECFBematech.pas

[Daniel Simoes]

Oi Giuliano,

Desculpe-me não poder ter lhe ajudado... e parabéns pela sua persistência...

Muito Obrigado pela sua colaboração... vou analisa-la hoje a noite, e se tudo OK já mando pro SVN...

[giulianon]

Opa! Tranquilo Daniel.

Estamos ai pra ajudar.

Estou testando algumas marcas (Sweda, Elgin, Bematech, Dataregis, Daruma, Urano e Epson) de ecf no meu sistema incluindo todas as funções do menu fiscal.

O que eu for encontrando de "problema" faço um post aqui e tento corrigir se possível.

As marcas que eu já testei e estão ok são: Sweda, Elgin e Bematech.

Nesse momento estou testando a Dataregis e a próxima é a Daruma.

Att.

[EMBarbosa]

Já está no SVN. Favor conferir...

[giulianon]

Já está no SVN. Favor conferir...

Conferido Elton.

Tudo funcionando corretamente

Obrigado!!

[]s

[David Prado]

Pessoal,

continuo com problema nessa função, já atualizei o acbr e compilei minha aplicação dinovo e continuo com problemas ao baixar espelho e o arquivo mfd, oque vocês acham que eu devo fazer?

 

Obrigado.

Aguardo Reposta.

[Juliomar Marchetti]

xdavidprado

e você fez o procedimento descrito? verificou as dll que está sendo usado, senão tem em outros locais as dll, e pegou as que estão no svn do acbr?

[David Prado]

Juliomar,

bom dia, 

obrigado por me responder, mas o erro ainda acontece fiz o seguinte, apaguei todas as DLL'S e o Bemafi32.ini de todos os locais, peguei os arquivos da pasta do ACBr\DLL\ecf\Bematech\ e joguei lá na pasta c:\MEU PROJETO\ e executei o arquivo registro.bat e executei o procedimento da baixa dos arquivos, tudo que é relacionado a MFD da esse erro de informado anteriormente -1 Eerro de execução da função  xBematech_FI_DownloadMFD, então comecei a reparar o log da bematech e veio a seguinte informação.

 

" 2013-06-24 9:40:06:959 - Retorno Bematech_FI_GeraRegistroEAD: - Dll 'sign_bema.dll' nao encontrada 

 

2013-06-24 9:40:06:959 - Retorno Bematech_FI_ArquivoMFD: -1

"

 

peguei e verifiquei se essa DLL esta presente na pasta e ela realmente esta e também registrei ela, coloquei o arquivo.mdf sendo salvo na pasta c:\  e mesmo assim o erro acontece, segue abaixo o código usado.

 

CODIGO DENTRO DO BOTÃO.

 

  Form1.ACBrECF1.PafMF_MFD_Cotepe1704(edtDtInicial.Date, edtDtFinal.Date, PathArquivo)

 

CÓDIGO DENTRO DA PROCEDURE

 

procedure TACBrECF.PafMF_MFD_Cotepe1704(const DataInicial, DataFinal: TDateTime;

  const PathArquivo: String);

begin

  fsNumSerieCache := '' ;  // Isso força a Leitura do Numero de Série

  DoVerificaValorGT ;

 

  Self.ArquivoMFD_DLL(DataInicial, DataFinal, PathArquivo, [docTodos], finMFD);

  Self.AssinaArquivoComEAD(PathArquivo);

end;

 

CÓDIGO QUE A PROCEDURE PAFMF_MFD_COTEPE1704 CHAMA AO SER EXECUTADA

 

procedure TACBrECF.ArquivoMFD_DLL(DataInicial, DataFinal: TDateTime;

  NomeArquivo: AnsiString; Documentos: TACBrECFTipoDocumentoSet;

  Finalidade: TACBrECFFinalizaArqMFD);

begin

  TestaSeE_MFD ;

 

  ComandoLOG := 'ArquivoMFD_DLL( '+DateToStr(DataInicial)+' , '+

                    DateToStr(DataFinal)+' , '+NomeArquivo+' ) ';

  fsECF.ArquivoMFD_DLL( DataInicial, DataFinal, NomeArquivo, Documentos, Finalidade ) ;

end;

 

 

Aguardo uma respostas dos amigos.

 

OBS. Uso windows 7 32 bit's, IMPRESSORA FISCAL BEMATECH MP4000 TH FI PORTA SERIAL.

 

 

Abraços,

David Prado.

[EMBarbosa]

Juliomar,

bom dia, 

obrigado por me responder, mas o erro ainda acontece fiz o seguinte, apaguei todas as DLL'S e o Bemafi32.ini de todos os locais, peguei os arquivos da pasta do ACBr\DLL\ecf\Bematech\ e joguei lá na pasta c:\MEU PROJETO\ e executei o arquivo registro.bat e executei o procedimento da baixa dos arquivos, tudo que é relacionado a MFD da esse erro de informado anteriormente -1 Eerro de execução da função  xBematech_FI_DownloadMFD, então comecei a reparar o log da bematech e veio a seguinte informação.

 

" 2013-06-24 9:40:06:959 - Retorno Bematech_FI_GeraRegistroEAD: - Dll 'sign_bema.dll' nao encontrada 

Seu erro não parece com o erro relatado pelo Giulianon que era um erro de parâmetro no código. O seu parece erro de instalação e disponibilidade das dlls.

Você fez o teste com o Demo do ACBrECF? Funciona usando o programa de exemplo da Bematech?

[giulianon]

Esse arquivo registra.bat faz o que exatamente?

[David Prado]

Esse arquivo só registra as dll no registro do windows.

[Daniel Simoes]

Tente com o Demo em Delphi da própria Bematech... se nem nele funcionar, só o suporte da Bematech poderá resolver...

 

Meu palpite é que você está tentando gravar o arquivo em C:\... Hoje em dia o Windows não permite isso

[David Prado]

Pessoal, desculpa solicitar por aqui, mas como faço para criar uma pergunta no forum?

 

Obrigado.

aguardo resposta.

 

OBS. Estou com duvida na função identifica cliente e porque preciso colocar, CPF, nome, endereço, numero, complemento, bairro, cidade e uma observação e so estou cosneguindo imprimir 4 linhas através dessa função.

[Juliomar Marchetti]

Dentro do fórum especifico no canto superior direito tem um botão chamado Novo tópico

veja se aparece para você