Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Espanhol , Inglês |
Finalidade: Ponto de entrada utilizado para definir quais campos devem ser exibidos na tela de detalhamento dos títulos a pagar no portal do fornecedor.Localização: Web Function PWSF022 - Tela de detalhes dos Titulos a Pagar.Em que Ponto: Ao clicar no código do título para exibir o detalhamento do mesmo.
PWSF020.PRW
PEF022 - Exibição de Campos na Tela de Detalhamento dos Títulos a Pagar ( ) --> aRetorno
-
aRetorno(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 descrito abaixo:
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.
- 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 PEF022()Local aWebCols := {}aAdd ( aWebCols, "BILLNUMBER" )aAdd ( aWebCols, "BILLTYPE" )aAdd ( aWebCols, "CUSTOMERCODE" )aAdd ( aWebCols, "CUSTOMERNAME" )aAdd ( aWebCols, "ORIGINALVALUE" )// Campos adicionaisaAdd ( aWebCols, "E2_TESTE" )Return aWebCols2ª) Parte#INCLUDE "RWMAKE.CH" User Function WsUsrField()Local aReturn := {}aAdd( aReturn,"E2_TESTE") Return aReturn