[development-axapta] Post PackingSlip Code

Mon, 11 Jul 2005 02:32:13 -0700

Hi all:



Why when I update a PackingSlip  using  class purchFormLetter, it does

not store that PackingSlip   in tables VendPackingPurchLink

,VendPackingSlipJour and VendPackingSlipTrans and I must update it by
hand?  In addition if I have the activated parameter of impression the
PackingSlip  printed  has its number "".  The code that now I use is
this :



















   purchFormLetter =

purchFormLetter::construct(DocumentStatus::PackingSlip,true);  // Get a
new instance of PurchFormletter



        purchformletter.transDate(SystemDateGet());







        purchFormLetter.update (_purchTable,                 //

PurchTable



                               _albaran,



                               fechaActual,



                               PurchUpdate::ReceiveNow,     // Quantity

to update (SpecQty)



                               AccountOrder::None,     // AccountOrder

//None



                               false,         // Proforma   only?

//false



                               true);         // Printout?

//false







       ttsbegin;



       ret=false;



       parametroId=purchformletter.parmId();



        select forupdate vendpackingslippurchlink where
vendpackingslippurchlink.ParmId==parametroId



       && vendpackingslippurchlink.PurchId==_purchId;



       if (vendpackingslippurchlink)



       {



          vendpackingslippurchlink.packingSlipId=_albaran;



          vendpackingslippurchlink.update();



       }







       while select forupdate vendpackingslipjour



       where vendpackingslipjour.ParmId==parametroId



       && vendpackingslipjour.PurchId==_purchId



       {



          Interno=vendpackingslipjour.InternalPackingSlipId;



          vendpackingslipjour.packingSlipId=_albaran;



          vendpackingslipjour.update();



       }







       while select forupdate vendpackingsliptrans



       where vendpackingsliptrans.InternalPackingSlipId==Interno



       && vendpackingsliptrans.PurchId==_purchId



       {







          vendpackingsliptrans.packingSlipId=_albaran;



          vendpackingsliptrans.update();



          while select forupdate _inventtrans where
_inventtrans.VoucherPhysical==vendpackingsliptrans.InternalPackingSlipId



          {







            _inventtrans.PackingSlipId=_albaran;



            _inventtrans.update();



          }



       }







Thanks,



Alfonso













--------------------------------------------------------------

This e-mail and any attachments are confidential. If you are not the named or intended recipient, please notify the sender immediately and do not disclose the contents to any other person, use it for any purpose or store or copy the information in any medium. Any unauthorized disclosure, use or storage is prohibited and might be unlawful.




[Non-text portions of this message have been removed]

SPONSORED LINKS
Computer part Programming languages Microsoft axapta
Support exchange

YAHOO! GROUPS LINKS



Reply via email to