Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

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.

Parâmetros:

N/A

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

Programa Fonte:

OFIXX001.PRW

Função:

OX001TUDOK      

Retorno:

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

 

Exemplo:

User Function OX001TOK ()

 

lRet := MsgYesNo(“Deseja continuar?”,”Atenção!”)

 

Return lRet