OX001GRA - Validações na opção Gravar no Orçamento Por Fases

Descrição

Ponto de Entrada na rotina Orçamento Por Fases (OFIXX001), executado ao clicar na opção Gravar permitindo que o sistema verifique as validações pré definidas. 

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