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]

Idioma

Português(Brasil)

Versões

Microsiga Protheus 11

Sistemas   Operacionais Suportados

Todos

Compatível com as   Bases de Dados

Todas

Retorno

Numérico,  contendo o valor a ser atribuído ao preço unitário.

Programa Fonte

MATA410.PRX