Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada permite que o cliente faça validação de Inclusão e Alteração em cada uma das telas da rotina Base de Clientes (VEIVA340).

Eventos:

Function VEIVA340OK(c1Ali,c2Ali)

Local nii := 0

Local njj := 0

Local lRet := .t.

DbSelectArea(c1Ali)

 

//Ponto de Entrada para que o cliente possa fazer validação de INCLUSÃO e ALTERAÇÂO em cada uma das telas.

If ( ExistBlock("VA340VLD") )

ExecBlock("VA340VLD",.f.,.f.,{c1Ali})

EndIf

Programa Fonte:

VEIVA340.PRW                                                                                                                                              

Função:

VEIVA340OK

Retorno:

N/A

 

Exemplo:

User Function VA340VLD()

cTabela := ParamIxb[01]

if cTabela == "VMX"

MsgInfo("Ponto de entrada VA340VLD executado com sucesso - Tabela "+cTabela)

Endif

Return