Histórico da Página

Descrição	Ponto de Entrada na rotina Orçamento Por Fases (OFIXX001), executado ao clicar no botão Gravar permitindo que o sistema verifique as validações pre definidas pelo usuário.
Observações
Exemplos	User Function OX001GRA MsgInfo("Ponto de entrada 'OX001GRA' executado com sucesso!") Return
Preview
Veja também
Idioma	Português(Brasil)
Versões	Todas
Sistemas Operacionais Suportados	Todos
Compatível com as Bases de Dados	Todas
Updates
Parâmetros
Retorno
Eventos de chamada do Ponto de Entrada	// ############################################################ // # Pergunta se deseja gravar realmente # // ############################################################ if !lFat .and. !lImp .and. !lOX001Auto if !lOX001Auto if !MsgYesNo(STR0058,STR0025) return .f. endif endif endif

If ExistBlock("OX001GRA")
ExecBlock("OX001GRA",.f.,.f.)
EndIf

// ##########################################################################
// # I N I C I A A G R A V A C A O D O O R C A M E N T O (VS1/VS3) #
// ##########################################################################
if M->VS1_NUMORC == ""
cNumOrc := GetSXENum("VS1","VS1_NUMORC")
M->VS1_NUMORC := cNumOrc
ConfirmSx8()
endif
//
// ------------------------------------------------------------------------------------------------------------
BEGIN TRANSACTION // --------I-N-I-C-I-O---D-A---T-R-A-N-S-A-C-A-O---------------------------------------------
// ------------------------------------------------------------------------------------------------------------
// ############################################################
// # Apaga qualquer gravacao anterior #
// ############################################################
If TCCanOpen(RetSqlName("VS3"))
cString := "DELETE FROM "RetSqlName("VS3") " WHERE VS3_FILIAL = '"+ xFilial("VS3")"' AND VS3_NUMORC= '"+M->VS1_NUMORC"'"
TCSqlExec(cString)

Variáveis
Programa Fonte	OFIXX001.PRW

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão 3

Chave