Histórico da Página

Ponto-de-Entrada: F090ADFR - Permite manipulação do filtro que seleciona os registros de abatimentos do fornecedor.

Abrangências:	Microsiga Protheus 11
Versões:	Microsiga Protheus 11
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todos
Idiomas:	Português (Brasil)

Descrição:

Ponto de entrada para manipulação do filtro que seleciona os títulos de abatimentos do fornecedor do titulo a ser baixado,

se algum titulo for encontrado,  uma mensagem é exibida alertando o usuário.

Programa Fonte

FINA090.PRX

Sintaxe

F090ADFR - Manipula seleção de registros ( cCondicao1, lMultFil ) --> lRet

Parâmetros:

Nome Tipo Descrição Default Obrigatório Referência

cCondicao

lMultFil

Caracter

Lógico

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus®
Segmento:	Backoffice
Módulo:	Financeiro
Função:	FINA080 - Baixas Pagar Manual FINA090 - Baixas Pagar Automática

02. DESCRIÇÃO

Ponto de entrada para manipulação do filtro que seleciona os registros pendentes de adiantamentos (PA) e/ou notas de débito (NDF/DIC) do fornecedor do título a ser baixado. Para verificação de PA/NDF/DIC pendentes e exibição de mensagem na baixa de títulos, é necessário ativar o parâmetro MV_VLTITAD.

03. PARÂMETROS

Nome	Tipo	Descrição
cCondicao	Carácter	Expressão da query que filtra os registros.
lMultFilial	Logico	Indica se abrange todas as filiais.

04. RETORNO

Nome	Tipo	Descrição
aReturn[1]	Caracter

Expressão da query que filtra os registros.
aReturn[2]	Logico	Indica se abrange todas as filiais.

.F.

X

Sintaxe( SQL )

Retorno

aReturn

(Array)

Retorno array com 2 posições - 1º contem a cCondição e 2º contem a lMultFil

Exemplos

05. EXEMPLO DE UTILIZAÇÃO

Bloco de código

language	vb
theme	Midnight
firstline	1
title	F090ADFR
linenumbers	true

#Include

#Include

'Protheus.ch'



User Function F090ADFR()



	Local cCondicao := PARAMIXB[1]


	Local lMultFilial := PARAMIXB[2]


	Local aReturn := {}



	cCondicao := "E2_FILIAL =

' '

 'D MG 01 ' .And.

E2_FILIAL <= 'zz' .And. "
cCondicao +=

 "
	cCondicao += "(E2_TIPO $ '"+MV_CPNEG + "/" + MVPAGANT+ "')

"
cCondicao += ' .AND. E2_SALDO > 0 '

lMultFilial := .T.

 .And. E2_SALDO > 0 "
	cCondicao += ".And. E2_PREFIXO = 'COM' "

	lMultFilial := .T.

	AADD(aReturn,cCondicao)


	AADD(aReturn,lMultFilial)



Return aReturn

...

HTML

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave

01. DADOS GERAIS

02. DESCRIÇÃO

03. PARÂMETROS

04. RETORNO

05. EXEMPLO DE UTILIZAÇÃO