POSGetOP- Manipular informações na pesquisa de ordens 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): |
| |||||||||
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 POSGetOP é executado na requisição de consulta das ordens de produção após informar os parâmetros de pesquisa. As duas informações customizadas que poderão ser adicionadas a um card na pesquisa terão três atributos cada uma. O primeiro é "CustomLabel", que é referente a um rótulo ou descrição do valor que será adicionado. O segundo é "CustomValue", que é referente ao valor vinculado ao rótulo criado. Ex.: oJson["CustomLabel"] := "Máquina", oJson["CustomValue"] := "Injetora". O terceiro é "CustomLink", que é referente ao link que será aberto no navegador quando o usuário clicar no campo de valor. Obs.: Para mostrar a informação customizada no card de pesquisa, o único atributo de preenchimento obrigatório é o "CustomValue". Se o atributo "CustomLink" for informado, o atributo "CustomValue" será um link que será aberto no navegador, caso contrário, será apenas um campo texto. | ||||||||
Localização: | API ProductionOrdersSearch, método GET productionordermaster - Responsável por devolver as ordens de produção que se encaixam nos parâmetros da pesquisa. | ||||||||
Eventos: | Não se aplica. | ||||||||
Programa Fonte: | ProductionOrdersSearch.PRW | ||||||||
Sintaxe: | POSGetOP( ) --> aItemsObj | ||||||||
Retorno: |
| ||||||||
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 POSGetOP() Local aItemsOP := PARAMIXB[1] Local cForm := PARAMIXB[2] Local nIndItem := 0 Local nLenArr := Len(aItemsOP) For nIndItem := 1 To nLenArr If cForm == "0000000002" SH8->(dbSetOrder(1)) If SH8->(dbSeek(xFilial("SH8")+aItemsOP[nIndItem]["ProductionOrderNumber"]+aItemsOP[nIndItem]["ActivityCode"])) aItemsOP[nIndItem]["CustomLabel1"] := "Recurso" aItemsOP[nIndItem]["CustomValue1"] := SH8->H8_RECURSO + " " + POSICIONE("SH1",1,xFilial("SH1")+SH8->H8_RECURSO,"H1_DESCRI") aItemsOP[nIndItem]["CustomLink1"] := "" aItemsOP[nIndItem]["CustomLabel2"] := "Início Carga" aItemsOP[nIndItem]["CustomValue2"] := dToC(SH8->H8_DTINI) + " " + SH8->H8_HRINI aItemsOP[nIndItem]["CustomLink2"] := "" EndIf EndIf If AllTrim(cForm) == "030101" aItemsOP[nIndItem]["CustomLabel1"] := "" aItemsOP[nIndItem]["CustomValue1"] := "Pesquisa produto no Google" aItemsOP[nIndItem]["CustomLink1"] := "http://www.google.com.br/search?q=" + AllTrim(aItemsOP[nIndItem]["ItemCode"]) EndIf Next nIndItem Return aItemsOP