[Diana Carolina]

Hola gracias por responder. Adjunto el codigo del evento OnCreate de FrmClientes.

Código Delphi [-]
procedure TFrmClientes.FormCreate(Sender: TObject);
begin
  tmHoraActual.Enabled := True;
  SB.Panels[2].Text := dtmGeneral.qryFirmaNOM_FIRM.Value;
  SB.Panels[3].Text := 'F.T.:' + Paramstr(6);
  SB.Panels[4].Text := 'F.S.:' + FormatDateTime('dd/mm/yyyy hh:mm AM/PM', Now);

  bbtaplicar.enabled:=false;
  bbtcancelar.enabled:=false;
  bbtAdicionar.enabled:=false;

  QryOrigenes.Close;
  QryOrigenes.open;

  QryConsulta.Open;
  //activas las consultas que utilizan las vistas
  QryLmTipCl.Open;
  QryLmSectorDian.Open;
  QryGnDivip.Open;
  QryLmRegim.Open;
  QryLmTipCu.Open;
  QryOmEmiso.Open;
  //consultas que se utilizan en los combos
  QryLmTipIden.Open;
  QryFirma.Close;
  QryFirma.ParamByName('Cod_firm').AsFloat := 1;
  QryFirma.Open;

  // codigos CIIU
  QryCiiu.Close;
  QryCiiu.Open;
  // Sectores
  //Presentacion inicial
  pgDetCliente.ActivePage   := TabSituacionFinan;
  pnlSituacionFinan.Visible := True;
  pnlHistorico.Visible      := False;
  pnlRepresent.Visible      := False;
  pnlTodosRepl.Visible      := True;
  pgConyugeClie.ActivePage  := TabInfConyuge;
  pgDatosCliente.ActivePage := TabDatosBas;
  TabDatosBasNat.TabVisible := False;
  TabDatosBasJur.TabVisible := False;

  QryInsertOrdenante.Close;
  QryInsertOrdenante.Open;

  QrylmGrupEmpre.Close;
  QrylmGrupEmpre.Open;

  QryPais.Close;
  QryPais.Open;

  QryMoneda.Close;
  QryMoneda.Open;

  QrySistemasElectro.Close;
  QrySistemasElectro.Open;

  QryCiudades.Close;
  QryCiudades.Open;

  QrySectores.Close;
  QrySectores.Open;

  QryLmAecon.Close;
  QryLmAecon.Open;

  qrygnRechazo.Close;
  qrygnRechazo.Open;

  qrygnROS.Close;
  qrygnROS.Open;
  TabSituacionFinan.Caption:='Informacion Finaciera';

  QryDv_Paises.Close;
  QryDv_Paises.Open;

  qrygnActividad.Close;
  qrygnActividad.Open;

end;