What is wrong with the code

Markandey_Pandey

Hi all,

I want to insert the Parent Item No. of the first Item (fisrt line item) to Transfer Header when the Transfer Order is released. So i have written the following code under OnPush trigger of the Release button. but its not working, what is wrong with the code.

Globals
TransferHeader->Record->Transfer Header
TransferLine->Record->Transfer Line
BomCom->Record-> BOM Component

FG Item No. -> A field i have created in the Transfer Header Table.

TransferHeader.RESET;
TransferHeader.SETRANGE(TransferHeader."No.","No.");
IF TransferHeader.FINDFIRST THEN
TransferLine.RESET;
TransferLine.SETRANGE(TransferLine."Document No.","No.");
IF TransferLine.FINDFIRST THEN
BEGIN
BomComp.RESET;
BomComp.SETRANGE(BomComp."No.",TransferLine."Item No.");
TransferHeader."FG Item No.":=BomComp."Parent Item No.";
TransferHeader.MODIFY;
END;

danlindstrom

Missing a FIND between the lines

BomComp.SETRANGE(BomComp."No.",TransferLine."Item No.");
IF BomComp.FINDFIRST THEN BEGIN           <----------------------------------
TransferHeader."FG Item No.":=BomComp."Parent Item No.";
TransferHeader.MODIFY;
END;
END;

hemantOne

Hi markandey,

TransferHeader.RESET;
TransferHeader.SETRANGE(TransferHeader."No.","No.");
IF TransferHeader.FINDFIRST THEN BEGIN<--------------------check that
TransferLine.RESET;
TransferLine.SETRANGE(TransferLine."Document No.","No.");
IF TransferLine.FINDFIRST THEN
BEGIN
BomComp.RESET;
BomComp.SETRANGE(BomComp."No.",TransferLine."Item No.");
TransferHeader."FG Item No.":=BomComp."Parent Item No.";
TransferHeader.MODIFY;
END;

may be it works.

vijay_g

hemantOne wrote:

may be it works.

are you technical or functional?

Markandey_Pandey

its done, thanx