Quality Check before every Delivery

Dear All,
I have a requirement as follows:
This is a Make to Stock scenario where the material is produced, a Quality check is performed and placed in finished goods storage location. After 3-4months of production when a Sales order is due for delivery, the client wants to perform a Quality check before every delivery is dispatched.
Can you please suggest me how this can be mapped in SAP?

Hello ,
please check this link
http://help.sap.com/erp2005_ehp_05/helpdata/EN/7b/acae87475331479287bcb94b25072d/frameset.htm
venkataswamy

Similar Messages

ATP check before delivery creation

Gurus,
Is there any way of confirming stock in sales order or scheduling agreement by some user exit before we create the delivery.
For example i have one sales order with quantity of 10. I have 10 pieces in stock but not confirmed in sales order yet so before batch job runs and creates delivey what should be done to confirm that stock in sales order.
Any help would be appriciated.
Thanks
Aman

Hi Amandeep,
You need to go for Rescheduling of sales order which is the standard functionality and you dont have to use user exit for the same.
Lets say your orders are created with 0 confirmed quantity and now you have stock in the system.
Execute the transaction v_v2 and check out the below mentioned step and result for the same.
During the rescheduling the open sales order items release their confirmed quantities. The items are sorted according to delivery priority, creation date, document numberand item number and are then transfered to the availability check. Both sales orders are checked in the order of their creation date, because they have the same delivery priority.
If the Unconfirmed documents required parameter is selected, at least one document of the material must be unconfirmed to assure that all documents of the material are transfered to the availability check.
The delivery date of the sales order can be set as sorting criterion for the availability check, via the sorting criterion delivery date parameter (which you didn't choose). In this case every sales order is sorted according to the delivery date within the priority.
Sales order items with the marks date and fixed quantity aren't rescheduled.
# Choose .
The system displays a list of the rescheduling results.
In the rescheduling log you can see, that sales order has got a new confirmed quantity (column confirmed new).
# In the dialog box, choose Yes.
# Choose until the overview tree appears.
Hope this will resolve your query.
REgards,
Krishna O

Quality Check after launch pick release and before shipment

Dear All,
This is our client requirement to have Quality Check after launch pick release and before shipment in order management.Can any one please help in this regard?We are also using process Manufacturing Module?
Regards
Naveed

See if this helps
A Guide to Oracle Quality: An Oracle White Paper [ID 248331.1]
Mahendra

Quality Check at customer location

Hi experts,
I am working for dairy industry and here one scenario is that my client sends processed milk in tankers to other dairies, before that quality check is done, FAT & SNF is measured and according to fat & snf the rates of milk to customer is done, that milk reaches to the customer on that day or second day, then at the customer site again quality of that milk is measured in terms of fat & snf, and it may or may not vary, but if quality is differed then it is noted down and that customer sends that quality on document and then according to the quality found at customer location the billing to the customer is done on this basis, so my client requirement is that he wants the quality check done at customer location should get fetch in POD (T-code LOPOD) so that their manual entry is minimized, whats the solution.
Regards,
Karad D D

Hi,
Activate the Delivery Inspection type 10. Create Quality Info record - customer. In Info Record , make the check for Quality Inspection after Delivery.
With Thos setting material can be delivered for the delivery note without Making Inspection, but lot will generate. Make the Inspection at Customer Site and Do the RR for that Lot.
Reagrds,
Neeraj

PO/ S.Location and GR msg check box in 'delivery/invoice' tab of header dat

Hi all,
Under which case the below 2 fields are required to b filled while creating a PO apart from making them mandatory fieds in document type settings.
1. GR msg check box in 'delivery/invoice' tab of header data
2. Storage Location data in item details
in me59n, system unable process p.req to PO becoz it is mandatory to fill these two fields.

Hi,
1. GR message check box issues message to the buyer after every the goods receipt against the PO.
Message type has to be configured for this functionality.
2. If you are managing stock of material at storage location level , then you will need to maintain this at PO item level.
Regards,
Maheshwari

Print out every delivery

Dear All.
Till this day the duty-form for a company were performed through a
special Form Program, it is performed via processing routines.
The first Form Routine's name is entry.
Form was printed-out for each Transport up to now.
Current Requirements are for next time as follows:
Printing out one form for every delivery (shipment) instead of
for each Transport as so far. Please notice one Transport may
consist of many deliveries (Shipment). 1 Transport : n Shipment.
DATA:
      lc_wa_usrdata TYPE /Z2a/ty_lw_usrdata.
INCLUDE rvadtabl.
SET EXTENDED CHECK OFF.
TABLES: vbpla, thead, ttxer, ttxit, t005, vbddl, stxh, sadr."SADR40A
INCLUDE vttkdata.                      "Shipment Header
INCLUDE vttsdata.                      "Shipment Segment
INCLUDE vttpdata.                      "Shipment Items
INCLUDE vbpadata.                      "Partner
INCLUDE vtfadata.                      "Flow
INCLUDE sadrdata.                      "Address
INCLUDE vtlfdata.                      "Delivery Selection
INCLUDE vsedata.                       "shipping units
INCLUDE rv56acom.                      "I/O-Structure
SET EXTENDED CHECK ON.
TABLES: /Z2a/tv_schein.
FORM entry USING return_code us_screen.
DATA: lf_retcode TYPE sy-subrc.
screen = us_screen.
PERFORM processing USING    us_screen
                     CHANGING lf_retcode.
IF lf_retcode NE 0.
    return_code = 1.
ELSE.
    return_code = 0.
ENDIF.
ENDFORM.
FORM processing USING    proc_screen
                CHANGING cf_retcode.
DATA: ls_print_data_to_read TYPE ledlv_print_data_to_read.
DATA: ls_dlv_delnote        TYPE ledlv_delnote.
DATA: lf_fm_name            TYPE rs38l_fnam.
DATA: ls_control_param      TYPE ssfctrlop.
DATA: ls_composer_param     TYPE ssfcompop.
DATA: ls_recipient          TYPE swotobjid.
DATA: ls_sender             TYPE swotobjid.
DATA: lf_formname           TYPE tdsfname.
DATA: ls_addr_key           LIKE addr_key.
DATA: ls_header             LIKE /Z2a/ss_pv_kopf.
DATA: tb_daten              LIKE /Z2a/ss_pv_daten OCCURS 1.
DATA: lc_va_lfnr            TYPE nrlevel.
DATA: lc_va_year            TYPE char4.
DATA: lc_va_keyseg_pv       TYPE /dca/p000_keyseg.
DATA: lc_tb_bwdat_pv        TYPE /dca/p000_ty_tb_bwdat.
DATA: lc_wa_bwdat_pv        TYPE /dca/p000_ty_wa_bwdat.
DATA: lc_wa_bwm_res_pv      TYPE /Z2a/dat_cu_pvschein.
DATA: lc_va_lifnr           TYPE kunnr.
DATA: lc_va_nr              TYPE nrnr.
DATA: lc_va_anz             TYPE /Z2a/anz_pv.
DATA: lc_va_no              TYPE /Z2a/anz_kein_pv.
DATA: lc_wa_pvschein        LIKE /Z2a/tv_schein.
DATA: lc_va_line            LIKE sy-tabix.
DATA: lc_va_flag_zoll       TYPE segal,
        lc_va_rqident         TYPE rspoid,
        lc_va_vsart           TYPE vsarttr,
        lc_va_tknum           TYPE tknum.
DATA: lc_va_obj             TYPE nrobj.
DATA: lc_va_printer         TYPE rspopname.
DATA: lc_va_pv_kz           TYPE char4.
DATA: lc_va_tplst           TYPE tplst.
* SmartForm from customizing table TNAPR
lf_formname = tnapr-sform.
* determine print data
PERFORM set_print_data_to_read USING    lf_formname
                                 CHANGING ls_print_data_to_read
                                 cf_retcode.
IF cf_retcode = 0.
* select print data
    PERFORM get_data_pv TABLES   tb_daten
                        CHANGING ls_header
                                 lc_va_flag_zoll
                                 lc_va_vsart
                                 lc_va_tplst
                                 cf_retcode.
ENDIF.
lc_va_tknum = nast-objky.
IF cf_retcode = 0.
ELSE.
    PERFORM protocol_nast_update.
    cf_retcode = 4.
    EXIT.
ENDIF.
IF cf_retcode = 0.
* determine smartform function module for delivery note
    CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
         EXPORTING formname           = lf_formname
         IMPORTING fm_name            = lf_fm_name
         EXCEPTIONS no_form            = 1
                    no_function_module = 2
                    OTHERS             = 3.
    IF sy-subrc <> 0.
    ENDIF.
ENDIF.
DESCRIBE TABLE tb_daten LINES lc_va_line.
IF lc_va_line <> 0.
    lc_va_pv_kz = 'JA'.
    SELECT SINGLE lifnr
      FROM vtpa
      INTO lc_va_lifnr
     WHERE vbeln = nast-objky
       AND parvw = 'YL'.
    lc_va_keyseg_pv = ls_header-kunnr.
    lc_va_keyseg_pv+10(10) = lc_va_lifnr.
    lc_va_keyseg_pv+20(2) = lc_va_vsart.
    lc_va_keyseg_pv+22(4) = lc_va_pv_kz.
    CALL FUNCTION '/ZTR/P000_MCDATA_FROM_'
         EXPORTING
              cv_va_keytyp = '/Z2a/KEY_CU_PVSCHEIN'
              cv_va_keyseg = lc_va_keyseg_pv
         TABLES
              cr_tb_bwdat = lc_tb_bwdat_pv.
    IF lc_tb_bwdat_pv[] IS INITIAL.
      cf_retcode = 4.
    ELSE.
      LOOP AT lc_tb_bwdat_pv INTO lc_wa_bwdat_pv.
        lc_wa_bwm_res_pv = lc_wa_bwdat_pv-datseg.
        lc_va_obj = lc_wa_bwm_res_pv(10).
        lc_va_nr = lc_wa_bwm_res_pv+10(2).
        lc_va_anz = lc_wa_bwm_res_pv+12(8).
        lc_va_printer = lc_wa_bwm_res_pv+20(4).
        SELECT SINGLE pvno
          FROM /Z2a/tv_schein
          INTO lc_va_lfnr
         WHERE tknum = nast-objky.
        IF sy-subrc = 0.
        ELSE.
          CALL FUNCTION 'NUMBER_GET_NEXT'
            EXPORTING
          nr_range_nr                   = lc_va_nr
          object                        = lc_va_obj
           IMPORTING
             number                     = lc_va_lfnr
          IF sy-subrc <> 0.
          ENDIF.
        ENDIF.
      ENDLOOP.
    ENDIF.
*   call smartform delivery note
    ls_composer_param-tddest = lc_va_printer.
*    ls_control_param-device = lc_va_printer.
    lc_va_year = sy-datum(4).
    PERFORM set_print_param USING    ls_addr_key
                                     lc_va_lfnr
                            CHANGING ls_control_param
                                     ls_composer_param
                                     ls_recipient
                                     ls_sender
                                     cf_retcode.
    lc_wa_usrdata-mandt = sy-mandt.
    lc_wa_usrdata-udate = sy-datum.
    lc_wa_usrdata-uzeit = sy-uzeit.
    lc_wa_usrdata-usr    = sy-uname.
    lc_wa_usrdata-sysid = sy-sysid.
    DO lc_va_anz TIMES.
      CALL FUNCTION lf_fm_name
           EXPORTING
                    archive_index        = toa_dara
                    archive_parameters   = arc_params
                    control_parameters   = ls_control_param
                    mail_recipient       = ls_recipient
                    mail_sender          = ls_sender
                    output_options       = ls_composer_param
                    user_settings        = ' '
                    ls_header            = ls_header
                    lc_va_lfnr           = lc_va_lfnr
                    lc_va_year           = lc_va_year
                    lc_va_tplst          = lc_va_tplst
                    lc_wa_usrdata        = lc_wa_usrdata
          TABLES
                    tb_daten             = tb_daten
         EXCEPTIONS formatting_error     = 1
                    internal_error       = 2
                    send_error           = 3
                    user_canceled        = 4
                    OTHERS               = 5.
      IF sy-subrc <> 0.
      ENDIF.
    ENDDO.
ELSE.
    lc_va_pv_kz = 'NEIN'.
    SELECT SINGLE lifnr
      FROM vtpa
      INTO lc_va_lifnr
     WHERE vbeln = nast-objky
       AND parvw = 'YL'.
    lc_va_keyseg_pv = ls_header-kunnr.
    lc_va_keyseg_pv+10(10) = lc_va_lifnr.
    lc_va_keyseg_pv+20(2) = lc_va_vsart.
    lc_va_keyseg_pv+22(4) = lc_va_pv_kz.
    CALL FUNCTION '/ZTR/P000_MCDATA_FROM_'
         EXPORTING
              cv_va_keytyp = '/Z2a/KEY_CU_PVSCHEIN'
              cv_va_keyseg = lc_va_keyseg_pv
         TABLES
              cr_tb_bwdat = lc_tb_bwdat_pv.
    IF lc_tb_bwdat_pv[] IS INITIAL.
      cf_retcode = 4.
    ELSE.
      LOOP AT lc_tb_bwdat_pv INTO lc_wa_bwdat_pv.
        lc_wa_bwm_res_pv = lc_wa_bwdat_pv-datseg.
        lc_va_obj = lc_wa_bwm_res_pv(10).
        lc_va_nr = lc_wa_bwm_res_pv+10(2).
        lc_va_anz = lc_wa_bwm_res_pv+12(8).
        lc_va_printer = lc_wa_bwm_res_pv+20(4).
        SELECT SINGLE pvno
          FROM /Z2a/tv_schein
          INTO lc_va_lfnr
         WHERE tknum = nast-objky.
        IF sy-subrc = 0.
          UPDATE /Z2a/tv_schein
          SET flag_pv = ' '
          WHERE tknum = nast-objky.
        ELSE.
* laufende nummer füllen, bei keinen PV-Teilen Nummernkreis 99
          CALL FUNCTION 'NUMBER_GET_NEXT'
            EXPORTING
          nr_range_nr                   = lc_va_nr
          object                        = lc_va_obj
*    QUANTITY                      = '1'
*   SUBOBJECT                     = ' '
*   TOYEAR                        = '0000'
*   IGNORE_BUFFER                 = ' '
           IMPORTING
             number                     = lc_va_lfnr
*   QUANTITY                      =
*   RETURNCODE                    =
* EXCEPTIONS
*   INTERVAL_NOT_FOUND            = 1
*   NUMBER_RANGE_NOT_INTERN       = 2
*   OBJECT_NOT_FOUND              = 3
*   QUANTITY_IS_0                 = 4
*   QUANTITY_IS_NOT_1             = 5
*   INTERVAL_OVERFLOW             = 6
*   BUFFER_OVERFLOW               = 7
*   OTHERS                        = 8
          IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
          ENDIF.
        ENDIF.
      ENDLOOP.
      lc_va_year = sy-datum(4).
      ls_composer_param-tddest = lc_va_printer.
      PERFORM set_print_param USING    ls_addr_key
                                       lc_va_lfnr
                              CHANGING ls_control_param
                                       ls_composer_param
                                       ls_recipient
                                       ls_sender
                                       cf_retcode.
      lc_wa_usrdata-mandt = sy-mandt.
      lc_wa_usrdata-udate = sy-datum.
      lc_wa_usrdata-uzeit = sy-uzeit.
      lc_wa_usrdata-usr    = sy-uname.
      lc_wa_usrdata-sysid = sy-sysid.
      DO lc_va_anz TIMES.
        CALL FUNCTION lf_fm_name
             EXPORTING
                      archive_index        = toa_dara
                      archive_parameters   = arc_params
                      control_parameters   = ls_control_param
                      mail_recipient       = ls_recipient
                      mail_sender          = ls_sender
                      output_options       = ls_composer_param
                      user_settings        = ' '
                      ls_header            = ls_header
                      lc_va_lfnr           = lc_va_lfnr
                      lc_va_year           = lc_va_year
                      lc_va_tplst          = lc_va_tplst
                      lc_wa_usrdata        = lc_wa_usrdata
            TABLES
                      tb_daten             = tb_daten
           EXCEPTIONS formatting_error     = 1
                      internal_error       = 2
                      send_error           = 3
                      user_canceled        = 4
                      OTHERS               = 5.
        IF sy-subrc <> 0.
        ENDIF.
      ENDDO.
    ENDIF.
ENDIF.
SELECT SINGLE *
    FROM /Z2a/tv_schein
    INTO lc_wa_pvschein
   WHERE tknum = nast-objky.
IF sy-subrc = 0.
ELSE.
    IF NOT lc_va_lfnr IS INITIAL.
      lc_wa_pvschein-mandt = sy-mandt.
      lc_wa_pvschein-tknum = nast-objky.
      INSERT INTO /Z2a/tv_schein
      VALUES lc_wa_pvschein.
      UPDATE /Z2a/tv_schein SET
      pvno = lc_va_lfnr
      vsart = lc_va_vsart
      exti1 = ls_header-schiffname
      signi = ls_header-siegel
      flag_zoll = lc_va_flag_zoll
      exti2 = ls_header-contnr
      lifex = ls_header-mbcnr
      dalen = ls_header-dalen
      dptbg = ls_header-dptbg
      kunnr = ls_header-kunnr
      add03 = ls_header-add03
      parnr = lc_va_lifnr
      datum_druck = sy-datum
      uzeit_druck = sy-uzeit
      ernam_druck = sy-ucomm
      WHERE tknum = nast-objky.
      IF tb_daten IS INITIAL.
        UPDATE /Z2a/tv_schein SET
       flag_pv = ' '
       WHERE tknum = nast-objky.
      ELSE.
        UPDATE /Z2a/tv_schein SET
        flag_pv = 'X'.
      ENDIF.
    ENDIF.
ENDIF.
* get SmartForm protocoll and store it in the NAST protocoll
* PERFORM ADD_SMFRM_PROT.                       DEL_HP_335958
ENDFORM.
FORM get_data_pv TABLES   lc_tb_daten
                 CHANGING cs_header TYPE /Z2a/ss_pv_kopf
                          lc_va_flag_zoll TYPE segal
                          lc_va_vsart TYPE vsarttr
                          lc_va_tplst TYPE tplst
                          cf_retcode.
TYPES: BEGIN OF ty_wa_vbeln,
         vbeln TYPE vbeln_vl,
         END OF ty_wa_vbeln,
         ty_tb_vbeln TYPE STANDARD TABLE OF ty_wa_vbeln
                     WITH DEFAULT KEY
                     INITIAL SIZE 0,
         ty_wa_lips LIKE lips,
         ty_tb_lips TYPE STANDARD TABLE OF ty_wa_lips
                    WITH DEFAULT KEY
                    INITIAL SIZE 0.
DATA: lc_tb_cond LIKE /Z2a/ss_pv_daten OCCURS 1.
DATA: lc_wa_daten TYPE /Z2a/ss_pv_daten.
DATA: lc_wa_cond TYPE /Z2a/ss_pv_daten.
DATA: lc_va_tknum TYPE tknum,
        lc_tb_lips TYPE ty_tb_lips,
        lc_wa_lips TYPE ty_wa_lips,
        lc_va_kunnr TYPE kunnr,
        lc_va_pvvkz TYPE /Z2a/pvvkz,
        lc_va_exprf TYPE exprf,
        lc_va_matnr TYPE matnr,
        lc_va_menge TYPE lfimg.
DATA: lc_tb_vbeln TYPE ty_tb_vbeln,
        lc_wa_vbeln TYPE ty_wa_vbeln,
        lc_va_land1 TYPE land1,
        lc_va_lifnr TYPE lifnr.
DATA: lc_va_exnum TYPE exnum.
DATA: lc_va_keyseg TYPE /dca/p000_keyseg.
DATA: lc_tb_bwdat TYPE /dca/p000_ty_tb_bwdat.
DATA: lc_wa_bwdat TYPE /dca/p000_ty_wa_bwdat.
DATA: lc_wa_bwm_result TYPE /Z2a/dat_cu_pvabwicklung.
DATA language LIKE nast-spras.
DATA shipment_number LIKE vttk-tknum.
CLEAR cf_retcode.
* get data
language = nast-spras.
shipment_number = nast-objky.
CALL FUNCTION 'RV_SHIPMENT_PRINT_VIEW'
       EXPORTING
            shipment_number     = shipment_number
            option_tvtk         = 'X' "Shipmenttype J/N
            option_ttds         = 'X' "Disposition J/N
            language            = language
            option_items        = 'X' "Transport Items J/N
            option_segments     = 'X' "Transport Segments J/N
            option_partners     = 'X' "Partners J/N
            option_sales_orders = 'X' "Sales orders J/N
            option_export_data = 'X' "Export data J/N
            option_packages     = 'X' "Packages J/N
            option_flow         = ' ' "Flow J/N
            option_no_refresh   = ' ' "Refresh Tables J/N
       IMPORTING
            f_vttkvb            = vttkvb "Shipment Header
            f_tvtk              = tvtk "Shipmenttype
            f_tvtkt             = tvtkt "Description Shipmenttype
            f_ttds              = ttds "Disposition
            f_ttdst             = ttdst "Description Disposition
            f_vbpla             = vbpla "Packages
       TABLES
            f_vttp              = xvttp "Shipment Items
            f_trlk              = slk "Delivery
            f_trlp              = slp "Delivery Item
            f_vtts              = xvtts "Shipment Segments
            f_vtsp              = xvtsp "Segments/Items
            f_vbpa              = xvbpa "Partner
            f_vbadr             = xvbadr "Address
            f_vtfa              = xvtfa "Flow
            f_vbplk             = xvbplk "Shipment Unit Header
            f_vbplp             = xvbplp "Shipment Unit
            f_vbpls             = xvbpls "Shipment Unit Sum
       EXCEPTIONS
            not_found           = 1.
cs_header-tknum      = nast-objky.
cs_header-schiffname = vttkvb-exti1.
cs_header-abfahrt    = vttkvb-dptbg.
cs_header-contnr     = vttkvb-exti2.
cs_header-normt      = vttkvb-add01.
cs_header-siegel     = vttkvb-signi.
cs_header-gewbr      = vttkvb-text2.
cs_header-gewnt      = vttkvb-text3.
cs_header-dalen      = vttkvb-dalen.
cs_header-dptbg      = vttkvb-dptbg.
cs_header-add03      = vttkvb-add03.
lc_va_tplst          = vttkvb-tplst.
lc_va_vsart = vttkvb-vsart.
SELECT vbeln
    FROM vttp
    INTO TABLE lc_tb_vbeln
   WHERE tknum = lc_va_tknum.
LOOP AT lc_tb_vbeln INTO lc_wa_vbeln.
    SELECT SINGLE kunnr lifex
      FROM likp
      INTO (lc_va_kunnr, cs_header-mbcnr)
     WHERE vbeln = lc_wa_vbeln-vbeln.
    SELECT *
      FROM lips
      INTO TABLE lc_tb_lips
     WHERE vbeln = lc_wa_vbeln-vbeln.
ENDLOOP.
LOOP AT lc_tb_lips INTO lc_wa_lips.
    SELECT SINGLE pvvkz
      FROM /Z2a/ldm_kun
      INTO lc_va_pvvkz
     WHERE kunnr = lc_va_kunnr.
    IF lc_va_pvvkz NE 'X'.
      cf_retcode = 4.
      EXIT.
    ELSE.
      SELECT SINGLE exnum segal
       FROM eikp
       INTO (lc_va_exnum, lc_va_flag_zoll)
      WHERE refnr = lc_wa_lips-vbeln.
      SELECT SINGLE exprf
        FROM eipo
        INTO lc_va_exprf
       WHERE exnum = lc_va_exnum
         AND expos = lc_wa_lips-posnr.
      lc_va_keyseg = lc_va_exprf.
      CALL FUNCTION '/ZTR/P000_MCDATA_FROM_'
           EXPORTING
                cv_va_keytyp = '/Z2a/KEY_CU_PVABWICKLUNG'
                cv_va_keyseg = lc_va_keyseg
           TABLES
                cr_tb_bwdat = lc_tb_bwdat.
      IF NOT lc_tb_bwdat[] IS INITIAL.
        LOOP AT lc_tb_bwdat INTO lc_wa_bwdat.
          lc_wa_bwm_result = lc_wa_bwdat-datseg.
          IF lc_wa_bwm_result-pv_relevant = 'X'.
* Kumulieren
            lc_wa_cond-matnr = lc_wa_lips-matnr.
            SELECT SINGLE maktx
              FROM makt
              INTO lc_wa_cond-arktx
             WHERE matnr = lc_wa_lips-matnr
               AND spras = 'DE'.
            lc_wa_cond-menge = lc_wa_lips-lfimg.
            lc_wa_cond-me    = lc_wa_lips-meins.
            COLLECT lc_wa_cond INTO lc_tb_cond.
          ENDIF.
        ENDLOOP.
      ENDIF.
    ENDIF.
ENDLOOP.
cs_header-kunnr = lc_va_kunnr.
SELECT SINGLE name1 name2 land1
    INTO (cs_header-name1,
          cs_header-name2,
          lc_va_land1)
     FROM kna1
    WHERE kunnr = lc_va_kunnr.
SELECT SINGLE landx
    INTO cs_header-land
    FROM t005t
   WHERE spras = sy-langu
     AND land1 = lc_va_land1.
* Sortieren Aufsteigend nach Materialnr
SORT lc_tb_cond ASCENDING BY matnr.
* Übergabe an Ausgabetabelle
LOOP AT lc_tb_cond INTO lc_wa_cond.
    MOVE-CORRESPONDING lc_wa_cond TO lc_wa_daten.
    APPEND lc_wa_daten TO lc_tb_daten.
ENDLOOP.
ENDFORM.                    " get_data_spat
FORM set_print_data_to_read
         USING    if_formname LIKE tnapr-sform
         CHANGING cs_print_data_to_read TYPE ledlv_print_data_to_read
                  cf_retcode.
FIELD-SYMBOLS: <fs_print_data_to_read> TYPE xfeld.
DATA: lt_fieldlist TYPE tsffields.
DATA: ls_fieldlist TYPE LINE OF tsffields.
DATA: lf_field1 TYPE LINE OF tsffields.
DATA: lf_field2 TYPE LINE OF tsffields.
DATA: lf_field3 TYPE LINE OF tsffields.
CALL FUNCTION 'SSF_FIELD_LIST'
    EXPORTING
      formname                = if_formname
*     VARIANT                 = ' '
    IMPORTING
      fieldlist               = lt_fieldlist
   EXCEPTIONS
     no_form                  = 1
     no_function_module       = 2
     OTHERS                   = 3.
IF sy-subrc <> 0.
    cf_retcode = sy-subrc.
    CLEAR lt_fieldlist.
ELSE.
* set print data requirements
    LOOP AT lt_fieldlist INTO ls_fieldlist.
      SPLIT ls_fieldlist AT '-' INTO lf_field1 lf_field2 lf_field3.
* <<<< START_OF_INSERTION_HP_350342 >>>>
      IF lf_field1 = 'IS_DLV_DELNOTE' AND lf_field2 = 'IT_SERNR'.
        lf_field2 = 'IT_SERNO'.
      ENDIF.
* <<<< END_OF_INSERTION_HP_350342 >>>>
      ASSIGN COMPONENT lf_field2 OF STRUCTURE
                       cs_print_data_to_read TO <fs_print_data_to_read>.
      IF sy-subrc = 0.
        <fs_print_data_to_read> = 'X'.
      ENDIF.
    ENDLOOP.
* header data is always required
    cs_print_data_to_read-hd_gen = 'X'.
* adress is always required for print param
    cs_print_data_to_read-hd_adr = 'X'.
* organisational data is always required for include texts
    cs_print_data_to_read-hd_org = 'X'.
ENDIF.
ENDFORM.                    " set_print_data_to_read
*&      Form set_print_param
*       text
*      -->P_LS_ADDR_KEY text
*      <--P_LS_CONTROL_PARAM text
*      <--P_LS_COMPOSER_PARAM text
*      <--P_LS_RECIPIENT text
*      <--P_LS_SENDER text
*      <--P_CF_RETCODE text
FORM set_print_param USING    is_addr_key LIKE addr_key
*                              lc_va_tknum
                              lc_va_lfnr TYPE nrlevel
                     CHANGING cs_control_param TYPE ssfctrlop
                              cs_composer_param TYPE ssfcompop
                              cs_recipient TYPE swotobjid
                              cs_sender TYPE swotobjid
                              cf_retcode TYPE sy-subrc.
DATA: ls_itcpo     TYPE itcpo.
DATA: lf_repid     TYPE sy-repid.
DATA: lf_device    TYPE tddevice.
DATA: ls_recipient TYPE swotobjid.
DATA: ls_sender    TYPE swotobjid.
DATA: lc_va_suffix TYPE rspo2name.
lf_repid = sy-repid.
CALL FUNCTION 'WFMC_PREPARE_SMART_FORM'
       EXPORTING
            pi_nast       = nast
            pi_addr_key   = is_addr_key
            pi_repid      = lf_repid
       IMPORTING
            pe_returncode = cf_retcode
            pe_itcpo      = ls_itcpo
            pe_device     = lf_device
            pe_recipient = cs_recipient
            pe_sender     = cs_sender.
SHIFT lc_va_lfnr LEFT DELETING LEADING '0'.
CONCATENATE 'PV' lc_va_lfnr INTO lc_va_suffix.
IF cf_retcode = 0.
    MOVE-CORRESPONDING ls_itcpo TO cs_composer_param.
    cs_composer_param-tdsuffix2   = lc_va_suffix.
    cs_control_param-device      = lf_device.
    cs_control_param-no_dialog   = 'X'.
    cs_control_param-preview     = screen.
    cs_control_param-getotf      = ls_itcpo-tdgetotf.
    cs_control_param-langu       = nast-spras.
ENDIF.
ENDFORM.                    " set_print_param
FORM protocol_nast_update.
CALL FUNCTION 'NAST_PROTOCOL_UPDATE'
       EXPORTING
            msg_arbgb = '/Z2a/PVSCHEIN'
            msg_nr    = '001'
            msg_ty    = 'E'
*              MSG_V2    = SYST-MSGV2
*              MSG_V3    = SYST-MSGV3
*              MSG_V4    = SYST-MSGV4
*              MSG_V1    = SYST-MSGV1
       EXCEPTIONS
            OTHERS    = 1.
ENDFORM.

Hello!
I have to customize the enclosed source code so it does the following:
print out for each shipment (see FuBa:RV_SHIPMENT_PRINT_VIEW
parameter slp) really seperated by for every shipment item LIKP-VBELN
and not for the whole VTTP-TKNUM.
The parameter "slp" must be stripted so by leaving
of the routine "get_data_pv" has only the datas of the current
LIKP-VBELN, and in the next step taking the next LIKP-VBELN
and so on. Right now it performs only one time for one VTTP-TKNUM.
If you don't understand VTTP-TKNUM and LIKP-VBELN please refer
to Transaction SE11.
Reagrds
Ilhan

Block GR if GR date before the delivery date in the PO

Dear all,
A key-user would like to avoid goods receipts to be posted if the date of the goods receipts is before the delivery date in the PO. The key-user wants to refuse systematically delivery from the supplier which is sooner than the delivery date in the PO.
For example, in the PO, the delivery date is August 7th 2010. To make a GR for this PO, the user uses MIGO, inputs the PO. As today is August 5th 2010, the GR should not be accepted by the system. How to customize that?
Another solution is to display the delivery date of the PO in MIGO so that the storehouse person can check directly the date of the delivery in the PO. That way, this person can check by itself whether the GR should be done or not.
Thanks a lot.
Olivier

Hi
This is standard SAP Customization.You an set message as Warning or Error message .
The customization path is MM-Purchasing-Environment Data-Define attributes of system messages.
Please let me know if it helps.
Regards

Quality Inspection before Production

Hi All,
We are using Production resource tools(PRT) in Production Order. We want to do the quality inspection of the PRT before one day of Production.
How can we map the following scenario so that Quality check can be done for PRT before Production??
Thanks,
Sanjay

Dear
1) Create Equipment under the category Test Equipment (Q)
2) Go to inspection plan and assign the PRT in the opertion overview. When you click on PRT normaly it will ask for material, you can choose equipment and then add the Equipment there. You can assign multiple PRTs
3) In inspection characteristic - make sure that Test Equip is ticked in the control indicator of the mic
4) In inspection charactertistic overview for each mic you can select and the PRTs maintained in the operation view is visible here and you select the one which is require
Refer : Re:PRT Inspection
Regards
JH

