Linha Microsiga Protheus

Árvore de páginas

01. VISÃO GERAL

Ponto de entrada que permite manipular os dados da tabela temporária responsável pelos títulos que serão exibidos na tela de seleção da rotina Compensação entre carteiras (FINA450).

O nome do alias temporário é TRB.

02. PARÂMETROS

PosiçãoTipoDescrição
1Caractere

Tabela ativa:

  • "SE1" - Quando o ponto de entrada é acionado e está posicionado no título a receber;
  • "SE2" - Quando o ponto de entrada é acionado e está posicionado no título a pagar;

03. RETORNO

TipoDescrição
CaractereExpressão SQL a ser incluída na cláusula WHERE da consulta.

04. EXEMPLO DE UTILIZAÇÃO

#include "protheus.ch"
 
User Function F450GRAVA()
	Local cTabela := PARAMIXB[1]
	Local _nJuros := 0
	Local nAbat := SumAbatRec(SE1->E1_PREFIXO,SE1->E1_NUM,SE1->E1_PARCELA,SE1->E1_MOEDA,"S",dDataBase)
	Local nDescont := FaDescFin("SE1",dDataBase,SE1->E1_SALDO-nAbat,SE1->E1_MOEDA)

    If cTabela == "SE1" //Titulos a Receber
        RecLock("TRB",.F.)
        Replace JUROS With _nJuros
        Replace RECEBER With SE1->E1_SALDO - nAbat + SE1->E1_SDACRES - SE1->E1_SDDECRE - nDescont
        MsUnlock()
    Elseif cTabela == "SE2" //Titulos a Pagar
        RecLock("TRB",.F.)
        Replace JUROS With _nJuros
        Replace PAGAR With SE2->E2_SALDO + SE1->E1_SDACRES - SE1->E1_SDDECRE
        MsUnlock()
    Endif
Return