Descobri, porque que gera certo na Elgin Fit e da erro na Elgin K, veja a procedure abaixo:
procedure TACBrECFFiscNET.ArquivoMFD_DLL(DataInicial, DataFinal: TDateTime;
NomeArquivo: AnsiString; Documentos: TACBrECFTipoDocumentoSet;
Finalidade: TACBrECFFinalizaArqMFD);
Var
iRet : Integer;
PortaSerial, ModeloECF, NumFab, ArqTmp, Prop : AnsiString;
DiaIni, DiaFim : AnsiString;
OldAtivo : Boolean;
cFinalidade:AnsiString;
begin
NumFab := NumSerie;
ModeloECF := SubModeloECF;
PortaSerial := fpDevice.Porta;
Prop := IntToStr( StrToIntDef( UsuarioAtual, 1) ) ;
LoadDLLFunctions;
OldAtivo := Ativo;
try
Ativo := False;
if (Finalidade = finMF) then
cFinalidade := 'MF'
else if (Finalidade in [finTDM,finNFPTDM]) then
cFinalidade := 'TDM'
else
cFinalidade := 'MFD';
if pos(fsMarcaECF, 'dataregis|termoprinter') > 0 then
begin
DiaIni := FormatDateTime('dd/mm/yyyy', DataInicial);
DiaFim := FormatDateTime('dd/mm/yyyy', DataFinal);
if (Finalidade = finMF) then
iRet := xGera_AtoCotepe1704_Periodo_MF( PortaSerial, ModeloECF,
NomeArquivo, DiaIni, DiaFim )
else
iRet := xGera_AtoCotepe1704_Periodo_MFD( PortaSerial, ModeloECF,
NomeArquivo, DiaIni, DiaFim );
if iRet <> 0 then
raise EACBrECFERRO.Create( ACBrStr( 'Erro ao executar Gera_AtoCotepe1704_Periodo_MFD.'+sLineBreak+
'Cod.: '+IntToStr(iRet) + ' - ' +
GetErroAtoCotepe1704(iRet) )) ;
if not FileExists( NomeArquivo ) then
raise EACBrECFERRO.Create( ACBrStr( 'Erro na execução de Gera_AtoCotepe1704_Periodo_MFD.'+sLineBreak+
'Arquivo: "'+NomeArquivo + '" não gerado' ))
end
else if (fsMarcaECF = 'elgin') then //Quando estou gerando da elgin k entra neste if, porque a marca é elgin
begin
DiaIni := FormatDateTime('yyyymmdd', DataInicial);
DiaFim := FormatDateTime('yyyymmdd', DataFinal);
AbrePortaSerialDLL( PortaSerial, ExtractFilePath(NomeArquivo) );
ArqTmp := ExtractFilePath( NomeArquivo ) + 'Memoria.tdm' ;
iRet := xElgin_LeMemoriasBinario( ArqTmp, NumFab, true );
if (iRet <> 1) then
raise EACBrECFERRO.Create(ACBrStr('Erro ao executar Elgin_LeMemoriasBinario.'+sLineBreak+
'Cod.: ' + IntToStr(iRet))) ;
if not FilesExists( ArqTmp ) then
raise EACBrECFERRO.Create(ACBrStr('Erro na execução de Elgin_LeMemoriasBinario.'+sLineBreak+
'Arquivo binário não gerado!'));
iRet := xElgin_GeraArquivoATO17Binario( ArqTmp, NomeArquivo, DiaIni,
DiaFim, 'D', Prop, cFinalidade); //Erro na execução desta função
if (iRet <> 1) then
raise EACBrECFERRO.Create(ACBrStr('Erro ao executar Elgin_GeraArquivoATO17Binario.'+sLineBreak+
'Cod.: ' + IntToStr(iRet))) ;
xElgin_FechaPortaSerial();
end
else // Urano e demais
begin
if (Finalidade = finNFPTDM) then //Quando gero pela elgin fit cai aqui, porque o nome da ecf que vem é ZPM
begin
//TODO: gerar o "nome do arquivo" no padrão CAT-52
//Geralmente as DLL's precisam somente do diretório, o nome do arquivo é gerado automaticamente.
//No caso da Urano você deve especificar o nome do arquivo (ACBr tem alguma função pra gerar esse nome no padrão cat?)
if Length(Trim(ExtractFileName(NomeArquivo))) = 0 then
NomeArquivo := NomeArquivo + 'CAT52.txt';
end;
ArqTmp := ExtractFilePath( NomeArquivo ) + 'ACBr.TDM' ;
if FileExists( NomeArquivo ) then
DeleteFile( NomeArquivo ) ;
DiaIni := FormatDateTime('yyyymmdd', DataInicial);
DiaFim := FormatDateTime('yyyymmdd', DataFinal);
iRet := xDLLReadLeMemorias( PortaSerial, ArqTmp, NumFab, '1');
if iRet <> 0 then
raise EACBrECFERRO.Create( ACBrStr( 'Erro ao executar DLLReadLeMemorias.' + sLineBreak +
'Cod.: '+ IntToStr(iRet) + ' - ' +
GetErroAtoCotepe1704(iRet) )) ;
iRet := xDLLATO17GeraArquivo( ArqTmp, NomeArquivo, DiaIni, DiaFim,
'M', '1', cFinalidade );
if iRet <> 0 then
raise EACBrECFERRO.Create( ACBrStr( 'Erro ao executar DLLATO17GeraArquivo.' + sLineBreak +
'Cod.: '+ IntToStr(iRet) + ' - ' +
GetErroAtoCotepe1704(iRet) )) ;
end ;
finally
Ativo := OldAtivo ;
end ;
end;
Alguma ideia de como solucionar o problema?
