topic-39797

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

MySql OrdScope SOLUCIONADO
Posted: Sun Dec 27, 2020 04:01 AM

El el PRIMER xBrowse hice
oBrw:bChange:= { || ( oRs2:SetFilter( 'subcli= oRs:Fieldget(2) ' ) , oRs2:Update(), xbCli:Refresh(),xTbx:SetFocus() ) }
oRs2 es la cosulta para el segundo oBrw2 y subcli es el campo. oRs:FieldGet(2) contiene el número por el que quiero filtar.

Hola,

tengo 2 xBrowse, el campo cliente contienen lo mismo en los dos.

1) FWCONNECT oConsql HOST chost USER cUser PASSWORD cPassword DB cDatabase
oRs := oConSql:RowSet( "select * from clientes" )
oRs:SetOrder(1)

  REDEFINE XBROWSE oBr1  ID 110 Of oDlg1 DATASOURCE oRs

2) oRs2 := oConSql:RowSet( "select * from cuentas" )

  REDEFINE XBROWSE oBr2  ID 115 Of oDlg1  DATASOURCE oRs2

Intento mostar en oBr2 las cuentas que corresponden al cliente en oBr1.

Tengo OrdScope() ?
o puedo hacel con filtro?

el el ON CHANGE HACESCOPE( oRs:FieldGet(2)) < numero de cliente

Function HaceScope(numero)

oRs2:SetFilter( 'subcli = numero' )
....
....

Alguna idea

Muchas gracias.

Ruben Fernandez

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: MySql OrdScope
Posted: Sun Dec 27, 2020 02:59 PM

Mira este codigo con TMySql.

Code (fw): Select all Collapse

        oCat:=oServer:Query("SELECT * FROM catalogo WHERE codigo LIKE '"+ALLTRIM(cCodigo)+"%' ORDER BY codigo;")

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

D.Fernandez

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Re: MySql OrdScope
Posted: Sun Dec 27, 2020 05:04 PM

Francisco, muchas gracias.

Como veo, haces una consulta cada vez que se cambia el registro.

No quiero hacer tantan consultas, habrá otra manera.?

Gracias

Saludos
Ruben Dario Fernandez

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: MySql OrdScope SOLUCIONADO
Posted: Mon Dec 28, 2020 12:47 PM

Prueba asi:

Code (fw): Select all Collapse

REDEFINE XBROWSE oBrw DATASOURCE oRs
              COLUMNS "codcli","nombre";
              HEADERS "Codigo","Nombre";
              SIZES 40,110 ON CHANGE Actuali()
REDEFINE XBROWSE oBrw2 DATASOURCE oRs2;
              COLUMNS "codcli","detart","cantidad","precio";
              HEADERS "Codigo","Detalle","Cant","Precio";
              SIZES 60,200,90,90 ID 105 OF oDlg 
....
***********************************************
** Busca los articulos vendidos en cada cliente
STATIC FUNCTION Actuali()
LOCAL cWhere
cWhere := "codcli= " + ClipValue2Sql(oRs:codcli) 
oRs2:SetNewFilter(SET_WHERE,cWhere,.t.)
oBrw2:Refresh()
RETURN .t.

Uso Tdolphin, no se si es tu caso...
Espero te sirva

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: MySql OrdScope SOLUCIONADO
Posted: Thu Dec 31, 2020 06:50 AM

viewtopic.php?f=3t=39801

&

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

el el ON CHANGE HACESCOPE( oRs:FieldGet(2)) < numero de cliente

Continue the discussion