Clipper On Line • Ver Tópico - Help-me Message not found: TSCOLUMN:BLOCK

Help-me Message not found: TSCOLUMN:BLOCK

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Help-me Message not found: TSCOLUMN:BLOCK

Mensagempor Amparo » 28 Mar 2012 11:31

ola amigos

tendo o TBROWSE abaixo como eu faço para pegar o resultado de uma coluna, observando que hora o TBROWSE tem 3 colunas hora tera 10 colunas depende do array SGC020101FIELDS, em clipper 5.3 eu faço assim:
FOR nContFor := 1 TO len( SGC020101FIELDS )
     xVal := Eval( oBro:GetColumn( nContFor ):Block )
alert(xVal)
*a cada coluna vai mostrar o resultado dela
NEXT nContFor

como fazer em minigui, pergunto porque colocando a mesma linha da erro em Block
Error BASE/1004 Message not found: TSCOLUMN:BLOCK
DEFINE TBROWSE oBROW AT 100,005 OF SGC020101FORM ALIAS 'CLIENTES'
  WIDTH LARGURA020101 - 15 ;  HEIGHT ALTURA020101 - 160 FONT "Arial" SIZE 10     

  f := Len( SGC020101FIELDS )

  FOR W := 1 TO f STEP 1
     ADD COLUMN TO BROW020101 HEADER SGC020101TITULO[W] SIZE     
       SGC020101TAMANHO[W] FOOTER "";
       PICTURE IIF( SGC020101TIPO[W] == "N", SGC020101PICTURE[W], "@!" ) ;
       DATA FieldWBlock( SGC020101FIELDS[W], Select( "CLIENTES" ) ) ;
       ALIGN IIF( SGC020101TIPO[W] == "C", DT_LEFT , IIF( SGC020101TIPO[W] ==   
      "N", DT_RIGHT , DT_CENTER ) ) , ; nMakeLong( DT_CENTER, 3 )

      BROW020101:UPSTABLE( )
      BROW020101:lNoResetPos := .t.
      BROW020101:SETFOCUS( .T.)
      BROW020101:DRAWSELECT( )
      BROW020101:lHasChanged := .T.
      BROW020101:Paint()
      BROW020101:ResetVScroll(.F.)
END TBROWSE

FOR nContFor := 1 TO len( SGC020101FIELDS )
???????????????????????
NEXT nContFor
Avatar de usuário

Amparo
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 337
Data de registro: 20 Ago 2010 10:38
Cidade/Estado: caieiras / sao paulo
Curtiu: 0 vez
Mens.Curtidas: 2 vezes

Help-me Message not found: TSCOLUMN:BLOCK

Mensagempor Amparo » 28 Mar 2012 11:34

ola amigos

so uma correção:

nao é xVal := Eval( oBro:GetColumn( nContFor ):Block ) e sim xVal := Eval( BROW020101:GetColumn( nContFor ):Block )

é que em clipper esta oBro e estou convertendo para minigui e mudei para BROW020101
Avatar de usuário

Amparo
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 337
Data de registro: 20 Ago 2010 10:38
Cidade/Estado: caieiras / sao paulo
Curtiu: 0 vez
Mens.Curtidas: 2 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 7 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