Visit the SAP Forum

Languages : English | Dutch | French | Portugese | Italian



INTERVIEW EBOOK
Get 30,000 Interview Questions & Answers in an eBook.

Interview Success Kit - Get Success in Job Interviews



Send your Resume to 6000 Companies
START YOUR WEBSITE
India's Best Web Hosting Company

Production Order Quantity Change Daily Checklist


Home »Production Management » Production Order Quantity Change Daily Checklist


Production Order Quantity Change Daily Checklist

*
* Production Order Quantity Change Daily Checklist
*
* An 'Err' flag will be assigned to the 'Rmks' column if the Required
* components quantity does not equal to the calculated BOM components
* quantity.
*

REPORT ZPPORDER LINE-SIZE 180 NO STANDARD PAGE HEADING
 LINE-COUNT 058(001).

TABLES: AUFK, "Order master data
 AFKO, "Order header data PP orders
 RESB, "Reservation/dependent requirements
 MAST, "Material to BOM Link
 STKO, "BOM Header
 STPO. "BOM item




DATA: BEGIN OF WA, AUART TYPE AUFK-AUART, AUFNR TYPE AUFK-AUFNR, AEDAT TYPE AUFK-AEDAT, AENAM TYPE AUFK-AENAM, WERKS TYPE AUFK-WERKS, PLNBEZ TYPE AFKO-PLNBEZ, GAMNG TYPE AFKO-GAMNG, GASMG TYPE AFKO-GASMG, MATNR TYPE RESB-MATNR, POSNR TYPE RESB-POSNR, BDMNG TYPE RESB-BDMNG, BMENG TYPE STKO-BMENG, MENGE TYPE STPO-MENGE, END OF WA, ITAB LIKE SORTED TABLE OF WA WITH NON-UNIQUE KEY AUFNR POSNR. DATA: BEGIN OF ITAB2 OCCURS 0. INCLUDE STRUCTURE WA. DATA: END OF ITAB2. DATA: BEGIN OF ITAB-AUFK OCCURS 0, AUART LIKE AUFK-AUART, AUFNR LIKE AUFK-AUFNR, POSNR LIKE RESB-POSNR, AEDAT LIKE AUFK-AEDAT, AENAM LIKE AUFK-AENAM, WERKS LIKE AUFK-WERKS, PLNBEZ LIKE AFKO-PLNBEZ, GAMNG(7) TYPE P DECIMALS 0, GASMG(7) TYPE P DECIMALS 0, MATNR LIKE RESB-MATNR, BDMNG(7) TYPE P DECIMALS 0, BMENG(7) TYPE P DECIMALS 0, MENGE(7) TYPE P DECIMALS 3. DATA: END OF ITAB-AUFK. DATA: FDATE LIKE SY-DATUM, LDATE LIKE SY-DATUM. DATA: X_AUFNR LIKE AFKO-AUFNR, X_MENGE(7) TYPE P DECIMALS 0, X_ERR(3). DATA: W_DATASET1(500) VALUE '/usr/sap/trans/data/'. SELECT-OPTIONS T_WERKS FOR AUFK-WERKS OBLIGATORY. SELECT-OPTIONS T_AUFNR FOR AUFK-AUFNR. SELECT-OPTIONS T_AEDAT FOR AUFK-AEDAT. PARAMETERS PDATA LIKE W_DATASET1. CONCATENATE W_DATASET1 PDATA INTO W_DATASET1. PERFORM F_COLLECT_DATA. FORM F_COLLECT_DATA. OPEN DATASET W_DATASET1 FOR INPUT IN TEXT MODE. DO. IF sy-subrc <> 0. EXIT. ENDIF. READ DATASET W_DATASET1 INTO WA. APPEND WA TO ITAB2. ENDDO. CLOSE DATASET W_DATASET1. SELECT A~AUFNR A~AUART A~AEDAT A~AENAM A~WERKS B~PLNBEZ B~GAMNG B~GASMG C~MATNR C~BDMNG C~POSNR INTO CORRESPONDING FIELDS OF TABLE ITAB FROM ( AUFK AS A INNER JOIN AFKO AS B ON B~AUFNR = A~AUFNR INNER JOIN RESB AS C ON C~AUFNR = A~AUFNR ) WHERE A~AEDAT IN T_AEDAT AND A~WERKS IN T_WERKS. LOOP AT ITAB INTO WA. CLEAR MAST. SELECT SINGLE * FROM MAST WHERE MATNR = WA-PLNBEZ AND WERKS = WA-WERKS. CLEAR STKO. SELECT SINGLE * FROM STKO WHERE STLNR = MAST-STLNR AND STLAL = MAST-STLAL. CLEAR STPO. SELECT SINGLE * FROM STPO WHERE STLNR = MAST-STLNR AND POSNR = WA-POSNR. WA-BMENG = STKO-BMENG. WA-MENGE = STPO-MENGE. MODIFY ITAB FROM WA. AT NEW AUFNR. SKIP. ENDAT. LOOP AT ITAB2 WHERE AUFNR = WA-AUFNR AND POSNR = WA-POSNR. IF ITAB2-GAMNG <> WA-GAMNG OR ITAB2-GASMG <> WA-GASMG OR ITAB2-BDMNG <> WA-BDMNG. CLEAR X_MENGE. IF ITAB2-BMENG <> 0. X_MENGE = ITAB2-GAMNG / ITAB2-BMENG * ITAB2-MENGE. ENDIF. CLEAR X_ERR. IF ITAB2-BDMNG <> X_MENGE. X_ERR = 'Err'. ENDIF. FORMAT COLOR COL_TOTAL. WRITE: / ITAB2-AUART UNDER 'Type', ITAB2-AUFNR UNDER 'Prod Order', ITAB2-AEDAT UNDER 'Last Chg Dt', ITAB2-AENAM UNDER 'Last Chg by', ITAB2-WERKS UNDER 'Plant', ITAB2-PLNBEZ UNDER 'Material', (10) ITAB2-GAMNG UNDER 'Order Qty' DECIMALS 0, (10) ITAB2-GASMG UNDER 'Scrap Qty' DECIMALS 0, ITAB2-POSNR UNDER 'Item', ITAB2-MATNR UNDER 'Component Req', (10) ITAB2-BDMNG UNDER 'Req Qty' DECIMALS 0, X_MENGE UNDER 'BOM Qty' COLOR COL_TOTAL, ITAB2-BMENG UNDER 'BOM Base', ITAB2-MENGE UNDER 'BOM Comp', X_ERR UNDER 'Rmks' COLOR COL_TOTAL. CLEAR X_MENGE. IF WA-BMENG <> 0. X_MENGE = WA-GAMNG / WA-BMENG * WA-MENGE. ENDIF. CLEAR X_ERR. IF WA-BDMNG <> X_MENGE. X_ERR = 'Err'. ENDIF. FORMAT COLOR OFF. WRITE: / WA-AUART UNDER 'Type', WA-AUFNR UNDER 'Prod Order', WA-AEDAT UNDER 'Last Chg Dt', WA-AENAM UNDER 'Last Chg by', WA-WERKS UNDER 'Plant', WA-PLNBEZ UNDER 'Material', (10) WA-GAMNG UNDER 'Order Qty' DECIMALS 0, (10) WA-GASMG UNDER 'Scrap Qty' DECIMALS 0, WA-POSNR UNDER 'Item', WA-MATNR UNDER 'Component Req', (10) WA-BDMNG UNDER 'Req Qty' DECIMALS 0, X_MENGE UNDER 'BOM Qty' COLOR COL_TOTAL, WA-BMENG UNDER 'BOM Base', WA-MENGE UNDER 'BOM Comp', X_ERR UNDER 'Rmks' COLOR COL_TOTAL. ENDIF. ENDLOOP. ENDLOOP. LOOP AT ITAB2. LOOP AT ITAB INTO WA WHERE AUFNR = ITAB2-AUFNR AND POSNR = ITAB2-POSNR. DELETE ITAB2. ENDLOOP. SELECT SINGLE * FROM AUFK WHERE AUFNR = ITAB2-AUFNR. IF SY-SUBRC <> 0. DELETE ITAB2. ENDIF. ENDLOOP. OPEN DATASET W_DATASET1 FOR OUTPUT IN TEXT MODE. LOOP AT ITAB INTO WA. TRANSFER WA TO W_DATASET1. ENDLOOP. LOOP AT ITAB2 INTO WA. TRANSFER WA TO W_DATASET1. ENDLOOP. CLOSE DATASET W_DATASET1. ENDFORM. TOP-OF-PAGE. FORMAT COLOR COL_TOTAL. WRITE: / SY-DATUM, SY-UZEIT, SY-REPID, SY-UNAME, 50 'Daily Qty Changed Checklist for Production Order', 120 SY-PAGNO. SKIP. WRITE: / 'Plant ', T_WERKS-LOW. WRITE: ' Last Change Date ', T_AEDAT-LOW, ' to ', T_AEDAT-HIGH. SKIP. WRITE: /1 'Type', 6 'Prod Order', 17 'Last Chg Dt', 29 'Last Chg by', 42 'Plant', 49 'Material', 69 'Order Qty', 83 'Scrap Qty', 99 'Item', 105 'Component Req', 121 'Req Qty', 135 'BOM Qty', 149 'BOM Base', 163 'BOM Comp', 178 'Rmks'. ULINE. WRITE: / 'Previous data :- '. FORMAT COLOR OFF. WRITE: / 'Current data :- '. INITIALIZATION. LDATE = SY-DATUM. LDATE = LDATE - 1. FDATE = LDATE. MOVE: FDATE TO T_AEDAT-LOW. APPEND T_AEDAT. PDATA = 'AE001'.
A D V E R T I S E M E N T

