FiveTech Software tech support forums

Posted: **Fri Jul 01, 2016 12:00 pm**

Hello,

I'm converting a dialog with 2 listbox to xbrowse

The two browses are browsing a recordset.

When the first one is change, I update the second recordset (not a filter, but running a new guery) and do a refresh()
With the listbox this is working fine, but with xbrowse it doesn't work.
If the second browse is showing only one record after calling the dialog, if keeps on displaying only one record, even when I change the first one.
The data of the first line is updated, but not the number of fields

I already tried to so a setado(oRs) again with the new recordset, but that doesn't work.

Posted: **Fri Jul 01, 2016 12:56 pm**

Marc

I think I understand what you are doing .. and what is interesting about xBrowse .. is that you can oRs2:Close() the recordset ( without destroying oLbx2 ) and then re-open\create the oRs2 recordset again with a new query which will probably capture your new records .. as long as the same query and fields are used and re-associated with the same oLbx2 xBrowse .. here is the pseudo code :

Create recordset oRs1 for the first xBrowse oLbx1
Create recordset oRs2... "Select Field1,Field2,Field3 where <some condition>" that ties back to the first recordset and xBrowse oLbx2

xbrowse 1 .. creates a new record
oRs2:CLose()

Re-create the same oRs2 recordset but now sql picks up the new record in your query
oRs2.... "Select Field1,Field2,Field3 where <some condition>" that ties back to the first recordset

oLbx2:ReFresh() .. using the same oRs2 value ..

What this code attempts to do is like a oRs2:ReQuery() , but you are actually closing the second recordset oRs2 and then re-creating the same recordset oRs2 which should return the results of the new row created in your first browse..

So why not just use oRs2:ReQuery() then oLbx2:ReFresh() .... sometimes that works and other times it does not based on how quickly the Sql Database can cache its new rows. When you issue a new query using the same oRs2 conditions .. generally the database will return the new appended row based on the parameters of the conditions of the first listbox.

Hope that made sense and I understood your question.

Rick Lipkin

Posted: **Fri Jul 01, 2016 2:20 pm**

Is this master-child browse?

oBrw2:oRs:Close()
oBrw2:oRs := FW_OpenRecordSet( <NewQuery> )
oBrw2:GoTop()
oBrw2:Refresh()

Note: You can also consider Data Shaping for master-child browses

Posted: **Fri Jul 01, 2016 4:47 pm**

Thank you Rao,
Now it's working.

My recordset is called 'oRSBlocks'
So I had to do:

Code: Select all

oBrw2:oRs:close()
oRSBlocks := haalC300CMBlocks(vCM) //Function that return new recordset
oBrw2:oRs := oRSBlocks
oBrw2:gotop() 
oBrw2:refresh()

Rick,

I can't do a requery(), because it's another query, but with the same returned fieldnames.
When I first did a oRs2:close(), before reading the new query, I had an error.
So I did

Code: Select all

oRs2 = haalC300CMBlocks(vCM) //Function that return new recordset
oBrw2:Refresh()

without closing it, but with bad result

Posted: **Fri Jul 01, 2016 5:36 pm**

The problem was not with closing or not closing.

You assigned new recordset object to oRs2
But oBrw:oRs was still pointing to the old recordset.

In my suggestion, you are now assigning the new recordset to oBrw:oRs. This makes it work.

Posted: **Sat Jul 02, 2016 9:28 am**

Hello, i have a problem

The idea is to type the code by hand or from a listbox, and update the description column
for this use the codeblock Helppre()
-----------
oLbxp:aCols[ 5 ]:nEditType := EDIT_GET_BUTTON //
// oLbxp:aCols[ 5 ]:bEditBlock := {||HelpcPres(oLbxp)}
oLbxp:aCols[ 5 ]:bEditBlock := {||(if(Helppre(),VolHpre(.t.),VolHpre(.f.)),.t.)}
---------------------------
Pressing the button displays the browse to select code, return it and put the description column 7
if I put this code in the VOLPRE functions, not updated anything
If lVol
oLbxp:aCols[ 5 ]:Value := cpres->pr_codi
oLbxp:aCols[ 7 ]:Value := cpres->pr_desc
Else

if I put this other code (I have seen it is not advisable to use it) but updated code and description of the two lines
If lVol
oLbxp:aCols[ 5 ]:bStrData := cpres->pr_codi
oLbxp:aCols[ 7 ]:bStrData := cpres->pr_desc
Else

Code: Select all

