my $this_appcode = $AppCode{$ID};
my $this_csttype = $CstType{$ID};
$TotCst{$this_appcode}->{$this_csttype} += $InvAmnt{$ID};