Histórico da Página

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.

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

Função:

IOX001LINSOK