[Informações Complementares incompletas]

atualizei aqui e o problema está resolvido.

obrigado pela rapidez impressionante!

[Informações Complementares incompletas]

Fortes;

41160918101920000161550020007149531019065411.pdf

[Informações Complementares incompletas]

Boa tarde.

Ao tentar imprimir esse NF-e as informações adicionais saem pela metade... o relatório gera duas páginas.

Os fontes foram atualizados hoje.

41160918101920000161550020007149531019065411-nfe.xml

[Nfce Epec Homologação]

o meu também não funcionou... eu atualizei os fontes do ACBr, atualizei os schemas mas ainda está dando a mensagem.

[Erro Ao Gerar Com Itaú Sem Dígito Na Agência]

bom dia.

 

primeiramente parabéns pelo trabalho de vocês! 

 

temos alguns usuários que trabalham com Itaú e não possuem dígito na agência... notei que o ACBr faz a validação mas somente para o tipo cobBanestes... eu corrigi aqui, se vocês puderem incluir no código oficial, agradeço

 

procedure TACBrBoleto.ChecarDadosObrigatorios;
begin
   if (Cedente.Nome= '') or (cedente.Conta = '') or ((Cedente.ContaDigito ='') and (not ( Banco.TipoCobranca in [ cobBanestes, cobItau ]))) or
      (Cedente.Agencia = '') or ((Cedente.AgenciaDigito = '') and not( (Banco.TipoCobranca in [ cobBanestes, cobItau ] ))) then
        raise Exception.Create(ACBrStr('Informações do Cedente incompletas'));
end;

 

[Erro No Envio De Evento - Delphi Xe6]

Bom dia Pessoal.

   Segundo a Embarcadero o Delphi XE6 não é compatível com Windows XP.

   Porém encontrei uma solução no fórum da embarcadero que resolve o problema. 

http://qc.embarcadero.com/wc/qcmain.aspx?d=124627

 

   No meu caso somente adicionei a pasta {Diretorio de Inspalação do Delphi XE6}/Source/Soap/ no meu LibraryPath editei o arquivo Soap.SoapHTTPTrans.pas substituindo o código:

{$IFDEF UNICODE}
  HttpSendRequest(Request, nil, 0,
                  DatStr.Bytes, DatStr.Size);
{$ELSE}
  HttpSendRequest(Request, nil, 0,
                  @DatStr.DataString[1],
                  Length(DatStr.DataString));
{$ENDIF}
  RetVal := HandleWinInetError(GetLastError, Request, True);

Por:

{$IFDEF UNICODE}
  WinInetResult := HttpSendRequest(Request, nil, 0,
                                   DatStr.Bytes, DatStr.Size);
{$ELSE}
  WinInetResult := HttpSendRequest(Request, nil, 0,
                                   @DatStr.DataString[1],
                                   Length(DatStr.DataString));
{$ENDIF}

  if not WinInetResult then
    RetVal := HandleWinInetError(GetLastError, Request, True);

   Lembrando de Criar a variável local WinInetResul : Boolean;

 

   Basta dar um Build e o executável volta a funcionar normalmente.

   Esta solução foi postada pra Windows 7 com instalação Original (I.E. 9) mas no meu caso (Windows XP com IE 8) o sistema funcionou normalmente.

 

   Se alguém quiser testar e compartilhar o resultado seria de grande ajuda.

 

Att,

Jonas

 

 

estava com este problema no Delphi XE6, fiz isso e funcionou