POGetProd - Manipular informações na pesquisa de produtos para a ordem de produção no APP Minha Produção

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):

Nome

Tipo

Descrição

Default

Obrigatório

Referência

PARAMIXB[1]

Array Objects

Array de objetos com os produtos que serão retornados na pesquisa de produtos dos formulários de criação de ordem de produção.

Cada posição do array contém um json object com o código e descrição do produto, além de campos reservados para mostrar contéudo customizado no card do produto na pesquisa.

PARAMIXB[2]

String

Código do formulário.

Idiomas:

Todos

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

O ponto de entrada POGetProd é executado na requisição de consulta dos produtos após informar os parâmetros de pesquisa.
Com este ponto de entrada, é possível adicionar e remover produtos da pesquisa, além de adicionar até duas informações por produto para mostrar no card da pesquisa.

Localização:

API prodOrderApp, método Get queryProducts- Responsável por devolver os produtos que se encaixam nos parâmetros da pesquisa.

Eventos:

Não se aplica.

Programa Fonte:

ProductionOrderAppAPI.PRW

Sintaxe:

POGetProd( ) --> aItemsObj

Retorno:

Nome	Tipo	Descrição	Obrigatório
aItemsObj	Array Objects	Array de objetos que será retornado pela api para apresentar a consulta de produtos no aplicativo Minha Produção. Neste array é possível adicionar e remover produtos da pesquisa, além de adicionar até duas informações por produto para mostrar no card da pesquisa. Mesmo que o array não seja alterado, ele deve ser retornado no mesmo formato para que possa apresentar a consulta corretamente.	Sim

Observações:

Não é permitida a utilização de qualquer componente de interface gráfica nesse ponto de entrada, visto que a função será executada durante uma requisição REST.

#INCLUDE "TOTVS.CH"
 
User Function POGetProd()
    Local cForm     := PARAMIXB[2]
    Local aItemsObj := PARAMIXB[1]
    Local nLenArr   := Len(aItemsObj)
    Local nX        := 0
     
    If AllTrim(cForm) == "OPFORM"
        For nX:=1 To nLenArr
            If AllTrim(aItemsObj[nX]["Code"]) == "PRODUTO"
                aItemsObj[nX]["CustomLabel1"] := ""
                aItemsObj[nX]["CustomValue1"] := "Injetora 01"
                aItemsObj[nX]["CustomLink1"]  := ""
                aItemsObj[nX]["CustomLabel2"] := "Processo Prod."
                aItemsObj[nX]["CustomValue2"] := "Link Processo"
                aItemsObj[nX]["CustomLink2"]  := "http://www.google.com.br/search?q=PRODUTO"
            EndIf
        Next nX
    EndIf
    

Return aItemsObj