FA080LIB – Validação ao confirmar a baixa manual

#INCLUDE "TOTVS.CH"

User Function FA080LIB() as logical
Local lRetorno := .T. as logical

FWAlertInfo("Ponto de entrada FA080LIB")

If Empty(CCHEQUE)   
	lRetorno := .F. 
EndIf

//-----------------------------------------------------------------------------------------
//Exemplo de variaveis private para consulta
//-----------------------------------------------------------------------------------------
//Nome			Tipo			Escopo			Pode Alterar	Descrição
//CBANCO		Caracter		Privado			Não				Código do Banco
//CAGENCIA		Caracter		Privado			Não				Código da Agência Bancária
//CCONTA		Caracter		Privado			Não				Código da Conta Corrente
//CCHEQUE		Caracter		Privado			Não				Número do Cheque
//DBAIXA		Data			Privado			Não				Data da Baixa
//CHIST070		Caracter		Privado			Não				Histórico da Baixa
//CBENEF		Caracter		Privado			Não				Beneficiário
//NDESCONT		Decimal			Privado			Não				Valor do Desconto
//NMULTA		Decimal			Privado			Não				Valor da Multa
//NJUROS		Decimal			Privado			Não				Tx Permanência
//NVALPGTO		Decimal			Privado			Não				Valor Pago
//-----------------------------------------------------------------------------------------

RETURN lRetorno