Histórico da Página

/*/{Protheus.doc} User Function MTA242S

    Permite validar o campo de Quantidade (na segunda unidade de medida)

    Permite manipular o objeto oGet (MsGetDados)

    @type  Function

    @author TOTVS

    /*/

User Function MTA242S()

    Local cCodPro  := ParamIXB[1]

    Local nQuant2  := ParamIXB[2]

    Local oGet     := ParamIXB[3]

    Local nQuant   := 0

    Local nProDest := AScan(aHeader, {|x| AllTrim(x[2]) == 'D3_COD'})

    Local nQDest   := AScan(aHeader, {|x| AllTrim(x[2]) == 'D3_QUANT'})

    Local nQDest2  := AScan(aHeader, {|x| AllTrim(x[2]) == 'D3_QTSEGUM'})

    Local nLocDest := AScan(aHeader, {|x| AllTrim(x[2]) == 'D3_LOCAL'})

    Local lRet     := .T.

    Local nBkp     := n

    //Inserir as validações do cabeçalho

    //...

    //Exemplo de Desmontagem onde preenche o grid com vários produtos ao informar a quantidade

    //Atenção: O preenchimento desta forma não executa validações de campo ou de linha

    //As validações devem ser feitas na própria customização

    //Via rotina automática, o objeto oGet não está disponível

    If AllTrim(cCodPro) == 'TESTE' .And. nQuant2 > 0 .And. !IsBlind()

        //O objeto já está instanciado com a primeira linha criada

        n := 1

        aCols[n, nProDest] := PadR('TESTE1', TamSX3('D3_COD')[1])

        aCols[n, nQDest2]  := 1*nQuant2

        aCols[n, nQDest]   := 1*ConvUM(cCodPro, nQuant2)

        aCols[n, nLocDest] := PadR('01', TamSX3('D3_LOCAL')[1])

        //Adiciona outra linha

        oGet:AddLine()

        n := 2

        aCols[n, nProDest] := PadR('TESTE2', TamSX3('D3_COD')[1])

        aCols[n, nQDest2]  := 4*nQuant2

        aCols[n, nQDest]   := 4*ConvUM(cCodPro, nQuant2)

        aCols[n, nLocDest] := PadR('01', TamSX3('D3_LOCAL')[1])

        //Atualiza a interface com os dados inseridos

        oGet:ForceRefresh()

    EndIf

    n := nBkp

Return lRet

/*/{Protheus.doc} ConvUM

    Converte a segunda unidade de medida na primeira

/*/

Static Function ConvUM(cProduto, nQt2)

    Local aArea    := GetArea()

    Local aAreaSB1 := SB1->(GetArea())

    Local nQt1   := 0

    Local nFator := 0

    Local cMult  := ''

    cMult  := Posicione('SB1', 1, FWXFilial('SB1')+cProduto, 'B1_TIPCONV')

    nFator := Posicione('SB1', 1, FWXFilial('SB1')+cProduto, 'B1_CONV')

    If cMult == 'M'

        nQt1 := nQt2 / nFator

    ElseIf cMult == 'D'

        nQt1 := nQt2 * nFator

    EndIf

    SB1->(RestArea(aAreaSB1))

    RestArea(aArea)

Return nQt1