Histórico da Página
Ponto de Entrada
Descrição: | 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 manipulados são: aDadosPeca -> campos do cadastro de Produto (SB1) aDadosAdPeça aDadosAdPeca -> campos do cadastro de Complemento do Produto (SB5) aDadosZPeca -> campos do cadastro de Indicador de Produto (SBZ) Os vetores possuem a mesma estrutura, onde somente o 1º e 2º elementos devem ser considerados.: 1º Elemento -> nome do campo que será atualizado (exemplo: B1_COD) 2º Elemento -> conteúdo que será atualizado no campo (exemplo: RE62419) O 3º e o 4º elementos não devem ser alterados, podendo causar problemas no processo de gravação. As informações que compõem os vetores aDadosPeca, aDadosAdPeca e aDadosAdPeça estão aDadosZPeca estão localizados abaixo na linha denominada Eventos. |
Localização: | Atualizações \ Peças JD \ Import Peças JD (OFINJD01) |
Eventos: | aDadosPeca := {; if lRemane AADD if lRemane endIF if lPedpro AADD endIF If cPaisLoc == "ARG" endIF endif aDadosAdPeca aDadosAdPeca := {; aDadosZPeca := cFilCpl aMarca := aDadosMarca[ ASCAN(aDadosMarca, {|aDt| aDt[IDX4_FILIAL] == cFilAnt }) ]´´ //////////////////////////////////////////////////////// // Chamada do Ponto de Entrada para manipulação dos // Arrays de Peças (SB1) e Complemnento das Peças (SB5) // Antes da gravação //////////////////////////////////////////////////////// If ExistBlock("OJD01AGR") ExecBlock("OJD01AGR",.f.,.f.) Endif{; |
Programa Fonte: | OFINJD01.PRW |
Função: | RunProc() |
Exemplo:
#Include 'Protheus.ch'
User Function OJD01AGR()
//
MsgAlert("Ponto de Entrada OJD01AGR executado com sucesso!")
//
Return