Funcion completar o quitar ceros a la izquierda

* Función que saca los ceros a la izquierda de una variable
CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_OUTPUT’
EXPORTING
INPUT = VG_VARIABLE
IMPORTING
OUTPUT = VG_VARIABLE.
* Función que completa con ceros a la izquierda de una variable
CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT’
EXPORTING
INPUT = VG_VARIABLE
IMPORTING
OUTPUT = VG_VARIABLE.

Funcion mayusculas y minusculas

FUNCION TRANSLATE: Convierte un texto a mayusculas o minusculas.

TRANSLATE <texto> TO UPPER CASE.
TRANSLATE <texto> TO LOWER CASE.
TRANSLATE <texto> USING <texto1>.
TRANSLATE <texto> FROM CODE PAGE g1 TO CODE PAGE g2.
TRANSLATE <texto> FROM NUMBER FORMAT n1 TO NUMBER FORMAT n2.

EJEMPLO 1:

DATA TEXTO(6).MOVE 'prueba' TO TEXTO.
TRANSLATE TEXTO TO UPPER CASE.
WRITE TEXTO.


EJEMPLO 2:

DATA: TEXTO(30) VALUE 'ESTO ES UNA PRUEBA',
CAMBIAR(6) VALUE 'EXBY'.
WRITE TEXTO.
TRANSLATE TEXTO USING CAMBIAR.
WRITE: / TEXTO.


SALIDA:

ESTO ES UNA PRUEBA

XSTO XS UNA PRUXYA

Funcion Sumar Meses a una Fecha

*——————————————————————————-
*LV_DATE_ENT : Fecha de entrada a la que le calculo los meses
*LV_MES: Cantidad de meses que le sumo a LV_DATE_ENT
*LV_DATE_SAL : Fecha que me devuelve la función
*——————————————————————————-
DATA: LV_DATE_ENT TYPE D,
              LV_MES TYPE i,
              LV_DATE_SAL TYPE D.

LV_DATE_ENT = sy-datum.
LV_MES = 2.

CALL FUNCTION 'HR_PSD_DATES_ADD_MONTHS'
    EXPORTING
      V_DATE       = LV_DATE_ENT
      V_MONTHS     = LV_MES
    IMPORTING
      E_DATE       = LV_DATE_SAL
    EXCEPTIONS
      NOT_POSITIVE = 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.

Ejemplo:

DATA: LV_DATE_ENT TYPE D,
       LV_MES TYPE i,
       LV_DATE_SAL TYPE D.

LV_DATE_ENT = sy-datum.
LV_MES = 10.


CALL FUNCTION 'HR_PSD_DATES_ADD_MONTHS'
    EXPORTING
      V_DATE       = LV_DATE_ENT
      V_MONTHS     = LV_MES
    IMPORTING
      E_DATE       = LV_DATE_SAL
    EXCEPTIONS
      NOT_POSITIVE = 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.

Funcion Obtener Año Fiscal Actual

Obtener el año fiscal en curso. Example:   CALL FUNCTION 'GET_CURRENT_YEAR'   EXPORTING     BUKRS         = '1000'     " Company Code     DATE          = SY-DATUM   " Date to find fiscal year for   IMPORTING     CURRM         = w_currm    " Current Fiscal Month     CURRY         = w_curry    " Current Fiscal Year     PREVM         = w_prevm    " Previous Fiscal Month     PREVY         = w_prevy.  " Previous Fiscal Year

BAPI Crear Movimientos Inventario

El siguiente programa ABAP esta hace uso de la función BAPI  BAPI_GOODSMVT_CREATE para realizar el ingreso de materiales para órdenes de compra después de importar los datos desde un sistema externo.

*-------------------------------------------------------------*

* BAPI TO Upload Inventory Data
*
* GMCODE Table T158G - 01 - MB01 - Goods Receipts for Purchase Order
*                      02 - MB31 - Goods Receipts for Prod Order
*                      03 - MB1A - Goods Issue
*                      04 - MB1B - Transfer Posting
*                      05 - MB1C - Enter Other Goods Receipt
*                      06 - MB11
*
* Domain: KZBEW - Movement Indicator
*      Goods movement w/o reference
*  B - Goods movement for purchase order
*  F - Goods movement for production order
*  L - Goods movement for delivery note
*  K - Goods movement for kanban requirement (WM - internal only)
*  O - Subsequent adjustment of "material-provided" consumption
*  W - Subsequent adjustment of proportion/product unit material
*-------------------------------------------------------------*

