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
 - Ich kann das gerade nicht testen, aber eine Anzeige sollte schon möglich sein.
 - Ich kann das gerade nicht testen, aber eine Anzeige sollte schon möglich sein.
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);