FiveTech Software tech support forums

Code: Select all

   //1.- se  ordena por el campo numero y se hace una busqueda (esta busqueda funciona bien)
   oQry:setOrder('Numero'+" ASC",.t.)
   If oQry:seek('5', 'Numero',,,.f. ) > 0
         msginfo('numero 5 encontrado')
   else
         msginfo('numero 5 no encontrado')
   endif

   //2.- Se ordena por el campo nombre y se hace una busqueda (esta busqueda funciona bien)
   oQry:setOrder('Nombre'+" ASC",.t.)
   If oQry:seek('A', 'Nombre',,,.f. ) > 0
         msginfo('Nombre A encontrado')
   else
         msginfo('Nombre A no encontrado')
   endif

   //3.-  se  ordena por el campo numero y se hace una busqueda: identico al paso 1, [b]aqui se bloquea el sistema[/b]
   oQry:setOrder('Numero'+" ASC",.t.)
   If oQry:seek('5', 'Numero',,,.f. ) > 0
         msginfo('numero 5 encontrado')
   else
         msginfo('numero 5 encontrado')
   endif
 

Code: Select all

.
.
.

    cArchivo:='Clientes'
    DEFINE QUERY oQry "SELECT * FROM "+ cArchivo +" order by numero"

   //1.- se  ordena por el campo numero y se hace una busqueda (esta busqueda funciona bien
   oQry:setOrder('Numero'+" ASC",.t.)
   If oQry:seek('5', 'Numero',,,.f. ) > 0
         msginfo('numero 5 encontrado')
   else
         msginfo('numero 5 no encontrado')
   endif

   //2.- Se ordena por el campo nombre y se hace una busqueda (esta busqueda funciona bien)
   oQry:setOrder('Nombre'+" ASC",.t.)
   If oQry:seek('A', 'Nombre',,,.f. ) > 0
         msginfo('Nombre A encontrado')
   else
         msginfo('Nombre A no encontrado')
   endif

   //3.-  se  ordena por el campo numero y se hace una busqueda: identico al paso 1, aqui se bloquea el sistema
   oQry:setOrder('Numero'+" ASC",.t.)
   If oQry:seek('5', 'Numero',,,.f. ) > 0
         msginfo('numero 5 encontrado')
   else
         msginfo('numero 5 encontrado')
   endif
.
.
.
 

Code: Select all

//#include "hbcompat.ch"
#include "tdolphin.ch"

#define CRLF Chr( 13 ) + Chr( 10 )

PROCEDURE Main()
   
   LOCAL oServer   := NIL

   LOCAL aStruc, aRow, uItem
   LOCAL oQry, n, cArchivo
   
   SET CENTURY ON
   SET DATE FORMAT "dd/mm/yyyy"
   
   IF ( oServer := ConnectTo() ) == NIL
      RETURN 
   ENDIF

    cArchivo:='custo'
    DEFINE QUERY oQry "SELECT * FROM "+ cArchivo +" order by id"

   //1.- se  ordena por el campo id y se hace una busqueda (esta busqueda funciona bien
   oQry:setOrder('id'+" ASC",.t.)
   If oQry:seek('5', 'id',,,.f. ) > 0
         msginfo('id 5 encontrado')
   else
         msginfo('id 5 no encontrado')
   endif

   Inkey(0)

   //2.- Se ordena por el campo first y se hace una busqueda (esta busqueda funciona bien)
   oQry:setOrder('first'+" ASC",.t.)
   If oQry:seek('A', 'first',,,.f. ) > 0
         msginfo('first A encontrado')
   else
         msginfo('first A no encontrado')
   endif

   Inkey(0)

   //3.-  se  ordena por el campo id y se hace una busqueda: identico al paso 1, aqui se bloquea el sistema
   oQry:setOrder('id'+" ASC",.t.)
   If oQry:seek('5', 'id',,,.f. ) > 0
         msginfo('id 5 encontrado')
   else
         msginfo('id 5 encontrado')
   endif

   Inkey(0)

