FDM Import Format Spec with multiple Amount Fields

Question

Hello,
I'm in the process of setting up an Import specification for one of our sites and the source extract consists of the following fields:
Source Account Description BegBalDR BegBalCr YTDDR YTDCR
01-511-5110     Inventory Adjustment     1,754.00     0     0     14,844.76
I'm am trying to Import Field 5 & 6 and net them if necessary (example: YTDDR - YTDCR) and I continue to get an error. I have tried several diffrent ways but it seems that I can only import one or the other. After reading the FDM Admin guide I am wondering if I need to create a custom Script to accomplish this task.
Any advice would be appreciated.
Thank you,
Tony

Answer 1

This might be slightly complicated, but I think its the most direct solution ........
Step 1 -
In your Import Format, assign the Amount as :
FieldName, Start, Length, Expression
Amount, 1, 1, Script=NetAmounts5and6.uss
Step 2 -
Create an Import (DataPump) script called NetAmounts5and6 with the following code :
Function NetAmount5and6(strField, strRecord)
'Hyperion FDM DataPump Import Script:
'Created By:     cbeyer
'Date Created:     2/13/2009 5:57:14 PM
'Purpose:
'Get the last two fields
Dim tmpRecord
Dim strCurrentChar
Dim strYTDCR
Dim strYTDDR
Dim x
'Initialize fields
tmpRecord = strRecord
'Ensure we have data
If Trim(tmpRecord) = "" Then Exit Function
strYTDCR = ""
strYTDDR = ""
'Get YTD CR
'One could use the replace command to change all spaces to a delimittable field and then
'split out the string into a one dimensional array using the split command; however,
'This would only work best if there is an exact number of spaces between the two numbers
'Since I do not know if this is true, instead i'm looking for numeric/numeric like characters
'and splitting based off of that.
For x = Len(tmpRecord) To 1 Step -1
strCurrentChar = Mid(tmpRecord,x,1)
If (IsNumeric(strCurrentChar) Or strCurrentChar = "$" Or strCurrentChar = "." Or strCurrentChar = "," ) Then
strYTDCR = strCurrentChar & strYTDCR
Else
Exit For
End If
Next
'Trim down temporary record holder to remove the previous found amount and white space at the end of the string
tmpRecord = RTrim(Left(tmpRecord,x)) 'Remove the first number from the string and white space
'Get YTD DR
For x = Len(tmpRecord) To 1 Step -1
strCurrentChar = Mid(tmpRecord,x,1)
If (IsNumeric(strCurrentChar) Or strCurrentChar = "$" Or strCurrentChar = "." Or strCurrentChar = "," ) Then
strYTDDR = strCurrentChar & strYTDDR
Else
Exit For
End If
Next
'do the math
If IsNumeric(strYTDCR) And IsNumeric(strYTDDR) Then
NetAmount5and6 = strYTDDR - strYTDCR
Else
NetAmount5and6 = 0 'This will cause the record to fail on import
End If
End Function