Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 03-06-2011
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.015
Poder: 23
oscarac Va por buen camino
Si estaba marcado

pero ya esta funcionando cuando hice una correccion

Tenia esta Variable que armaba la cadena

Código Delphi [-]
StrSql := 'Select T.empresa, T.Cos, COS.Descripcion, C.TipoConsumo, C.Aux, T.Descl As Trabajador, Sum (D.PT) As Total,  ' +
                'Sum(Case When D.Subvencion = 1 then d.Subvencion else 0 end) As Cantidad from ' +
                'tblConsumoC C ' +
                'Left Join TblConsumoD D on C.TDC + C.DOC = D.TDC + D.DOC ' +
                'Left Join tblTrabajador T on C.Aux = T.KOD ' +
                'Left Join tblCCosto COS on T.COS = Cos.CCOSto ' +
                ' Where C.STS <> ' + QuotedStr('A') + ' and C.F_DOC Between ' + QuotedStr(FormatDateTime('DD/MM/YYYY', dtFechaIni.Date)) + ' and ' +
                QuotedStr(FormatDateTime('DD/MM/YYYY', dtFechaFin.Date)) + ' and TipoConsumo = ' + QuotedStr('K') +
                iif (edtTrabajador.Text = '', '', ' and C.AUX = ' + QuotedStr(edtTrabajador.text)) +
                ' and T.Empresa = ' + QuotedStr(IntToStr(rgEmpresa.itemindex)) +
                ' Group by T.empresa, T.Cos, Cos.Descripcion, C.TipoConsumo, C.Aux, T.Descl ' +
                ' order by T.Empresa, T.COS, T.Descl';

y cuando lo modifique por esta cadena funciono y ya pude ver el valor de la variable

Código Delphi [-]
StrSql := 'Select T.empresa, T.Cos, COS.Descripcion, C.TipoConsumo, C.Aux, T.Descl As Trabajador, Sum (D.PT) As Total,  ' +
                'Sum(Case When D.Subvencion = 1 then d.Subvencion else 0 end) As Cantidad from ' +
                'tblConsumoC C ' +
                'Left Join TblConsumoD D on C.TDC + C.DOC = D.TDC + D.DOC ' +
                'Left Join tblTrabajador T on C.Aux = T.KOD ' +
                'Left Join tblCCosto COS on T.COS = Cos.CCOSto ' +
                ' Where Isnull(C.STS, ' + QuotedStr('') + ') <> ' + QuotedStr('A') + ' and C.F_DOC Between ' + QuotedStr(FormatDateTime('DD/MM/YYYY', dtFechaIni.Date)) + ' and ' +
                QuotedStr(FormatDateTime('DD/MM/YYYY', dtFechaFin.Date)) + ' and TipoConsumo = ' + QuotedStr('K') +
                iif (edtTrabajador.Text = '', '', ' and C.AUX = ' + QuotedStr(edtTrabajador.text)) +
                ' and T.Empresa = ' + QuotedStr(IntToStr(rgEmpresa.itemindex)) +
                ' Group by T.empresa, T.Cos, Cos.Descripcion, C.TipoConsumo, C.Aux, T.Descl ' +
                ' order by T.Empresa, T.COS, T.Descl';

porque el campo C.STS tiene valores Null

podria ser que si delphi "interpreta" que un campo tiene valores null no muestra la cadena resultante? loco no?
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Guardar valor de variables dentro del ejecutable jourdan OOP 5 19-07-2010 18:53:47
Valor Variables en un input cirilungol HTML, Javascript y otros 2 21-03-2007 18:42:16
Variables session sin valor mieltxo PHP 3 26-10-2006 15:27:57
Porque no puedo ver la pantalla de MS-DOS al entrar con el VNC ???? AGAG4 Redes 2 31-08-2006 20:53:51
Preguntar por valor de variables en Excel patu Servers 1 27-10-2003 15:58:06


La franja horaria es GMT +2. Ahora son las 19:10:31.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi