In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Problems with editor?

Foro público de Xailer en español
Responder
noname[1]
Mensajes: 5
Registrado: Mié Ene 21, 2009 3:08 am

Problems with editor?

Mensaje por noname[1] »

Hi. I'm using the demo version 1.9.9.
I type this in the editor:
Procedure Main()
AppData:AddData( "cVersion", "REMOTE")
AppData:AddData( "cPath", "")
AppData:AddData( "cLocking", "PROPRIETARY" )
Application:cTitle := "ADS data dictionary diff Utility"
Application:lSingleInstance := .T.
Application:oIcon := "STRUCTURE48"
if !Connect2DD()
return
endif
TForm1():New( Application ):Show()
Application:Run()
Return
//-----------------------------------------------
After saving and compiling, the text changes to this:
Procedure Main()
AppData:AddData( "cVersion", "REMOTE")
AppData:AddData( "cPath", "")
AppData:AddData( "cLocking", "PROPRIETARY" )
Application:cTitle := "ADS data dictionary diff Utility"
Application:lSingleInstance := .T.
Application:oIcon := "STRUCTURE48"
TForm1():New( Application ):Show()
Application:Run()
return
endif
TForm1():New( Application ):Show()
Application:Run()
Return
//-------------------------------------------
No matter what I do, I just can't get the text to stay as I typed it.
I'm sure I'm doing something wrong. Can someone help?
Thank you.
Reinaldo.
Rene Flores
Mensajes: 620
Registrado: Jue Mar 23, 2006 2:39 am

Problems with editor?

Mensaje por Rene Flores »

Reinaldo:
El modulo (procedure) Main en Xailer debe tomarse como "solo lectura",
es decir, debes evitar en lo posible incluir codigo escrito por ti en
dicho modulo.
Si necesitas crear variables, incializar valores o alguna otra cosa,
tienes 2 opciones para hacerlo:
1) Utilizar un INIT PROCEDURE para tus inicializaciones
o bien:
2) "Desviar" el modulo principal del codigo que contiene tu TFORM1 a
otro codigo donde realices la incializacion de los datos, en tu caso
esto ultimo es lo mas optimo porque antes del modulo MAIN, el objeto
APPLICATION no existe.
Aquí­ encuentras información sobre como desviar el módulo de carga:
http://xailer.info/esp/?p=17
Saludos
Rene Flores
http://www.ciber-tec.com
Crespo-Bazán escribió:
> Hi. I'm using the demo version 1.9.9.
>
> I type this in the editor:
>
> Procedure Main()
>
> AppData:AddData( "cVersion", "REMOTE")
> AppData:AddData( "cPath", "")
> AppData:AddData( "cLocking", "PROPRIETARY" )
>
> Application:cTitle := "ADS data dictionary diff Utility"
> Application:lSingleInstance := .T.
> Application:oIcon := "STRUCTURE48"
>
> if !Connect2DD()
> return
> endif
>
> TForm1():New( Application ):Show()
> Application:Run()
>
> Return
>
> //-----------------------------------------------
> After saving and compiling, the text changes to this:
>
> Procedure Main()
>
> AppData:AddData( "cVersion", "REMOTE")
> AppData:AddData( "cPath", "")
> AppData:AddData( "cLocking", "PROPRIETARY" )
>
> Application:cTitle := "ADS data dictionary diff Utility"
> Application:lSingleInstance := .T.
> Application:oIcon := "STRUCTURE48"
>
> TForm1():New( Application ):Show()
> Application:Run()
>
> return
> endif
>
> TForm1():New( Application ):Show()
> Application:Run()
>
> Return
>
> //-------------------------------------------
> No matter what I do, I just can't get the text to stay as I typed it.
>
> I'm sure I'm doing something wrong. Can someone help?
>
> Thank you.
>
>
> Reinaldo.
>
>
noname[1]
Mensajes: 5
Registrado: Mié Ene 21, 2009 3:08 am

Problems with editor?

Mensaje por noname[1] »

René;
Gracias.
Reinaldo.
"Rene Flores" <"rflores[nospam]"@ciber-tec.com> wrote in message
news:[email=4aada636@svctag-j7w3v3j....]4aada636@svctag-j7w3v3j....[/email]
> Reinaldo:
>
> El modulo (procedure) Main en Xailer debe tomarse como "solo lectura", es
> decir, debes evitar en lo posible incluir codigo escrito por ti en dicho
> modulo.
>
> Si necesitas crear variables, incializar valores o alguna otra cosa,
> tienes 2 opciones para hacerlo:
>
> 1) Utilizar un INIT PROCEDURE para tus inicializaciones
>
> o bien:
>
> 2) "Desviar" el modulo principal del codigo que contiene tu TFORM1 a otro
> codigo donde realices la incializacion de los datos, en tu caso esto
> ultimo es lo mas optimo porque antes del modulo MAIN, el objeto
> APPLICATION no existe.
>
> Aquí encuentras información sobre como desviar el módulo de carga:
>
> http://xailer.info/esp/?p=17
>
> Saludos
>
> Rene Flores
> http://www.ciber-tec.com
>
> Crespo-Bazán escribió:
>> Hi. I'm using the demo version 1.9.9.
>>
>> I type this in the editor:
>>
>> Procedure Main()
>>
>> AppData:AddData( "cVersion", "REMOTE")
>> AppData:AddData( "cPath", "")
>> AppData:AddData( "cLocking", "PROPRIETARY" )
>>
>> Application:cTitle := "ADS data dictionary diff Utility"
>> Application:lSingleInstance := .T.
>> Application:oIcon := "STRUCTURE48"
>>
>> if !Connect2DD()
>> return
>> endif
>>
>> TForm1():New( Application ):Show()
>> Application:Run()
>>
>> Return
>>
>> //-----------------------------------------------
>> After saving and compiling, the text changes to this:
>>
>> Procedure Main()
>>
>> AppData:AddData( "cVersion", "REMOTE")
>> AppData:AddData( "cPath", "")
>> AppData:AddData( "cLocking", "PROPRIETARY" )
>>
>> Application:cTitle := "ADS data dictionary diff Utility"
>> Application:lSingleInstance := .T.
>> Application:oIcon := "STRUCTURE48"
>>
>> TForm1():New( Application ):Show()
>> Application:Run()
>>
>> return
>> endif
>>
>> TForm1():New( Application ):Show()
>> Application:Run()
>>
>> Return
>>
>> //-------------------------------------------
>> No matter what I do, I just can't get the text to stay as I typed it.
>>
>> I'm sure I'm doing something wrong. Can someone help?
>>
>> Thank you.
>>
>>
>> Reinaldo.
>>
Responder