| | |
|---|
| | | item := data.Get( i ); |
|---|
| | | sapresponse.Add( InterfaceSAPResponseLoginfo::GenerateData( loginfo, item ) ); |
|---|
| | | } |
|---|
| | | sucproduct := selectuniquevalues( sapresponse, Elements, e, e.IsSuccess(), e.Msg_v1() ); |
|---|
| | | failmssages := selectuniquevalues( sapresponse, Elements, e, not e.IsSuccess(), ifexpr( e.Msg().FindString( e.Msg_v1(), 0 ) > -1, e.Msg().ReplaceAll( e.Msg_v1(), '*' ), e.Msg() ) ); |
|---|
| | | feedback := feedback.Concat( '产品' ).Concat( sucproduct.Concatenate( "、" ) ).Concat( '推送成功' ).Concat( '；' ); |
|---|
| | | Transaction::Transaction().Propagate( attribute( InterfaceSAPResponseLoginfo, IsSuccess ) ); |
|---|
| | | // sucproduct := selectuniquevalues( sapresponse, Elements, e, e.IsSuccess(), e.Msg_v1() ); |
|---|
| | | failmssages := selectuniquevalues( sapresponse, Elements, e, not e.IsSuccess(), ifexpr( e.Msg().FindString( e.Msg_v1(), 0 ) > -1, e.Msg().ReplaceAll( e.Msg_v1(), '*' ), e.Msg_v2() ) ); |
|---|
| | | // if( sucproduct.Size() > 0 ){ |
|---|
| | | // feedback := feedback.Concat( '产品' ).Concat( sucproduct.Concatenate( "、" ) ).Concat( '推送成功' ).Concat( '；' ); |
|---|
| | | // } |
|---|
| | | traverse( failmssages, Elements, failmsg ){ |
|---|
| | | failproduct := selectuniquevalues( sapresponse, Elements, e, not e.IsSuccess() and ( failmsg = e.Msg() or failmsg = e.Msg().ReplaceAll( e.Msg_v1(), '*' ) ), e.Msg_v1() ); |
|---|
| | | failproduct := selectuniquevalues( sapresponse, Elements, e, not e.IsSuccess() and ( failmsg = e.Msg_v2() or failmsg = e.Msg().ReplaceAll( e.Msg_v1(), '*' ) ), e.Msg_v1() ); |
|---|
| | | if( failmsg.FindString( '*', 0 ) > -1 ){ |
|---|
| | | feedback := feedback.Concat( failmsg.ReplaceAll( '*', failproduct.Concatenate( '、' ) ) ).Concat( '；' ); |
|---|
| | | }else{ |
|---|
