Hola buen día, espero puedan ayudarme.

Tema central:

Estoy realizando un reporte de corte de caja (igualito al que está en Microsip, pero como no se puede tener acceso a ese reporte toca hacerlo desde cero).

He revisado en IBExpertos y hallé dos procedimientos que me simplifican el trabajo: corte_caja_formas_cob y corte_caja_tipos_mov. Éstos dos procedimientos funcionan con dos variables de entrada: movto_caja_id y caja_id (de hecho, funciona sin problemas únicamente agregando el valor de movto_caja_id).

En esta parte estoy ejecutando la consulta únicamente con el valor de movto_caja_id.

Es el resultado de esa columna.

Qué he realizado hasta el momento?
En el reporteador agregué un diseñador de consultas en el que le pida al usuario los valores de fecha, hora y nombre de la caja para que así devuelva el valor de: movto caja id. Las tablas que estoy haciendo uso son: MOVTOS_CAJAS & CAJAS. Hice la prueba con este proceso para ver si me arrojaba los valores de movto caja id y afortunadamente sí funciona.

También agregué dos subreportes para que me impriman los valores de cada procedimiento (he visto que funciona como un ciclo for e imprime los valores que tengan, así como cuando se imprimen los artículos comprados en una factura).

En uno de esos subreportes, agregué una variable tipo doble y en el CALC de esa variable agregué el siguiente código:

procedure VarNetoRecibidoOnCalc(var Value: Variant);
begin
SETQUERY('SELECT NETO_RECIBIDO as neto FROM corte_caja_formas_cob (:v_movto_caja_id=:MOVTO_CAJA_ID,NULL)');
SetParamValue('MOVTO_CAJA_ID', AperturasCierresCajas['Movto Caja Id']);
OPENQUERY;
Value := GetFieldAsFloat('neto');
end;

Cuando ejecuto el reporte me aparece el siguiente error:

De antemano les agradezco muchísimo y espero puedan apoyarme con este tema, porque ya no encuentro cómo sacar ese reporte :c
De hecho no sé si esté bien la consulta para los procedimientos.

gracias.