alinhamento de coluna

[ricardo]

Necessito que num cursor ao fazer replace a uma determinada coluna essa coluna nas linhas impares que fosse alinhada a esquerda e nas linhas pares alinhada a direita, podem ajudar-me ?

Código:

replace tmpcli.descricao with tmpcli.nome (alinhamento esquerda)
replace tmpcli.descricao with tmpcli.morada (alinhamento direita)

obrigado.

[Marcos Guedes]

Olá, Ricardo!
Como estais criando o cursor?

[ricardo]

estou a criar a partir de um select ao sql, depois vou para a primeira linha do cursor, entro num scan e vou fazendo replace.

[Marcos Guedes]

Ricardo, para ser mais exato, estou me referindo ao código que estais utilizando para criar o cursor, e também, se há alguma mensagem de erro (e em caso positivo, qual a mensagem).

[ricardo]

Desculpa, não sei se é isto que pretendes.

Código:

u_sqlexec([select descricao,valor from cl (nolock)],[tmpcli])
select tmpcli
go top
scan
  if tmpcli.valor>100
      replace tmpcli.descricao with tmpcli.descricao (alinhamento esquerda)
  else
      replace tmpcli.descricao with tmpcli.descricao (alinhamento direita)
  endif
endscan
fecha([tmpcli])
select cl

[Marcos Guedes]

Está apresentando alguma mensagem de erro, não é?!
Porém você não postou...

Então, veja se isto resolve, senão posta a mensagem de erro que ocorre.

Código:

u_sqlexec([select descricao,valor from cl (nolock)],[tmpcli])
SELECT * FROM tmpcli INTO CURSOR tmpcli READWRITE
select tmpcli
go top
scan
  if tmpcli.valor>100
      replace tmpcli.descricao with tmpcli.descricao (alinhamento esquerda)
  else
      replace tmpcli.descricao with tmpcli.descricao (alinhamento direita)
  endif
endscan
fecha([tmpcli])
select cl

Obs.: Como a base não é nativa do VFP e o cursor não permite escrita, então precisei recriá-lo com um SELECT, acrescentando READWRITE para permitir a escrita no cursor.

[marcelofazan]

nao consigo imaginar o que seria alinhamento de coluna

quando voce quer pular linhas e ir gravando em uma coluna
seria

Código:

do while
if seek
replace


ou mesmo pode fazer algo assim que seria o ideal

Código:

for to n < 100
 replace

Código:

for to n > 100
 replace

quando voce gravar em coluna
somente replace

somente nao entendi tb a strings do select , e o replace
é cursor adapater

ou consegue usar replace com SGBD ou é free tables

Abs
Marcelo Fazan

[ricardo]

ok, mas o que eu pretendo é que quando utilizo p browse para ver o cursor tmpcli a coluna tmpcli.descricao tenha este aspecto,

"Texto da coluna descricao...................." (alinhmento esquerdo)
"....................Texto da coluna descricao" (alinhamento direito)

[alceu11]

Esta é difcil hein testos sempre terao alinhamento a direita, a esquerda, qdo for impar so se for numeros, ou entra na coluna

mas da para fazer na coluna na grid veja imagem coluna top right
imagem
[Você precisa estar registrado e conectado para ver esta imagem.]

como fica
[Você precisa estar registrado e conectado para ver esta imagem.]

[ricardo]

ok, não consigo o que queria, obrigado.

[Marcos Guedes]

Ricardo, você quer colorir ou alinha uma célula? Ou as duas coisas?

[alceu11]

Ricardo vc nao conseguiu pq, o exemplo esta bem explicado,,,,qual a duvida?

Baixe o fonte neste topico
la estou dando mais algumas explicacoes...

- [Você precisa estar registrado e conectado para ver este link.]

[marcelofazan]

acho que vc quer algo assim

replace tmpcli.descricao with space (30) + alltrim(tmpcli.nome)
replace tmpcli.descricao with alltrim(tmpcli.nome)

bom entao acho que sao texto dentro de uma cedula
tipo se for 3 cedulas ... ai acho qe tem q fazer outro select
se a coisa é dentro de 1 cedula vc pode usar fazer tratamentos de strings e conseguir isso com talves esses comandos space() left() right() alltrim()

vc quer gravar da tabela espaçoes embranco antes do fim tmpcli.nome esquerda ?

[lardecristo]

Pelo que entendi é no mesmo campo, certo?

Código:

replace tmpcli.descricao with ;
iif(mod(reccno(),2)=0, padl(tmpcli.nome,100," "), padr(tmpcli.nome,100, " "))

Tente isso se der certo aviso.