Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 2198 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Olá, após fazer a atualização dos fontes pelo SVN ocorre o seguinte erro na instalação: 

ACBr_DFeComum.dpk(43) Fatal: Required package 'ACBrIntegrador' not found
Compilation failure
Erro ao compilar o pacote "ACBr_DFeComum.dpk".

Mesmo selecionando todos os pacotes para instalação o erro persiste. 

O pacote ACBrIntegrador.dpk esta na pasta do ACBr\Pacotes\Delphi\ACBrIntegrador

Como proceder nesse caso?

Obrigado

 

Link para o comentário
Compartilhar em outros sites

12 horas atrás, André Ferreira de Moraes disse:

Use esta versão: ACBrInstall_Trunk2.zip

bom dia. Apos atualizar agora na geracao da NFC-e esta dando memory leaks conforme imagem em anexo. vi que esta relacionado ao Integrador, antes não acontecia isso.

Fiz teste tambem no ACBrNFe_demo so cliquei no botao gerar NFe tambem apresentou o mesmo resultado

memory.png

Link para o comentário
Compartilhar em outros sites

  • Moderadores

@ALA

Eu percebi na sua na imagem que o conteúdo do ArqTXT está vazio e com isso ele tenta criar uma pasta vazia.

Aplica essa correção no metodo:

 

procedure WriteToTXT(const ArqTXT: String; ABinaryString: AnsiString;
  const AppendIfExists: Boolean; const AddLineBreak: Boolean;
  const ForceDirectory: Boolean);
var
  FS : TFileStream ;
  LineBreak : AnsiString ;
  VDirectory : String;
begin

 if Trim(ArqTXT) = '' then
 Exit;

  if ForceDirectory then
  begin
    VDirectory := ExtractFileDir(ArqTXT);
    if not DirectoryExists(VDirectory) then
      ForceDirectories(VDirectory);
  end;

  FS := TFileStream.Create( ArqTXT,
               IfThen( AppendIfExists and FileExists(ArqTXT),
                       Integer(fmOpenReadWrite), Integer(fmCreate)) or fmShareDenyWrite );
  try
     FS.Seek(0, {$IFDEF COMPILER23_UP}soEnd{$ELSE}soFromEnd{$ENDIF});  // vai para EOF
     FS.Write(Pointer(ABinaryString)^,Length(ABinaryString));

     if AddLineBreak then
     begin
        LineBreak := sLineBreak;
        FS.Write(Pointer(LineBreak)^,Length(LineBreak));
     end ;
  finally
     FS.Free ;
  end;
end;

 

Com isso se ArqTXT estiver vazio ele vai ignorar e não gera o problema de criar uma pasta vazia.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2198 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.