Print Preview com WVW

[anacatacombs]

Meus caros, depender do designer que eu quis dizer, não é uma critica a ferramenta.. nunca usei particularmente.
Mas imagine, a cada situação durante a migração do sistema, a cada tela que precisar mexer, vai lá e abre o designer copia o código e cola no sistema..
Acaba criando um vicio, mas aí vai de cada um, eu disse que eu particularmente, não acho uma boa idéia, pois sei, que certamente, EU criaria esse vicio.
É isso mesmo , Itamar.. Mudança de conceitos .. o que não é fácil

Ala, meu coração.
Eu discordei apenas de vc dizer que migrar direto para HWGUI é melhor, eu também não estou dizendo que migrar para GTWVW é melhor e piriri pororo..
As vezes acabamos confundindo e fazer o colegar "correr atrás do proprio rabo"
Eu mesma, quando começei a converter passei por isso, fiquei quase 1 mês "experimentando" bibliotecas, vc e o Véio sabem bem disso (lembra?)
:****

Não adianta postar exemplos, mostrar diferenças na teoria e na prática e etc etc etc.
Claro que, quem está usando a HWGUI a mais tempo e tem uma afinidade maior com a biblioteca vai dizer que é fácil.

Precisa ver se o Colega terá a mesma afinidade.

A Gtvw é "menos traumática" para migrar, em termos de estrutura do sistema não muda muita coisa.

Não quis criar polemica, nem brigar "por causa de varal"..

Só não quero que outras pessoas passem pelos mesmos problemas que tive.

[]'s

Ana

[Mário Isa]

Ana, fique tranquila, nós entendemos bem sua colocação.

Toda a ajuda é bem-vinda.

No final dá tudo certo não é ?

Obrigado
-:]

[Itamar M. Lins Jr.]

Mas imagine, a cada situação durante a migração do sistema, a cada tela que precisar mexer, vai lá e abre o designer copia o código e cola no sistema..

Bem quando eu mudei do conceito DOS para Windows. Eu refiz meu sistema.
Eu prefiro assim porque já vou adotando novas técnicas.
Por exemplo eu trabalhava assim:

Código: Selecionar todos

If empty(cVar)
   cVar := X
else
  cVar := y
endif
//Agora eu faço assim:
cVar := iif(empty(cVar),x,y)
//Muito mais simples de ler o código e menos linhas.

Entre outras coisas passar a usar novas funções.
Por exemplo:

Código: Selecionar todos

//Da forma antiga:
xano:=substr(strzero(year(VDTEMIS),4),3,4)+strzero(month(VDTEMIS),2)
//Usando os recursos de uma função nova:
xano := hb_dtoc(VDTEMIS,'AAMM')
//Compare para ver,  mais simples de fazer e enteder.
// Os dois códigos fazem a mesma coisa.

Quando estudei a Hwgui eu compilei alguns exemplos da pasta SAMPLES.
Estudei a parte que mais me atormentava que era a classe tBrowse, vi que era possível fazer tudo com a Hwgui ou a parte que não podia na época eu fiz de outra forma mas ficou bom, e ponderei se os recursos oferecidos mesmo com as deficiencias, ainda assim é bem superior ao DOS, então parti para reescrever o sistema. Mesmo com todos os problemas de tempo etc,etc... até porque ficar fazendo "gambiarras" já não queria porque é uma bola de neve, o sistema vai aumentando, pode aparecer mais clientes o tempo vai diminuindo, acabaria eu não mudando nunca.
Até porque para determindados clientes o que importa é o resultado final, isso serveria de consolo por eu não ter mudado, mas a evolução empurra os desenvolvedores a mudar...
E outra coisa que considero importante, que agora já posso entender. Antes eu pensava que mudaria de Clipper para Hwgui ou Windows etc...
Agora posso enteder que não mudei do Clipper continuo usando muitos dos seus comandos e funções, apenas alguns conceitos e a parte das telas é que mudou ainda bem que mudou melhorou muito mesmo, agora a possibilidade é do tamanho da nossa imaginação.

Saudações,
Itamar M. Lins Jr.

[anacatacombs]

Concordo com você, meu caro.

Eu também tinha a mesma situação que você.. estou passando todos os fontes do meu sistema, corrigindo gambiarras, criando classes ou funções para algumas funções genéricas (o que vai ajudar bastante na hora de migrar para qualquer outra IDE) , mas tenho certeza que demoraria bem mais para migrar diretamente para HWGUI, e infelizmente eu não tenho disponível todo esse tempo.
No entanto, independente da IDE escolhida, o importante é simplificar o código e corrigir as gambiarras...

[Mário Isa]

com a WVW não é mais possível colar e copiar..........

Amigos, pelo que percebi, ao sair do modo-texto e partir prá WVW / já não é mais possível copiar e colar / pelos comandos do menu de controle da janela (janelas-DOS) /

Alguém por aí copia e cola com algum comando ?

Eu vi na net uma função para copiar para o clipboard / mas colar acho q já não é mais possível;

Código: Selecionar todos

 local clipb_pos1:=-1, clipb_pos2:=-1, clipb_row:=-1, clipb_scr, 
clipb_str, clipb_save,fl_clipbloard,nKey 
   Nkey:=inkey(0,INKEY_ALL) 
   while Nkey=K_MMLEFTDOWN .or. Nkey=K_LBUTTONDOWN 
         nKey=inkey(0,INKEY_ALL) 
         if nKey=K_MMLEFTDOWN 
            fl_clipboard=.t. 
            if clipb_pos1<0 
               clipb_pos1=mcol() 
               clipb_row=mrow() 
               sav_row=row(); sav_col=col() 
               clipb_str:=savescreen(clipb_row,0,clipb_row,maxcol()) 
               clipb_save=wvw_getclipboard() 
            end 
            clipb_pos2=mcol() 
