Criar TGet Dinanico

Bom dia,

Pessoal alguem já precisou criar TGet Dinamico para serem usados em tela customizada.

Estou tentando criar vários TGet conforme o relatorio que o cliente vai selecionar em uma listagem.

Até consegui fazer a criação dos TGet, porém quando tento usar dar o erro abaixo.

ERROR: RMS_UPDATESERVERVALUE Internal Error (N) - Unexpected ValueType in file D:\bamboo\xml-data\build-dir\TP11-OF19310-TECXWIN64\interface\tget.cpp at line 159

A criação do TGet estou fazendo assim

TGet_Dinamico.png

A tela depois de criada

TGet_Dinamico2.png

Eu precisa montar os TGet, levando em consideração as informações abaixo

cType - indica qual tipo de TGet: c - Caractere, D - data, n - numerico e l - logico

cCmpF3 - indica a consulta para o F3

cCmpMask - Indica a picture do campo

bCmpVld - Indica a validação do TGet. Exemplo: Positivo()

cCmpDsc - Indica a descrição do Titulo do TGet

nCmpTam - Indica o tamanho da resposta do TGet

vNmObj - indica a variavel criada para ser usada no tget

cNome - Indica o objeto criado para TGet.

compartilhar
  • Essas operações com o operador & estão funcionando corretamente? Não ficaria mais fácil usar um array para guardar esses objetos criados? Exemplo:

    AAdd(aObjetos, {cNomeObj, oObjeto})

    Everton Alves   07 de Apr de 2021
  • Everton... A criação com o & está gerando os TGet dinamicos, pois cada relatorio que o cliente escolher, ele tem que destruir os que estão criados e criar novos para atender o relatorio posicionado. Nesse processo que mencionou em criar um array de objetos como ele iria criar os TGets e mostrar na tela customizada. Veja que na imagem 2 ele criou os TGet e mostrou na tela, porém quando uso deu erro. Será que tem algum exemplo dessa forma que mencionou?

    Ricardo Mendes   07 de Apr de 2021
  1. 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.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. 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.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

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