Clipper/FiveWin - Busquedas Incrementales

 
Vista:

Busquedas Incrementales

Publicado por Javier y Romina (13 intervenciones) el 02/04/2001 16:39:36
Necesito un ejemplo de busquedas Incrementales por favor es algo urgente
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Busquedas Incrementales

Publicado por Willi Quintana (2 intervenciones) el 03/04/2001 04:58:41
Chequea este ejemplo que es parte de un prg que me envio un usuario, la function BuscArti() es mia, si deseas mas detalles mandeme un emilio:
Salu2
Willi Quintana
[email protected]

// Función AltaExp; Alta de Expedientes

static function AltaExp( oLbx, lAppend )

local nNumero_E := 0
local cReferen := SPACE(20)
local dFecha_E := DATE()
local cAsunto_E := SPACE(40)
local nCod_Per := 0
local cNom_Per := SPACE(40)
local cObserva1 := SPACE(70)
Local cObserva2 := SPACE(70)
Local oDlg1, oGet, oGet1
local lSave := .f.
local nOldrec := RecNo()

DEFAULT lAppend := .f.
select EXPEDIEN
set index to EXPEDIEN
set order to TAG Numero IN EXPEDIEN
GO BOTTOM

DEFINE DIALOG oDlg1 RESOURCE "DIALG02" TITLE "Alta de Expedientes"

REDEFINE GET oGet VAR nNumero_E PICTURE "99999999" ID 101 OF oDlg1; // Este es el Get implicado
VALID Eval( { ||;
IF (nNumero_E=0,;
(oDlg1:End(), .F.),;
IF (EXPEDIEN->(dbSeek(STRZERO(nNumero_E,8))),;
(MsgAlert("Ya existe este número de expediente", "Atención"), .F.),;
(.T.) ) ) } )
REDEFINE GET oGet VAR cReferen ID 102 OF oDlg1
REDEFINE GET oGet VAR dFecha_E ID 103 OF oDlg1
REDEFINE GET oGet VAR cAsunto_E ID 104 OF oDlg1
REDEFINE GET oGet1 VAR nCod_Per PICTURE "9999" ID 105 OF oDlg1;
VALID Eval ( { ||;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar