Boa tarde Pessoal,
Estou com problemas para fazer a leitura da SX1. Preciso chamar a função Pergunte para coletar os parâmetros do usuário e preciso pegar alguns campos na SX1 para verificar como tratarei os parâmetros coletados. Tentei efetuar a leitura usando primeiramente a classe FWSX1Util, porém esta sempre me retorna a posição vazia para o array que recebe o resultado da consulta. Posteriormente tentei usando a função OpenSXs, mas quando verifico a abertura da área com o comando Select sempre retorna FALSO. Abaixo, seguem os dois trechos de código que usei pra cada método: FWSX1Util:
Local oObj := FWSX1Util():New()
Local aPergunte
oObj:AddGroup(cPerg) // cPerg := "DATA "(ja conferi o conteúdo da variavel)
oObj:SearchGroup()
aPergunte := oObj:GetGroup(cPerg)OpenSXs:
OpenSXs(NIL, NIL, NIL, NIL, cFilAnt, cAlias, "SX1", NIL, .F.)
lOpen := Select(cAlias) > 0
If (!lOpen)
lOpenDic := .F.
Return
EndIfAlgum de vocês teve problema na abertura da SX1? A SX3 eu consigo abrir normalmente com o OpenSXs Alguém teria um outro método de fazer acesso ao dicionário de dados??
Ivan, qual a necessidade de verificar os campos da SX1? No que a função Pergunte não lhe atende?
— Daniel Mendes 20 de Aug de 2019