Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Linha de Produto:  Protheus
Segmento: Manufatura
Módulo:  SIGACOM - Compras

Descrição:

O ponto de entrada PEF053 permite adicionar campos customizados na tela de visualização dos pedidos de compra 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.

Atenção:
Ao incluir ou alterar o array do cabeçalho ou dos itens do pedido, o array retornado deverá conter todos os campos que devem aparecer no Browse, mesmo os que são padrão do sistema, conforme exemplo da documentação.
Campos não existentes no WebServices devem ser referenciados no array com o nome do atributo na base de dados e efetuado tratamento adicional no ponto de entrada WsUsrField a fim de aparecer corretamente o título da coluna.
 

Localização:

O Ponto de Entrada será executado ao clicar no número do pedido de compras para visualiza-lo, no menu "Pedidos" no Portal do Fornecedor.

Eventos:

Portal do Fornecedor

Programa Fonte:

PWSF050.PRW - Visualização dos pedidos de compra no Portal do Fornecedor

Função:

 PWSF053 - Tela para detalhes dos Pedidos

 Parâmetros:
NomeTipoDescriçãoObrigatório
nTipoNumérico

Número da opção que indica o momento em que o ponto de entrada está sendo executado.
Opções:
1 - Na montagem do cabeçalho do pedido de compra
2 - Na montagem dos itens do pedido de compra 

Sim

Retorno:

Nome

Tipo

Descrição

Obrigatório

 aReturn

 Array

Array com a estrutura do WebServices e com os campos customizados que serão exibidos na tela de pedido de compra.

 Sim

Exemplo:

1ª parte:

#Include 'Protheus.ch'
#Include "RwMake.ch"

User Function PEF053()

Local aReturn := {}
Local nTipo := PARAMIXB[1]

Do Case
Case nTipo == 1 // Cabecalho da Proposta
// Campos padrao do WebService
aAdd( aReturn, { "PURCHASEORDERID", "N"} )
aAdd( aReturn, { "SUPPLIER", "N" } )
aAdd( aReturn, { "REGISTERDATE", "N" } )
aAdd( aReturn, { "CONTACT", "N" } )
aAdd( aReturn, { "CURRENCY", "N" } )
aAdd( aReturn, { "CURRENCYRATE", "N" } )
aAdd( aReturn, { "DISCOUNTINCASCADE1", "N" } )
aAdd( aReturn, { "DISCOUNTINCASCADE2", "N" } )
aAdd( aReturn, { "DISCOUNTINCASCADE3", "N" } )
aAdd( aReturn, { "PURCHASEORDERSTATUS", "N" } )
// Campo incluido
aAdd( aReturn, { "C7_TESTE", "N" } )
Case nTipo == 2 // Itens da Proposta
// Campos padrao do WebService
aAdd( aReturn, {"SEQUENTIALID", "N"} )
aAdd( aReturn, {"PRODUCTCODE", "N"} )
aAdd( aReturn, {"DESCRIPTIONPRODUCT", "N"} )
aAdd( aReturn, {"MEASUREUNIT", "N"} )
aAdd( aReturn, {"QUANTITY", "N"} )
aAdd( aReturn, {"QUANTITYDELIVERED", "N"} )
aAdd( aReturn, {"UNITPRICE", "N"} )
aAdd( aReturn, {"TOTALVALUE", "N"} )
aAdd( aReturn, {"DISCOUNTPERCENT", "N"} )
aAdd( aReturn, {"DISCOUNTVALUE", "N"} )
aAdd( aReturn, {"PAYMENTPLANCODE", "N"} )
aAdd( aReturn, {"DELIVERYDATE", "N"} )
aAdd( aReturn, {"NOTES", "N"} )
aAdd( aReturn, {"EXPENSESVALUE", "N"} )
aAdd( aReturn, {"INSURANCEVALUE", "N"} )
aAdd( aReturn, {"FREIGHTVALUE", "N"} )
aAdd( aReturn, {"QUOTEID", "N"} )
// Campo incluido
aAdd( aReturn, {"C7_TESTE", "N"} )
EndCase

Return aReturn


2ª parte:

#Include 'Protheus.ch'

#Include "RwMake.ch"

User Function WSUSRFIELD()

Local cTabela := PARAMIXB[1]
Local aReturn := {}

Do Case
Case cTabela == "SC7"
aAdd( aReturn,"C7_TESTE")
EndCase

Return aReturn