due date basis 修改

kakoo

在采购发票中,系统标准的due data basis 是最早的收货日期,但是我想很多公司倾向于最晚的收货日期.我写了一段spe,请大家参考
$FIN_PICK
If ([F:BPS]DUDCLC)=1
Gosub FIN_PICK      From SUBPIHA
[MIH1]STRDUDDAT=max([MIH3]RCPDAT(0..[MIH3]NBLIG-1))
Affzo [M:PIH1]STRDUDDAT
GPE=1
Endif
Return
$VERIF_MOD
   
If ([F:BPS]DUDCLC)=1
Gosub VERIF_MOD     From SUBPIHA
[M:PIH1]STRDUDDAT=max([M:PIH3]RCPDAT(0..[M:PIH3]NBLIG-1))
Affzo [M:PIH1]STRDUDDAT
GPE=1
Endif

Return