Punto de entrada: PEF064 - Visualización de campos en el encabezado e ítems en el portal del proveedor


Alcances:

Microsiga Protheus 8.11 , Microsiga Protheus 10, Microsiga Protheus 12

Versiones:

Microsiga Protheus 8.11 , Microsiga Protheus 10, Microsiga Protheus 12

Compatible Países:

Todos

Sistemas operativos:

Todos

Compatible a las bases de datos:

Todos

Idiomas:

Portugués (Brasil) , Portugués (Portugal) , Español , Inglés


Descripción:

El punto de entrada: PEF064 permite agregar campos en el encabezado de la cotización y en los ítems de la cotización, 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.

Programa fuente

PWSF060.PRW

Sintaxis

PEF064 - Visualización de campos en el encabezado en el portal del proveedor ( [ aTipo ] ) --> aRet

Parámetros:


Nombre



Tipo



Descripción



Estándar



Obligatorio



Referencia



aTipo



Array of Record



Indica el tipo de array que se está utilizando:1 = aCols del Encabezado2 = aCols de los ítems












Respuesta

aRet

(array_of_record)

Array con los campos que se devolverán para formar el aCols.

Observaciones

**** Atención: al incluir o modificar el aCols del encabezado o de los ítems de la cotización, el aCols devuelto debe contener todos los campos

       que deben aparecer en el Browse, incluso los que son estándar del sistema, según el ejemplo da documentación. ***

**** Campos que no existen en el WebServices, se deben mencionar en el aCols con el nombre del atributo en la base de datos

       se realiza un tratamiento adicional en el punto de entrada: WsUsrField con la finalidad de que aparezca correctamente  el título de la columna *****


Ejemplos:

1a) Parte

#INCLUDE "RWMAKE.CH"
User Function PEF064()
Local cParam := PARAMIXB[1]
Local aReturn := {}

Do Case

Case cParam == 1

// Encabezado

//Campos estándar

    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_OBS" )

Case cParam == 2

//Ítems

//Campos estándar

    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_OBS")

    aAdd( aReturn,"C8_PRAZO")

    aAdd( aReturn,"C8_VALFRE")

End Case

Return aReturn





Mais informações: PCOM01004 - Funcionamiento del valor de flete en el Portal del Proveedor