Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Alberto Jose

Gravado em

comparado com

Nova versão 7

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

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Pontos de entrada relacionados ao Browse

Descrição

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

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 abaixo:

Veja TambémDSERFINR-23136 DT Ponto de Entrada FI040CPCO - Campos Correspondentes Dados Protegidos
Pré-condição

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

FI040CPTN - Inclusão de colunas no aBrowse

FI040GRCP - Grava os campos incluídos no aBrowse

Exemplos


Bloco de código
languagejs
themeMidnight
firstline001
linenumberstrue
#INCLUDE "FINC040.CH"

#Include 

#INCLUDE "PROTHEUS.CH"

User Function 


User FUNCTION FI040TPCP()

Local 

LOCAL aCampos :=
ParamIxb 
 PARAMIXB[1] // Array recebido do
FINC040
aCampos := {{
 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 ", "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

    AADD(aCampos,{ "E5_BENEF ", "C", 30, 0 }
) // Tipo e tamanho do campo 1 inserido
 )
    AADD(aCampos,{ "E5_AUTBCO ", "C", 25, 0 }
) // Tipo e tamanho do campo 2 inserido
// Tipo e tamanho do campo n inserido
Return 
 )

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