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.