claro que si
aunque ya lo cambie de otra forma
Código Delphi
[-]
procedure TfrmReporteConsumo.btnGrabarClick(Sender: TObject);
var StrSql :WideString;
begin
StrSql := '';
if (rgTipoVenta.ItemIndex = 0) and (rgEmpresa.ItemIndex = 0) Then
begin
StrSql := 'Select T.empresa, C.TipoConsumo, C.Aux, T.Descl As Trabajador, Sum (C.TOT) As Total ' +
' from ' +
'tblConsumoC C ' +
'Left Join tblTrabajador T on C.Aux = T.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') +
iif (edtTrabajador.Text = '', '', ' and C.AUX = ' + QuotedStr(edtTrabajador.text)) +
' order by T.Empresa, T.Descl, C.Tdc, C.Doc'
end;
if (rgTipoVenta.ItemIndex = 0) and (rgEmpresa.ItemIndex <> 0) Then
begin
StrSql := 'Select T.empresa, C.TipoConsumo, C.Aux, T.Descl As Trabajador, Sum (C.TOT) As Total ' +
' from ' +
'tblConsumoC C ' +
'Left Join tblTrabajador T on C.Aux = T.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') +
iif (edtTrabajador.Text = '', '', ' and C.AUX = ' + QuotedStr(edtTrabajador.text)) +
' and T.Empresa = ' + QuotedStr(IntToStr(rgEmpresa.itemindex)) + ' Order by T.Empresa, T.Descl, C.Tdc, C.Doc'
end;
if rgTipoVenta.ItemIndex = 1 Then
begin
StrSql := 'Select T.empresa, C.TipoConsumo, C.Aux, T.Descl As Trabajador, Sum (C.TOT) As Total ' +
' from ' +
'tblConsumoC C ' +
'Left Join tblTrabajador T on C.Aux = T.KOD ' +
' Where C.F_DOC Between ' + QuotedStr(FormatDateTime('DD/MM/YYYY', dtFechaIni.Date)) + ' and ' +
QuotedStr(FormatDateTime('DD/MM/YYYY', dtFechaFin.Date)) + ' and TipoConsumo = ' + QuotedStr('C') +
' Order by T.Empresa, T.Descl, C.Tdc, C.Doc'
end;
qryConsumos.SQL.Clear;
qryConsumos.sql.Add(StrSql);
qryConsumos.Open;
end;
y ya esta funcionando normal
cosas del orinoco?