Clipper On Line • Ver Tópico - Exemplos tudo-em-um

Exemplos tudo-em-um

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Exemplos tudo-em-um

Mensagempor rubens » 12 Mar 2016 15:55

José Quintas

Onde eu baixo o allinone mais atualizado?

Obrigado
Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1522
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 75 vezes
Mens.Curtidas: 100 vezes

Exemplos tudo-em-um

Mensagempor JoséQuintas » 12 Mar 2016 16:36

José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13817
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 848 vezes

Exemplos tudo-em-um

Mensagempor lugab » 18 Jun 2017 22:08

Boa noite, Quintas, help me...

A linha #require "hbhpdf" , no "Ze_PDFClass.prg" ta dando erro na compilação, e eu to compilando com a lib "hbhpdf.lib" linkada.
Fiz alguma besteira, eu sei, só me diga como consertá-la...
(to usando Hb30 + gtwvg.lib + hbhpdf.lib bcc55 )
D:\HB30\bin\harbour.exe ZE_PDFCLASS.prg -iD:\HB30\include;D:\borland\bcc
55\include;D:\minigui\include -m -n -p
Harbour 3.0.0 (Rev. 16951)
Copyright (c) 1999-2011, http://harbour-project.org/
Compiling 'ZE_PDFCLASS.prg' and generating preprocessed output to 'ZE_PDFCLASS.p
po'...
ZE_PDFCLASS.prg(4) Error F0032  Invalid name follows #
200
** error 1 ** deleting ZE_PDFCLASS.c


Trecho do programa
* ZPDF - PDF Class
*----------------------------------------------------------------

#require "hbhpdf"
#include "hbclass.ch"
#include "inkey.ch"

#define PDF_PORTRAIT  1
#define PDF_LANDSCAPE 2
#define PDF_TXT       3
lugab
lugab
Colaborador

Colaborador
 
Mensagens: 862
Data de registro: 19 Mai 2009 15:58
Curtiu: 126 vezes
Mens.Curtidas: 37 vezes

Exemplos tudo-em-um

Mensagempor lugab » 21 Set 2017 04:06

Ola, Quintas..

Precisei baixar o allinone de novo, mas o link ta quebrado, vc pode repostar ?

https://github.com/JoseQuintas/AllInOne

Grato
lugab
lugab
Colaborador

Colaborador
 
Mensagens: 862
Data de registro: 19 Mai 2009 15:58
Curtiu: 126 vezes
Mens.Curtidas: 37 vezes

Exemplos tudo-em-um

Mensagempor JoséQuintas » 21 Set 2017 08:41

Pra não ter versão desatualizada, agora é direto do meu aplicativo.
Tem a de pdf.

https://github.com/JoseQuintas/JoseQuintas/blob/master/source/ze_pdfclass.prg

que vai ter chamada pro preview,no caso de saída matricial

https://github.com/JoseQuintas/JoseQuintas/blob/master/source/ze_preview.prg

Uso nomes de função que identificam pra que servem as funções, e o fonte das funções está tudo na LIB.
Vai de cada um usar ou substituir por rotinas/variáveis próprias.

Por exemplo: AppEmpresaNome() e AppEmpresaApelido().
Todo aplicativo usa nome e/ou apelido da empresa em uso, essas funções facilitam fazer isso.
É só usar @ 1, 0 SAY AppEmpresaApelido(), e AppEmpresaApelido( "nome da empresa" )

Ou criar a sua própria.
FUNCTION AppEmpresaNome); RETURN "FORUM PCTOLEDO"

Acho que no geral não vai ter grandes problemas em usar, pode substituir quase tudo.
O preview antes não tinha, se for o caso também pode remover isso da classe PDF e fica igual antes.

Mas é reação em cadeia: o preview tem opção de enviar por email, então depende de rotina pra enviar email.
Mas pode remover a opção de enviar email... etc. etc. etc.
Então vai de cada um o quanto vai querer usar da LIB. As dependências vão depender do quanto usar da LIB, quanto mais usar, mais dependência vai ter.
E pode remover o que não interessar.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13817
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 848 vezes

Exemplos tudo-em-um

Mensagempor lugab » 24 Set 2017 04:07

Bom dia, Quintas...

To vendo o seu programa de recibo e queria saber como mudar características das letras , tamanho, estilo, etc,
tipo assim: Eu quero Gerar a palavra "Recibo" em letras bem maiores, mas o resto da impresao eu quero com tamanho menor e em outro estilo/formato

   oPDF := PDFClass():New()
   oPDF:Begin()
   oPDF:AddPage()
   oPDF:nRow += 2
   oPDF:DrawText( oPDF:nRow, oPDF:MaxCol() / 2 + 3, "RECIBO" )
   oPDF:nRow += 3
   cText := "Recebi de " + Trim( mPagador ) + " a importância de " + "R$" + ;
   Ltrim( Transform( mValor, "@E 999,999,999.99" ) ) + " (" + Extenso( mValor ) + ;
   ") relativa ao pagamento de " + Trim( mMotivo ) + "."
   etc


