QM取消UDZQEVAC40医药卫生

1/1

QM取消UDZQEVAC40-医药卫生

*&**&ReportZQEVAC40cancelUDtoreREL*&

*&**&*&

*&*

REPORTZQEVAC40.

***Datendefinitionen

***Tabellen

**tablessscrfields.tablesqals.tablesqave.

***Konstantenconstants:

c_rc_0likesy-subrcvalue0,c_rc_4likesy-subrcvalue4,c_rc_20likesy-subrcvalue20,*

c_kreuzlikeqm00-qkzvalue'X'.*

***Eingabebildschirmselection-screenskip2.

parameterspruefloslikeqals-prueflosmatchcodeobjectqalsmemoryidqls.selection-screenskip1.

selection-screenbeginofblocksearchwithframe.selection-screenbeginofline.

selection-screenpushbutton3(20)text-s01user-commandsear.

selection-screenpushbutton40(20)text-s02user-commandshow.

*text-s01“Findinsp.lot”text-s02“Showinsp.lot”prueflos“InspectionLot“

selection-screenendofline.

selection-screenendofblocksearch.

**atselection-screen.

ifsscrfields-ucommeq'SEAR'orprueflosisinitial.

callfunction'QELA_START_SELECTION_OF_LOTS'exporting

i_selid=''i_stat_aenderung='X'i_stat_ero='X'i_stat_frei='X'i_stat_ve=''importing

e_prueflos=prueflosexceptions

no_entry=1no_selected=2others=3.endif.

ifsscrfields-ucommeq'SHOW'.callfunction'QSS1_LOT_SHOW'exporting

i_prueflos=prueflos.endif.

checksscrfields-ucommeq'ONLI'.

*abhiermu#Pr#losnummergef#ltsein.ifprueflosisinitial.messagee164(qa).endif.

*LesenLos

callfunction'ENQUEUE_EALS1'exporting

prueflos=prueflos.

callfunction'QPSE_LOT_READ'exporting

i_prueflos=prueflosimporting

e_qals=qalsexceptions

no_lot=1.ifnotsy-subrcisinitial.messagee102(qa).endif.

**Pr#enStatus

callfunction'QAST_STATUS_CHECK'exporting

i_objnr=qals-objnr

i_status='I0218'\exceptions

status_not_activ=1.ifnotsy-subrcisinitial.

messagee102(qv)withqals-prueflos.endif.*

callfunction'QEVA_UD_READ'exporting

i_prueflos=qals-prueflosimporting

e_qave=qave.

**start-of-selection.

*Vorgabensindok.1.MaterialUmlagernundLos輋dern

performqals_aendern.

***************************************************************************FORMQALS_aendern

**formqals_aendern.*

performstatus_fix_setzenusing'I0002'c_kreuz.performstatus_fix_setzenusing'I0216'space.performstatus_fix_setzenusing'I0217'space.performstatus_fix_setzenusing'I0218'space.clear:qals-stat14.clear:qals-stat35.clear:qave-vauswahlmg,qave-vwerks,qave-versionam,qave-vcodegrp,qave-vcode,qave-vbewertung,qave-versioncd,qave-vfolgeakti,qave-qkennzahl.*--...verbuchen

callfunction'QEVA_UD_UPDATE'inupdatetaskexporting

qals_new=qalsqave_new=qave.

commitwork.

messages101(qa)withqals-prueflos.endform.

***FormSTATUS_FIX_SETZEN

**

*SetzeneinesStatusaufgrundvonVoreinstellungenwieQMATetc.****-->STATUSStatusdergesetztwerdensoll

*-->AKTIVStatuswirdaktiviertsonstdeaktiviert

**formstatus_fix_setzenusing

value(status)liketj02-istatvalue(aktiv)likec_kreuz.

*lokaleTabellefuerStatusfortschreibungdata:beginofl_stattaboccurs0.includestructurejstat.dataendofl_stattab.

*

*FallsObjektnr.nichtgef#lt.-->Fehlermeldung!!!ifqals-objnreqspace.

messagee013(qv).

*FehlendeObjektnr.:Problemf#endif.

movestatustol_stattab-stat.ifaktiveqspace.

movec_kreuztol_sta