Re: Holding Acknowledgments

Antonio -- I like this -- nice!    Greg

-----Original Message-----
From: mapics-l-bounces+gwenzloff=beckmfg.com@xxxxxxxxxxxx
[mailto:mapics-l-bounces+gwenzloff=beckmfg.com@xxxxxxxxxxxx] On Behalf
Of ARojas@xxxxxxxxxxxxxxxxxxx
Sent: Friday, February 02, 2007 12:18 PM
To: mapics-l@xxxxxxxxxxxx
Subject: [MAPICS-L] Holding Acknowledgments

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: <cmh501@xxxxxxxx>
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.