Como recuperar os dados de uma %Stream.GlobalCharacter
Boa Noite / Tarde / Dia
Estou tendo o trabalho para recuperar os dados (JSON) de campos de uma tabela no formato
segue uma estrutura de como estou tentando recuperar esse dado:
;
S SQL = ""
S SQL = "SELECT CONT_JSONENVPEV,CONT_JSONENVAR,CONT_JSONENVROM FROM TRADUCAO.xYCONTIGENCIAWMS WHERE CONT_CODEMP = '"_CODEMP_"' AND CONT_CODCHAVE = '"_NUMKEY_"' AND CONT_TIPO = '"_TIPOCO_"'"
set status = tStatement.%Prepare(SQL)
set tResult = tStatement.%Execute()
;
D tResult.%Next()
set stream = ##class(%Stream.GlobalCharacter).%New()
S jsonPEV = "", jsonPEV = stream.Read(tResult.%GetData(1))
S jsonAR = "", jsonAR = stream.Read(tResult.%GetData(2))
S jsonROM = "", jsonROM = stream.Read(tResult.%GetData(3))
Desde já agradeço qualquer ajuda ou orientação
Bom dia Luiz,
No código em que você vai fazer a leitura da Stream, você pode usar da seguinte forma:
O que retorna no SQL é o OID da Stream, que você precisa para abrir e recuperar o conteúdo da mesma.
Muito obrigado Djeniffer! deu certo e me ajudou muito!
Ótimo