Greetings Thierry

I have spent two days reviewing the foxyRb_Class class in both FIC and the original project (VFP Advances).

In VFP Advances it does not give any problem.

I wrote to Antonio Meza to see what he thinks about the matter. I'm waiting for me to answer

Hola Gustavo,

you need to set a break point just before the instruction that adds the oFoxyRB object to the form, then step through .Init() and This.TabCreate(), and understand why this fails:

this.AddObject("cntTabs","cntTabs",this.Width, this.tabHeight, this.tabBackColor)

We can also provide remote support (billable), please let me know.

Hello Place a break point before the code

this.AddObject("cntTabs","cntTabs",this.Width, this.tabHeight, this.tabBackColor)

And it tells me the error 1734... Method addobject

The third parameter to AddObject is OLE Class. I think you must add a comma there, as in

this.AddObject("cntTabs","cntTabs",,this.Width, this.tabHeight, this.tabBackColor)

thanks Tore, I think you hit the sweet spot

Hola Gustavo,

If you haven't already, using the VFP debugger, please step into the .addObject() method until the error occurs.

When the error occurs, choose suspend and post a full debugger screenshot where all details are visible (expand windows as much as possible or take a screenshot of each window maximized).

Also please report whether the error occurs the same in desktop mode.

Thanks in advance

Hello Thierry

I put breakpoints in front of the .Init () and This.TabCreate () but it seems that the FoxyRB_Class class was not instantiated

I'll send you two videos to observe the behavior. In the second you already have breakpoints that tell you and no debug is observed

https://youtu.be/wpHfPjZPrdo

https://youtu.be/MrEjLM_JXgY

Thanks for your attention

Hello Gustavo,

Thanks for your videos, however they do not really help pin down the error.

On first video you step OUT of .Load() instead of stepping INTO .AddObject() and trace code until the first error occurs.

Second video shows errors but we don't even know in which procedure they occur.

When an error occurs DO NOT IGNORE IT, instead suspend and go into the debugger to understand what happens.

WE NEED TO SEE THE FULL DEBUGGER WINDOW WITH ALL WINDOWS VISIBLE.

Please re-read my earlier post and the paper by Tamar Granor about the debugger.

WE NEED TO UNDERSTAND WHY "PROPERTY TABMAIN IS NOT FOUND" IN WEB MODE

PLEASE CONFIRM THAT THE foxyRB class WORKS OK IN DESKTOP MODE

Thanks

Hello Thierry

Continuing with the issue of FoxyRb I send you the following

Code of the .Init() of Menu_Adminitrador.scx

&& Added by FoxInCloud Adaptation Assistant version 2.25 (copy mode) on 10/30/2017 07:53:09 PM
if m.this.wlInitFirst or !m.this.wlWeb
   DoDefault() && Added by FoxInCloud Adaptation Assistant version 2.25 (copy mode) on 10/30/2017 07:53:09 PM

   && Move here the code to be executed IN DESKTOP MODE and only when form is first instantiated IN WEB MODE:
   &&  custom member initialization, BindEvent(member, 'event', thisform, 'method'), etc.
endif

if m.this.wlInitFirst
   && WEB MODE: form's initial instantiation; code below this block will later execute for each user of this form
   return
endif
&& / Added by FoxInCloud Adaptation Assistant version 2.25 (copy mode) on 10/30/2017 07:53:09 PM

SET PROCEDURE TO FoxyRB_Class.prg ADDITIVE
THIS.AddObject("FoxyRB", "FoxyRB")

THISFORM.AgregarPestana()
THISFORM.AgregarGrupo()
THISFORM.BotonesGrupoArchivos()
THISFORM.BotonesGrupoUtilitario()

Code of the .AgregarPestana() of Menu_Adminitrador.scx

WITH THISFORM.FoxyRb
	* Agregar Pestañas
	   * Principal (TabMain)
			* La pestaña principal se agrega por default, se puede ocultar si no se desea mostrar
			* se manipula por medio de propiedades, el nombre del objeto es TABMAIN
			
			* Mostrar / Ocultar Pestaña Principal
				.tabMain = .T.
			* Cambiar Nombre
				.tabMainName = "SADIN"
			* Acción a realizar al dar click
				.tabMainAction = "MESSAGEBOX( 'Ver. 1.0', 0, 'SIGMA' )"
		* Pestañas (addTab)
			* Recibe 3 parámetros:
				* Obligatorio - Nombre de la Pestaña (objeto)
				* Descripción de la pestaña, si se omite se usa el nombre de la pestaña
				* Para activar la pestaña,
			* Ejemplos
				* .AddTab("Catalogos", "Catálogos del Sistema", .t.)
				* .AddTab("Catalogos", "Catálogos del Sistema")
				* .AddTab("Catalogos")
				* .AddTab("Catalogos", .t.)
			.AddTab("Archivos", .T.)
			.AddTab("Utilitarios", "Utilitarios")
		* Opción (addOption)
			* Agregar opciones sin pestaña, su comportamiento es igual que una pestaña
			* con la diferencia que no muestra grupos ni botones
			* Recibe 3 Parámetros:
				* Obligatorio - Nombre de la opción (objeto)
				* Obligatorio - Descripción de la opción
				* Acción a ejecutar
			.AddOption("Salir", "Salir", "CLEAR EVENTS")
ENDWITH

Dear Gustavo,

This is only a consequence of the original error that we need to understand, BEFORE entering the .error() routine.

We've already seen the code you post earlier in this discussion.

So, please, re-read carefully my earlier posts or subscribe for remote support.

Hello Thierry

How is it done for remote assistance?

I can not make transfers in dollars from Venezuela but I can tell my brother to do it from Panama.

Regards

Gustavo,

Please provide your company name and full address to support at foxincloud dot com, we'll provide a PayPal proforma invoice; anyone acting for you can pay this invoice by credit card.

Hello Thierry

That support would be only once or for a period of time and its cost

Thank you

Gustavo, I'll send you a PM

Greetings Thierry

Okay.

To convert to Visual Foxpro Advances I have to re-convert the project and publish it?

I hope Mr. Meza answers

THANKS

for VFPA you just need to recompile -- code works the same

did you receive my Private Message?

If the mail is the one referring to FoxInCloud V2.2.26 ?. I received it

No, about the remote support

Sorry if I sent it by gmail to my mail has not arrived.

Please send it back to me

resent to gecr49 at gmail punto com