Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização.

...

Bloco de código
languagecpp
titleExemplo
linenumberstrue
collapsetrue
#INCLUDE "PROTHEUS.CH"

User Function DV030CO6()
Local nQtdTot  := PARAMIXB[1]
Local nQtdSep  := PARAMIXB[2]
Local nQtdPerc := nQtdTot + (nQtdTot  * 0,05)
Local nQtdRet  := 0

    // Permite separar 5% a mais
	If QtdComp(nQtdSep) <= QtdComp(nQtdPerc)
		nQtdRet  := nQtdPerc
	Else
		nQtdRet  := nQtdTot  
	EndIf

Return nQtdRet  

...