Histórico da Página

#INCLUDE 

'PROTHEUS.CH'

#INCLUDE "FWMVCDEF.CH"

User Function M040OEAI()

   Local aParam := PARAMIXB

   //Buscara a posição inicial do dado customizado (Ex: Custom) na string Json
   nPosIni := At( 'Custom', PARAMIXB[3])+Len('Custom')+3 //Somando o tamanho da descrição e caractes especiais temos a posição inicial do conteúdo
   
   //Recortamos os dados da string a partir da posição do dado que buscamos
   cContIni := Substr(PARAMIXB[3],nPosIni)

   //Encontramos o fim do dado que buscamos
   nPosFim := At('"',cContIni) 

   //Recortamos apenas o dado que buscavamos da string
   cConteudo := SubStr(PARAMIXB[3], nPosIni, nPosFim-1)

   //Adicionamos o campo customizado e o conteudo fornecido pela string do json ao array de retorno
   aAdd(aParam[1],{"A3_CUSTOM",cConteudo,Nil}) 

Return aParam[1]