Histórico da Página

#Include "PROTHEUS.CH"  

User Function A410BLCO()

	Local nPQtdVen := aScan(ParamIxb[1],{|x| AllTrim(x[2])== 'C6_QTDVEN'})
    Local nPPrcVen := aScan(ParamIxb[1],{|x| AllTrim(x[2])== 'C6_PRCVEN'})
    Local nPPrUnit := aScan(ParamIxb[1],{|x| AllTrim(x[2])== 'C6_PRUNIT'}) 
    Local nPValor  := aScan(ParamIxb[1],{|x| AllTrim(x[2])== 'C6_VALOR' })
	
	
    ParamIxb[2][nPPrcVen] := 10		//Alterado o Preço de Venda
    ParamIxb[2][nPPrUnit] := 10		//Alterado o Preço Unitário
	ParamIxb[2][nPValor ] := A410Arred(ParamIxb[2][nPQtdVen] * ParamIxb[2][nPPrcVen], 'C6_VALOR')	//Alterado o Valor Total

Return(ParamIxb[2])