macs Posted April 16, 2019 Report Share Posted April 16, 2019 Boa tarde pessoal, Algum de vocês possuem um exemplo de consumo de webservice para Nota Fiscal de Serviço de João Pessoa-PB? Sou leigo no assunto e gostaria de entender melhor. Fico no aguardo, Obrigado. Quote Link to comment Share on other sites More sharing options...
macs Posted April 18, 2019 Author Report Share Posted April 18, 2019 Algum possue algum exemplo de consumo de webservice para Nota Fiscal de Serviço de qualquer outro estado? Desde já agradeço! Quote Link to comment Share on other sites More sharing options...
macs Posted April 25, 2019 Author Report Share Posted April 25, 2019 Olá pessoal, consegui a rotina que estava procurando. Mas estou com o seguinte problema: No código abaixo, quando chega na linha " oSchema:Add( "http://www.abrasf.org.br/nfse", cSchemaFilename )" gera o seguinte erro: Error: 1001 SubC: 3 OSCode: 0 Subsystem: MSXML2.ServerXMLHTTP.6.0 DISP_E_MEMBERNOTFOUND Alguém tem ideia do que possa está acontecendo? Já registrei as Dlls, mas não tem jeito. oSchema:= CreateObject( "MSXML2.ServerXMLHTTP.6.0" ) cSchemaFilename := diskName() + ":\" + CurDir() + "\Schemas\nfsev202.xsd" IF ! File( cSchemaFilename ) RETURN msgErro( "Schema não encontrado " + cSchemaFilename ) ENDIF TRY oSchema:Add( "http://www.abrasf.org.br/nfse", cSchemaFilename ) CATCH oError cMsgErro := "Falha " + CRLF + ; "Error: " + Transform(oError:GenCode, nil) + ";" +CRLF+ ; "SubC: " + Transform(oError:SubCode, nil) + ";" +CRLF+ ; "OSCode: " + Transform(oError:OsCode, nil) + ";" +CRLF+ ; "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ; "Mensangem: " + oError:Description RETURN msgErro(cMsgErro) END Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 25, 2019 Report Share Posted April 25, 2019 Veja se ajuda: http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=20043 Quote Link to comment Share on other sites More sharing options...
macs Posted April 25, 2019 Author Report Share Posted April 25, 2019 Veja se ajuda: http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=20043 Obrigado Kapiaba, mas não ajuda! Acho que é algum problema com DLL msxml6.dll e msxml6r.dll Já baixei outras, já registrei e nada. É como se o método Add não existisse (DISP_E_MEMBERNOTFOUND). Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 25, 2019 Report Share Posted April 25, 2019 Você fez todas as atualizações de versão do rWindows? Quote Link to comment Share on other sites More sharing options...
macs Posted April 25, 2019 Author Report Share Posted April 25, 2019 Fiz Quote Link to comment Share on other sites More sharing options...
coutinho.amauri Posted April 25, 2019 Report Share Posted April 25, 2019 me chame no skype Quote Link to comment Share on other sites More sharing options...
coutinho.amauri Posted April 25, 2019 Report Share Posted April 25, 2019 skype coutinho.amauri Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.