Cancelar OrdScope e oBrw:Refresh una linea

[PeterBaga]

Bom dia....

Duas questões por favor...

1 - Com cancelar um xalias->( OrdScope( 0, xScope ) ) ? Ja tentei "ClearScope","ClrScope","DbClearScope" e nada funciona.... Qual é o comando? e já agora onde se pode consultar a sintaxe de todos os comandos FWPPC?

2 - Tenhom um Browse ( LSTBox ) com uma coluna checkon / checkOff. Quando o brwose é muito grande demora muito
tempo a fazer oBRW:Refresh(). Existe alguma forma de fazer somente um obrw:refreshCurrent() ou algo do genero ?


Qualquer Dica fico muito grato.

Muito Obrigado.

[Antonio Linares]

Pedro,

1) Revisa esta conversación acerca de cómo cancelar OrdScope():
http://forums.fivetechsupport.com/viewt ... t=ordscope

2) Cuantas columnas tiene el browse ? Son todas visibles ? Estás usando SET FILTER TO ... ?

[PeterBaga]

Antonio. Bom dia....

O assunto do item n1. esta OK, nao me tinha ocorrido ordscope(0,nil), ordscope(1,nil). Obrigado,

O assunto do item n.2 aqui esta o meu codigo.

O que eu pretendia é refrescar unicamente a linha que foi alterada.
Se for possivel é claro...

Code: Select all

Function Historico()
local oDlgHis, oBrwHis, oBtn1, hBmpOn := LoadBitmap( GetResources(), "CheckOn" ),;
      hBmpOFF := LoadBitmap( GetResources(), "CheckOFF" )

HISMES->( OrdSetFocus( "HICLI" ))
HISMES->( ordScope( 0, CLIMES->NUMERO ) )
HISMES->( ordScope( 1, CLIMES->NUMERO ) )
HISMES->( DbGoTop() )

DEFINE DIALOG oDlgHis TITLE "Historico"+"-"+Alltrim(CLIMES->NOME) SIZE 240,270
DEFINE FONT oFont NAME 'Arial' SIZE 0, -10

@ 0, 0 LISTBOX oBrwHis ;
       FIELDS IF( HISMES->SEL, hBmpOn, hBmpOFF ),;
              HISMES->DATA, HISMES->DESCRITIVO, Transform(HISMES->QUANTIDADE,"99 999.99"),;
              Transform(HISMES->PVENDA,"999 999.999"), Transform(HISMES->DESCONTO1,"999.99"),;
              Alltrim(HISMES->NOMEDOC), Transform(HISMES->DOCUMENTO,"9999999999") ;
       COLSIZES 15,55,120,45,50,45,70,50 ;
       HEADERS "X","Data", "Artigo","Qtd","Preço","Desc.","Doc.","Nr." ;
       SIZE 120, 114 ;
       FONT oFont ;
       OF oDlgHis ;
       ALIAS 'HISMES'

oBrwHis:bLDblClick = { || HISMES->SEL := !HISMES->SEL, oBrwHIS:Refresh() }  // aqui seria necessario refresh so a linha alterada
oBrwHis:bLogicLen = { || HISMES->( OrdKeyCount() ) }

@ 125,00 BTNBMP oBtn2 PROMPT "Retroceder" SIZE 60, 12 action { oDlgHis:End() } OF oDlgHis

ACTIVATE DIALOG oDlgHis CENTERED

HISMES->( ordScope( 0, Nil ) )
HISMES->( ordScope( 1, Nil ) )

Return Nil

 

[Antonio Linares]

Pedro,

Estás probando la aplicación en el emulador ó en el pocket pc real ?

Si la pruebas en el pocket pc real no pongas las DBFs y los índices en una tarjeta de memoria. Copia la aplicación y las bases de datos e índices a una carpeta dentro del pocket pc. Las tarjetas de memoria son mucho más lentas que la propia memoria del pocket pc.

[PeterBaga]

Ok. Antonio

Obrigado pelo feed Back.

Por agora esta tudo bem.