Linha Microsiga Protheus

Árvore de páginas

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

  • Sem rótulos