Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: PEF074 - Exibição de Campos na Tela de Inclusão do Processo de Entrega
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Finalidade: Permite definir  quais campos devem ser exibidos na tela de inclusão do processo de entrega.Este ponto de entrada é executado três vezes. Uma vez para definir os campos do cabeçalho (SF1), onde recebe o parâmetro 1, uma vez para definir os campos de detalhe (SD1), onde recebe o parâmetro 4 e novamente para definir os campos de totalização, onde recebe o parâmetro 5.Localização : Web Function PWSF074.Em que Ponto : Ao clicar em incluir na rotina de Documento de Entrega.
Programa Fonte 
PWSF070
Sintaxe

PEF074 - Exibição de Campos na Tela de Inclusão do Processo de Entrega ( [ Paramixb ] ) --> aWebCols

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Paramixb Numérico 1 = Indica que o ponto está sendo executado na montagem dos campos de cabeçalho.4 = Indica que o ponto está sendo executado na montagem dos campos de detalhamento.5 = Indica que o ponto está sendo executado na montagem dos campos de totais.
Retorno
    aWebCols(array_of_record)
  • Array contendo a identificação dos campos que se deseja exibir no processo de entrega.
Observações

O retorno do Ponto de Entrada deve ser um array com os nomes de identificação dos campos que é reconhecida pelo web service correspondente. Devem ser exibidos na tela, conforme abaixo:

Quando parâmetro recebido for 1 ( Campos do Cabeçalho):
INVOICENUMBER: Número
SERIALNUMBER: Série Docto
DOCUMENTTYPE: Form. Prop.
INVOICETYPE: E/S
REGISTERDATE: Dt.Digitacao
INVOICEDATE: DT Emissao
DELIVERYDATE: DT Emissao


Quando o parâmetro recebido for 4 (Campos do Detalhe):

PRODUCTCODE: Produto
DESCRIPTIONPRODUCT: Descrição
MEASUREUNIT: Unidade de medida
QUANTITY: Quantidade
UNITPRICE: Preco Unitário
DISCOUNTPERCENT: Desc. Item
TOTALVALUE: Valor Total

Quando o parâmetro recebido for 5 (Campos Totalizadores):

TOTALVALUE: Valor Total
INSURANCEVALUE: Seguro
EXPENSESVALUE: Despesas
FREIGHTVALUE: Frete

Exemplos 
User Function PEF074()Local nParam  := Paramixb[1]Local aWebCols	:= {}If nParam == 1	aAdd( aWebCols, "INVOICENUMBER" )	aAdd( aWebCols, "SERIALNUMBER" )	aAdd( aWebCols, { "DOCUMENTTYPE",  "D" } )	aAdd( aWebCols, { "INVOICETYPE",   "D" } )	aAdd( aWebCols, "REGISTERDATE" )	aAdd( aWebCols, "INVOICEDATE" )	aAdd( aWebCols, "DELIVERYDATE" )ElseIf nparam == 4	aAdd( aWebCols, { "PRODUCTCODE","N",{ "GETCATALOG",{ "CPRODUCTCODE", "CPRODUCTCODE" }},{ "CPRODUCTCODE", "CDESCRIPTION" }, 13 } )	aAdd( aWebCols, { "DESCRIPTIONPRODUCT",	"N", 0, .F. } )	aAdd( aWebCols, { "MEASUREUNIT",		"N", 0, .F. } )	aAdd( aWebCols, { "QUANTITY",			"N", 3 } )	aAdd( aWebCols, { "UNITPRICE",			"N", 9, .T. } )	aAdd( aWebCols, { "DISCOUNTPERCENT",	"N", 3, .F. } )	aAdd( aWebCols, { "TOTALVALUE",			"N", 0, .T. } )Else	aAdd( aWebCols, "TOTALVALUE" )	aAdd( aWebCols, "INSURANCEVALUE" )	aAdd( aWebCols, "EXPENSESVALUE" )	aAdd( aWebCols, "FREIGHTVALUE" )EndIfReturn aWebCols