Histórico da Página
POGetPdInf - 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 POGetPdInf é executado nas requisições de consulta de Produto da API ProdOrderApp. Com este ponto de entrada, é possível modificar as informações que serão retornadas para o APP Minha Produção e que serão exibidas no formulário que será utilizado para criar as ordens de produção.
| |||||||||||||||||||||||||||||||||||||||||
Localização: | API ProdOrderApp, método GET productInfo - Responsável por buscar as informações de um produto para utilização no APP Minha Produção. | |||||||||||||||||||||||||||||||||||||||||
Eventos: | Não se aplica. | |||||||||||||||||||||||||||||||||||||||||
Programa Fonte: | ProductionOrderAppAPI.PRW | |||||||||||||||||||||||||||||||||||||||||
Sintaxe: | POGetPdInf( ) --> oJsonRetoJson | |||||||||||||||||||||||||||||||||||||||||
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 PApGetOPPOGetPdInf() Local cTipocJson := PARAMIXB[1] Local cJsRet Local cFormCode := PARAMIXB[2] Local cFormCodecBcodeData := PARAMIXB[3] Local oJsRet Local oJson := JsonObject():New() //Converte a string JSON para objeto JSON, para que seja possível manipular os dados. oJsRet oJson:FromJson(cJsRetcJson) Conout("PE antes alteracao. Tipo: " +If cTipocFormCode +== "FORMOP" JSON: " + cJsRet) Do Case Case cTipo == oJson["1C2_PRIOR" // Apontamento MATA250 oJsRet["CostCenter"] := "01" oJsRet["CustomFieldCharacter01"]] := "Produto:999" + oJsRet["ItemCode"] Case cTipo == "3" // Apontamento MATA681 If cFormCode = "USINAGEM" oJsRet["MachineCode"] := "REC" //campo Máquina padrão paradisponível ono formulário "USINAGEM" Else oJsRet["MachineCodedo programa pcpa125 oJson["CustomFieldCharacter02"] := "IMPJOAO CRIOU A OP" //campo Máquinacustomizado padrão para o restante dos formulários If !Empty(cBcodeData) EndIf Case cTipo == "4" // Apontamento SFCA314 oJsRet oJson["EndReportTimeC2_CC"] := TimeSubstr(cBcodeData,20,9) EndCase EndIf EndIf //Converte o objeto Json com as informações manipuladas em uma String Json. cJsRet cJson := oJsRetoJson:ToJson() //Limpa da memória o objeto Json utilizado. FreeObj(oJsRet) Conout("PE Apos alteracao. Tipo: "FREEOBJ( +oJson cTipo) + Return "cJson JSON: " + cJsRet) Return cJsRet |