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