Novato

[AndresZaragoza]

Hola a todos, Acaba de adquirir el producto y he estado un tiempo buceando en los ejemplos para empezar a hacer algunas cosillas.

Ante todo gracias de antemano por vuestra paciencia ya que todo es nuevo, aunque trabajo en VFP, y el código en si mismo es entendible.

Estoy intentando hacer un mantenimiento de cliente basado en un fold donde mi primera pestaña es un índice y la segunda es la ficha como tal del mantenimiento.

En principio no puedo ejecutar el programa 2 veces ya que da el siguiente error: Open Error stack calls: DBUSEAREA(0) Main(7)

Creo que no ciero correctamente el fichero abierto, pero ya no se que probar.

Tengo un segundo problema, que no puedo asignar a la variable nRecno el nº de registro para poder recuperar la línea seleccionada. Imagino que el browse es un gran desconocido para mi, y no se como hacerlo.

Os agracería una ayuda para poder continuar.
Po cierto en la ayuda hay una serie de ejemplos, entre ellos alguno de browse que no los encuentro en SAMPLES\ ¿donde podría encontrarlos?

Muchas gracias de antemano
Andres

Aqui va el código:

#include "FWCE.ch"

function Main()
local oWnd, cAlias, nRecno

IF .NOT. USED("Customer")
USE ( CurDir() + "\Customer" ) NEW
ENDIF

DEFINE WINDOW oWnd TITLE "Clientes"
nRecno := 0

@ 2,1 FOLDER oFld PROMPTS "Indice", "Ficha" SIZE 225, 225
@ 1,0 LISTBOX oBrw FIELDS first,city COLSIZES 100,100 ;
OF oFld:aDialogs[1] HEADERS "Nombre 1","Nombre 2" SIZE 220,200
ACTIVATE WINDOW oWnd ;
VALID MsgYesNo( "¿Salir de clientes?" )

DbCloseAll()

SELECT Customer
USE

oWnd:End()
return nil


function salir
/* DbCloseAll()
oWnd:End() */
MsgYesNo( "¿Salir de clientes?" )
return nil

//function mensaje
// DEFINE DIALOG oDlg TITLE 'Aviso' SIZE 200,200
// ACTIVATE DIALOG oDlg CENTERED
// @ 2,2 SAY 'Hola'
return nil

[Antonio Linares]

Hola Andrés,

Bienvenido a los foros

Ante todo, por favor descarga FWPPC de nuevo ya que hemos hecho unas modificaciones relativas a los folders que posiblemente afecten a la ejecución de tu aplicación, gracias.

Los ejemplos listados en la documentación son para toda la gama de productos de FiveWin y no todos ellos están disponibles para FWPPC.

El número de registro te lo da RecNo().

Pregunta todo lo que necesites que estamos aqui para ayudarte en todo lo que podamos

[AndresZaragoza]

Muy buenas según el código publicado, y habiendo reinstalado con la nueva versión de fivewin, sigo son poder ejecutar más de una vez la aplicación (habiendo cerrado el programa).

Ayuda por favor ya que es un engorro resetear el emulador, mas cuando estoy empezando y las compilaciones son muchas.

Muchas gracias de antemano

[Antonio Linares]

Andrés,

Tienes unos errores en tu código que son los que provocan un error y de ahí que la aplicación se quede abierta y no la puedas volver a ejecutar.

Comenta estas tres líneas de tu PRG:

DbCloseAll()

// SELECT Customer
// USE
// oWnd:End()

return nil

Prueba ahora y verás como funciona correctamente y puedes ejecutar la aplicación y recompilarla tantas veces como necesites.

[AndresZaragoza]

funciona perfectamente.
gracias de nuevo Antonio.

Andres