MAMP2

define dialog memvar->dl_det_nf3 from 00,01 TO 37,120 ; title memvar->te_cab2 ; font memvar->rec_for @ linha,00 say "it " of dl_det_nf3 pixel @ linha,coluna+(sal_col*3) say "Descricao" of dl_det_nf3 pixel @ linha,coluna+(sal_col*45) say "Largura" of dl_det_nf3 pixel @ linha,coluna+(sal_col*55) say "Comprim" of dl_det_nf3 pixel @ linha,coluna+(sal_col*65) say "altura." of dl_det_nf3 pixel @ linha,coluna+(sal_col*75) say "Peso " of dl_det_nf3 pixel @ linha,coluna+(sal_col*85) say "Sem Peso" of dl_det_nf3 pixel linha += sal_lin coluna = sal_col for i = 1 to 10 te_desc := "desc_"+strzero(i,2) te_larg := "larg_"+strzero(i,2) te_comp := "comp_"+strzero(i,2) te_altu := "altu_"+strzero(i,2) te_peso := "peso_"+strzero(i,2) te_tem := "tem_"+strzero(i,2) te_l_tl := "lintel_"+strzero(i,2) te_c_tl := "lintel_"+strzero(i,2) &te_desc := space(50) &te_larg := 0 &te_comp := 0 &te_altu := 0 &te_peso := i &te_tem := .f. &te_l_tl := "oget"+strzero(i,2) @ linha,00 say strzero(i,2) size sal_col*03,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*03) get &te_desc picture "@!" size sal_col*40,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*45) get &te_larg picture "@E 9999.999" size sal_col*09,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*55) get &te_comp picture "@E 9999.999" size sal_col*09,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*65) get &te_altu picture "@E 9999.999" size sal_col*09,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*75) get &te_l_tl var &te_peso picture "@E 9999.999" size sal_col*09,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*85) checkbox &te_tem prompt "Sem Peso" size sal_col*10,sal_lin of dl_det_nf3 pixel linha += sal_lin*2 next memvar->lin_mar = linha+sal_lin*23 memvar->col_mar = coluna*155 @ linha,coluna+(sal_col*15) button "&Finaliza" of dl_det_nf3 pixel size sal_col*10,10 action grav_ped() dl_det_nf3:bkeydown := {|nkey| iif ( nkey == VK_F5, busca_peso(),)} activate dialog dl_det_nf3 centered Return nil ********************* function busca_peso() ********************* var_t1 = ReadVar() msginfo(var_t1,"passou 1") Return (.t.) segue

for i = 1 to 10 te_desc := "desc_"+strzero(i,2) te_larg := "larg_"+strzero(i,2) te_comp := "comp_"+strzero(i,2) te_altu := "altu_"+strzero(i,2) te_peso := "peso_"+strzero(i,2) te_tem := "tem_"+strzero(i,2) te_l_tl := "lintel_"+strzero(i,2) te_c_tl := "lintel_"+strzero(i,2) &te_desc := space(50) &te_larg := 0 &te_comp := 0 &te_altu := 0 &te_peso := i &te_tem := .f. &te_l_tl := "oget"+strzero(i,2) @ linha,00 say strzero(i,2) size sal_col*03,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*03) get &te_desc picture "@!" size sal_col*40,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*45) get &te_larg picture "@E 9999.999" size sal_col*09,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*55) get &te_comp picture "@E 9999.999" size sal_col*09,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*65) get &te_altu picture "@E 9999.999" size sal_col*09,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*75) get &te_l_tl var &te_peso picture "@E 9999.999" size sal_col*09,10 of dl_det_nf3 pixel @ linha,coluna+(sal_col*85) checkbox &te_tem prompt "Sem Peso" size sal_col*10,sal_lin of dl_det_nf3 pixel linha += sal_lin*2 next ********************* function busca_peso() ********************* var_t1 = ReadVar() msginfo(var_t1,"passou 1") Return (.t.) só pra mostrar o nome da variavel e nao vem nada

jmsilva esta dando erro na compilacao nesta linha, tem alguma coisa errada? oGetAtual:oGet:Name,oGetAtual:oGet:Buffer

teria que ser alguma coisa que funcionasse como o ReadVar(), pois o ReadVar() nao esta funcionando.

tenho uma tela com 10 gets, e previso saber no momento que o usuario teclar o F5 saber qual o nome da variavel que o Get esta no momento pra alimentar aquele get especifico, tem como fazer isto?

ou seja, quando cursor estiver no get correspondente uma funcao que mostre qual o nome da variavel que esta sendo "getada" nequele lugar onde o cursor esta

Estou procurando uma funcao que me de o nome da variavel que esta sendo usada no Get existe?

curl --request GET \ --url 'https://api-hmg.lecupon.com/client/v2/businesses/123123/authorized_users' \ --header 'X-ClientEmployee-Email: seuemail@email.com' \ --header 'X-ClientEmployee-Token: auth_token' \ --header 'accept: application/json' estou com esta demanda pra fazer busca por JSON e trazer um token alguem conhece ou sabe como ajudar, nao sei nem por onde vai com colocamos isto no FIVEWIN, alguem conhece? é um pessoal da LECUPOM www.lecupon.com

curl --request GET \ --url 'https://api-hmg.lecupon.com/client/v2/businesses/123123/authorized_users' \ --header 'X-ClientEmployee-Email: seuemail@email.com' \ --header 'X-ClientEmployee-Token: auth_token' \ --header 'accept: application/json' bom dia pessoal estou com esta demanda pra fazer a chamada por API deste tipo, nao sei nnem por onde vai, alguem ja viu isto, esta é a API pra buscar um token pra usar em outras API

existe opcao de imprimir um BMP usando a Tdosprn?

boa tarde gilmer, as outras TTFs, nao funcionam assim estes espacos em branco no nome me fugiu a compreensao mas tudo certo, funcionando, nao tenho questionamentos, é apenas uma curiosidade.

oi kapiaba, como diz gonzaguinha, "sou um eterno aprendiz" desculpa as vezes chuto de "canela" acho que é porque sou "Sao Paulino" kkkkk

deu certo theotokos, so fiquei confuso com uma coisa, porque com os espacos em branco funcionou? tem alguma explicacao pra isto?

estes anexos foram por engano, desculpa

deu certo theotokos, a unica coisa que eu fico "confuso" é porque com estes espacos em branco funciona? só nao entendi isto, voce sabe porque? marcos.prg