Ponto de Entrada
Linha Línea de | Produtoproducto: | Protheus |
Segmento: | Manufatura Manufactura |
Módulo: | SIGACOM - Compras | Descrição
Descripción: | O ponto El punto de entrada PEF041 permite | adicionar campos customizados na tela de visualização dos dados cadastrais do Fornecedor 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.
Obs.: É imprescindível a utilização do ponto de entrada WSUSRFIEL, para adicionar os campos.
Link documentação do PE: WSUSRFIELD - Reconhece os campos fora do padrão no sistema
Localização: | O Ponto de Entrada será executado ao em genérico, dados cadastrais |
Eventos: | Portal do Fornecedor |
Programa Fonte: | PWSF040.PRW - Visualização dos dados cadastrais do Fornecedor |
Função: | PWSF040 - Tela dados cadastrais |
Parâmetros: | Nome | Tipo | Descrição | Obrigatório |
---|
nTipo | Numérico | Número da opção que indica o momento em que o ponto de entrada está sendo executado. Opções: 1 - Na montagem dados cadastrais 2 - Na montagem dos dados endereço comercial | 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 |
|
agregar campos personalizados en la pantalla de visualización de los datos de registro del proveedor 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. Obs.: Es imprescindible utilizar el punto de entrada WSUSRFIEL, para agregar los campos. Enlace documentación del PE: WSUSRFIELD - Reconoce los campos fuera del estándar en el sistema |
Ubicación: | El punto de entrada se ejecutará en el genérico, datos de registro |
Eventos: | Portal del proveedor |
Programa fuente: | PWSF040.PRW - Visualización de los datos de registro del proveedor |
Función: | PWSF040 - Pantalla de datos de registro |
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 de los datos de registro 2 - En el montaje de los datos dirección comercial | Sí |
|
Respuesta: | Nombre | Tipo | Descripción | Obligatorio | aReturn | Array | Array con la estructura del WebServices y con los campos personalizados que aparecerán en la pantalla del pedido de compra. | Sí |
|
EjemploExemplo:
1ª parte:
#Include 'Protheus.ch'
#Include "RwMake.ch"
User Function PEF041()
Local aWebCols := {}
Local nTipo := PARAMIXB[1]
Do case
Case nTipo == 1
aAdd( aWebCols, { "SUPPLIERCODE" , "D" } )
aAdd( aWebCols, { "UNITSUPPLIERCODE" , "D" } )
aAdd( aWebCols, "NAME" )
aAdd( aWebCols, "NICKNAME" )
aAdd( aWebCols, { "FEDERALID" , "D" } )
aAdd( aWebCols, { "STATEID" , "D" } )
aAdd( aWebCols, { "DISTRICTID" , "D" } )
aAdd( aWebCols, "HOMEPAGE" )
aAdd( aWebCols, "EMAIL" )
aAdd( aWebCols, "A2_BANCO" ) //CAMPO INCLUSO
aAdd( aWebCols, "A2_AGENCIA") //CAMPO INCLUSO
aAdd( aWebCols, "A2_DVAGE") //CAMPO INCLUSO
aAdd( aWebCols, "A2_NUMCON") //CAMPO INCLUSO
Case nTipo == 2
aAdd( aWebCols, "ADDRESS" )
aAdd( aWebCols, "ADDRESSNUMBER" )
aAdd( aWebCols, "DISTRICT" )
aAdd( aWebCols, { "STATE", "N", { "GETUF", ;
{ "CSTATE", "CCODE" };
}, ;
{ "CCODE", "CDESCRIPTION" } } )
aAdd( aWebCols, "ZIPCODE" )
aAdd( aWebCols, "ZONE" )
Endcase
2ª parte:
#INCLUDE "RWMAKE.CH"
#INCLUDE "PROTHEUS.CH"
#INCLUDE "APWEBEX.CH"
User Function WsUsrField()
Local cAlias := PARAMIXB[1]
Local aReturn := {}
Do Case
Case cAlias == "SA2"
aAdd( aReturn,"A2_BANCO")
aAdd( aReturn,"A2_AGENCIA")
aAdd( aReturn,"A2_DVAGE")
aAdd( aReturn,"A2_NUMCON")
End Case
Return aReturn