Histórico da Página
P712VLD - Validação dos passos
...
para execução do MRP
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 P712VLD permite o usuário validar os parâmetros de execução e impedir o avanço nas configurações do MRP. |
Localização: | Funções de validação de página do fonte PCPA712.prw |
Eventos: | Ao clicar para avançar no wizzard de configuração do MRP. |
Programa Fonte: | PCPA712.prw |
Sintaxe: | P712LDTL ( ) → lRetP712VLD |
Retorno: | lRet - Indica se pode avançar para a próxima página do wizzard de configuração. |
Observações: | Realizar a validação de parâmetros apenas da página atual ou anteriores, caso contrario não será possível alterar o parâmetro pela tela pois o avanço estará bloqueado. O ponto de entrada também é chamado na validação das páginas, caso selecionado para pular para o processamento. |
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "PROTHEUS.CH" User Function P712LDTL P712VLD() Local cTela := ParamIxb[1] Local cJson := ParamIxb[2] Local oJson := JsonObject():New() Local aSetup := ParamixB lRet := .T. oJson:FromJson(cJson) If cTela == "TELA_1" If oJson["lGeraDoc"] == .F. aAdd(aSetup, {"demandStartDate" , STOD("20220101")}) aAdd(aSetup, {"demandEndDate" , STOD("20221231")}) aAdd(aSetup, {"demandsProcessed" , .T.}) aAdd(aSetup, {"eventLog" Help(' ',1,"P712VLD",, "Deve gerar documentos no final do cálculo",2,0) lRet := .F. EndIF ElseIf cTela == "TELA_2" If Val(oJson["numberOfPeriods"]) > 30 Help(' ',1,"P712VLD",, "Só pode executar com 30 periodos ou menos",2,0) lRet := .F. EndIf ElseIf cTela == "TELA_3" If oJson["safetyStock"] == "1" Help(' ',1,"P712VLD",, "Estoque de segurança deve estar configurado como não",2,0) lRet := .F. EndIf If oJson["orderPoint"] == "1" Help(' ',1,"P712VLD",, "Ponto de pedido deve estar configurado como não",2,0) lRet := .F. EndIf ElseIf cTela == "TELA_4" If oJson["consolidatePurchaseRequest"] != "2" Help(' ',1,"P712VLD",, "Não pode aglutinar solicitações de compra",2,0) lRet ,:= .F.}) EndIf If oJson["consolidateProductionOrder"] != "2" aAdd(aSetupHelp(' ',1,"P712VLD",, {"lGeraDoc""Não pode aglutinar ordens de produção",2,0) , lRet := .T.}) F. EndIf ElseIf cTela == "TELA_5" If oJson["documentType"]["PREVISTOS"] != "1" aAdd(aSetup Help(' ',1,"P712VLD",, {"lRastreiaEntradas","Documentos previstos devem ser excluidos",2,0) lRet := .F.}) Return aSetup EndIf EndIf Return lRet |