Manipular objetos desde otro objeto en otro form

[Nicolas_2011]

Empezado por ecfisa

Hola.

En ese código no estoy evaluando que sólo esté abierto uno a la vez, eso sería taréa del form principal. Pero de todos modos funcionará bién, ya que desde el form 'caja' se contempla la posibilidad de que este creado compras, ventas o ambos.

Saludos.

Amigo me esta dando un error de tipos no es aplicable, exactamente aqui.

Código Delphi [-]
procedure TFcaja.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Assigned(Ffacturacompra) and Assigned(Fventas) then
    CanClose := Ffacturacompra and Fventas.Enabled
  {error}else if Assigned(Ffacturacompra) and not Assigned(fventas) then
    CanClose := Ffacturacompra.Enabled
  else if not Assigned(Ffacturacompra) and not Assigned(fVentas) then
    CanClose := Fventas.Enabled;
end;

[ecfisa]

Empezado por Nicolas_2011

Amigo me esta dando un error de tipos no es aplicable, exactamente aqui.

Código Delphi [-]
procedure TFcaja.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Assigned(Ffacturacompra) and Assigned(Fventas) then
    CanClose := Ffacturacompra and Fventas.Enabled
  {error}else if Assigned(Ffacturacompra) and not Assigned(fventas) then
    CanClose := Ffacturacompra.Enabled
  else if not Assigned(Ffacturacompra) and not Assigned(fVentas) then
    CanClose := Fventas.Enabled;
end;

Hola Nicolas.

Es que no has copiado correctamente el código que te puse, tendría que ser:

Código Delphi [-]
  if Assigned(Ffacturacompra) and Assigned(Fventas) then
    CanClose := Ffacturacompra.Enabled and Fventas.Enabled  
  else if Assigned(Ffacturacompra) and not Assigned(fventas) then
    CanClose := Ffacturacompra.Enabled
  else if not Assigned(Ffacturacompra) and not Assigned(fVentas) then
    CanClose := Fventas.Enabled;

Saludos.

[Nicolas_2011]

Empezado por ecfisa

Hola Nicolas.

Es que no has copiado correctamente el código que te puse, tendría que ser:

Código Delphi [-]
  if Assigned(Ffacturacompra) and Assigned(Fventas) then
    CanClose := Ffacturacompra.Enabled and Fventas.Enabled  
  else if Assigned(Ffacturacompra) and not Assigned(fventas) then
    CanClose := Ffacturacompra.Enabled
  else if not Assigned(Ffacturacompra) and not Assigned(fVentas) then
    CanClose := Fventas.Enabled;

Saludos.

Buenas amigo, ya corregido el problema de falta de codigo. al ejecutar no dio problemas ahora.. apenas ejecuto, lo primero q hago es ir a los forms de compra y venta y todo sigue igual sigue dejando tanto comprar como vender.. otro problema cuando voy al form caja selecciono el usuario y la fecha presiono el boton apertura de caja. cierro el formulario y da error de violacion de acceso al modulo drugestore.exe

[ecfisa]

Empezado por Nicolas_2011

Buenas amigo, ya corregido el problema de falta de codigo. al ejecutar no dio problemas ahora.. apenas ejecuto, lo primero q hago es ir a los forms de compra y venta y todo sigue igual sigue dejando tanto comprar como vender.. otro problema cuando voy al form caja selecciono el usuario y la fecha presiono el boton apertura de caja. cierro el formulario y da error de violacion de acceso al modulo drugestore.exe

Hola.

La verdad es que no sé como estás haciendo la creación ni el llamado de los forms, así que te adjunto un ejemplo básico como para que puedas revisarlo y decirme si es lo que estas buscando.

Saludos.

[Nicolas_2011]

Empezado por ecfisa

Hola.

La verdad es que no sé como estás haciendo la creación ni el llamado de los forms, así que te adjunto un ejemplo básico como para que puedas revisarlo y decirme si es lo que estas buscando.

Saludos.

Hola! y Muchas gracias x tu tiempo ya me pongo a interpretarlo a tu ejemplo. suerte!