1

Criei um VBA que mostra uma lista de fornecedores e não consigo obter o item selecionado após o F4.

Public Sub ListaFornecedores()
    Dim strSql As StdBEStringBuilder

    Set strSql = New StdBEStringBuilder

    strSql.Append ("SELECT Fornecedor, Nome FROM Fornecedores")
    PSO.Listas.GetF4SQL "Fornecedores", strSql.Value, "Fornecedor, Nome"

End Sub

Alguém sabe como retornamos o Item selecionado?

1 Resposta 1

1

Tens de associar uma variavél ao resultado da função. Neste caso vai devolver o Nome e Fornecedor separado por espaço.

Public Sub ListaFornecedores()
    Dim strSql As StdBEStringBuilder
    Dim strResultado as String

    Set strSql = New StdBEStringBuilder

    strSql.Append ("SELECT Fornecedor, Nome FROM Fornecedores")
    strResultado = PSO.Listas.GetF4SQL("Fornecedores", strSql.Value, "Fornecedor, Nome")

End Sub
1
  • Funcionou! Obrigado
    – acamiloMoz
    10/08/2018 às 5:30

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .