Histórico da Página

#Include "PROTHEUS.CH"

User Function PLMPJSIN()
    
    Local cJson := ""
    Local cOpeInt := Substr(PARAMIXB[1], 1, 4)
    Local cAnoInt := Substr(PARAMIXB[1], 5, 4)
    Local cMesInt := Substr(PARAMIXB[1], 9, 2)
    Local cNumInt := Substr(PARAMIXB[1], 11, 8)
    Local aListaInternacao := PARAMIXB[2]

    // Tratamento para montagem do JSON

    cJson := FWJsonSerialize(aListaInternacao, .F., .F.)

Return cJson