Linha Microsiga Protheus

Árvore de páginas

Descrição

O Ponto de entrada ATFA036L é executado no carregamento da tela de baixas de ativo em lote.

Observações

Substitui o ponto de entrada AT030BX.

Exemplos

/*/{Protheus.doc} ATFA036L

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

Idioma

Português(Brasil)

Versões

Microsiga_Protheus12

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

TOTVSDBAccess

Retorno

Retorno Lógico (lRet := (.T./.F.))

Programa Fonte

ATFA036L.PRW

  •  

  • Sem rótulos