Axapta 2.5 or 3.0 ?
I've seen (and had it fixed) what I belive to be the very same problem
in 2.5
--
lewickiw
--- In [email protected], "Alfonso Collados Arroyo"
<[EMAIL PROTECTED]> wrote:
> 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]
YAHOO! GROUPS LINKS
- Visit your group "development-axapta" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