clipb_scr=savescreen(clipb_row,clipb_pos1,clipb_row,clipb_pos2) 
            restscreen(clipb_row,0,clipb_row,maxcol(),clipb_str) 
            clipb_say(clipb_row,clipb_pos1,clipb_pos2, clipb_scr,"w+/ 
r") 
         end 
         if Nkey=K_LBUTTONUP .and. !fl_clipboard 
            nKey=K_LBUTTONDOWN 
            exit 
         end 
   end 
   if clipb_row>0 
      if clipb_pos2-clipb_pos1<2 
         wvw_setclipboard(clipb_save) 
      end 
      restscreen(clipb_row,0,clipb_row,maxcol(),clipb_str) 
      setpos(sav_row,sav_col) 
   end 

[Itamar M. Lins Jr.]

com a WVW não é mais possível colar e copiar..........

Já que está nesta situação, pode testar a WVW do Harbour, se for xHarbour sua plataforma.
Porque foi corrigido isso recentemente no Harbour.

Também solicitamos a ativação da WVW no Harbour, sempre eu posto menssagens lá, inclusive falando dos usuários orfãos aqui do Brasil etc...

2010-06-07 13:22 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* src/rtl/gtgui/gtgui.c
* src/rtl/gtwin/gtwin.c
* src/rtl/gtwvt/gtwvt.c
* contrib/gtwvg/gtwvg.c
* contrib/gtwvg/wvggui.c
* examples/gtwvw/gtwvw.c
+ Will now put to clipboard and request from clipboard UNICODE
text in UNICODE (default) mode. This should fix CP conversion
problems experienced in non-UNICODE mode (more in a separate
bug report).
Please review me.

...
* harbour/src/rtl/gtclip.c
! fixed wrongly calculated size of string extracted from clipboard
(when unicode string was in clipboard then number of unicode characters
were used instead of number of multibyte ones)
! added protection against possible memory corruption if some external
process sets clipboard text without trailing 0
* changed hb_gt_winapi_[sg]etClipboard() functions parameters to use
PHB_ITEM as buffer
Question to windows users: different Win GTs use different encoding
for the clipboard buffer. Maybe you want to normalize it?

Não custa nada tentar.

Saudações,
Itamar M. Lins Jr.

[acelconsultoria]

Gente... esse assunto "virou" legal.

Mas, voltando a falar do Print Preview do Angeiras, ainda não foi respondido a questão de uma variável que causa erro, que é o "_acols" que é acionada quando clica-se no botão para exportar para o excel.

Estudei o fonte pra tentar resolver isso, mas não consegui. Alguém conseguiu ?

[angeiras]

Boa tarde,

Para resolver esse problema basta declarar no começo do programa :

Código: Selecionar todos

public _acols := { 132 }

Essa variavel deveria conter os tamanhos das colunas do relatorio para gerar as colunas em uma planilha.

[]s
M.Angeiras

[hervedo]

Feliz Ano Novo a todos....
Angeiras meu caro, sabe como é chupim ne??? kkkkk
Gostaria de saber se você aperfeicou algumas coisas no seu preview recentemente, visto que observei ser de 2009.
Abraco

[angeiras]

Olá,

A versão no 4shared tá com uns bugs mesmo. Desde que postei, fiz algumas alterações pra deixar funcional e tenho usado sem problemas em alguns sistemas. Vou postar essa versão mais nova no fds.

Tem alguma coisa, além dos bugs, que tá faltando ?

[]s
M.Angeiras

[hervedo]

pois entaum...
eu to querendo integrar ele no meu sistema... alem dos bugs, em relatorio meio extensos ele está meio lento, acredito q seja pq tem que gerar primeiro o txt e depois converter pro dbf, mas com a sua nova versao eu vou estudar uma forma de contornarmos isso, caso vc nao tenha feito ja. estudarei a possibilidade de criar os relatorios direto em arrays, o que certamente iria aumentar muito a velocidade do relatorio.

[angeiras]

Olá,

Em relatórios extensos o preview se arrasta. É como voce observou : tenho que gerar um .txt pra depois gerar a visualização. Nos meus sistemas mais novos, uso basicamente esse mecanismo para criar meus relatórios, mas crio e alimento o .txt direto do programa que faz o relatório.

Vou separar as funções que fazem esse gerenciamento do relatório, com um programa usando essas funções e vou postar o link pra voce baixar.

[]s
M.Angeiras

[hervedo]

seria otimo realmente se vc conseguisse colocar um exemplo... nao entendi como vc utiliza ele... se eh como uma funcao do seu sistema (junto no mesmo executavel) ou como um executavel externo que vc chama na hr do relatorio... aqui nos testes eu observei um bug e nao esta gerando o pdf. mas no mais esse preview eh show de bola...

[angeiras]

Ola,

Dá uma olhada em

http://www.4shared.com/document/N0hF_T1y/PRINT.html

É um arquivo texto com uma estrutura básica de como faço meus relatórios e as funções de apoio.

[]s
M.Angeiras

[hervedo]

Boa Tarde...
Nao sendo chato, apenas querendo ajudar, estou te lembrando de atualizar a funcao da impressao
obrigado