Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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