Dataport Problem

Savatage

I Have a dataport to import Internet Orders. Everything works great but the Dataport STOPS on blocked items. So I added;

OnAfterImportRecord=BEGIN
                              Item.GET("Sales Line"."No.");
                               IF Item.Blocked THEN
                               "Sales Line"."No." := '99904';

Works Fine Item # 99904 is a Miscellaneous Blank Item Not used for anything.

What I would like to do is if an item that is being imported IS blocked then Switch the item# to 99904 BUT place the item # that was REPLACED into a field called "EDI Cross Reference Field" (it also type code) so I know what it was.

My problem is with the switch to 99904 the old item info is gone. any ideas.

ara3n

when you validate the item no. it resets all the fields. You need update the fields again.

The dataports dataitem shouldn't "sales Line". You cannot control the sequence of validation, which is you case. You need to assign the fields to an array. use Interger table as dummy dataitem. Onafterimportrecord add you code. and do the validation from the array of text.

Savatage

So no drastic changes have to be made I just added

If Item.BLOCKED THEN
MESSAGE(Text0002,"Sales Line."No.","Sales Line"."Document No.");

Where Text0002 is
"Item %1 is Blocked on Order %2"

Now it tells me. I really didn't want this dataport to become overly complicated.

ara3n

Great. Simple solution most of the time are the best ones.
For simple tables where there is no validation you can use the dataitems. Form complicated ones dataports are not enough.
I just never used dataitems for complicated dataports, Such as creating sales order. I use Dummy interger dataitem and asign the values to an array. and onafterimportrecord put my code.

kine

Savatage wrote:

OnAfterImportRecord=BEGIN
                              Item.GET("Sales Line"."No.");
                               IF Item.Blocked THEN
                               "Sales Line"."No." := '99904';

Of course that it is gone, you need to save it somewhere:

OnAfterImportRecord=BEGIN
                              Item.GET("Sales Line"."No.");
                               IF Item.Blocked THEN begin
                               "Sales Line"."EDI Cross Reference Field" := "Sales Line"."No.";  //Added line
                               "Sales Line"."No." := '99904';
                              end;

Savatage

I've tried this with no luck

OnAfterImportRecord=BEGIN
                              Item.GET("Sales Line"."No.");
                               IF Item.Blocked THEN begin
                               "Sales Line"."EDI Cross Reference Field" := "Sales Line"."No.";  //Added line
                               "Sales Line"."No." := '99904';
                              end;

So I created another Variable:Internet_Cust_Orig_Item & It works
I set it before anything happens & bring it back later

OnAfterImportRecord()

Internet_Cust_Orig_Item := "No.";

Item.GET("Sales Line"."No.");

IF Item.Blocked THEN
 BEGIN
  "Sales Line"."No." := '99904';
 END;

"Sales Line".VALIDATE("No.");
"Sales Line"."Qty. Ordered" := Internet_Cust_Qty;
"Sales Line".Quantity := Internet_Cust_Qty;
"Sales Line".VALIDATE("Qty. Ordered");
"Sales Line"."EDI Unit Price" := Internet_Price;

"Sales Line"."EDI Item Cross Ref." := Internet_Cust_Orig_Item;