report zbapi_goodsmovement.

parameters: p-file like rlgrap-filename default

                                 'c:\sapdata\TEST.txt'.

parameters: e-file like rlgrap-filename default

                                 'c:\sapdata\gdsmvterror.txt'.

parameters: xpost like sy-datum default sy-datum.

data: begin of gmhead.

        include structure bapi2017_gm_head_01.
data: end of gmhead.

data: begin of gmcode.

        include structure bapi2017_gm_code.
data: end of gmcode.

data: begin of mthead.

        include structure bapi2017_gm_head_ret.
data: end of mthead.

data: begin of itab occurs 100.

        include structure bapi2017_gm_item_create.
data: end of itab.

data: begin of errmsg occurs 10.

        include structure bapiret2.
data: end of errmsg.

data: wmenge like iseg-menge,

      errflag.

data: begin of pcitab occurs 100,
        ext_doc(10),           "External Document Number
        mvt_type(3),           "Movement Type
        doc_date(8),           "Document Date
        post_date(8),          "Posting Date
        plant(4),              "Plant
        material(18),          "Material Number
        qty(13),               "Quantity
        recv_loc(4),           "Receiving Location
        issue_loc(4),          "Issuing Location
        pur_doc(10),           "Purchase Document No
        po_item(3),            "Purchase Document Item No
        del_no(10),            "Delivery Purchase Order Number
        del_item(3),           "Delivery Item
        prod_doc(10),          "Production Document No
        scrap_reason(10),      "Scrap Reason
        upd_sta(1),            "Update Status
      end of pcitab.

call function 'WS_UPLOAD'

  exporting
    filename                      = p-file
    filetype                      = 'DAT'
* IMPORTING
*   FILELENGTH                    =
  tables
    data_tab                      = pcitab
* EXCEPTIONS
*   FILE_OPEN_ERROR               = 1
*   FILE_READ_ERROR               = 2
*   NO_BATCH                      = 3
*   GUI_REFUSE_FILETRANSFER       = 4
*   INVALID_TYPE                  = 5
*   OTHERS                        = 6

          .

if sy-subrc <> 0.

  message id sy-msgid type sy-msgty number sy-msgno
          with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  exit.
endif.

gmhead-pstng_date = sy-datum.

gmhead-doc_date = sy-datum.
gmhead-pr_uname = sy-uname.
gmcode-gm_code = '01'.   "01 - MB01 - Goods Receipts for Purchase Order

loop at pcitab.

  itab-move_type  = pcitab-mvt_type.
  itab-mvt_ind    = 'B'.
  itab-plant      = pcitab-plant.
  itab-material   = pcitab-material.
  itab-entry_qnt  = pcitab-qty.
  itab-move_stloc = pcitab-recv_loc.
  itab-stge_loc   = pcitab-issue_loc.
  itab-po_number  = pcitab-pur_doc.
  itab-po_item    = pcitab-po_item.
  concatenate pcitab-del_no pcitab-del_item into itab-item_text.
  itab-move_reas  = pcitab-scrap_reason.

  append itab.

endloop.

loop at itab.
  write:/ itab-material, itab-plant, itab-stge_loc,
          itab-move_type, itab-entry_qnt, itab-entry_uom,
          itab-entry_uom_iso, itab-po_number, itab-po_item,
                                              pcitab-ext_doc.
endloop.

call function 'BAPI_GOODSMVT_CREATE'

  exporting
    goodsmvt_header             = gmhead
    goodsmvt_code               = gmcode
*   TESTRUN                     = ' '
* IMPORTING
    goodsmvt_headret            = mthead
*   MATERIALDOCUMENT            =
*   MATDOCUMENTYEAR             =
  tables
    goodsmvt_item               = itab
*   GOODSMVT_SERIALNUMBER       =
    return                      = errmsg.

clear errflag.

loop at errmsg.

  if errmsg-type eq 'E'.
    write:/'Error in function', errmsg-message.
    errflag = 'X'.
  else.
    write:/ errmsg-message.
  endif.
endloop.

if errflag is initial.

  commit work and wait.

  if sy-subrc ne 0.
    write:/ 'Error in updating'.
    exit.
  else.
    write:/ mthead-mat_doc, mthead-doc_year.
    perform upd_sta.
  endif.

endif.

*------------------------------------------*

