Búsqueda entre dos ddlb
Estoy haciendo un formulario en el que hay dos dlb, uno es para seleccionar el tipo de documento (EMITIDO o RECIBIDO) y el otro es para seleccionar el estado (Atendido, En Tramite, Pendiente, Archivado), en fin.. El asunto es que hice un cursor que es este:
string stado, tipo
tipo = string(ddlb_tipo.text)
stado = string (ddlb_1.text)
DECLARE Buscar CURSOR FOR
SELECT Documento.NReg,
Documento. NOficio,
Documento. FReg,
Documento. HReg,
Documento. Tipo,
Documento. FDoc,
Documento. TipoDoc,
Documento. NFolios,
Documento. NExp,
HistoricoDocumento. OficinaEnvio,
HistoricoDocumento. UsuarioEnvio,
HistoricoDocumento. OficinaRecepcion,
HistoricoDocumento. UsuarioRecepcion,
Documento. Asunto,
Documento. Estado,
HistoricoDocumento. Respuesta
FROM Documento,
HistoricoDocumento
WHERE ( HistoricoDocumento.NReg = Documento.NReg ) and
( HistoricoDocumento.NOficio = Documento.NOficio ) and
( ( Documento.Tipo = :tipo ) AND
( Documento.Estado = :stado )
) ;
open Buscar;
fetch Buscar into :stado, :tipo;
do until sqlca.sqlcode=100
fetch Buscar into :stado, :tipo;
loop
close Buscar;
pero lo puse en una funcion que en el open de la ventana llama a la funcion
y el el boton mostrar puse lo siguiente
string stado, tipo
tipo=string (Left(ddlb_tipo.text,5))
stado= string (left(ddlb_1.text,15))
dw_1.settransobject( sqlca)
dw_1. Retrieve(stado, tipo )
Por favor te ruego dime cual es mi error o como podría hacer la consulta.
string stado, tipo
tipo = string(ddlb_tipo.text)
stado = string (ddlb_1.text)
DECLARE Buscar CURSOR FOR
SELECT Documento.NReg,
Documento. NOficio,
Documento. FReg,
Documento. HReg,
Documento. Tipo,
Documento. FDoc,
Documento. TipoDoc,
Documento. NFolios,
Documento. NExp,
HistoricoDocumento. OficinaEnvio,
HistoricoDocumento. UsuarioEnvio,
HistoricoDocumento. OficinaRecepcion,
HistoricoDocumento. UsuarioRecepcion,
Documento. Asunto,
Documento. Estado,
HistoricoDocumento. Respuesta
FROM Documento,
HistoricoDocumento
WHERE ( HistoricoDocumento.NReg = Documento.NReg ) and
( HistoricoDocumento.NOficio = Documento.NOficio ) and
( ( Documento.Tipo = :tipo ) AND
( Documento.Estado = :stado )
) ;
open Buscar;
fetch Buscar into :stado, :tipo;
do until sqlca.sqlcode=100
fetch Buscar into :stado, :tipo;
loop
close Buscar;
pero lo puse en una funcion que en el open de la ventana llama a la funcion
y el el boton mostrar puse lo siguiente
string stado, tipo
tipo=string (Left(ddlb_tipo.text,5))
stado= string (left(ddlb_1.text,15))
dw_1.settransobject( sqlca)
dw_1. Retrieve(stado, tipo )
Por favor te ruego dime cual es mi error o como podría hacer la consulta.
4 respuestas
Respuesta de carloscharly
1
Respuesta de achafio
1
Respuesta de vguti
1
Respuesta de anarchy9902
1