EMERSON RODRIGUES FERREIRA

Sim, eu percebi meu erro.

Blz, vou procurar o layout novo para fazer as adaptações necessárias então. Vlw

Ao atualizar o acbr percebi as seguinte alterações no codigo do itau: function TACBrBancoItau.DefineTipoBeneficiario(const ACBrTitulo: TACBrTitulo): String; var LTamanhoPagadorFinal : Byte; begin LTamanhoPagadorFinal := Length(OnlyNumber(ACBrTitulo.Sacado.SacadoAvalista.CNPJCPF)); if (ACBrTitulo.ACBrBoleto.LayoutRemessa = c400) AND (LTamanhoPagadorFinal > 0) then begin case LTamanhoPagadorFinal of 11 : Result := '3'; //CPF DO PAGADOR FINAL 14 : Result := '4'; //CNPJ DO PAGADOR FINAL else Result := '9'; end; end else begin case ACBrTitulo.ACBrBoleto.Cedente.TipoInscricao of pFisica : Result := '1'; //N DO CPF DO BENEFICIÁRIO pJuridica : Result := '2'; //N DO CNPJ DO BENEFICIÁRIO else Result := '9'; end; end; end; Neste caso se tiver sacador avalista passou a retornar 3 ou 4. Antes informava sacador avalista, o campo" CÓDIGO DE INSCRIÇÃO TIPO DE INSCRIÇÃO DA EMPRESA 002 003 9(02) NOTA 1", era 1 ou 2 e a remessa era aceita normalmente. Com a alteração recebi uma rejeição, falando sobre o CEP não pertencer ao estado informado. Sempre utilizei no campo sacador avalista a própria empresa, a impressão que tenho é que está fazendo verificação do estado do sacador com o CEP do cliente do boleto. Outra coisa foi a instrução1: Antes por Default era 35 agora passou para 82. Antes: function TACBrBancoItau.InstrucoesProtesto(const ACBrTitulo: TACBrTitulo): String; begin with ACBrTitulo do begin if ((DataProtesto > 0) and (DataProtesto > Vencimento)) then begin case TipoDiasProtesto of diCorridos : Result := '34'; diUteis : Result := '35'; else Result := ''; end; end else begin if ((DataNegativacao > 0) and (DataNegativacao > Vencimento)) then Result := '66' else Result := ''; end; if (PadLeft(trim(Instrucao1),2,'0') = '00') and (Result <> '') then Instrucao1:= Result; end; end; Agora: function TACBrBancoItau.InstrucoesProtesto(const ACBrTitulo: TACBrTitulo): String; begin with ACBrTitulo do begin if ((DataProtesto > 0) and (DataProtesto > Vencimento)) then begin case TipoDiasProtesto of diCorridos : Result := '81'; diUteis : Result := '82'; else Result := ''; end; end else begin if ((DataNegativacao > 0) and (DataNegativacao > Vencimento)) then Result := '66' else Result := ''; end; if (PadLeft(trim(Instrucao1),2,'0') = '00') and (Result <> '') then Instrucao1:= Result; end; end; Qual impacto desta alteração de instrução para o cliente? Sendo: 35-CUSTAS DE CARTÓRIO DISTRIBUIDOR e agora esta gerando 82-CONFIRMAÇÃO DO CANCELAMENTO DE NEGATIVAÇÃO EXPRESSA – TARIFA.

Existe alguma maneira de ver se uma nota já possui evento de manifestação do destinatário via consulta? Por exemplo: Antes de refazer uma tentativa de manifestar uma nfe com confirmação da operação, consultar a nfe é verificar alguma status? Antigamente tinha esta informação da situação no webservice ConsultaNFeDest, mas não vem mais no DistribuicaoDFe ou atualizaram para vir?

Obrigado pela resposta Juliomar. Você tem ração, pesquisei um NFe cancelada e mostrou o evento. Estou tentando obter a lista de eventos pois tento problema de duplicidade na hora de manifestar as NFe's. Ocorre erro com certa frequência no retorno, e quando o cliente tenta manifestar novamente vem o erro de duplicidade. Existe alguma forma de consultar esse evento antes de transmitir novamente?

Boa tarde, já a bastante tempo venho tentando obter a lista de eventos através do AcbrNFe. Estou fazendo da seguinte maneira: ACBrNFe.WebServices.Consulta.NFeChave := '33171118197326000116550010000000501500529100'; ACBrNFe.WebServices.Consulta.Executar; Configurações do componente: Os arquivos de comunicação: 33171118197326000116550010000000501500529100-sit.xml 33171118197326000116550010000000501500529100-ped-sit.xml Note que vem apenas a autorização de uso. Porem ao pesquisar no portal aparece a lista: Estou fazendo algo de errado?

