Una ayuda con parametros

[[jcarteagaf]]

Segun entendi, quieres obtener un emisor o todos.

En caso de ser asi puedes usar lo siguiente:

Código SQL [-]
SELECT * 
FROM EMISORESFACTURAS
WHERE (EMISOR=:EMISOR  OR  :EMISOR IS NULL)

Asi si quieres todos, le colocas null al parametro y devolvera todas las filas.

Si lo que necesitas es todos o algunos, puedes ir armando el query segun los emisores elegidos

Código Delphi [-]
Query1.sql.clear;
query1.sql.add('SELECT * FROM EMISORESFACTURAS');
QUERY1.SQL.ADD('WHERE EMISOR='+varEmisor1; //en varemisor1 almacenas el valor del emisor.
...
query1.sql.add('OR EMISOR='+varEmisorN;

Si necesitas ejecutar tu consulta para un emisor a la vez y luego mostrarlo todo en un gri, tendras que almacenar los datos devueltos en una tabla de memoria (kbMemtable es la mejor a mi parecer y es gratuita), pero no te olvides hacer un

Código Delphi [-]
Query1.Prepare;

antes de iniciar el proceso de las consultas

y un

Código Delphi [-]
Query1.unprepare;

al finalizar.

Saludos.

[Paulao]

Mira, abajo esta mi query. Como hago para que esta query traiga todos los emissores?

'SELECT' +
' TB_SAC_NF_CAPEADOR.NU_CX,' +
' TB_SAC_NF_CAPEADOR.NU_NF,' +
' TB_SAC_NF_CAPEADOR.SR_NF,' +
' TB_SAC_NF_CAPEADOR.NU_BOL,' +
' TB_SAC_COND_PAGTO.DESCRICAO,' +
' (TB_SAC_NF_CAPEADOR.VL_BRUTO + TB_SAC_NF_CAPEADOR.VL_DESC_ACR) VL_BRUTO,' +
' CASE TB_SAC_NF_CAPEADOR.ST_CANC' +
' WHEN 0 THEN ''NORMAL''' +
' WHEN 1 THEN ''CANCELADO''' +
' END ST_CANC,' +
' TB_SAC_NF_CAPEADOR.CD_FUNC' +
' FROM' +
' TB_SAC_NF_CAPEADOR,' +
' TB_SAC_COND_PAGTO,' +
' TB_SAC_NF_PAGAMENTO,'+
' TB_SAC_FORMA_PAGTO'+
' WHERE' +
' TB_SAC_COND_PAGTO.CD_C_PAG = TB_SAC_NF_CAPEADOR.CD_C_PAG' +

' AND TB_SAC_NF_PAGAMENTO.NU_CX = TB_SAC_NF_CAPEADOR.NU_CX' +
' AND TB_SAC_NF_PAGAMENTO.NU_NF = TB_SAC_NF_CAPEADOR.NU_NF' +
' AND TB_SAC_NF_PAGAMENTO.SR_NF = TB_SAC_NF_CAPEADOR.SR_NF' +

' AND TB_SAC_NF_PAGAMENTO.CD_F_PAG = TB_SAC_FORMA_PAGTO.CD_F_PAG' +

' AND TB_SAC_NF_CAPEADOR.NU_CX = ' + Mis_Emissores_aca;
' ORDER BY' +
' TB_SAC_NF_CAPEADOR.NU_NF';

[[jcarteagaf]]

No bastaria omitir la linea donde le pasas el codigo?

Código Delphi [-]
if Obtener_Un_Solo_Emisor then
  '  AND TB_SAC_NF_CAPEADOR.NU_CX = ' + Codigo_Emissor;

De este modo no habria condición de busqueda y deberia devolver todas las filas.

Saludos.

[Paulao]

Si, falto inteligencia. Si no lo pongo nada(NULL) viene todos. Falto yo peinsar mejor. Gracias.