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 #################...
Recopilación de trucos e información para el desarrollo de aplicaciones en Sage X3 que pertenecen a otros autores y algunos propios