FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

Como hago para que tome los datos de la nueva busqueda

Post a reply

Como hago para que tome los datos de la nueva busqueda

Postby ruben Dario » Fri Sep 19, 2008 11:03 pm

Tengo Un problema cuando hago la busqueda , con sentencias SQL me muestra en el browser los datos, pero cuando vuelvo a ejecutar la sentencia SQL con otra condision no me carga los datos,


Anexo Codigo

Code: Select all  Expand view  RUN
Static Function vl_comb(vlco1,aCamp,cQue1,cQue2)
if vlco1="Codigo Cuenta"
   vlco1:="cod_cta"
   cQue1 := cQue2+" WHERE COD_CTA  LIKE '"+ALLTRIM(aCamp)+"%' ORDER BY COD_CTA"
endif
if vlco1="Nombre Cuenta"
   vlco1:="cue_desc"
   cQue1 := cQue2+" WHERE CUE_DESC  LIKE '"+ALLTRIM(aCamp)+"%' ORDER BY COD_CTA"
endif
if aCamp = " "
   cQue1 := cQue2+" WHERE COD_CTA  ORDER BY COD_CTA"
endif

Return cQue1

Static Function CUE_BROW(xnr)
Local oLbx,oCol,oFon1,oDlgbrow,nBookMarkoKSalir,oKejec,oDatos,cQue1,cQue2,vlco1,vlco2,vlco3,vlco4
Local nRow,nCol,oChild,nFor,oLamcla,aCamp,eCamp,cCmB,;
   aItens := {'Codigo Cuenta','Nombre Cuenta'}
   aCamp := space(30)
   cCmB := "Codigo Cuenta"
   DEFINE FONT aFont[ 1 ] NAME "Arial" SIZE 0, -12
   DEFINE BRUSH aBrush[ 1 ] NAME "STONE"
   DEFINE BRUSH aBrush[ 2 ] NAME "PAPER"      //RESOURCE "PAPER"
   DEFINE FONT  oFnt01 NAME "Arial" size 07,14 BOLD //times new roman  //DIALOG
//select * from ccuentas where cod_cta LIKE "14%"
    cQue1 := "SELECT * FROM ccuentas ORDER BY COD_CTA"
    cQue2 := "SELECT * FROM ccuentas "
   vlco1:=" "
if !aContl[20]
else
   ADO SELECT ccuentas
   if oRecordSet[nRecordSet]:RecordCount() =0 //ADORecCount()
      MsgInfo("No Hay Datos ","Informacion")  //  MsgAlert( "No Hay Datos ","Informacion" )
      Return (.t.)
   endif
   EjeQueri(0,@oDatos,cQue1)
endif
  DEFINE DIALOG oDlgbrow RESOURCE "BROW_BUSQ" TITLE OemToAnsi("Consulta General");
            COLOR RGB(255,255,255),X_VENTDG2  //STYLE nOR(WS_MINIMIZEBOX) //Brush aBrush[ 1 ]
  REDEFINE SAY oSay ID 101 OF oDlgbrow FONT oFnt01 COLORS MEMVAR->X_SAYTEXT,MEMVAR->X_SAYFOND;oSay:lTransparent = .T.
  REDEFINE SAY oSay ID 102 OF oDlgbrow FONT oFnt01 COLORS MEMVAR->X_SAYTEXT,MEMVAR->X_SAYFOND;oSay:lTransparent = .T. 
  REDEFINE GET eCamp VAR aCamp ID 202 OF oDlgbrow MESSAGE "Ingrese Datos "   UpDate  //--> nº Chq
  REDEFINE COMBOBOX cCmb Items aItens ID 201 OF oDlgbrow  MESSAGE "Seleccione Criterio de Busqueda "
  REDEFINE BUTTONBMP oKSalir  ID IDCANCEL OF oDlgbrow  ACTION ( oDlgbrow:End() ) ;
      PROMPT "Salir del Formulario"  TEXTRIGHT   TOOLTIP "Salir del Formulario"             
  REDEFINE BUTTONBMP oKejec  ID IDOK OF oDlgbrow  ;
          ACTION ( vl_comb(cCmb,aCamp,@cQue1,cQue2),EjeQueri(1,@oDatos,cQue1,oLbx,oDlgBrow ) );
      PROMPT "Ejecuta Consulta"  TEXTRIGHT   TOOLTIP "Ejecuta Consulta"             
  eCamp:cToolTip := OemToAnsi( "Ingrese Dato " )
   if !aContl[20]
      REDEFINE XBROWSE oLbx ;
        COLUMNS "cod_cta", "cue_desc";
        HEADERS "Codigo", "Nombre";
        PICTURES nil, nil ;
        COLSIZES 80, 480 ;
        JUSTIFY .F., .F. ;
        OF oDlgbrow ID 4001 ;
        Alias "b_cueputt"    //OBJECT oTabla tambien funciona
       par_browse("3",oLbx,aContl[20],0,oTipmod)
   else
      REDEFINE XBROWSE oLbx ;
        COLUMNS "cod_cta", "cue_desc";
        HEADERS "Codigo", "Nombre";
        PICTURES nil, nil ;
        COLSIZES 80, 480 ;
        JUSTIFY .F., .F. ;
        OF oDlgbrow ID 4001 ;
        RECORDSET oDatos
        par_browse("3",oLbx,aContl[20],0,oDatos)

