| Produto: | |
|---|
| Linha de Produto: | |
|---|
| Segmento: | |
|---|
| Módulo: |
TOTVS Backoffice (Linha Protheus) - Gestão de Projetos (SIGAPMS)
|
|---|
| Função: | OMSI010O - Função de integração com o adapter EAI para e envio e recebimento de mensagem tabela de preços (DA0) |
|---|
| País: | BRASIL |
|---|
| Ticket: |
|
|---|
| Requisito/Story/Issue: | DSDEXPED-2 |
|---|
Adicionar ponto de entrada no fonte OMSI010O.PRW (mensagem única de tabela de preços EAI) para ser possível enviar na mensagem campos customizados na tabela de preços (DA0,DA1), mensagem PriceListHeaderItem.
Realizado a inclusão do ponto de entrada OMSIOAIT e OMSIOACT no fonte OMSI010O.PRW.
Exemplo do ponto de entrada para adicionar tags no cabeçalho da tabela de preços:
User Function OMSIOACT()
Local cJson := ''
Local ret := nil
Local oModelDA0 := PARAMIXB[2]
ConOut("Inicio - ponto de entrada OMSIOACT")
cJson += '{'
cJson += '"TcOrthers": {'
cJson += '"DA0_FLDTST" : "' + Alltrim(oModelDA0:GetValue('DA0_FLDTST')) + '",'
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
ConOut("Fim - ponto de entrada OMSIOACT")
Return cJson
Exemplo do ponto de entrada para adicionar campos na mensagem e linha de itens da tabela de preços.
User Function OMSIOAIT()
Local aRet := {} As Array
Local oModelDA1 := PARAMIXB[2]
ConOut("Inicio - ponto de entrada OMSIOAIT")
aAdd(aRet, {'DA1_FLDTST',oModelDA1:GetValue('DA1_FLDTST')})
aAdd(aRet, {'DA1_FLDTS2',oModelDA1:GetValue('DA1_FLDTS2')})
ConOut("Fim - ponto de entrada OMSIOAIT")
Return aRet
