> INSERT INTO (cInvenUsedView) ( INVEN_PK, INV_CODE, TRAN_DATE ) VALUES ; > ( tnInvenPk, cInvCode, tdPostDate ) >>
IF VARTYPE(tdPostDate)=="T" THEN * tdPostDate is already a DateTime value INSERT INTO (cInvenUsedView) ( INVEN_PK, INV_CODE, TRAN_DATE ) VALUES ; ( tnInvenPk, cInvCode, tdPostDate ) ELSE IF VARTYPE((tdPostDate)=="D" THEN * tdPostDate is a Date value - add current time tNow = DATETIME() ttPostDate = DATERTIME(YEAR(m.tdPostDate),MONTH(m.tdPostDate),DAY(m.tdPostDate), HOUR(m.tNow),MINUTE(m.tNow),SEC(m.tNow)) INSERT INTO (cInvenUsedView) ( INVEN_PK, INV_CODE, TRAN_DATE ) VALUES ; ( tnInvenPk, cInvCode, ttPostDate ) ENDIF ENDIF