Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este ponto de entrada está localizado na rotina Orc. por Fases (OFIXA011). Ele é executado no momento em que o usuário tenta incluir uma nova linha/item de serviços. A finalidade deste ponto de entrada é realizar uma validação nas informações dos campos que compõem este item.

Parâmetros:

N/A

Eventos:

/*

===============================================================================

###############################################################################

##+----------+------------+-------+-----------------------+------+----------+##

##|Função |OX001LINSOK | Autor | Manoel | Data | 20/05/09 |##

##+----------+------------+-------+-----------------------+------+----------+##

##|Descrição | Verifica a linha das aCols de servicos |##

##+----------+--------------------------------------------------------------+##

###############################################################################

===============================================================================

*/

Function OX001LINSOK()

Local nCntFor := 0

Local lTudoBranco := .t.

Local nValSeq := 0

Local cIncMob := "" // cIncMob do VOK (Servico)

// ############################################################

// # Pula registros deletados #

// ############################################################

If oGetServ:aCols[oGetServ:nAt,len(oGetServ:aCols[oGetServ:nAt])]

Return .t.

EndIf

// ####################################################################

// Ponto de Entrada para validacao das linhas do acols dos itens srv.

// ####################################################################

If ( ExistBlock("OX001LKS") ) // <<<<---- O B S O L E T O

lRet := ExecBlock("OX001LKS",.F.,.F.,{lRet})

If !lRet

return .f.

EndIf

EndIf

// ############################################################

// # Verifica se trata-se de uma linha inteiramente em branco #

// ############################################################

For nCntFor:=1 to Len(aHeaderS)

if !Empty(oGetServ:aCols[oGetServ:nAt,nCntFor])

lTudoBranco := .f.

endif

Next

if lTudoBranco

return .t.

endif

Programa Fonte:

OFIXX001.PRW                                                                                                                                          

Função:

IOX001LINSOK                   

Retorno:

lRet - Booleano - Continua(.t.) ou Aborta(.f.)

 

Exemplo:

Function OX001LKS()

 

lRet := MsgYesNo(“Deseja inserir um novo serviço?”,”Atenção!”)

 

Return lRet