P712PERI - Customização nos Períodos do MRP

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):

Nome	Tipo	Descrição
PARAMIXB	Array	Array com os períodos do MRP

Idiomas:

Todos

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:	Permite ao usuário realizar alterações nos períodos do MRP.
Localização:	Método montaPeriodos da classe MrpDominio_Periodos.
Eventos:	Após a montagem do array com os períodos do MRP.
Programa Fonte:	PCPA712.prw
Sintaxe:	P712PERI
Retorno:	aPeriodos - Array com os períodos que serão processados pelo MRP.
Observações:	O array retornado deve ter o mesmo tamanho do array aPeriodos original. O array retornado também deve possuir todos os itens no tipo date.

#INCLUDE "PROTHEUS.CH"

User Function P712PERI()

    Local aPeriodos := PARAMIXB
    Local nIndex := 1

    /* ----- Intervalo de 3 dias entre cada período ----- */
    For nIndex := 1 to Len(aPeriodos)
        If nIndex != 1
            ConOut("De: " + DtoC(aPeriodos[nIndex]) + " Para: " + DtoC(aPeriodos[nIndex - 1] + 3))
            aPeriodos[nIndex] := aPeriodos[nIndex - 1] + 3
        EndIf
    Next

Return aPeriodos