Histórico da Página

||Descrição|| Ponto de entrada executado no momento de validação de linha que contenha opcionais.  
||Observações|| Somente executado com produto que possui opcionais.
||Exemplos||#INCLUDE "PROTHEUS.CH"


User Function MA410PR()
Local nPPrcVen  := aScan(aHeader,\{|x| AllTrim(x\[2\])=="C6_PRCVEN"\})
Local nPPrUnit  := aScan(aHeader,\{|x| AllTrim(x\[2\])=="C6_PRUNIT"\})
Local nPValor	:= aScan(aHeader,\{|x| AllTrim(x\[2\])=="C6_VALOR"\})
Local nPQtdVen  := aScan(aHeader,\{|x| AllTrim(x\[2\])=="C6_QTDVEN" \}) 
Local nPDescon	:= aScan(aHeader,\{|x| AllTrim(x\[2\])=="C6_DESCONT"\})

If MSGYESNO("Altera valores com base nos opcionais", "Alteração de valores")
	aCols\[n\]\[nPPrcVen\] := A410Arred(FtDescCab(aCols\[n\]\[nPPrUnit\],\{M->C5_DESC1,M->C5_DESC2,M->C5_DESC3,M->C5_DESC4\})*(1-(aCols\[n\]\[nPDescon\]/100)),"C6_PRCVEN")

EndIf

Return aCols\[n\]\[nPPrcVen\]

||Preview|| 
||Veja também|| 
||Idioma|| Português(Brasil)
||Versões|| Microsiga_Protheus11
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Updates|| 
||Parâmetros|| 
||Retorno|| Numérico, contendo o valor a ser atribuído ao preço unitário.
||Eventos de chamada do Ponto de Entrada|| 
||Variáveis|| 
||Programa Fonte|| MATA410.PRX