Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 103

changes.mady.by.user Usuário desconhecido (norbertom)

Gravado em

comparado com

Nova versão 104

changes.mady.by.user Usuário desconhecido (norbertom)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Cria filtro na rotina de compensação contas a pagar

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Financeiro

Rotina:

Rotina

Nome Técnico

FINA340

Compensação Contas a Pagar

Cadastros Iniciais:

1 - Contas a Pagar

País(es):

Todos os homologados

Banco(s) de Dados:

Todos os homologados

Tabelas Utilizadas:

SE2 - Titulos a Pagar

Sistema(s) Operacional(is):

Todos os homologados

Ponto de Entrada

Descrição:

Esse ponto de entrada permite criar um novo filtro para a rotina de Compensação Contas a Pagar - FINA340. 
Esse filtro é responsável por trazer os títulos considerados liberados para compensação.

Obs:
1 - Na chamada do ponto de entrada a tabela SE2 está posicionada no registro de partida da compensação.
2 - As perguntas (F12) estão disponíveis para serem usadas na cláusula where do filtro.

Localização:

FINA340 

Eventos:

Compensar

Programa Fonte:

FINA340

Função:

FA340QryTi()

Retorno:

Nome

Tipo

Descrição

Obrigatório

cQuery 

C

Filtro dos títulos a serem considerados na operação de compensação

X

 

Exemplo:


#INCLUDE "PROTHEUS.CH"

User function F340FCPTOP()
    Local nFields := 1
    Local cQuery := ""
    Local aStruSE2 := ""
    Local cCampos := ""
    
    If AllTrim(tcGetdb()) == "MSSQL"
        cQuery := "SELECT SE2.R_E_C_N_O_ E2_RECNO,* FROM " + RetSqlName("SE2") + " SE2 WHERE "
    Else
        aStruSE2 := SE2->(dbStruct())


        For nFields := 1 To Len(aStruSE2)
            cCampos += "SE2." + aStruSE2[nFields, 1] + ", "
        Next nFields
        
        cCampos += "SE2.R_E_C_N_O_ E2_RECNO "
    
        cQuery := "SELECT " + cCampos + " FROM " + RetSqlName("SE2") + " SE2 WHERE "
    EndIf
    
    cQuery += "SE2.E2_SALDO > 0 And SE2.E2_TIPO NOT IN ('" + SE2->E2_TIPO + "') "
Return cQuery