viernes, 12 de septiembre de 2008

ABAP convertir de peso(MXN) a dolar (USD)

Por si algun dia lo llego a necesitar ya que se me olvida todo.

Checar que la fecha en la tabla esta invertida asi que tenemos que hacerla igual,

en este caso estamos tomando la fecha de hoy - 1.

report ZPRUEBASF.

***************************************************************
*programa pa sacar el tipo de cambio
***************************************************************
data: begin of i_table occurs 0.
include structure tcurr.
data: end of i_table.

parameter fecha like tcurr-gdatu.
parameter fecha2 like sy-datum.

fecha2 = fecha2 - 1.
convert date fecha2 into inverted-date fecha2.
fecha = fecha2.

break-point.
select * from tcurr into table i_table
where GDATU = fecha.


delete i_table where tcurr <> 'MXN'.
loop at i_table.
write: / i_table-gdatu , i_table-ukurs.

endloop.


1 comentario:

Anónimo dijo...

muy bueno el aporte, sobre todo el de invertir la fecha.

gracias.