DT PE DV080DST- Permite elaborar a tela de seleção do endereço de destino do endereçamento

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:	-
País:	Todos Países
Ticket:	-
Requisito/Story/Issue (informe o requisito relacionado) :	DLOGWMSMSP-15461

02. DESCRIÇÃO

Permite elaborar a tela de seleção do endereço de destino do endereçamento.

03. LOCALIZAÇÃO

Localizado na solicitação do endereço destino. Funciona independente do parâmetro MV_WMSNEW.

04. PARÂMETROS

Não se aplica

05. RETORNO

Nome	Tipo	Descrição	Obrigatório
lRet	Lógico	Validação da seleção do endereço de destino do endereçamento	Sim

06. VERSÕES

Protheus 12.1.17 ou superiores.

07. OBSERVAÇÃO

Não se aplica

08. EXEMPLO

------

#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'APVT100.CH'

User Function DV080DST()
Local cEnd := SDB->DB_ENDDES

While .T.
DLVTCabec('Leve para o Endereco',.F.,.F.,.T.)
@ 02, 00 VTSay PadR("Endereco", VTMaxCol())
@ 03, 00 VTSay PadR(cEnd, VTMaxCol())
@ 05, 00 VTSay PadR("Confirme !", VTMaxCol())
@ 06, 00 VTGet cEnd Pict '@!' Valid VLDEND(cEnd)
VTRead()
If (VTLastKey()==27)
If DLVTAviso("MSG1","Deseja encerrar o Enderecamento?", {"Sim","Nao"})==1
DLVOpcESC(1) // Bloquear Todas Atividades
lRet := .F.
Else
Loop
EndIf
EndIf
Exit
EndDo

return .T.

Function VLDEND(cEnd)
Return .T.