Linha Microsiga Protheus

Árvore de páginas

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:

OFINJD01.PRW

Função:

RunProc()

Parâmetros:
NomeTipoDescriçãoObrigatório
cPartNumberCaractereCódigo da Peça (B1_COD) no arquivo de atualizações disponibilizado pela John Deere que está sendo analisada pela rotina.Sim

Retorno:

Nome

Tipo

Descrição

Obrigatório

lReturn

Booleano

Retorne se a peça que foi passada em questão deverá ou não ser atualizada.

Sim


Exemplo:

#Include 'Protheus.ch'

/*

##|Função | OFNJD01 | Autor | MIL | Data | 29/10/17 |##

*/

User Function OFNJD01()

if PARAMIXB[1] == "OL203061" // peça que não deve ser importada/alterada

Return .F.

endif

Return .T.