OpenSxs CodeAnalisys

Pessoal, bom dia! Já vi aqui no forum que muita gente está trocando a abertura das SXS pela função OpenSXs.

Fiz a mesma coisa. O sistema está rodando certinho na Release 17, mas quando subo meu fonte no CodeAnalisys ele está criticando.

Existe alguma outra forma do CodeAnalisys não criticar? Ele dá o erro dizendo que não é pode ter acesso direto ao dicionário de Dados.

Vocês já passaram por isso? Tem solução? Eu acredito que o CodeAnalisys está lendo o texto ao invés de ver as funções.

Desde já, agradeço.

criado 31 de Oct de 2019
Raphael Neves Pinheiro
269 pontos
editado 31 de Oct de 2019

1

Boa tarde Raphael, a função OpenSXS abre os dicionários, mas isso não evita necessariamente o acesso direto aos mesmos. Quais são os erros? Diversas classes com métodos estáticos estão sendo criados afim de evitar esses acessos diretos, sendo que você pode entrar em contato com a TOTVS e solicitar uma melhoria, um novo método etc.
— Daniel Mendes 31 de Oct de 2019

0

Olá Daniel, boa tarde! Neste caso que estou usando é para criar uma tabela temporária. Antes era feito da seguinte forma: DbSelectArea("SX3") SX3->(MsSeek("SE2")) While !SX3->(Eof()) .and. X3_ARQUIVO == "SE2" //Adicionava as informações no Array EndDo //Era feito um DbUserArea para criar a tabela temporária Agora está ficando: OpenSxs(,,,,cEmp,"SX3TMP","SX3",,.F.) If Select("SX3TMP") > 0 SX3TMP->(DbSetFilter({|| Alltrim(X3_ARQUIVO) == "SE2"})) While !SX3TMP->(Eof()) //Adiciona campos no Array SX3TMP->(DbSkip()) EndDo Endif //Usa FwTemporaryTable
— Raphael Neves Pinheiro 31 de Oct de 2019

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
Daniel Mendes me deu uma dica que abriu minha mente para uma ideia.. Então estou fazendo da seguinte forma:
```
aCampos := {}
aTabela := {}
aTamanho := {}

//Capturo o nome de todos os campos desprezando os campos virtuais
aCampos := FWSX3Util():GetAllFields( "SE2", .F. )

//Faço uma leitura e capturo o tamanho, decimal e tipo
For nX := 1 to Len(aCampos)
     aTamanho := FwTamSx3(aCampos[nX])
     IF aTamanho[3] <> "M" //Se não for campo Memo
          aAdd(aTabela,{aCampos[nX],aTamanho[3],aTamanho[1],aTamanho[2]})
     Endif
Next nX

oTemporary := FwTemporaryTable("XSE2",aTabela)

//Tabela tem a necessidade de criação de índices
//Para o SIX, usei a OpenSxs
```
Com este exemplo acima, consegui compilar e não deu erro no programa. Agora vou subir no CodeAnalisys e ver se dá algum erro.
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 31 de Oct de 2019
  Raphael Neves Pinheiro
  269 pontos
- editado 31 de Oct de 2019
- 0
  
  Boa tarde Rafael, você consegue me dar uma força com esta tópico ? https://devforum.totvs.com.br/1053-uso-da-sx3-dbselectarea
  — Clístenis Batista 28 de Nov de 2019
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

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