tbaird
Member
I am writing a report to gather data, store it in the ABURAT/F0101 field for use later using I/O update. The report gathers the correct data but writes the data to the next record instead of the current record? Below is my ER any ideas?
Listing of ER for Report: TREND ANALYSIS -GRR-OLDOVER & KRR (R55TRND)
=======================================================================
SECTION: SALES TAX BY STATE,etc [GROUP SECTION] V (S3)
=======================================================================
OBJECT: SECTION
EVENT: Before Level Break
-----------------------------------------------------------------------
0001 Get Alpha Name From Address Book
BC Address Number -> mnAddressNumber
RV Variable 000007 <- szNameAlpha
Tuesday June 29, 2004 08:33
Listing of ER for Report: TREND ANALYSIS -GRR-OLDOVER & KRR (R55TRND)
=======================================================================
SECTION: SALES TAX BY STATE,etc [GROUP SECTION] V (S3)
=======================================================================
OBJECT: SECTION
EVENT: Do Section
-----------------------------------------------------------------------
0001 Get Alpha Name From Address Book
BC Address Number - Ship To -> mnAddressNumber
RV Variable 000006 <- szNameAlpha
0002 F41002 Get Item UoM Conversion
BC Business Unit -> szBranchPlant
BC Unit of Measure as Input -> szFromUnitOfMeasure
"GA" -> szToUnitOfMeasure
BC Quantity Shipped -> mnQuantityToConvert
UNDEFINED X cInventoryInterfaceFlag
UNDEFINED X mnConversionFactorFromToPrim
UNDEFINED X mnConversionFactorFrom_to_To
UNDEFINED X mnConversionFactorTo_to_Primar
UNDEFINED X mnQuantityConvertedToPrimary
UNDEFINED X cConvertToSecondary
UNDEFINED X mnQuantityConvertedToSecondary
UNDEFINED X cConvertToPurchasing
UNDEFINED X mnQuantityConvertedToPurchasin
UNDEFINED X cConvertToPricing
UNDEFINED X mnQuantityConvertedToPricing
UNDEFINED X cConvertToShipping
UNDEFINED X mnQuantityConvertedToShipping
UNDEFINED X cConvertToWeight
UNDEFINED X mnQuantityConvertedToWeight
UNDEFINED X cConvertToVolume
UNDEFINED X mnQuantityConvertedToVolume
UNDEFINED X cPotencyMode
UNDEFINED X szLotNumber
UNDEFINED X cPotencyControl
UNDEFINED X mnStandardPotency
UNDEFINED X szErrorMessageID
UNDEFINED X cSuppressErrorMsg
UNDEFINED X cPotencyType
BC Item Number - Short -> mnShortItemNumber
UNDEFINED X cUOMByBranch
UNDEFINED X szUOMToPrimary
UNDEFINED X szUOMToSecondary
UNDEFINED X szUOMToPurchasing
UNDEFINED X szUOMToPricing
UNDEFINED X szUOMToWeight
UNDEFINED X szUOMToVolume
UNDEFINED X szUOMToShipping
UNDEFINED X szStandardUOMConversion
RV Variable 000021 <- mnQuantityConvertedFromtoTo
0003 If BC 2nd Item Number (F4211) is equal to "8,9"
And BC Date - Requested (F4211) is equal to "12/26/2003-1/25/2004"
0004 RV Variable 000019 = RV Variable 000021
0005 Else
0006 RV Variable 000019 = "00.00"
0007 End If
0008 If BC 2nd Item Number (F4211) is not equal to <Blank>
And BC Date - Requested (F4211) is equal to "12/26/2003-1/25/2004"
0009 RV Variable 000020 = BC Amount - Extended Price (F4211)
0010 Else
0011 RV Variable 000020 = "00.00"
0012 End If
0013 If BC 2nd Item Number (F4211) is equal to "8,9"
And BC Date - Requested (F4211) is equal to "1/26/2004-2/25/2004"
0014 RV Variable 000026 = RV Variable 000021
0015 Else
0016 RV Variable 000026 = "00.00"
0017 End If
0018 If BC 2nd Item Number (F4211) is not equal to <Blank>
And BC Date - Requested (F4211) is equal to "1/26/2004-2/25/2004"
0019 RV Variable 000027 = BC Amount - Extended Price (F4211)
0020 Else
0021 RV Variable 000027 = "00.00"
0022 End If
0023 If BC 2nd Item Number (F4211) is equal to "8,9"
And BC Date - For G/L (and Voucher) (F4211) is equal to "2/26/2004-3/25/2004"
0024 RV Variable 000031 = RV Variable 000021
0025 Else
0026 RV Variable 000031 = "00.00"
0027 End If
0028 If BC 2nd Item Number (F4211) is not equal to <Blank>
And BC Date - For G/L (and Voucher) (F4211) is equal to "2/26/2004-3/25/2004"
0029 RV Variable 000032 = BC Amount - Extended Price (F4211)
0030 Else
0031 RV Variable 000032 = "00.00"
0032 End If
0033 If BC 2nd Item Number (F4211) is equal to "8,9"
And BC Date - For G/L (and Voucher) (F4211) is equal to "3/26/2004-4/25/2004"
0034 RV Variable 000033 = RV Variable 000021
0035 Else
0036 RV Variable 000033 = "00.00"
0037 End If
0038 If BC 2nd Item Number (F4211) is not equal to <Blank>
And BC Date - For G/L (and Voucher) (F4211) is equal to "3/26/2004-4/25/2004"
0039 RV Variable 000034 = BC Amount - Extended Price (F4211)
0040 Else
0041 RV Variable 000034 = "00.00"
0042 End If
0043 If BC 2nd Item Number (F4211) is equal to "8,9"
And BC Date - For G/L (and Voucher) (F4211) is equal to "4/26/2004-5/25/2004"
0044 RV Variable 000035 = RV Variable 000021
0045 Else
0046 RV Variable 000035 = "00.00"
0047 End If
0048 If BC 2nd Item Number (F4211) is not equal to <Blank>
And BC Date - For G/L (and Voucher) (F4211) is equal to "4/26/2004-5/25/2004"
0049 RV Variable 000036 = BC Amount - Extended Price (F4211)
0050 Else
0051 RV Variable 000036 = "00.00"
0052 End If
0053 If BC 2nd Item Number (F4211) is equal to "8,9"
And BC Date - For G/L (and Voucher) (F4211) is equal to "5/26/2004-6/25/2004"
0054 RV Variable 000038 = RV Variable 000021
0055 Else
0056 RV Variable 000038 = "00.00"
0057 End If
0058 If BC 2nd Item Number (F4211) is not equal to <Blank>
And BC Date - For G/L (and Voucher) (F4211) is equal to "5/26/2004-6/25/2004"
0059 RV Variable 000037 = BC Amount - Extended Price (F4211)
0060 Else
0061 RV Variable 000037 = "00.00"
0062 End If
0063 RV Variable 000011 = BC Address Number - Ship To (F4211)
0064 RV Variable 000013 = BC City (F0116)
0065 RV Variable 000014 = BC Address Line 1 (F0116)
0066 RV Variable 000012 = PV Variable 000012
0067 RV STA = BC State (F0116)
0068 ! RV Variable 000029 = [RV Total of Variable 000020]+[RV Total of Variable 000027]+[RV Total of Variable 000032]+[RV Total of Variable 000034]+[RV Total of Variable 000036]+[RV Total of Variable 000037]
0069 ! F0101.Update
! BC Address Number = TK Address Number
! RV Variable 000029 -> TK User Reserved Amount
Tuesday June 29, 2004 08:34
Listing of ER for Report: TREND ANALYSIS -GRR-OLDOVER & KRR (R55TRND)
=======================================================================
SECTION: On Ship To [GROUP SECTION] V (S6)
=======================================================================
OBJECT: SECTION
EVENT: Do Section
-----------------------------------------------------------------------
0001 RV Variable 000029 = [RV Total of Variable 000020]+[RV Total of Variable 000027]+[RV Total of Variable 000032]+[RV Total of Variable 000034]+[RV Total of Variable 000036]+[RV Total of Variable 000037]
0002 F0101.Update
BC Address Number = TK Address Number
RV Variable 000029 -> TK User Reserved Amount
0003 ! RV Variable 000029 = [RV Total of Variable 000020]+[RV Total of Variable 000027]+[RV Total of Variable 000032]+[RV Total of Variable 000034]+[RV Total of Variable 000036]+[RV Total of Variable 000037]
0004 ! F0101.Update
! BC Address Number = TK Address Number
! RV Variable 000029 -> TK User Reserved Amount
Tuesday June 29, 2004 08:33
Listing of ER for Report: TREND ANALYSIS -GRR-OLDOVER & KRR (R55TRND)
=======================================================================
SECTION: SALES TAX BY STATE,etc [GROUP SECTION] V (S3)
=======================================================================
OBJECT: SECTION
EVENT: Before Level Break
-----------------------------------------------------------------------
0001 Get Alpha Name From Address Book
BC Address Number -> mnAddressNumber
RV Variable 000007 <- szNameAlpha
Tuesday June 29, 2004 08:33
Listing of ER for Report: TREND ANALYSIS -GRR-OLDOVER & KRR (R55TRND)
=======================================================================
SECTION: SALES TAX BY STATE,etc [GROUP SECTION] V (S3)
=======================================================================
OBJECT: SECTION
EVENT: Do Section
-----------------------------------------------------------------------
0001 Get Alpha Name From Address Book
BC Address Number - Ship To -> mnAddressNumber
RV Variable 000006 <- szNameAlpha
0002 F41002 Get Item UoM Conversion
BC Business Unit -> szBranchPlant
BC Unit of Measure as Input -> szFromUnitOfMeasure
"GA" -> szToUnitOfMeasure
BC Quantity Shipped -> mnQuantityToConvert
UNDEFINED X cInventoryInterfaceFlag
UNDEFINED X mnConversionFactorFromToPrim
UNDEFINED X mnConversionFactorFrom_to_To
UNDEFINED X mnConversionFactorTo_to_Primar
UNDEFINED X mnQuantityConvertedToPrimary
UNDEFINED X cConvertToSecondary
UNDEFINED X mnQuantityConvertedToSecondary
UNDEFINED X cConvertToPurchasing
UNDEFINED X mnQuantityConvertedToPurchasin
UNDEFINED X cConvertToPricing
UNDEFINED X mnQuantityConvertedToPricing
UNDEFINED X cConvertToShipping
UNDEFINED X mnQuantityConvertedToShipping
UNDEFINED X cConvertToWeight
UNDEFINED X mnQuantityConvertedToWeight
UNDEFINED X cConvertToVolume
UNDEFINED X mnQuantityConvertedToVolume
UNDEFINED X cPotencyMode
UNDEFINED X szLotNumber
UNDEFINED X cPotencyControl
UNDEFINED X mnStandardPotency
UNDEFINED X szErrorMessageID
UNDEFINED X cSuppressErrorMsg
UNDEFINED X cPotencyType
BC Item Number - Short -> mnShortItemNumber
UNDEFINED X cUOMByBranch
UNDEFINED X szUOMToPrimary
UNDEFINED X szUOMToSecondary
UNDEFINED X szUOMToPurchasing
UNDEFINED X szUOMToPricing
UNDEFINED X szUOMToWeight
UNDEFINED X szUOMToVolume
UNDEFINED X szUOMToShipping
UNDEFINED X szStandardUOMConversion
RV Variable 000021 <- mnQuantityConvertedFromtoTo
0003 If BC 2nd Item Number (F4211) is equal to "8,9"
And BC Date - Requested (F4211) is equal to "12/26/2003-1/25/2004"
0004 RV Variable 000019 = RV Variable 000021
0005 Else
0006 RV Variable 000019 = "00.00"
0007 End If
0008 If BC 2nd Item Number (F4211) is not equal to <Blank>
And BC Date - Requested (F4211) is equal to "12/26/2003-1/25/2004"
0009 RV Variable 000020 = BC Amount - Extended Price (F4211)
0010 Else
0011 RV Variable 000020 = "00.00"
0012 End If
0013 If BC 2nd Item Number (F4211) is equal to "8,9"
And BC Date - Requested (F4211) is equal to "1/26/2004-2/25/2004"
0014 RV Variable 000026 = RV Variable 000021
0015 Else
0016 RV Variable 000026 = "00.00"
0017 End If
0018 If BC 2nd Item Number (F4211) is not equal to <Blank>
And BC Date - Requested (F4211) is equal to "1/26/2004-2/25/2004"
0019 RV Variable 000027 = BC Amount - Extended Price (F4211)
0020 Else
0021 RV Variable 000027 = "00.00"
0022 End If
0023 If BC 2nd Item Number (F4211) is equal to "8,9"
And BC Date - For G/L (and Voucher) (F4211) is equal to "2/26/2004-3/25/2004"
0024 RV Variable 000031 = RV Variable 000021
0025 Else
0026 RV Variable 000031 = "00.00"
0027 End If
0028 If BC 2nd Item Number (F4211) is not equal to <Blank>
And BC Date - For G/L (and Voucher) (F4211) is equal to "2/26/2004-3/25/2004"
0029 RV Variable 000032 = BC Amount - Extended Price (F4211)
0030 Else
0031 RV Variable 000032 = "00.00"
0032 End If
0033 If BC 2nd Item Number (F4211) is equal to "8,9"
And BC Date - For G/L (and Voucher) (F4211) is equal to "3/26/2004-4/25/2004"
0034 RV Variable 000033 = RV Variable 000021
0035 Else
0036 RV Variable 000033 = "00.00"
0037 End If
0038 If BC 2nd Item Number (F4211) is not equal to <Blank>
And BC Date - For G/L (and Voucher) (F4211) is equal to "3/26/2004-4/25/2004"
0039 RV Variable 000034 = BC Amount - Extended Price (F4211)
0040 Else
0041 RV Variable 000034 = "00.00"
0042 End If
0043 If BC 2nd Item Number (F4211) is equal to "8,9"
And BC Date - For G/L (and Voucher) (F4211) is equal to "4/26/2004-5/25/2004"
0044 RV Variable 000035 = RV Variable 000021
0045 Else
0046 RV Variable 000035 = "00.00"
0047 End If
0048 If BC 2nd Item Number (F4211) is not equal to <Blank>
And BC Date - For G/L (and Voucher) (F4211) is equal to "4/26/2004-5/25/2004"
0049 RV Variable 000036 = BC Amount - Extended Price (F4211)
0050 Else
0051 RV Variable 000036 = "00.00"
0052 End If
0053 If BC 2nd Item Number (F4211) is equal to "8,9"
And BC Date - For G/L (and Voucher) (F4211) is equal to "5/26/2004-6/25/2004"
0054 RV Variable 000038 = RV Variable 000021
0055 Else
0056 RV Variable 000038 = "00.00"
0057 End If
0058 If BC 2nd Item Number (F4211) is not equal to <Blank>
And BC Date - For G/L (and Voucher) (F4211) is equal to "5/26/2004-6/25/2004"
0059 RV Variable 000037 = BC Amount - Extended Price (F4211)
0060 Else
0061 RV Variable 000037 = "00.00"
0062 End If
0063 RV Variable 000011 = BC Address Number - Ship To (F4211)
0064 RV Variable 000013 = BC City (F0116)
0065 RV Variable 000014 = BC Address Line 1 (F0116)
0066 RV Variable 000012 = PV Variable 000012
0067 RV STA = BC State (F0116)
0068 ! RV Variable 000029 = [RV Total of Variable 000020]+[RV Total of Variable 000027]+[RV Total of Variable 000032]+[RV Total of Variable 000034]+[RV Total of Variable 000036]+[RV Total of Variable 000037]
0069 ! F0101.Update
! BC Address Number = TK Address Number
! RV Variable 000029 -> TK User Reserved Amount
Tuesday June 29, 2004 08:34
Listing of ER for Report: TREND ANALYSIS -GRR-OLDOVER & KRR (R55TRND)
=======================================================================
SECTION: On Ship To [GROUP SECTION] V (S6)
=======================================================================
OBJECT: SECTION
EVENT: Do Section
-----------------------------------------------------------------------
0001 RV Variable 000029 = [RV Total of Variable 000020]+[RV Total of Variable 000027]+[RV Total of Variable 000032]+[RV Total of Variable 000034]+[RV Total of Variable 000036]+[RV Total of Variable 000037]
0002 F0101.Update
BC Address Number = TK Address Number
RV Variable 000029 -> TK User Reserved Amount
0003 ! RV Variable 000029 = [RV Total of Variable 000020]+[RV Total of Variable 000027]+[RV Total of Variable 000032]+[RV Total of Variable 000034]+[RV Total of Variable 000036]+[RV Total of Variable 000037]
0004 ! F0101.Update
! BC Address Number = TK Address Number
! RV Variable 000029 -> TK User Reserved Amount
Tuesday June 29, 2004 08:33