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