//   oBrw:bGoTop          := {|| rs:moveFirst() }
//   oBrw:bGoBottom       := {|| rs:moveLast() }
//   oBrw:bSkip           := {| n | rsSkipper( n, rs ) }
//   oBrw:bBof            := {|| rs:Bof() }
//   oBrw:bEof            := {|| rs:Eof() }
//   oBrw:bBookMark       := {| bmNew | IIF( bmNew == NIL, rs:bookMark, rs:bookMark := bmNew) }
//   oBrw:bKeyNo          := {|| rs:AbsolutePosition }
//   oBrw:bKeyCount       := {|| rs:RecordCount() }

        oLbx:bLDblClick := { || LOF_REGS(oDatos,oDlgbrow,xnr) }

  Endif
       if memvar->x_brom2007;oLbx:l2007 := .T.;else;oLbx:l2007 := .F.;endif
       oLbx:nFreeze:=1 // para congelar la 1ª
       oLbx:lAllowColSwapping   := .F.  //-----> Trocar Colunas ,Para no permitir swap entre colrefcatnas
       oLbx:lAllowRowSizing     := .F.  //-----> Nao move as Linhas   
       AEval( oLbx:aCols, { |o| o:lAllowSizing := .f. } )

   ACTIVATE DIALOG  oDlgBrow CENTERED VALID NoSalir()  ON INIT Init01( oDlgBrow ) // ON INIT ( Eval(aBlock),dbgotop())
   ADO SELECT krefcate

Return Nil
User avatar
ruben Dario
 
Posts: 1070
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia
Top

Postby alex_cyr » Tue Sep 23, 2008 12:21 am

bueno no se si estoy bien aunque creo que estas utilizando ADORDD (yo lo hago con oleauto), yo lo que hago es darle un CLOSE() al recordset, mover mi string con las sentencias SQL y darle OPEN() y listo

slds.
alex.
alex_cyr
 
Posts: 77
Joined: Wed Jun 28, 2006 6:38 pm
Location: Chihuahua
Top

Postby Armando » Tue Sep 23, 2008 1:38 am

Alex:

Más sencillo, despues de hacer la nueva consulta, intenta con

oRs:Refresh()

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3239
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Top

Re: Como hago para que tome los datos de la nueva busqueda

Postby ruben Dario » Tue Sep 23, 2008 3:05 pm

ruben Dario wrote:Tengo Un problema cuando hago la busqueda , con sentencias SQL me muestra en el browser los datos, pero cuando vuelvo a ejecutar la sentencia SQL con otra condision no me carga los datos,


Cuando hago la busqueda con sentencias SQL sin me funciona, el problema , es al mostrar los datos en el browser lo lo actualizada.


Anexo Codigo

Code: Select all  Expand view  RUN
Static Function vl_comb(vlco1,aCamp,cQue1,cQue2)
if vlco1="Codigo Cuenta"
   vlco1:="cod_cta"
   cQue1 := cQue2+" WHERE COD_CTA  LIKE '"+ALLTRIM(aCamp)+"%' ORDER BY COD_CTA"
endif
if vlco1="Nombre Cuenta"
   vlco1:="cue_desc"
   cQue1 := cQue2+" WHERE CUE_DESC  LIKE '"+ALLTRIM(aCamp)+"%' ORDER BY COD_CTA"
endif
if aCamp = " "
   cQue1 := cQue2+" WHERE COD_CTA  ORDER BY COD_CTA"
endif

Return cQue1

