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 desconsidere as peças que desejar para que suas informações não sejam atualizadas. Este ponto de entrada será executado linha a linha do arquivo contendo as informações de lista de peças a serem atualizadas. | ||||||||
Localização: | Atualizações \ Peças JD \ Import Peças JD (OFINJD01) | ||||||||
Eventos: | // // Armazena codigo do item do arquivo // cPartNumber = STRTRAN( ALLTRIM(UPPER(Subs(cStr,1,18))), chr(13)+chr(10), '') lFaz := IIF(ExistBlock('OFNJD01'), ExecBlock("OFNJD01",.f.,.f., {cPartNumber}), .T.) if ! lFaz loop endif cDescription = STRTRAN( UPPER(Subs(cStr,25,27)), chr(13)+chr(10), '') nPackageQuantity = val(Subs(cStr,52,5)) nNetPrice = val(Subs(cStr,57,16)) | ||||||||
Programa Fonte: | OFIOC520OFINJD01.PRW | ||||||||
Função: | RunProc() | ||||||||
Parâmetros: |
| ||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
/*
===============================================================================
###############################################################################
##+----------+------------+-------+-----------------------+------+----------+####|Função | OFNJD01 | Autor | MIL | Data | 29/10/17 |##
##+----------+------------+-------+-----------------------+------+----------+##
##|Descrição | Inclusao no aRotina da Analise de Itens |##
##+----------+--------------------------------------------------------------+##
##+----------+--------------------------------------------------------------+##
###############################################################################
===============================================================================
*/
User Function OFNJD01()
if PARAMIXB[1] == "OL203061" // peça que não deve ser importada/alterada
Return .F.
endif
Return .T.