PMS200AC - Customização do cálculo de custo.

Descrição

Ponto de entrada utilizado para customizar o cálculo de custo.

Observações

Executado na função de recálculo de custo previsto do projeto.

Exemplos

#INCLUDE "RWMAKE.CH"

User Function PMS200AC()

Local lRet := .T.
Local aArea := GetArea()

DbSelectarea("AF9")
DbSetorder(1)

If DbSeek(xFilial("AF9")+AF8->(AF8_PROJET+AF8_REVISA))
While AF9->(!EOF()) .AND. ( AF8->(AF8_PROJET+AF8_REVISA) == AF9->(AF9_PROJET+AF9_REVISA) )
If Reclock('AF9', .F. ) 
AF9->AF9_CUSTO := AF9_CUSTO*(10/100) + AF9_CUSTO // aplica o juros de 10% no custo prev.
AF9->( MsUnlock() )
EndIf
dbskip()
EndDo
EndIf

RestArea(aArea)

MsgAlert("Ponto de entrada PMS200AC executado!")

Return lRet

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga Protheus 10 e 11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Nenhum.

Retorno

lRet(Logico) - (.T.) Verdadeiro ou (.F.) Falso

Eventos de chamada do Ponto de Entrada

If ExistBlock("PMS200AC")
Return ExecBlock("PMS200AC", .F., .F.)
EndIf

Variáveis

Programa Fonte

PMSA200.PRW