Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos


 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo Hace 1 Semana
Saul Rivera Saul Rivera is offline
Miembro
 
Registrado: abr 2019
Posts: 16
Poder: 0
Saul Rivera Va por buen camino
Exclamation Columna lookupcombobox cxGrid Delphi7

Hola tengo un cxgrid con una columa llamada producto que se llena con dataset el proble es que ahora ocupo que se llene mediante un parametro que se asigna en tiempo de ejecucion de la siguiente manera
yo tengo un lookupcombobox que muestra el nombre de proyecto y necesito que en el grid se sargue un query que tiene como parametro en el where el id del proyecto, entonces al momento de seleccionar el nombre del proyecto deb capturar el id de ese proyecto y mandarlo como parametro el query para que me muestre los productos que estan asignados a ese proyecto

este es mi query
Código SQL [-]
SELECT P1.ID_PROYECTO,
P1.NOMBRE,
I1.COD_PRODUCTO,
NOMBRE = case 
    WHEN dbo.ObtenerDeConfiguracion(216) = '0' then
        I1.nombre
    else 
        I1.COD_UPC_PROPIO + ' - ' + I1.nombre
    end, 
I2.CANTIDAD_STOCK
FROM PR_PROYECTOS P1
    INNER JOIN PR_FICHA_HDR F1
          ON F1.ID_PROYECTO = P1.ID_PROYECTO
    INNER JOIN PR_FICHA_DTL_MAT F2
          ON F1.ID_FICHA = F2.ID_FICHA
    INNER JOIN INV_PRODUCTOS I1
          ON F2.COD_PRODUCTO = I1.COD_PRODUCTO
    INNER JOIN INV_EXISTENCIAS I2
          ON I1.COD_PRODUCTO = I2.COD_PRODUCTO
    LEFT JOIN OT_ORDEN_TRABAJO_PROYECTO_HDR T1
          ON P1.ID_PROYECTO = T1.ID_PROYECTO
WHERE P1.ID_PROYECTO = :ID_PROYECTO
con esto lleno el cxgrid pero me tira este error "invalid imput parameter values. check the status values for detail"

esto supongo es porque no le mando el id del proyecto para que busque la informacion y no se como hacerlo
Intente esto y no me funciono

Código Delphi [-]
procedure TfrmRequisicion.gvDataDBTableView1COD_PRODUCTOCompareValuesForCellMerging(
  Sender: TcxGridColumn; AProperties1: TcxCustomEditProperties;
  const AValue1: Variant; AProperties2: TcxCustomEditProperties;
  const AValue2: Variant; var AAreEqual: Boolean);
begin
  dmMain.qryAProductos.ParamByName('ID_PROYECTO').AsInteger := dmMain2.qryProyectos.FieldByName('ID_PROYECTO').AsInteger
end;
Espero puedan ayudarme Soy muy nuevo en delphi

Última edición por Casimiro Notevi fecha: Hace 1 Semana a las 09:56:08.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Separador de miles en columna de cxgrid dardusso23 Varios 4 21-07-2016 15:08:05
Recuperar el valor de una columna seleccionada en un CXGRID darkamerico Varios 4 30-03-2016 00:11:16
Columna en cxgrid no relacionada con tabla o consulta dunia_lv OOP 3 06-07-2010 18:31:16
colocar cursor en columna de cxgrid ingmichel Internet 3 04-05-2010 00:11:44
columna autocalculada en cxgrid VIRU Conexión con bases de datos 5 26-05-2006 10:02:23


La franja horaria es GMT +2. Ahora son las 15:33:24.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi