Histórico da Página

Ponto de entrada executado no carregamento da tela de baixas de ativo em lote.
Substituindo o ponto de entrada AT030BX.

@author TOTVS
@since 05/05/2014
@version 1.0
/*/
User Function ATFA036L
Local aParam := PARAMIXB // Vetor com os parâmetros recebidos pelos pontos de entrada da rotina de baixa de ativo em lote.
Local lRet := .T. // Variável de retorno dos pontos de entrada da rotina de baixa de ativos em lote.
Local oObj := aParam[1] // Objeto do Modelo de Dados da rotina de baixa de ativos em lote.
Local cIdPonto := aParam[2] // Identificador do ponto de entrada que será chamado através da função ATFA036L da rotina de baixa de ativos em Lote.
Local cIdModel := IIf( oObj<> NIL, oObj:GetId(), aParam[3] ) // Identificador do Modelo de Dados da rotina de baixa do Ativo (ATFA036)
Local cClasse := IIf( oObj<> NIL, oObj:ClassName(), '' ) // Nome da classe utilizada na rotina (FWFORMFIELD - Formulário, FWFORMGRID - Grid)
Local nOperation := 0

/*
* Verificação se o modelo de dados está ativo para utilização dos dados da rotina de baixa de ativo antes da execução dos procedimentos do ponto de entrada.
*/
If oObj != Nil .AND. oObj:IsActive()
/*

• Modo de Edição na Rotina (4-Baixa, 5-Cancelamento)
  */
  nOperation := oObj:GetOperation()

/*

• Verificação se o Identificador do Ponto de Entrada é do Processado antes da Exibição da Tela de Baixas
  */
  If cIdPonto == "FORMPRE"
  /*
• Gravação da Baixa
  */
  If nOperation == MODEL_OPERATION_UPDATE

Help("" ,1, "FORMPRE",,"Ponto de Entrada Executado no carregamento da exibição do formulário para gravação do registro de baixa de ativo." ,1,0)
lRet := .F.
/*

• Gravação do Cancelamento da Baixa
  */
  ElseIf nOperation == MODEL_OPERATION_DELETE
  Help("" ,1, "FORMPRE",,"Ponto de Entrada Executado no carregamento da exibição do formulário para gravação do registro de cancelamento de baixa de ativo." ,1,0)
  lRet := .F.
  EndIf
  EndIf
  EndIf
  Return lRet

  Preview
  Veja também
  Idioma	Português(Brasil)
  Versões	Microsiga_Protheus12
  Sistemas Operacionais Suportados	Todos
  Compatível com as Bases de Dados	TOTVSDBAccess
  Updates
  Parâmetros
  Retorno	Retorno Lógico (lRet :=

...

• (.T./.F.))

...

• Eventos

...

• de

...

• chamada

...

• do

...

• Ponto

...

• de

...

• Entrada
  Variáveis
  Programa Fonte	ATFA036L.PRW