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: | ||||||||
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: |
| ||||||||
Retorno: |
|
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