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

#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

Português(Brasil)

Microsiga_Protheus12

Todos

Todas

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)

.T. ou .F.

PARAMIXB[1]

FINA473A