01. DADOS GERAIS
| Produto: | | Solucoes_totvs_parceirosexptotvs |
|---|
| SolucaoParcsExpsTOTVS | TOTVS DMS |
|---|
|
|
|---|
| Linha de Produto: | |
|---|
| Segmento: | |
|---|
| Módulo: | | Modulos_totvs_prestadores_de_servicos |
|---|
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).
...
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.
Parâmetros:
| Nome | Tipo | Descrição |
|---|
| PARAMIXB[1] | Caractere | O campo receberá "SB1" e ou "SB5" como caractere. |
Retorno: Não há.
...
| Bloco de código |
|---|
| language | delphi |
|---|
| theme | Midnight |
|---|
| title | OJD01AGR (ADVPL) |
|---|
| linenumbers | true |
|---|
|
#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 |
04. ASSUNTOS RELACIONADOS
...