Obrigado e bom domingo, Professor !!!!
lugab
lugab
Colaborador

Colaborador
 
Mensagens: 862
Data de registro: 19 Mai 2009 15:58
Curtiu: 126 vezes
Mens.Curtidas: 37 vezes

Exemplos tudo-em-um

Mensagempor JoséQuintas » 24 Set 2017 08:23

Está respondido em outro post.

http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=18633&start=15

Mas resumindo: DrawText() aceita parâmetros pra tamanho, nome de fonte, e até inclinação do texto.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13817
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 848 vezes

Exemplos tudo-em-um

Mensagempor lugab » 24 Set 2017 23:52

Obrigado, Quintas,

Só mais uma coisar: Eu esqueci de pedir o zebrado, mas nesse link q vc me passou tem
oPDF:DrawZebrado(1)
   oPDF:DrawText( oPDF:nRow, 0, TrechoJust( @oElement, oPDF:MaxCol() ), , , "Courier-Bold" )

Só que da erro em tempo de execução,
"Message not Found: PDFCLASS: DRAWZEBRADO"..


O que eu to fazendo errado ??
lugab
lugab
Colaborador

Colaborador
 
Mensagens: 862
Data de registro: 19 Mai 2009 15:58
Curtiu: 126 vezes
Mens.Curtidas: 37 vezes

Exemplos tudo-em-um

Mensagempor JoséQuintas » 25 Set 2017 00:14

Criou a variável da classe primeiro?

oPDF := PDFClass():New()
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13817
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 848 vezes

Exemplos tudo-em-um

Mensagempor lugab » 25 Set 2017 04:46

Sim, Quintas, eu criei..

E coloquei a linha zebrada só pra ver como fica
   oPDF := PDFClass():New()
   oPDF:Begin()
   oPDF:AddPage()
   oPDF:nRow += 1
   oPDF:DrawImage( cJPG, 07, 130, 20, 10 )      //DrawImage( cJPEGFile, nRow, nCol, nWidth, nHeight )
   oPDF:DrawText( oPDF:nRow, (oPDF:MaxCol()/2)-5 , "RECIBO",,25,,, )
   oPDF:nRow += 1
   oPDF:DrawZebrado(1)
   oPDF:nRow += 4
   do while .t.
      opdf:drawtext( opdf:nrow, 10, trechojust( @ctext, maxcol() - 20 ),,15,,, )
      opdf:nrow += 1
      if len( ctext ) == 0
         exit
      endif
   enddo
lugab
lugab
Colaborador

Colaborador
 
Mensagens: 862
Data de registro: 19 Mai 2009 15:58
Curtiu: 126 vezes
Mens.Curtidas: 37 vezes

Exemplos tudo-em-um

Mensagempor JoséQuintas » 25 Set 2017 16:50

O último fonte atualizado, que eu uso, é este, direto do aplicativo:

https://github.com/JoseQuintas/JoseQuintas/blob/master/source/ze_pdfclass.prg

Além do DrawZebrado() tem DrawBoxTitleText()

É o que o nome diz: desenha um box com título e texto.... rs
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13817
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 848 vezes

Exemplos tudo-em-um

Mensagempor mpdias » 18 Abr 2020 14:25

Boa Tarde

Comecei a usar este utilitário e deparo-me com este erro

Ao executar qualquer tarefa do menu, o menu quando regressa ficacom ???? à volta em vez dos traços normais.

Há alguma maneira de resolver isto?

Alterei o codepage para PTISO.

REQUEST HB_CODEPAGE_PTISO
Set( _SET_CODEPAGE, "PTISO" )

Será por isso?

Obrigado

Moisés Dias
mpdias
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 7
Data de registro: 14 Abr 2020 16:22
Cidade/Estado: sintra
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Exemplos tudo-em-um

Mensagempor JoséQuintas » 18 Abr 2020 20:04

Tem também o SAVE/RESTORE SCREEN.
Veja se não é esse o problema.

   hb_gtInfo( HB_GTI_COMPATBUFFER, .F. )
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13817
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 848 vezes

Exemplos tudo-em-um

Mensagempor alxsts » 18 Abr 2020 21:14

Olá!

Seja bem-vindo a este fórum Dias!
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2291
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 14 vezes
Mens.Curtidas: 159 vezes

Exemplos tudo-em-um

Mensagempor mpdias » 19 Abr 2020 10:38

Boa Tarde Sr. José Quintas

Muito obrigado pela pronta resposta

Vou experimentar com essa alteração.

Para já não é problema de Save/Restore Screen. mas pode vir a a ser no futuro

A única coisa que fiz foi alterar o codepage para PTISO no programa test.prg do seu "allinone" para alterar alguns caracteres para português com acentos.

Obrigado

Moisés Dias
mpdias
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 7
Data de registro: 14 Abr 2020 16:22
Cidade/Estado: sintra
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Anterior Próximo



Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro