Faktura NR

Gør sådan her:

Her er en procedure der kopierer en record og giver den et nyt nr.

Procedure make_copy(Gl_Fnr, Ny_Fnr : integer);
var i : integer;
begin
  if fra.findkey([Gl_Fnr]) then
  begin
    til.insert;
    for i := 1 to fra.fieldcount -1 do
    begin
      til.fields[i] := fra.fields[i];
    end;
      til.fields[0].asinteger := Ny_Fnr;
    end;
    til.post;
  end;
end;

Sæt 2 tables på din form. Kald det ene for FRA og det andet TIL. Lad dem begge pege på fakturatablet. Åben begge tables og kald proceduren med det nr du vil kopiere fra (som Gl_Fnr) og det nummer den nye faktura skal have (som Ny_Fnr):

make_copy(glnr, nynr);

så enkelt er det

sjensen

Ups. en lille syntax fejl i proceduren. Her er den uden fejlen:

Procedure make_copy(Gl_Fnr, Ny_Fnr : integer);
var i : integer;
begin
  if fra.findkey([Gl_Fnr]) then
  begin
    til.insert;
    for i := 1 to fra.fieldcount -1 do
    begin
      til.fields[i] := fra.fields[i];
    end;
    til.fields[0].asinteger := Ny_Fnr;
    til.post;
  end;
end;

sjensen

hej sjensen jeg prøver det lige ikke

Hej
jeg kan ikke rigtig få din code til at køre da jeg ikke er sikker på hvor jeg
Skal lægge
Procedure make_copy(Gl_Fnr, Ny_Fnr : integer);
var i : integer;
begin
  if fra.findkey([Gl_Fnr]) then
  begin
    til.insert;
    for i := 1 to fra.fieldcount -1 do
    begin
      til.fields[i] := fra.fields[i];
    end;
    til.fields[0].asinteger := Ny_Fnr;
    til.post;
  end;
end;
Og jeg har da også sat 2 tables på min form men hvor skal Procedure være

Jeg mailer dig lige et lille eks.

sjensen

Per,

Check din indbakke. Der ligger et lille program til dig der viser hvordan det virker.

NB! Hvis der evt. er andre der er interesseret sender jeg gerne en kopi til jer også. Bare skriv en mailadresse og der er fluks en kopi på vej !!

sjensen

Hej sjensen jeg prøver det ligt ikke
har du forresten prøvet ( Extrapak )
på http://www.evgesoft.com/dev/indexreg.html

hej sjensen der lægger en e-mail til dig

Hej Per,

Næh.. Jeg har ikke prøvet Extrapack, men jeg var lige inde og se på deres hjemmeside og det ser jo fint ud.

Det kunne være at jeg skulle prøve noget af det de kan levere.

I øvrigt til dig: Kender du Delphi Super Page (DSP). DU har sikkert hørt om det flere gange i dette forum så her giver jeg dig lige Url'en:

http://sunsite.icm.edu.pl

Derfra kan du downloade tons af Delphi komponenter med og uden source o.s.v. og dermed lære mere om tingene.

sjensen