Histórico da Página

Descrição

Este ponto de entrada é executado no carregamento da tela de baixa de ativo manual.

Observações

Substitui o ponto de entrada AF030CHA da rotina ATFA030 e AF035CHA da rotina ATFA035.

Exemplos

/*/{Protheus.doc} ATFA036
@author TOTVS
@since

06/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.

Local

lRet

:=

.T.

//

Variável

de

retorno

dos

pontos

de

entrada

da

rotina

de

baixa

de

ativos.

Local

oObj

:=

aParam

[1

]

//

Objeto

do

Modelo

de

Dados

da

rotina

de

baixa

de

ativos.

Local

cIdPonto

:=

aParam

[2

]

//

Identificador

do

ponto

de

entrada

que

será

chamado

através

da

função

ATFA036

da

rotina

de

baixa

de

ativos.

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

• baixa

• manual

• 
  */

• 
  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

ATFA036.PRW