Histórico da Página

Descrição

O ponto de entrada ATFA036L realiza a validação total do formulário de baixa de ativo em lote (Form + grid ).

Observações

Substitui o ponto de entrada AF030VLBX da rotina ATFA030 e o ponto de entrada AF035BLBX da rotina ATFA035.

Exemplos

#Include

'Protheus.ch'

#Include

'FWMVCDef.ch'

/*/

{Protheus.doc

}

ATFA036L

@author

TOTVS

@since

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

Local

cIdModel

:=

IIf(

oObj<>

NIL,

oObj:GetId(),

aParam

[3

]

)

//

Identificador

do

Modelo

de

Dados

da

rotina

de

baixa

do

Ativo

em

lote.

(ATFA036L)

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

• Gravação

• dos

• Dados

• (Commit)

• 
  */

• 
  If

• cIdPonto

• ==

• "MODELPOS"

• 
  /*

• Gravação da Baixa
  */
  If nOperation == MODEL_OPERATION_UPDATE

• 
  Help(""

• ,1,

• "MODELPOS",,"Ponto

• de

• Entrada

• Executado

• para

• validar

• após

• a

• confirmaçã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,

• "MODELPOS",,"Ponto

• de

• Entrada

• Executado

• para

• validar

• após

• a

• confirmaçã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