Histórico da Página

...

Este Ponto de Entrada permite manipular os " registros da Movimentos Serviços WMS (D12" ) gerados no momento da execução do serviço.

...

Localizado na função LawExecute(), responsável por avaliar as regras para convocação do serviço e disponibilizar os "movimento da tabelas D12" a ser manipuladaMovimentos Serviços WMS (D12) a serem manipulados.

04. PARÂMETROS

05. RETORNO

06. VERSÕES

...

/*/{Protheus.doc} WMSALIBX
Ponto de entrada para manipular a tabela D12, no momento da geração do serviço, antes de liberar para convocação
@type function
@version V.12
/*/
User Function WMSALIBX() //{Self:aLibD12}
Local aAreaAtu := GetArea()
Local aLibD12  := PARAMIXB[1]
Local nI := 0
Local nQtdOper := 0
Local nQtdAtivi := 0
Local nPorOper := 0
Local nConta := 0
Local nOper := 0

If Len(aLibD12) > 0
    nQtdOper  := 2
    nQtdAtivi := 0
    For nI := 1 To Len(aLibD12)
        If aLibD12[nI,4] == "301" //Serviço de Separação
            nQtdAtivi++
        Endif
    Next
    If nQtdAtivi > 0 .And. nQtdOper > 0
        nPorOper := Round(nQtdAtivi/nQtdOper,0)
        nConta   := 0
        nOper    := 1
        For nI := 1 To Len(aLibD12)
            If aLibD12[nI,4] == "301" //Serviço de Separação
                D12->(dbGoTo(aLibD12[nI,2]))
                If D12->(!Eof())
                    RecLock('D12',.F.)
                    D12->D12_RECEMB := StrZero(nOper,6)
                    D12->(MsUnlock())
                    nConta++
                EndIf
                If nConta >= nPorOper
                    nConta := 0
                    nOper  ++
                Endif
            Endif
        Next
    Endif
Endif
RestArea(aAreaAtu)

Return(aLibD12)

...