Linha Microsiga Protheus

Árvore de páginas

F473EFOK validaTela de Efetivação

 

 

Descrição

Criado ponto de entrada F473EFEOK utilizado para validar operação no momento da Efetivação da Concliliação Automática (FINA473)

 ObservaçãoRetorno .T. (para que permita ser feita a Efetivação) e .F. (para que a efetivação não seja realizada)

Exemplos

 

#include 'totvs.ch'

 

USER fUNCTION F473EFOK

 

Local oModel := PARAMIXB[11]
Local oModelDet := oModel:getModel('CONDETAIL')
Local nValor
Local lOK := .F.
Local cCampUse := PARAMIXB[12,1]

 

nValor := oModelDet:GetValue('IG_VLREXT')
if nvalor > 10 .and. !Empty(cCampUse)
lOk := .T.
Alert("Efetivação realizada")
Else
Alert("Efetivação não pode ser realizada, Valor abaixo e Campo de Usuário não preenchido")
Endif

 


Return lOK


Idioma

Português(Brasil)

Versões

Microsiga_Protheus12

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

PARAMIXB - Array completo contendo as informações da tela de efetivação

1 - Natureza

2 - Centro de Custo Crédito

3 - Centro de Custo Débito

4 - Item Contábil Débito

5 - Item Contábil Crédito

6 - Classe de Valor Débito

7 - Classe de Valor Crédito

8 - Conta Crédito

9 - Conta Débito

10 - Campo Histórico

11 - oModel

12- aCamp (array com campos de tela customizado, caso tenham sido criados pelo Ponto de Entrada : F473EFE)

 

Retorno

.T. ou .F.

Variáveis

PARAMIXB[1]

Programa Fonte

FINA473A