rlind

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.

Bom dia. Esta Certo. Estou anexando. Obrigado. IPM.GravarXml.pas

Boa Tarde. Ao enviar o Rps para o provedor IPM é retornado o XML da NFS-e? ==> A minha impressão eh que volta sim, mais uma vez baseado de como está no componente antigo, que eh onde o cliente aqui emite NFS-e da Palhoça atualmente, carrega o xml e imprime a Danfe, vou confirmar aqui.