PROBLEMAS CON TSBROWSE

Post Reply
AntonioCrisostomo
Posts: 28
Joined: Fri Dec 30, 2005 8:44 pm
Location: Lima-Perù

PROBLEMAS CON TSBROWSE

Post by AntonioCrisostomo »

Bueno ante todo gracias, pero tengo el siguiente problema
tengo indexado una tabla con 2 indices uno por codigo y otro por descripcion en el codigo se da la instruccion que me muestre ordenado por descripcion pero me sigue presentando ordenado por codigo

DBSELECTAREA( oProdu:cAlias )
ORDSETFOCUS(2)
DBGOTOP()

DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -12
DEFINE FONT oFont2 NAME "Courier new" SIZE 0, -12
DEFINE FONT oFont3 NAME "Ms Sans Serif" SIZE 0, -16 BOLD

DEFINE DIALOG oDlg RESOURCE "DLG_LISPRO2" TITLE "Seleccione los productos para venta" FONT oFont

REDEFINE GET oTotal VAR nTotal ID 109 OF oDlg PICTURE "9,999,999.99" FONT oFont3 WHEN .F. COLOR "R/BG*" UPDATE

REDEFINE BROWSE oB COLORS "N/W*" ID 101 OF oDlg FONT oFont2;

ADD COLUMN TO oB;
HEADER "Descripción";
DATA {|| OEMTOANSI(( oProdu:cAlias )->DESPRO) };
COLORS "N/W*" ;
3DLOOK TRUE;
SIZE 310

ADD COLUMN TO oB;
HEADER "Código" ;
DATA FieldWblock("CODPRO",Select() );
COLORS "N/W*" ;
3DLOOK TRUE;
SIZE 50

ADD COLUMN TO oB;
HEADER "Abreviatura" ;
DATA FieldWblock("ABREV",Select() );
COLORS "N/W*" ;
3DLOOK TRUE;
SIZE 70

ADD COLUMN TO oB;
HEADER "Stock "+cDesalm;
DATA { || CONVERPRO( oProdu, oTabla,F_SaldoAlm(oProdu,cNumalm)) };
COLORS "N/W*" ;
3DLOOK TRUE;
SIZE 160;
ALIGN DT_RIGHT, DT_CENTER
ENDIF

oB:lNoHScroll := .T.
ob:nHeightCell += 8
oB:nHeightHead += 10
oB:nLineStyle := LINES_DOTTED
oB:SetColor( { 2, 5, 6, 15 },{{|| If( oB:nLogicPos % 2 = 0,;
CLR_4, CLR_WHITE ) },;
CLR_WHITE, CLR_BLACK,;
CLR_BLUE})

OB:bKeyDown := {|nKey|;
iif(nKey==VK_RETURN,;
IIF((NKEY>=65 .AND. NKEY<=90) .OR. ;
(NKEY>=97 .AND. NKEY<=122) .OR. ;
(NKEY>=48 .AND. NKEY<=57),,;
oAbrev:Setfocus()),;

REDEFINE GET oBusca VAR cBusca ID 102 OF oDlg PICTURE "@!" FONT oFont;
VALID(BusProdu(cBusca,oProdu,@oB));
ON CHANGE IF(VAL(cBusca)=0,(::Assign(),;
If((DbSeek(AnsiToOem( SubStr( UPPER(cBusca), 1, ::nPos - 1 ) + ;
Chr( nKey ) ) ) ),;
( nreg:=recno(), oB:UpStable(), oB:Refresh(), .t. ),;
( dbgoto(nreg) , oB:UpStable(), oB:Refresh(), .f. ) ) ),;
);
WHEN IF(lBusAbr,.f.,.T.)

REDEFINE BUTTON ID 103 OF oDlg
REDEFINE BUTTON ID 104 OF oDlg ACTION ODLG:END()

ACTIVATE DIALOG oDlg

Pero existe algo raro, cuando llamo a esta funcion a travez de un boton si sale bien pero si lo llamo a travez de una tecla sale ordenado por codigo
use la funcion SYSREFRESH() pero nada


Espero su ayuda por favor

Ante todo muchas gracias
Post Reply