01. DADOS GERAIS
| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | OMSI010O - Funcao de integracao com o adapter EAI para e envio e recebimento de mensagem tabela de preços (DA0) |
| País: | BRASIL |
| Ticket: | |
| Requisito/Story/Issue: | DSDIPAAS-4219 |
02. SITUAÇÃO/REQUISITO
Adicionar um ponto de entrada no OMSI010O.PRW para ser possível enviar campos customizados na tabela de preços (DA0,DA1) na mensagem única PriceListHeaderItem.
03. SOLUÇÃO
Realizado a inclusão do ponto de entrada OMSIOAIT e OMSIOACT no fonte OMSI010O.PRW.
04. DEMAIS INFORMAÇÕES
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
05. ASSUNTOS RELACIONADOS
- Não há.