Re: Why did our COM period close delete a customer?

God Hunting Greg ..... That snipet of code has been in there for years. I would 
venture to say XA3 if not before .... Notice the reference "QE&I".
 
 

        -----Original Message----- 
        From: mapics-l-bounces@xxxxxxxxxxxx on behalf of Greg Wenzloff 
        Sent: Mon 3/12/2007 1:40 PM 
        To: mapics-l@xxxxxxxxxxxx 
        Cc: 
        Subject: [MAPICS-L] Why did our COM period close delete a customer?
        
        

        Lookie what I found... AMR75...  the smoking gun.
        Greg
        
        My first reaction to blame COM was wrong.
        
         ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 
         0604 CL1                   END
        
         0605 C* IF IND 33 IS ON, CALL AMVAZXFR TO EDIT AND DELETE CUSTOMER.
        
         0606 C* 'AMVAZXFR' CHECKS THAT CUSTOMER HAS NO OPEN ORDERS IN OE&I,
        
         0607 C* HAS NO DETAIL RECORDS IN 'OPENAR' FILE, HAS NO S/A RECORDS
        
         0608 C* IN 'CUSTSA' FILE, AND IF A HDQTRS, HAS NO BRANCHES.  IT THEN
        
         0609 C* DELETES ALL THE CUSTOMER ASSOCIATED RECORDS IN ALL FILES,
        
         0610 C* CUSTOMER, A/R EXTENSION, ADDRESS, SHIP-TO, ETC.
        
         0611 C*
        
         0612 CL1         *IN33     IFEQ '1'
        
         0613 CL1                   CALL 'AMVAZXFR'
        
         0614 CL1                   PARM           P0TRN   7
        
         0615 CL1                   PARM           COMNOC
        
         0616 CL1                   PARM           CUSNOC
        
         0617 CL1                   END
        
         0618 CL1                   SETOF                     9833
        
         /A    *
        
        
        _______________________________________________
        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.