Versão: atual Última Atualização: 29/01/2015
1. IQPU_MPG_PrimeiraOcorrenciaFromData
Método para ler a primeira ocorrência a partir de uma data
1.1. Parâmetros do IQPU_MPG_PrimeiraOcorrenciaFromData
| Parâmetro | Descrição |
|---|---|
| CREDENCIAL | Credencial da sua conta no PitchWink |
| TOKEN | Token de MO (veja na painel de controle em Gerenciar Projetos) |
| PROGRAMAMO | Nome do Programa MO |
| PALAVRACHAVE | Palavra chave utilizada em conjunto com o Programa MO (compartilhado) |
| DATAFROM | Data para início da pesquisa (AAAAMMDD) |
1.2. XML de Retorno
<MOBILEPRONTO_MO RETURN="XXX" FUNCAO="IQPU_MPG_PrimeiraOcorrenciaFromData" MENSAGEM="XXXXXXX" MOBILE="+PP(AA)NNNNNNNN" DATAPOST="AAAAMMDD HHmmss (GMT+00:00)" NUMEROCHAVE="XXX" OPERADORA=”XXXXXXX” DATAPROC="AAAAMMDD HHmmss (GMT+00:00)"/>
1.3. Possíveis Retornos
| Código de Retorno | Descrição |
|---|---|
| 000 | Ok |
| 001 | Nenhuma mensagem disponível |
| 800 | Função inválida |
| 801 | Parâmetros inválidos |
| 900 | Credencial , Token, Programa MO e ou KeyWord inválidos ou inexistentes |
| 910 | Transação não pode ser completada – MT910 |
| 911 | Transação não pode ser completada – MT911 |
1.4. Exemplo
- VB.NET
' Exemplo de utilização em VB ASP NET
' Prepara os parâmetros
'
Dim v_st_parametros As String
v_st_parametros = "?FUNCAO=IQPU_MPG_PrimeiraOcorrenciaFromData" & _
"&CREDENCIAL=DA5D4C6BF3D12650FA5CA83CEFEBBFADD742CEE8" & _
"&TOKEN=" & Server.UrlEncode("#$aRt8") & _
"&PROGRAMAMO=MO-MPG-OPTOUT" & _
"&PALAVRACHAVE=" & Server.UrlEncode("AÇÃO") & "&DATAFROM=20100923"
' Montagem da Url de chamada
Dim v_st_HttpGet As String =
"http://www.pw-api.com/mo/httpget-2-00/mo_2_00.aspx" & v_st_parametros
Dim v_obj_Request As System.Net.HttpWebRequest =
DirectCast(System.Net.WebRequest.Create(v_st_HttpGet), System.Net.HttpWebRequest)
Dim v_st_Xml As String
Dim v_obj_Response As System.Net.WebResponse = v_obj_Request.GetResponse()
If Not IsNothing(v_obj_Response) Then
Dim v_obj_RespXml As New System.IO.StreamReader(v_obj_Response.GetResponseStream())
v_st_Xml = v_obj_RespXml.ReadToEnd()
v_obj_RespXml.Close()
Dim v_obj_Doc As New System.Xml.XmlDocument
v_obj_Doc.LoadXml(v_st_Xml)
Dim v_obj_Element As XmlElement = v_obj_Doc.DocumentElement
' Retorna o Xml no formato:
' <MOBILEPRONTO_MO RETURN="000" FUNCAO="IQPU_MPG_PrimeiraOcorrenciaFromData"
' MENSAGEM="Mensagem Recebida" MOBILE="+55(27)999998888"
' DATAPOST="20100924 222442 (GMT+00:00)" NUMEROCHAVE="534728"
' OPERADORA=”VIVO” DATAPROC="20100924 222515 (GMT+00:00)" />
If v_obj_Element.Attributes("RETURN").Value.Equals("000") Then
Dim v_st_Funcao As String = v_obj_Element.Attributes("FUNCAO").Value
Dim v_st_Mensagem As String = v_obj_Element.Attributes("MENSAGEM").Value
Dim v_st_Mobile As String = v_obj_Element.Attributes("MOBILE").Value
Dim v_st_DataPost As String = v_obj_Element.Attributes("DATAPOST").Value
Dim v_st_NumChave As String = v_obj_Element.Attributes("NUMEROCHAVE").Value
Dim v_st_Operadora As String = v_obj_Element.Attributes("OPERADORA").Value
Dim v_st_DataProc As String = v_obj_Element.Attributes("DATAPROC").Value
Else
' Tratar o resultado de acordo com a tabela de retorno.
End If
Else
' Algum