How to stop looping?

bangswit

hi all.... i just want to know how to stop looping
i have data like this

det1
loc1A
loc1B
loc1C
det2
loc2A
loc2B
loc2C

all i need is just
loc1A
loc1B
loc1C
so after that... terminate the read looping
how is it possible?

Andwian

Interesting. What is the current code?

kine

What about using CurrReport.BREAK?

bangswit

1 location = 1 so
this code already done

  FOR CreateSO := 1 TO LocCount DO
    IF SalesHeader.FIND('-') THEN
      BEGIN
          SalesSetup.RESET;
          SalesSetup.GET('');
          NoSeriesLine.RESET;
          NoSeriesLine.GET(SalesSetup."Order Nos.",10000);
          NoSeriesMgt.InitSeries(SalesSetup."Order Nos.",
          SalesSetup."Order Nos.",TODAY,NextNo,newNoSeries);
     
          SalesHeader.RESET;
          SalesHeader.INIT;
          SalesHeader."Document Type":=1;
          SalesHeader."No.":=NextNo;
          SalesHeader."No. Series" := SalesSetup."Order Nos.";
          SalesHeader.INSERT(TRUE);
                  NoSeriesLine."Last No. Used":=NextNo;
                  NextNo:='';

    END;

But how to insert the location to SO???
This code is failed

  FOR CreateSO := 1 TO LocCount DO
    IF SalesHeader.FIND('-') THEN
      BEGIN
          SalesSetup.RESET;
          SalesSetup.GET('');
          NoSeriesLine.RESET;
          NoSeriesLine.GET(SalesSetup."Order Nos.",10000);
          NoSeriesMgt.InitSeries(SalesSetup."Order Nos.",
          SalesSetup."Order Nos.",TODAY,NextNo,newNoSeries);
     
          SalesHeader.RESET;
          SalesHeader.INIT;
          SalesHeader."Document Type":=1;
          SalesHeader."No.":=NextNo;
          SalesHeader."No. Series" := SalesSetup."Order Nos.";
          SalesHeader.INSERT(TRUE);
                  NoSeriesLine."Last No. Used":=NextNo;
                  NextNo:='';

    END;
          ItemCount :=0;
          AnalyzeFile;
          REPEAT
          JFFile.READ(vstring);
          Pos3 := STRPOS(vstring,'DET');
             IF Pos3 = 1 THEN
                BEGIN
                  ItemCount := ItemCount + 1;
                END;
              Pos4 := STRPOS(vstring,'LOC');
              vstring4 := COPYSTR(vstring,1,1000);
              Location := COPYSTR(vstring4,4,25);
          IF Pos4 = 1 THEN
                BEGIN
                MESSAGE('%1',Location);
                  SalesHeader.RESET;
                  SalesHeader.GET(1,NextNo);
                  SalesHeader."Location Code" := Location;
                  SalesHeader.MODIFY(TRUE);
                END;
          UNTIL ItemCount > 1; 

bangswit

By the way, i import text file like this

SHR ED 93AEAN007ORDERS0
HDRORDERS
DET 1 2007819000000
LOCSIG1
LOCJS1
LOCAAA1
DET 2 2007819000000
LOCSIG1
LOCJS1
LOCAAA1

the location is SIG1,JS1,AA1

Andwian

bangswit wrote:

But how to insert the location to SO???
This code is failed

What is the problem? Are there any error messages? Or the Location Code just not get into the Sales Header properly?

bangswit

cannot catch NextNo
NextNo --> Sales Order no I build automatically

Andwian

bangswit wrote:

cannot catch NextNo

At which line did you experience the error?