Histórico da Página

Programa Fonte
TMSA040.PRW

Sintaxe 
TM040VFC - Permite alterar a proporcionalização dos componentes ( [ nVlrFec,Aclone(aDesconto),nDsc ] ) --> aRet

#Include "Protheus.ch"

User Function TM040VFC()
Local nVlrFec  := ParamIXB[1]
Local aVetCmp  := ParamIXB[2]
Local nFxDesc  := ParamIXB[3]
Local nVlrRet  := 0
Local aVetRet  := {}
Local nCntFor1 := 0

For nCntFor1 := 1 To Len(aVetCmp)
	If aVetCmp[nCntFor1,11] == "31"	//-- Componente que não poderá ser proporcionalizado
		Aadd(aVetRet,aVetCmp[nCntFor1,11])
		nVlrRet += aVetCmp[nCntFor1,nFxDesc + 2]
	EndIf
Next nCntFor1

Return {nVlrRet,Aclone(aVetRet)}