abrir 2 xbrowses simultaneos

[pedroluis]

Hola Gente !
Uso FWH 17.09
Tengo un diálogo en el que abro 2 xbrowses de 2 bases de datos
distintas.
Las 2 bases de datos están indexadas con cdx.
luego de compilar, me muestra la primer base de datos ordenada correctamente,
pero la segunda me repite el primer registro en todos los renglones.
Les agradecería una mano ya que no puedo encontrarle la vuelta.
Gracias !
Pedro Lavallén - Argentina - San Luis

[Patricio Avalos Aguirre]

Hola Pedro

te falto lo mas importante, mostrar el codigo para ver donde esta el problema

[pedroluis]

Perdon, ahí va el código:

* ETIQUETAS.PRG - Generador de etiquetas. Compilar con BUILDX.BAT de FWH1709
* UV 15/05/2018
*
* Generador de etiquetas.
*
#include "vta0000.ch"
#include "winapi.ch"
#include "report.ch"
#include "xbrowse.ch"
#define VK_ENTER 13

EXTERNAL ORDKEYCOUNT, ORDKEYNO
REQUEST DBFCDX
EXTERN DBFCDX

*--------------------------------------
FUNCTION Main()
*--------------------------------------
local oDlg
local oBrwa
local oBrwr
local oxmed
local oxtip
local oxade
local oxaha
local oxrub1
local oxrub2
local oxrub3
local oxrub4
local oxrub5
local oxrub6
local oxrub7
local oxrub8
local oxrub9
local oxrub10
local lSave:=.f.

public xmed:=1
public xtip:="A"
public xade:=0
public xaha:=0
public xrub1:=0
public xrub2:=0
public xrub3:=0
public xrub4:=0
public xrub5:=0
public xrub6:=0
public xrub7:=0
public xrub8:=0
public xrub9:=0
public xrub10:=0
public xpath,wpath
public xporcen:=1.05
public oxaaa
public xaaa:=spac(30)
public oxrrr
public xrrr:=spac(30)

clos data
RDDSETDEFAULT("DBFCDX")
SET DATE FRENCH
SET CENTURY ON
SET EPOCH TO 1970
SET EXCLUSIVE OFF
SET DECIMALS TO 2
SET CONFI ON
SET DELE ON
SET _3DLOOK ON
SetHandleCount(80)

REQUEST HB_Lang_ES
REQUEST HB_CODEPAGE_ESWIN
HB_LangSelect("ES")

xporcen:=1.05

sele 2
use .\RUBNOM index .\RUBNOM EXCLUSIVE
set order to 2

sele 4
use &wpath.maeart index &wpath.maeart
set order to 2

DEFINE DIALOG oDlg RESOURCE "LABSELEC"
REDEFINE GET oxmed VAR xmed ID 107 OF oDlg picture "9" VALID xmed>0.and.xmed<4
REDEFINE GET oxtip VAR xtip ID 108 OF oDlg picture "!" VALID xtip="A".or.xtip="R"
REDEFINE GET oxade VAR xade ID 100 OF oDlg picture "999999" WHEN xtip="A"
REDEFINE GET oxaha VAR xaha ID 101 OF oDlg picture "999999" WHEN xtip="A"
REDEFINE GET oxrub1 VAR xrub1 ID 109 OF oDlg picture "999" WHEN xtip="R"
REDEFINE GET oxrub2 VAR xrub2 ID 102 OF oDlg picture "999" WHEN xtip="R"
REDEFINE GET oxrub3 VAR xrub3 ID 103 OF oDlg picture "999" WHEN xtip="R"
REDEFINE GET oxrub4 VAR xrub4 ID 104 OF oDlg picture "999" WHEN xtip="R"
REDEFINE GET oxrub5 VAR xrub5 ID 105 OF oDlg picture "999" WHEN xtip="R"
REDEFINE GET oxrub6 VAR xrub6 ID 106 OF oDlg picture "999" WHEN xtip="R"
REDEFINE GET oxrub7 VAR xrub7 ID 110 OF oDlg picture "999" WHEN xtip="R"
REDEFINE GET oxrub8 VAR xrub8 ID 111 OF oDlg picture "999" WHEN xtip="R"
REDEFINE GET oxrub9 VAR xrub9 ID 112 OF oDlg picture "999" WHEN xtip="R"
REDEFINE GET oxrub10 VAR xrub10 ID 113 OF oDlg picture "999" WHEN xtip="R"

REDEFINE BUTTON ID 115 OF oDlg ; // SI
ACTION (lSave:=.t.,sysrefresh(),oDlg:End())
REDEFINE BUTTON ID 114 OF oDlg ; // NO
ACTION (lSave:=.f.,sysrefresh(),CierraDbfs(),oDlg:End())

REDEFINE XBROWSE oBrwa FIELDS ;
str(4->articulo),;
4->Nombre ;
HEADERS;
"Art.",;
"Nombre" ;
ID 181 OF oDlg //UPDATE
oBrwa:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oBrwa:nColDividerStyle := LINESTYLE_BLACK
oBrwa:nRowDividerStyle := LINESTYLE_BLACK
oBrwa:lColDividerComplete := .t.
oBrwa:nHeaderLines := 1
oBrwa:nDataLines := 1
oBrwa:lRecordSelector := .t.
oBrwa:bClrStd := {|| { nRGB( 0, 0, 0), nRGB(210,255,233) } }
oBrwa:bClrSel := {|| { nRGB( 0, 0, 0), nRGB(210,255,233) } }
oBrwa:bClrSelFocus := {|| { nRGB( 0, 0, 0), nRGB(026,255,140) } }
oBrwa:SetFocus()
oBrwa:lVScroll := .t.
oBrwa:lHScroll := .t.
REDEFINE GET oxaaa VAR xaaa ID 4012 OF oDlg picture "@!" ;
ON CHANGE (::assign(),dbsetorder(2),;
if(BUSCOA(upper(subs(xaaa,1,::nPos-1))+upper(chr(nkey)),oBrwa),.t.,.f.) )

REDEFINE XBROWSE oBrwr FIELDS ;
str(2->rubro),;
2->Nombre ;
HEADERS;
"Rub.",;
"Nombre" ;
ID 182 OF oDlg
oBrwr:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oBrwr:nColDividerStyle := LINESTYLE_BLACK
oBrwr:nRowDividerStyle := LINESTYLE_BLACK
oBrwr:lColDividerComplete := .t.
oBrwr:nHeaderLines := 1
oBrwr:nDataLines := 1
oBrwr:lRecordSelector := .t.
oBrwr:bClrStd := {|| { nRGB( 0, 0, 0), nRGB(255,248,220) } }
oBrwr:bClrSelFocus := {|| { nRGB( 0, 0, 0), nRGB(248,195, 34) } }
oBrwr:lVScroll := .t.
oBrwr:lHScroll := .t.
ACTIVATE DIALOG oDlg CENTERED

[pedroluis]

[cnavarro]

Prueba poniendo el ALIAS ( DATASOURCE )

Code: Select all  Expand view

REDEFINE XBROWSE oBrwa ALIAS ..... FIELDS

 

[pedroluis]

Gracias por responder, pero poniendole ALIAS tampoco se actualiza el 2do. xbrowse.

[jbrita]

agregale :


sele 2
use .\RUBNOM index .\RUBNOM ALIAS base1 EXCLUSIVE
set order to 2

sele 4
use &wpath.maeart index &wpath.maeart ALIAS BASE2
set order to 2


oBrwr:cAlias := base2

saludos

[pedroluis]

No, tampoco funciona.
Saludos !

[FranciscoA]

Prueba a usar esta sintaxis en ambos browses:

Code: Select all  Expand view

REDEFINE XBROWSE oBrw  ;
               ALIAS "RUBNOM" ;
               COLUMNS "Rubro","Nombre" ;
               HEADERS "Rub","Nombre" ;
               ID 181 OF oDlg
 

Saludos

[xmanuel]

Utiliza scopes en la dbf que se muestra en el segundo browse

[nageswaragunupudi]

Please create the 2 xbrowses with this syntax:

Code: Select all  Expand view

REDEFINE XBROWSE oBrwa ALIAS ALIAS(4) ;
COLUMNS "ARTICLE","Name" ;
HEADERS "Art." ;
ID <nId> OF oDlg  // here fill the ID number
 

Code: Select all  Expand view

REDEFINE XBROWSE oBrwr ALIAS ALIAS(2) ;
COLUMNS "ITEM", "NAME" ;
HEADERS "Rub.", "First Name" ;
ID 182 OF oDlg
 

[wartiaga]

Hi, try to put this before redefine second browse:

Sele 4
Go Top

[xmanuel]

Pedro prueba con scopes. El problema es que la dbf nunca informa de eof al browse. Con los scopes si lo hará

[pedroluis]

Funcionó a la perfección la sugerencia del amigo G. N. Rao. agregando en el 1er. xbrowse ALIAS ALIAS(4) y en el 2do. ALIAS ALIAS(2)
Muchisimas Gracias !!!
Pedro Lavallén - Argentina - San Luis.