Agro - Linha Protheus - AGR - Ponto de Entrada para NF de Complemento - Compra

Linha de Produto:

Microsiga Protheus

Módulo:

SIGAAGR

Descrição:

Ponto de entrada criado para manipulação das informações (aCab e aItens) antes de gerar a NF de Complemento (Compra)

Eventos:

Geração de NF de Complemento

Função:

OGA430B2()

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 nPos :=  aSCAN(aCab, {|aCab| aCab[1] == "F1_ESPECIE" })

IF nPos > 0 // Ja stá no array
aCab[nPos,1] += 'SPED'
Else // Ainda n. se encontra no Array Adicionar
aAdd( aCab, { "F1_ESPECIE" , 'SPED' } )
EndIF

aRet := {aCab,aItens}

Return aRet