Suche nach Materialnummern ohne führende Nullen

Code: Alles auswählen.

		JCO.Repository repository = new JCO.Repository("PDKM", connection);
		IFunctionTemplate template = repository.getFunctionTemplate("BAPI_MATERIAL_GETLIST");
		JCO.Function function = template.getFunction();
		
		function.getImportParameterList().setValue("1000","MAXROWS");
		
		JCO.Table tableMaterial = function.getTableParameterList().getTable("MATNRSELECTION");

		if (material.startsWith("*") && material.endsWith("*")) {
			tableMaterial.appendRow();
			tableMaterial.setValue("I","SIGN");
			tableMaterial.setValue("CP","OPTION");
			tableMaterial.setValue(material,"MATNR_LOW");			
		}
		else if (material.startsWith("*") || (material.endsWith("*"))) {
			tableMaterial.appendRow();
			tableMaterial.setValue("I","SIGN");
			tableMaterial.setValue("CP","OPTION");
			tableMaterial.setValue(material,"MATNR_LOW");			
		
		}
		else if (!(material.startsWith("*")) && !(material.endsWith("*"))) {
			tableMaterial.appendRow();
			tableMaterial.setValue("I","SIGN");
			tableMaterial.setValue("EQ","OPTION");
			tableMaterial.setValue(material,"MATNR_LOW");			
		
		}
		else {
			tableMaterial.appendRow();
			tableMaterial.setValue("I","SIGN");
			tableMaterial.setValue("CP","OPTION");
			tableMaterial.setValue(material),"MATNR_LOW");			
			
		}

Code: Alles auswählen.

FUNCTION z_conversion_exit .
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(DIRECTION) TYPE  FUNC_NAME
*"     VALUE(CONVERSION_ROUTINE) TYPE  FUNC_NAME DEFAULT 'MATN1'
*"     VALUE(INPUT) TYPE  TEXT
*"  EXPORTING
*"     VALUE(OUTPUT) TYPE  TEXT
*"  EXCEPTIONS
*"      LENGTH_ERROR
*"----------------------------------------------------------------------


  DATA: fuba like E071-OBJ_NAME,
        exists like SXST_PARE-EXIST.

  CONDENSE direction NO-GAPS.

  if conversion_routine EQ ''.
    conversion_routine = 'MATN1'.
  endif.
  CONDENSE conversion_routine NO-GAPS.
  CONCATENATE 'CONVERSION_EXIT_' conversion_routine '_' direction INTO fuba.

  CALL FUNCTION 'CHECK_EXIST_LIMU_FUNC'
    EXPORTING
      name                  = fuba
*     AGGNAME               = ' '
*     MTYPE                 = ' '
   IMPORTING
     EXIST                 = exists
*   EXCEPTIONS
*     TR_INVALID_TYPE       = 1
*     OTHERS                = 2
            .
  IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.



  IF exists EQ 'X'.

    CALL FUNCTION fuba
      EXPORTING
        input        = input
      IMPORTING
        output       = output
      EXCEPTIONS
        length_error = 1
        OTHERS       = 2.
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.

  ELSE.
    output = input.
  ENDIF.

ENDFUNCTION.