HP 7280 outputs a blank page before every page printed

Newly-installed 7280 works fine, but everytime something is printed, it outputs a blank page before every printed page. This is true whether printing from Word, IE, Outlook, Quicken, Photoshop, etc.
I have checked all likely culprits in the printer dialog boxes, including clearing the Separator Page option.
Any thoughts?
This question was solved.
View Solution.

are your computers running windows XP or Vista? because in Vista, if it uses the pre-installed drivers that come with the OS, then it prints blank sheets between the printed sheets. if you install the driver from the CD directly, then it has resolved the issue a lot of times for me.
so to the properties of the printer, and go to the Advanced Tab, and click in New Driver. and in teh wizard, select HP Photosmart 'C7200' and not Photosmart '7200' (considering it is the Photosmart C7280). that should work.
Make it easier for other people to find solutions, by marking my answer with \'Accept as Solution\' if it solves your problem.
Click on the BLUE KUDOS button on the left to say "Thanks"
I am an ex-HP Employee.

Every delivery nos having same sales order should create single invoice.

Hello All,
My Business requirement is :
For particular Order type if the deliveries belong to the same sales orders, then Routine allow creating Single invoice else it should spilt the invoice according the deliveries belonging to different sales orders.
Before this routine is called i have to check conditions like 'delivery type' and sales area.
So, I have copied routine FV60C001 , added conditions as per requirement. But how to code this requirement is my issue.
Could anyone please suggest how to achieve this.
Regards,
Meena

