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: | ||||||||
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: |
| ||||||||
Devolución: |
|
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
