Xailer & OZ Software

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.

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.
>
>

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.
>>