Nesse vídeo demonstraremos a utilização da função RetX3Box, que serve para buscar as informações de um combobox (conforme SX3) e retornar em um array.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe423
Retorna um array com as opções de um ComboBox conforme a SX3
@type Function
@author Atilio
@since 29/03/2023
@obs
Função RetX3Box
Parâmetros
Recebe o nome do campo
Retorno
Retorna um Array com as opções do combo
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe423()
Local aArea := FWGetArea()
Local cCampo := ""
Local aOpcoes := {}
//Exemplo 1, combo box com opções comuns
cCampo := "A1_TIPO"
aOpcoes := RetX3Box(cCampo)
FWAlertInfo("O conteúdo do combo tem " + cValToChar(Len(aOpcoes)) + " opções", "Teste 1 RetX3Box")
//Exemplo 2, combo box que tenha # no conteúdo
cCampo := "F4_CREDACU"
aOpcoes := RetX3Box(cCampo)
FWAlertInfo("O conteúdo do combo tem " + cValToChar(Len(aOpcoes)) + " opções", "Teste 2 RetX3Box")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
