工單產生備料情況是依ima64.情況無條件進位的

Define l_double 定義　為number(10)

工單產生備料情況是依ima64.情況無條件進位的,再依單位小數點位情況做4舍５入.

IF l_ima64!=0 THEN

  LET l_double=(g_sfa.sfa05/l_ima64)+ 0.999999

  LET g_sfa.sfa05=l_double*l_ima64

END IF

SELECT gfe03 INTO l_gfe03 FROM gfe_file WHERE gfe01 = g_sfa.sfa12

IF SQLCA.sqlcode OR cl_null(l_gfe03) THEN LET l_gfe03 = 0 END IF

CALL cl_digcut(g_sfa.sfa05,l_gfe03) RETURNING l_sfaqty

LET g_sfa.sfa05 =  l_sfaqty

 

最后欢迎大家加入易拓大家庭，一起学习进步！QQ群53145013