buenas noches
tengo un problema
estoy haciendo este query
Código Delphi
[-]
StrSql := 'Select T.empresa, C.TipoConsumo, C.Tdc, C.Doc, C.f_Doc, C.Hora, C.Aux, T.Descl As Trabajador, C.TOT, A.Descl As Producto ' +
' from ((( ' +
'tblConsumoC C With (noLock) ' +
'Left Join tblConsumoD D With (noLock) on (C.TDC = D.TDC and C.DOC = D.DOC)) ' +
'Left Join tblTrabajador T With (noLock) on C.Aux = T.KOD) ' +
'Left Join TblArticulo A With (noLock) on D.KOD = A.KOD) ' +
' Where C.F_DOC Between ' + QuotedStr(FormatDateTime('DD/MM/YYYY', dtFechaIni.Date)) + ' and ' +
QuotedStr(FormatDateTime('DD/MM/YYYY', dtFechaFin.Date)) + ' and TipoConsumo = ' + QuotedStr('K');
if rgEmpresa.ItemIndex <> 0 then
StrSql := StrSql + ' and C.Empresa = ' + QuotedStr(IntToStr(rgEmpresa.itemindex)) +
' Order by T.Empresa, C.TipoConsumo, T.Descl, C.Tdc, C.Doc'
Else
StrSql := StrSql + ' Order by T.Empresa, C.TipoConsumo, T.Descl, C.Tdc, C.Doc'
cuando llega a esta parte
Código Delphi
[-]
if rgEmpresa.ItemIndex <> 0 then
StrSql := StrSql + ' and C.Empresa = ' + QuotedStr(IntToStr(rgEmpresa.itemindex)) +
' Order by T.Empresa, C.TipoConsumo, T.Descl, C.Tdc, C.Doc'
Else
StrSql := StrSql + ' Order by T.Empresa, C.TipoConsumo, T.Descl, C.Tdc, C.Doc'
la variable StrSql se convierte en '' (blanco)
alguien sabe porque?
P.D. la variable strSql es de tipo String. ya probe con wideString y tambien pasa lo mismo
saludos