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

deu este agora

agora deu este

esta dando este erro, segue o PRG fiz um pequenomarcos.prg pra facilitar marcos.prg

com os espacos em branco?

bom dia theotokos, nao deu certo. ************************* function testa_etiqueta() ************************* sal_lin = 11 sal_col = 4.5 linha = sal_lin coluna = sal_col te_numero = 0 te_nome = space(10) define font memvar->rec_sen ; name "Courier" ; size 10,15 ; bold DEFINE DIALOG oDlg3 FROM 10,15 TO 17,70 ; TITLE "Controle de acesso : "+memvar->te_drive+" Terminal : "+memvar->te_term ; font memvar->rec_sen @ linha,coluna say "NUMERO : " of oDlg3 pixel coluna += sal_col*09 @ linha,coluna get oget var memvar->te_numero pict "9999999999" size sal_col*12,10 of oDlg3 pixel coluna += sal_col*12 @ linha,coluna say "NOME : " of oDlg3 pixel coluna += sal_col*08 @ linha,coluna get oget1 var memvar->te_nome pict "@!" size sal_col*12,10 of oDlg3 pixel valid cont_etique() activate dialog oDlg3 centered Return (.t.) ********************** function cont_etique() ********************** memvar ip_caixa LOCAL cFont39r:=alltrim(memvar->te_drive)+"\LibreBarcode39-Regular.ttf" AddFontResource(cFont39r) memvar->oDlg3:End() if memvar->te_esc_imp = "S" printerSetUp() endif print ip_caixa name " Teste etiqueta codigo de barras" preview **\ print ip_caixa name " Teste etiqueta codigo de barras" if Empty( ip_caixa:hDC ) MsgStop( "Impressora com problemas" ) close return nil endif te_prn_esc = upper(PrnGetName()) define font dl_cx_fo1 name "Calibri" size 12, -12 bold of ip_caixa define font dl_cx_fo2 name "Arial" size 12, -14 bold of ip_caixa define font dl_cx_fo3 name "Arial" size 14, -14 bold of ip_caixa define font dl_cx_fo4 name "Arial Black" size 40, 25 bold of ip_caixa define font dl_cx_fo5 name "Courier New" size 27, -12 bold of ip_caixa define font dl_cx_fo6 name "Arial" size 10, -10 bold of ip_caixa define font cFont39r name "LibreBarcode39" size 60, -70 of ip_caixa define pen dl_caneta1 width 05 color CLR_BLACK sal_lin := ip_caixa:nVertRes() / 66 sal_col := ip_caixa:nHorzRes() / 60 page lin_lis := sal_lin*2 ip_caixa:Say(lin_lis,sal_col*3,"*"+strzero(te_numero,10)+"*",cFont39r,0,CLR_BLACK) lin_lis += sal_lin*20 ip_caixa:Say(lin_lis,sal_col*3,te_nome,dl_cx_fo4,0,CLR_BLACK) endpage endprint Return (.t.) segue como ficou pra sabe se fiz certo, mas nao funcionou

************************* function testa_etiqueta() ************************* sal_lin = 11 sal_col = 4.5 linha = sal_lin coluna = sal_col te_numero = 0 te_nome = space(10) define font memvar->rec_sen ; name "Courier" ; size 10,15 ; bold DEFINE DIALOG oDlg3 FROM 10,15 TO 17,70 ; TITLE "Controle de acesso : "+memvar->te_drive+" Terminal : "+memvar->te_term ; font memvar->rec_sen @ linha,coluna say "NUMERO : " of oDlg3 pixel coluna += sal_col*09 @ linha,coluna get oget var memvar->te_numero pict "9999999999" size sal_col*12,10 of oDlg3 pixel coluna += sal_col*12 @ linha,coluna say "NOME : " of oDlg3 pixel coluna += sal_col*08 @ linha,coluna get oget1 var memvar->te_nome pict "@!" size sal_col*12,10 of oDlg3 pixel valid cont_etique() activate dialog oDlg3 centered Return (.t.) ********************** function cont_etique() ********************** memvar ip_caixa LOCAL cFont39r:=alltrim(memvar->te_drive)+"\Code39r.ttf" AddFontResource(cFont39r) memvar->oDlg3:End() if memvar->te_esc_imp = "S" printerSetUp() endif print ip_caixa name " Teste etiqueta codigo de barras" preview **\ print ip_caixa name " Teste etiqueta codigo de barras" if Empty( ip_caixa:hDC ) MsgStop( "Impressora com problemas" ) close return nil endif te_prn_esc = upper(PrnGetName()) define font dl_cx_fo1 name "Calibri" size 12, -12 bold of ip_caixa define font dl_cx_fo2 name "Arial" size 12, -14 bold of ip_caixa define font dl_cx_fo3 name "Arial" size 14, -14 bold of ip_caixa define font dl_cx_fo4 name "Arial Black" size 40, 25 bold of ip_caixa define font dl_cx_fo5 name "Courier New" size 27, -12 bold of ip_caixa define font dl_cx_fo6 name "Arial" size 10, -10 bold of ip_caixa define font cFont39r name "Code39r" size 60, -70 of ip_caixa define pen dl_caneta1 width 05 color CLR_BLACK sal_lin := ip_caixa:nVertRes() / 66 sal_col := ip_caixa:nHorzRes() / 60 page lin_lis := sal_lin*2 ip_caixa:Say(lin_lis,sal_col*3,"*"+strzero(te_numero,10)+"*",cFont39r,0,CLR_BLACK) lin_lis += sal_lin*20 ip_caixa:Say(lin_lis,sal_col*3,te_nome,dl_cx_fo4,0,CLR_BLACK) endpage endprint Return (.t.) troquei para outra cod39r.ttf, tambem nao funciona, segue ela pra voce ver Code39r.ttf

