Ver Mensaje Individual
  #11  
Antiguo 16-08-2006
Avatar de anghell77
anghell77 anghell77 is offline
Miembro
 
Registrado: may 2006
Posts: 194
Reputación: 21
anghell77 Va por buen camino
A ver si ando bien... En la interfaz de Comprobantes esté el Grid con Los datos de los Clientes?....bueno, si es que es así ojalá te sirva lo siguiente.

Si deseas que al hacer CLick sobre algún Codigo o Nombre de Cliente quieres que aparezca en el Siguiente Form el Código y Nombre de Cliente, entonces creo que el codigo :

Código SQL [-]
Select *from Clientes, Comprobantes where Codigo.Clientes=Comprobantes.Cod_Cliente
and Comprobantes.Cod_Cliente=:entrada
Más

Código Delphi [-]
select_Cliente.Close;
select_Cliente.ParamByName('entrada').AsString:=trim(DBGrid1.SelectedField.Asstring);
select_Cliente.Open;
Form_Detalles.Show;

Donde, el evento onShow de éste Form:


Código Delphi [-]
TablaComprobantes.Close;
TablaComprobantes.ReadOnly:=false;
TablaComprobantes.Open;
TablaComprobantes.Append;
//Abre la tabla comprobantes sin datos visibles para que puedas agregar lo que desees.


y Coloca Dos DBEdit que vengan de la consulta select_Cliente, correspondientes a Codigo Cliente y Nombre. De ésta manera tendrás éstos dos datos visibles sin tener que capturar nuevamente el mismo codigo de cliente ni el nombre.

Ahora, al presionar Guardar o Aceptar.

Código Delphi [-]
if Application.MessageBox('Desea Agregar Otro Registro de Comprobantes para el mismo cliente?', 'Atención', MB_YesNo+Mb_IconQuestion)=IDYes then
begin
TablaComprobantes.Close;
TablaComprobantes.ReadOnly:=false;
TablaComprobantes.Open;
TablaComprobantes.Append;
end
else
Select_Cliente.CLose;//cierra la consulta que se ejecuto mediante el DBgrid
Form_Comprobantes.Close;//Devuelve al formulario original
//Si el DBGrid está ligado al DataSource de la tabla de Comprobantes 
TablaComprobantes.Active:=true;
//Si está ligado a una Consulta que despliegue los datos
Consulta.Close;
COnsulta.Open;//Para que se cargue el dato agregado

Eso es suponiendo "... En la interfaz de Comprobantes esté el Grid con Los datos de los Clientes?"

{Saludos}
__________________
"...Ayer Bastaba un Sueño..."
Responder Con Cita