Xailer & OZ Software

Tengo
Xailer Enterprise
version 1.65 (September 2007)
serial XENT-0027A172-01
que adquiri la semana pasada
El problema es que al mandar la consulta al servidor el nombre de la
tabla lo pone en mayusculas, en servidores windows no hay problema pero
en linux si.
Aqui mando un ejemplo para su analisis y correccion.
PROYECTO (prueba.prg)
//----------------------------------------------------
/*
* Project: prueba
* File: prueba.prg
* Description: Application start module
* Author:
* Date: 09-17-2007
*/
#include "Xailer.ch"
Procedure Main()
Application:cTitle := "prueba"
TForm1():New( Application ):Show()
Application:Run()
Return
//-----------------------------------------------------
FORMA UNICA (Form1.prg)
//-----------------------------------------------------
/*
* Project: prueba
* File: Form1.prg
* Description:
* Author:
* Date: 09-17-2007
*/
#include "Xailer.ch"
CLASS TForm1 FROM TForm
COMPONENT oMySQLDataSource1
COMPONENT oSQLTable1
COMPONENT oDBBrowse1
METHOD CreateForm()
ENDCLASS
#include "Form1.xfm"
//---------------------------------------------------------- --------------------
FORMA (Form1.xfm)
//---------------------------------------------------------- --------------------
METHOD CreateForm() CLASS TForm1
Super:CreateForm()
::SetBounds( 297, 230, 846, 588 )
::SetClientSize( 838, 554 )
::cText := "Form1"
::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
::Create()
WITH OBJECT ::oMySQLDataSource1 := TMySQLDataSource():New( Self )
:cHost := "192.168.0.100"
:cUser := "datasis"
:cDatabase := "matloca"
:lConnected := .T.
:Create()
END
WITH OBJECT ::oSQLTable1 := TSQLTable():New( Self )
:oDataSource := ::oMySQLDataSource1
:cProcess := "GENERAL"
:nLockType := adLockOptimistic
:cTableName := "grup"
:lOpen := .T.
:Create()
END
WITH OBJECT ::oDBBrowse1 := TDBBrowse():New( Self )
:SetBounds( 156, 8, 674, 514 )
TBrwRecSel():Create( ::oDBBrowse1 )
:oDataSet := ::oSQLTable1
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "grupo"
:nWidth := 43
:oDataField := "grupo"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "nom_grup"
:nWidth := 147
:oDataField := "nom_grup"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "tipo"
:nWidth := 33
:oDataField := "tipo"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "comision"
:nAlignment := taRIGHT
:nWidth := 64
:oDataField := "comision"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "linea"
:nWidth := 38
:oDataField := "linea"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "depto"
:nWidth := 43
:oDataField := "depto"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "cu_inve"
:nWidth := 70
:oDataField := "cu_inve"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "cu_cost"
:nWidth := 54
:oDataField := "cu_cost"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "cu_venta"
:nWidth := 70
:oDataField := "cu_venta"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "cu_devo"
:nWidth := 70
:oDataField := "cu_devo"
:Create()
END
:Create()
END
RETURN Self
//---------------------------------------------------------- ----------------
En el IDE funciona bien tiempo de diseño pero al compilar y correr bota
el siguiente error:
TMYSQLRECORDS:QUERYALL(185)
Error MySQL/-1 Table 'matloca.GRUP' doesn't exist: TMYSQLRECORDS:QUERYALL
Arguments: ( [ 1] = Type: C Val: SHOW INDEX FROM GRUP)
Si creo otra tabla en el servidor, en este ejemplo, con el nombre "GRUP"
la prueba funciona bien, pero si elimino la tabla en minusculas "grup" y
dejo solo la que esta en mayusculas me da el mismo error pero en tiempo
de diseño.

Andrés,
> El problema es que al mandar la consulta al servidor el nombre de la tabla
> lo pone en mayusculas, en servidores windows no hay problema pero en linux
> si.
>
> Aqui mando un ejemplo para su analisis y correccion.
Gracias, pero en vez de enviarlo así, debes usar la opción del IDE
'Proyecto', 'Publicar proyecto...'. Esta opción te genera un fichero .zip
con todos los ficheros necesarios para poder compilar el proyecto.
> En el IDE funciona bien tiempo de diseño pero al compilar y correr bota el
> siguiente error:
>
> TMYSQLRECORDS:QUERYALL(185)
> Error MySQL/-1 Table 'matloca.GRUP' doesn't exist: TMYSQLRECORDS:QUERYALL
> Arguments: ( [ 1] = Type: C Val: SHOW INDEX FROM GRUP)
Por favor, añade el fichero error.log al fichero .zip del proyecto y
envianoslo para analizarlo.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

