1. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Urgente Json com caracter inválido

Discussão em 'EMS , HCM e Totvs 11' iniciado por Antonio, Novembro 7, 2024 às 15:00.

  1. Antonio

    Antonio Membro Participativo

    Pessoal, tenho uma integração de um sistema com o datasul através de json.
    Em algum momento esta chgando para o programa do datasul algum caracter inválido.
    Preciso saber o que esta chegando no datasul de errado. Segundo o pessoal do outro sofware o problema é no 4gl.
    Estou usando o comando para gerar um arquivo texto, mas é ai que esta dando o erro:
    Erro de 4GL: Não pode converter carácter encontrado na fonte de dados com código de página UTF-8 para o código de página ISO8859-1 (12009) (7211)"

    Comando usado:

    def input param jsonInput as JsonObject no-undo.
    def output param jsonOutput as JsonObject no-undo.
    def var i-dif as int no-undo.
    def var c-nome-arq as char no-undo.
    assign i-dif = random(1,1000000)
    c-nome-arq = session:temp-dir + 'teste_' + string(i-dif) + '.txt'.
    disable triggers for load of cont-emit.

    fix-codepage(lc-teste) = 'UTF-8'.

    copy-lob from jsonInput:GetJsonText() to file c-nome-arq convert target codepage 'utf-8' no-error.

    O erro acontece nesta ultima linha....

    Se alguém puder me ajudar, agradeço
  2. ds201

    ds201 Membro Participativo

    Boa tarde

    Vi um exemplo que talvez seja útil.

    DEFINE VARIABLE cOriginal AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cConverted AS CHARACTER NO-UNDO.

    cOriginal = "Texto com caracteres especiais: äöüß".

    /* Converte a página de códigos da string original para UTF-8 */
    cConverted = FIX-CODEPAGE(cOriginal, "UTF-8").

    MESSAGE "Original: " cOriginal
    SKIP
    "Convertido: " cConverted
    VIEW-AS ALERT-BOX INFO BUTTONS OK.
  3. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

  4. Antonio

    Antonio Membro Participativo

    Obrigado. Vou testar.

Compartilhe esta Página