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

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 (Venda)

Eventos:

Geração de NF de Complemento

Função:

OGA430B1()

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

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

Local nPos :=  aSCAN(aCab, {|aCab| aCab[1] == "C5_NATUREZ" })

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

aRet := {aCab,aItens}

Return aRet