Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (luciene.sousa), última alteração em 21 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:WMSV001 (Coletor)
País:Todos Países
Ticket:-
Requisito/Story/Issue (informe o requisito relacionado) :-


02. DESCRIÇÃO

Este Ponto de Entrada permite realizar os processamentos/ações, após ocorrer uma troca de produtos na convocação.

03. LOCALIZAÇÃO

Localizado na rotina WMSV001 (Coletor), após realizar a troca da movimentação (D12) que está sendo convocada.

04. PARÂMETROS

NomeTipoDescrição
nRecnoAntNuméricoRecno (D12) posicionado antes da troca.
nRecnoAtuNuméricoRecno (D12) posicionado após a troca.

05. RETORNO

Não se aplica.

06. VERSÕES

Protheus 12.1.27.

07. OBSERVAÇÃO

Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização.

08. EXEMPLO

------

#INCLUDE "PROTHEUS.CH" 

User Function WMSTRD12()
Local aAreaD12 := D12->(GetArea())
Local nRecnoAnt := PARAMIXB[1] // Recno (D12) posicionado antes da troca
Local nRecnoAtu := PARAMIXB[2] // Recno (D12) posicionado após a troca

If nRecnoAnt <> nRecnoAtu
        D12->(DbGoTo(nRecnoAnt))
        RecLock("D12",.F.)
        D12->D12_XCPO := "TESTE"
        D12→ (MsUnlock())
EndIf
RestArea(aAreaD12)

Return

------