Histórico da Página

Descrição

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

Observações

executado na função de recalculo 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