[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.