Cambiar separador decimal a un importe (puntos o comas)

3 08 2010

Generalmente entre distintas computadoras el separador decimal de un importe puede variar. Puede ser un punto o una coma, por ejemplo 100.60 o bien 100,60 .
Como no sabemos qué configuración tiene el sistema donde se va a ejecutar nuestro programa, con lo siguiente vamos a poder poner el separador decimal correcto automáticamente.


DATA: FORMATO_DEC LIKE USR01-DCPFM.

*Obtenemos el formato decimal del sistema en la variable FORMATO_DEC
SELECT SINGLE DCPFM
INTO FORMATO_DEC
FROM USR01
WHERE BNAME = SY-UNAME.

*Cambiamos el separador decimal a la variable de importe (LV_DMBTR)
CASE FORMATO_DEC.
WHEN ‘ ‘. “Coma Decimal
REPLACE ‘.’ IN LV_DMBTR WITH ‘,’.
WHEN ‘X’. “Punto Decimal
REPLACE ‘,’ IN LV_DMBTR WITH ‘.’.
ENDCASE.





Programa que lista USER-EXITS de una transacción

3 08 2010

El siguiente reporte muestra un listado de las USER EXITS de una transacción determinada. Sólo basta ingresar el nombre de la transacción en la pantalla principal, y como resultado mostrará tanto el nombre como la descripción de la USER EXIT.

*&———————————————————————*
*& Report ZUSER_EXIT
*&
*&———————————————————————*
*&
*&
*&———————————————————————*
REPORT ZUSER_EXIT.
tables : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
tables : tstct.
data : jtab like tadir occurs 0 with header line.
data : field1(30).
data : v_devclass like tadir-devclass.
parameters : p_tcode like tstc-tcode obligatory.

select single * from tstc where tcode eq p_tcode.
if sy-subrc eq 0.
select single * from tadir where pgmid = ‘R3TR’
and object = ‘PROG’
and obj_name = tstc-pgmna.
move : tadir-devclass to v_devclass.
if sy-subrc ne 0.
select single * from trdir where name = tstc-pgmna.
if trdir-subc eq ‘F’.
select single * from tfdir where pname = tstc-pgmna.
select single * from enlfdir where funcname =
tfdir-funcname.
select single * from tadir where pgmid = ‘R3TR’
and object = ‘FUGR’
and obj_name eq enlfdir-area.

move : tadir-devclass to v_devclass.
endif.
endif.
select * from tadir into table jtab
where pgmid = ‘R3TR’
and object = ‘SMOD’
and devclass = v_devclass.
select single * from tstct where sprsl eq sy-langu and
tcode eq p_tcode.
format color col_positive intensified off.
write:/(19) ‘Transaction Code – ‘,
20(20) p_tcode,
45(50) tstct-ttext.
skip.
if not jtab[] is initial.
write:/(95) sy-uline.
format color col_heading intensified on.
write:/1 sy-vline,
2 ‘Exit Name’,
21 sy-vline ,
22 ‘Description’,
95 sy-vline.
write:/(95) sy-uline.
loop at jtab.
select single * from modsapt
where sprsl = sy-langu and
name = jtab-obj_name.
format color col_normal intensified off.
write:/1 sy-vline,
2 jtab-obj_name hotspot on,
21 sy-vline ,
22 modsapt-modtext,
95 sy-vline.
endloop.
write:/(95) sy-uline.
describe table jtab.
skip.
format color col_total intensified on.
write:/ ‘No of Exits:’ , sy-tfill.
else.
format color col_negative intensified on.
write:/(95) ‘No User Exit exists’.
endif.
else.
format color col_negative intensified on.
write:/(95) ‘Transaction Code Does Not Exist’.
endif.

at line-selection.
get cursor field field1.
check field1(4) eq ‘JTAB’.
set parameter id ‘MON’ field sy-lisel+1(10).
call transaction ‘SMOD’ and skip first screen.





Guardar archivo en formato PDF

3 08 2010

Con el siguiente código podremos generar archivos PDF.

