Histórico da Página

Descrição

Na rotina ATFA036 existe o ponto de entrada para validação dos dados do formulário de baixa de ativo e cancelamento de baixa ativo.

Observações

Ponto de gravação de validação total do formulário (Form + grid ).  Substitui o ponto de entrada AF030VBX da rotina ATFA030.

Exemplos

/*/{Protheus.doc}

ATFA036

Ponto

de

gravação

de

validação

total

do

formulário

(Form

+

grid

)

Substituindo

o

ponto

de

entrada

AF030VBX

da

rotina

ATFA030.

@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.

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

• 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

ATFA036.PRW