Histórico da Página

ÍNDICE

Visão Geral
Exemplo de utilização
Conteúdos Relacionados

01. VISÃO GERAL

A execução do MRP (em Memória) - PCPA712 pode ser configurado para ser feita em modo SCHEDULE. Para isso, é necessário a realizar uma chamada na função PCPA712JOBPCPA712, passando os parâmetros da execução, que podem ser encontrados na tabela abaixo.

Parâmetro	Tipo	Descrição	Obrigatório	Default
oParametros	Object	Json com os parâmetros de execução do MRP.	X
lCancel	Lógico	Indica se irá cancelar o ticket reservado.		.F.
lIntegra	Lógico	Indica se irá realizar a integração no caso de pendencias.		.F.

02. EXEMPLO DE UTILIZAÇÃO

Para obter os parâmetros de execução do MRP, é possível utilizar a função PCPA712Par, que P712Param passando um valor .T. por parâmetro. Isso irá retornar um objeto JSON, com os parâmetros padrões de execução.

...

Bloco de código

language	java
title	Exemplo
linenumbers	true

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function MrpSchdl()
    Local oParam := Nil

    PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "PCP"
    
    oParam := PCPA712ParP712Param(.T.)  // Parâmetros Padrões

    /* ---- Parâmetros Obrigatórios ---- */
	oParam["cEmpAnt"] := cEmpAnt
	oParam["branchIdcFilAnt"] := cFilAnt
    oParam["user"]     := "000000"

    /* ---- Parâmetros Adicionais ---- */
	    oParam["cEmpAnt"TELA_1"]["HW2_CODIGO"]          := ""
    oParam["TELA_1"]["HW2_DESCRI"]          := cEmpAnt""
    oParam["allocationSuggestion"]          := "12"
    oParam["blockedLot"]                    := "12"
    oParam["consignedIn"]                   := "12"
    oParam["consignedOut"]                  := "21"
    oParam["consolidateProductionOrder"]    := "13"
    oParam["consolidatePurchaseRequest"]    := "13"
    oParam["demandCodes"]["LISTA"]          := "|003|"
    oParam["demandEndDate"]                 := SToD("20220313")Date() + 30
    oParam["demandsProcessed"]              := .T.
    oParam["demandStartDate"]               := SToDDate("20220101")
    oParam["demandType"]["EMP_PROJETO"]     := .T.
    oParam["demandsProcessed"demandType"]["MANUAL"]           := .T.
    oParam["eventLog"demandType"]["PEDIDO_VENDA"]    := .T.
    oParam["demandType"]["PLANO_MESTRE"]    := .T.
    oParam["demandType"]["PREV_VENDAS"]     := .T.
    oParam["firmHorizon"documents"]["LISTA"]            := ""
    oParam["documentType"]["PREVISTOS"]     := "1"
    oParam["documentType"]["SACRAMENTADOS"] := .T.
    oParam["lGeraDoc"]"documentType"]["SUSPENSOS"]     := .T.
    oParam["eventLog"]                      := .TF.
    oParam["lRastreiaEntradasfirmHorizon"]                   := .T.2
    oParam["leadTime"]                      := "31"
    oParam["mrpStartDatelGeraDoc"]                      := SToD("20220118").F.
    oParam["lRastreiaEntradas"]             := .F.
    oParam["numberOfPeriods"]               := "30 "
    oParam["orderPoint"]                    := "21"
    oParam["periodType"]                    := "21"
    oParam["productionOrderNumberproductGroups"]["LISTA"]        := "1"
    oParam["productionOrderTypeproductionOrderNumber"]         := "2"
    oParam["purchaseRequestNumberproductionOrderType"]           := "1"
    oParam["rejectedQuality"] products"]["LISTA"]             := ""
    oParam["productTypes"]["LISTA"]         := "1"
    oParam["safetyStockpurchaseRequestNumber"]         := "2"
    oParam["rejectedQuality"]               := "2"
    oParam["structurePrecisionsafetyStock"]                   := 7"1"

    If PCPA712JOBPCPA712(oParam, .T., .T.)
        ConOut(" -------- Concluido com Sucesso! -------- ")
    Else
		aHelp := GetHelpPCP("Execução do MRP não foi concluida com sucesso!") //Mensagem padrão que será assumida como problema, caso não encontrar um help.
		//Essa função retornará um array com as informações do help, onde:
		//aHelp[1] - Código do help
		//aHelp[2] - Problema do help (se estiver vazio, retorna a mensagem padrão)
		//aHelp[3] - Solução do help
        ConOut(" ----- Não Foi Concluido com Sucesso! -----")
    EndIf

    RESET ENVIRONMENT

Return

Para mais detalhes sobre os parâmetros do MRP, consulte Lista de parâmetros do MRP Memória

...

2 - Na visão Schedule, inicie os serviços Task Manager e Queue Manager;

Image Modified

3 - Abra a visão Agent e selecione a opção Cadastro. Nesta tela, cadastre um novo Agent.

Image Modified

4 - Ainda na visão Agent, selecione a opção Monitor. Verifique se o Agent cadastrado está Iniciado. Caso não esteja, inicie o serviço.

Image Modified

5 - Abra a visão Agendamentos e selecione a opção Cadastro. Nesta tela será cadastrado o agendamento para execução do SCHEDULE para a rotina que foi criada anteriormente.

Image RemovedImage Added