|
bien vamos a depurar la cadena (la vas a depurar tu)
declara una variable tipo estring llamada, myCadena, dibuja en tu form un objeto TMemo
Ahora a remplazar.
en vez de utilizar:
dbinfocaja.SQL.Add(
hay lo siguiente
myCadena := 'select 'select CA0,CA22,SUM(CA10) AS UNIALB,SUM(CA12) AS UNITAR,';
myCadena := myCadena + 'SUM(CA13) AS IMPTAR,';
'etc etc
' hasta alamcenar en tu cadena toda la sentencia
'al final en vez de hacer un execsql
'guardalo en una caja de texto
CajaMemo.text := Mycadena;
copias y pegas a cadena en el motro de base de datos y vez porque no funciona, para mi que es por el campo de tipo fecha
|