BAQ/BAM for over shipment

Yahoo Archive
1
Thanks Allen.





________________________________

From: apt876sp1 [mailto:atucker@...]
Sent: Monday, November 10, 2008 1:33 PM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: BAQ/BAM for over shipment



Here is a BAM I have been working on in 6.0. The problem I have is
that it doesn't trigger until the "Shipped" checkbox on the Customer
Shipmemt Entry is checked. I hope this helps.

Allen

BAM-START
{ud/GlbAlert.i &TableName = "OrderRel"}

DEFINE VARIABLE NewEmailBody AS CHARACTER NO-UNDO.

/* program for message when a shipment causes an overshipment */
IF (Mfgsys.OrderRel.SellingJobShippedQty +
Mfgsys.OrderRel.SellingStockShippedQty) >
Mfgsys.OrderRel.SellingReqQty

THEN DO:

/* Set the default email address */
ASSIGN Email-To = 'EMAILADDRESSES'.

Email-Subject = "SalesOrder OverShipment: " + String
(Mfgsys.OrderRel.OrderNum).

Email-Text = "This Shipment will cause an
overshipment for ~n~n"
+ "Sales Order : " + String
(Mfgsys.OrderRel.OrderNum) + "~n"
+ " Line : " + String
(Mfgsys.OrderRel.OrderLine) + "~n"
+ " Release : " + String
(Mfgsys.OrderRel.OrderRelNum) + "~n".

MESSAGE Email-Text VIEW-AS ALERT-BOX WARNING BUTTONS
OK.
END.

ELSE DO:
RETURN "CANCEL SEND":U.
END.
BAM-END

--- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ,
"Kathy Hambleton" <hambleton@...>
wrote:
>
> Does anyone have a BAQ/BAM alert for when a job is over shipped and
> willing to share? We are on Ver. 6.10.538.
>
>
>
> Thanks,
>
> Kathy Hambleton
>
>
>
> Vice President of Finance
>
> Electron Energy Corporation
>
> 717-459-1056
>
> kbh@...
>
>
>
>
>
> [Non-text portions of this message have been removed]
>





[Non-text portions of this message have been removed]
2
Does anyone have a BAQ/BAM alert for when a job is over shipped and
willing to share? We are on Ver. 6.10.538.



Thanks,

Kathy Hambleton



Vice President of Finance

Electron Energy Corporation

717-459-1056

kbh@...





[Non-text portions of this message have been removed]
3
Here is a BAM I have been working on in 6.0. The problem I have is
that it doesn't trigger until the "Shipped" checkbox on the Customer
Shipmemt Entry is checked. I hope this helps.

Allen

BAM-START
{ud/GlbAlert.i &TableName = "OrderRel"}

DEFINE VARIABLE NewEmailBody AS CHARACTER NO-UNDO.

/* program for message when a shipment causes an overshipment */
IF (Mfgsys.OrderRel.SellingJobShippedQty +
Mfgsys.OrderRel.SellingStockShippedQty) >
Mfgsys.OrderRel.SellingReqQty

THEN DO:

/* Set the default email address */
ASSIGN Email-To = 'EMAILADDRESSES'.

Email-Subject = "SalesOrder OverShipment: " + String
(Mfgsys.OrderRel.OrderNum).


Email-Text = "This Shipment will cause an
overshipment for ~n~n"
+ "Sales Order : " + String
(Mfgsys.OrderRel.OrderNum) + "~n"
+ " Line : " + String
(Mfgsys.OrderRel.OrderLine) + "~n"
+ " Release : " + String
(Mfgsys.OrderRel.OrderRelNum) + "~n".


MESSAGE Email-Text VIEW-AS ALERT-BOX WARNING BUTTONS
OK.
END.

ELSE DO:
RETURN "CANCEL SEND":U.
END.
BAM-END



--- In vantage@yahoogroups.com, "Kathy Hambleton" <hambleton@...>
wrote:
>
> Does anyone have a BAQ/BAM alert for when a job is over shipped and
> willing to share? We are on Ver. 6.10.538.
>
>
>
> Thanks,
>
> Kathy Hambleton
>
>
>
> Vice President of Finance
>
> Electron Energy Corporation
>
> 717-459-1056
>
> kbh@...
>
>
>
>
>
> [Non-text portions of this message have been removed]
>