Hi,
Check SAP Note 11162 - Invoice split criteria in billing document to seach other possible causes.
Regards
Eduardo

ALTER SESSION executed before every select statement

When I log what the oracle jdbc driver is doing I see the following before EVERY select statement:
ALTER SESSION SET ISOLATION_LEVEL = READ COMMITTED
I know what this means and that it is the oracle default, but:
as this is the default why does the driver have to send this information across the network to the database for every single query? Is there anyway to prevent it? We've looked at network traffic and this ALTER SESSION is adding 10 percent and it seems, at least to me, that it should be unecessary.
I've searched around but cannot find anything directly relating to this.
Thanks.

Do you call connection.setTransactionIsolation()? That causes exactly that statement to be executed.
Do you use a connection pool? If yes: check if the pool calls setTransactionIsolation() - read the source, or ask the vendor, or decompile it (if that is legal in your part of the world.) If not using a pool: get one.

Quality check for Pipeline Material

Hi MM Guru's
Is it possible to do quality check for Pipeline Material?
If yes what is the process.
Thank you
Venu

you can create a manual inspection lot, analyze a sample and record the results.
but you cannot have a quality stock and do not do a transfer posting from quality to unrestricted or quality to blocked.
There a many chemicals that are transported via pipeline and managed as pipleline materials, either supplied by a supplier in the neighborhood or even cross country. And it is needed that you want do quality checks on certain materials before you use them.
Search the QM forum, you may find some discussions.

