| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | ATFA030 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46829 |
O ponto de entrada ATFA036 é executado no carregamento da tela de baixa de ativos manual. Ele é executado antes da exibição da tela, permitindo a manipulação de parâmetros ou ajustes necessários.
Os pontos de entrada AF030CHA da rotina ATFA030 e AF035CHA da rotina ATFA035, foram substituídos consolidando a funcionalidade na rotina ATFA036.
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
EndIf
Return lRet |
|