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?