Static Function CUE_BROW(xnr)
Local oLbx,oCol,oFon1,oDlgbrow,nBookMarkoKSalir,oKejec,oDatos,cQue1,cQue2,vlco1,vlco2,vlco3,vlco4
Local nRow,nCol,oChild,nFor,oLamcla,aCamp,eCamp,cCmB,;
   aItens := {'Codigo Cuenta','Nombre Cuenta'}
   aCamp := space(30)
   cCmB := "Codigo Cuenta"
   DEFINE FONT aFont[ 1 ] NAME "Arial" SIZE 0, -12
   DEFINE BRUSH aBrush[ 1 ] NAME "STONE"
   DEFINE BRUSH aBrush[ 2 ] NAME "PAPER"      //RESOURCE "PAPER"
   DEFINE FONT  oFnt01 NAME "Arial" size 07,14 BOLD //times new roman  //DIALOG
//select * from ccuentas where cod_cta LIKE "14%"
    cQue1 := "SELECT * FROM ccuentas ORDER BY COD_CTA"
    cQue2 := "SELECT * FROM ccuentas "
   vlco1:=" "
if !aContl[20]
else
   ADO SELECT ccuentas
   if oRecordSet[nRecordSet]:RecordCount() =0 //ADORecCount()
      MsgInfo("No Hay Datos ","Informacion")  //  MsgAlert( "No Hay Datos ","Informacion" )
      Return (.t.)
   endif
   EjeQueri(0,@oDatos,cQue1)
endif
  DEFINE DIALOG oDlgbrow RESOURCE "BROW_BUSQ" TITLE OemToAnsi("Consulta General");
            COLOR RGB(255,255,255),X_VENTDG2  //STYLE nOR(WS_MINIMIZEBOX) //Brush aBrush[ 1 ]
  REDEFINE SAY oSay ID 101 OF oDlgbrow FONT oFnt01 COLORS MEMVAR->X_SAYTEXT,MEMVAR->X_SAYFOND;oSay:lTransparent = .T.
  REDEFINE SAY oSay ID 102 OF oDlgbrow FONT oFnt01 COLORS MEMVAR->X_SAYTEXT,MEMVAR->X_SAYFOND;oSay:lTransparent = .T. 
  REDEFINE GET eCamp VAR aCamp ID 202 OF oDlgbrow MESSAGE "Ingrese Datos "   UpDate  //--> nº Chq
  REDEFINE COMBOBOX cCmb Items aItens ID 201 OF oDlgbrow  MESSAGE "Seleccione Criterio de Busqueda "
  REDEFINE BUTTONBMP oKSalir  ID IDCANCEL OF oDlgbrow  ACTION ( oDlgbrow:End() ) ;
      PROMPT "Salir del Formulario"  TEXTRIGHT   TOOLTIP "Salir del Formulario"             
  REDEFINE BUTTONBMP oKejec  ID IDOK OF oDlgbrow  ;
          ACTION ( vl_comb(cCmb,aCamp,@cQue1,cQue2),EjeQueri(1,@oDatos,cQue1,oLbx,oDlgBrow ) );
      PROMPT "Ejecuta Consulta"  TEXTRIGHT   TOOLTIP "Ejecuta Consulta"             
  eCamp:cToolTip := OemToAnsi( "Ingrese Dato " )
   if !aContl[20]
      REDEFINE XBROWSE oLbx ;
        COLUMNS "cod_cta", "cue_desc";
        HEADERS "Codigo", "Nombre";
        PICTURES nil, nil ;
        COLSIZES 80, 480 ;
        JUSTIFY .F., .F. ;
        OF oDlgbrow ID 4001 ;
        Alias "b_cueputt"    //OBJECT oTabla tambien funciona
       par_browse("3",oLbx,aContl[20],0,oTipmod)
   else
      REDEFINE XBROWSE oLbx ;
        COLUMNS "cod_cta", "cue_desc";
        HEADERS "Codigo", "Nombre";
        PICTURES nil, nil ;
        COLSIZES 80, 480 ;
        JUSTIFY .F., .F. ;
        OF oDlgbrow ID 4001 ;
        RECORDSET oDatos
        par_browse("3",oLbx,aContl[20],0,oDatos)

