Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Classe Text Report do Hilmar
Message
De
07/03/2003 10:56:41
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivie
 
 
À
07/03/2003 10:42:39
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
00762737
Message ID:
00762744
Vues:
9
>Olá Hilmar
>
>A tua classe é "muy buena" !
>Estou a gostar muito .
>
>Tendo em conta , que serão os utlizadores a defenirem os campos que serão impressos , como é que eu posso alinhar o título das colunas , com os dados ?
>
>Quero que apareça
>

Para mostrar alieamento, deve usar códigos < PRE >, assim:
Coluna 1      Coluna 2
Antonio       45


agora aparece assim

Coluna 1    Coluna 2
Antonio      45
Acho que deve criar propriedades adicionais, por exemplo, uma propriedad de tipo array para o ancho e tipo das colunas.

Exemplo:
* Método .Select() && ???
select * ... into cursor TempReport
* Determinar número de campos
This.nNumeroColunas = ... && Deve definir propriedades adicionais
    && na folha de propriedades.
local i
for i = 1 to This.nNumeroColunas
  This.aTipoColuna(i, 1) = (tipo de coluna: C, N, D, ...)
  This.aTipoColuna(i, 2) = (ancho de coluna)
  This.aTipoColuna(i, 3) = (decimales)
  This.aTipoColuna(i, 4) = (expresão: pode ser o nome do campo)
  This.aTipoColuna(i, 5) = (título para header - onde pode obter isto?)
next
Depois, pode dar formato às colunas tanto no método .Detail(), como no método .PageHeader() (ou .GroupHeader()):
* Detail
This.PrintLine() && começar nova linha
local i
for i = 1 to This.nNumeroColunas
  do case
  case This.aTipoColuna(i, 1) = "C"
    This.Print(padr(eval(This.aTipoColuna(i, 4)), This.aTipoColuna(i, 2))
  ...
next
Similar no método Header.

>Penso que ainda vou fazer-te muitas mais perguntas , até conseguir exatamente o que quero .

Nao tem problema, eu posso ajudar.
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform