DT PE WV073AIL - Após informar o lote na conferência do recebimento

01. DADOS GERAIS

Produto:	TOTVS Logística WMS
Linha de Produto:	Linha Protheus
Segmento:	Logística
Módulo:	SIGAWMS - Gestão de Armazenagem
Função:	WMSA320 - Conferência de Recebimento
País:	Todos Países
Ticket:	-
Requisito/Story/Issue (informe o requisito relacionado) :	-

02. DESCRIÇÃO

Este Ponto de Entrada permite efetuar processos complementares após a informação do lote como, por exemplo, solicitar a informação de data de validade.

03. LOCALIZAÇÃO

Localizado na tela de Conferência, na qual são informados os produtos e os lotes recebidos, exatamente após a informação e a validação do lote, antes de solicitar a quantidade.

04. PARÂMETROS

Nome	Tipo	Descrição
cProduto	Caractere	Código do produto que está sendo conferido.
cLoteCtl	Caractere	Lote que está sendo conferido.

05. RETORNO

Não se aplica.

06. VERSÕES

Protheus 12.1.20 ou superiores, podendo ser aplicada sobre a 12.1.17 com solicitação de patch.

07. OBSERVAÇÃO

Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização.

08. EXEMPLO

------

#INCLUDE "PROTHEUS.CH"
#INCLUDE "APVT100.CH"

Static __dDatVld := CtoD("")
User Function WV073AIL()
Local aTelaAnt := VTSave(00, 00, VTMaxRow(), VTMaxCol())
Local cProduto := PARAMIXB[1]
Local cLoteCtl := PARAMIXB[2]

__dDatVld := CtoD("")
VTClear()
DLVTCabec("Conferência",.F.,.F.,.T.)

@ 01,00 VtSay "Produto:"
@ 02,00 VTSay cProduto
@ 03,00 VtSay "Lote: "+cLoteCtl
@ 04,00 VTSay "Data Validade:"
@ 05,00 VtGet cDatValid Valid ValDatVld(cProduto,cLoteCtl,cDatValid) // Valida a data e atribui a static para recuperar depois
VtRead()

// Restaura tela anterior
VTRestore(00, 00, VTMaxRow(), VTMaxCol(), aTelaAnt)
Return