flpcrz

Boa tarde pessoal ! Estou com um problema q vejo como um erro, e nao sei o q fazer... Estou montando um relatorio muito simples no vPrinter, porém as letras aparecem como uns rabiscos no Preview, e qdo eu clico nas setinhas de cima pra esticar, ela fica enorme, nao sei o q fazer, ja q estou usando tamanho de fontes padrões meus, ai vai o dódigo, quem sabe batendo o olho vcs achem o erro, pq pra mim nao vejo nada: nLin := 00.00 PRINT oPrn NAME "Impressão de Etiquetas" PREVIEW oPrn:nFator := 4 nDiv := (oPrn:nLogPixelX()/300) //Pega divisor por causa da Laser e Jato DEFINE PEN oPen2 Width nDiv Of oPrn DEFINE PEN oPen3 Width nDiv+1 Of oPrn DEFINE FONT oFoImp0 NAME "Times New Roman" SIZE 0,-(18/nDiv) OF oPrn BOLD DEFINE FONT oFoImp1 NAME "Times New Roman" SIZE 0,-(7/nDiv) OF oPrn DEFINE FONT oFoImp2 NAME "Times New Roman" SIZE 0,-(9/nDiv) OF oPrn DEFINE FONT oFoImp3 NAME "Times New Roman" SIZE 0,-(9/nDiv) OF oPrn BOLD DEFINE FONT oFoImp4 NAME "Times New Roman" SIZE 0,-(8/nDiv) OF oPrn BOLD DEFINE FONT oFoImp5 NAME "Times New Roman" SIZE 0,-(12/nDiv) OF oPrn BOLD DEFINE FONT oFoImp6 NAME "Times New Roman" SIZE 0,-(12/nDiv) OF oPrn DEFINE FONT oFoImp7 NAME "Times New Roman" SIZE 0,-(10/nDiv) OF oPrn DEFINE FONT oFoImp8 NAME "Times New Roman" SIZE 0,-(10/nDiv) OF oPrn BOLD DEFINE FONT oFoImp9 NAME "c39hrp24dhtt" SIZE 0,-(11/nDiv) OF oPrn PAGE FOR ii = 1 TO wQtd_Etiq oPrn:VSay (nLin+02.00,01.00,nLin+03.00,02.00,{DTOC(wDta_Movi) + SPACE(10) + wPrz_Vali,2,3,1,1,1},oFoImp5) oPrn:VSay (nLin+04.00,01.00,nLin+05.00,02.00,{TRANSFORM(wPor_Caix,"999")+ " " + wUni_Caix + wGra_Prod,2,3,1,1,1},oFoImp5) oPrn:VSay (nLin+00.00,01.00,nLin+00.00,01.00,{wTip_Prod+wFor_Prod,2,3,1,1,1},oFoImp5) oPrn:VSay (nLin+00.00,01.00,nLin+00.00,01.00,{TRANSFORM(wNum_Lote,IIF(EMPTY(SUBSTR(wNum_Lote,4,1)),"999","@r 999/!")),2,3,1,1,1},oFoImp5) IF EMPTY(wCod_Bosh) oPrn:VSay (nLin+00.00,00.00,nLin+00.00,00.00,{wCod_Barr,2,3,1,1,1},oFoImp9) ELSE oPrn:VSay (nLin+00.00,00.00,nLin+00.00,00.00,{ALLTRIM(wCod_Bosh),2,3,1,1,1},oFoImp5) ENDIF nLin+=7 NEXT ENDPAGE ENDPRINT Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

