Dataset a formX.editX

[Chuma87]

Código Delphi [-]
procedure TFPadre.Factura1Click(Sender: TObject);
var
  Factura : TFactura;

begin
  Factura := TFactura.Create(Application);
  FPadre.Factura1.Enabled := false;  
end;

Con una variable global funciona, pero el tema es que, quede bien y lo pase en el momento a los edits, cuando hago doble click sobre "Clientes"

Cuando me salta el error, y se pociciona sobre Factura.edit8.text....... pongo el cursor encima de Factura y me pone... Factura = nil

[ecfisa]

Hola Chuma87.

Según entiendo, tenés un MDIForm (padre) que llama a un MDIChild 'facturas' y este a su vez llama
a un fsNormal 'clientes'. Y la idea es ante determinada situación en el form 'clientes' enviarle datos a
componentes del form 'facturas',despues me dirás si me equivoco...

Como el problema no está en el llamado del MDIForm al MDIChild, supongamos que ya estamos con el form 'facturas'
abierto.

Voy a ponerte un ejemplo muy simplificado omitiendo toda comprobación, sólo a fín de clarificar la situación.

Tenemos en 'facturas' un TPanel o (cualquier componente receptor) y un botón llamado btCliente que ejecuta la
creación del form 'cliente', algo como:

Código Delphi [-]
uses Unit3
procedure TFactura.btClientesClick(Sender: TObject);
begin
  Clientes:= TCliente.Create(Application);
  Clientes.ShowModal;
end;

En el form 'clientes' ponemos un Edit y otro botón llamado btPasar.
Y para simplificar más la cosa, hacemos una referencia circular a el form 'facturas', algo como:

Código Delphi [-]
uses Unit2;

procedure TClientes.PasarClick(Sender: TObject);
begin
  Factura.Panel1.Caption:= Edit1.Text
end;

Esto, basándome en lo que interpreté en tu primer post. De no haber entendido mal, funciona sin provocar excepciones.

Ahora si el form 'factura' está declarado como variable local de un procedimiento como en el código que adjuntas, realmente
no sé como el form 'cliente' se va a enterar de su existencia...

Saludos.

[Chuma87]

O sea, lo que decis es que, cuando selecciono con doble click al cliente en "Clientes" guarde los datos en edits de ese Form y no de los de "facturas". De esos edits los paso a otros edits, de factura, asi es como decis? si no me equivoco..

Voy a intentar.

[ecfisa]

Hola de nuevo.

No, no digo eso.

Lo que digo es que el form 'cliente' debe poder ver (o tener acceso) al form 'factura' si es que quiere alterar el valor de un componente declarado en él.

Saludos.

[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.