Jump to content

Richard

Membros
  • Content Count

    5
  • Joined

  • Last visited

Community Reputation

0 Neutral

About Richard

  • Rank
    Novato

Profile Information

  • Sexo
    Masculino
  • Localização
    Iturama
  1. Jose, estou com o mesmo problema, CFOP 7.358 esta retornando "CFOP invalido para operacao". Funcionava até ontem, você conseguiu descobrir o problema? Pois é gravíssimo.
  2. Não havia observado isto, farei agora
  3. Segue em anexo as alterações sugeridas! ACBrECFBematech.pas
  4. Então, creio que não deva mudar para 15 dígitos não, pois ainda não tenho certeza se em todos modelos vão vir 15 dígitos, na minha opinião deveria comparar das 2 formas Sugestão: ________________________________________________________________________________________________ FileMask := FilePath + Prefixo + Trim(NumSerie) + '_' + FormatDateTime('yyyymmdd',Now ) + '_*.TXT'; // Nome do arquivo retornado pela DLL com número de série correto FileMask2:= FilePath + Prefixo + Copy(Trim(NumSerie),1,15) + '_' + FormatDateTime('yyyymmdd',Now ) + '_*.TXT'; // Nome do arquivo retornado pela DLL com número de série constando apenas os 15 primeiros caracteres. Arquivos := TStringList.Create; OldAtivo := Ativo ; try DeleteFile( NomeArquivo ); DeleteFiles( FileMask ); DeleteFiles( FileMask2 ); AbrePortaSerialDLL( FilePath ) ; Resp := xBematech_FI_ArquivoMFD( '', DiaIni, DiaFim, 'D', Prop, Tipo, cChavePublica, cChavePrivada, 1 ) ; if (Resp <> 1) then raise EACBrECFErro.Create( ACBrStr( 'Erro ao executar xBematech_FI_ArquivoMFD.'+sLineBreak+ AnalisarRetornoDll(Resp) )) ; FindFiles( FileMask, Arquivos ); if Arquivos.Count < 1 then Begin FindFiles( FileMask2, Arquivos ); if Arquivos.Count < 1 then Begin raise EACBrECFErro.Create( ACBrStr( 'Erro na execução de xBematech_FI_ArquivoMFD.'+sLineBreak+ 'Arquivo: "'+NomeArquivo + '" não gerado' )) ; End; End; RenameFile( Arquivos[0], NomeArquivo ); finally Arquivos.Free; FechaPortaSerialDLL( OldAtivo ); end; ________________________________________________________________________________________________ Em vermelho o que eu mudei. Desta forma da certo tanto se o nome do arquivo retornar com 15 dígitos, quanto com 20 dígitos
  5. Bom dia! Realmente a DLL alterou o formato e na DLL atual (6.1.2.0) esta gerando no formato que o Acbr esta gerando. Porém estou tendo um problema grave, o componente gera certo: FileMask := FilePath + Prefixo + Trim(NumSerie) + '_' + FormatDateTime('yyyymmdd',Now ) + '_*.TXT'; E a DLL também, só que a DLL esta gerando o número de série com 15 dígitos e não com 20 dígitos, ou seja: DLL Bematech 6.1.2.0 = MFDBE0507756007000_20130828_112744 Acbr = MFDBE050775600700013969_20130828_112744 Alguém passou por este problema?
×
×
  • Create New...