Boa tarde pessoal ! Estou com um problema q vejo como um erro, e nao sei o q fazer... Estou montando um relatorio muito simples no vPrinter, porém as letras aparecem como uns rabiscos no Preview, e qdo eu clico nas setinhas de cima pra esticar, ela fica enorme, nao sei o q fazer, ja q estou usando tamanho de fontes padrões meus, ai vai o dódigo, quem sabe batendo o olho vcs achem o erro, pq pra mim nao vejo nada: nLin := 00.00 PRINT oPrn NAME "Impressão de Etiquetas" PREVIEW oPrn:nFator := 4 nDiv := (oPrn:nLogPixelX()/300) //Pega divisor por causa da Laser e Jato DEFINE PEN oPen2 Width nDiv Of oPrn DEFINE PEN oPen3 Width nDiv+1 Of oPrn DEFINE FONT oFoImp0 NAME "Times New Roman" SIZE 0,-(18/nDiv) OF oPrn BOLD DEFINE FONT oFoImp1 NAME "Times New Roman" SIZE 0,-(7/nDiv) OF oPrn DEFINE FONT oFoImp2 NAME "Times New Roman" SIZE 0,-(9/nDiv) OF oPrn DEFINE FONT oFoImp3 NAME "Times New Roman" SIZE 0,-(9/nDiv) OF oPrn BOLD DEFINE FONT oFoImp4 NAME "Times New Roman" SIZE 0,-(8/nDiv) OF oPrn BOLD DEFINE FONT oFoImp5 NAME "Times New Roman" SIZE 0,-(12/nDiv) OF oPrn BOLD DEFINE FONT oFoImp6 NAME "Times New Roman" SIZE 0,-(12/nDiv) OF oPrn DEFINE FONT oFoImp7 NAME "Times New Roman" SIZE 0,-(10/nDiv) OF oPrn DEFINE FONT oFoImp8 NAME "Times New Roman" SIZE 0,-(10/nDiv) OF oPrn BOLD DEFINE FONT oFoImp9 NAME "c39hrp24dhtt" SIZE 0,-(11/nDiv) OF oPrn PAGE FOR ii = 1 TO wQtd_Etiq oPrn:VSay (nLin+02.00,01.00,nLin+03.00,02.00,{DTOC(wDta_Movi) + SPACE(10) + wPrz_Vali,2,3,1,1,1},oFoImp5) oPrn:VSay (nLin+04.00,01.00,nLin+05.00,02.00,{TRANSFORM(wPor_Caix,"999")+ " " + wUni_Caix + wGra_Prod,2,3,1,1,1},oFoImp5) oPrn:VSay (nLin+00.00,01.00,nLin+00.00,01.00,{wTip_Prod+wFor_Prod,2,3,1,1,1},oFoImp5) oPrn:VSay (nLin+00.00,01.00,nLin+00.00,01.00,{TRANSFORM(wNum_Lote,IIF(EMPTY(SUBSTR(wNum_Lote,4,1)),"999","@r 999/!")),2,3,1,1,1},oFoImp5) IF EMPTY(wCod_Bosh) oPrn:VSay (nLin+00.00,00.00,nLin+00.00,00.00,{wCod_Barr,2,3,1,1,1},oFoImp9) ELSE oPrn:VSay (nLin+00.00,00.00,nLin+00.00,00.00,{ALLTRIM(wCod_Bosh),2,3,1,1,1},oFoImp5) ENDIF nLin+=7 NEXT ENDPAGE ENDPRINT Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

Jose Carlos não chegou nada ainda, só confirmando o email flpcrz@hotmail.com, mais uma vez obrigado... Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

obrigado por ter mandado, não fiz, será que pode ser isso?, vou verificar e depois eu reporto, mais uma vez obrigado... Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

olá, será que alguem tem esta função monthcal para usar com o pellesc? e que possa me passar?, eu baixei no site indicado mais não está funcionando... Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

vlw a todos, mas na minha maquina não funciona, eu percebo que o botão da uma "mexida" mas não acontece nada, só não deixa entrar, que já é bom isso, então vou testar em outra maquina para ver o que acontece e reporto para vcs, obrigado a todos. Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

olá, vlw pela resposta, mas ainda não deu certo e estive olhando no calendar.prg que eu baixei e não tem esse bselect e dá erro qdo entro na função, será que não poderia me mandar esse seu prg para eu compilar junto, pois acho que não é o mesmo que o meu... Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

olá José Carlos, consegui compilar e colocar no meu projeto, agora no que eu baixei não veio exemplo de como utilizar, como pegar a data selecionada, já procurei na pagina mas não achei nada, ou esse calendário é só par mostrar??? Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

