Histórico da Página

...

Campo	Tabela	Descrição
E1_FILORIG	SE1	Filial de Origem.
E1_FILIAL	SE1	Filial do Sistema.
E1_PREFIXO	SE1	Prefixo do titulo.
E1_NUM	SE1	Numero do Titulo.
E1_PARCELA	SE1	Parcela do Titulo.
E1_TIPO	SE1	Tipo do titulo.
E1_CLIENTE	SE1	Código do Cliente.
E1_LOJA	SE1	Loja do Cliente.
E1_MOEDA	SE1	Moeda do Titulo.
E1_EMISSAO	SE1	Data de Emissão do Titulo.
E1_VENCREA	SE1	Vencimento real do Titulo.
E1_VALOR	SE1	Valor do Titulo.
E1_SALDO	SE1	Saldo a Receber.
E1_CODBAR	SE1	Código de Barras.
E1_NUMBOR	SE1	Numero do Borderô.
E1_BAIXA	SE1	Data de Baixa do Titulo.
EA_BORAPI	SEA	Borderô por API.
EA_TRANSF	SEA	Status de Transferência.	E1_BAIXA	SEA	Data de Baixa do Titulo.

03. EXEMPLO DE UTILIZAÇÃO

Bloco de código

language	java
theme	Midnight
firstline	1
title	PCTITRELPCTITQRY
linenumbers	true
collapse	true

#include 'Protheus.ch'
 
 /*/{Protheus.doc} User Function PCTITQRY
    Utilizado para alteração da query responsável pela listagem
    dos títulos no Portal do Cliente - FIN.

    Parâmetros:
     - Paramixb[1] (Character) = Query criada até o momento para listagem.
     - Paramixb[2] (Array) = Lista contendo a chave dos clientes selecionados no portal.

    Retorno:
     - cNewQuery (Character) = Query com os filtros aplicados.

    Obs: A query do ponto de entrada deve obrigatoriamente
    retornar os campos descritos na documentação.
   
    @type Function
    @author Totvs
    @since 10/10/2023
    @version 1.0
    @see https://tdn.totvs.com/pages/viewpage.action?pageId=794384769
 /*/
User Function PCTITQRY() As Character
    Local cOriginQry := Paramixb[1] As Array
    Local aCustomers := Paramixb[2] As Array
    Local cStartQry  := "" As Character
    Local cCustomQry := "" As Character
    Local cEndQry    := "" As Character
    Local cNewQuery  := "" As Character

    // Guarda oa parte de inicio da query
    cStartQry := Substr(cOriginQry, 1, AT("ORDER BY", cOriginQry) -1 )

    // Logica para customização da query (Condicional WHERE)
    cCustomQry := " AND SE1.E1_MOTIVO <> 'CMP' "

    // Guarda a parte final da query
    cEndQry := Substr(cOriginQry, AT("ORDER BY", cOriginQry))

    // Aplica a parte customizada na query principal
    cNewQuery := cStartQry + cCustomQry + cEndQry

Return cNewQuery

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão Atual

Chave

03. EXEMPLO DE UTILIZAÇÃO