DT PE WMSLDDC3 - Permite modificar as informações da sequência de abastecimento em tempo de execução.

01. DADOS GERAIS

02. DESCRIÇÃO

Permite modificar o cadastro da sequência de abastecimento do produto somente momento de execução.

03. LOCALIZAÇÃO

Localizado no carregamento do cadastro da sequência de abastecimento.

04. PARÂMETROS

05. RETORNO

Sem retorno

06. VERSÕES

Protheus 12.

07. OBSERVAÇÃO

08. EXEMPLO

----------

#INCLUDE "TOTVS.CH"

User Function WMSLDDC3()
    Local Self := PARAMIXB
    Local aArea := GetArea()

    //Posicionamento apenas para demonstrar as propriedades do objeto Self
    DC3->(DBSETORDER( 1 ))
    If DC3->(DbSeek(FwXfilial('DC3')+Self:cProduto+Self:cArmazem+Self:cOrdem))

        Self:cArmazem   := DC3->DC3_LOCAL
        Self:cProduto   := DC3->DC3_CODPRO
        Self:cServAbast := DC3->DC3_REABAS
        Self:cOrdem     := DC3->DC3_ORDEM
        Self:cEstFis    := DC3->DC3_TPESTR
        Self:SetCodNor(DC3->DC3_CODNOR)
        Self:oNorma:LoadData()
        Self:cDescSeq   := DC3->DC3_DESPIC
        Self:cTipoRepos := DC3->DC3_TIPREP
        Self:nPercRepos := DC3->DC3_PERREP
        Self:nPercApMax := DC3->DC3_PERAPM
        Self:cTipoSepar := DC3->DC3_TIPSEP
        Self:nQtdMinSep := IIf(DC3->DC3_QTDUNI > 0,DC3->DC3_QTDUNI,0)
        Self:nQtdMinEnd := IIf(DC3->DC3_ENDMIN > 0,DC3->DC3_ENDMIN,0)
        Self:lHasMinSep := DC3->DC3_QTDUNI > 0
        Self:lHasMinEnd := DC3->DC3_ENDMIN > 0
        Self:nNumUnitiz := DC3->DC3_NUNITI
        Self:cTipoSeq   := DC3->DC3_EMBDES
        Self:cPriEnder  := DC3->DC3_PRIEND
        Self:cTipoEnd   := IIf(Empty(DC3->DC3_TIPEND),"1",DC3->DC3_TIPEND)
        Self:cUMMovto   := IIf(Empty(DC3->DC3_UMMOV),"1",DC3->DC3_UMMOV)
        Self:nRecno     := DC3->(Recno())
        // Controle dados anteriores
        Self:cProdutAnt := Self:cProduto
        Self:cArmazAnt  := Self:cArmazem
        Self:cOrdemAnt  := Self:cOrdem
        Self:cEstFisAnt := Self:cEstFis

    EndIf

    RestArea(aArea)
Return 

-----------

09. ANEXO