Árvore de páginas

Versões comparadas

Chave

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

...

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 := P712Param(.T.)  // Parâmetros Padrões

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

    /* ---- Parâmetros Adicionais ---- */
    oParam["TELA_1"]["HW2_CODIGO"]          := ""
    oParam["TELA_1"]["HW2_DESCRI"]          := ""
    oParam["allocationSuggestion"]          := "2"
    oParam["blockedLot"]                    := "2"
    oParam["consignedIn"]                   := "2"
    oParam["consignedOut"]                  := "1"
    oParam["consolidateProductionOrder"]    := "3"
    oParam["consolidatePurchaseRequest"]    := "3"
    oParam["demandCodes"]["LISTA"]          := "|003|"
    oParam["demandEndDate"]                 := Date() + 30
    oParam["demandsProcessed"]              := .T.
    oParam["demandStartDate"]               := Date()
    oParam["demandType"]["EMP_PROJETO"]     := .T.
    oParam["demandType"]["MANUAL"]          := .T.
    oParam["demandType"]["PEDIDO_VENDA"]    := .T.
    oParam["demandType"]["PLANO_MESTRE"]    := .T.
    oParam["demandType"]["PREV_VENDAS"]     := .T.
    oParam["documents"]["LISTA"]            := ""
    oParam["documentType"]["PREVISTOS"]     := "1"
    oParam["documentType"]["SACRAMENTADOS"] := .T.
    oParam["documentType"]["SUSPENSOS"]     := .T.
    oParam["eventLog"]                      := .F.
    oParam["firmHorizon"]                   := 2
    oParam["leadTime"]                      := "1"
    oParam["lGeraDoc"]                      := .F.
    oParam["lRastreiaEntradas"]             := .F.
    oParam["numberOfPeriods"]               := "30 "
    oParam["orderPoint"]                    := "1"
    oParam["periodType"]                    := "1"
    oParam["productGroups"]["LISTA"]        := ""
    oParam["productionOrderNumber"]         := "2"
    oParam["productionOrderType"]           := "1"
    oParam["products"]["LISTA"]             := ""
    oParam["productTypes"]["LISTA"]         := ""
    oParam["purchaseRequestNumber"]         := "2"
    oParam["rejectedQuality"]               := "2"
    oParam["safetyStock"]                   := "1"

    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


...