There can be occasions when you want to accept date input in an alphanumeric field in grid. As, alphanumeric field does not have calendar control so you need to validate the entry section by writing our own code. Here we are describing how to achieve same via code.

Below is the code we have written after changing event of alphanumeric date field

Subprog AM_DATASW10(VALEUR)

Variable Char    VALEUR()

Global Char XDATE:XDATE = ”

Call DATEVALIDATE(VALEUR)

If VALEUR <> ” and XDATE = ”

  mkstat=2

ELSE

   [M:ZTEC]DATASW10(nolign-1)=xdate

   Affzo [M:ZTEC]DATASW10(nolign-1)

Endif

XDATE = ”

End

#####################################################################################

subprog datevalidate(VALEUR)

global char xdate:xdate=”

local char LC2:LC2=”

xdate = format$(“DD2”,VALEUR)

LC2= format$(“DD2″,”gfdbf”)

if xdate = LC2

 infbox ‘Invalid date’

 xdate = ”

endif

end

####################################################################