Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-08-2005
Avatar de el_barto
el_barto el_barto is offline
Miembro
 
Registrado: may 2005
Ubicación: Bogota Colombia
Posts: 533
Poder: 22
el_barto Va por buen camino
Cita:
Empezado por vtdeleon
Saludos

Si entendi bien, sugiero ll siguiente.

El evento OnCalcField del dataset se implementa para esto
Código Delphi [-]
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
with Table1 do begin
FieldByName('Total').AsFloat:=FieldByName('Cantidad').Asfloat*FieldByName('Costo').AsFloat;
end;
end;
Por que cuando coloco esta instruccion compilo mi programa y coloco por ejemplo en mi campo cantidad el numero 2, sebloquea totalmente el programa.

Esto me pasa despues de colocar esta instruccion.(Obviamente con los campos que uso)

Gracias
__________________
Una forma de alcanzar tus metas es ayudando a otros a alcanzar las suyas
Responder Con Cita
  #2  
Antiguo 26-08-2005
Avatar de vtdeleon
vtdeleon vtdeleon is offline
Miembro
 
Registrado: abr 2004
Ubicación: RD & USA
Posts: 3.236
Poder: 26
vtdeleon Va por buen camino
Saludos

Que error te da?
__________________
Van Troi De León
(Not) Guía, Code vB:=Delphi-SQL, ¿Cómo?
Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
Responder Con Cita
  #3  
Antiguo 26-08-2005
Avatar de el_barto
el_barto el_barto is offline
Miembro
 
Registrado: may 2005
Ubicación: Bogota Colombia
Posts: 533
Poder: 22
el_barto Va por buen camino
Ninguno, pero hice una tabla de prueba con los campos: campo1, campo2, campo3, campo4, en donde campo4 es la multiplicacion de los campos3 y campo2

Compilo coloco por ejemplo:

campo1 campo2 campo3 campo4
1 10 80

pero en el campo4 no pasa nada, doy tab paso a la sihuiente columna y ni aun asi pasa nada, pense que solo era colocar esta instruccion pero ya veo que no , entonces que es lo que me hace falta
__________________
Una forma de alcanzar tus metas es ayudando a otros a alcanzar las suyas
Responder Con Cita
  #4  
Antiguo 26-08-2005
Avatar de el_barto
el_barto el_barto is offline
Miembro
 
Registrado: may 2005
Ubicación: Bogota Colombia
Posts: 533
Poder: 22
el_barto Va por buen camino
esta es la instruccion usada:

Código Delphi [-]
 
procedure TForm1.IBDataSet1CalcFields(DataSet: TDataSet);
begin
with IBdataset1 do begin
     FieldByName('campo4').AsInteger:=FieldByName('campo2').AsInteger+FieldByName('campo3').AsInteger;
   end;
end;
__________________
Una forma de alcanzar tus metas es ayudando a otros a alcanzar las suyas
Responder Con Cita
  #5  
Antiguo 26-08-2005
Avatar de vtdeleon
vtdeleon vtdeleon is offline
Miembro
 
Registrado: abr 2004
Ubicación: RD & USA
Posts: 3.236
Poder: 26
vtdeleon Va por buen camino
Saludos

No veo nada anormal.:confuced:

Hagamos pruebas
Mostrando los datos de cada campo con un ShowMessage.
Código Delphi [-]
procedure TForm1.IBDataSet1CalcFields(DataSet: TDataSet);
begin
with IBdataset1 do begin
Showmessage(IntToStr(FieldByName('campo2').AsInteger));
Showmessage(IntToStr(FieldByName('campo3').AsInteger));
FieldByName('campo4').AsInteger:=FieldByName('campo2').AsInteger+FieldByName('campo3').AsInteger;
end;
Chequea a ver si contiene datos
__________________
Van Troi De León
(Not) Guía, Code vB:=Delphi-SQL, ¿Cómo?
Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
Responder Con Cita
  #6  
Antiguo 26-08-2005
Avatar de el_barto
el_barto el_barto is offline
Miembro
 
Registrado: may 2005
Ubicación: Bogota Colombia
Posts: 533
Poder: 22
el_barto Va por buen camino
chanfleeee nunca pasa por hay, por eso nunca calcula nada
__________________
Una forma de alcanzar tus metas es ayudando a otros a alcanzar las suyas
Responder Con Cita
  #7  
Antiguo 26-08-2005
Avatar de el_barto
el_barto el_barto is offline
Miembro
 
Registrado: may 2005
Ubicación: Bogota Colombia
Posts: 533
Poder: 22
el_barto Va por buen camino
Hola vt mira lo que lei en un foro viejo de trucomania:

Doble click sobre la tabla, y alli te sale el editor de campos.

Haces click con el boton derecho y escoges 'New Field'

Defines el campo y lo pones como tipo Calculado
y seguidamente use el codigo que posteaste en este hilo y funciona bien(por decirlo asi), lo que pasa es que no lo guardaria directamente en el campo4 si no que tendria que asignarlo en un evento del Dataset como por ejemplo beforeinsert. Asi lo hice yo, pero la verdad es que no he podido hacerlo, como tu dices.
__________________
Una forma de alcanzar tus metas es ayudando a otros a alcanzar las suyas
Responder Con Cita
Respuesta



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


La franja horaria es GMT +2. Ahora son las 06:10:16.


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