PEF065 - Alteração e Inclusão de campos no Cabeçalho no Portal do fornecedor

O ponto de Entrada: PEF065 permite adicionar campos no Cabeçalho da cotação e nos Itens da cotação, no Portal do Fornecedor.O array deverá ser montado com base na estrutura do WebServices e com os campos que serão adicionados pelo usuário.

PWSF060.PRW

PEF065 - Alteração e Inclusão de campos no Cabeçalho no Portal do fornecedor ( [ aTipo ] ) --> aRet

(array_of_record)
• Array com os campos que serão retornados para formar o Acols.

**** Atenção: ao incluir ou alterar o acols do cabeçalho ou dos itens da cotação, o acols retornado, deverá conter todos os campos

       que devem aparecer no Browse, mesmo os que são padrões do sistema, conforme exemplo da documentação. ***

**** Campos não existentes no WebServices, devem ser referenciados no aCols com o nome do atributo na base de dados

       e efetuado tratamento adcional no Ponto de Entrada: WsUsrField a fim de aparecer corretamente  o título da coluna *****

1a) Parte#INCLUDE "RWMAKE.CH" User Function PEF065()Local cParam  := PARAMIXB[1]Local aReturn := {}Do Case   Case cParam == 1 // Cabecalho           //Campos padroes       aAdd( aReturn, { "QUOTEID",		"D" } )       aAdd( aReturn, { "PROPOSALID",	"D" } )       aAdd( aReturn, { "SUPPLIER",		"D" } )       aAdd( aReturn, { "REGISTERDATE",	"D" } )       aAdd( aReturn,   "CONTACT"  )       aAdd( aReturn, { "PAYMENTPLANCODE","N", {"BRWPAYMENTPLAN", ;                                                 {"CPAYMENTPLANCODE", "CPAYMENTPLANCODE" } ;                                                 }, ;                                                 {"CPAYMENTPLANCODE", "CDESCRIPTIONPAYMENTPLAN" } } )       //Campo Adicional        aAdd( aReturn, "C8_MSG" )            Case cParam == 2 //Itens             //Campos padroes        aAdd( aReturn, { "PROPOSALID",	"N", 0, .F. } )        aAdd( aReturn, { "SEQUENTIALID",	"N", 0, .F. } )        aAdd( aReturn, { "PRODUCTCODE",	"N", 0, .F. } )        aAdd( aReturn, { "DESCRIPTIONPRODUCT", "N", 0, .F. } )        aAdd( aReturn, { "MEASUREUNIT",	"N", 2, .F. } )        aAdd( aReturn, { "QUANTITY",		"N", 3 } )        aAdd( aReturn, { "UNITPRICE",	"N", 9, .T. } )        aAdd( aReturn, { "TAXRATE",		"N", 5 } )        aAdd( aReturn, { "DISCOUNTPERCENT",	"N", 3 } )          aAdd( aReturn, { "TOTALVALUE",	"N", 0, .T. } )  		        //Campo Adicional        aAdd( aReturn,  "C8_PRAZO")                 aAdd( aReturn,  "C8_VALFRE")        EndCaseReturn aReturn==============================================================================2a) Parte#INCLUDE "RWMAKE.CH" User Function WsUsrField()Local cAlias := PARAMIXB[1]Local aReturn := {}Do Case   Case cAlias == "SC8"        aAdd( aReturn,"C8_PRAZO")               aAdd( aReturn,"C8_VALFRE")      End CaseReturn aReturn