Exibir origem

01. DADOS GERAIS

Produto:
Linha de Produto:
Segmento:
Módulo:	TOTVS DMS (Linha Protheus) - Oficina (SIGAOFI) TOTVS DMS (Linha Protheus) - Auto-Pecas (SIGAPEC)
Função:	Import Peças JD (OFINJD01)
País:	Todos
Ticket:	Não se aplica
Requisito/Story/Issue (informe o requisito relacionado) :	Não se aplica

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:

Nome	Tipo	Descrição
PARAMIXB[1]	Caractere	O campo receberá "SB1" e "SB5" como caractere.

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"
        MsgInfo("Tabela SB1")
    elseif cTbl == "SB5" 
        MsgInfo("Tabela SB5")
    else
        MsgInfo("Tabela não informada")
    endif
Return

04. ASSUNTOS RELACIONADOS

Não se aplica.