Versões comparadas
Chave
- Esta linha foi adicionada.
- Esta linha foi removida.
- A formatação mudou.
01. DADOS GERAIS
Produto: |
| |||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Linha de Produto: |
| |||||||||||||
Segmento: |
| |||||||||||||
Módulo: |
| |||||||||||||
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: | DSDIPAASDSDEXPED-42192 |
02. SITUAÇÃO/REQUISITO
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.
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á.