rlind

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.

Ola. Identifiquei que a TAG na verdade tem que ser "nfse_teste" no XML de envio, e o retorno da IPM eh um codigo de erro : "00285 - NFs-e vÁlida para emissÃo.", ou seja Soh serve para identificar que o XML de envio esta correto e não tem impressão de DANFE em homologação. Eu alterei o fonte IPM.GravarXml.pas para escrever essa TAG, com isso voces querem que eu anexe esse .pas para aplicar no SVN? Obrigado.

Vou ver para quando estiver gerando o xml escrever essa tag mencionada no caso de homologação.

Olá. Bom dia. Tive retorno por e-mail. Segue resposta abaixo , porém não disse aonde vai essa TAG , estou tentando identificar. Se alguem souber. "Não temos ambiente de homologação. Para testes, você deve informar a tag <teste_nfse>1</teste_nfse> dentro do seu XML."

Boa Tarde. Dentre os clientes que atendemos com NFS-e é usado três Provedores (Betha, IPM, ISSCuritiba) , então na minha rotina em Delphi 7 ao emitir NFS-e pela IPM ( Palhoça - SC) , não esta carregando os dados como esta no provedor Betha ou ISSCuritiba. onde se recupera os dados em : ACBrNFSex1.NotasFiscais.Items[0].NFSe.CodigoVerificacao , ACBrNFSex1.NotasFiscais.Items[0].NFSe.Numero, ACBrNFSex1.NotasFiscais.Items[0].NFSe.Protocolo, ACBrNFSex1.NotasFiscais.Items[0].NomeArq e o componente DANFE esta vazio, gerando o preview sem dados e valores zerados. Obrigado.

Boa Tarde. Esta certo. Vou perguntar e atualizo o Topico Obrigado.

Bom dia, Conforme orientação, abrindo novo tópico sobre outra dùvida. O Provedor IPM (Municipio => Palhoça - SC) tem ambiente de homologação? O componente esta em ambiente de homologação, porem esta gerando a NFS-e em produção. conforme arquivo anexado. É possível testar em ambiente de homologação para [IPM], para ficar tranquilo o desenvolvimento ? Obrigado.

Boa Tarde. o que notei aqui seria que ao emitir NFS-e pela IPM ( Palhoça - SC) , não esta carregando os dados como esta no provedor Betha ou ISSCuritiba. onde se recupera os dados em : ACBrNFSex1.NotasFiscais.Items[0].NFSe.CodigoVerificacao , ACBrNFSex1.NotasFiscais.Items[0].NFSe.Numero, ACBrNFSex1.NotasFiscais.Items[0].NFSe.Protocolo, ACBrNFSex1.NotasFiscais.Items[0].NomeArq e o componente DANFE esta vazio, gerando o preview sem dados. Obrigado.