F090TIT - Ponto de entrada marcar títulos na baixa automática a pagar

01. DADOS GERAIS

Linha de Produto:	Linha Protheus
Segmento:	Backoffice
Módulo:	TOTVS Backoffice (Linha Protheus) - Financeiro (SIGAFIN)
Função:	FINA090 - Baixas a Pagar Automática

02. DESCRIÇÃO

Ponto de Entrada será acionado em dois momentos na rotina:

1) Permite que o usuário defina a situação inicial dos títulos: se os títulos já estarão selecionados ou não na tela de Seleção dos Títulos.

2) Será chamado na função finaDisplay(), que atualiza tela de seleção de registros de baixa automática, verificando a cada marcação se o título pode ser marcado ou não para baixa.

A tabela SE2 estará posicionada no título que estiver sendo marcado.

Importante

O ponto de entrada não será acionado na opção de inverter as marcações.

03. PARÂMETROS

Nome	Tipo	Descrição
nValorMarca	Numérico	Valor dos títulos marcados.
aTitulos	Array	Este array traz os títulos a serem apresentados, de acordo com os parâmetros informados na rotina.

IMPORTANTE

Os parâmetros devem ser utilizados apenas na chamada da rotina automática do FINA090. O array aTitulos não terá conteúdo na chamada via tela.

04. RETORNO

Nome

Tipo

Descrição

lRet

Lógico

Caso tenha sido alterada a marcação do título, o ExecBlock retorna .F., para não haver alteração dos acumuladores de valores e número de titulos.

Caso o Ponto de Entrada seja utilizado para determinar se os títulos estão ou não marcados, deve retornar .T. (Verdadeiro) ou .F. (Falso) para verificar qual será a opção inicial dos títulos, marcados ou não marcados.

05. EXEMPLO DE UTILIZAÇÃO

F16QYCRT

User Function F090TIT()
Local lRet := .F.
Local nValor	:= PARAMIXB[1]
Local aTitulos := {}
Local cPrefTit  :=  SE2->E2_PREFIXO 
Local cNumTit :=  SE2->E2_NUM

If type("PARAMIXB[2]") != "U"	
    aTitulos := PARAMIXB[2]	
    If Len(aTitulos) == 0		
        lRet := MsgYesNo("Confirmar a marcação do título prefixo: " + cPrefTit + " e numero : " + cNumTit )	
    Else		
        lRet := MsgYesNo("Chamado via execução da rotina automatica ")	
    Endif
Else	
     lRet := MsgYesNo("Confirmar a marcação do título? ")	
Endif	
Return lRet

Árvore de páginas