rlind

Favor subir no SVN , alteração de tratamento dos acentos na mensagem para evitar rejeição Boleto Online BB. ACBrBoleto.pas : function TACBrBoleto.GerarMensagemPadraoDataLimitePagamento( ATitulo: TACBrTitulo): String; begin if ATitulo.DataLimitePagto > ATitulo.Vencimento then Result:= ACBrStr('Não Receber após ' + IntToStr(DaysBetween(ATitulo.Vencimento, ATitulo.DataLimitePagto))+ ' dias') else Result := ACBrStr('Não Receber após o Vencimento'); end;

Ola. Bom dia. Retirando os acentos não gera mais a rejeição e gera o boleto Online tranquilo. Dai não precisa nem preencher o campo Titulo.DataLimitePagto, executando a function GerarMensagemPadraoDataLimitePagamento e registrando o boleto Online sem problemas. Obrigado pelo retorno.

Bom dia. Alguma orientação para evitar esse retorno do webservice do B.B Obrigado.

Bom dia. Para informar um problema que esta dando aqui comigo. Estou efetuando => Envia de boleto Online pela api do Banco do brasil, fazendo Function abaixo em ACBrBoleto.pas : function TACBrBoleto.GerarMensagemPadraoDataLimitePagamento( ATitulo: TACBrTitulo): String; begin if ATitulo.DataLimitePagto > ATitulo.Vencimento then Result:= ACBrStr('Não Receber após ' + IntToStr(DaysBetween(ATitulo.Vencimento, ATitulo.DataLimitePagto))+ ' dias') else Result := ACBrStr('Não Receber após o Vencimento'); end; gerando o seguinte retorno com erro codigo 400 no arquivo anexado abaixo. aguardo retorno. Obrigado. ArqBoletoWS.log

Pode finalizar o chamado. Obrigado.

Boa tarde. Obrigado pela informação.

Obrigado pelo retorno. Estou verificando.

Bom dia. Estou com problemas ao enviar mais de uma RPS no lote. Pois quando é uma RPS por lote e validada e gerada sem problemas. Com isso gostaria da informação se eh possivel validar mais de uma NFS-e em um unico lote ou não. Obrigado.

Boa Tarde. Cidade : São Jose - SC. erro eh uma saida por excessão que estou vendo aqui e já reporto. Obrigado.

Obrigado Diego. Para IPM alguma pessoa conseguiu validar um lote de RPS, mas não esta indo aqui. Obrigado.

Bom Dia. Alguém poderia informar o limite de Nfse dentro de um lote? Aguardo retorno. Obrigado Para o provedor IPM

Boa Tarde Italo. Esta Certo. Pode finalizar o tópico. Obrigado.

Olá. deu certo Atribuir o valor zero ao campo Competência. A NFS-e foi validada. Soh ficamos na duvida. Eh tranquilo deixar a data de Competência com 0 ? Obrigado.

Bom dia Italo. Vou fazer e retorno. Obrigado.

codigo de retorno eh : 00226 Obrigado.

Esta certo. Estou anexando. Obrigado. 4066-ger-nfse.xml

Boa Tarde. Alguém teve o seguinte retorno na validação da NFS-e provedor IPM (prefeitura da Palhoça - SC): => informada uma data retroativa no arquivo, Porém o cadastro econômico não possui enquadramento para utilizar. No Xml gerado não tem data para trás. Se souber a causa, Muito Obrigado. Rogerio Lindemayer

