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: | DLGV030 - Apanhe / Reabastecimento Via Radiofrequência |
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 Apanhe / Abastecimento pelo coletor de radiofrequência.
Exemplo
Apresentar a descrição do produto específica do usuário.
Sintaxe
DV030SCR → Altera tela de solicitação do produto na rotina de Apanhe/ Abastecimento ( )
03. LOCALIZAÇÃO
Localizado na rotina DLGV030 - Apanhe / Reabastecimento Via Radiofrequência.
04. PARÂMETROS
Não se aplica.
05. RETORNO
Não se aplica.
06. VERSÕES
Protheus 11.
07. OBSERVAÇÃO
Não se aplica.
08. EXEMPLO
------
#INCLUDE 'APVT100.CH'
User Function DV030SCR()
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
------