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 | #INCLUDE "FINC040.CH"
#INCLUDE "PROTHEUS.CH"
//----------------------------------------------------------------------------------------
/*/{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 ", "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", FWSizeFilial(), 0 },;
{ "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 } )
ENDIF
IF ASCAN(aCampos,{|e| e[1] == "E5_AUTBCO "}) == 0
AADD(aCampos,{ "E5_AUTBCO ", "C", 25, 0 } )
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 |
