Exibir origem

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus®
Segmento:	Backoffice
Módulo:	Financeiro
Idiomas:	Português
Função:	Portal do Cliente

02. DESCRIÇÃO

O ponto de entrada PCINVQRY permite informar uma query personalizada para listagem de notas fiscais no Portal do Cliente - SIGAFIN.

Parâmetros disponibilizados no ponto de entrada:

PARAMIXB

Tipo

Descrição

1º Posição

Caractere

Query padrão utilizada para listagem das notas fiscais no Portal do Cliente.

2º Posição

Array

Contém um Array com as chaves (FILIAL+CODIGO+LOJA) dos clientes selecionados no portal.

Cada posição do Array contém um objeto Json com as propriedades: filial, codigo e loja.

Retorno do ponto de entrada:

O ponto de entrada deve retornar a query personalizada respeitando os campos definidos por padrão:

Tipo	Obrigatoriedade	Descrição
Caractere	Obrigatório	Query personalizada para listagem das notas fiscais do Portal do Cliente (A query deve obrigatoriamente retornar os campos descritos abaixo).

Campos obrigatórios:

Campos que devem ser obrigatoriamente devolvidos na query personalizada:

Campo	Tabela	Descrição
F2_FILIAL	SF2	Filial do Sistema.
F2_CLIENTE	SF2	Codigo do Cliente.
F2_LOJA	SF2	Loja do Cliente.
F2_DOC	SF2	Numero do Docto. de Saida.
F2_SERIE	SF2	Serie do Documento.
F2_VALBRUT	SF2	Valor Bruto da NF.
F2_MOEDA	SF2	Moeda da Fatura.
F2_CHVNFE	SF2	Chave da NFe SEFAZ.
F2_NFELETR	SF2	Nota Fiscal Eletrônica.
F2_EMISSAO	SF2	Data de Emissao da NF.
F2_HORA	SF2	Hora.
F2_CODNFE	SF2	Código verificação NF-e.

03. EXEMPLO DE UTILIZAÇÃO

#include 'Protheus.ch'
 
 /*/{Protheus.doc} User Function PCINVQRY
    Utilizado para alteração da query responsável pela listagem
    das notas fiscais 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 PCINVQRY() 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 a parte de inicio da query
    cStartQry := Substr(cOriginQry, 1, AT("ORDER BY", cOriginQry) -1 )

    // Logica para customização da query (Condicional WHERE)
    cCustomQry := " AND SF2.F2_DOC <> '000001' "

    // 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