cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

Signatures in the Drawings

Former Member

on ‎06-26-2007 8:06 AM

0 Kudos

Hi Experts,

Currently we are working on DMS, we store all the drawings in DMS. We assign various Statuses for the drgs. Approval for the documents is happening in the system.

Is there any way to put the names of the all the persons who create, review, check & approve in the Title block of the drawing automatically. We are not having CAD-Integration.

Is redlinig is the only option for the above requirement.

your suggestions pls.

Regards,

Venu

Show replies
Show replies
Answer

Accepted Solutions (0)

Answers (5)

Answers (5)

Former Member
‎06-26-2007 11:27 AM
0 Kudos

Hi Venu,

Without Interface you need RFC to map these DIR fields into CAD Title Block.

RFC along with Function Module.

Regards

Rehman

Show replies
Show replies
Former Member
‎06-26-2007 10:01 AM
0 Kudos

Hi Venu,

I have sent you the complete Program with Field mappings to your email id

please find it.

Regards

Rehman

Show replies
Show replies
Former Member
‎06-26-2007 10:00 AM
0 Kudos

Hi Venu,

I have sent you the complete Mapping document with fields and tables and program

Regards

Rehman

Reward Your Points

Show replies
Show replies
former_member694558
Participant
‎06-26-2007 2:31 PM
0 Kudos

Rehmanbhai,

Could you send me the mapping document as well?

Rahul

Former Member
‎03-23-2008 4:53 PM
0 Kudos

HI Rahul/Rehman

Can some one send me a copy this too

My ID pcn23@yahoo.com

Regards,

Former Member
‎06-26-2007 9:50 AM
0 Kudos

Hi Venu

Check the complete program to be include in the exit.

There are custom fields too, which you can create based on the necessary.

DATA wa_draw LIKE draw.

CLEAR wa_draw.

DATA wa_ausp LIKE ausp.

CLEAR wa_ausp.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = documentdata-documentnumber

IMPORTING

output = documentdata-documentnumber.

SELECT SINGLE * FROM draw INTO wa_draw

WHERE dokar = documentdata-documenttype

AND doknr = documentdata-documentnumber

AND dokvr = documentdata-documentversion

AND doktl = documentdata-documentpart.

IF sy-subrc = 0.

user_data-fieldmulti = 'FIX_DRAWN'.

user_data-fieldname = 'FIX_DRAWN'.

user_data-fieldvalue = wa_draw-zzdrawn_by.

APPEND user_data.

user_data-fieldmulti = 'FIX_DRDT'.

user_data-fieldname = 'FIX_DRDT'.

user_data-fieldvalue = wa_draw-zzdraw_date.

APPEND user_data.

user_data-fieldmulti = 'FIX_CHKBY_SHRT'.

user_data-fieldname = 'FIX_CHKBY_SHRT'.

user_data-fieldvalue = wa_draw-zzchecked_by.

APPEND user_data.

user_data-fieldmulti = 'FIX_CHDT'.

user_data-fieldname = 'FIX_CHDT'.

user_data-fieldvalue = wa_draw-zzcheck_date.

APPEND user_data.

user_data-fieldmulti = 'FIX_PESG_SHRT'.

user_data-fieldname = 'FIX_PESG_SHRT'.

user_data-fieldvalue = wa_draw-zzproj_eng.

APPEND user_data.

user_data-fieldmulti = 'FIX_PEDT'.

user_data-fieldname = 'FIX_PEDT'.

user_data-fieldvalue = wa_draw-zzapprv_date.

APPEND user_data.

user_data-fieldmulti = 'FIX_RAWMAT'.

user_data-fieldname = 'FIX_RAWMAT'.

user_data-fieldvalue = wa_draw-zzmaterial.

APPEND user_data.

user_data-fieldmulti = 'FIX_FINISH1'.

user_data-fieldname = 'FIX_FINISH1'.

user_data-fieldvalue = wa_draw-zzfinish_1.

APPEND user_data.