RETURN
   

PROCEDURE MsgInfo(c)
   ? c
RETURN

#include "connto.prg"
 

Code: Select all

oQ := oServer:Query("SELECT codigo,nombre FROM codigos ORDER BY codigo")
DEFINE DIALOG oDlg1 TITLE "Agrega codigo a empresa "+str(nCodEmp) FROM 05,15 TO 12,65 OF oDlg
   @ 05, 05 SAY "Codigo:"      OF oDlg1 PIXEL SIZE 60,20 RIGHT
   @ 20, 05 SAY "Descripcion:" OF oDlg1 PIXEL SIZE 60,20 RIGHT
   @ 05, 70 GET oGet[1] VAR nCod    OF oDlg1 PIXEL ;
            PICTURE "9999" RIGHT VALID(Buscar(oQ,oDlg1,oGet[1],oGet[2])) //Esta es la funcion que falla: Buscar
   @ 20, 70 GET oGet[2] VAR cNom OF oDlg1 PIXEL WHEN(.F.)
   @ acor[1],acor[2] BUTTON oBot[1] PROMPT "&Agrega" OF oDlg1 SIZE 30,10 ;
           ACTION ((lRta := .t.), oDlg1:End() ) PIXEL
   @ acor[3],acor[4] BUTTON oBot[2] PROMPT "&Cancelar" OF oDlg1 SIZE 30,10 ;
           ACTION ((lRta := .f.), oDlg1:End() ) PIXEL CANCEL
ACTIVATE DIALOG oDlg1 CENTER ON INIT oGet[1]:SetFocus()

Code: Select all

#include "FiveWin.ch"
#include "xbrowse.ch"
#include "tdolphin.ch"
FUNCTION buscar(oQr, oWnd, oGet1, oGet2)
LOCAL oDlg1, oBot1, oLbx, n := VAL(oGet1:cText)
IF oQr:Seek(n,"codigo") > 0 //Lo encontró 
   IF oGet2 <> nil
      oGet2:cText := oQr:nombre  // Pone el nombre en el Get (si se pasa como parametro el 2do get
      oGet2:Refresh()
   ENDIF
   RETURN .t. // Devuelve .t.
   ELSE // Si no lo encontró
   oQr:SetOrder("nombre",.T.) // Cambia el orden a nombre
   oQr:GoTop()
   DEFINE DIALOG oDlg1 RESOURCE "BUSCAR" TITLE "Busqueda" OF oWnd
     oDlg1:lHelpIcon := .f.
     REDEFINE XBROWSE oLbx DATASOURCE oQr;
              COLUMNS "Codigo","Nombre";
              SIZES   100,500;
              ID 111 OF oDlg1 AUTOSORT ON DBLCLICK oDlg1:End()
     REDEFINE SAY oLbx:oSeek PROMPT "" ID 102 OF oDlg1
     base:bOnChangePage := {|| oLbx:Refresh() }
     oLbx:bKeyDown := {|nKey| IF(nKey==13,oDlg1:End(),.t.) }
     PintaBrw(oLbx) // Esta función formatea el Browse para que se vea lindo
   REDEFINE BUTTON oBot1 ID 103 OF oDlg1 ACTION oDlg1:end() CANCEL
   ACTIVATE DIALOG oDlg1 ON INIT oLbx:SetFocus()
   oGet1:cText := oQr:codigo
   IF oGet2 <> nil
      oGet2:cText := oQr:nombre
      oGet2:Refresh()
   ENDIF
   oQr:SetOrder("codigo",.T.) // vuelvo a poner el orden por codigo para que quede listo para la busqueda nuevamente
ENDIF
RETURN .t.

Code: Select all

Set_MyLang( "esp" )

Code: Select all

Set_MyLang( "es_ES" )