Dataport Duplicate OnAfterImportRecord processing

Hi all,

I am working in 5.0 importing order information. The file I am importing is comma delimited and contains both header and line information in each record. The current method is for the user to create their order header with customer info and then launch my dataport from the function menu. In this case, I have decided to handle all of the processing myself. I'm just using the dataport to get the fields into global variables that I have created. Then I insert/modify/etc as I see fit. I am using Sales Header as my dataitem even though the record I'm working with already exists. My problem is that it seems the OnAfterImportRecord code fires twice no matter what. I have tried turning autosave and autoupdate off, but when I do, I get an error that my sales line record is locked. I have come up with a workaround where I check the sales line table to see if my item already exists but I don't like it in that it would mishandle an import where the same item was listed multiple times. My workaround is shown in the code below but the bottom line is that the trigger fires twice per line and I can't figure out how to fix it for the long term. This dataport is based on another with a similar function AND the same problem so there are several unused globals listed. Any thought or ideas would be greatly appreciated:

OBJECT Dataport 50127 New Order Import
{
  OBJECT-PROPERTIES
  {
    Date=07/19/12;
    Time=[ 8:59:34 AM];
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    FieldStartDelimiter=<None>;
    FieldEndDelimiter=<None>;
    OnPreDataport=BEGIN
                    sh.SETRANGE("No.", Orderno);
                    IF NOT sh.FIND('-') THEN
                     ERROR('Sales Header not found.');
                    PO := FALSE;
                    lineno := 0;
                    qty := 1;
                  END;

  }
  DATAITEMS
  {
    { PROPERTIES
      {
        DataItemTable=Table36;
        DataItemVarName=Salesheader;
        AutoSave=Yes;
        AutoUpdate=Yes;
        OnAfterImportRecord=BEGIN
                              IF PO = FALSE THEN BEGIN
                               sh."External Document No." := PONo;
                               sh."Requested Delivery Date" := deliverydate;
                               sh."Ship-to Name" := addrname;
                               sh."Ship-to Address" := addr1;
                               sh."Ship-to Address 2" := addr2;
                               sh."Ship-to City" := addrcity;
                               sh."Ship-to County" := addrstate;
                               sh."Ship-to Post Code" := addrzip;
                               sh.Imported := TRUE;
                               sh.MODIFY;
                               PO := TRUE;
                              END;

                              sl.SETRANGE("Document No.",Orderno);
                              sl.SETRANGE("No.",itemno);
                              IF NOT sl.FIND('-') THEN BEGIN
                               lineno := lineno + 10000;
                               sl.INIT;
                               sl."Document Type" := sl."Document Type"::Order;
                               sl."Line No." := lineno;
                               sl.VALIDATE("Document No.",Orderno);
                               sl.VALIDATE(Type,sl.Type::Item);
                               sl.fromimport(FALSE);
                               sl.fromimport(TRUE);
                               item.SETRANGE("No.",itemno);
                               IF NOT item.FIND('-') THEN
                                ERROR(Text02,itemno);
                               sl.VALIDATE("No.",itemno);
                               sl.VALIDATE(Quantity,qty);
                               sl."Customer Item No." := Stockno;
                               sl."Modified Time" := CURRENTDATETIME;
                               sl.INSERT;
                              END;
                            END;

      }
      FIELDS
      {
        {      ;     ;PONo                 }
        {      ;     ;desc1                }
        {      ;     ;itemno               }
        {      ;     ;qty                  }
        {      ;     ;desc2                }
        {      ;     ;deliverydate         }
        {      ;     ;addrname             }
        {      ;     ;addr1                }
        {      ;     ;addr2                }
        {      ;     ;addrcity             }
        {      ;     ;addrzip              }
      }
       }
  }
  REQUESTFORM
  {
    PROPERTIES
    {
      Width=9020;
      Height=3410;
    }
    CONTROLS
    {
    }
  }
  CODE
  {
    VAR
      line@1000000004 : Text[255];
      Orderno@1000000003 : Code[20];
      i@1000000002 : Integer;
      Position@1000000001 : Integer;
      Stockno@1000000005 : Code[20];
      serialno@1000000006 : Code[20];
      lserialno@1000000007 : Code[20];
      desc1@1000000008 : Text[75];
      desc2@1000000009 : Text[75];
      PONo@1000000010 : Code[20];
      ManufacturingNo@1000000011 : Code[20];
      ManufacturingCode@1000000012 : Code[20];
      PO@1000000013 : Boolean;
      sl@1000000014 : Record 37;
      sh@1000000015 : Record 36;
      sp@1000000016 : Record 7002;
      lineno@1000000000 : Integer;
      item@1000000017 : Record 27;
      Text01@1000000018 : TextConst 'ENU=Customer Item %1 not found in the Sales Price table.';
      itemno@1000000019 : Code[20];
      qty@1000000020 : Integer;
      Text02@1000000021 : TextConst 'ENU=Item %1 not found in the item table.';
      sn@1000000022 : Record 50024;
      deliverydate@1000000023 : Date;
      addrname@1000000024 : Text[50];
      addr1@1000000025 : Text[50];
      addr2@1000000026 : Text[50];
      addrcity@1000000027 : Text[30];
      addrstate@1000000028 : Text[30];
      addrzip@1000000029 : Text[20];

    PROCEDURE SetOrderNo@1000000000("No."@1000000000 : Code[20]);
    BEGIN
      Orderno := "No.";
    END;

    BEGIN
    END.
  }
}

Thanks in advance!