PMS200CPRV - Descrição de opções

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.

PMSA200.PRW

PMS200CPRV - Descrição de opções ( < cFiltroAFA> , [ cFiltroB1 ], [ aParms ], < cFiltroAE8> , [ cFiltroAFA ], < cFiltroUsr> ) --> aRet

aRet(vetor)
• aRet[n][1] - Descricao da opcao aRet[n][2] - Rdmake a ser executado