Static Function Lineas()
   local codpre :="  "
   XbrNumFormat( "E", .t. )
   
       DbSelectArea("pliva")
       pliva->(DBGOTOP())
       DbSelectArea("bliva")
       bliva->(ORDSETFOCUS("obra"))

      DEFINE DIALOG oDDAbmLins OF oWndIva RESOURCE "IVA_LINS"
          REDEFINE XBROWSE oLbx ID 110 OF oDDAbmlins;
             HEADERS "N.Obra","Asiento","Fecha","Cuenta","Cpto.","Descripcion","Base","Tipo";
             COLUMNS "Obra", "Asiento", "fecha","Cuenta","Concepto","Descrip","Base","tipo" ;
             SIZES 50,50,65,55,30,210,90,33;
                  ALIAS ("bliva");
                  ON CHANGE (Toma_Lin(),PonerScope("bliva","Pliva",oLbxp))

          olBx:lHScroll:=.F.  //windows style en el recurso = 0x50210000 en .f. no funciona

          REDEFINE XBROWSE oLbxp ID 120 OF oDDAbmlinp;
             HEADERS "N.Obra","Asiento","Fecha","Cuenta","Prespto.","Natu","Descripcion","Importe";
             COLUMNS "PL_OBRA", "PL_NUMASI", "PL_FECHA","PL_CUENTA","PL_PRES","PL_NATU","PL_DESC","PL_IMPORT" ;
             SIZES 50,50,60,55,40,30,210,85;
             AUTOSORT AUTOCOLS FASTEDIT LINES CELL FOOTERS;
                  ALIAS "pliva";
                  ON CHANGE (oLbxp:MakeTotals(), oLbxp:refresh ())

               oLbxp:aCols[ 5 ]:nEditType   := EDIT_GET_BUTTON 
//             oLbxp:aCols[ 5 ]:bEditBlock  := {||HelpcPres(oLbxp)}
               oLbxp:aCols[ 5 ]:bEditBlock  := {||(if(Helppre(),VolHpre(.t.),VolHpre(.f.)),.t.)}
               oLbxp:aCols[ 8 ]:nEditType   := EDIT_GET
             oLbxp:aCols[ 8 ]:nFooterType := AGGR_TOTAL
      ACTIVATE DIALOG oDDAbmLins NOWAIT;
            ON INIT ( oLbx:SetFocus(),PonerScope("bliva","pliva",oLbxp) )
       DbSelectArea("bliva")
          
return nil

//----------------------------------------------------------------------

Static Function VolHpre(lVol)
    If lVol
      oLbxp:aCols[ 5 ]:Value := cpres->pr_codi
      oLbxp:aCols[ 7 ]:Value := cpres->pr_desc
    Else
      oLbxp:gotocol( 5 )
    EndIf
    oLbxp:gotocol( 8 )
    DbSelectArea("pliva")
return nil

the code for Helppre(), thir work fine in other cases

Code: Select all

#Include "FiveWin.ch"

Static lSel,oDlg, oLbxhpPre

FUNCTION HelpPre()

       DbSelectArea("cPres")
       lSel:=.F.
       SetKey_Hlp()
       DEFINE DIALOG oDlg RESOURCE "HLP1" TITLE "Ayuda Conceptos Presupuestarios"

         REDEFINE XBROWSE oLbxhpPre ID 110 OF oDlg;
             HEADERS "Codigo","Naturaleza","Descripcion";
             COLUMNS "pr_codi", "pr_natu", "pr_desc";
             SIZES 50,50,210;
         AUTOSORT FOOTERS LINES CELL ;
             ON LEFT DBLCLICK (lSel:=.T.,oDlg:End()); 
         ALIAS "cPres"; 

       ACTIVATE DIALOG oDlg CENTERED;
          ON INIT olbxhpPre:SetFocus();
           VALID (DelKey_Hlp(),.t.)

RETURN lSel

//------------------------------------//

Static Function SetKey_Hlp()
       SET KEY VK_RETURN TO Hlp_Ok()
Return nil

Static Function Hlp_OK()
       lSel:=.t.
       oDlg:End()
Return nil

Static Function DelKey_Hlp()
       SET KEY VK_RETURN TO
Return nil

Posted: **Sat Jul 02, 2016 9:40 am**

bStrData expects a codeblock, try this:

oLbxp:aCols[ 5 ]:bStrData := { || cpres->pr_codi }
oLbxp:aCols[ 7 ]:bStrData := { || cpres->pr_desc }

Posted: **Sat Jul 02, 2016 10:42 am**

Ok, gracias Antonio, funciona

FiveTech Software tech support forums

xbrowse refresh with new recordset

xbrowse refresh with new recordset

Re: xbrowse refresh with new recordset

Re: xbrowse refresh with new recordset

Re: xbrowse refresh with new recordset

Re: xbrowse refresh with new recordset

xbrowse not refresh with bEditBlock

Re: xbrowse refresh with new recordset

Re: xbrowse refresh with new recordset