MT220LOT - Permite habilitar campos para edição ao informar os lotes do saldo inicial

#Include 'TOTVS.ch'

/*/{Protheus.doc} User Function MT220LOT
    Permite informar campos para habilitar a edição na tela onde são informados os 
    lotes do saldo inicial
    Caso o parâmetro MV_A390QTD esteja habilitado, é possível informar apenas uma linha.
    Este ponto de entrada pode ser usado para sobrescrever
    essa funcionalidade, de acordo com a regra de negócio do cliente.
    Para habilitar a inclusão de novas linhas, é necessário alterar o array aRotina[nX, 4]

    Atenção: consulte a documentação do parâmetro MV_A390QTD para mais detalhes de sua
    funcionalidade
    
    @type  Function
    @author TOTVS
    /*/
User Function MT220LOT()
    Local aRet := {}
    Local nX   := 0
    
    If SuperGetMv('MV_A390QTD')
        If Posicione('SB1',1,FWXFilial('SB1')+M->B9_COD,'B1_UM') == 'KG'
            MsgAlert("Informe somente um lote")
            For nX := 1 to Len(aRotina)
                aRotina[nx,4] := 6
            Next nX
        Else
            aRet := {"D5_QUANT", "D5_QTSEGUM"}
            For nX := 1 to Len(aRotina)
                aRotina[nx,4] := 3
            Next nX
        EndIf
    EndIf

Return aRet