Problemas con los indices.

[Antonio Linares]

Añade esta función tambien:

function OemToAnsi( cTexto )

return cTexto

[nolgiati]

Primero me presento, soy Natalia, porque me inclui en la charla de mi compañero "jrestojeda", esteban sin avisar.
Antonio gracias, las funciones hicieron que no tire error. Ahora voy a probar aplicarle metodos, pero no creo q tenga problemas.

El problema que se me sigue presentando es con los indices ya creados .ntx. a continuacion te copio el codigo para que veas como los estoy usando (El ejemplo es en el caso de la base de "stock"):

#include "FWCE.ch"

REQUEST HB_LANG_ESWIN

// DEFINICION DE COLORES /////////////////////////////////////////////////////////////
#Define Negro 0
#Define Azul 8388608
#Define AzulB 16711680
#Define Verde 32768
#Define VerdeB 65280
#Define Celeste 8421376
#Define CelesteB 16776960
#Define Rojo 128
#Define RojoB 255
#Define Magenta 8388736
#Define MagentaB 16711935
#Define Marron 32896
#Define Gris 8421504
#Define GrisB 12632256
#Define Amarillo 65535
#Define Blanco 16777215
//

#define O_LON 50
#define O_DLG 1
#define O_LOAD 2
#define O_RECNO 3

Static oFec,oNum,oDe,oSa,oP1,oP2,oLu,oRub,oDes
Static vFec,vNum,vDe,vSa,vP1,vP2,vLu,vRub,vDes

// CONTROL DE INVENTARIO //
Function Articulo()
Local oDlg,oBrw,oDbf,Vec1,Vec2,Vec3
Local Datos:="\\PIII\C\WPSDatos\"

USE (Datos+"RUBROS.DBF") VIA "DBFNTX" NEW
Rubros->(DbGoTop())

USE (Datos+"STOCK.DBF") INDEX "STOCK01.NTX" NEW
DATABASE oDbf
*Stock->(DbGoTop())

USE (Datos+"INVENTA.DBF") VIA "DBFNTX" NEW
Inventa->(DbGoTop())

IniVar()

DEFINE DIALOG oDlg RESOURCE "Inventario"

REDEFINE GET oFec VAR vFec ID 100 OF oDlg PICTURE '@D' WHEN(EMPTY(vRub))
REDEFINE GET oNum VAR vNum ID 101 OF oDlg PICTURE '999999' WHEN(EMPTY(vRub))

REDEFINE CHECKBOX oDe VAR vDe ID 102 OF oDlg;
WHEN(!vSa .AND. !vP1 .AND. !vP2 .AND. !vLu)
REDEFINE CHECKBOX oSa VAR vSa ID 103 OF oDlg;
WHEN(!vDe .AND. !vP1 .AND. !vP2 .AND. !vLu)
REDEFINE CHECKBOX oP1 VAR vP1 ID 104 OF oDlg;
WHEN(!vSa .AND. !vDe .AND. !vP2 .AND. !vLu)
REDEFINE CHECKBOX oP2 VAR vP2 ID 105 OF oDlg;
WHEN(!vSa .AND. !vP1 .AND. !vDe .AND. !vLu)
REDEFINE CHECKBOX oLu VAR vLu ID 106 OF oDlg;
WHEN(!vSa .AND. !vP1 .AND. !vP2 .AND. !vDe)

REDEFINE LISTBOX oBrw;
FIELDS STOCK->DESCRIP,STR(STOCK->EXISTENCIA),STOCK->CODIGO;
SIZES 65,65,65;
HEADERS "Desc","Exist","Cod";
ID 110 OF oDlg;
ON DBLCLICK ModExi(oDlg)

oBrw:lCellStyle:=.t.
oBrw:SetColor(CLR_HRED,CLR_YELLOW)

REDEFINE GET oRub VAR vRub ID 107 OF oDlg PICTURE '@!';
VALID{||Valcheck()};
WHEN{||VerRubro()}

REDEFINE BUTTON ID 108 OF oDlg;
ACTION BrowRub(oDlg)

REDEFINE GET oDes VAR vDes ID 109 OF oDlg READONLY COLOR AzulB,GrisB

REDEFINE BUTTON ID 200 OF oDlg;
ACTION ModExi(oDlg);
PROMPT "Modif"
REDEFINE BUTTON ID 201 OF oDlg;
ACTION oDlg:End();
PROMPT "Salir"
REDEFINE BUTTON ID 202 OF oDlg;
ACTION Procesar();
PROMPT "Procesar"

ACTIVATE DIALOG oDlg CENTERED //ON INIT (Cli_Bar(),.f.)

DBCLOSEALL()
Return nil
//

Muchas Gracias, Natalia.

[Antonio Linares]

Natalia,

Prueba a hacerlo así:

USE (Datos+"STOCK.DBF") INDEX (Datos+"STOCK01.NTX") NEW

[nolgiati]

Antonio Funciono todo perfectamente!!!

Estamos muy agradecidos por la pronta ayuda, saludos,
Esteban y Natalia.