DEFINE VARIABLE hSalesOrder AS HANDLE NO-UNDO.
DEFINE VARIABLE miscCode AS CHARACTER NO-UNDO.
DEFINE VARIABLE icustnum as integer no-undo.
DEFINE VARIABLE iordernum as integer no-undo.
{lib/PublishInfoMsg.i &InfoMsg = "'Test1'"}.
for each ttorderhed where ttorderhed.TermsCode='CC'.
assign iOrderNum=ttorderhed.OrderNum.
{lib/PublishInfoMsg.i &InfoMsg = "'Test2'"}.
RUN bo/SalesOrder.p PERSISTENT SET hSalesOrder.
FOR EACH Customer WHERE Customer.Company=CUR-COMP AND
Customer.CustNum= ttorderhed.CustNum.
Assign miscCode = Customer.ShortChar01.
END.
RUN GetByID IN hSalesOrder(INPUT iOrderNum,
{&output_dataset_SalesOrderDataSet}).
RUN GetNewOrderMsc in
hSalesOrder({&input-output_dataset_SalesOrderDataSet}, iOrderNum,0).
FOR EACH ttOHOrderMsc WHERE ttOHOrderMsc.RowMod='A':
Assign ttOHOrderMsc.MiscCode='FRGT'.
END.
RUN ChangeMiscCode in
hSalesOrder({&input-output_dataset_SalesOrderDataSet},INPUT
'OHOrderMsc').
FOR EACH ttOHOrderMsc WHERE ttOHOrderMsc.RowMod='A':
ttOHOrderMsc.FreqCode='E'.
ttOHordermsc.DocMiscAmt= ttOHordermsc.DocMiscAmt + 10.
END.
RUN Update in hSalesOrder({&input-output_dataset_SalesOrderDataSet}).
RUN GetByID IN hSalesOrder(INPUT iOrderNum,
{&output_dataset_SalesOrderDataSet}).
Decorate your code with message '1` 2 3 etc... this will put entries in
your app server log then you can see exactly where the error j is
happening. Message boxes won't work for this
> **
>
>
> Ok. but No luck yet. Tried following: same error.
>
> DEFINE VARIABLE hSalesOrder AS HANDLE NO-UNDO.
> DEFINE VARIABLE miscCode AS CHARACTER NO-UNDO.
> DEFINE VARIABLE icustnum as integer no-undo.
> DEFINE VARIABLE iordernum as integer no-undo.
>
> {lib/PublishInfoMsg.i &InfoMsg = "'Test1'"}.
>
> for each ttorderhed where ttorderhed.TermsCode='CC'.
>
> assign iOrderNum=ttorderhed.OrderNum.
>
> {lib/PublishInfoMsg.i &InfoMsg = "'Test2'"}.
>
> RUN bo/SalesOrder.p PERSISTENT SET hSalesOrder.
>
> FOR EACH Customer WHERE Customer.Company=CUR-COMP AND
> Customer.CustNum= ttorderhed.CustNum.
> Assign miscCode = Customer.ShortChar01.
> END.
> RUN GetByID IN hSalesOrder(INPUT iOrderNum,
> {&output_dataset_SalesOrderDataSet}).
> RUN GetNewOrderMsc in
> hSalesOrder({&input-output_dataset_SalesOrderDataSet}, iOrderNum,0).
> FOR EACH ttOHOrderMsc WHERE ttOHOrderMsc.RowMod='A':
> Assign ttOHOrderMsc.MiscCode='FRGT'.
> END.
>
> RUN ChangeMiscCode in
> hSalesOrder({&input-output_dataset_SalesOrderDataSet},INPUT
> 'OHOrderMsc').
> FOR EACH ttOHOrderMsc WHERE ttOHOrderMsc.RowMod='A':
> ttOHOrderMsc.FreqCode='E'.
> ttOHordermsc.DocMiscAmt= ttOHordermsc.DocMiscAmt + 10.
> END.
> RUN Update in hSalesOrder({&input-output_dataset_SalesOrderDataSet}).
>
> RUN GetByID IN hSalesOrder(INPUT iOrderNum,
> {&output_dataset_SalesOrderDataSet}).
>
> DELETE OBJECT hSalesOrder.
>
> end.
>
>
>
[Non-text portions of this message have been removed]
On Sun, Jun 9, 2013 at 2:55 PM, Jose Gomez <jose@...> wrote:
> Decorate your code with message '1` 2 3 etc... this will put entries in
> your app server log then you can see exactly where the error j is
> happening. Message boxes won't work for this
> On Jun 7, 2013 4:45 PM, "sanjay219@..." <sanjay219@...>
> wrote:
>
>> **
>>
>>
>> Ok. but No luck yet. Tried following: same error.
>>
>> DEFINE VARIABLE hSalesOrder AS HANDLE NO-UNDO.
>> DEFINE VARIABLE miscCode AS CHARACTER NO-UNDO.
>> DEFINE VARIABLE icustnum as integer no-undo.
>> DEFINE VARIABLE iordernum as integer no-undo.
>>
>> {lib/PublishInfoMsg.i &InfoMsg = "'Test1'"}.
>>
>> for each ttorderhed where ttorderhed.TermsCode='CC'.
>>
>> assign iOrderNum=ttorderhed.OrderNum.
>>
>> {lib/PublishInfoMsg.i &InfoMsg = "'Test2'"}.
>>
>> RUN bo/SalesOrder.p PERSISTENT SET hSalesOrder.
>>
>> FOR EACH Customer WHERE Customer.Company=CUR-COMP AND
>> Customer.CustNum= ttorderhed.CustNum.
>> Assign miscCode = Customer.ShortChar01.
>> END.
>> RUN GetByID IN hSalesOrder(INPUT iOrderNum,
>> {&output_dataset_SalesOrderDataSet}).
>> RUN GetNewOrderMsc in
>> hSalesOrder({&input-output_dataset_SalesOrderDataSet}, iOrderNum,0).
>> FOR EACH ttOHOrderMsc WHERE ttOHOrderMsc.RowMod='A':
>> Assign ttOHOrderMsc.MiscCode='FRGT'.
>> END.
>>
>> RUN ChangeMiscCode in
>> hSalesOrder({&input-output_dataset_SalesOrderDataSet},INPUT
>> 'OHOrderMsc').
>> FOR EACH ttOHOrderMsc WHERE ttOHOrderMsc.RowMod='A':
>> ttOHOrderMsc.FreqCode='E'.
>> ttOHordermsc.DocMiscAmt= ttOHordermsc.DocMiscAmt + 10.
>> END.
>> RUN Update in hSalesOrder({&input-output_dataset_SalesOrderDataSet}).
>>
>> RUN GetByID IN hSalesOrder(INPUT iOrderNum,
>> {&output_dataset_SalesOrderDataSet}).
>>
>> DELETE OBJECT hSalesOrder.
>>
>> end.
>>
>>
>>
>
[Non-text portions of this message have been removed]
DEFINE VARIABLE hSalesOrder AS HANDLE NO-UNDO.
DEFINE VARIABLE miscCode AS CHARACTER NO-UNDO.
DEFINE VARIABLE icustnum as integer no-undo.
DEFINE VARIABLE iordernum as integer no-undo.
message '1'.
for each ttorderhed where ttorderhed.TermsCode='CC':
message '2'.
assign iOrderNum=ttorderhed.OrderNum.
message '3'.
RUN bo/SalesOrder.p PERSISTENT SET hSalesOrder.
message '4'.
FOR EACH Customer WHERE Customer.Company=CUR-COMP AND
Customer.CustNum= ttorderhed.CustNum.
Assign miscCode = Customer.ShortChar01.
END.
message '5'.
RUN GetByID IN hSalesOrder(INPUT iOrderNum,
{&output_dataset_SalesOrderDataSet}).
message '6'.
RUN GetNewOrderMsc in
hSalesOrder({&input-output_dataset_SalesOrderDataSet}, iOrderNum,0).
message '7'.
FOR EACH ttOHOrderMsc WHERE ttOHOrderMsc.RowMod='A':
Assign ttOHOrderMsc.MiscCode='FRGT'.
END.
message '8'.
RUN ChangeMiscCode in
hSalesOrder({&input-output_dataset_SalesOrderDataSet},INPUT
'OHOrderMsc').
message '9'.
FOR EACH ttOHOrderMsc WHERE ttOHOrderMsc.RowMod='A':
ttOHOrderMsc.FreqCode='E'.
ttOHordermsc.DocMiscAmt= ttOHordermsc.DocMiscAmt + 10.
END.
message '10'.
RUN Update in hSalesOrder({&input-output_dataset_SalesOrderDataSet}).
message '11'.
RUN GetByID IN hSalesOrder(INPUT iOrderNum,
{&output_dataset_SalesOrderDataSet}).
Error Detail
============
Message: Record not found.
Type: Error
Program: Server/bo/SalesOrder.p
Method: GetByID
Table: OrderHed
Row:
Field:
Stack Trace
===========
at Epicor.Mfg.Proxy.SalesOrderImpl.Update(SalesOrderDataSet ds)
at Epicor.Mfg.UI.Adapters.SalesOrderAdapter.Update()
at Epicor.Mfg.UI.App.SalesOrderEntry.Transaction.Update()
Also, when I open an existing order and add a new line, no error is showing up.(Also, no misc charge line is created).
What does that mean? Is that because when we create a new order, the ordernum is set to zero till it is saved. So, no value is added to iordernum.?? So, How can I check if a value is passed to iordernum?
By the time you add a line the order header has been saved.
Sent from my U.S. Cellular® Smartphone
-------- Original message --------
From: sanjay219@...
Date: 06/10/2013 9:14 AM (GMT-06:00)
To: vantage@yahoogroups.com
Subject: [Vantage] Re: BPM on ORDER MISC
Also, when I open an existing order and add a new line, no error is showing up.(Also, no misc charge line is created).
What does that mean? Is that because when we create a new order, the ordernum is set to zero till it is saved. So, no value is added to iordernum.?? So, How can I check if a value is passed to iordernum?
[Non-text portions of this message have been removed]
Yeah this should iony fire when there is a new line not in the intial save.
If there is no error when you open an existing order check the log and see
how many messages are you gettting and how far.
On Mon, Jun 10, 2013 at 10:15 AM, Joshua Giese < jgiese@...> wrote:
> **
>
>
> By the time you add a line the order header has been saved.
>
> Sent from my U.S. Cellular� Smartphone
>
>
> -------- Original message --------
> From: sanjay219@...
> Date: 06/10/2013 9:14 AM (GMT-06:00)
> To: vantage@yahoogroups.com
> Subject: [Vantage] Re: BPM on ORDER MISC
>
> Also, when I open an existing order and add a new line, no error is
> showing up.(Also, no misc charge line is created).
>
> What does that mean? Is that because when we create a new order, the
> ordernum is set to zero till it is saved. So, no value is added to
> iordernum.?? So, How can I check if a value is passed to iordernum?
>
> [Non-text portions of this message have been removed]
>
>
>
[Non-text portions of this message have been removed]
DEFINE VARIABLE hSalesOrder AS HANDLE NO-UNDO.
DEFINE VARIABLE miscCode AS CHARACTER NO-UNDO.
DEFINE VARIABLE icustnum as integer no-undo.
DEFINE VARIABLE iordernum as integer no-undo.
message '1'.
for each ttorderhed where ttorderhed.TermsCode='CC':
message '2'.
assign iOrderNum = ttorderhed.OrderNum.
{lib/PublishInfoMsg.i &InfoMsg = iordernum}.
message '3'.
RUN bo/SalesOrder.p PERSISTENT SET hSalesOrder.
message '4'.
FOR EACH Customer WHERE Customer.Company=CUR-COMP AND
Customer.CustNum= ttorderhed.CustNum:
Assign miscCode = Customer.ShortChar01.
END.
message '5'.
RUN GetByID IN hSalesOrder(INPUT iOrderNum,
{&output_dataset_SalesOrderDataSet}).
message '6'.
RUN GetNewOrderMsc in
hSalesOrder({&input-output_dataset_SalesOrderDataSet}, iOrderNum,0).
message '7'.
FOR EACH ttOHOrderMsc WHERE ttOHOrderMsc.RowMod='A':
Assign ttOHOrderMsc.MiscCode='FRGT'.
END.
message '8'.
RUN ChangeMiscCode in
hSalesOrder({&input-output_dataset_SalesOrderDataSet},INPUT
'OHOrderMsc').
message '9'.
FOR EACH ttOHOrderMsc WHERE ttOHOrderMsc.RowMod='A':
ttOHOrderMsc.FreqCode='E'.
ttOHordermsc.DocMiscAmt= ttOHordermsc.DocMiscAmt + 10.
END.
message '10'.
RUN Update in hSalesOrder({&input-output_dataset_SalesOrderDataSet}).
message '11'.
RUN GetByID IN hSalesOrder(INPUT iOrderNum,
{&output_dataset_SalesOrderDataSet}).
Hmm is your terms code CC? on those orders? You can't do this in pre
processing if its the first time you save the order you'll have to move it
to Post Proc... Move it to post proc and try again.
i moved it to post-processing. This Time its new error :(
OHOrderMsc record not available.
Exception caught in: Epicor.Mfg.BO.SalesOrder
Error Detail
============
Message: OHOrderMsc record not available.
Type: Error
Program: Server/bo/SalesOrder.p
Method: ChangeMiscCode
Table: OHOrderMsc
Row:
Field:
Stack Trace
===========
at Epicor.Mfg.Proxy.SalesOrderImpl.Update(SalesOrderDataSet ds)
at Epicor.Mfg.UI.Adapters.SalesOrderAdapter.Update()
at Epicor.Mfg.UI.App.SalesOrderEntry.Transaction.Update()