Quality check in FCP

Hi all,
I need a plug-in to FCP that can do tech checks...like look for black/colour bars/ high audio levels/high video levels etc. Can someone suggest me some third party plugin for Quality check of video / audio or any other solution for Quality check(technical check ) of .mov before sending it for broadcast .
thanks

FCP already contains both these functions:
Mark > Audio Peaks > Mark
View > Range Check

Quality Check Certificate

Does cisco offer quality check certificate for ISR routers?

Dear Gajesh,
I was going through your article on Certificates.
In condition type for output detemination(SPRO settings),What is the use of maintaining form,If in VV21 in communication tab i need to mention the form name again.
Also If i maintain it here it doent come as default form name in vv21.
In certificate profile we give the form name again.
Why is same setting done so many times?
Also i tried with a test case and coudnt get output without the following setting
VL02N, "Extras"> "Delivery Output"> header". Enter the output type and save the delivery.
Can u pls guide

New camcorder- final check before buying

An earlier thread helped me to decide which model to choose. I have settled on a Sony DCR-HC94E. ("E" is for "European".) It is said that FCE is picky about what cameras it will recognise. Therefore, the following are those parts of its spec. which I have detected from this forum as being important to satisfy FCE, and a few other features which suit my requirements. If anyone notices anything inadvisable, please shout. Thanks. Please note that I am not a professional and have not gone for a three-chip machine nor HD, on cost grounds.
Required by FSE:
Firewire. Actually, Sony’s iLink which is said to be Firewire although it has only 4 pins whereas Apple’s implementation has 6, the added two being for power. Sony tell me that when capturing, their camera must be connected to the mains and the four Firewire pins handle the data without trouble.
However, another point concerns page 15 of FCE’s “Getting Started”, which refers to “Apple Firewire” (the default) and “Apple Firewire Basic”, which “is a simplified device control protocol for camcorders and decks that aren’t compatible with the full Apple Firewire set. Using this protocol doesn’t affect the quality of the captured video or audio.” I am assuming that this is the same point above concerning 4/6 pins and that FCE will be happy if it turns out that the Sony iLink uses “Apple Firewire Basic”. Correct?
And that I will have Device Control?
In Easy Setup, should I select "Firewire Basic"?
The camcorder comes with a driver for the Mac, which provides for capture (presumably Device Control via FCE’s “Capture now” button).
DV, not MPEG.. whatsit.
miniDV tape cassette, not DVD, Hard Drive nor Solid state.
DV out. No DV in because, as I understand it, DV in is used for archiving video on to miniDV tape and I don’t think I would want that – I plan to archive videos on DVD as QT movies.
Sony say that the DCR-HC94E stripes a digital timecode on to the tape. I believe that FCE needs this.
Other Features (extract):
The chip is physically 16:9 and all its pixels are used in forming a 16:9 frame. If used in 4:3 mode, the pixels to the left and right are not used. I think that this is True Widescreen and not one of the compromise ways of achieving it by, eg., compression and subsequent expansion.
3.3 Megapixels “Advanced HAD CCD”.
10 times zoom (I would have liked more, but that’s life).
Manual focus, and full-range auto focus, White Balance (“Auto, Outdoor, Indoor, One-push”).
“Super SteadyShot”. (That is, anti-wobble control.) Electronic.
2.7 inch viewfinder LCD panel, 123,200 pixels
Low light performance - “Min. Illumination = 5 lux”.
Battery runtime = 2 hours.
No external mike (pity).
It is remarkably small. “What Digital Camcorder”, issue 77, has a praising review of the next model up (DCR-HC96E), the only difference being that the 96E has DV in.
Thanks for any observations before I plunge into my wallet and let the moths out.

