Dataset a formX.editX

[Chuma87]

Corrijo:
Padre(MDIForm)/Factura(MDIChild)/Clientes(MDIChild)

En todo caso, siempre los errores me los marca sobre "facturas"...creo que ahi esta el problema, sera porq una vez que abro clientes, lo descarta?

Tengo otro proyecto, solo que esta "factura" que llama a "clientes", igual que aca, pero sin el FORMPADRE, y anda fenomenal!.

[Chuma87]

Ya esta!

es asi: Estando en la unidad del Form de Clientes, en el evento dobleclick, este es el codigo:

Código Delphi [-]
procedure TClientes.DBGrid1DblClick(Sender: TObject);
begin
  Factura := TFactura.Create(Application);
  Factura.Edit8.Text := Ads.FieldValues['CUIT'];
  Factura.Edit7.Text := Ads.FieldValues['Razon_Social'];
  Factura.Edit6.Text := Ads.FieldValues['Telefono'];
  Application.MessageBox('Carga Exitosa','Mensaje');
end;

Nunca volvia al formulario FACTURA. debia crearlo de nuevo.

Gracias!

[Chuma87]

VAAA...en realidad, lo que hace es crearme otra vez el formulario factura, entonces cuando hago la transaccion, me aparecen ahora 2 "Facturas"...

no logro comprender cual es realmente el error.

Porque lo que veo es que "factura" no esta activado o no lo reconoce. no se.

Ahora, si pongo

Código Delphi [-]
Factura.Show;
  Factura.Edit8.Text := Ads.FieldValues['CUIT'];
  Factura.Edit7.Text := Ads.FieldValues['Razon_Social'];
  Factura.Edit6.Text := Ads.FieldValues['Telefono'];
  Application.MessageBox('Carga Exitosa','Mensaje');

me salta este error.
Proyect Pr_PrincipalMDI.exe raised exception class EAccess Violation with message 'Access violation at address 0046E9F2 in module 'Pr_PrincipalMDI.exe'. Read of address 000002F4'. Process stopped. Use Step or Run to continue.

[ecfisa]

Hola.

Para evitar que te cree dos veces el mismo MDIChild, podés usar esta función en el MDIForm:

Código Delphi [-]
procedure TMDIForm.CrearChild(ClassForm: TFormClass);
var
  i: Integer;
begin
  for i:= 0 to MDIChildCount do  // Buscar si está creada
   if Screen.Forms[i].ClassName = ClassForm.ClassName then // ¿ Ya existe ?
   begin
     Screen.Forms[i].WindowState:= wsNormal;  // restaurar
     Screen.Forms[i].BringToFront;            // Traer al frente
     Exit;                                    // Salir;
   end;
  with ClassForm.Create(nil) do Show; // No existe, crearlo
end;

Ejemplo de llamada:

Código Delphi [-]
     CrearChild(TClientes);

Para que el MDIChild se cierre y no se minimize incluí en el evento OnClose del mismo:

Código Delphi [-]
procedure TClientes.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action:= caFree;
end;

Saludos.