Jose F. Gimenez escribió:
Si disculpa, soy todavia muy nuevo con XAILER pero mirando el log la
version no coincide?
Xailer Version: Xailer 1.5.5 Version 1.5
Compiler: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
C/C++ Compiler: Borland C++ 5.5.1
Windows Platform: Windows XP Professional 5.01.2600 Service Pack 2
Pero el IDE dice 1.65?????
> Andrés,
>
>> El problema es que al mandar la consulta al servidor el nombre de la tabla
>> lo pone en mayusculas, en servidores windows no hay problema pero en linux
>> si.
>>
>> Aqui mando un ejemplo para su analisis y correccion.
>
> Gracias, pero en vez de enviarlo así­, debes usar la opción del IDE
> 'Proyecto', 'Publicar proyecto...'. Esta opción te genera un fichero .zip
> con todos los ficheros necesarios para poder compilar el proyecto.
>
>
>> En el IDE funciona bien tiempo de diseño pero al compilar y correr bota el
>> siguiente error:
>>
>> TMYSQLRECORDS:QUERYALL(185)
>> Error MySQL/-1 Table 'matloca.GRUP' doesn't exist: TMYSQLRECORDS:QUERYALL
>> Arguments: ( [ 1] = Type: C Val: SHOW INDEX FROM GRUP)
>
> Por favor, añade el fichero error.log al fichero .zip del proyecto y
> envianoslo para analizarlo.
>

Hola Jose, Ignacio
No entiendo porque compila la version 1.5.5 y en el IDE dice que es la
version 1.6.5 pero ya funciona, borre la version instalada y baje de
nuevo xailer y lo instale.
Gracias poe su ayuda y disculpen.
Andres Hocevar
Andres Hocevar escribió:
> Tengo
> Xailer Enterprise
> version 1.65 (September 2007)
> serial XENT-0027A172-01
> que adquiri la semana pasada
>
> El problema es que al mandar la consulta al servidor el nombre de la
> tabla lo pone en mayusculas, en servidores windows no hay problema pero
> en linux si.
>
> Aqui mando un ejemplo para su analisis y correccion.
>
> PROYECTO (prueba.prg)
> //----------------------------------------------------
> /*
> * Project: prueba
> * File: prueba.prg
> * Description: Application start module
> * Author:
> * Date: 09-17-2007
> */
>
> #include "Xailer.ch"
>
> Procedure Main()
>
> Application:cTitle := "prueba"
> TForm1():New( Application ):Show()
> Application:Run()
>
> Return
> //-----------------------------------------------------
>
> FORMA UNICA (Form1.prg)
> //-----------------------------------------------------
> /*
> * Project: prueba
> * File: Form1.prg
> * Description:
> * Author:
> * Date: 09-17-2007
> */
>
> #include "Xailer.ch"
>
> CLASS TForm1 FROM TForm
>
> COMPONENT oMySQLDataSource1
> COMPONENT oSQLTable1
> COMPONENT oDBBrowse1
>
> METHOD CreateForm()
>
> ENDCLASS
>
> #include "Form1.xfm"
>
> //---------------------------------------------------------- --------------------
>
>
> FORMA (Form1.xfm)
> //---------------------------------------------------------- --------------------
>
> METHOD CreateForm() CLASS TForm1
>
> Super:CreateForm()
> ::SetBounds( 297, 230, 846, 588 )
> ::SetClientSize( 838, 554 )
> ::cText := "Form1"
> ::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
> ::Create()
>
> WITH OBJECT ::oMySQLDataSource1 := TMySQLDataSource():New( Self )
> :cHost := "192.168.0.100"
> :cUser := "datasis"
> :cDatabase := "matloca"
> :lConnected := .T.
> :Create()
> END
>
> WITH OBJECT ::oSQLTable1 := TSQLTable():New( Self )
> :oDataSource := ::oMySQLDataSource1
> :cProcess := "GENERAL"
> :nLockType := adLockOptimistic
> :cTableName := "grup"
> :lOpen := .T.
> :Create()
> END
>
> WITH OBJECT ::oDBBrowse1 := TDBBrowse():New( Self )
> :SetBounds( 156, 8, 674, 514 )
> TBrwRecSel():Create( ::oDBBrowse1 )
>
> :oDataSet := ::oSQLTable1
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "grupo"
> :nWidth := 43
> :oDataField := "grupo"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "nom_grup"
> :nWidth := 147
> :oDataField := "nom_grup"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "tipo"
> :nWidth := 33
> :oDataField := "tipo"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "comision"
> :nAlignment := taRIGHT
> :nWidth := 64
> :oDataField := "comision"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "linea"
> :nWidth := 38
> :oDataField := "linea"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "depto"
> :nWidth := 43
> :oDataField := "depto"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "cu_inve"
> :nWidth := 70
> :oDataField := "cu_inve"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "cu_cost"
> :nWidth := 54
> :oDataField := "cu_cost"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "cu_venta"
> :nWidth := 70
> :oDataField := "cu_venta"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "cu_devo"
> :nWidth := 70
> :oDataField := "cu_devo"
> :Create()
> END
>
> :Create()
> END
>
> RETURN Self
> //---------------------------------------------------------- ----------------
>
>
> En el IDE funciona bien tiempo de diseño pero al compilar y correr bota
> el siguiente error:
>
> TMYSQLRECORDS:QUERYALL(185)
> Error MySQL/-1 Table 'matloca.GRUP' doesn't exist: TMYSQLRECORDS:QUERYALL
> Arguments: ( [ 1] = Type: C Val: SHOW INDEX FROM GRUP)
>
> Si creo otra tabla en el servidor, en este ejemplo, con el nombre "GRUP"
> la prueba funciona bien, pero si elimino la tabla en minusculas "grup" y
> dejo solo la que esta en mayusculas me da el mismo error pero en tiempo
> de diseño.
>