Integrações

Páginas filhas
  • Faturamento - Mensagem EAI PriceListHeaderItem

Versões comparadas

Versão antiga 1

changes.mady.by.user Alessandro Afonso Faria

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Rodrigo David Buchner

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

01. DADOS GERAIS

Produto:

Solucoes_totvs

Solucoes_totvs_cross
SolucaoCrossTOTVS Backoffice

Solucoes_totvs_parceiros
SolucaoParceiros

Solucoes_totvs_parceirosexptotvs
SolucaoParcsExpsTOTVS

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoBackoffice

Módulo:

Modulos_cross_segmentos
ModulosCrossSegmentosTOTVS Backoffice (Linha Protheus) - Gestão de Projetos (SIGAPMS)
modulos_frameworkmodulos_totvs_construcaomodulos_totvs_juridico

Modulos_totvs_logistica

modulos_totvs_manufatura

Modulos_totvs_rh

Modulos_totvs_saude


Função:

OMSI010O - Funcao Função de integracao 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 um 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) 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á.