Enterprise Resource Planning Blogs by Members
Gain new perspectives and knowledge about enterprise resource planning in blog posts from community members. Share your own comments and ERP insights today!
cancel
Showing results for 
Search instead for 
Did you mean: 
Former Member

Dear All,

I have learnt so many things from this SAP SCN blogs, documents and also from the experts who are supporting SAP Business one Consultants,

Thanks for

Mr.Nagarajan

Mr. Kennedy T

Mr.  Andakonda Ramudu

-----******-------

I have written some transaction notifications, hope this will help you .

   

------Cannot Add Good Receipt PO without Purchase Order (FOR only item type)-----------

IF @object_type = '20'

         AND @transaction_type IN ('A', 'U')

      BEGIN

          IF EXISTS(

                 SELECT t1.docentry

                 FROM   opdn t1

                        INNER JOIN pdn1 t2

                             ON  t1.docentry = t2.docentry

                 WHERE  @list_of_cols_val_tab_del = t1.docentry

                        AND t2.BaseType<>'22' AND t1.DocType='I'

             )

          BEGIN

              SET @error = -1

            

              SET @error_message = 'You Cannot Add Good Receipt PO without Purchase Order'

          END

      END

   

------Cannot Add Good Return without Goods Receipt PO (FOR only item type)-----------

IF @object_type = '21'

         AND @transaction_type IN ('A', 'U')

      BEGIN

          IF EXISTS(

                 SELECT t1.docentry

                 FROM   orpd t1

                        INNER JOIN rpd1 t2

                             ON  t1.docentry = t2.docentry

                 WHERE  @list_of_cols_val_tab_del = t1.docentry

                        AND t2.BaseType<>'20' AND t1.DocType='I'

             )

          BEGIN

              SET @error = -1

            

              SET @error_message = 'You Cannot Add Good Return without Goods Receipt PO'

          END

      END

-- BLOCK PURCHASE INVOICE WITHOUT GOOD RECEIPT PURCHASE ORDER(FOR only item type)----

   IF @object_type = '18'

         AND @transaction_type IN ('A', 'U')

      BEGIN

          IF EXISTS(

                 SELECT t1.docentry

                 FROM   opch t1

                        INNER JOIN pch1 t2

                             ON  t1.docentry = t2.docentry

                 WHERE  @list_of_cols_val_tab_del = t1.docentry

                        AND t2.BaseType<>'20' AND t1.DocType='I'

             )

          BEGIN

              SET @error = -1

            

              SET @error_message = 'You Cannot Add GPURCHASE INVOICE WITHOUT GOODS RECEIPT PURCHASE ORDER'

          END

      END

   

------Cannot Add Delivery Note without Sales Order (FOR only item type)-----------

IF @object_type = '15'

         AND @transaction_type IN ('A', 'U')

      BEGIN

          IF EXISTS(

                 SELECT t1.docentry

                 FROM   odln t1

                        INNER JOIN dln1 t2

                             ON  t1.docentry = t2.docentry

                 WHERE  @list_of_cols_val_tab_del = t1.docentry

                        AND t2.BaseType<>'17' AND t1.DocType='I'

             )

          BEGIN

              SET @error = -1

            

              SET @error_message = 'You Cannot Add Delivery Note without Sales Order'

          END

      END

   

------Cannot Add Return without Delivery Note (FOR only item type)-----------

IF @object_type = '16'

         AND @transaction_type IN ('A', 'U')

      BEGIN

          IF EXISTS(

                 SELECT t1.docentry

                 FROM   ordn t1

                        INNER JOIN rdn1 t2

                             ON  t1.docentry = t2.docentry

                 WHERE  @list_of_cols_val_tab_del = t1.docentry

                        AND t2.BaseType<>'15' AND t1.DocType='I'

             )

          BEGIN

              SET @error = -1

            

              SET @error_message = 'You Cannot Add Return without Delivery Note'

          END

      END

-- BLOCK SALES INVOICE WITHOUT Delivery Note (FOR only item type)----

   IF @object_type = '13'

         AND @transaction_type IN ('A', 'U')

      BEGIN

          IF EXISTS(

                 SELECT t1.docentry

                 FROM  oinv t1

                        INNER JOIN inv1 t2

                             ON  t1.docentry = t2.docentry

                 WHERE  @list_of_cols_val_tab_del = t1.docentry

                        AND t2.BaseType<>'15' AND t1.DocType='I'

             )

          BEGIN

              SET @error = -1

            

              SET @error_message = 'You Cannot Add SALES INVOICE WITHOUT DELIVERY NOTE'

          END

      END

--------------------------------------------

Thank you

1 Comment
Labels in this area