Se alguma pergunta ou resposta lhe foi útil, não deixe de dar seu voto positivo!

Acessar conteúdo SX6

Boa tarde!

Tenho um programa que faz a leitura dos valores dos campos da SX6, desde X6_Fil, X6_TIPO, X6_CONTEUD, etc.

Como o Codeanalysis critica agora o acesso ao SX6 e a classe FWSX6Util não existe um método que retorno esses campos com os valores, existe uma medida contorno para esse caso?

Exemplo

::cType := SX6->X6_TIPO ::cDscType := ::GetType(SX6->X6_TIPO) ::cValue := SX6->X6_CONTEUD::cDesc := AllTrim(SX6->X6_DESCRIC) + Space(1) + AllTrim(SX6->X6_DESC1) + Space(1) + AllTrim(SX6->X6_DESC2) ::nRecNo := SX6->(RecNo())

criado 21 de Dec de 2022
Henander Barbosa
2 pontos
editado 22 de Dec de 2022

0

Olá, acho que ocorreu algum problema no anexo que você cita. Qual a necessidade de listar os valores da SX6 assim, como filial, o tipo e o conteúdo? São valores que normalmente só o Configurador apresenta.
— Daniel Mendes 21 de Dec de 2022

Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

up 0 down
Bom dia Henander,

Tentar usar como exemplo o código abaixo, mas trocando para SX6.

Fico à disposição.
```
    Local cAlias    := GetNextAlias()

    OpenSXs( Nil, Nil, Nil, Nil, cEmpAnt, cAlias, "SX3", Nil, .F. )

    If Select( cAlias ) > 0
        (cAlias)->( DbSetOrder(2) )
        (cAlias)->( DbGoTop() )

        If (cAlias)->( DbSeek( Trim( cCampo ) ) )
            aRet := { cVar,;
                      aPixel,;
                      (cAlias)->&( "X3_TITULO" ),;
                      (cAlias)->&( "X3_PICTURE" ),;
                      (cAlias)->&( "X3_VALID" ),;
                      (cAlias)->&( "X3_F3" ),;
                      IIF( (cAlias)->&( "X3_VISUAL" ) == "V" .Or. cCampo $ "W0_MOEDA", .F., .T. ) }
        EndIf

         (cAlias)->( DbCloseArea() )
     EndIf
```
Atenciosamente,

Marlos Rangel.
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 22 de Dec de 2022
  Marlos Rangel da Silva
  6 pontos
- editado 22 de Dec de 2022
- 0
  
  Marlos eu pensei em utilizar essa função OpenSXs, mas e pegar o conteúdo com &, porém me informaram que a totvs irá bloquear o acesso as informações fazendo dessa forma.
  — Henander Barbosa 27 de Dec de 2022
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

Acessar conteúdo SX6

Comentário

1 resposta

Comentário

Não é a resposta que estava procurando? Procure outras perguntas com as tags sx6 ou faça a sua própria pergunta.