PEF102 - Exibição de Campos na Tela de Detalhes dos Títulos Baixados

FINALIDADE: Ponto de entrada utilizado para definir quais campos devem ser exibidos na tela de detalhamento dos títulos baixados no portal do fornecedor.Este ponto de entrada é executado duas vezes. Uma vez para definir os campos do título baixado, onde recebe o parâmetro 1 e novamente para definir os campos da movimentação bancária, onde recebe o parâmetro 2.LOCALIZAÇÃO : Web Function PWSF102EM QUE PONTO : Ao clicar no número do título para exibir seu detalhamento.

PWSF100.PRW

PEF102 - Exibição de Campos na Tela de Detalhes dos Títulos Baixados ( [ Paramixb ] ) --> aWebCols

aWebCols(array_of_record)
• Array contendo a identificação dos campos que se deseja exibir no detalhamento do título.

O retorno do Ponto de Entrada deve ser um array, com os nomes de identificação dos campos que é reconhecida pelo web service correspondente, que devem ser exibidos na tela, conforme abaixo:

Quando parâmetro recebido for 1 (campos do título baixado):

PREFIX :  Prefixo
BILLNUMBER :  No. Titulo
INSTALLMENT :  Parcela
BILLTYPE :  Tipo
CUSTOMERCODE :  Cliente
UNITCUSTOMERCODE : Loja
CUSTOMERNAME :  Nome
CLASSCODE :  Natureza
ISSUEDATE :  DT Emissao
ORIGINALDUEDATE : Vencto Orig
REALDUEDATE :  Vencto Real
CURRENCY :  Moeda
CURRENCYSYMBOL : Moeda
ORIGINALVALUE :  Vlr. Titulo
ORIGINALCURRENCYVALUE : Vlr. R$
DEDUCTIONSVALUE : Abatimento
DEDUCTIONSVALUE : Sld.Acresc.
INCREASEVALUE :  Sld.Decresc.
BALANCEVALUE :  Saldo
BALANCECURRENCYVALUE : Saldo
BANK :   Portador
HISTORY :  Historico
DELAYINDATES :  Atrasados
DELAYINTERESTRATE : Porc Juros
DELAYINTERESTVALUE : Taxa Perman.

Quando o parâmetro recebido for 2 (campos da movimentação bancária):
REASONOFWRITEOFF : Mot. Baixa
BANK :   Banco
BANKACCOUNT :  Conta
PAIDDATE :  Data Moviment.
CREDITDATE :  Data Dispon.
CURRENCY :  Moeda
CURRENCYSIMBOL : Numerário
VALUEPAID :  Valor Moeda 2
CURRENCYVALUEPAID : Valor Moviment.
HISTORY :  Histórico
WRITEOFFTYPE :  Tp. Valor
TYPEDESCRIPTION : Descrição

* Para incluir campos adicionais (campos não existentes no WebServices), os mesmos devem ser referenciados com o nome do atributo na base de dados.
* E também deve ser configurado o ponto de entrada WsUsrField para que o título da coluna adicional apareça corretamente.

1ª) ParteUser Function PEF102()Local nParam  := Paramixb[1]Local aWebCols	:= {}If nParam == 1	aAdd ( aWebCols, "BILLNUMBER" )	aAdd ( aWebCols, "BILLTYPE" )	aAdd ( aWebCols, "CUSTOMERCODE" )	aAdd ( aWebCols, "CUSTOMERNAME" )	aAdd ( aWebCols, "ORIGINALVALUE" )	// Campos adicionais	aAdd ( aWebCols, "E2_TESTE" )Else	aAdd ( aWebCols, "REASONOFWRITEOFF" )	aAdd ( aWebCols, "BANK" )	aAdd ( aWebCols, "BANKACCOUNT" )	aAdd ( aWebCols, "PAIDDATE" )	aAdd ( aWebCols, "CREDITDATE" )	aAdd ( aWebCols, "CURRENCY" )	aAdd ( aWebCols, "CURRENCYSIMBOL" )	aAdd ( aWebCols, "VALUEPAID" )	aAdd ( aWebCols, "CURRENCYVALUEPAID" )	aAdd ( aWebCols, "HISTORY" )	aAdd ( aWebCols, "WRITEOFFTYPE" )	aAdd ( aWebCols, "TYPEDESCRIPTION" )	// Campos adicionais	aAdd ( aWebCols, "E5_TESTE" )EndIfReturn aWebCols2ª) Parte#INCLUDE "RWMAKE.CH" User Function WsUsrField()Local cAlias := PARAMIXB[1]Local aReturn := {}Do Case	Case cAlias == "SE2"		aAdd( aReturn,"E2_TESTE") 	Case cAlias == "SE5"		aAdd( aReturn,"E5_TESTE")         		End CaseReturn aReturn