DT PE PN161ValDt Transferência de Turno em Lote

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Ao realizar a Transferência de Turno em Lote o sistema valida apenas se a data da transferência está vazia.

03. SOLUÇÃO

Criado o ponto de entrada no PONAP161 para permitir a inclusão de novas validações. 

04. DEMAIS INFORMAÇÕES

O ponto de entrada é chamado ao selecionar ou alterar a data da transferência em lote. A data informada para a transferência é passada como parâmetro para o ponto de entrada.

O Ponto de Entrada deve retornar um array com duas posições.

1º Posição - Retorno lógico, informando se a data passou pela validação com sucesso. .T. = Passou; .F. = Não Passou
2º Posição - Mensagem de erro caso a data não tenha passado com sucesso pela validação.

Exemplo de uso do Ponto de entrada PONAO161

#INCLUDE "RWMAKE.CH"

/*/{Protheus.doc} PN161ValDt
Ponto de entrada chamado na Transferência de Turno em lote
ao incluir ou alterar a data da transferência
@type User Function
@author user
@since 26/08/2021
@version 12.1.XX
@see https://tdn.totvs.com/x/uA-oJQ
/*/

User Function PN161ValDt()
    Local aRetPEDt  := {}
    Local dDataTra  := PARAMIXB[1]
    
    If dDataTra < dDataBase
        aAdd(aRetPEDt, .F.)
        aAdd(aRetPEDt, "Data não pode ser menor que a data atual")
    EndIf
    
Return aRetPEDt

05. ASSUNTOS RELACIONADOS

        Não se aplica