Histórico da Página

RUN SuframaConsultaSituacao IN hMashuphTas(INPUT "12345678901234", OUTPUT oJson).

RUN SuframaGetCaptcha IN hMashuphTas(OUTPUT oJson).
/*imagem retorna em formato base 64 - utilização de longchar*/
lcImg = oJson:getString("Imagem").

RUN utp/ut-mashuptas-tela.w(INPUT lcImg, INPUT "", OUTPUT cCaptcha, OUTPUT cValor).

RUN SuframaGetInscricoes IN hMashuphTas(INPUT "12345678901234", INPUT cCaptcha, INPUT-OUTPUT oJson).
 
lcImg = oJson:getString("Imagem").
oJsonArray = oJson:getJSONArray("Inscricoes").
 
/*percorrer array para montar LIST-ITEM-PAIRS a ser enviado à tela de verificação*/
DO iCount = 1 TO oJsonArray:COUNT():
    oJsonAux = oJsonArray:getJSONObject(iCount).
    IF cInsc <> "" THEN
        cInsc = cInsc + ",".
    cInsc = cInsc + oJsonAux:getString("Número") + "," + oJsonAux:getString("Número").
END.

RUN utp/ut-mashuptas-tela.w(INPUT lcImg, INPUT cInsc, OUTPUT cCaptcha, OUTPUT cValor).

RUN SuframaGetDados IN hMashuphTas(INPUT cCaptcha, INPUT cValor, INPUT-OUTPUT oJson).