MT103DTLT - Manipula a data de validade do lote do produto na rotina de classificação de pré-notas

LOCALIZAÇÃO: Ponto de entrada localizado na rotina "Documento de Entrada" do módulo de compras.

EM QUE PONTO: Quando o usuário executa um "ENTER" no campo produto da grade de itens.

OBJETIVO: Ponto de entrada para manipular a data de validade do lote do produto durante a rotina de classificação de pré-notas.

Com este ponto de entrada o usuário poderá decidir se mantém ou não a data de validade do lote informada na pré-nota de entrada. 

Para manipular a data de validade, o usuário deverá criar uma rotina que retorne o valor da nova data a ser utilizada.

Um array será enviado como parâmetro, contendo as seguintes informações do produto:

Dimensões do array:
[1] - Código do produto
[2] - Local (armazém)
[3] - Número do Lote
[4] - Data de validade atual do lote (informada na pré-nota)

As opções disponíveis são:
- Manter a data original: o usuário poderá manter a data original informada na pré-nota, para isso deverá retornar o valor do parâmetro PARAMIXB[4] ou;

- Obter uma nova data de validade: neste caso a rotina deverá retornar o valor desejado.

Importante: se o valor retornado pelo ponto de entrada não for uma data válida, o sistema ignorará o valor de retorno e automaticamente atualizará a data de validade do lote para a data base do sistema acrescida do prazo de validade do produto (informação do cadastro de produtos).

MATA103X.PRW

MT103DTLT - Manipula a data de validade do lote do produto na rotina de classificação de pré-notas ( [ @PARAMIXB ] ) --> dData

dData(data)
• Data de validade do lote

user function MT103DTLTLocal dData := NilLocal lRet  := .F.lRet := MsgYesNo("Deseja que o sistema mantenha a data de validade do lote?"+CRLF+ ;                 " Produto: "+Trim(PARAMIXB[1])+" / Local: "+Trim(PARAMIXB[2])+;                 " / Lote: "+Trim(PARAMIXB[3])+" / Validade: "+DTOC(PARAMIXB[4])+CRLF,;                 "Ponto de Entrada: MT103DTLT")If lRet    dData := PARAMIXB[4] // Usuário deseja manter a data original informada na pré-notaEndIfReturn dData