Histórico da Página

Descrição

O ponto de entrada FI040TPCP define os tipos das colunas incluídas pelo PE FI040CPTN.

Veja Também

Para atender a Lei Geral de Proteção de Dados (Lei n° 13.70), alguns campos que apresentam informações consideradas como dados sensíveis, serão ofuscados deixando de ser legíveis.
Para tratar ofuscação de campos modificados por esse ponto de entrada, utilizar o Ponto de Entrada FI040CPCO .

Pré-condição

A execução do PE FI040TPCP está condicionada à presença dos PE's abaixo:

Uso do FI040CPTN ou FI040MNCP;

Definir os tipos de dados no FI040TPCP.

Exemplos

Bloco de código

language	js
theme	Midnight
firstline	001
linenumbers	true

#INCLUDE "FINC040.CH"

#Include


#INCLUDE "PROTHEUS.CH"

User Function FI040TPCP()
Local aCampos := ParamIxb // Array recebido do FINC040
aCampos := {{



//----------------------------------------------------------------------------------------
/*/{Protheus.doc} FI040TPCP
Define os tipos de colunas incluídas na rotina de Consulta de Títulos a Receber (FINC040).

@return aBrowPE[1] = Campo da tabela SE5 que foi adicionado nos PE's FI040MNCP/FI040CPTN
		aBrowPE[2] = Tipo do dado da coluna (D=Data/N=Numerico/C=Caracter)
		aBrowPE[3] = Tamanho da coluna
		aBrowPE[4] = Casas decimais (para dados numericos)    
/*/
//----------------------------------------------------------------------------------------

User FUNCTION FI040TPCP()
LOCAL aCampos := PARAMIXB[1] // Array recebido do FINC040
 
    IF EMPTY(aCampos)
        aCampos := {;
            { "OK","N",1,0},;

{


            { "DATAX ", "D", 08, 0 },

;
{

 ;
            { "JUROS ", "N", 16, 2 },

;
{

 ;
            { "MULTA ", "N", 16, 2 },

;
{

 ;
            { "CORRECAO ", "N", 16, 2 },

;
{ "DESCONTOS ",

 ;
            { "DESCONTOS ", "N", 16, 2 }, ;
            { "VALACESS" , "N", 16, 2 }, ;
            { "VALORTRANS", "N", 16, 2 },

;
{

 ;
            { "VALORRECEB", "N", 16, 2 },

;
{

 ;
            { "MOTIVO ", "C", 03, 0 },

;
{

 ;
            { "HISTORICO ", "C", 40 ,0 },

;
{

 ;
            { "DATACONT ", "D", 08, 0 },;

{


            { "DATADISP ", "D", 08, 0 },;

{


            { "LOTE ", "C", 08, 0 },

;
{

 ;
            { "BANCO ", "C", 03, 0 },;

{


            { "AGENCIA ", "C", 05, 0 },;

{


            { "CONTA ", "C", 10, 0 },

;
{

 ;
            { "DOCUMENTO ", "C", 50, 0 },

;
{

 ;
            { "FILIAL ", "C",

02

 FWSizeFilial(), 0 },;

// Observe se o tamanho da sua Filial é 02
{ "RECONC ",


            { "RECONC ", "C", 01, 0

}\ }

 },;
            { "IDORIG ", "C", TamSX3("E5_IDORIG")[1],TamSX3("E5_IDORIG")[2] };
        }
    ENDIF
 
    IF ASCAN(aCampos,{|e| e[1] == "E5_BENEF "}) == 0
        AADD(aCampos,{ "E5_BENEF ", "C", 30, 0 }

) // Tipo e tamanho do campo 1 inserido

 )
    ENDIF

    IF ASCAN(aCampos,{|e| e[1] == "E5_AUTBCO "}) == 0
        AADD(aCampos,{ "E5_AUTBCO ", "C", 25, 0 }

) // Tipo e tamanho do campo 2 inserido
// Tipo e tamanho do campo n inserido
Return aCampos

 )
    ENDIF
 
RETURN aCampos

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Retorno

aCampos - array contendo os tipos das colunas incluídas no aBrowse

Variáveis

aCampos - array contendo os tipos das colunas incluídas no aBrowse

Programa Fonte

FINC040

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão Atual

Chave