Histórico da Página

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