MAMP2

March 20

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

@ 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

March 20

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

var_t1 = ReadVar()
msginfo(var_t1,"passou 1")

Return (.t.)

só pra mostrar o nome da variavel e nao vem nada

March 19

jmsilva esta dando erro na compilacao nesta linha, tem alguma coisa errada?

oGetAtual:oGet:Name,oGetAtual:oGet:Buffer

March 19

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

March 19

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?

February 2

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

February 2

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

existe?

September 21, 2023

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

September 21, 2023

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

August 31, 2023

existe opcao de imprimir um BMP usando a Tdosprn?

April 4, 2023

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.

April 4, 2023

oi kapiaba, como diz gonzaguinha, "sou um eterno aprendiz"

desculpa as vezes chuto de "canela"

acho que é porque sou "Sao Paulino" kkkkk

April 4, 2023

deu certo theotokos, so fiquei confuso

com uma coisa, porque com os espacos em branco funcionou?

tem alguma explicacao pra isto?

April 4, 2023

estes anexos foram por engano, desculpa

April 4, 2023

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

April 4, 2023

image.png.459b244b1620f3d2e543575c4cda65c2.png

deu este agora

April 4, 2023

image.png.b819464ee737041d97c1be097bb8de7c.png

agora deu este

April 4, 2023

image.png.77e2b52c6e4e359de9da7415e69b70d7.png

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

marcos.prg

April 4, 2023

com os espacos em branco?

April 4, 2023

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

April 3, 2023

*************************
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

April 3, 2023

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

April 3, 2023

*************************
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

April 3, 2023

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

onde estou errando?

April 3, 2023

elas aparecem, porem nao funcionam

Sign In

MAMP2

Posts

Joined

Last visited

Days Won

Content Type

Downloads

Profiles

Forums

Posts posted by MAMP2

como obter o retorno do nome da variavel que esta sendo usado no GET

como obter o retorno do nome da variavel que esta sendo usado no GET

funcao pra retornar a variavel que esta sendo usada no GET

como obter o retorno do nome da variavel que esta sendo usado no GET

como obter o retorno do nome da variavel que esta sendo usado no GET

funcao pra retornar a variavel que esta sendo usada no GET

funcao pra retornar a variavel que esta sendo usada no GET

busca JSOn por POSTMAN

busca JSOn por POSTMAN

impresao BMP em tdosprn

impressao com as fontes de codigo de barras

impressao com as fontes de codigo de barras

impressao com as fontes de codigo de barras

impressao com as fontes de codigo de barras

impressao com as fontes de codigo de barras

impressao com as fontes de codigo de barras

impressao com as fontes de codigo de barras

impressao com as fontes de codigo de barras

impressao com as fontes de codigo de barras

impressao com as fontes de codigo de barras

impressao com as fontes de codigo de barras

impressao com as fontes de codigo de barras

impressao com as fontes de codigo de barras

impressao com as fontes de codigo de barras

impressao com as fontes de codigo de barras

Browse

Activity