PE OJD01AGR Ponto de Entrada para permitir que o usuário manipule os vetores de Peças (SB1) e Complemento de Peças (SB5) antes da gravação na tabela

01. DADOS GERAIS

02. DESCRIÇÃO

Localização: Atualizações \ Peças JD \ Import Peças JD (OFINJD01).

Em que ponto? Este ponto de entrada será executado na rotina Import Peças JD (OFINJD01) e permite que o usuário manipule os vetores de Peças (SB1) e Complemento de Peças (SB5) antes da gravação na tabela.

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.

03. DEMAIS INFORMAÇÕES

Parâmetros: 

Retorno: Não há.

Exemplo de utilização Advpl:

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

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

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

04. ASSUNTOS RELACIONADOS

• Não se aplica.