Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagedelphi
themeMidnight
titleExemplo
linenumberstrue
#include 'totvs.ch'

/*/{Protheus.doc} User Function PEC152
   Permite informar os campos que serão apresentados na tela Ficha de Credito (Portal do Cliente).
   @type Function
   @since 01/01/2024
   @author user
/*/
User Function PEC152()
 
  Local aRet := {}

  Conout("Acionou o ponto de entrada PEC152.") // Esta mensagem será apresentada no console.log do sistema.

  	//______________________________________________________________
	//³ Nomes dos campos disponíveis - Ficha de Credito            ³
	//|- MATURITYOFCREDITLIMIT   : Vencimento Limite de Credito    |
	//|- SELLER                  : Vendedor                        |
	//|- NUMBEROFCHECKSRETURNED  : Numero de Cheques devolvidos    |
	//|- DATELASTCHECKSRETURNED  : Data do ultimo cheque devolvido |
	//|- BILLSPROTESTED          : Títulos protestados             |
	//|- DATEOFLASTPROTESTEDBILL : Data do ultimo titulo protestado|
	//|- CREDITLIMIT             : Limite de Credito               |
	//|- FIRSTPURCHASE           : Primeira Compra                 |
	//|- BILLBALANCE             : Saldo do Titulo                 |
	//|- LASTPURCHASE            : Ultima Compra                   |
	//|- SECONDARYCREDITLIMIT    : Limite de Credito Sec.          |
	//|- MAJORDELAY              : Maior Atraso                    |
	//|- SECCREDITLIMITBALANCE   : Saldo do Limite de Credito Sec. |
	//|- AVERAGEDELAY            : Media Atraso                    |
	//|- BIGGESTPURCHASE         : Maior Compra                    |
	//|- RISKRATE                : Taxa de Risco                   |
	//|- BIGGESTBALANCE          : Maior Saldo                     |
	//_____________________________________________________________|

  // Somente mostrará os campos Vencimento Limite de Credito e Primeira Compra.
  AAdd(aRet, "MATURITYOFCREDITLIMIT")
  AAdd(aRet, "FIRSTPURCHASE")

Return aRet

...