*       FORM UPD_STA                       *
*------------------------------------------*

form upd_sta.

  loop at pcitab.
    pcitab-upd_sta = 'X'.
    modify pcitab.
  endloop.

  call function 'WS_DOWNLOAD'

    exporting
      filename                      = p-file
      filetype                      = 'DAT'
* IMPORTING
*   FILELENGTH                    =
    tables
      data_tab                      = pcitab
* EXCEPTIONS
*   FILE_OPEN_ERROR               = 1
*   FILE_READ_ERROR               = 2
*   NO_BATCH                      = 3
*   GUI_REFUSE_FILETRANSFER       = 4
*   INVALID_TYPE                  = 5
*   OTHERS                        = 6.

endform.

Liberar Orden Transporte Bloqueada con Job de fondo

Crear un programa Z  haciendo el llamado de la funcion TR_RELEASE_COMM y programar una job de fondo con SM36 y SM37. Se utiliza cuando una orden se queda en proceso de liberacion y no termina.


REPORT ZLIBERARORDEN.

data: e071_tab  like e071  occurs 50,
        e071k_tab like e071k occurs 50.
  call function   'TR_RELEASE_COMM'
      exporting  WI_TRKORR          = 'CLDK928183'
                  WI_DIALOG          = ' '
                  WI_SUCCESS_MESSAGE = ' '
      tables     wt_e071            = e071_tab
                  wt_e071k          = e071k_tab
      exceptions others             = 0.

Select

*-- Cuando queremos guardar el contenido de una tabla de la BD a una tabla interna:

SELECT * INTO TABLE ti_vbrk
FROM vbrk
WHERE bukrs IN p_bukrs
  AND fkdat IN p_fkdat
  AND kunag IN p_kunag
  AND vbeln IN p_vbeln.

*-- Para seguir añadiendo registros en una tabla interna sin borrar los que hay:

SELECT * APPENDING TABLE ti_bsid
FROM bsid
WHERE kunnr = ti_write-kunnr2
  AND bschl = '01'
  AND bldat <= fecha_b-high.


*-- Cuando queremos coger campos sueltos de una tabla de la BD a unas variables:

SELECT SINGLE werks aubel
INTO (v_werks, v_aubel)
FROM vbrp
WHERE vbeln = ti_vbrk-vbeln.


*-- Como recuperar el nombre de usuario:

SELECT SINGLE *
FROM usr21
WHERE bname = v_ernam.

SELECT SINGLE name_text
INTO  v_nombre
FROM  adrp
WHERE persnumber = usr21-persnumber.


*-- Para sacar la cantidad de registros que hay en la selección utilizamos COUNT

SELECT COUNT( * ) INTO v_number1
FROM  bsid
WHERE kunnr = ti_write-kunnr2
  AND bschl = '01'
  AND bldat <= fecha_b-high.


*-- Para hacer sumatorios utilizamos SUM  
SELECT SUM( CANTIDADTTE )
       SUM( CANTIDADPAGADA )
       SUM( IMPORTE )
       SUM( IMPORTE_CIN )
       CAMION PLANTA_SAP DIVISION
INTO (I_DATOS-MCTRAN, I_DATOS-MCPAGA, I_DATOS-IMPTOT,
      I_DATOS-IMPINC, I_DATOS-CAMION, I_DATOS-PLANTA,
      I_DATOS-DIVISI)
FROM ZALBARANES
WHERE FECHA IN S_FECHA
  AND ESTADO GT '4'
GROUP BY DIVISION PLANTA_SAP CAMION.


ENDSELECT.


*-- Cuando queremos decir que nos coja todos lo registros que empiecen por... 006*

SELECT *
FROM COSP
WHERE GJAHR EQ P_EJERCI
  AND OBJNR EQ D_CENTRO_COSTE
  AND ( KSTAR LIKE '006%' OR KSTAR LIKE '009%' OR KSTAR LIKE '008%' )
  AND WRTTP EQ '04'.


*-- Para evitar hacer un LOOP a una tabla interna.

SELECT *
FROM /bic/cubo23
INTO TABLE i_cub
FOR ALL ENTRIES IN ti_cuentas
WHERE fiscyear = p_gjahr
  AND /bic/co_area = i_sociedades-co_area
  AND /bic/version = version
  AND /bic/costelmnt = ti_cuentas-cuenta
  AND /bic/center IN s_kostl.


Referencia: http://www.abap.es/foro/index.php#c1