Re: [development-axapta] how to create invent journal trans (transfer) with code.

[Stefan Osterburg]

I have been trying to find the relevant differences between
my (working) code and yours but found nothing that might produce 
inventdim errors. maybe it helps you anyway:

    Voucher = NumberSeq::newGetNum(
             NumberSeqReference::findReference(
            typeid2extendedtypeid(typeid(InventJournalVoucherId))));
    InventJournalTrans.clear();
    InventJournalTrans.initValue();
    InventJournalTrans.initFromInventJournalTable(InventJournalTable);
    inventJournalTrans.Voucher             = Voucher.num();
    InventJournalTrans.ItemId              myItemId;
    InventJournalTrans.initFromInventTable(InventTable::find(myItemId));
    InventJournalTrans.Qty                 =  Qty;
    InventJournalTrans.inventMovement().journalSetQty();
    InventJournalTrans.CostAmount = InventJournalTrans.calcCostAmount();
    InventJournaltrans.TransDate=transdate;

    inventDimIssue.InventLocationId=InventLocationIdFrom;
    inventDimReceipt.InventLocationId =InventLocationIdDest;
    InventJournalTrans.toInventDimId =                    
            InventDim::findOrCreate(inventDimReceipt).inventDimId;
    InventJournalTrans.inventDimId    =
            InventDim::findOrCreate(inventDimIssue).inventDimId;
    InventJournalTrans.LineNum = myLineNum;
    InventMoveMent::setAutoReserving(InventJournalTrans);
    InventJournalTrans.insertFromCode();

Stefan

Cenk Ince wrote:

> 
> Hi Stefan;
> 
> Thanks for answer but the code below does it for me.
> InventJournalTrans.initFromInventTable(Inventtable::find(mytable.ItemId)
> );
> 
> Any other idea?
> 
> 
> -----Original Message-----
> From: Stefan Osterburg [mailto:[EMAIL PROTECTED] 
> Sent: Tuesday, October 05, 2004 2:40 PM
> To: [EMAIL PROTECTED]
> Subject: Re: [development-axapta] how to create invent journal trans
> (transfer) with code.
> 
> 
> 
> Cenk,
> 
> you seem to be missing the inventdim for the issuing (from)
> inventlocation. Try adding:
> 
> inventdimFrom.InventLocationId = mytable2.Inventlocationfrom;
> InventJournalTrans.inventDimId =
> InventDim::findOrCreate(inventDimFrom).inventDimId;
> 
> Stefan
> 
> Cenk Ince wrote:
> 
>>Hi all;
>>
>>I want to create a inventjournaltrans (transfer) with code when i
> 
> insert
> 
>>a line to journal i get errors about inventdim. My code is below.
>>
>>How should i create the line. 
>>
>>void createLine(str journalid, mytable mytable,real qty)
>>{
>>    InventJournalTable InventJournalTable;
>>    InventJournalTrans InventJournalTrans;
>>    inventDim          inventDim;
>>    mytable2             mytable2;
>>
>>    ;
>>
>>    select mytable2 where mytable2.TalepId == mytable.TalepId;
>>
>>    //inventDim
>>
>>    ttsbegin;
>>    InventJournalTrans.selectForUpdate(true);
>> 
>>
> 
> InventJournalTrans.initFromInventJournalTable(InventJournalTable::find(j
> 
>>ournalid));
>> 
>>
> 
> InventJournalTrans.initFromInventTable(Inventtable::find(mytable.ItemId)
> 
>>);
>>    
>>    select mytable2 where mytable2.TalepId  ==  mytable.TalepId;//
>>
>>    inventdim.InventLocationId = mytable2.InventLocationId;
>>
>>    InventJournalTrans.ToInventDimId =
>>inventDim::findOrCreate(inventdim).inventDimId;
>>    InventJournalTrans.TransDate     = today();
>>    InventJournalTrans.Qty           = Qty;
>>    InventJournalTrans.insert();
>>
>>    ttscommit;
>>
>>
>>}
>>
>>
>>[Non-text portions of this message have been removed]
>>
>>
>>
>>
>>
>>
>>
>> 
>>Yahoo! Groups Links
>>
>>
>>
>> 
>>
>>
>>
> 
> 
> 
> 
> 
> 
> 
> 
>  
> Yahoo! Groups Links
> 
> 
> 
>  
> 
> 
> 
> 
> 
> 
> 
> 
> 
>  
> Yahoo! Groups Links
> 
> 
> 
>  
> 
> 
> 













Yahoo! Groups Sponsor


  ADVERTISEMENT 












Yahoo! Groups Links

To visit your group on the web, go to:http://groups.yahoo.com/group/development-axapta/ 
To unsubscribe from this group, send an email to:[EMAIL PROTECTED] 
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.