Árvore de páginas

Versões comparadas

Chave

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

...

02. EXEMPLO DE UTILIZAÇÃO

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

A partir do objeto retornado, será possível alterar os parâmetros de execução. Sendo obrigatório nesse caso, informar a filial e o usuário por meio dos parâmetros, "branchId" e "user" respectivamente. Conforme o exemplo abaixo. 


Bloco de código
titleExemplo
linenumberstrue
collapsetrue
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function MrpSchdl()
    Local oParam := Nil

    PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "PCP"
    
    oParam := PCPA712Par()

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

    /* ---- Parâmetros Adicionais ---- */
	oParam["cEmpAnt"]                  := cEmpAnt
    oParam["allocationSuggestion"]       := "1"
    oParam["blockedLot"]                 := "1"
    oParam["consignedIn"]                := "1"
    oParam["consignedOut"]               := "2"
    oParam["consolidateProductionOrder"] := "1"
    oParam["consolidatePurchaseRequest"] := "1"
    oParam["demandEndDate"]              := SToD("20220313")
    oParam["demandStartDate"]            := SToD("20220101")
    oParam["demandType"]["EMP_PROJETO"]  := .T.
    oParam["demandsProcessed"]           := .T.
    oParam["eventLog"]                   := .T.
    oParam["firmHorizon"]                := 1 
    oParam["lGeraDoc"]                   := .T.
    oParam["lRastreiaEntradas"]          := .T.
    oParam["leadTime"]                   := "3"
    oParam["mrpStartDate"]               := SToD("20220118")
    oParam["numberOfPeriods"]            := "30 "
    oParam["orderPoint"]                 := "2"
    oParam["periodType"]                 := "2"
    oParam["productionOrderNumber"]      := "1"
    oParam["productionOrderType"]        := "2"
    oParam["purchaseRequestNumber"]      := "1"
    oParam["rejectedQuality"]            := "1"
    oParam["safetyStock"]                := "2"
    oParam["structurePrecision"]         := 7

    RESET ENVIRONMENT

Return



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

...