[Casimiro Noteví]

Recuerda poner los tags al código fuente, ejemplo:



Gracias

Código Delphi [-]
begin
    with Dmodulo.RegistroMadre2 do
      begin
          SQL.Clear ;
          SQL.Add('select * from RegistroMadre ');
          Open;
          First;
          while not Dmodulo.RegistroMadre2.Eof do
             begin
                 with Dmodulo do
                 begin
                     Dias_Madre_I.SQL.Text:=Dmodulo.Dias_M_I.InsertSQL.Text;
                     Dias_Madre_I.ParamByName('CEDULA').AsString:=DMODULO.RegistroMadre2.FieldByName('Cedula').AsString;
                     Dias_Madre_I.ExecSQL;
                     Dias_Madre_I.SQL.Text:=('select * from RegistroMadre ');
                     SHOWMESSAGE('A sido Insertado');
                 end;
              Dmodulo.RegistroMadre2.Next;
          end;
          Dmodulo.ibt.Commit;
      end;
end;