user_data-fieldmulti = 'FIX_FINISH2'.

user_data-fieldname = 'FIX_FINISH2'.

user_data-fieldvalue = wa_draw-zzfinish_2.

APPEND user_data.

  • user_data-fieldmulti = 'FIX_DKTXT'.

  • user_data-fieldname = 'FIX_DKTXT'.

  • user_data-fieldvalue = wa_draw-dktxt.

  • APPEND user_data.

user_data-fieldmulti = 'FIX_DESC2'.

user_data-fieldname = 'FIX_DESC2'.

user_data-fieldvalue = wa_draw-zzdescription_2.

APPEND user_data.

***********************************************************

user_data-fieldmulti = 'FIX_DOKVR'.

user_data-fieldname = 'FIX_DOKVR'.

user_data-fieldvalue = wa_draw-dokvr.

APPEND user_data.

user_data-fieldmulti = 'FIX_DRDT'.

user_data-fieldname = 'FIX_DRDT'.

user_data-fieldvalue = wa_draw-zzdraw_date.

APPEND user_data.

user_data-fieldmulti = 'FIX_CHKBY_INIT'.

user_data-fieldname = 'FIX_CHKBY_INIT'.

user_data-fieldvalue = wa_draw-zzchecked_by.

APPEND user_data.

user_data-fieldmulti = 'FIX_CHDT'.

user_data-fieldname = 'FIX_CHDT'.

user_data-fieldvalue = wa_draw-zzcheck_date.

APPEND user_data.

user_data-fieldmulti = 'FIX_PESG_INIT'.

user_data-fieldname = 'FIX_PESG_INIT'.

user_data-fieldvalue = wa_draw-zzproj_eng.

APPEND user_data.

user_data-fieldmulti = 'FIX_PEDT'.

user_data-fieldname = 'FIX_PEDT'.

user_data-fieldvalue = wa_draw-zzapprv_date.

APPEND user_data.

user_data-fieldmulti = 'FIX_PM_INIT'.

user_data-fieldname = 'FIX_PM_INIT'.

user_data-fieldvalue = wa_draw-zzproj_mangr.

APPEND user_data.

user_data-fieldmulti = 'FIX_REL_DAT'.

user_data-fieldname = 'FIX_REL_DAT'.

user_data-fieldvalue = wa_draw-zzrel_date.

APPEND user_data.

ENDIF.

  • *****************************************************************

  • *****************************************************************

    • For Dynamic

SELECT SINGLE * FROM draw INTO wa_draw

WHERE dokar = documentdata-documenttype

AND doknr = documentdata-documentnumber

AND dokvr in ('00','P1')

AND doktl = documentdata-documentpart.

IF sy-subrc = 0.

user_data-fieldmulti = 'DYN_DRAWN_SHRT'.

user_data-fieldname = 'DYN_DRAWN_SHRT'.

user_data-fieldvalue = wa_draw-zzdrawn_by.

APPEND user_data.

user_data-fieldmulti = 'DYN_DRDT'.

user_data-fieldname = 'DYN_DRDT'.

user_data-fieldvalue = wa_draw-zzdraw_date.

APPEND user_data.

user_data-fieldmulti = 'DYN_CHKBY_SHRT'.

user_data-fieldname = 'DYN_CHKBY_SHRT'.

user_data-fieldvalue = wa_draw-zzchecked_by.

APPEND user_data.

user_data-fieldmulti = 'DYN_CHDT'.

user_data-fieldname = 'DYN_CHDT'.

user_data-fieldvalue = wa_draw-zzcheck_date.

APPEND user_data.

user_data-fieldmulti = 'DYN_PESG_SHRT'.

user_data-fieldname = 'DYN_PESG_SHRT'.

user_data-fieldvalue = wa_draw-zzproj_eng.

APPEND user_data.

user_data-fieldmulti = 'DYN_PEDT'.

user_data-fieldname = 'DYN_PEDT'.

user_data-fieldvalue = wa_draw-zzapprv_date.

APPEND user_data.

user_data-fieldmulti = 'DYN_RAWMAT'.

user_data-fieldname = 'DYN_RAWMAT'.

user_data-fieldvalue = wa_draw-zzmaterial.

APPEND user_data.

user_data-fieldmulti = 'DYN_FINISH1'.

user_data-fieldname = 'DYN_FINISH1'.

user_data-fieldvalue = wa_draw-zzfinish_1.

APPEND user_data.

user_data-fieldmulti = 'DYN_DESC2'.

user_data-fieldname = 'DYN_DESC2'.

user_data-fieldvalue = wa_draw-zzdescription_2.

APPEND user_data.

user_data-fieldmulti = 'DYN_FINISH2'.

user_data-fieldname = 'DYN_FINISH2'.

user_data-fieldvalue = wa_draw-zzfinish_2.

APPEND user_data.

***************************************************

user_data-fieldmulti = 'DYN_CHKBY_INIT'.

user_data-fieldname = 'DYN_CHKBY_INIT'.

user_data-fieldvalue = wa_draw-zzchecked_by.

APPEND user_data.

user_data-fieldmulti = 'DYN_PESG_INIT'.

user_data-fieldname = 'DYN_PESG_INIT'.

user_data-fieldvalue = wa_draw-zzproj_eng.

APPEND user_data.

user_data-fieldmulti = 'DYN_PM_INIT'.

user_data-fieldname = 'DYN_PM_INIT'.

user_data-fieldvalue = wa_draw-zzproj_mangr.

APPEND user_data.

user_data-fieldmulti = 'DYN_REL_DAT'.

user_data-fieldname = 'DYN_REL_DAT'.

user_data-fieldvalue = wa_draw-zzrel_date.

APPEND user_data.

*************************************************************

*************************************************************

    • user_data-fieldmulti = 'ZZDESCRIPTION_2'.

    • user_data-fieldname = 'MYFIELD1'.

    • user_data-fieldvalue = wa_draw-zzdescription_2.

    • APPEND user_data.

**

<b> user_data-fieldmulti = 'DOC_ZZDRAWN_BY'.</b>

    • user_data-fieldname = 'MYFIELD3'.

<b>** user_data-fieldvalue = wa_draw-zzdrawn_by.</b>

    • APPEND user_data.

**

    • <b> user_data-fieldmulti = 'DOC_ZZCHECKED_BY'.</b>

    • user_data-fieldname = 'MYFIELD4'.

    • <b>user_data-fieldvalue = wa_draw-zzchecked_by</b>.

    • APPEND user_data.

**

    • <b>user_data-fieldmulti = 'DOC_ZZPROJ_ENG'.</b>

    • user_data-fieldname = 'MYFIELD5'.

    • user_data-fieldvalue = wa_draw-zzproj_eng.

    • APPEND user_data.

**

    • user_data-fieldmulti = 'DOC_ZZMATERIAL'.

    • user_data-fieldname = 'MYFIELD6'.

    • user_data-fieldvalue = wa_draw-zzmaterial.

    • APPEND user_data.

**

    • user_data-fieldmulti = 'DOC_ZZFINISH_1'.

    • user_data-fieldname = 'MYFIELD7'.

    • user_data-fieldvalue = wa_draw-zzfinish_1.

    • APPEND user_data.

**

    • user_data-fieldmulti = 'DOC_ZZFINISH_2'.

    • user_data-fieldname = 'MYFIELD8'.

    • user_data-fieldvalue = wa_draw-zzfinish_2.

    • APPEND user_data.

**

    • user_data-fieldmulti = 'DOC_ZZPROJECT_NAME'.

    • user_data-fieldname = 'MYFIELD9'.

    • user_data-fieldvalue = wa_draw-zzproject_name.

    • APPEND user_data.

**

    • user_data-fieldmulti = 'DOC_ZZCOLLAB'.

    • user_data-fieldname = 'MYFIELD10'.

    • user_data-fieldvalue = wa_draw-zzcollab.

    • APPEND user_data.

