Histórico da Página
POPostVld - Validar informações para criação da ordem de produção pelo 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 POPostVld é executado nas requisições de criação da ordem de produção da API ProdOrderApp. Com este ponto de entrada, é possível validar as informações que estão sendo enviadas para gravar a ordem de produção , e retornar uma mensagem personalizada informando a inconsistência identificada, impedindo a criação da ordem caso as informações sejam inválidas. Este ponto de entrada é executado depois do ponto de entrada POPostMnt, responsável pela manipulação dos dados para criação da Ordem de Produção.
| ||||||||||
Localização: | API ProdOrderApp, método POST prodOrders - Responsável por enviar os dados à classe de gravação da ordem de produção. | ||||||||||
Eventos: | Não se aplica. | ||||||||||
Programa Fonte: | ProductionOrderAppAPI.PRW | ||||||||||
Sintaxe: | POPostVld( ) --> oJson | ||||||||||
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. |
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "TOTVS.CH" User Function POPostMntPOPostVld() Local cJson := PARAMIXB[1] Local oJson := JsonObject():New() Local aRet := {} //Converte a string JSON para objeto JSON, para que seja possível manipular os dados. oJson:FromJson(cJson) If oJson["FORMCODE"] == "FORMOP" If oJson["C2_PRIORTPPR"] :== "500I" oJson["C2_CHRCSTM"]aRet := {.T., "AJUSTE CAMPO CUSTOMIZADO" ""} Else EndIf //Converte oaRet objeto Json com as informações manipuladas em uma String Json. cJson := oJson:ToJson() Conout("cJson: " + cJson) := {.F., "Formulário habilitado somente para ordens de produção internas."} EndIf EndIf //Limpa da memória o objeto Json utilizado. FREEOBJ( oJson ) Return cJson aRet |