PEF083 - Adicionar campos no Documento de Entrada no Portal do fornecedor

Localização.: Function PWSF083 - Tela de visualização dos Documentos de Entrada no Portal do fornecedo.r
Finalidade...: Ponto de entrada utilizado para adicionar campos no cabeçalho e nos itens do "Documento de Entrada" no Portal do fornecedor.

PWSF080.PRW

PEF083 - Adicionar campos no Documento de Entrada no Portal do fornecedor ( [ PARAMIXB[1] ] ) --> aWebCols

aWebCols(array_of_record)
• Array com os campos para formar cabeçalho e os itens da tela

Importante:
- Para o funcionamento correto do ponto de entrada, os campos que aparecem no exemplo não devem ser removidos
- Já os campos adicionais podem ser inseridos e removidos do ponto de entrada
- Os campos não existentes no WebServices(campos adicionais), devem ser referenciados com o nome do atributo na base de dados
- Deve-se efetuar o tratamento adcional no Ponto de Entrada: WsUsrField a fim de aparecer corretamente  o título da coluna
 . 

1ª) Parte#INCLUDE "RWMAKE.CH" User Function PEF083()Local cParam 	:= PARAMIXB[1]Local aWebCols	:= {}Do Case	Case cParam == 1               		aAdd ( aWebCols, "INVOICENUMBER" )		aAdd ( aWebCols, "SERIALNUMBER" )		aAdd ( aWebCols, "INVOICEDATE" )		aAdd ( aWebCols, "REGISTERDATE" )		aAdd ( aWebCols, "EXPENSESVALUE" )		aAdd ( aWebCols, "INSURANCEVALUE" )		aAdd ( aWebCols, "REIGHTVALUE" )		aAdd ( aWebCols, "TOTALVALUE" )    	//..Campos Adicionais     		aAdd ( aWebCols, "F1_TESTE" )                 				Case cParam == 2 		aAdd ( aWebCols,"SEQUENTIALID")		aAdd ( aWebCols,"PRODUCTCODE")		aAdd ( aWebCols,"DESCRIPTIONPRODUCT" )		aAdd ( aWebCols,"MEASUREUNIT")		aAdd ( aWebCols,"QUANTITY")		aAdd ( aWebCols,"UNITPRICE")		aAdd ( aWebCols,"TOTALVALUE")		aAdd ( aWebCols,"DISCOUNTPERCENT")		aAdd ( aWebCols,"DISCOUNTVALUE")		aAdd ( aWebCols,"EXPENSESVALUE")		aAdd ( aWebCols,"INSURANCEVALUE")		aAdd ( aWebCols,"FREIGHTVALUE")		    	//..Campos Adicionais     		aAdd ( aWebCols, "D1_TESTE" )   EndCaseReturn aWebCols2ª) Parte#INCLUDE "RWMAKE.CH" User Function WsUsrField()Local cAlias := PARAMIXB[1]Local aReturn := {}Do Case    Case cAlias == "SF1"      aAdd( aReturn,"F1_TESTE")        		   Case cAlias == "SD1"      aAdd( aReturn,"D1_TESTE")         		  End CaseReturn aReturn