Histórico da Página

...

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 um objeto json com os parâmetros da execução junto com os parâmetros lCancel (Lógico), que irá informar se o MRP deve cancelar o ticket reservado (caso possivel), e o parâmetro lIntegra (Lógico), que irá realizar a integração, caso haja pendencias de integração.

02. EXEMPLO DE UTILIZAÇÃ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 := PCPA712Par(.T.)  // Parâmetros Padrões

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

    /* ---- Parâmetros Adicionais ---- */
	oParam["cEmpAnt"]    oParam[ 'TELA_1' ][       'HW2_CODIGO' ]       := cEmpAnt"01"
    oParam["allocationSuggestion"]          := "12"
    oParam["blockedLot"]                    := "12"
    oParam["consignedIn"]                   := "12"
    oParam["consignedOut"]                  := "21"
    oParam["consolidateProductionOrder"]    := "13"
    oParam["consolidatePurchaseRequest"]    := "3"
    oParam["demandCodes"]["LISTA"]          := "1|003|"
    oParam["demandEndDate"]                 := SToD("20220313")
    oParam["demandsProcessed"]              := .T.
    oParam["demandStartDate"]               := SToD("20220101")
    oParam["demandType"]["EMP_PROJETO"]     := .T.
    oParam["demandType"]["demandsProcessedMANUAL"]           := .T.
    oParam["demandType"]["eventLogPEDIDO_VENDA"]    := .T.
    oParam["demandType"]["PLANO_MESTRE"]    := .T.
    oParam["demandType"]["PREV_VENDAS"]     := .T.
    oParam["documents"]["firmHorizonLISTA"]            := "|003A01|"
    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["productGroups"]["productionOrderNumberLISTA"]        := "1|0007|"
    oParam["productionOrderTypeproductionOrderNumber"]         := "2"
    oParam["purchaseRequestNumberproductionOrderType"]           := "1"
    oParam["products"]["rejectedQualityLISTA"]             := "|PA001|PA002|PA003|PA004|"
    oParam["productTypes"]["LISTA"]         := "1|PA|"
    oParam["safetyStockpurchaseRequestNumber"]         := "2"
    oParam["rejectedQuality"]               := "2"
    oParam["structurePrecisionsafetyStock"]                   := 7"1"

    PCPA712JOBIf PCPA712(oParam, .T., .T.)
        ConOut(" ---- Concluido com Sucesso! ---- ")
    Else
        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

...

Árvore de páginas

Versões comparadas

Versão antiga 16

Nova versão 17

Chave

02. EXEMPLO DE UTILIZAÇÃO