Alterar dados no MsNewGetDados():New()

Bom dia, tenho a seguinte linha de código:

oGetDados:= MsNewGetDados():New( 012, 002, 120, 265, nOpc, cLinOk, cTudoOk, cIniCpos, aAlter, nFreeze, nMax, cFieldOk, cSuperDel, cDelOk, oDlg, aHeader, aCols ) Onde, o aAlter recebe os campo que podem ser alterados. Então alimente o array da seguinte forma: aAdd(aAlter,aCOLS[nlinha,7])

Provavelmente compreendi mal a função do aAlter no MsNewGetDados():New(). Entendi que os campos que estão nele podem ser alterados e atribuídos valores no painel. Não consigo alterar o campo Alguém pode me ajudar?

advpl

criado 20 de Aug de 2019
Miriam Félix
102 pontos
editado 20 de Aug 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!

2 respostas

up 0 down
Bom dia Miriam,

Não sei ao certo como esta todo seu código e se esta seguindo algum exemplo, mas eu tive muita dificuldade para conseguir montar um MsNewGetDados() na primeira vez, então eu sempre sigo este exemplo: Exemplo

Porem seguindo este exemplo eu tive outra dificuldade, montar o aHeader, tanto que até abri uma pergunta aqui no devforum sobre, e a melhor logica para preencher que eu achei foi a seguinte

1 -> SX3->X3_TITULO

2 -> SX3->X3_CAMPO

3 -> SX3->X3_PICTURE

4 -> SX3->X3_TAMANHO

5 -> SX3->X3_DECIMAL

6 -> SX3->X3_VALID

7 -> SX3->X3_USADO

8 -> SX3->X3_TIPO

9 -> SX3->X3_F3

10 -> SX3->X3_CBOX

Que tirei do seguinte link: Exemplo

Espero que ajude, boa sorte!
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 20 de Aug de 2019
  Patrick Zerbinatti
  601 pontos
- 0
  
  O exemplo ajudou muito obrigada Patrick
  — Miriam Félix 26 de Aug 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
up 0 down
Bom dia, Miriam!

Verifique o seu quarto parâmetro, onde está passando o nOpc. Geralmente ele determina qual ação pode ser realizada nos campos informados. Quando é um grid que permite a inclusão/alteração e exclusão, costumo fazer conforme o exemplo abaixo, informando as constantes GD_INSERT + GD_UPDATE + GD_DELETE. Se for só alteração, informo GD_UPDATE + GD_DELETE, e por aí vai.
```
oNewGet := MsNewGetDados():New(0,0,0,0,GD_INSERT + GD_UPDATE + GD_DELETE,'U_FATA31LOK()','AllwaysTrue','',{'ZTH_CODROT'},,,'U_FATA31FOK()',,'AllwaysTrue',oPanelRot,aHeader,aCols)
```
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 20 de Aug de 2019
  Giordano Trabach Xavier
  4066 pontos
- 0
  
  sim meu nOpc esta, nOpc:= GD_UPDATE + GD_INSERT + GD_DELETE No TDN a sintaxe MsNewGetDados(): New ( [ nTop], [ nLeft], [ nBottom], [ nRight ], [ nStyle], [ cLinhaOk], [ cTudoOk], [ cIniCpos], [ aAlter], [ nFreeze], [ nMax], [ cFieldOk], [ cSuperDel], [ cDelOk], [ oWnd], [ aPartHeader], [ aParCols], [ uChange], [ cTela], [ aColsSize] ), no seu exemplo o aAlter esta com o nome do campo {'ZTH_CODROT'}
  — Miriam Félix 20 de Aug de 2019
- 0
  
  Boa tarde, Miriam! No meu caso, estou editando apenas um campo que é o ZTH_CODROT. Não vi a necessidade de criar o array aAlter nesse caso, então informei o array diretamente na chamada da função. Pode ser feito também da seguinte forma: {'ZTH_CODROT','ZTH_DSCROT'} e por aí vai.
  — Giordano Trabach Xavier 20 de Aug de 2019
- 0
  
  Verifique se não está passando uma matriz pelo vetor aAlter, pois nesse caso o MsNewGetDados pode estar se perdendo, e não permitindo a edição do campo. Verifique também se o campo permite edição via SIGACFG.
  — Giordano Trabach Xavier 20 de Aug 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

Alterar dados no MsNewGetDados():New()

Comentário

2 respostas

Comentário

Comentário

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