DT_OX001TOK_Validacao_no_orcamento_antes_de_permitir_ou_nao_o_avanco_ou_gravacao_do_registro

Descrição:

Este ponto de entrada está localizado na rotina Orc. Por Fases (OFIXA011) e na rotina Painel Orçamento (OFIXA018). Ele é executado quando o usuário tenta gravar ou avançar o orçamento. Desta forma, a finalidade é de realizar uma validação no orçamento como um todo antes de permitir ou não o avanço ou gravação do registro.

Eventos:

/*

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

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

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

##|Função |OX001TUDOK | Autor | Manoel | Data | 14/11/00 |##

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

##|Descrição | Verifica se as aCols estao preenchidas corretamente |##

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

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

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

*/

Static Function OX001TUDOK(nOpc)

Local nCntFor := 0

Local lVS3RESERV := .f.

Local nVS3RESERV := 0

Local nVS3LOCAL := 0

Local nVS3GRUITE := 0

Local nVS3CODITE := 0

Local nVS3QTDITE := 0

//

IF FECHA .or. EXCLUI

return .t.

endif

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

// Ponto de Entrada para validacao de todo o orcamento

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

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

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

If !lRet

return .f.

EndIf

EndIf

If ( ExistBlock("OX001TOK") )

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

If !lRet

return .f.

EndIf

EndIf

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

// # Verifica campos obrigatorios da Enchoice #

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

if M->VS1_TIPORC == "2"

if Empty(M->VS1_CHASSI)

if !lOX001Auto

MsgInfo(STR0054,STR0025)

endif

return .f.

endif

endif

//

For nCntFor:=1 to Len(acpoEncS)

If X3Obrigat(acpoEncS[nCntFor]) .and. Empty(&("M->"+acpoEncS[nCntFor]))

Help(" ",1,"OBRIGAT2",,RetTitle(acpoEncS[nCntFor]),4,1)

Return .f.

EndIf

Next

Função:

OX001TUDOK