Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:SIGAFAT - Faturamento
Função:OMSI010O - Mensagem Única Tabela de Preços (PriceListHeaderItem ) 

02. DESCRIÇÃO

Este Ponto de entrada OMSIOACT possibilita adicionar informações à mensagem JSON de envio no cabeçalho da tabela de preços.

03. SINTAXE

OMSIOACT - Possibilita manipulação das informações do cabeçalho da tabela de preços.

04. PARÂMETROS


Nome

Tipo

Descrição

Default

Obrigatório

Referência

PARAMIXB

Array of Record

Array com o tipo de evento e os dados do cabeçalho da tabela de preço, sendo:
[ 01 ] - cEvent - Tipo: Caractere - Tipo de evento UPSERT ou DELETE.
[ 02 ] - oModelDA0 - Tipo: Objeto - Relação dos campos preenchidos na tabela DA0.




X



05. RETORNO

Retorno

Tipo

Descrição

Obrigatório

cJsonCaractere
  • String JSON para ser adicionada à mensagem JSON de envio.
Sim

06. EXEMPLO

Neste exemplo, uma string JSON é criada contendo os campos DA0_FLDTS1 e DA0_FLDTS2, que serão adicionados à mensagem JSON de envio.

OMSIOACT
#INCLUDE 'PROTHEUS.CH' 

User Function OMSIOACT()

    Local cJson      := ""
    Local ret        := Nil
    Local cEvent     := PARAMIXB[1]
    Local oModelDA0  := PARAMIXB[2]

    ConOut("Inicio - ponto de entrada OMSIOACT")

    If cEvent == "upsert"
        cJson += '{'
        cJson += '"TcOrthers": {'
        cJson +=     '"DA0_FLDTS1" : "' + Alltrim(oModelDA0:GetValue('DA0_FLDTS1')) + '",'
        cJson +=     '"DA0_FLDTS2" : "' + Alltrim(oModelDA0:GetValue('DA0_FLDTS2')) + '"'
        cJson +=   '}'
        cJson += '}'

        oJson := JsonObject():New()
        ret := oJson:FromJson(cJson)

        ConOut("cJson -> "+cJson)

        IF ValType(ret) == "C" //Falha ao transformar texto em objeto json
            cJson := ''
        Endif
    EndIf

    ConOut("Fim - ponto de entrada OMSIOACT")

Return cJson