Cita:
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
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.