Histórico da Página

#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["cEmpAntTELA_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"]    := "1"3"
    oParam["demandCodes"]["LISTA"]          := "|003|"
    oParam["demandEndDate"]                 := SToD("20220313")Date() + 30
    oParam["demandsProcessed"]              := .T.
    oParam["demandStartDate"]               := SToDDate("20220101")
    oParam["demandType"]["EMP_PROJETO"]     := .T.
    oParam["demandType"]["demandsProcessedMANUAL"]           := .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["documentType"]["SUSPENSOS"]     := .T.
    oParam["lGeraDoceventLog"]                      := .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"

    PCPA712JOB(oParam)If PCPA712(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