Ola, qual sistema operacional você está utilizando, estou com vários clientes aqui em MG que utilizam Windows XP com o mesmo problema. Alguém sabe se o XP não vai estar apto para transmissão, igual foi feito com o service Pack 1?

Grato pela resposta Juliomar. Assim que possível estarei revisando os códigos e posto as sugestões para alteração. O problema esta sendo só o tempo esses dias. Abraço.

Bom dia, desculpe informar como tópico "duvidas gerais", mas nas opções para criar não esta aparecendo a opção ACBRNFe no item ACBRDFe. Existe a possibilidade de ler varias notas e seus eventos e imprimir de uma vez só. No ACBrNFeDANFERAVECB eu carrega no acbrnfe todos os xmls do mês e eventos e depois utiliza os metodos ACBrNFe.NotasFiscais.Imprimir e ACBrNFe.ImprimirEvento; Agora com as mudanças para o trunk2 utilizando o fast report só imprimi o ultimo evento. Como posso fazer para resolver, existe outra forma de imprimir todos as notas do mês em conjunto com seus eventos? Grato pela atenção, Emerson Rodrigues Ferreira.

Bom dia, Percebi a seguinte inconsistência nos retorno da receita: Ao consulta utilizando o ultnsu = 0 e ANSU = '' recebo o seguinte retorno: 20150227103510 em anexo. Observe que nesse retorno o nsu 134 esta com o schema="procNFe_v1.00.xsd". Quando consulto com ultnsu = '' e ANSU = '000000000000134' recebo o retorno: 20150227103445 em anexo Observe que nesse retorno o nsu 134 esta com o schema="procNFe_v2.00.xsd". Dessa forma o acbrnfe não salva o xml quando pesquiso pelo nsu especifico, pois a função StrToTipoSchema não retorna o shema correto. Existe a possibilidade de corrigir? Grato pela atenção. 20150227103510-dist-dfe.xml 20150227103445-dist-dfe.xml

Como prometido verifiquei os código, foram feitas varias mudanças, a que me chamou mais a atenção foi: Na unit ACBrNFeWebServices antiga ao passar pelo método EnviarDadosWebService era feita uma retirada de acentos no retorno. RetornoWS := TiraAcentos(ParseText(ReqResp.Execute, True)); Na nova versão o método foi alterado para EnviarDados e o retorno ficou assim: FRetornoWS := ParseText(FRetornoWS, True, True ); // Resposta sempre é UTF8 Espero ter contribuído para resolução do problema. Abraços

Obrigado pelo retorno Italo. Implementei a seguinte opção no sistema que desenvolvi: O usuário faz o manifesto do destinatário, quando ele confirma a nota o sistema pergunta se quer baixar o xml, e logo após pergunta se deseja importar a nota para o banco de dados. Até nas versão anterior que eu estava utilizando do acbr aqui estava normal, e ainda continua funcionando nos clientes que não atualizei o programa. Agora que atualizei o componente começou a dar esse problema, o cliente manifesta normalmente, baixa e na hora de importar da erro. Você acredita que após baixar o xml eu teria que abrir ele e fazer as correções no arquivo? Vou fazer o seguinte, vou pegar o código antigo e confrontar com a nova versão para ver se encontro alguma diferença. Depois posto o resultado. Agradeço

Boa tarde, Agora sim, segue anexo *-down-nfe.xml Grato 20150224141213-down-nfe.xml

Ítalo, Não encontrei os arquivos mencionados. Estou fazendo o download da seguinte forma: ACBrNFe.DownloadNFe.Download.CNPJ := Empresa.CNPJ; ACBrNFe.DownloadNFe.Download.Chaves.Clear; ACBrNFe.DownloadNFe.Download.Chaves.Add; ACBrNFe.DownloadNFe.Download.Chaves.Items[ACBrNFe.DownloadNFe.Download.Chaves.Count-1].chNFe := cdsLancamento.FieldByName('CHAVE').AsString; ACBrNFe.Download; Pelo que percebi abrindo o xml pelo bloco de notas é que existem quebra de paginas no meio do arquivo. Outra questão é que se volto para o cliente uma versão anterior do programa o arquivo baixa normalmente. Observei também que o problema não esta acontecendo só na Notas de SP. Devo fazer o download de outra forma? Grato pela atenção, Emerson Rodrigues Ferreira

Boa tarde, obrigado pelo retorno Ítalo, Segue em anexo arquivo baixado pelo portal nacional. 35150267345983000179550010000031281008005908.xml