Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


ÍNDICE

  1. Visão Geral
  2. Exemplo de utilização
  3. 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âmetroTipoDescriçãoObrigatórioDefault
oParametrosObjectJson com os parâmetros de execução do MRP.X
lCancelLógicoIndica se irá cancelar o ticket reservado.
.F.
lIntegraLógicoIndica 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
languagejava
titleExemplo
linenumberstrue
#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

5.1 - Em seguida deve ser definido a recorrência de execução do agendamento, conforme a necessidade da execução do MRP.

Image Modified


6 - Para conferir se os agendamentos estão sendo executados, pode ser realizada a consulta na opção "Monitor" da visão "Agendamentos".

Image Modified

Para maiores detalhes sobre a utilização do cadastro de schedules e agendamentos, confira o documento Schedule - Como agendar a execução de rotinas.

03. Conteúdos Relacionados

...