DT PE DV070SCR - Altera tela de solicitação do produto na rotina de conferência

01. DADOS GERAIS

02. DESCRIÇÃO

Este Ponto de Entrada permite alterar a tela de Solicitação do Produto, na rotina de Conferência, por meio do coletor de radiofrequência.

Exemplo
Apresentar a descrição do produto específica do usuário.

Sintaxe
DV070SCR → Altera tela de solicitação do produto na rotina de conferência ( )

03. LOCALIZAÇÃO

Localizado na rotina WMSV070.

04. PARÂMETROS

Não se aplica.

05. RETORNO

Não se aplica.

06. VERSÕES

Protheus 8.11 e Protheus 10.

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

------

#INCLUDE 'APVT100.CH'

User Function DV070SCR()

Local aArea := GetArea()
Local aAreaSB1 := SB1→ (GetArea())
Local lWmsLote := SuperGetMv('MV_WMSLOTE',.F.,.F.) DBSelectArea("SB1") DBSetorder(1)

IF DBSeek(xFilial("SB1")+SDB→DB_PRODUTO)

@ 01,00 VTSay PadR("Pegue o Produto", VTMaxCol())
@ 02,00 VTSay SDB→ DB_PRODUTO
@ 03,00 VTSay SubStr(SB1→ B1_DESC,01,20)
@ 04,00 VTSay SubStr(SB1→ B1_DESC,21,20)
@ 05,00 VTSay SubStr(SB1→ B1_DESC,41,20)

If lWmsLote .And. Rastro(SDB→ DB_PRODUTO)

@ 06,00 VTSay PadR("Lote",VTMaxCol())
@ 07,00 VTSay SDB→DB_LOTECTL

EndIf

Endif
RestArea(aAreaSB1)
RestArea(aArea)
Return

------