Re: Holding Acknowledgments

Antonio,

If you are going to modify this code, why not copy it instead and use the User  
Print Override function already built into MAPICS?  That way the original code 
is untouched and you can keep current with fixes.  The modified code never gets 
changed by MAPICS fixes unless you want it to.  Boo, hisss - listen to Dale.  
He has the better solution from both a user usability and maintenance cost.

Just my opinion from both the user side as a customer and as the former BA for 
this app.

Paola Groeber

-------------- Original message -------------- 
From: ARojas@xxxxxxxxxxxxxxxxxxx 

One option is to modify the AMBFMPFR (Original Mapics Acknlowedgement 
print program.....yes, I know is not a good ide to modify the original 
code, but this works...) 


Download and modify the program: AMBFMPFR to include a routine to verify 
if the order is on hold: 


At the beginning of the "C" section you will find the incoming parameters: 
/EJECT 
***************************************************************** 
* Entry parameters 
C *ENTRY PLIST 
C PARM P0RTN 7 
C P1AENB PARM WP0001 20 Company number 
C P1DCCD PARM WP0002 1 Internal header 
C P1CVNB PARM WP0003 7 Quote/order num 
C P1CANB PARM WP0004 80 Customer number 
C P1B9CD PARM WP0005 8 Ship to number 
C P3HYNB PARM WP0006 70 Invoice sequenc 

***************************************************************** 

*Enter instructions to find records in the MBCKRES0 file (hold 
file) 
*with the key: Company, order type and order 
* 
*something like: 
C MOVEL 'N' FLGHOLD 1 
C KEYHLDF KLIST 
C KFLD P1AENB 
C KFLD P1DCCD 
C KFLD P1CVNB 
*read hold file 
C KEYHLDF CHAIN MBCKRES0 22 
C *IN22 DOWEQ *OFF 
*if the filed 'approval user' is blank, then the order 
*or a line item of the order is on hold. 
C CKHACD IFEQ *BLANKS 
C MOVEL 'Y' FLGHOLD 
C LEAVE 
C ENDIF 
C KEYHLDF READE MBCKRES0 22 
C ENDDO 
* If a record exist in the Hold file MBCKRES0 
* without approval, then finish program 
C FLGHOLD IFEQ 'Y' 
C SETON LR 
C RETRN 
C ENDIF 

* if not continue with the program..... 
* 
* 
* Initialize 
C EXSR ZZINIT 
* PRT:Acknowledgement: Mainline 
C EXSR A0MAIN 
* Print headers then End of report format 
C EXSR Q0PRNT 
C WRITEYBENDRPT 
* Exit program 




Antonio Rojas 
I.T. Manager - Senior Aerospace SSP 
(818) 458-7802 




cmh501@xxxxxxxx wrote: 
Date: Fri, 2 Feb 2007 9:53:34 -0500 
From: 
To: mapics-l@xxxxxxxxxxxx 
Subject: [MAPICS-L] Holding Acknowledgments 

Our customer service department wants to have the ability NOT to print an 
order acknowledgment at end order time if an order is on any type of hold. 
The order acknowledgment selection would be protected (such as the pick 
list option) if the order is on hold. This allows the departments involved 
to review the order and release the hold before the order is acknowledged. 
Once all holds have been released then customer service want to be able to 
print the acknowledgment. Has anyone done something similar to this? 

Thank you, 
Candy Hein 
_______________________________________________ 
This is the MAPICS ERP System Discussion (MAPICS-L) mailing list 
To post a message email: MAPICS-L@xxxxxxxxxxxx 
To subscribe, unsubscribe, or change list options, 
visit: http://lists.midrange.com/mailman/listinfo/mapics-l 
or email: MAPICS-L-request@xxxxxxxxxxxx 
Before posting, please take a moment to review the archives 
at http://archive.midrange.com/mapics-l. 

_______________________________________________ 
This is the MAPICS ERP System Discussion (MAPICS-L) mailing list 
To post a message email: MAPICS-L@xxxxxxxxxxxx 
To subscribe, unsubscribe, or change list options, 
visit: http://lists.midrange.com/mailman/listinfo/mapics-l 
or email: MAPICS-L-request@xxxxxxxxxxxx 
Before posting, please take a moment to review the archives 
at http://archive.midrange.com/mapics-l.