Linha Microsiga Protheus

Árvore de páginas

Descrição

Este Ponto de Entrada é chamado na função finaDisplay(), que atualiza tela de seleção de registros de baixa automática, verificando se o título pode ser marcado ou não para baixa. 
Este Ponto de Entrada 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. 
Esta funcionalidade NÃO estará disponível na opção de inverter as marcações, observe o exemplo do Ponto de Entrada.

 

Ponto de Entrada

Descrição:

Este Ponto de Entrada é chamado na função finaDisplay(), que atualiza tela de seleção de registros de baixa automática, verificando se o título pode ser marcado ou não para baixa. Também 
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. 

Localização:

Contas à pagar

Eventos:

Baixas Pagar Automática / Baixas Pagar Auto Multi-Filiais

Programa Fonte:

FINA090 / FINA091

Função:

Fa090bAval, Fa090Marca

Parâmetros:nValorMarca, aTitulos

Retorno:

Nome

Tipo

Descrição

Obrigatório

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 True (Verdadeiro) ou False (Falso) para verificar qual será a opção inicial dos títulos, marcados ou não marcados.

X


Nota: Na rotina de Baixas à Pagar Automática Multi-Filiais (FINA091), o ponto de entrada F090TIT quando chamado pela primeira vez (onde define quais títulos virão marcados), não recebe parâmetros (Paramixb).

Isto porque nessa passagem, não há arquivo temporário dos títulos, mas a tabela SE2 está aberta e travada para gravação (MsRLock), de forma que as informações do título estão disponíveis para validações e manipulações

ex: nValor := (cAlias)->E2_VALOR


Exemplo padrão:

#Include 'Protheus.ch'

User Function F090TIT()
Local lRet := .F.
Local nValor := PARAMIXB[1]
Local aTitulos := {}

If type("PARAMIXB[2]") != "U"
   aTitulos := PARAMIXB[2]
   If Len(aTitulos) == 0
      lRet := .F.
   Else
      lRet := .T.
   Endif
Else
   lRet := .T.
Endif

Return lRet