Histórico da Página

...

Os vetores a serem alterados são:

• aDadosPeca - > campos do cadastro de Produto (SB1).
• aDadosAdPeca - > campos do cadastro de Complemento do Produto (SB5).

Os vetores possuem a mesma estrutura, onde somente o 1º e 2º elemento devem ser alterados.

• 1º Elemento - > nome do campo (exemplo: B1_COD).
• 2º Elemento - > conteúdo (exemplo: RE62419).

Atenção: O 3º e o 4º elementos não devem ser alterados, podendo causar problemas no processo de gravação.

...

#include "Protheus.ch"
#include "TOTVS.ch"

User Function OJD01AGR()
    Local cTbl := "" 
    cTbl := PARAMIXB[1]

    if cTbl == "SB1"
        MsgInfoConout("Tabela SB1")
    elseif cTbl == "SB5" 
        MsgInfoConout("Tabela SB5")
    else
        MsgInfoConout("Tabela não informada")
    endif
Return 

...