Tom, Martin and Ian:Re. DV in etc. Thanks.
Being an amateur, (and beginner in video editing) my videos will, I think, be family movies; editing a 50-year old 8 mm cine film converted by a video lab to a PAL DVD, which I have nearly finished; and probably making videos of the country district where I live for depositing at the county library for future use, perhaps 100 years from now (if human civilisation survives that long which I doubt); and possibly some simple training videos. I am not planning on making artistic movies.
What I have been doing (so far only with the converted cine) is to edit it, export it as a QT file and use Toast (Roxio) to burn to DVD as the distribution version. (Toast also allows "burning" to a Disc Image, for checking before wasting DVD-Rs). I then check the DVD on a stand-alone DVD player and a domestic TV. I am assuming that all my efforts will likely follow that route.
Tom (and others) said:
"You want DV in. It lets you record your finished movie back to tape."
But why would I want to do that? Archiving? But is minDV tape so long-lasting? DVDs may not last more than 20 years and will need refreshing (re-recording on current media) which decendants won't do but that's another story. To view and check the finished video? But wouldn't my method (QT, DVD player, TV, described above) do that for me? To dub from a TV broadcast or to transfer to VCR tape via A/V? I have a combo VCR/DVD set-top video recorder which can do both of those (in the second case by dubbing from the above-mantioned distribution DVD).And VCR tape is on the way out, at least in the UK (Dixons no longer sell tape or tape-based VCRs) but of course peoples' tape VCRs will remain working for, say, 10 years.
On the lack of an external mike, its a budget thing. Sony Centre said that the only detectable camera noise would be if the ambient sound was very low and as a result the gain was increased. But hopefully I could add a suitable ambient audio track as a sound bed (Tom's book, page 132) to drown it - music, general ambient, sheep.
I'm probably wrong, but not too proud to be corrected.
Meteorites, hmmm... As a pessiminst, they worry me, but hopefully I will be dead before one strikes!

Quality Check before every Delivery

Similar Messages

Maybe you are looking for