//   oBrw:bGoTop          := {|| rs:moveFirst() }
//   oBrw:bGoBottom       := {|| rs:moveLast() }
//   oBrw:bSkip           := {| n | rsSkipper( n, rs ) }
//   oBrw:bBof            := {|| rs:Bof() }
//   oBrw:bEof            := {|| rs:Eof() }
//   oBrw:bBookMark       := {| bmNew | IIF( bmNew == NIL, rs:bookMark, rs:bookMark := bmNew) }
//   oBrw:bKeyNo          := {|| rs:AbsolutePosition }
//   oBrw:bKeyCount       := {|| rs:RecordCount() }

        oLbx:bLDblClick := { || LOF_REGS(oDatos,oDlgbrow,xnr) }

  Endif
       if memvar->x_brom2007;oLbx:l2007 := .T.;else;oLbx:l2007 := .F.;endif
       oLbx:nFreeze:=1 // para congelar la 1ª
       oLbx:lAllowColSwapping   := .F.  //-----> Trocar Colunas ,Para no permitir swap entre colrefcatnas
       oLbx:lAllowRowSizing     := .F.  //-----> Nao move as Linhas   
       AEval( oLbx:aCols, { |o| o:lAllowSizing := .f. } )

   ACTIVATE DIALOG  oDlgBrow CENTERED VALID NoSalir()  ON INIT Init01( oDlgBrow ) // ON INIT ( Eval(aBlock),dbgotop())
   ADO SELECT krefcate

Return Nil
User avatar
ruben Dario
 
Posts: 1070
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia
Top

Postby Armando » Tue Sep 23, 2008 4:56 pm

Rubén:

Intenta refrescar el Browse despues de la nueva busqueda:

oBrw:Refresh()

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3239
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Top

Re: Como hago para que tome los datos de la nueva busqueda

Postby jponce » Tue Sep 30, 2008 10:31 pm

Tambien despues

oBrw:Refresh()
oDlgBrow:Update()

Atentamente,
Julio Rodrigo Ponce Hinestroza
http://www.suproye.com
Guatemala




ruben Dario wrote:
ruben Dario wrote:Tengo Un problema cuando hago la busqueda , con sentencias SQL me muestra en el browser los datos, pero cuando vuelvo a ejecutar la sentencia SQL con otra condision no me carga los datos,


Cuando hago la busqueda con sentencias SQL sin me funciona, el problema , es al mostrar los datos en el browser lo lo actualizada.


Anexo Codigo

Code: Select all  Expand view  RUN
Static Function vl_comb(vlco1,aCamp,cQue1,cQue2)
if vlco1="Codigo Cuenta"
   vlco1:="cod_cta"
   cQue1 := cQue2+" WHERE COD_CTA  LIKE '"+ALLTRIM(aCamp)+"%' ORDER BY COD_CTA"
endif
if vlco1="Nombre Cuenta"
   vlco1:="cue_desc"
   cQue1 := cQue2+" WHERE CUE_DESC  LIKE '"+ALLTRIM(aCamp)+"%' ORDER BY COD_CTA"
endif
if aCamp = " "
   cQue1 := cQue2+" WHERE COD_CTA  ORDER BY COD_CTA"
endif

Return cQue1

Static Function CUE_BROW(xnr)
Local oLbx,oCol,oFon1,oDlgbrow,nBookMarkoKSalir,oKejec,oDatos,cQue1,cQue2,vlco1,vlco2,vlco3,vlco4
Local nRow,nCol,oChild,nFor,oLamcla,aCamp,eCamp,cCmB,;
   aItens := {'Codigo Cuenta','Nombre Cuenta'}
   aCamp := space(30)
   cCmB := "Codigo Cuenta"
   DEFINE FONT aFont[ 1 ] NAME "Arial" SIZE 0, -12
   DEFINE BRUSH aBrush[ 1 ] NAME "STONE"
   DEFINE BRUSH aBrush[ 2 ] NAME "PAPER"      //RESOURCE "PAPER"
   DEFINE FONT  oFnt01 NAME "Arial" size 07,14 BOLD //times new roman  //DIALOG
//select * from ccuentas where cod_cta LIKE "14%"
    cQue1 := "SELECT * FROM ccuentas ORDER BY COD_CTA"
    cQue2 := "SELECT * FROM ccuentas "
   vlco1:=" "
if !aContl[20]
else
   ADO SELECT ccuentas
   if oRecordSet[nRecordSet]:RecordCount() =0 //ADORecCount()
      MsgInfo("No Hay Datos ","Informacion")  //  MsgAlert( "No Hay Datos ","Informacion" )
      Return (.t.)
   endif
   EjeQueri(0,@oDatos,cQue1)
