SX1 - Uso NÃO PERMITIDO de atribuição do metadados

Coloquei alguns fontes no code analysis, e um deles me retornou esse erro: SX1 - Uso NÃO PERMITIDO de atribuição do metadados

Como posso reescrever esse trecho para sanar esse erro? Segue um trecho do código para análise:

Static Function AjustaSX1()

Local aArea     := { Alias(), IndexOrd() }
Local nTamSX1   := Len(SX1->X1_GRUPO)

dbSelectArea("SX1")
dbSetOrder(1)

If dbSeek(PadR("OMS010",nTamSX1)+"03")
   RecLock("SX1",.F.)
   dbDelete()
   MsUnLock()
EndIf

If dbSeek(PadR("OMS010",nTamSX1)+"02")
    If Empty(X1_VALID)
    RecLock("SX1",.F.)
    X1_VALID := "Vazio().Or.(A093Prod() .And. OMSA010Grd())"
    MsUnLock()
    EndIf
EndIf
If dbSeek(PadR("OMS011",nTamSX1)+"13")
    If SX1->X1_PYME = "N"
    RecLock("SX1",.F.)
    SX1->X1_PYME := "S"
    MsUnLock()
    EndIf
EndIf

dbSelectArea( aArea[1] )
dbSetOrder( aArea[2] )

Return Nil

criado 23 de Jan de 2023
atilyx
37 pontos
editado 23 de Jan de 2023

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!

2 respostas

up 1 down
Dayanne, não é mais permitido esse tipo de manipulação dos dicionários. A recomendação é fazer as manutenções diretamente no configurador, ou gerar um pacote via Gestão de Ambientes (https://tdn.totvs.com/pages/releaseview.action?pageId=528471986).
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 23 de Jan de 2023
  Cirilo Rocha
  1670 pontos
- 0
  
  Muito obrigada!!
  — atilyx 23 de Jan de 2023
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
up 0 down
Bom dia

Tenho um problema similar. DbSelectArea("SX1") DbSetOrder(1) DbGotop()

If MsSeek(cPerg)

Memowrite ("c:\spool\Query.txt" ,cQuery )

//FWPreparedStatement - Define a consulta e os parâmetros oStatement:SetQuery(cQuery)

While cPerg = SX1->X1_GRUPO .and. !EoF()

If SX1->X1_TIPO == 'D' oStatement:SetString( nAtual,DtoS(&(rtrim((SX1->X1_VAR01))))) // oStatement:SetDate(nAtual,&( (cAliasSX1)->X1_VAR01 ) ) ElseIf SX1->X1_TIPO == 'N' oStatement:SetString( nAtual,cValToChar( &(Rtrim((SX1->X1_VAR01)) ) )) // oStatement:setNumeric( nAtual, &( (cAliasSX1)->X1_VAR01 ) ) Else oStatement:SetString( nAtual, &(Rtrim(SX1->X1_VAR01)) ) EndIf nAtual++ SX1->(DbSkip()) Enddo

//Recupera a consulta já com os parâmetros injetados cQuery := oStatement:GetFixQuery()

EndIf SX1->(DbCloseArea())

Alguem já viu isso e saberia como sair desse embrolio?
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 25 de Jan de 2023
  Jose de Aguiar Ferreira Real Neto
  358 pontos
- 0
  
  José posta essa questão em um tópico do fórum que eu lhe mando a resposta. Não tenho como colocar no comentário aqui.
  — Cirilo Rocha 25 de Jan de 2023
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 codeanalysis sonarcube sonarqube totvs advpl fonte ou faça a sua própria pergunta.