Como Criar uma Classe de Objetos em ADVPL para Serialização de Dados

💡 Se gostou deste conteúdo, compartilhe com quem precisa

Quando trabalhamos com WebServices REST no Protheus, muitas vezes precisamos converter arrays ou estruturas de dados em objetos organizados, para facilitar a serialização em JSON. Este artigo mostra um exemplo prático e reutilizável de como criar uma classe chamada Objetos para esse propósito, com uso de boas práticas de encapsulamento e construção dinâmica.

Definição da Função Inicial

#include 'protheus.ch'
#include 'totvs.ch'

User Function FBOBJ()
Return

#include 'protheus.ch'

#include 'totvs.ch'

User Function FBOBJ()

Return

Esta função principal serve como ponto de entrada e é necessária para o registro no dicionário de funções do Protheus.

Criação da Classe `Objetos`

A classe foi definida com o objetivo de armazenar um array e permitir fácil serialização posteriormente:

/*/{Protheus.doc} Objetos
Classe de Objetos para realizar a serialização do objeto de Objetos
@author Fernando Bueno
@since 14/04/2017
@version 1.0
@example
(examples)
@see (links_or_references)
/*/
Class Objetos
  Data aDados As Array
  Method New(aDados) Constructor
EndClass

/*/{Protheus.doc} Objetos

Classe de Objetos para realizar a serialização do objeto de Objetos

@author Fernando Bueno

@since 14/04/2017

@version 1.0

@example

(examples)

@see (links_or_references)

/*/

Class Objetos

Data aDados As Array

Method New(aDados) Constructor

EndClass

Implementando o Método Construtor

O método New recebe um array e utiliza uma função auxiliar para tratar os dados antes de armazená-los. Isso facilita a posterior serialização e evita inconsistências.

/*/{Protheus.doc} new
Metodo construtor
@author Fernando Bueno
@since 14/04/2017 
@version 1.0
@example
(examples)
@see (links_or_references)
/*/
Method New(aDad) Class Objetos
  aDad := u_FBArrAcen(aDad)
  ::aDados := aDad
Return(Self)

/*/{Protheus.doc} new

Metodo construtor

@author Fernando Bueno

@since 14/04/2017

@version 1.0

@example

(examples)

@see (links_or_references)

/*/

Method New(aDad) Class Objetos

aDad := u_FBArrAcen(aDad)

::aDados := aDad

Return(Self)

A função u_FBArrAcen() aparentemente é uma função utilitária personalizada para ajustar ou sanitizar o conteúdo do array, garantindo compatibilidade com o formato de saída esperado.

Código Completo Fornecido

#include 'protheus.ch'
#include 'totvs.ch'

User Function FBOBJ()
Return

/*/{Protheus.doc} Objetos
Classe de Objetos para realizar a serialização do objeto de Objetos
@author Fernando Bueno
@since 14/04/2017
@version 1.0
@example
(examples)
@see (links_or_references)
/*/
Class Objetos
	Data aDados	As Array
	Method New(aDados) Constructor
EndClass

/*/{Protheus.doc} new
Metodo construtor
@author Fernando Bueno
@since 14/04/2017 
@version 1.0
@example
(examples)
@see (links_or_references)
/*/
Method New(aDad) Class Objetos
aDad := u_FBArrAcen(aDad)
::aDados := aDad
Return(Self)

#include 'protheus.ch'

#include 'totvs.ch'

User Function FBOBJ()

Return

/*/{Protheus.doc} Objetos

Classe de Objetos para realizar a serialização do objeto de Objetos

@author Fernando Bueno

@since 14/04/2017

@version 1.0

@example

(examples)

@see (links_or_references)

/*/

Class Objetos

Data aDados As Array

Method New(aDados) Constructor

EndClass

/*/{Protheus.doc} new

Metodo construtor

@author Fernando Bueno

@since 14/04/2017

@version 1.0

@example

(examples)

@see (links_or_references)

/*/

Method New(aDad) Class Objetos

aDad := u_FBArrAcen(aDad)

::aDados := aDad

Return(Self)

Definição da Função Inicial

Criação da Classe Objetos

Implementando o Método Construtor

Código Completo Fornecido

Leave a Reply Cancelar resposta

Criação da Classe `Objetos`