A D V E R T I S E M E N T

S A P - R E S O U R C E S


Get Free SAP Resources:

Are you looking for:
  • SAP Jobs
  • Free SAP eBooks
  • SAP Softwares
  • SAP Tutorials
  • ERP Implementation Examples
Enter Email Address:
(Enter your email address above and we will instantly send you the download link to you, when you confirm your email.)
Search SAP Resources:
discussionDiscussion Center
Discuss
Discuss

Query

Feedback
Yahoo Groups
Y! Group
Sirfdosti Groups
Sirfdosti
Contact Us
Contact
Sign in

User Name:
Password:
Forget password? | Register


INTERVIEW EBOOK

Get 30,000 Interview Questions & Answers in an eBook.

Interview Success Kit - Get Success in Job Interviews


Send your Resume to 6000 Companies

SAP Resources

  • SAP Articles
  • SAP Books
  • SAP Certifications
  • SAP Companies
  • SAP Study Materials
  • SAP Events
  • SAP Faqs
  • SAP Jobs
  • SAP Job Consultants
  • SAP Links
  • SAP News
  • SAP Sample Papers
  • SAP Interview Questions
  • SAP Training Institutes
  •  
    SAP Tutorial

  • Introduction
  • SAP History
  • SAP Facts
  • SAP Tables
  • SAP Function
  • SAP Report
  • Reasons To Use SAP
  • SAP Landscape
  • SAP Transaction Code
  • SAP Lotus Notes Integration
  • Business Connector and XML
  • Enterprise Release 4.7

  • SAP Training Institutes

  • SAP Training Institutes
  • Job Consultants Address
  • SAP Companies Address

  • Business Process Cycle

  • Analyze
  • Design
  • Implement
  • Operate
  • Optimize
  • Skills And Education

  • Logistics Module

  • Sales and Distribution
  • Quality Management
  • Materail Management
  • Plant Maintenance
  • Financial Modules (FI/CO)
  • Project system
  • Production Planning
  • Service Management

  • SAP NetWeaver

  • Introduction
  • Object Model
  • Interoperability
  • Creating Web Apps
  • Java Connector
  • Advantages & Conclusion
  • Life Cycle Management
  • Composite Application Framework

  • SAP Tools

  • SQL Trace Tool
  • SAP CRM
  • SAP SRM
  • SAP SCM
  • SAP ERP
  • SAP BW

  • SAP Modules

  • SAP FI Module
  • SAP CO Module

  • SAP Technical

  • SAP ITS Architecture
  • Financial Management
  • Manufacturing Planning and Execution
  • Customer Order Management
  • Lackbox Processing
  • SD and Financial Accounting Integration
  • SAP - HR (Human Resource)

  • SAP Miscellanous

  • Web Application Server(WAS)
  • Data Archiving
  • Mobile Engine
  • SAP Script
  • SAP Transactions
  • SAP Business Warehouse(BW)

  • SAP Reference

  • SAP Facts
  • SAP Tables
  • SAP Function
  • SAP Report
  • SAP Landscape

  • SAP Others

  • SAP Treasury
  • SAP Finance
  • SAP WAS
  • SAP Data Archiving
  • SAP ALE
  • SAP EDI
  • SAP Exchange
  • SAP X-APPS
  • SAP Applications Components
  • SAP Software
  • Dunning
  • SAP IDES
  • SAP Payroll Basics
  • SAP BASIS and Security Authorization
  • SAP Backup
  • SAP Router

  • ABAP Tutorials

  • Introduction
  • ABAP Transaction
  • ABAP Function
  • ABAP File Processing
  • ABAP Objects
  • ABAP Syntax
  • ABAP Queries
  • SAPMail Using ABAP
  • ABAP Programming Hints

  • SAP Projects & Codes

  • Finding the user-exits
  • Purchase Order Display
  • Batch Input
  • Dynamic Open SQL
  • Creating Extract Dataset
  • Reading database tables
  • Load table from a UNIX file
  • Create subscreen

  • SAP Resources

  • SAP Books
  • SAP Links

  • Interview Question



  • Common Interview Que.
  • ABAP Interview Que.
  • ERP Interview Que.
  • HR Interview Que.
  • MM Interview Que.
  • PP Interview Que.
  • ALE Interview Que.
  • EDI Interview Que.
  • Basis Interview Questions
  • SAP-SD Interview Questions
  • FI&CO Interview Questions
  • BW Interview Questions
  • CRM Interview Questions
  • Interview Questions

  • Careers at SAP

  • Careers in SAP (SAP Jobs)
  • Advertise
  •