MP - SIGALOJA - Parâmetro - MV_LJTESPE

Ao informar esse parâmetro com uma macro para obter a TES, como por exemplo, &u_minhafuncao()  e cada item (linha) do orçamento precisar ter uma TES diferente, de acordo com validações, é necessário realizar um tratamento especial, pois o sistema trata esse parâmetro dentro de um Loop, e por conta disso, a variável pública n que armazena o posicionamento atual de cada linha em um grid, sempre terá o valor da última linha do orçamento.

Abaixo um exemplo prático, no código a seguir, em um orçamento com 2 itens, onde um item é o código '00001' e o segundo item é o código '00002', todos os itens terão a mesma TES, no caso do exemplo abaixo a TES '580', mesmo que a validação diga que são TES diferentes. Isso acontece pois a variável pública n sempre terá o mesmo valor (2), ou seja, a função está pegando a informação do código do produto sempre  da mesma linha do grid (2).

User Function minhafuncao()

    Local cNovaTES:= ""
    Local cProduto:= GDFieldGet("LR_PRODUTO",n,.F.)
    
     If cProduto == "00001"
        cNovaTES := "720"
     Else
        cNovaTES := "580"
     Endif
Return cNovaTES

Para tratar esse problema de forma simples, basta fazer uso de uma variável static ao invés da variável publica n.  Abaixo um exemplo que corrige o problema do exemplo anterior, ou seja, que permite que a validação seja executada corretamente, e cada item tenha sua TES correta.

Static nLinha:= 1
User Function minhafuncao()

    Local cNovaTES:= ""
    Local cProduto:= GDFieldGet("LR_PRODUTO",nLinha,.F.)
    
    nLinha++ // Incrementa nLinha a cada chamada
    If cProduto == "00001"
       cNovaTES := "720"
    Else
       cNovaTES := "580"
    Endif

    //Zera a nLinha quando terminar
    If n == nLinha
      nLinha:= 0
    Endif
Return cNovaTES

Espero que ajude a turma ai \o/

https://tdn.totvs.com/display/public/PROT/MV_LJTESPE