Return Values with 3 Steps doesn't Work

Martin_Förster

Hallo,

I have an Problem which makes me ](*,)

An User has to decide over an Dialog what he want to to... where are 4 difference cases. At each case he will be ask if he want to charge this activity against the customer.

IF he confim the Question i open first an FORM A for the Customer credits like this

IF CONFIRM('Mit Belastungen erfassen?') THEN BEGIN    
            Belastungen.SETRANGE("Contract No.","Contract No.");
            Belastungenerfassen.SETTABLEVIEW(Belastungen);
            Belastungenerfassen.RUN;                            //Open FORM A
            Belastungenerfassen.RUNResourcesListwithfilter(3); //OPEN FORM B
          END

In the Same Code i Set an Filter for the Ressources and and Run the Resource List

COde in FORM A --> Function RUNResourcesListwithfilter(_Nummer : Integer)

gf_resourcelist.Filter(_Nummer);
COMMIT;
gf_resourcelist.LOOKUPMODE(TRUE);
IF gf_resourcelist.RUNMODAL = ACTION::OK THEN BEGIN
  gf_resourcelist.GETRECORD(g_resource);
  g_belastung.INIT;
  g_belastung.VALIDATE(Type,Type::Ressource);
  g_belastung.VALIDATE("No.",g_resource."No.");
  g_belastung.INSERT;
END;
CLEAR(gf_resourcelist);

COde in Form B (Resource LIst) --> Function Filter(_Group : Integer)

Filter(_Group : Integer)
IF _Group = 1 THEN
 SETRANGE("Resource Group No.",'LOGISTIK');

IF _Group = 2 THEN
 SETRANGE("Resource Group No.",'REINIGUNG');

IF _Group = 3 THEN
 SETRANGE("Resource Group No.",'TECHNIK');

CurrForm.UPDATECONTROLS;

The only one decision from the USer is to choose one of the Resources and after it this Resource had to return to Form B But it Doesn't works!?!?!? ](*,) ](*,) ](*,) ](*,)


Thank everybody for helping..

Martin_Förster

I know the answer...

Instand =Action::OK i had to write Action::LOOKUPOK than it works fine :-)