Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Guilherme Augusto de Sordi Nogueira Guedes

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Guilherme Augusto de Sordi Nogueira Guedes

Gravado em

Chave

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

...

Ponto de Entrada que permite substituir o filtro padrão da rotina de liquidação de contas a receber (FINA460). 

Na execução automática (ExecAuto), o filtro informado nos parâmetros da execução automática (ExecAuto) prevalecerá sobre esse ponto de entrada. Nesse caso, para utilizar o ponto de entrada, nenhum filtro deve ser informado na execução automática (ExecAuto).

Informações
titleImportante

O ponto de entrada FA460OWN não será processado quando a rotina for executada para liquidação com variação monetária.

Aviso
titleAviso

A expressão retornada nesse ponto de entrada substituirá a expressão de filtro padrão, ou seja, não irá concatenar com o filtro padrão. Para concatenar o filtro padrão, veja F460FIL - Inclusão filtro adicional na liquidação de contas a receber

Informações
titleImportante

O ponto de entrada FA460OWN não será processado quando a rotina for executada para liquidação com variação monetária.

Informações
titleExecução automática

O filtro informado nos parâmetros da execução automática (ExecAuto) prevalecerá sobre esse ponto de entrada. Nesse caso, para utilizar o ponto de entrada, nenhum filtro deve ser informado na execução automática (ExecAuto).

03. PARÂMETROS

Não há.

04. RETORNO

...

TipoDescrição
CaractereExpressão SQL que substituirá a consulta padrão do sistema.


05. EXEMPLO

Bloco de código
languagejava
themeMidnight
firstline1
titleExemplo de execução
linenumberstrue
#include "protheus.ch"
	
User Function F460VALFA460OWN()
	local aComplcQuery := aClone(PARAMIXB) // Exemplo: {{"E1_MEUCAMPO","1"}} //Veja P.E. F460SE1
	local nX := 1

	If RecLock("SE1",.F.)	
		for nX := 1 to len(aCompl)
			SE1->(aCompl[nX][1]) := aCompl[nX][2]
		next nX
   		SE1->(MsUnlock())
	EndIf
Return nil""
 
	cQuery := " SELECT "
	cQuery += " R_E_C_N_O_ RECNO "
	cQuery += " FROM "+	RetSqlName("SE1") + " SE1 "
	cQuery += " WHERE E1_SALDO > 0 "
	cQuery += " AND MEUCAMPO = 1 "
	cQuery += " AND D_E_L_E_T_ = ' ' "	
return cQuery


06. ASSUNTOS RELACIONADOS

F460FIL - Inclusão filtro adicional na liquidação de contas a receber

Liquidação a receber (FINA460) - ExecAuto


Templatedocumentos