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 |