Histórico da Página
PApGetOP - Manipular informações da ordem de produção para o 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 PApGetOP é executado nas requisições de consulta de ordem de produção da API ProductionAppointment. Com este ponto de entrada, é possível modificar as informações que serão retornadas para o APP Minha Produção. | |||||||||||||
Localização: | API ProductionAppointment, método GET ProductionOrder - Responsável por buscar as informações de uma ordem de produção para utilização no APP Minha Produção. | |||||||||||||
Eventos: | Não se aplica. | |||||||||||||
Programa Fonte: | ProductionAppointment.PRW | |||||||||||||
Sintaxe: | PApGetOP( ) --> oJsonRet | |||||||||||||
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 PApGetOP() Local cTipo := PARAMIXB[1] Local cJsRet := PARAMIXB[2] Local cFormCode := PARAMIXB[3] Local cReqSource := PARAMIXB[4] Local cBcodeData := PARAMIXB[5] Local oJsRet := JsonObject():New() //Converte a string JSON para objeto JSON, para que seja possível manipular os dados. oJsRet:FromJson(cJsRet) Conout("PE antes alteracao. Tipo: " + cTipo + " JSON: " + cJsRet) Do Case Case cTipo == "1" // Apontamento MATA250 If cReqSource == '"PR' " oJson["BC_OBSERVA"] := '"Perda lançada pelo APP' Else oJsRet" Else oJsRet["CostCenter"] := "01" oJsRet["CustomFieldCharacter01"] := "Produto:" + oJsRet["ItemCode"] EndIf Case If !Empty(cBcodeData) oJsRet["DocumentCode"] := Substr(cBcodeData,15,10) EndIf EndIf Case cTipo == "3" // Apontamento MATA681 If cReqSource == "AV" .Or. cReqSource == "ST" .Or. cReqSource == "QU" If cFormCode = "USINAGEM" oJsRet["MachineCode"] := "REC" // Máquina padrão para o formulário "USINAGEM" Else oJsRet["MachineCode"] := "IMP" // Máquina padrão para o restante dos formulários EndIf EndIf Case cTipo == "4" // Apontamento SFCA314 oJsRet["EndReportTime"] := Time() EndCase //Converte o objeto Json com as informações manipuladas em uma String Json. cJsRet := oJsRet:ToJson() //Limpa da memória o objeto Json utilizado. FreeObj(oJsRet) Conout("PE Apos alteracao. Tipo: " + cTipo + " JSON: " + cJsRet) Return cJsRet |