Descrição

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

Exemplos

#INCLUDE "FINC040.CH"
#Include "PROTHEUS.CH"
User Function FI040TPCP()
Local aCampos := ParamIxb // Array recebido do FINC040
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 }, ;
{ "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, 0 }, ; // Observe se o tamanho da sua Filial é 02
{ "RECONC ", "C", 01, 0 },;

{ "IDORIG ", "C", TamSX3("E5_IDORIG")[1],TamSX3("E5_IDORIG")[2] } }
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 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