topic Re: Validating Number in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/validating-number/m-p/1842891#M358034 <HTML><HEAD></HEAD><BODY><P>Just a thought..</P><P></P><P>Why dont you declare SERNR as SY-DATUM and extract month and year from it.</P><P></P><P>Thanks,</P><P>Santosh</P></BODY></HTML> Wed, 31 Jan 2007 16:38:33 GMT Former Member 2007-01-31T16:38:33Z Validating Number https://community.sap.com/t5/application-development-and-automation-discussions/validating-number/m-p/1842890#M358033 <HTML><HEAD></HEAD><BODY><P>I am working on a serial number validation code.2,3 digits of the number are year, 4,5 digits are month. I have to modify the code such that it only accept current and past year,month.</P><P>Also I noticed if I give 13 for the month it still acception. Please help in fixing this code.</P><P></P><P> DATA: I_EQUI LIKE EQUI.</P><P> DATA: I_SERNR LIKE EQUI-SERNR.</P><P> DATA: I_LENGTH TYPE I.</P><P> I_SERNR = SERNR.</P><P> SHIFT I_SERNR LEFT DELETING LEADING '0'.</P><P> I_LENGTH = STRLEN( I_SERNR ).</P><P> IF</P><P> I_LENGTH GT 9 OR I_LENGTH LT 9.</P><P> MESSAGE E398(00) WITH 'INVALID LENGTH'.</P><P> EXIT.</P><P> ENDIF.</P><P></P><UL><LI level="1" type="ul"><P>DATA: SERNR LIKE EQUI-SERNR.</P></LI><LI level="1" type="ul"><P>DATA: MATNR TYPE MATNR.</P></LI></UL><P></P><P> IF SY-TCODE = 'MB31'.</P><P></P><P> SELECT SINGLE * FROM EQUI INTO I_EQUI</P><P> WHERE EQTYP = 'S'</P><P> AND MATNR = MATNR</P><P> AND SERNR = SERNR.</P><P> IF SY-SUBRC EQ 0.</P><P> MESSAGE E398(00) WITH 'SERIAL NUMBER ALREADY EXISTS'.</P><P> ELSE.</P><P></P><P> IF I_SERNR<EM>0(1) = '2' OR I_SERNR</EM>0(1) = '3' OR I_SERNR+0(1) = '6'.</P><P> IF I_SERNR<EM>1(2) = SY-DATUM</EM>2(2).</P><P> IF I_SERNR<EM>3(2) LE SY-DATUM</EM>4(2).</P><P> IF I_SERNR<EM>5(4) GT '0000' AND I_SERNR</EM>5(4) LT '9999'.</P><P> ELSE.</P><P> MESSAGE E398(00) WITH 'PLEASE ENTER RANGE WITHIN 0000 AND 9999'.</P><P> ENDIF.</P><P> ELSE.</P><P> MESSAGE E398(00) WITH 'PLEASE ENTER A DATE IN THE PAST'.</P><P> ENDIF.</P><P> ELSE.</P><P> IF I_SERNR<EM>1(2) LT SY-DATUM</EM>2(2).</P><P> IF I_SERNR<EM>5(4) GT '0000' AND I_SERNR</EM>5(4) LT '9999'.</P><P> ELSE.</P><P> MESSAGE E398(00) WITH 'PLEASE ENTER RANGE WITHIN 0000 AND 9999'.</P><P> ENDIF.</P><P> ELSE.</P><P> MESSAGE E398(00) WITH 'PLEASE ENTER A DATE IN THE PAST'.</P><P> ENDIF.</P><P> ENDIF.</P><P></P><P> ELSE.</P><P></P><P> MESSAGE E398(00) WITH 'INVALID MANUFACTURING SITE'.</P><P> ENDIF.</P><P> ENDIF.</P><P> ELSE.</P><P> SELECT SINGLE * FROM EQUI INTO I_EQUI</P><P> WHERE EQTYP = 'S'</P><P> AND MATNR = MATNR</P><P> AND SERNR = SERNR.</P><P></P><P> IF SY-SUBRC NE 0.</P><P> MESSAGE E398(00) WITH 'PLEASE ENTER A VALID SERIAL NUMBER'.</P><P> ENDIF.</P><P> ENDIF.</P></BODY></HTML> Wed, 31 Jan 2007 16:15:34 GMT https://community.sap.com/t5/application-development-and-automation-discussions/validating-number/m-p/1842890#M358033 Former Member 2007-01-31T16:15:34Z Re: Validating Number https://community.sap.com/t5/application-development-and-automation-discussions/validating-number/m-p/1842891#M358034 <HTML><HEAD></HEAD><BODY><P>Just a thought..</P><P></P><P>Why dont you declare SERNR as SY-DATUM and extract month and year from it.</P><P></P><P>Thanks,</P><P>Santosh</P></BODY></HTML> Wed, 31 Jan 2007 16:38:33 GMT https://community.sap.com/t5/application-development-and-automation-discussions/validating-number/m-p/1842891#M358034 Former Member 2007-01-31T16:38:33Z Re: Validating Number https://community.sap.com/t5/application-development-and-automation-discussions/validating-number/m-p/1842892#M358035 <HTML><HEAD></HEAD><BODY><P>Actually the SERNR entered has 9 digits... apart from year and month it has 4 more digits </P><P>so i can't declare it as SY-DATUM.</P></BODY></HTML> Wed, 31 Jan 2007 17:01:50 GMT https://community.sap.com/t5/application-development-and-automation-discussions/validating-number/m-p/1842892#M358035 Former Member 2007-01-31T17:01:50Z