Como pasar datos entre dos formas modales creadas dinamicamente

[[Lepe]]

Código Delphi [-]
          dmTablas.DBFacturacion.Commit;
        except
          dmTablas.DBFacturacion.Rollback;
       raise;
        end;

El raise, es para que vuelva a levantar la excepción que se ha producido, si no, no te enteras de nada, se realiza el Rollback y no muestra el error.

saludos

[Tauro78]

Gracias Lepe por tu comentario, Monchi me podrias poner un pequeño ejemplo
de lo que comentas si no es molestia, gracias.

[Monchi]

Aca te mando un ejemplito de como lo uso yo:
Tengo un form donde agrego los comprobante que quiero pagar.
Este el el boton donde llamo al form donde elijo cuales comprobantes agregar y que monto voy a pagar.

Código Delphi [-]
  public
    { Public declarations }
    g_detallePago:array [0..99]of recdetallepago;
  end;

procedure tfrmpagos.Agregar(sender:tobject);
var
codigo_comprobante:array [0..99] of longword;
monto_pago:array [0..99] of currency;
i:integer;
begin
for i:=0 to g_cantidadcomprobantes-1 do
   begin
   codigo_comprobante[i]:=g_detallepago[i].id_compra;
   monto_pago[i]:=g_detallepago[i].monto;
   end;
frmagregarcomprobante:=tfrmagregarcomprobante.Create(self);
frmagregarcomprobante.Abrir(codigo_comprobante,monto_pago,'P',strtoint(txtproveedor.Text),g_cantidad  comprobantes);
for i:=0 to g_cantidadcomprobantes-1 do
   begin
   g_detallepago[i].id_compra:=codigo_comprobante[i];
   g_detallepago[i].monto:=monto_pago[i];
   end;
end;

Y este es la llamada que tiene el form donde elijo los comprobantes

Código Delphi [-]
procedure tfrmAgregarComprobante.Abrir(var codigo:array of longword;var monto:array of currency;tipo:string;id_proveedor:word;var cantidad_comprobantes:integer);
var
i:integer;
begin
g_cantidad_comprobantes:=cantidad_comprobantes;
for i:=0 to g_cantidad_comprobantes-1 do
   begin
   g_codigo[i]:=codigo[i];
   g_monto[i]:=monto[i];
   end;
frmagregarcomprobante.ShowModal;
cantidad_comprobantes:=g_cantidad_comprobantes;
for i:=0 to cantidad_comprobantes-1 do
   begin
   codigo[i]:=g_codigo[i];
   monto[i]:=g_monto[i];
   end;
end;

Como ves, paso arrays de tipo var entre los form para poder trabajar los datos.
Espero te sirva
Saludos!

[Tauro78]

Muchas gracias Monchi, voy a probar a ver como me va.

[[Lepe]]

Sugerencia:

Si los montos van relacionados con los pagos, quizás podría hacerse así también

Código Delphi [-]

type Datos = record
    monto : currency;
    comprobante : longword;
  end;

type ADatos = array of Datos; // no indicamos el tamaño, lo hacemos luego.

procedure tfrmpagos.Agregar(sender:tobject);
var i:integer;
     M: ADatos;
begin
SetLength(M, g_cantidadComprobantes -1); // damos tamaño al array, desde 0 hasta g_cantidadcomprobantes

for i:=0 to g_cantidadcomprobantes-1 do
   begin
   m[i].comprobante:=g_detallepago[i].id_compra;
   m[i].Monto :=g_detallepago[i].monto;
   end;

En un hilo reciente se habló de copiar Arrays con la función copy, podría servir aquí, para quitar un bucle:

Código Delphi [-]
copy(g_detallepago, codigo_comprobante);

Resumiendo, usar un array de records para pasar un solo parámetro a las funciones y usar Copy para copiar arrays enteros de uno a otro.

Espero os sirva.

Saludos