#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'TOTVS.CH'
User Function M460NITE()
Local aParam := PARAMIXB
Local nItensAtu := aParam[1] //Número de itens adicionados a nota
Local aItensAtu := aParam[2] //Array contendo os itens adicionados a nota
Local nX := 1
Local nQtdNota := 0
Local nItensNota := 10 //Numero de itens limite na nota
//------------------------------------------------------------------------//
//Neste exemplo colocamos um limite de 10 itens por nota mas caso //
//a soma das quantidades já adicionadas antes do décimo item for //
//igual ou maior que 100 o item que bateu esta quantidade será o último //
//------------------------------------------------------------------------//
If nItensAtu < 10
For nX := 1 to nItensAtu
nQtdNota += aItensAtu[nX][4]
Next nX
If nQtdNota >= 100
nItensNota := nItensAtu
EndIf
EndIf
Return nItensNota |