O ponto de entrada PMS200CPRV deverá retornar um array em que sua primeira posição será a descrição da opcao, e a segunda o rdmake que será executado. Ele será executado na opção Ferramentas / Reajuste de Custo Previsto.
Exemplo:
#INCLUDE 'PROTHEUS.CH'
User Function Pms200CPRV()
Local aRet := {}
AADD( aRet, { 'Executa Proc. A', 'ExecutaA' } ) // 1a posicao eh a descricao, 2a posicao eh a rotina a ser executada
AADD( aRet, { 'Executa Proc. B', 'ExecutaB' } )
Return aRet
/********************************/
User Function ExecutaA()
Local cFiltroPAFA := Paramixb[1]
Local cFiltroB1 := Paramixb[2]
Local aParam1 := Paramixb[3]
Local cFiltroAE8 := Paramixb[4]
Local cFiltroRAFA := Paramixb[5]
Local cFltAFAUsr := Paramixb[6]
MsgAlert('A')
conout(cFiltroPAFA)
conout(cFiltroB1)
conout(aParam1)
conout(cFiltroAE8)
conout(cFiltroRAFA)
conout(cFltAFAUsr)
Return .T.
/********************************/
User Function ExecutaB()
Local cFiltroPAFA := Paramixb[1]
Local cFiltroB1 := Paramixb[2]
Local aParam1 := Paramixb[3]
Local cFiltroAE8 := Paramixb[4]
Local cFiltroRAFA := Paramixb[5]
Local cFltAFAUsr := Paramixb[6]
MsgAlert('B')
conout(cFiltroPAFA)
conout(cFiltroB1)
conout(aParam1)
conout(cFiltroAE8)
conout(cFiltroRAFA)
conout(cFltAFAUsr)
Return .T.