endif
  DEFINE DIALOG oDlgbrow RESOURCE "BROW_BUSQ" TITLE OemToAnsi("Consulta General");
            COLOR RGB(255,255,255),X_VENTDG2  //STYLE nOR(WS_MINIMIZEBOX) //Brush aBrush[ 1 ]
  REDEFINE SAY oSay ID 101 OF oDlgbrow FONT oFnt01 COLORS MEMVAR->X_SAYTEXT,MEMVAR->X_SAYFOND;oSay:lTransparent = .T.
  REDEFINE SAY oSay ID 102 OF oDlgbrow FONT oFnt01 COLORS MEMVAR->X_SAYTEXT,MEMVAR->X_SAYFOND;oSay:lTransparent = .T. 
  REDEFINE GET eCamp VAR aCamp ID 202 OF oDlgbrow MESSAGE "Ingrese Datos "   UpDate  //--> nº Chq
  REDEFINE COMBOBOX cCmb Items aItens ID 201 OF oDlgbrow  MESSAGE "Seleccione Criterio de Busqueda "
  REDEFINE BUTTONBMP oKSalir  ID IDCANCEL OF oDlgbrow  ACTION ( oDlgbrow:End() ) ;
      PROMPT "Salir del Formulario"  TEXTRIGHT   TOOLTIP "Salir del Formulario"             
  REDEFINE BUTTONBMP oKejec  ID IDOK OF oDlgbrow  ;
          ACTION ( vl_comb(cCmb,aCamp,@cQue1,cQue2),EjeQueri(1,@oDatos,cQue1,oLbx,oDlgBrow ) );
      PROMPT "Ejecuta Consulta"  TEXTRIGHT   TOOLTIP "Ejecuta Consulta"             
  eCamp:cToolTip := OemToAnsi( "Ingrese Dato " )
   if !aContl[20]
      REDEFINE XBROWSE oLbx ;
        COLUMNS "cod_cta", "cue_desc";
        HEADERS "Codigo", "Nombre";
        PICTURES nil, nil ;
        COLSIZES 80, 480 ;
        JUSTIFY .F., .F. ;
        OF oDlgbrow ID 4001 ;
        Alias "b_cueputt"    //OBJECT oTabla tambien funciona
       par_browse("3",oLbx,aContl[20],0,oTipmod)
   else
      REDEFINE XBROWSE oLbx ;
        COLUMNS "cod_cta", "cue_desc";
        HEADERS "Codigo", "Nombre";
        PICTURES nil, nil ;
        COLSIZES 80, 480 ;
        JUSTIFY .F., .F. ;
        OF oDlgbrow ID 4001 ;
        RECORDSET oDatos
        par_browse("3",oLbx,aContl[20],0,oDatos)

//   oBrw:bGoTop          := {|| rs:moveFirst() }
//   oBrw:bGoBottom       := {|| rs:moveLast() }
//   oBrw:bSkip           := {| n | rsSkipper( n, rs ) }
//   oBrw:bBof            := {|| rs:Bof() }
//   oBrw:bEof            := {|| rs:Eof() }
//   oBrw:bBookMark       := {| bmNew | IIF( bmNew == NIL, rs:bookMark, rs:bookMark := bmNew) }
//   oBrw:bKeyNo          := {|| rs:AbsolutePosition }
//   oBrw:bKeyCount       := {|| rs:RecordCount() }

        oLbx:bLDblClick := { || LOF_REGS(oDatos,oDlgbrow,xnr) }

  Endif
       if memvar->x_brom2007;oLbx:l2007 := .T.;else;oLbx:l2007 := .F.;endif
       oLbx:nFreeze:=1 // para congelar la 1ª
       oLbx:lAllowColSwapping   := .F.  //-----> Trocar Colunas ,Para no permitir swap entre colrefcatnas
       oLbx:lAllowRowSizing     := .F.  //-----> Nao move as Linhas   
       AEval( oLbx:aCols, { |o| o:lAllowSizing := .f. } )

   ACTIVATE DIALOG  oDlgBrow CENTERED VALID NoSalir()  ON INIT Init01( oDlgBrow ) // ON INIT ( Eval(aBlock),dbgotop())
   ADO SELECT krefcate

Return Nil
jponce
 
Posts: 197
Joined: Fri Apr 18, 2008 4:21 pm
Location: Guatemala
Top
Post a reply

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 59 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group