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;
QryLmTipCl.Open;
QryLmSectorDian.Open;
QryGnDivip.Open;
QryLmRegim.Open;
QryLmTipCu.Open;
QryOmEmiso.Open;
QryLmTipIden.Open;
QryFirma.Close;
QryFirma.ParamByName('Cod_firm').AsFloat := 1;
QryFirma.Open;
QryCiiu.Close;
QryCiiu.Open;
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;