Ir para o conteúdo
Carlos Pais

Comunicação dos Elementos das Facturas, SAFT-PT

Mensagens Recomendadas

Carlos Pais

Webservice para registo de faturas emitidas

Já alguem tem algum exemplo funcional para o envio do XML

Eu tenho um codigo assim:

 Dim strURL = "http://servicos.portaldasfinancas.gov.pt/faturas/"
 Dim strSoapAction = "http://servicos.portaldasfinancas.gov.pt/faturas/"
 Dim strXml = txtCaminho.Text
 PostWebservice(strURL, strSoapAction, strXml)
....

Private Function PostWebservice(ByVal AsmxUrl As String, ByVal SoapActionUrl As String, ByVal XmlBody As String) As String
 Dim objDom As Object
 Dim objXmlHttp As Object
 Dim strRet As String
 Dim intPos1 As Integer
 Dim intPos2 As Integer
 On Error GoTo Err_PW
 '' Create objects to DOMDocument and XMLHTTP
 objDom = CreateObject("MSXML2.DOMDocument")
 objXmlHttp = CreateObject("MSXML2.XMLHTTP")
 '' Load XML
 objDom.async = False
 objDom.LoadXML(XmlBody)
 '' Open the webservice
 objXmlHttp.Open("POST", AsmxUrl, False)
 '' Create headings
 objXmlHttp.setRequestHeader("Content-Type", "text/xml; charset=ISO-8859-1")
 objXmlHttp.setRequestHeader("SOAPAction", SoapActionUrl)
 '' Send XML command
 objXmlHttp.send(objDom.xml)
 '' Get all response text from webservice
 strRet = objXmlHttp.responseText
 '' Close object
 objXmlHttp = Nothing
 '' Extract result
 intPos1 = InStr(strRet, "Result>") + 7
 intPos2 = InStr(strRet, "</")
 If intPos1 > 7 And intPos2 > 0 Then
	 strRet = Mid(strRet, intPos1, intPos2 - intPos1)
 End If
 '' Return result
 PostWebservice = strRet
 MsgBox(PostWebservice, MsgBoxStyle.Information)
 Exit Function
Err_PW:
 PostWebservice = "Error: " & Err.Number & " - " & Err.Description
 MsgBox(PostWebservice, MsgBoxStyle.Information)

End Function

que aparentemente está a funcionar, mas está a dar erro 5, que segundo parece é erro no login e password, que defacto está mal, pois falta-lhe o certificado, alguem sabe de como colocar o certificado a funcionar ...

Editado por apocsantos
geshi

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
spinny

de acordo com as paginas 9 e 10 em http://info.portaldasfinancas.gov.pt/NR/rdonlyres/AC494AE7-7E41-41C9-991B-15C3F0126ABF/0/ComunicacaodosdadosdasfaturasaAT.pdf , o username e a pass devem ser encriptados com uma chave AES e essa chave e que e encriptada com o certificado

um amigo meu recebeu: o doc acima, 2 certs, user e pass de teste por email.

possivelmente para obteres o cert. teras que fazer algum tipo de registo.


peace & love - keep on coding

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Carlos Pais

Pois eu tambem já tenho isso, ... mas não sei é de como ponho isso a funcionar ...

de acordo com as paginas 9 e 10 em http://info.portaldasfinancas.gov.pt/NR/rdonlyres/AC494AE7-7E41-41C9-991B-15C3F0126ABF/0/ComunicacaodosdadosdasfaturasaAT.pdf , o username e a pass devem ser encriptados com uma chave AES e essa chave e que e encriptada com o certificado

um amigo meu recebeu: o doc acima, 2 certs, user e pass de teste por email.

possivelmente para obteres o cert. teras que fazer algum tipo de registo.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.