import.css=/download/attachments/327912/newLayout.css

Ponto-de-Entrada: PEF064 - Visualização de campos no Cabeçalhoe Itens  no Portal do fornecedor


Abrangências:Microsiga Protheus 8.11 , Microsiga Protheus 10, Microsiga Protheus 12
Versões:Microsiga Protheus 8.11 , Microsiga Protheus 10, Microsiga Protheus 12
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português (Brasil) , Português (Portugal) , Espanhol , Inglês


Descrição:
O ponto de Entrada: PEF064 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.
Programa Fonte
PWSF060.PRW
Sintaxe

PEF064 - Visualização de campos no Cabeçalho no Portal do fornecedor ( [ aTipo ] ) --> aRet

Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência

aTipo

Array of Record

Indica o Tipo de array que está sendo utilizado:1 = ACols do Cabeçalho2 = Acols dos Itens










Retorno
aRet
    (array_of_record)
  • Array com os campos que serão retornados para formar o Acols.
Observações

**** 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 *****


Exemplos:


1a) Parte

#INCLUDE "RWMAKE.CH"
User Function PEF064()
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")

EndCase

Return 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 Case

Return aReturn