**

    • user_data-fieldmulti = 'DOC_ZZCOLLAB_PARTNO'.

    • user_data-fieldname = 'MYFIELD11'.

    • user_data-fieldvalue = wa_draw-zzcollab_partno.

    • APPEND user_data.

  • CONCATENATE documentdata-documenttype

  • documentdata-documentnumber

  • documentdata-documentversion

  • documentdata-documentpart INTO wa_ausp-objek.

*

*

  • SELECT SINGLE * FROM ausp INTO wa_ausp

  • WHERE objek = wa_ausp-objek.

*

  • IF sy-subrc = 0.

  • user_data-fieldmulti = 'DOC_ATWRT'.

  • user_data-fieldname = 'MYFIELD2'.

  • user_data-fieldvalue = wa_ausp-atwrt.

  • APPEND user_data.

  • ENDIF.

ENDIF.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = documentdata-documentnumber

IMPORTING

output = documentdata-documentnumber.

Regards

Rehman

<b>Reward Your Points</b>

Show replies
Show replies
Former Member
‎06-26-2007 9:46 AM
0 Kudos

Hi Venu,

By using Exit you can capture all the statuses as well as the Users in the Title block

In Function Module : CAD_GET_TITLE_BLOCK_DATA

Include a Program something ZXCADRU01 include all the fields required and enter this Exit name in the Configuration settings,

i.e. DC10 in whichever document type you want it.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = DOCUMENTDATA-DOCUMENTNUMBER

IMPORTING

OUTPUT = DOCUMENTDATA-DOCUMENTNUMBER

.

SELECT SINGLE * FROM DRAW INTO WA_DRAW

WHERE DOKAR = DOCUMENTDATA-DOCUMENTTYPE

AND DOKNR = DOCUMENTDATA-DOCUMENTNUMBER

AND DOKVR = DOCUMENTDATA-DOCUMENTVERSION

AND DOKTL = DOCUMENTDATA-DOCUMENTPART.

USER_DATA-FIELDMULTI = 'DOC_FINISH'.

USER_DATA-FIELDNAME = 'MYFIELD'.

USER_DATA-FIELDVALUE = WA_DRAW-ZZFINISH_1.

append user_Data.

USER_DATA-FIELDMULTI = 'DOC_FINISH'.

USER_DATA-FIELDNAME = 'MYFIELD1'.

USER_DATA-FIELDVALUE = WA_DRAW-ZZFINISH_2.

append user_Data.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = DOCUMENTDATA-DOCUMENTNUMBER

IMPORTING

OUTPUT = DOCUMENTDATA-DOCUMENTNUMBER

.

*

*EXPORT_DATA-FIELDMULTI = 'DOC_FINISH'.

*EXPORT_DATA-FIELDNAME = 'MYFIELD'.

*EXPORT_DATA-FIELDVALUE = 'Testing'.

*append EXPORT_DATA.

*

*

*EXPORT_DATA-FIELDMULTI = 'DOC_FINISH_1'.

*EXPORT_DATA-FIELDNAME = 'DRAW-ZZFI2'.

*EXPORT_DATA-FIELDVALUE = 'Testing'.

*append EXPORT_DATA.

*

**EXPORT_DATA-FIELDMULTI = 'DOC_FINISH'.

*IMPORT_DATA-FIELDNAME = 'DRAW-ZZFIN'.

*IMPORT_DATA-FIELDVALUE = 'Testing'.

*append IMPORT_DATA.

*

**EXPORT_DATA-FIELDMULTI = 'DOC_FINISH_1'.

*IMPORT_DATA-FIELDMULTI = 'DOC_FINISH'.

*IMPORT_DATA-FIELDNAME = 'MYFIELD'.

*IMPORT_DATA-FIELDVALUE = 'Testing'.

I have sent you the detailed documents to your email id.

Regards

Rehman

<b>Reward Your Points</b>

Show replies
Show replies
Ask a Question