mas o nome da fonte tem -Regular no nome, se nao colocar nao vai se referenciar a fonte certa

************************* function testa_etiqueta() ************************* sal_lin = 11 sal_col = 4.5 linha = sal_lin coluna = sal_col te_numero = 0 te_nome = space(10) define font memvar->rec_sen ; name "Courier" ; size 10,15 ; bold DEFINE DIALOG oDlg3 FROM 10,15 TO 17,70 ; TITLE "Controle de acesso : "+memvar->te_drive+" Terminal : "+memvar->te_term ; font memvar->rec_sen @ linha,coluna say "NUMERO : " of oDlg3 pixel coluna += sal_col*09 @ linha,coluna get oget var memvar->te_numero pict "9999999999" size sal_col*12,10 of oDlg3 pixel coluna += sal_col*12 @ linha,coluna say "NOME : " of oDlg3 pixel coluna += sal_col*08 @ linha,coluna get oget1 var memvar->te_nome pict "@!" size sal_col*12,10 of oDlg3 pixel valid cont_etique() activate dialog oDlg3 centered Return (.t.) ********************** function cont_etique() ********************** memvar ip_caixa LOCAL cFont39r:=alltrim(memvar->te_drive)+"\libreBarcode39-Regular.ttf" AddFontResource(cFont39r) memvar->oDlg3:End() if memvar->te_esc_imp = "S" printerSetUp() endif print ip_caixa name " Teste etiqueta codigo de barras" preview **\ print ip_caixa name " Teste etiqueta codigo de barras" if Empty( ip_caixa:hDC ) MsgStop( "Impressora com problemas" ) close return nil endif te_prn_esc = upper(PrnGetName()) define font dl_cx_fo1 name "Calibri" size 12, -12 bold of ip_caixa define font dl_cx_fo2 name "Arial" size 12, -14 bold of ip_caixa define font dl_cx_fo3 name "Arial" size 14, -14 bold of ip_caixa define font dl_cx_fo4 name "Arial Black" size 40, 25 bold of ip_caixa define font dl_cx_fo5 name "Courier New" size 27, -12 bold of ip_caixa define font dl_cx_fo6 name "Arial" size 10, -10 bold of ip_caixa define font cFont39r name "LibreBarcode39-Regular" size 60, -70 of ip_caixa define pen dl_caneta1 width 05 color CLR_BLACK sal_lin := ip_caixa:nVertRes() / 66 sal_col := ip_caixa:nHorzRes() / 60 page lin_lis := sal_lin*2 ip_caixa:Say(lin_lis,sal_col*3,"*"+strzero(te_numero,10)+"*",cFont39r,0,CLR_BLACK) lin_lis += sal_lin*20 ip_caixa:Say(lin_lis,sal_col*3,te_nome,dl_cx_fo4,0,CLR_BLACK) endpage endprint Return (.t.) segue tambem a TTF que nao funciona pra voce ver LibreBarcode39-Regular.ttf

procurei em testprn.prg e nao achei nenhum "set font" la? onde estou errando?

elas aparecem, porem nao funcionam