13 respuestas en este tema

[chaja]

Hola:
Estoy quereindo hacer una pantalla de consulta con uniGui, por lo tanto tengo un FormPrincipal, desde un menu abor otra venta, que me mostrara el estado de cta cte de un cliente, y en esta ventana puse un boton que me lleva a otra ventana para buscar el cliente. En el modo normal uso Form..Show y para la centana de busqueda la llamo como ShowModal. Cuando cierro la ventana de busqueda, guardo en una propiedad del form el codigo del cliente, se cierra y en la pantalla de listado muestro los mov del cliente. Una pregunta, en uniGui, el concepto de Modal y no Modal es lo mismo que en VCL ? Pues si ejecuto esto en Win funciona como lo esperado, pero desde un navegador, abre todas las ventasn el buecado levanta los cliente pero al salir del buscador (pantalla modal) la otra no hace nada. no levanat los datos.

delphi

procedure TuniFormCtaCteVta.UniButton1Click(Sender: TObject);
begin
  uniFormBuscadorCliente.ShowModal;
    begin
      DMMain.CDSCtaCte.Close;
      DMMain.CDSCtaCte.Params.ParamByName('codigo').Value:=uniFormBuscadorCliente.Codigo;
      DMMain.CDSCtaCte.Open;
    end;
end;

[fredycc]

Existe un demo que creo podría ayudar a entender este funcionamiento para lo que deseas realizar, se encuentra en el directorio de instalación de uniGUI llamado Dialogs Anonymous Callback en la carpeta de instalación por defualt: C:\Users\Public\Documents\FMSoft\Framework\uniGUI\Demos\, indicanos si es de utilidad de lo contrario para poder ofrecer alguna otra alternativa para lo que buscas.

Saludos.

[fredycc]

Reconsiderando el ejemplo que te mencioné anteriormente, te adjunto un demo que acabo de hacer para ver si es lo que buscas hacer.

Espero haber comprendido tu problema. 


Saludos

Archivos adjuntos

•  3508_b90faf43e616c983c30753186cbb9264a2f21149.zip   6,82KB   20 descargas

[chaja]

Hola fredyc:
Si hace lo que yo quiero, eso esta solucionado, pero el tema es asi. En general, cuando abro una pantalla como estas de busqueda, guaro en una propiedad del formulario el codigo o id del objeto buscado. El cual lo leo despues de cerrar la pantalla moda, luego ese dato como paramtero de la sigiente busqueda. Lo que veo es que en el formato web, las propiedades publicas no son tomdadas en cuenta:

delphi

type
  TuniFormBuscadorCliente = class(TUniForm)
    UniPanel1: TUniPanel;
    UniDBGrid1: TUniDBGrid;
    uniEdDatos: TUniEdit;
    btOk: TUniBitBtn;
    btCancel: TUniBitBtn;
    procedure UniFormCreate(Sender: TObject);
    procedure uniEdDatosKeyPress(Sender: TObject; var Key: Char);
    procedure btOkClick(Sender: TObject);
    procedure btCancelClick(Sender: TObject);
  private
    { Private declarations }
    FCodigo:String;
  public
    { Public declarations }
  published
    property Codigo:String read FCodigo write FCodigo ;
  end;
 
function uniFormBuscadorCliente: TuniFormBuscadorCliente;

cuando retorno del buscador no me devuelve nada, por lo cual no me deja hacer la siguiente consulta. Algo que si hace en VCL, pero en web no. La question es como se declara una property o no se puede?.

Luis

[fredycc]

, creo ya haber entendido, la implementación me parace correcta para una aplicación de escritorio, dado que para mantener esta variable que buscas es necesario mantener en memoria la form, muy probablemente tengas problemas de rendimiento posteriormente considerando el número de usuarios; te recomendaria hacer lo mismo pero desde la form principal donde colocas esta misma variable y accedes a ella. Ya lo he probado y funciona con uniGUI como lo planteaste.

Saludos

[chaja]

Master:
Bienm, pero no te comprendi como solucionarlo.... y como solucionas lo del tema de los user.....

Luis

[fredycc]

Master:
Bienm, pero no te comprendi como solucionarlo.... y como solucionas lo del tema de los user.....

Luis

Te adjunto el mismo proyecto anterior, solo pon atención en la form donde se supone buscamos algun dato, la variable o dato que captures ahí, podrás a volverlo a recuperar, del mismo modo como mencionabas, pero esta vez en la form principal.

Espero te ayude, saludos.

saludos

Archivos adjuntos

•  3511_9ee8be5367dcd3d1d5afd366e52831bf3015d0a2.zip   6,98KB   19 descargas

[chaja]

