PEF053 - Punto de entrada para incluir campos personalizados (Portal del proveedor)

Ponto de Entrada

Línea de producto:

Protheus

Segmento:

Manufactura

Módulo:

SIGACOM - Compras

Descripción:

El punto de entrada PEF053 permite agregar campos personalizados en la pantalla de visualización de los pedidos de compra en el portal del proveedor. El array se debe montar con base en la estructura del WebServices y con los campos que serán agregados por el usuario.

Atención:
Al incluir o modificar el array del encabezado o de los ítems del pedido, el array devuelto debe contener todos los campos que deben aparecer en el Browse, incluso los que son estándar del sistema, según el ejemplo de la documentación.
Los campos que no existen en el WebServices deben estar mencionados en el array con el nombre del atributo en la base de datos, y debe estar realizado el tratamiento adicional en el punto de entrada WsUsrField, para que el título de la columna aparezca correctamente.

Ubicación:

El punto de entrada se ejecutará al hacer clic en el número del pedido de compras para visualizarlo, en el menú "Pedidos" en el portal del proveedor.

Eventos:

Portal del proveedor

Programa fuente:

PWSF050.PRW - Visualización de los pedidos de compra en el portal del proveedor

Función:

PWSF053 - Pantalla para detalles de los pedidos

Parámetros:

Nombre	Tipo	Descripción	Obligatorio
nTipo	Numérico	Número de la opción que indica el momento en que el punto de entrada se está ejecutando. Opciones: 1 - En el montaje del encabezado del pedido de compra 2 - En el montaje de los ítems del pedido de compra	Sí

Devolución:

Nombre	Tipo	Descripción	Obligatorio
aReturn	Array	Array con la estructura de el WebServices y con los campos personalizados que aparecerán en la pantalla del pedido de compra.	Sí

Ejemplo:

1ª parte:

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

User Function PEF053()

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

Do Case
Case nTipo == 1 // Encabezado de la propuesta
// Campos estándar del 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 // Ítems de la propuesta
// Campos estándar del 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

Atalhos

Árvore de páginas

Ponto de Entrada