18. November 2005 13:34
18. November 2005 23:15
19. November 2005 01:04
CASE "Table No." OF
DATABASE::Customer:
BEGIN
Cust.SETPOSITION("Record Position");
FORM.RUN(0,Cust);
END;
DATABASE::Vendor:
BEGIN
Vend.SETPOSITION("Record Position");
FORM.RUN(0,Vend);
END;
DATABASE::"Sales Header":
BEGIN
SalesHeader.SETPOSITION("Record Position");
FORM.RUN(0,SalesHeader);
END;
[...]
END;
21. Mai 2007 15:09
21. Mai 2007 16:48
22. Mai 2007 08:32
22. Mai 2007 09:41
Khristan hat geschrieben:Huhu,
22. Mai 2007 10:15
23. Mai 2007 12:36
IF Obj.GET(Obj.Typ::Table, '', TableID) THEN BEGIN
Obj.CALCFIELDS("BLOB Referenz");
Obj."BLOB Referenz".CREATEINSTREAM(InStr);
WHILE NOT InStr.EOS DO BEGIN
InStr.READ(NxtInt);
IF (NxtInt = 283207) AND (NOT InStr.EOS) THEN BEGIN
InStr.READ(NxtInt);
EXIT(NxtInt);
END;
END;
END;
EXIT(0);
23. Mai 2007 13:57
23. Mai 2007 14:39
23. Mai 2007 15:12
Du kannst den 2. Parameter auch komplett weglassen, die Formnummer reicht. Natürlich kannst du dann keine Filter übergeben....
23. Mai 2007 15:18
23. Mai 2007 15:28
martinst hat geschrieben:Der Ansatz ist genial, löst das Problem aber auch nicht.
Bei einem Form.Run muss aber als 2. Parameter eine Variable vom Typ Record und nicht RecordRef angegeben werden.
23. Mai 2007 15:31
Schon klar. War auch nur als Idee gedacht.
Habe übrigens noch was bei MIBUSO gefunden:
23. Mai 2007 15:47
Aber genial ist es trotzdem.
Schon gesehen.
Das kommt mir aber eher so Bastler-mässig vor.
23. Mai 2007 16:45
martinst hat geschrieben:Du kannst den 2. Parameter auch komplett weglassen, die Formnummer reicht. Natürlich kannst du dann keine Filter übergeben....
Und auf welchem Record stehst Du?
25. Mai 2007 09:29
25. Mai 2007 10:47
IF Obj.GET(Obj.Typ::Form, '', FormID) THEN BEGIN
Obj.CALCFIELDS("BLOB Referenz");
Obj."BLOB Referenz".CREATEINSTREAM(InStr);
WHILE NOT InStr.EOS DO BEGIN
InStr.READ(NxtInt);
IF (NxtInt = 283173) AND (NOT InStr.EOS) THEN BEGIN
InStr.READ(NxtInt);
EXIT(NxtInt);
END;
END;
END;
EXIT(0);