Ya que con la función GUI_DOWNLOAD únicamente no se puede hacer. Previamente hay que realizar una conversión para luego sí guardar el fichero.PDF.


*&—————————————————————–*
*& Report  Y_TEST
*&
*&—————————————————————–*
*&
*&
*&—————————————————————–*

REPORT y_test NO STANDARD PAGE HEADING.

**********************************************************************
*  Definición de variables                                                                   *
**********************************************************************

DATA: filesize  TYPE i,
header  LIKE thead,
options  LIKE itcpo,
result    LIKE itcpp,
otf        LIKE itcoo OCCURS 0 WITH HEADER LINE,
lines     LIKE tline OCCURS 0 WITH HEADER LINE,
lv_file   TYPE string.

**********************************************************************
*  Definición de la pantalla de selección                                              *
**********************************************************************

SELECTION-SCREEN BEGIN OF BLOCK blq1 WITH FRAME TITLE text-t01.
PARAMETERS:
p_impre TYPE pri_params-pdest OBLIGATORY,
p_file  TYPE rlgrap-filename OBLIGATORY DEFAULT ‘C:\PRUEBA.PDF’.
SELECTION-SCREEN END OF BLOCK blq1.

**********************************************************************
*  Proceso principal                                                                           *
**********************************************************************

*Se completa tabla lines con el contenido que queramos que tenga el archivo PDF
lines-tdline = ‘Este es el texto que aparecerá en el archivo PDF’.
lines-tdformat = ‘K’.
APPEND lines.

*Se obtienen y definen las opciones de formato del archivo
options-tddest = p_impre. “Nombre de impresora local
options-tdnewid = ‘X’.
options-tdgetotf = ‘X’.

CALL FUNCTION ‘PRINT_TEXT’
EXPORTING
device           = ‘PRINTER’
dialog           = ‘ ‘
application    = ‘TX’
header          = header
options         = options
IMPORTING
result         = result
TABLES
lines          = lines
otfdata      = otf
EXCEPTIONS
canceled     = 01
device        = 02
form          = 03
options      = 04
unclosed    = 05
unknown    = 06
format       = 07
textformat  = 08
communication = 09.

* Se convierte a PDF
CALL FUNCTION ‘CONVERT_OTF’
EXPORTING
format                = ‘PDF’
max_linewidth     = 132
IMPORTING
bin_filesize          = filesize
TABLES
otf                    = otf
lines                 = lines
EXCEPTIONS
err_conv_not_possible = 1.

* Bajamos el archivo
lv_file = p_file.

CALL FUNCTION ‘GUI_DOWNLOAD’
EXPORTING
bin_filesize = filesize
filename = lv_file
filetype = ‘BIN’
* APPEND = ‘ ‘
* CODEPAGE = ‘ ‘
* NO_BYTEORDER_MARK = ‘ ‘
* IMPORTING
* FILELENGTH = c
TABLES
data_tab = lines
* FORMAT_TAB =
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6.





Tabuladores en formularios – Abap

2 08 2010
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
PARAMETERS: p1 TYPE c LENGTH 10,
p2 TYPE c LENGTH 10,
p3 TYPE c LENGTH 10.
SELECTION-SCREEN END OF SCREEN 100.
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
PARAMETERS: q1 TYPE c LENGTH 10,
q2 TYPE c LENGTH 10,
q3 TYPE c LENGTH 10.
SELECTION-SCREEN END OF SCREEN 200.
SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 10 LINES,
TAB (20) button1 USER-COMMAND push1 DEFAULT SCREEN 100,
TAB (20) button2 USER-COMMAND push2 DEFAULT SCREEN 200,
END OF BLOCK mytab.
INITIALIZATION.
button1 = ‘Formulario 1’.
button2 = ‘Formulario 2’.

SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.PARAMETERS: p1 TYPE c LENGTH 10,p2 TYPE c LENGTH 10,p3 TYPE c LENGTH 10.SELECTION-SCREEN END OF SCREEN 100.
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.PARAMETERS: q1 TYPE c LENGTH 10,q2 TYPE c LENGTH 10,q3 TYPE c LENGTH 10.SELECTION-SCREEN END OF SCREEN 200.
SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 10 LINES,TAB (20) button1 USER-COMMAND push1 DEFAULT SCREEN 100,TAB (20) button2 USER-COMMAND push2 DEFAULT SCREEN 200,END OF BLOCK mytab.INITIALIZATION.button1 = ‘Formulario 1’.button2 = ‘Formulario 2’.





Enviar e-mail a correo externo – Abap

2 08 2010
DATA: BEGIN OF i_text OCCURS 0.
INCLUDE STRUCTURE soli.
DATA: END OF i_text.
DATA: wspoolnumber   LIKE  sy-spono ,
wmailname      LIKE  sood1-objnam,
wsubject       LIKE  sood1-objdes ,
wrecepient(40) TYPE  c ,
wdli           LIKE  soos1-dlinam.
DATA: object_hd_change LIKE sood1 OCCURS 0 WITH HEADER LINE,
objpara          LIKE selc  OCCURS 0 WITH HEADER LINE,
receivers        LIKE soos1 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF i_receivers OCCURS 0.
INCLUDE STRUCTURE receivers.
DATA: END OF i_receivers.
wsubject     = ‘Entrega numero….1234567890.’.
wrecepient   = ‘tu_correo@algo.com’.
object_hd_change-objla  = sy-langu.
object_hd_change-objnam = wmailname.
object_hd_change-objdes = wsubject.
object_hd_change-objsns = ‘F’.
object_hd_change-vmtyp  = ‘T’.
object_hd_change-skips  = ‘X’.
object_hd_change-acnam  = ‘SP01’.
object_hd_change-objcp  = ‘X’.
REFRESH i_text.
CLEAR i_text.
i_text-line = ‘Texto del mensaje’.
APPEND i_text.
REFRESH i_receivers.
CLEAR i_receivers.
i_receivers-rcdat  = sy-datum.
i_receivers-rctim  = sy-uzeit.
i_receivers-recextnam = wrecepient.
i_receivers-recesc = ‘U’.
i_receivers-sndex  = ‘X’.     ” Express-Mail
APPEND i_receivers.
objpara-name = ‘SPI’.
objpara-low  = wspoolnumber.
APPEND objpara.
CALL FUNCTION ‘SO_OBJECT_SEND’
EXPORTING
object_hd_change           = object_hd_change
object_type                = ‘RAW’
owner                      = sy-uname
TABLES
objcont                    = i_text
receivers                  = i_receivers
EXCEPTIONS
active_user_not_exist            = 1
communication_failure            = 2
component_not_available          = 3
folder_not_exist                 = 4
folder_no_authorization          = 5
forwarder_not_exist              = 6
note_not_exist                   = 7
object_not_exist                 = 8
object_not_sent                  = 9
object_no_authorization          = 10
object_type_not_exist            = 11
operation_no_authorization       = 12
owner_not_exist                  = 13
parameter_error                  = 14
substitute_not_active            = 15
substitute_not_defined           = 16
system_failure                   = 17
too_much_receivers               = 18
user_not_exist                   = 19
originator_not_exist             = 20
x_error                          = 21
OTHERS                           = 22.
IF sy-subrc <> 0.
WRITE: /’Error al enviar el mail’.
MESSAGE ID sy-msgid TYPE ‘S’ NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
COMMIT WORK.

DATA: BEGIN OF i_text OCCURS 0.          INCLUDE STRUCTURE soli.  DATA: END OF i_text.
DATA: wspoolnumber   LIKE  sy-spono ,        wmailname      LIKE  sood1-objnam,        wsubject       LIKE  sood1-objdes ,        wrecepient(40) TYPE  c ,        wdli           LIKE  soos1-dlinam.
DATA: object_hd_change LIKE sood1 OCCURS 0 WITH HEADER LINE,        objpara          LIKE selc  OCCURS 0 WITH HEADER LINE,        receivers        LIKE soos1 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF i_receivers OCCURS 0.          INCLUDE STRUCTURE receivers.  DATA: END OF i_receivers.