haaaaaaaaaaaaaa....... Ok entiendo usar una var global y llamarla.... de paso te pregunto.... y es algo que no vi en los ejemplos.... los form se pueden crear en tiempo de ejecucion? , tiene sentido? en el formato de VCL yo uso permanentemente esto:

delphi

procedure TFMenu.FacturasVtaCCExecute(Sender: TObject);
begin
  if not (Assigned(FormCpbte_2)) then
    FormCpbte_2 := TFormCpbte_2.Create(Application);
  FormCpbte_2.Show;
end;

cuando cierro el form hago :

delphi

procedure TFormRubro_2.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
  inherited;
end;
 
procedure TFormRubro_2.FormDestroy(Sender: TObject);
begin
  inherited;
  FormRubro_2:=nil;
end;

veo que aca no puedo puede ser??? los form no se destruyen...

Luis

[fredycc]

Muy bien, la forma correcta de crear un Form en uniGUI es lo siguiente, notarás una diferencia en el Owner del Create:

delphi

procedure TMainForm.UniButton1Click(Sender: TObject);
var
  AppForm: TAppUniForm;
begin
  AppForm:= TAppUniForm.Create(uniApplication);  <-- Checa el Owner
  AppForm.Show;
end;

y cerrar correctamente nuestra form sería algo como

delphi

procedure TAppUniForm.UniFormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action:=caFree;
end;

El sentido de crear forms en tiempo de ejecución, toma mucha importancia cuando administramos los recursos en este caso de un servidor, podrá notar o monitorear las diferencias en el monitor de recursos de uniGUI cuando trabajas de uno u otro modo, aunque hay veces que se puede justificar una form que probablemente solo baste ocultar para continuar ya que su uso es continuo.

Hay que notar que un equipo(servidor uniGUI) cargará con prácticamente la carga de trabajo y administración de nuestra aplicación.

Solo es comentario que en lo personal tomo muy en cuenta para este tipo y mayoría de mis proyectos.

Saludos

[chaja]

ok ok... despues del close, hay que hacer algo en el destroy? pues si lo llamo de nuevo, la variable puede estar cargada.... o estoy diciendo pavadas..... y esto no es valido?

delphi

procedure TFMenu.FacturasVtaCCExecute(Sender: TObject);
begin
  if not (Assigned(FormCpbte_2)) then
    FormCpbte_2 := TFormCpbte_2.Create(uniApplication);
  FormCpbte_2.Show;
end;

Luis Roldan
Mar del Plata
Argentina

[fredycc]

Correcto, no esta esta realizando la validación correctamente para verificar la creación previa de la form, debe haber alguna alternativa, ya levante la pregunta en el foro oficial, esperemos saber la respuesta pronto.

Saludos

[fredycc]

Aquí el enlace de la pregunta y la respuesta estimado Luis;

http://forums.unigui..._8607#entry8607

Ha mi entender este detalle de: saber si o no tenemos la instancia de una form creada, tenemos que llevarlo manualmente en algun tipo de registro o array como lo indica en el MainForm ó MainModule, depende de tu ingenio; esto resulta muy lógico dado que buscamos una instancia especifica de una sesión de un determinado equipo y no de aplicación principal como pasaría en una aplicación de escritorio común.

No parece complicado y va a razón más o menos del problema que ya habíamos tratado de tu variable.


Saludos.

[chaja]

Estimado amigo..:
para terminar, y pensando un poco , vale la pena hacer como en una aplicacion de escritorio, crear dinamicamente y cerrar y destruyendo form? pues la apl. correria del lado del cliente, no?, es decir se consume los recursos del que esta al otro lado de la web.... seria asi?... con este criterio que se me ocurre ahora, no me implica nada tener todos los form ya creados.... diferente en una apl de escritorio no?

Luis Roldan
Mar del Plata
Argentina

[fredycc]

Como mencionara nuestro estimago egostar, depende, depende Luis; a mi parecer no debes nunca perder de vista el rendimiento de tu servidor uniGUI (o cualquier otra aplicación) a través de /server: http://prime.fmsoft....demo.dll/server, si notas en la pantalla de resources podrá notar la memoria consumida en tu servidor de X número de sesiones activas; podrás si tu tiempo te lo permite, checar las diferencias entre crear/eliminar y volver a crear una form u objeto notando la cantidad de memoria consumida en tu server y es que es de bien saber que hay cuestiones que puedes delegar al cliente(browser) y otras que en definitiva están del lado del server.

También es bueno saber que uniGUI permite compilar para 64 bits en XE2 lo que trae grandes ventajas incluyendo mayor acceso a la memoria.

Espero haberme explicado, saludos