PE. GVFLDC5 - PGV Portal Gestão de Vendas

Produtos da Linha Protheus Sigacom - Compras - Backoffice
, ,
1

Este ponto de entrada é chamado pela API de integração de campos personalizados, para informar quais campos adicionais da tabela SC5, personalizados ou não, sejam considerados pelo PGV além dos padrões

https://tdninterno.totvs.com/pages/releaseview.action?pageId=754944053

https://tdn.totvs.com/display/public/PROT/DR+-+Campos+Personalizados

//----------------------------------------------------

Estou com problema para buscar combo box de um campo personalizado C5_XCDCAMP dentro do ponto de entrada GVFLDC5 quando eu publico no portal de vendas o campo fica em branco e não vem como combo

O detalhe é que quando adiciona no configurador as perguntas do combo ele aparece, so que no configurador tem limitação de caracteres. Existe uma forma de fazer com que o ponto de entrada busque as informações desse campo e coloque como combo box no portal de vendas?

INCLUDE "PROTHEUS.CH"

//----------------------------------------------------------- //{Protheus.doc} GVFLDC5 Este ponto de entrada é chamado pela API de integração de campos personalizados, para informar quais campos adicionais da tabela SC5, personalizados ou não, sejam considerados pelo PGV além dos padrões @type function @author Squad CRM/Faturamento @since 20/04/2023 @version 1.0 // //-----------------------------------------------------------

User Function GVFLDC5() as array

Local aSC5 := {} as array

aAdd(aSC5, "C5_XDTPROG") aAdd(aSC5, "C5_XCERTFI") aAdd(aSC5, "C5_XCDCAMP") aAdd(aSC5, "C5_XCDPONT")

Return aSC5

2 curtidas
2

@edsonnovaes estava lendo a documentação, e o PGV não vai mostrar os campos com consulta padrão “F3” ou com lista de opções “ComboBox”

3

Olá tudo bem?

Obrigado pelo feedback.

O problema foi resolvido após a implementação de 3 fontes.

#Include ‘Protheus.ch’
#Include ‘Topconn.ch’

User Function SUO()

Local aArea := FwGetArea()
Local cSC5 := “”
Local cAlias := GetNextAlias()
Local nI := 1

BeginSQL alias cAlias
  Select 
    SUO.UO_CODCAMP, SUO.UO_DESC
  From 
   %table:SUO% SUO
  Where	
    SUO.%notDel% 
EndSQL

(cAlias)->(DbGoTop())

While (cAlias)->(!Eof())
  cSC5 += Alltrim(str(nI))+"="+Alltrim((cAlias)->UO_CODCAMP)+"-"+Alltrim((cAlias)->(UO_DESC))

  nI++
  (cAlias)->(DbSkip())

  If (cAlias)->(!Eof())
    cSC5 += ";"
  Endif

Enddo

FwRestArea(aArea)

Return cSC5

#Include ‘Protheus.ch’
#Include ‘Topconn.ch’

User Function Opcoes()

Local aArea := FwGetArea()
Local cSC5 := “”
Local cAlias := GetNextAlias()
Local nI := 1

BeginSQL alias cAlias
  Select 
    SZH.ZH_COD
  From 
   %table:SZH% SZH
  Where	
    SZH.%notDel% 
EndSQL

(cAlias)->(DbGoTop())

While (cAlias)->(!Eof())
  cSC5 += Alltrim(Str(nI))+"="+Alltrim((cAlias)->(ZH_COD))

  nI++

  (cAlias)->(DbSkip())

  If (cAlias)->(!Eof())
    cSC5 += ";"
  Endif

Enddo

FwRestArea(aArea)

Return cSC5

#INCLUDE “PROTHEUS.CH”

//-----------------------------------------------------------
/*/{Protheus.doc} GVFLDC5
Este ponto de entrada é chamado pela API de integração
de campos personalizados, para informar quais campos
adicionais da tabela SC5, personalizados ou não, sejam
considerados pelo PGV além dos padrões

/*/
//-----------------------------------------------------------
User Function GVFLDC5()
Local aSC5 := {}

aAdd(aSC5, “C5_XDTPROG”)
aAdd(aSC5, “C5_XCERTFI”)
aAdd(aSC5, “C5_XCDCAMP”)
aAdd(aSC5, “C5_XCDPONT”)

Return aSC5