Bom dia, consegui usando outro componente : Response := TStringStream.Create(''); HTTP_Emitir := TIdHTTP.Create(nil); if not DirectoryExists(PAnsiChar(pPastaRetorno)) then if not CreateDir(PAnsiChar(pPastaRetorno)) then ForceDirectories(PAnsiChar(pPastaRetorno)); ArquivoRetorno := PAnsiChar(pPastaRetorno) + ExtractFileName(ArquivoRetorno); HTTP_Emitir.Request.CustomHeaders.FoldLines := False; HTTP_Emitir.Request.CustomHeaders.Add('Authorization: Bearer ' + PAnsiChar(pToken)); HTTP_Emitir.Request.CharSet := ''; HTTP_Emitir.Request.ContentType := 'application/xml'; HTTP_Emitir.Request.ContentEncoding := 'raw'; try HTTP_Emitir.Post(sLinkEmitir, PAnsiChar(pArquivoXML), Response); except on E: EIdHTTPProtocolException do begin iPos := Pos('<message>', E.ErrorMessage); if iPos > 0 then sMsgErro := Copy(E.ErrorMessage, iPos + 9, 200); sMsgErro := StringReplace(sMsgErro, '</message>', '', [rfReplaceAll]); sMsgErro := StringReplace(sMsgErro, '</xmlNfpse>', '', [rfReplaceAll]); MessageDlg('Retorno da Emissão' + #13 + #13 + 'Código Reposta: ' + IntToStr(HTTP_Emitir.Response.ResponseCode) + #13 + 'Erro: ' + sMsgErro, mtError, [mbOK], 0); end; end; iResult := HTTP_Emitir.Response.ResponseCode; if IntToStr(HTTP_Emitir.Response.ResponseCode) = '200' then begin ArquivoXML := TXMLDocument.Create(nil); ArquivoXML.LoadFromXML(Response.DataString); ArquivoXML.SaveToFile(ArquivoRetorno); end;

boa tarde. pode finalizar o topico. obrigado.

Com este codigo abaixo, retorno anexado Response := TStringStream.Create(''); MyText := tStringList.Create; MyText.LoadFromFile(PAnsiChar(parquivoXML)); IdHTTP1 := TIdHTTP.Create(nil); IdHTTP1.Request.CustomHeaders.FoldLines := False; IdHTTP1.Request.CustomHeaders.Add('Authorization:Bearer ' + PAnsiChar(ptoken)); IdHTTP1.Request.CharSet := ''; IdHTTP1.Request.ContentType := 'application/xml'; IdHTTP1.Request.ContentEncoding := 'raw'; try idHttp1.Post(sLinkEmitir, MyText, Response); except on E:EIdHTTPProtocolException do ShowMessage(e.ErrorMessage); end; MyText.Free;

Alguem será ?

Bom dia, estou com problemas de enviar o XML , o RESTResponse.StatusCode retorna sempre 406. ao usar o HTTP POST request do REQBIN com o mesmo XML o retorno eh 200 , e com assinatura OK Se alguem indentificar a causa do problema. ReSTRequest := TRESTRequest.Create(Application); RESTResponse := TRESTResponse.Create(Application); RESTClient := TRESTClient.Create(nil); OAuth2_PMF:= TOAuth2Authenticator.Create(Application); OAuth2_PMF.AuthorizationEndpoint := https://nfps-e.pmf.sc.gov.br/api/v1/processamento/notas/processa; OAuth2_PMF.RedirectionEndpoint := https://nfps-e.pmf.sc.gov.br/api/v1/processamento/notas/processa; RESTRequest.ResetToDefaults; RESTClient.ResetToDefaults; RESTResponse.ResetToDefaults; OAuth2_PMF.AccessToken := pAnsichar( pToken); RESTRequest.Client := RESTClient; RESTRequest.Response := RESTResponse; RESTClient.BaseURL :=https://nfps-e.pmf.sc.gov.br/api/v1/processamento/notas/processa //RESTClient.Authenticator := nil; RESTClient.Authenticator := OAuth2_PMF; RESTRequest.Method := TRESTRequestMethod.rmPOST; LDocument := TXMLDocument.Create(nil); LDocument.LoadFromFile( pAnsichar( pArquivoXML)); { File should exist. } RESTRequest.Params.AddItem('Authorization', ' Bearer ' + OAuth2_PMF.AccessToken, TRESTRequestParameterKind.pkHTTPHEADER, [poDoNotEncode]); //RESTRequest.Params.AddItem('Host', 'nfps-e.pmf.sc.gov.br', TRESTRequestParameterKind.pkHTTPHEADER, [poDoNotEncode]); //RESTRequest.Params.AddItem('Content-Type', 'application/xml', TREstRequestParameterKind.pkHTTPHEADER, [poDoNotEncode], TRESTContentType.ctMULTIPART_FORM_DATA); RESTRequest.AddBody(LDocument.XML.Text , ctTEXT_XML ); RESTRequest.Accept := 'text/xml'; showmessage('ANTES EXECUTE'); RESTRequest.Execute; showmessage('depois EXECUTE'); Obrigado. Rogerio Lindemayer

Boa Tarde. Que ruim isso. A resposta que me retornaram no e-mail foi péssima então. Pois ao retornar "Não temos ambiente de homologação.Para testes, você deve informar a tag <teste_nfse>1</teste_nfse> dentro do seu XML." A TAG estava incorreta, e ainda não funciona com todos municípios do Provedor. teria que tratar no fonte com um "AND codigo do municipio".

Olá. Bom dia. Pode fechar o tópico. Obrigado.

Boa Tarde. Fiz a validação no provedor IPM no componente antigo. retorna os dados e imprime DANFE. Obrigado.