I have been converting a rather large Q&A4 database to Sesame and I'm getting the following error:

ERROR WHILE PARSING MODULE “F0061 (1)”:
SYMBOL EXPECTED [ } ], SYMBOL FOUND [ ( ].
LINE 39, POSISTION 29: (
                                         GOTO @(4500 + X) };

Here is the part of the code where the error occurs:

IF F0061 <> "" THEN { X7 = 59; X8 = 199; GOSUB X9 };

IF F0061 <> "" THEN IF ORDERTYPE = "R"
                THEN { X = RNUM;
                       @(4600 + X) = @(4600 + X) + F0061;
                       TtlSHIP1 = @SUM(F0156,F0166,F0176,F0186,F0196,F0206,F0216,F0226,F0236,F0246,F0256,F0266);

IF TtlSHIP1=0 THEN TtlSHIP1="";

                       IF F0060 <> ""
                     THEN @(4500 + X) = F0060
                     ELSE @(4500 + X) = @DATE;
                      GOTO @(4500 + X) };
F0061 = "";

IF F0057 <> "DONE" THEN GOTO SCHEDULENEXT
                ELSE { @MSG("ORDER COMPLETE!");
                       DETAIL = "COMPLETE";
                       STATUS = "" };
GOTO EAORDERNUM



I not the original programmer of this database and don't have much experience in QABasic programming, so I'm not sure why its looking for a close bracket at that particular spot in the programming.  Any help would be appreciated.

Thanks!

Here is the entire code:

TOTALSHIPPED = TOTALSHIPPED + F0061; IF TOTALSHIPPED = 0 THEN TOTALSHIPPED="";
BALANCETOSHIP = QTYTOBESHIPPED - TOTALSHIPPED; IF BALANCETOSHIP = 0 THEN BALANCETOSHIP="";
FINGDSINVENTORY = FINGDSINVENTORY - F0061; IF FINGDSINVENTORY = 0 THEN FINGDSINVENTORY="";
QTYSHIPPED = QTYSHIPPED + F0061; IF QTYSHIPPED = 0 THEN QTYSHIPPED="";

  IF F0061 <> ""
THEN { F0391 = F0383 + F0391; F0390 = F0382; if F0391 = 0 then F0391 = "";
      F0383 = F0375; F0382 = F0374; if F0383 = 0 then F0383 = "";
      F0375 = F0367; F0374 = F0366; if F0375 = 0 then F0375 = "";
      F0367 = F0359; F0366 = F0358; if F0367 = 0 then F0367 = "";
      F0359 = F0351; F0358 = F0350; if F0359 = 0 then F0359 = "";
      F0351 = F0349; F0350 = F0348; if F0351 = 0 then F0351 = "";
      F0349 = F0347; F0348 = F0346; if F0349 = 0 then F0349 = "";
      F0347 = F0339; F0346 = F0338; if F0347 = 0 then F0347 = "";
      F0339 = F0331; F0338 = F0330; if F0339 = 0 then F0339 = "";
      F0331 = F0323; F0330 = F0322; if F0331 = 0 then F0331 = "";
      F0323 = F0315; F0322 = F0314; if F0323 = 0 then F0323 = "";
      F0315 = F0307; F0314 = F0306; if F0315 = 0 then F0315 = "";
      F0307 = F0299; F0306 = F0298; if F0307 = 0 then F0307 = "";
      F0299 = F0291; F0298 = F0290; if F0299 = 0 then F0299 = "";
      F0291 = SQ01; F0290 = SHIPDATE01; if F0291 = 0 then F0291 = "";
      SQ01 = F0061;  SHIPDATE01 = F0060; if SHIPDATE01 = "" then SHIPDATE01 = @date;
      TOTALSHIPPED1 = @sum(SQ01,F0291,F0299,F0307,F0315,F0323,F0331,F0339,F0347,F0349,F0351,F0359,F036
7,F0375,F0383,F0391); if TOTALSHIPPED1 = 0 then TOTALSHIPPED1 = ""    };


IF F0061 <> "" THEN { X7 = 59; X8 = 199; GOSUB X9 };

IF F0061 <> "" THEN IF ORDERTYPE = "R"
                THEN { X = RNUM;
                       @(4600 + X) = @(4600 + X) + F0061;
                       TtlSHIP1 = @SUM(F0156,F0166,F0176,F0186,F0196,F0206,F0216,F0226,F0236,F0246,F0256,F0266);

IF TtlSHIP1=0 THEN TtlSHIP1="";

                       IF F0060 <> ""
                     THEN @(4500 + X) = F0060
                     ELSE @(4500 + X) = @DATE;
                     GOTO @(4500 + X) };
F0061 = "";

IF F0057 <> "DONE" THEN GOTO SCHEDULENEXT
                ELSE { @MSG("ORDER COMPLETE!");
                       DETAIL = "COMPLETE";
                       STATUS = "" };
GOTO EAORDERNUM

I'll try re-arranging the as you suggested.

Thanks for your help.

Just as side note, this:
Quote:

is not going to work in Sesame. You can't dynamically generate element references this way and use them in GoTo's.

Quote:


It depends on what this actually does. It's impossible to tell by looking at the code, which is the problem with techniques like this.  Control changes based on some unknown value entered in one of a list of fields. There's no way to tell what it is supposed to do without seeing your entire Q&A application and tracing it through.

Do you have any programming experience in any language?

Quote:


Basically, you need to use if...then constructs to decide where to jump. With a bit of redesign, much of this jumping around and @field stuff may become unnecessary.

If you want to try to work through this yourself, you can post specific questions here, as you encounter them and people will try to help. If you just want someone to do it for you, you might consider contacting and hiring a consultant.

Bejagee,

Do not be afraid to try and learn Sesame.

Many of us on this forum are far from computer experts, but together we all try to learn and help each other out. I have found the people associated with this forum, both the Lanticans and users are incredible people. If someone asks for help and makes an effort to try to learn, someone is always willing to help. 

Remember everyone has to start somewhere I believe Sesame is the perfect place. Sesame offers the correct mix of powerful features, ease of use and a group of people with a commitment to putting out a quality product.

Just after a cursory look, it seems that your application is dealing with statement and invoicing kind of application and if it is so, you might do a far better with MainForm-Subform setup of Sesame. Sometimes it makes more sense to make something from scratch than translating as far as programming is concerned especially if you do not have a clue as to what previous programmer had done. Data can be transferred in either cases.  Just a thought.