Verificacion de fecha

[CRISTINO.GARCIA]

Hola a Todos.

Tengo que realizar una verificacion de que el lote no se repita si es menor a la fecha del dia (SY-DATUM) para que no lo grabe pero este puede venir asi:

0020130411
PREN042013

Para el primer caso como es una fecha puedo validar pero como podria hacer con el segundo caso ya que no es fecha.

Gracias

[vanesamacri]

Hola a Todos.

Tengo que realizar una verificacion de que el lote no se repita si es menor a la fecha del dia (SY-DATUM) para que no lo grabe pero este puede venir asi:

0020130411
PREN042013

Para el primer caso como es una fecha puedo validar pero como podria hacer con el segundo caso ya que no es fecha.

Gracias

Hola.

Por lo que veo, en la segunda fecha se encuentran el mes y el año, pero falta el día. ¿Qué es PREN? ¿Vendría a ser el equivalente a 11? En ese caso, ¿contás con todos los posibles valores desde 01 a 31?

[CRISTINO.GARCIA]

Hola. Lo que pasa es que los lotes no se crearon con un criterio unico estandar, unos son con fecha 20130403 y otros son combinados REV042013. Se le antepone una sigla y luego mes y año. Lo que se debe comparar es que no se utilice el lote si ya se utilizo anteriormente y esto se hace comparando la fecha del sy-datum con el lote que traiga (20130403, REV042013).

Para el primer caso como es fecha si puedo comprar contra el sy-datum pero para el segundo caso como se podria hacer.

Gracias

Hola.

Por lo que veo, en la segunda fecha se encuentran el mes y el año, pero falta el día. ¿Qué es PREN? ¿Vendría a ser el equivalente a 11? En ese caso, ¿contás con todos los posibles valores desde 01 a 31?

[vtsuchida]

Hola, a qué te refieres con PREN y REV?

Saludos

[mysmb2]

para el segundo caso tenes que hacer asi

  DATA fecha TYPE char10 VALUE 'PREN042013'.
  DATA fecha_dat TYPE sy-datum.

  move fecha+6(4) to fecha_dat+0(4).
  move fecha+4(2) to fecha_dat+4(2).
  move '01'       to fecha_dat+6(2).

  IF fecha_dat+0(6) gt sy-datum+0(6).
    WRITE 'error'.
  ENDIF.

saludos.