Histórico da Página
Wiki Markup |
---|
||Descrição|| ATFA036 - Carregamento da tela de baixa de ativos manual. ||Observações|| Substituindo o ponto de entrada AF030CHA da rotina ATFA030 e AF035CHA da rotina ATFA035. ||Exemplos||/*/ Unknown macro: {Protheus.doc} ATFA036 Ponto de entrada executado no carregamento da tela de baixas de ativo em lote. Substituindo o ponto de entrada AF030CHA da rotina ATFA030 e AF035CHA da rotina ATFA035. @author TOTVS @since 05/05/2014 @version 1.0 /*/ User Function ATFA036 Local aParam := PARAMIXB // Vetor com os parâmetros recebidos pelos pontos de entrada da rotina de baixa de ativo manual. Local lRet := .T. // Variável de retorno dos pontos de entrada da rotina de baixa de ativo manual. Local oObj := aParam1 // Objeto do Modelo de Dados da rotina de baixa de ativos em lote. Local cIdPonto := aParam2 // Identificador do ponto de entrada que será chamado através da função ATFA036 da rotina de baixa de ativo manual. Local cIdModel := IIf( oObj<> NIL, oObj:GetId(), aParam3 ) // 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 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|| ATFA036.PRW |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas