Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas