操作
バグ #10709
完了F3キーで前の画面に戻る際、BS10130_他社委託票入力を経由しない
ステータス:
終了
優先度:
通常
担当者:
柳川 岳志
開始日:
期日:
進捗率:
0%
予定工数:
実開始日:
ＤＤ名:
INCLUDE:
DSN:
バグ区分:
QA分析:
方針（第一貨物）:
実終了日:
ツールのバージョン:
AsIsSource行:
進捗計画:
設計・開発者:
画面ID:
機能区分:
機能ID:
レビュー指摘区分:
検査完了日:
検査依頼日:
説明
本画面からF3キーで前の画面に戻る場合、現行では「配達送り状枚数照会」→「他社委託伝票選択」→ 「他社委託票入力」 →「傭車集配票入力」の順に遷移します。
↓
↓
↓
↓
リビルド後では「配達送り状枚数照会」→「他社委託伝票選択」→「傭車集配票入力」の順で遷移し、「他社委託票入力」を経由しない状態となっています。
↓
↓
↓
ご確認お願いいたします。
ファイル
渡邉 拓英 さんが約1ヶ月前に更新 · 編集済み
- ファイル clipboard-202609151059-kwhmm.png を追加
カウントオーバーのため、最新の遷移順に上書きされる。
BS10130→BS10140
BS10220 MPBS010 各種収入計上等選択
BR10030 MPBR750 特殊他社委託入力
BS10060 MPBS040 傭車集配票入力
BS10130 MPBS240 他社委託票入力
BS10140 MPBS250 他社委託伝票選択
CRT_BACK_XXXXの処理を完全再現出来ていない。
PG確認が必要
BS12500P
WHEN (DFHPF3) /* 終了( ｻﾌﾞﾒﾆｭｰ ﾍ返る) */
DO ;
/*------------------------------------------------------* */
IF CMUSER_PRINKB = 1
THEN
CALL PRINT_TS_SUB_RTN2;
ELSE ;
/*------------------------------------------------------* */
IF CMUSER_DATAID = 80 | CMUSER_DATAID = 90
THEN
DO ;
CALL DELQ_FORCE ;
IF CRT_BACK_KOSU = 0
THEN CALL CRT_BACK_RESET_RTN;
ELSE
DO;
IF CRT_BACK_MPID(CRT_BACK_KOSU) = 'MPBS250'
THEN
DO;
PF3_MPID = CRT_BACK_MPID(CRT_BACK_KOSU);
PF3_TRID = CRT_BACK_TRID(CRT_BACK_KOSU);
STRING(CRT_BACK_DATA(CRT_BACK_KOSU)) = (11)' ';
CRT_BACK_KOSU = CRT_BACK_KOSU - 1;
END;
ELSE
DO;
CRT_KOSU_CUNT = CRT_BACK_KOSU - 1;
IF CRT_KOSU_CUNT = 0
THEN CALL CRT_BACK_RESET_RTN ;
ELSE
DO;
PF3_MPID = CRT_BACK_MPID(CRT_KOSU_CUNT);
PF3_TRID = CRT_BACK_TRID(CRT_KOSU_CUNT);
STRING(CRT_BACK_DATA(CRT_BACK_KOSU)) = (11)' ';
STRING(CRT_BACK_DATA(CRT_KOSU_CUNT)) = (11)' ';
CRT_BACK_KOSU = CRT_BACK_KOSU - 2;
END;
END;
END;
SUBSTR(ADDR(MPDM010O)->DUMMYFLD,1,STG(MPDM010O))
= LOW(STG(MPDM010O)) ;
CALL TIMESET_SUB_RTN ;
DM01011O = DATE_AREA ;
DM01021O = TIME_AREA ;
EXEC CICS SEND
MAP ('MPDM010')
ERASE ;
EXEC CICS SEND
MAP (PF3_MPID)
MAPONLY
FREEKB
ALARM ;
EXEC CICS RETURN
TRANSID(PF3_TRID)
COMMAREA(COMMAREA_STORAGE) ;
END ;
ELSE
DO ;
IF CMUSER_DATAID = 32 /*引取委託*/
THEN
DO ;
CALL DELQ_FORCE ;
CALL TIMESET_SUB_RTN ;
BH40011O = DATE_AREA ;
BH40021O = TIME_AREA ;
BH40051O = SUBSTR(COMM_RPOC_YMD,1,2) ;
BH40052O = SUBSTR(COMM_RPOC_YMD,3,2) ;
BH40053O = SUBSTR(COMM_RPOC_YMD,5,2) ;
BH40051A , BH40052A , BH40053A = DFHUNNUM ;
BH40061O = COMM_TEN_CODE ;
BH40061A = DFHBMASF ;
BH40062O = COMM_TEN_NAME ;
BH40062A = DFHBMASF ;
BH40121O = 1 ;
BH40121A = DFHBMASF ;
BH40191O = '1' ;
BH40191A = DFHBMASF ;
BH40201A = DFHBMASF ; /* 2014.7.10 ADD */
BH40211A = DFHUNNUM ;
EXEC CICS SEND
MAP ('MPBH400')
ERASE
FREEKB
ALARM ;
EXEC CICS RETURN
TRANSID('BH40')
COMMAREA(COMMAREA_STORAGE) ;
END ;
ELSE
DO ;
CALL DELQ_FORCE ;
MPBS240I.BS24031L = -1 ;
BS24051O = SUBSTR(COMM_RPOC_YMD,1,2) ;
BS24051A = DFHBMASK ;
BS24052O = SUBSTR(COMM_RPOC_YMD,3,2) ;
BS24052A = DFHBMASK ;
BS24053O = SUBSTR(COMM_RPOC_YMD,5,2) ;
BS24053A = DFHBMASK ;
BS24061O = COMM_TEN_CODE ;
BS24061A = DFHBMASK ;
BS24062O = COMM_TEN_NAME ;
BS24062A = DFHBMASK ;
BS24121A , BS24141A , BS24151A , BS24161A ,
BS24171A , BS24131A , BS24132A = DFHBMASK ;
BS24191I = 1 ;
BS24191A = DFHBMASF ;
BS24201A = DFHBMASF ; /* 2014.7.10 ADD */
SELECT (CMUSER_DATAID) ;
WHEN (10)
DO ;
BS24121I = 2 ;
BS24141I = CMUSER_SYUNO1 ;
BS24121A = DFHBMASF ;
BS24141A = DFHBMASF ;
END ;
WHEN (20)
DO ;
BS24121I = 3 ;
BS24151I = CMUSER_SYUNO1 ;
BS24121A = DFHBMASF ;
BS24151A = DFHBMASF ;
END ;
WHEN (30)
DO ;
BS24121I = 1 ;
BS24131I = CMUSER_SYUNO1 ;
BS24121A = DFHBMASF ;
BS24131A = DFHBMASF ;
BS24132A = DFHBMUNN ;
END ;
WHEN (40)
DO ;
BS24121I = 4 ;
BS24161I = CMUSER_SYUNO1 ;
BS24121A = DFHBMASF ;
BS24161A = DFHBMASF ;
END ;
WHEN (50)
DO ;
BS24121I = 5 ;
BS24171I = CMUSER_SYUNO1 ;
BS24121A = DFHBMASF ;
BS24171A = DFHBMASF ;
END ;
OTHER ;
END ;
EXEC CICS SEND
MAP ('MPBS240')
ERASE
CURSOR
FREEKB
ALARM ;
EXEC CICS RETURN
TRANSID('BS24')
COMMAREA(COMMAREA_STORAGE) ;
END ;
END ;
END ;
/*------------------------------------------------------* */
BR14200P
WHEN (DFHPF3) /* 終了( ｻﾌﾞﾒﾆｭｰ ﾍ返る) */
DO ;
EXEC CICS READ DATASET('VPTENMS')
INTO (TENMS)
RIDFLD (CD_TEN)
RESP(TEN_RTNCD) ;
IF TEN_RTNCD = DFHRESP(NORMAL)
THEN ;
ELSE ;
/*------------------------------------------------------* */
IF CMUSER_PRINKB = 1
THEN
CALL PRINT_TS_SUB_RTN2;
ELSE ;
/*------------------------------------------------------* */
CALL DELQ_FORCE ;
MPBS240I.BS24031L = -1 ;
BS24051O = SUBSTR(VGJSKYMD,1,2) ;
BS24051A = DFHBMASK ;
BS24052O = SUBSTR(VGJSKYMD,3,2) ;
BS24052A = DFHBMASK ;
BS24053O = SUBSTR(VGJSKYMD,5,2) ;
BS24053A = DFHBMASK ;
BS24061O = CD_TEN ;
BS24061A = DFHBMASK ;
BS24062O = VETNSRNM ;
BS24062A = DFHBMASK ;
BS24121A , BS24141A , BS24151A , BS24161A ,
BS24171A , BS24131A , BS24132A = DFHBMASK ;
BS24191I = 1 ;
BS24191A = DFHBMASF ;
BS24201A = DFHBMASF ; /* 2014.7.18 ADD */
BS24081O = CD_HTN ;
BS24081A = DFHBMASF ;
SELECT (CMUSER_DATAID) ;
WHEN (30)
DO ;
BS24121I = 1 ;
BS24131I = CMUSER_SYUNO1 ;
BS24121A = DFHBMASF ;
BS24131A = DFHBMASF ;
BS24132A = DFHBMUNN ;
END ;
WHEN (40)
DO ;
BS24121I = 4 ;
BS24161I = CMUSER_SYUNO1 ;
BS24121A = DFHBMASF ;
BS24161A = DFHBMASF ;
END ;
WHEN (50)
DO ;
BS24121I = 5 ;
BS24171I = CMUSER_SYUNO1 ;
BS24121A = DFHBMASF ;
BS24171A = DFHBMASF ;
BS24132A = DFHBMUNP ;
END ;
OTHER ;
END ;
EXEC CICS SEND
MAP ('MPBS240')
ERASE
CURSOR
FREEKB
ALARM ;
EXEC CICS RETURN
TRANSID('BR41')
COMMAREA(COMMAREA_STORAGE) ;
END ;
/*------------------------------------------------------* */
BR14400 委託 強制 （荷扱所用）
WHEN (DFHPF3,DFHPF4,DFHCLEAR) /*---- RETURN BS25 -----*/
DO ; /*----------------------*/
CALL DELQ_FORCE ;
IF CRT_BACK_KOSU = 0
THEN CALL CRT_BACK_RESET_RTN;
ELSE
DO;
IF CRT_BACK_MPID(CRT_BACK_KOSU) ¬= 'MPBS340'
THEN
DO;
PF3_MPID = CRT_BACK_MPID(CRT_BACK_KOSU);
PF3_TRID = CRT_BACK_TRID(CRT_BACK_KOSU);
STRING(CRT_BACK_DATA(CRT_BACK_KOSU)) = (11)' ';
CRT_BACK_KOSU = CRT_BACK_KOSU - 1;
END;
ELSE
DO;
CRT_KOSU_CUNT = CRT_BACK_KOSU - 1;
IF CRT_KOSU_CUNT = 0
THEN CALL CRT_BACK_RESET_RTN ;
ELSE
DO;
PF3_MPID = CRT_BACK_MPID(CRT_KOSU_CUNT);
PF3_TRID = CRT_BACK_TRID(CRT_KOSU_CUNT);
STRING(CRT_BACK_DATA(CRT_BACK_KOSU)) = (11)' ';
STRING(CRT_BACK_DATA(CRT_KOSU_CUNT)) = (11)' ';
CRT_BACK_KOSU = CRT_BACK_KOSU - 2;
END;
END;
END;
SUBSTR(ADDR(MPDM010O)->DUMMYFLD,1,STG(MPDM010O))
= LOW(STG(MPDM010O)) ;
CALL TIMESET_SUB_RTN ;
DM01011O = DATE_AREA ;
DM01021O = TIME_AREA ;
EXEC CICS SEND
MAP ('MPDM010')
ERASE ;
EXEC CICS SEND
MAP ('MPBS250')
MAPONLY
FREEKB
ALARM ;
EXEC CICS RETURN
TRANSID('BR42')
COMMAREA(COMMAREA_STORAGE) ;
END ;
/*------------------------------------------------------* */
関連機能一式見直しが必要
渡邉 拓英 さんが約1ヶ月前に更新 · 編集済み
- 関連している タスク #10036: 画面遷移時にBACK_IDを管理せずに遷移する場合の設計書の書き方のルールが必要 を追加
操作