Consulta en Cero si no se encuentra datos

[pcicom]

Código SQL [-]

SELECT '782538' AS cedula,(case WHEN valor<>NULL THEN valor ELSE 0 END)  AS valorSinNulo FROM nomina where concepto='hora extra' and cedula='782538';

Lo que tendrias que hacer es crear el comando SQL segun los campos que necesites..

Código Delphi [-]

cCedula := '782538';
cConcepto := 'hora extra';

cSql := 'SELECT' + QuotedStr(cCedula) + ' as cedula, (case WHEN valor<>NULL THEN valor ELSE 0 END)  AS valorSinNulo FROM nomina where concepto=' + QuotedStr(cConcepto)+' and cedula='+QuotedStr(cCedula);

qry.clear;
qry.add(cSql);
qry.open;