Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Permite ao usuário realizar gravações adicionais no cadastro de Tipo de Tempo. O ponto de entrada é chamado após confirmar a alteração/inclusão, fora da transação, posicionado no registro recém alterado/incluído.

Localização:

Atualização / Cad Oficina / Tipo de Tempo

Eventos:

Begin Transaction


lRetorno := FS_VALGRAOA090( nOpc )


End Transaction


If !lRetorno

MostraErro()

EndIf

lMsHelpAuto := .f.


// Ponto de Entrada para o usuário fazer gravações a mais relacionado ao tipo de tempo

If ExistBlock("OA090GRV")

ExecBlock("OA090GRV",.f.,.f., {nOpc,VOI->(RecNo())})

EndIf

Programa Fonte:

OFIOA090.PRW

Função:

FS_OA090GRA()

Parâmetros:
NomeTipo Descrição

nOpc

Numérico

ParamIxb[1] Numero:

3=Inlcuir
4=Alterar
5=Excluir

nRecnoNuméricoParamIxb[2] Numero Recno da tabela VOI, referente ao registro recém alterado/incluído
Retorno:

Não há.


Exemplo:

Include totvs.ch

User Function OA090GRV()

Local nOpc := ParamIxb[1] // 3=Inlcuir / 4=Alterar / 5=Excluir

Local nRecno := ParamIxb[2] // Recno da tabela VOI


MsgInfo("Ponto de entrada OA090GRV executado com sucesso! "+CHR(13)+CHR(10)+;

"nOpc: "+cValToChar(nOpc)+CHR(13)+CHR(10)+"nRecno: "+cValToChar(nRecno),"Atenção")


Return