Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (luciene.sousa) em 23 jul, 2021


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

------