Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 7

changes.mady.by.user Usuário desconhecido (rafael.riego)

Gravado em

comparado com

Nova versão 8

changes.mady.by.user Usuário desconhecido (tp.yuri.milan)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Ao utilizar o ponto de entrada FA473005 podemos efetuar validações de usuário na rotina FI473Pos

03. PARÂMETROS

        lRet - variável lógica a ser manipulada e devolvida no retorno do ponto de entrada  oModel - Modelo da rotina de conciliação bancária.


04. RETORNO

Nome

Tipo

Descrição

lRet

Lógico

Retorno logico da validação do FI473Pos

...

Bloco de código
languagevb
themeMidnight
firstline1
titleFA473005
linenumberstrue
#INCLUDE 'TOTVS.CH'

/*/{Protheus.doc} FA473001
Ponto de entrada para executar operações no final da rotina F473Concil após o controle de transação.
 
oModel - Modelo da rotina de conciliaçao bancária
 
@type       Function
@author     TOTVS
@since      18/11/2020
@return     @lRet
/*/

User Function FA473005

	Local lRet    Local oModel        := Paramixb

	lRet    Local oModelDet		:= oModel:GetModel("CONDETAIL")
    Local lRet          := .T.   
	MsgAlert("FA473005 - Validação OK")
	Conout("FA473005 lRet = .T.")
    oModel		:= FWModelActive()
    
    If oModel:isActive()

        oModelDet		:= oModel:GetModel("CONDETAIL")
        lRet          := .T.

        If Len(oModelDet:aLINESCHANGED) > 0
            lRet          := .T.
            MsgAlert("Ateração efetuada")
        Else
            lRet          := .F.
            MsgAlert("Nenhum registro alterado")
        EndIf
    
    Else
        MsgAlert("Modelo não foi ativado")
    Endif
Return(lRet)