Agro - Linha Protheus - AGR - Ponto de Entrada para Documento de Entrada

Linha de Produto:

Microsiga Protheus

Módulo:

SIGAAGR

Descrição:

Validação antes de confirmar o contrato.

Eventos:

Ao confirmar o Romaneio

Função:

OGX009NF()

Exemplo do PE
#include 'protheus.ch'
#include 'parmtype.ch'

User Function OGX009NF()
Local aCab := aClone(PARAMIXB[1])
Local aItens := aClone(PARAMIXB[2])
Local aRet := {} //Customizações do usuário

Local nPMenNf :=  aSCAN(aCab, {|aCab| aCab[1] == "F1_MENNOTA" })

IF nPMenNf > 0 // Ja stá no array
aCab[nPmenNf,1] += 'Mensagem do PE OGX009NF' //
Else // Ainda n. se encontra no Array Adicionar
aAdd( aCab, { "F1_MENNOTA" , 'Mensagem do PE OGX009NF' } )
EndIF

aRet := {aCab,aItens}

Return aRet