Histórico da Página

CONTEÚDO

Dados Gerais
Descrição
Sintaxe
Parâmetros
Retorno
Exemplo

01. DADOS GERAIS

Produto:	TOTVS Backoffice
Linha de Produto:	Linha Protheus
Segmento:	Backoffice
Módulo:	SIGAFAT - Faturamento
Função:	MATI040O - Mensagem Única Vendedor (Seller) via JSON
Abrangências:	Microsiga Protheus 12
Versões:	Microsiga Protheus 12
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível com as Bases de Dados:	Todos
Nível de Acesso:	Nível 1 (Acesso Clientes)
Idiomas:	Todos

02. DESCRIÇÃO

Ponto de Entrada utilizado para alterar o array com os dados que serão usados no processamento da rotina de Vendedores.

...

Aviso

title	Importante

Não é permitida a alteração de informações como Filial e Código do vendedor através do Ponto de Entrada. Caso isso ocorra o sistema irá retornar uma mensagem de erro e abortará o processo.

03. SINTAXE

M040OEAI() ---> aRet

04. PARÂMETROS

Nome	Tipo	Descrição	Default	Obrigatório	Referência
aParamIXB	Vetor	Vetor com os dados do vendedor que está sendo executado na mensagem única Seller, sendo: [ 01 ] - aDadosSA3 - Tipo: Array - Relação de campos e seus respectivos conteúdos que serão processados. [ 02 ] - nOpcx - Tipo: Numérico - Identificador da operação que esta sendo realizada (3 - Inclusão, 4 - Alteração e 5 - Exclusão) [ 03 ] - cJson - Tipo: Caracter - String contendo o json recebido na requisição da mensagem única

05. RETORNO

Retorno	Tipo	Descrição	Obrigatório
aRet	Array	Array contendo os dados dos campos que serão processados na gravação do cadastro do vendedor (SA3)	Sim

06. EXEMPLO

Bloco de código

language	cpp
title	Exemplo:

#INCLUDE 'PROTHEUS.CH'
#INCLUDE "FWMVCDEF.CH"
  
User Function M040OEAI()
 
   Local aArea       := GetArea()
 
   Local aParam      := PARAMIXB
 
   Local aDadosSA3   := aParam[1]
   Local nOpcx       := aParam[2]
   Local cJson       := aParam[3]
   Local oJson       := JsonObject():New()

   Local cCampo1     := "XCampo1"
   Local cCampo2     := "XCampo2"
   Local cCampo3     := "XCampo3"

   Local cValCampo1  := ""
   Local nValCampo2  := 0
   Local dValCampo3  := CToD("  /  /    ")

   oJson:fromJson(cJson)

   If oJson["Content"]:HasProperty(cCampo1)
      cValCampo1 := oJson["Content"][cCampo1]
      AAdd(aDadosSA3, {"A3_XCAMPO1", cValCampo1, Nil})
   EndIf

   If oJson["Content"]:HasProperty(cCampo2)
      nValCampo2 := oJson["Content"][cCampo2]
      AAdd(aDadosSA3, {"A3_XCAMPO2", nValCampo2, Nil})
   EndIf

   If oJson["Content"]:HasProperty(cCampo3)
      dValCampo3 := CToD(oJson["Content"][cCampo3])
      AAdd(aDadosSA3, {"A3_XCAMPO3", dValCampo3, Nil})
   EndIf

   RestArea(aArea)
 
Return aDadosSA3

Árvore de páginas

Versões comparadas

Versão antiga 7

Nova versão Atual

Chave