FiveTech Software tech support forums

Hola soy otro 'nuevo' en todo esto, y muchos años sin programar en CLIPPER, me esta costando mucho... La cabeza juega malas pasadas... Un saludo a toda la gente del foro, por aqui hay mucho nivel... me impresiona. Dejando los saludos... Estoy tomando como ejemplo CLIENTS para hacer mi aplicacion y me encuentro con muchos problemas uno de ellos es este error en la funcion REFRESH() para el repintado de un listbox. Lo que intento hacer es cambiar mediante un par de botones radio el acceso por codigo de cliente o nombre, pero me da el error que os remito en la cabezera. Si puedo solucionar esto tengo mas cositas para arreglar... Ante todo muchas gracias.

/*
Programa := Zpda.prg
Autor := Juan Zapata
Fecha := 19/07/2006
Descripcion := Aplicacion para comerciales de autoventa y reparaciones.
*/

#include "FWCE.ch"


#DEFINE DBF_LON 10
#DEFINE DBF_CLIENTES 1
#DEFINE DBF_ARTICULOS 1
#DEFINE DBF_FAMILIAS 1

STATIC OWND, CTEXTO

*--------------
FUNCTION Main()
*--------------
LOCAL OBMP

CONFIG()

ABRIR_FICHEROS()

DEFINE BITMAP OBMP NAME 'SUMASOL'

DEFINE WINDOW OWND TITLE "Z MAXPOWER PDA"

ACTIVATE WINDOW OWND;
ON PAINT OWND:SAYBITMAP (0,0,OBMP);
ON INIT CONTROL()

DBCLOSEALL()
OBMP:END()

RETURN 0

*-----------------------
FUNCTION Config()
*-----------------------

HB_LANGSELECT( "ESWIN" )
SET DELETED ON
SET DATE TO ITALIAN
SET SOFTSEEK ON
SET CENTURY ON
SET EPOCH TO 2000

Hb_LangSelect ('PL')
Hb_SetCodePage ('PLWIN')

RETURN NIL

*-----------------------
FUNCTION CONTROL()
*-----------------------
LOCAL ODUMMY

@ 0,0 BTNBMP NAME "EXIT" SIZE 40,40 OF OWND;
ACTION IF(MSGYESNO('Desea salir ?', 'Sistema'), OWND:END(),)

@ 0,40 BTNBMP NAME "CLIENT" SIZE 40,40 OF OWND;
ACTION SEL_CLIENT()

@ 0,200 BTNBMP NAME "INFO" SIZE 40,40 OF OWND

@ 0,0 BTNBMP ODUMMY NAME "" SIZE 240,40 OF OWND
ODUMMY:DISABLE()

RETURN NIL


*---------------------------
FUNCTION SEL_CLIENT()
*---------------------------
LOCAL ODLG, OFONT, OTBR, OGET1, orad

SELECT CLIENTES

SET FILTER TO
SET ORDER TO 1

HIDEKEYBOARD()

DEFINE FONT OFONT NAME 'ARIAL' SIZE 0, -10

DEFINE DIALOG ODLG RESOURCE "SELEC_CLI"

REDEFINE LISTBOX Otbr FIELDS CLIENTES->CCODCLI, CLIENTES->CNOMCLI, CLIENTES->CPOBCLI, CLIENTES->CTFO1CLI, CLIENTES->CTFO2CLI;
HEADERS "CODIGO", "NOMBRE","POBLACION","TELEFONO 1", "TELEFONO 2";
COLSIZES 50,180,140,100,100;
ID 130 OF ODLG

OTBR:={|| (NRECNO := CLIENTES->(RECNO() ),;
ODLG:END())}

* OTBR:NCLRPANE := {|| IIF ( CLIENTES->(ORDKEYNO()) % 2 == 0 ,RGB(193,221,255),RGB(221,245,255) )}


REDEFINE BUTTON ID 110 OF ODLG ACTION ODLG:END()

REDEFINE BUTTON ID 120 OF ODLG;
ACTION (NRECNO:=CLIENTES->(RECNO()), ODLG:END())

REDEFINE RADIO ORAD;
ON CHANGE ORDEN_BUSQUEDA(orad);
ID 140,150 OF ODLG

REDEFINE GET OGET1 VAR CTEXTO ID 170 OF ODLG;
ON CHANGE LOCALIZA()

ORDEN_BUSQUEDA(orad, OTBR)


ACTIVATE DIALOG ODLG CENTERED


RETURN NRECNO

*---------------------------
FUNCTION ORDEN_BUSQUEDA(orad, OTBR)
*---------------------------

* COMPROBANDO RADIO BOTON Y ASIGNANDO BUSQUEDA INDEXADA A CLIENTES*****

IF ORAD=1
SELECT CLIENTES
SET ORDER TO 1
GO TOP
OTBR:REFRESH()
ENDIF


IF ORAD=2
SELECT CLIENTES
SET ORDER TO 2
GO TOP
OTBR:REFRESH()
ENDIF

RETURN NIl

*---------------------------
FUNCTION LOCALIZA()
*---------------------------

SELECT CLIENTES
SET ORDER TO 2
DBSEEK (CTEXTO)

OTBR:refresh()


RETURN NIL


*---------------------------
FUNCTION ABRIR_FICHEROS
*---------------------------

IF .NOT. USED("CLIENTES")
USE (CURDIR()+"\CLIENTES.DBF") NEW
ENDIF

INDEX ON CLIENTES->CCODCLI TO("CLIENTES.CDX")
INDEX ON CLIENTES->CNOMCLI TO ("CLIENTES.CDX")

RETURN NIL

Hoja jhony:

Echando un vistazo previo a tu código, me parece que el problema viene por la siguiente línea:

OTBR:={|| (NRECNO := CLIENTES->(RECNO() ),;
ODLG:END())}

Ten en cuenta que la variable que usas en el redefine la estas machacando con esta. Si creo que estas haciendo lo que me imagino, cambia la línea por esta otra:

oTbr:bChange:={||(nrecno:=clientes->(recno()))}

si quieres, añade tambien el odlg:end(), pero no lo he puesto porque no se exactamente porque quiere cerrar el dialogo.

Joder! Muchas gracias Mike, tantas horas y era una linea... Bueno, otras veces ha sido por una sola palabra... Me quedan muchas horas de calentamientos de cabeza pero con gente como vosotros... da gusto. Un saludo Mike. Ahh!! ya que estoy, la linea de codigo que hay a continuacion con esa misma variable (otbr) es un intento de hacer con el listbox un efecto pijama pero tambien me da error por eso la tengo con un asterisco. Tienes idea de que es lo que puede pasar?
Me contesto yo mismo... Problema resuelto era todo por esa linea de marras del error anterior. Ya funciona