Imprimi Página | Fechar janela

Criação de Tela

Impresso de: Helpfacil - Portal do conhecimento
Nome do Forum: ADVPL
Descrição do Forum: Dúvidas sobre a programação em ADVPL
URL:http://www.helpfacil.com.br/display_topic_threads.asp?ForumID=1&TopicID=43344
Data da Impressão: quinta-feira, 18 de abril de 2024 at 14:07


Topico: Criação de Tela

Postado por: LUCASLOTT
Assunto: Criação de Tela
Data Postagem: sexta-feira, 31 de julho de 2020 at 12:08

Boa tarde!

Estou começando agora em ADVPL, na verdade esse é nosso terceiro mês com o Protheus em produção, estou criando uma tela para atualizar a transportadora e o redespacho, para um controle interno de fretes e entregas, fiz o campo que irá receber o codigo da transportadora, ele tem uma consulta padrão, porém fica o ? e não a "lupa" alguem saberia como colocar a "lupa", segue trecho do fonte.
    oSayTran := tSay():New(035,005,{||"Transp."},oDlg,,,,,,.T.,CLR_BLACK,,030,010)
    oGetTran := tGet():New(033,030,{|u| if(PCount()>0,cTransp:=u,cTransp)}, oDlg,030,010,"@!",{|o|},,,,,,.T.,,,,,,,,,"SA4","cTransp")//cod transp.

Lucas Lott


Respostas:

Postado Por: EMERSON.EN
Data Postagem: sexta-feira, 31 de julho de 2020 at 15:32

faltou indicar o parâmetro que ‘cria‘ a lupa (último no comando abaixo).

oGetTran := tGet():New(033,030,{|u| if(PCount()>0,cTransp:=u      ,cTransp)},oDlg,030,010,"@!",{|o|                             },        ,        ,,,,.T., ,,,   ,   ,,   ,   ,"SA4","cTransp",,,,.T.)//cod transp.





Postado Por: EMERSON.EN
Data Postagem: sexta-feira, 31 de julho de 2020 at 15:33

faltou indicar o parâmetro que 'cria' a lupa (último no comando abaixo).

oGetTran := tGet():New(033,030,{|u| if(PCount()>0, cTransp:=u, cTransp)}, oDlg, 030, 010, "@!" ,,,,,,,.T.,,,,,,,,,"SA4","cTransp",,,,.T.)//cod transp.






Postado Por: LUCASLOTT
Data Postagem: sexta-feira, 31 de julho de 2020 at 17:55

Emerson, boa tarde, obrigado pela resposta, mais infelizmente não funcionou!

Lucas Lott



Postado Por: LUCASLOTT
Data Postagem: sexta-feira, 31 de julho de 2020 at 18:04

Emerson, desculpe, deu certo!
Esqueci de fazer a troca de uma variavel, erro de Ctrl C - Ctrl V


Lucas Lott




Imprimir Página | Fechar Janela