Error con AdoRdd en fwh Noviembre (Solucionado)

[JoseLuis]

Buenos dias

Sigo con errores al pasar una aplicación de FWH Junio 2006 a FWH Noviembre 2010.

Codigo:

Code: Select all

///////////// AVISOS EN INTERNET
static function mirasql(titulo,aAlias) 
local oDlg, oLbx
USE base_mysql VIA "ADORDD" TABLE "recogidas" MYSQL ; 
FROM "myFTP" USER "Myuser" PASSWORD "Mypassword" alias "recogidas" NEW 
 ErrorBlock( { | oError | MsgInfo( oError:Description ) } ) 
 if recogidas->(Recno())>=1
  DEFINE DIALOG oDlg FROM 1, 1 TO 25, 79 
  oDlg:cTitle:=titulo
  @ 1, 1 LISTBOX oLbx FIELDS recogidas->fecha, ; 
  recogidas->compania, ; 
  recogidas->Nombrer, ;
  recogidas->Caller, ; 
  recogidas->Poblar, ;
  recogidas->Comentario ;
  HEADERS "Fecha ","Avisado por:","Recoger en:","Domicilio","Poblacion","Observaciones" ; 
  FIELDSIZES 45,100,100,100,60,100 ; 
  SIZE 284, 137 OF oDlg 

  oLbx:nLineStyle := 1
  oLbx:nClrBackHead := RGB(248,191,36)
  oLbx:bTextColor:= {|nRow,nCol,nStyle| If( nStyle==0 .and. nCol==8,CLR_HRED, ) }
  oLbx:nClrPane:={||iIF((oLbx:cAlias)->(OrdKeyNo())%2==0,nRGB(242,247,252),nRGB(226,226,208))}

  @154,08  BTNBMP LEFT PROMPT " Agregar"   SIZE 50,19 OF oDlg RESOURCE "grabasql"  ACTION (Descarga(aAlias),oDlg:End())
  @154,67  BTNBMP LEFT PROMPT " Modificar" SIZE 50,19 OF oDlg RESOURCE "modifisql" ACTION oDlg:End() 
  @154,125 BTNBMP LEFT PROMPT " Borrar"    SIZE 50,19 OF oDlg RESOURCE "borrasql"  //ACTION BorraU(oLbx ) 
  @154,184 BTNBMP LEFT PROMPT " Buscar"    SIZE 50,19 OF oDlg RESOURCE "buscasql"  //ACTION BuscaU(oLbx,3,"Color") 
  @154,242 BTNBMP LEFT PROMPT " Salir"     SIZE 50,19 OF oDlg RESOURCE "salirsql"  ACTION (oDlg:End())

  ACTIVATE DIALOG oDlg CENTERED ON INIT Tget():lClrFocus:=.T.
else
 msgstop("No hay avisos que traspasar","ATENCION")
endif
recogidas->(Dbclosearea())
return aAlias

Este codigo funciona perfectamente en la anterior versión.

En la nueva versión me da : "Opperation not supported", y luego otro mensaje "Unrecoverable error 9001","Error recovery failure"

Estos errorres me los indica tras haber puesto el errorblock, porque antes de ponerlo, sólo me indicaba "Too Many recursive error handler calls"

Que estoy haciendo mal?

Saludos

[JoseLuis]

Investigando, he visto que el error lo da en la linea:

Code: Select all

if recogidas->(Recno())>=1

No entiendo porqé no soporta ésta operación.

Lo que pasa es que si quito esta línea, y resulta que no hay ningun registro, tambien casca.

Como puedo indicarselo de otro modo?

Saludos

[ricardog]

Y si intentas con

Code: Select all

if !recogidas->(Eof())
                      ................
                      .................
                   else
                         msgstop("No hay avisos que traspasar","ATENCION")
                   endif

Saludos

[JoseLuis]

Da el mismo error

si pongo el errorblock antes del error, el mensaje que me da es "DISP_E_UNKNOWNNAKE", y en éste caso no aborta el programa.

Esto ocurre si no encuentra ningún registro.

[JoseLuis]

Por si a alguien le ocurre lo mismo, ya que me ha vuelto loco un tiempo.

Es problema de versiones de adordd

Yo utilizaba una versión fechada en mayo de 2007, que es la que se encuentra en éste foro.

Encontré otra versión del año 2009, y me daba error de que no encontraba algunas variables como "ADSTATECLOSED" etc.

Tras ésto, el problema estaba en el adordd.ch, que también era del 2007.

Encontre otro adordd.ch del 2009 y listo

Saludos

[groiss]

José Luis:
Podrías indicar donde encontraste la versión de 2009?
Gracias y un saludo
José Luis

[JoseLuis]

Pues ni idea

Pero aqui está:


******************-

No me deja ponerlo, quizá es muy largo?

[mgsoft]

Hola,

Tienes que bajar la versión completa de Harbour desde Sourceforge, en la versión de Fivetech no está todo.

Un saludo