e ai pessoal fiz as recomendações e nada... Viol o seu é em 32 bits com xharbour?, pois conversando com um amigo ele disse que o dele que é clipper/fw não precisa disso, será que é algo na compilação que deixa abrir outro? Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

consegui baixar mas não consegui compilar alguem tem alguma dica? Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

- Vc está rodando o sistema sobre qual plataforma? WINXPSP2 - Dá pra enviar um pedaço do código pra gente analizar? SET(4,"dd/mm/yyyy") SET DELETED ON SET EPOCH TO 1930 SET EXCLUSIVE OFF SET 3DLOOK ON IF(IsExeRunning("SIG.EXE") ) MsgStop("O programa já se encontra aberto","Atenção!!!") Return(.f.) EndIf DEFINE ICON oIcoSig RESOURCE "ASIG" DEFINE CURSOR oCurSig RESOURCE "CUR" DEFINE FONT oFntSig1 NAME "Tahoma" SIZE 0,-14 ITALIC DEFINE FONT oFntMn1 NAME "Verdana" SIZE 0,IF(oInfo:lTamMenu,-16,-14) BOLD ITALIC DEFINE WINDOW oWSig FROM 0,10 TO 500,650 PIXEL TITLE cTitulo ICON oIcoSig MENU CriaMenu() ... ... .. .. ACTIVATE WINDOW oWSig MAXIMIZED ON PAINT (Textura(oWSig,{nRgb(212,208,200),nRgb(255,255,255)}),SayBitmaps(oWSig)) (GlobalFree(),ResAllFree(),FreeResources(),SysRefresh()) RETURN(NIL) Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

opa, vlw pessoal, mas não deu certo Ricardo Marques, não funcionou o set mutiple Ricardo funcionou mas da mesma forma que IsExeRunning() ainda continuo sem enteder???? não tem como subir a tela novamente? Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

flw beto, foi o que eu fiz IF(IsExeRunning("meuprogram.exe") ) MsgStop("O programa já se encontra aberto","Atenção!!!") Return(.f.) EndIf agora não estou conseguindo fazer com que mostre a tela novamenete e nem que o botão na barra de tarefas fique piscando, tem como? Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev Editado por - flpcrz on 17/01/2007 12:16:10

pessoal, descobri que o programa pode abrir mais de uma cópia no mesmo micro como travar para que abra somente uma vez... Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

pessoal, descobri que o programa pode abrir mais de uma cópia no mesmo micro como travar para que abra somente uma vez... Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

ola rcluft, seria interessante vc mudar seu perfil colocando quais ferramentas utiliza para compilação para que todos o auxilie melhor, qto a impressão são os mesmo comandos clipper basicos chr(14) chr(27)+chr(50) essim por diante em dicas + dicas existe um arquivo com todos esses comandos, faça uma busca na pagina principal que vc encontrará muitos itens de discussão sobre o assunto... Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

olá, vlw pela dica mais não quer entrar neste link, por acaso vc teria esta classe? vlw Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

Pessoal boa tarde!!! achei uma tela de calendário no pellesc e não encontrei nenhuma referencia para utlizar no fwh, alguem tem idéia se eu posso utilizar? Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

Pessoal boa tarde!!! achei uma tela de calendário no pellesc e não encontrei nenhuma referencia para utlizar no fwh, alguem tem idéia se eu posso utilizar? Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

Boa Tarde pessoal... Seguinte eu utilizo o TcBrowse, e ele apresenta , o q na minha opinião, um erro... Qdo estou focado nele e clico na seta pra direita, a ultima coluna se estica e nao para mais, como poderia deixa-la trava? Abraços Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

Boa Tarde pessoal... Seguinte eu utilizo o TcBrowse, e ele apresenta , o q na minha opinião, um erro... Qdo estou focado nele e clico na seta pra direita, a ultima coluna se estica e nao para mais, como poderia deixa-la trava? Abraços Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

Boa tarde Shark, estou com o mesmo problema q vc aqui, conseguiu alguma ajuda? Abraços Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

Ok Beto vou testar, obrigado Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

Vagner, saiu o erro mas de vez aparecer o Bitmap apareu um numero... Confiri os nomes e esta tudo certo, teria q aparecer o Bitmap mesmo... Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

UP Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev