Error de Browse al pasar de 16 a 32.

[Garbi]

Hola a todos, estoy pasando mi aplicacion de 16 bits a 32 y me encuentro con el problema de que al hacer un Browse (tanto tcbrowse,tsbrowse) se sale de la aplicacion sin dar ningún error, simplemente se cierra. Y ya no se por donde tirar.

[Garbi]

Con los Listbox si funciona.

[mmercado]

Hola a todos, estoy pasando mi aplicacion de 16 bits a 32 y me encuentro con el problema de que al hacer un Browse (tanto tcbrowse,tsbrowse) se sale de la aplicacion sin dar ningún error, simplemente se cierra. Y ya no se por donde tirar.

Hola Garbi:

Muéstranos el código donde defines el browser para poder ayudarte.

Saludos.

Manuel Mercado

[Garbi]

#include "FiveWin.ch"
#INCLUDE "..\include\Archivos.ch"
#INCLUDE "tcbrowse.CH"

function TARIFAS(vopcion)

local oBrush, oBar, oBmp
local oLbx
LOCAL aBoton := Array(5) // Arreglo de botones
PUBLIC oDlgt
PUBLIC oDlgtf
public ctarifasp
public ctarifa
public cctarifas
public acctarifas
public vfechatf
public vtitle
public vparte:=vopcion
public vmargentrabajo

IF oApp:aMod[8] # Nil
oApp:aMod[8]:oWnd:SetFocus() // Se coloca el foco a la ventana
oApp:aMod[8]:oWnd:Restore() // Se restaura
oApp:aMod[8]:oWnd:Refresh() // Refresca
RETURN( Nil )
ENDIF

vmargentrabajo:=0
cMARGEN := OpenDbf(fmargen,1, , , ,kmargen,"DBFCDX")
(cMARGEN)->(DbSetOrder(1))
(cMARGEN)->(Dbgotop())
acMARGEN:=select()
vmargentrabajo:=(cmargen)->euros
(cmargen)->(dbclosearea())

vfechatf:=DATE()
ctarifasp := OpenDbf(ftarifasp,1, , , ,ktarifasp,"DBFCDX")
(ctarifasp)->(DbSetOrder(1))
vfechatf:=(ctarifasp)->FECHA
actarifasp:=select()

cctarifas := OpenDbf(fctarifas,1, , , ,kctarifas,"DBFCDX")
(cctarifas)->(DbSetOrder(1))
(cctarifas)->(Dbgotop())
acctarifas:=select()

vtitle:="V."+str(vmargentrabajo,4)+".DATOS DE TARIFAS de "+vfechatf

DEFINE DIALOG odlgtf RESOURCE "TARIFAS" TITLE vtitle of oApp:oWndMain

REDEFINE BROWSE obrwtf ID 101 of odlgtf

obrwtf:bKeyDown = { | nKey, nFlags | iif(nkey==VK_ESCAPE,odlgtf:end(),;
iif((nkey >= 65 .and. nkey <=90) .or. (nkey>=97 .and. nkey<=122),;
CARACTER(CHR(NKEY)),PRODUCTOS((CcTARIFAs)->DESCRIPCIO,"",0)))}

obrwtf:bldblclick = { | nKey, nFlags | PRODUCTOS((cCTARIFAs)->DESCRIPCIO,"",0) }
ADD COLUMN to obrwtf DATA (cctarifas)->descripcio HEADER "Descripcion"

REDEFINE BTNBMP aBoton[1] ID 102 prompt "Buscar" OF odlgtf;
action buscart()

REDEFINE BTNBMP aBoton[2] ID 103 prompt "Actualizar" OF odlgtf;
action (ACTUALIZAR(),obrwtf:refresh())

REDEFINE BTNBMP aBoton[3] ID 104 prompt "Pedido" OF odlgtf;
action margen((cCTARIFAs)->DESCRIPCIO,"",0,(cctarifas)->margen)

REDEFINE BTNBMP aBoton[4] ID 105 prompt "Calculo" OF odlgtf;
action margenpi()

REDEFINE BTNBMP aBoton[5] ID 106 RESOURCE "INTERNET" OF odlgtf;
action conecta(;
"http://www.infortisa.com/spa/subcategory/"+;
substr((cctarifas)->grupo,1,5)+"/"+;
iif(substr((cctarifas)->grupo,6,1)="0",right(alltrim((cctarifas)->grupo),2),;
right(alltrim((cctarifas)->grupo),3))+".html")




ACTIVATE DIALOG odlgtf CENTER
(cctarifas)->(dbclosearea())
select(actarifasp)
(ctarifasp)->(dbclosearea())
if vparte = 1
select(actemporal)
endif
return nil

Nota.- Si lo hago solo, es decir lo saco de la aplicacion principal (que ahora solo tiene menus y este otro prg) si funcina

[Garbi]

Perdon la linea del define dialog es
DEFINE DIALOG odlgtf RESOURCE "TARIFAS" TITLE vtitle

sin el of ....., era una prueba