wsubject     = ‘Entrega numero….1234567890.’.  wrecepient   = ‘tu_correo@algo.com’.

object_hd_change-objla  = sy-langu.  object_hd_change-objnam = wmailname.  object_hd_change-objdes = wsubject.  object_hd_change-objsns = ‘F’.  object_hd_change-vmtyp  = ‘T’.  object_hd_change-skips  = ‘X’.  object_hd_change-acnam  = ‘SP01’.  object_hd_change-objcp  = ‘X’.

REFRESH i_text.  CLEAR i_text.  i_text-line = ‘Texto del mensaje’.  APPEND i_text.

REFRESH i_receivers.  CLEAR i_receivers.  i_receivers-rcdat  = sy-datum.  i_receivers-rctim  = sy-uzeit.  i_receivers-recextnam = wrecepient.  i_receivers-recesc = ‘U’.  i_receivers-sndex  = ‘X’.     ” Express-Mail  APPEND i_receivers.

objpara-name = ‘SPI’.  objpara-low  = wspoolnumber.  APPEND objpara.

CALL FUNCTION ‘SO_OBJECT_SEND’       EXPORTING            object_hd_change           = object_hd_change            object_type                = ‘RAW’            owner                      = sy-uname       TABLES            objcont                    = i_text            receivers                  = i_receivers       EXCEPTIONS       active_user_not_exist            = 1       communication_failure            = 2       component_not_available          = 3       folder_not_exist                 = 4       folder_no_authorization          = 5       forwarder_not_exist              = 6       note_not_exist                   = 7       object_not_exist                 = 8       object_not_sent                  = 9       object_no_authorization          = 10       object_type_not_exist            = 11       operation_no_authorization       = 12       owner_not_exist                  = 13       parameter_error                  = 14       substitute_not_active            = 15       substitute_not_defined           = 16       system_failure                   = 17       too_much_receivers               = 18       user_not_exist                   = 19       originator_not_exist             = 20       x_error                          = 21       OTHERS                           = 22.
IF sy-subrc <> 0.    WRITE: /’Error al enviar el mail’.    MESSAGE ID sy-msgid TYPE ‘S’ NUMBER sy-msgno            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.  ENDIF.  COMMIT WORK.





Calculadora – Abap

2 08 2010
REPORT  zcalculadora.
DATA: x_value(15) TYPE c.
CALL FUNCTION ‘FITRV_CALCULATOR’
* EXPORTING
*   INPUT_VALUE                =
*   CURRENCY                   =
*   START_COLUMN               = ’10’
*   START_ROW                  = ’10’
IMPORTING
output_value               = x_value
EXCEPTIONS
invalid_input              = 1
calculation_canceled       = 2
OTHERS                     = 3.
IF sy-subrc = 0.  “En este ejemplo imprimimos por pantalla el resultado
WRITE:/ ‘Output Value ‘, x_value.
ENDIF.

REPORT  zcalculadora.
DATA: x_value(15) TYPE c.
CALL FUNCTION ‘FITRV_CALCULATOR’* EXPORTING*   INPUT_VALUE                =*   CURRENCY                   =*   START_COLUMN               = ’10’*   START_ROW                  = ’10’  IMPORTING    output_value               = x_value  EXCEPTIONS    invalid_input              = 1    calculation_canceled       = 2    OTHERS                     = 3.
IF sy-subrc = 0.  “En este ejemplo imprimimos por pantalla el resultado  WRITE:/ ‘Output Value ‘, x_value.ENDIF.





Campo de Password – Abap

2 08 2010
REPORT ZCBPRUEBA3 .
PARAMETERS: P_PASSWD(8) MODIF ID VER.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = ‘VER’.
SCREEN-INVISIBLE = ‘1’.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
END-OF-SELECTION.

REPORT ZCBPRUEBA3 .
PARAMETERS: P_PASSWD(8) MODIF ID VER.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.  IF SCREEN-GROUP1 = ‘VER’.
SCREEN-INVISIBLE = ‘1’.      MODIFY SCREEN.    ENDIF.  ENDLOOP.
END-OF-SELECTION.