Hi Rick: We do have a bug for this screen and using TI. Here is a modified Control macro that is supposed to work. '$include: "bsl.dh" '08240 Control Macro Sub ProcessImportLine( LevelNumber%, Retval% ) select Case LevelNumber case TI_Start call AliasConstant( "Level0", "Options" ) call AliasConstant( "Level1", "Document" ) call AliasConstant( "Level2", "Transaction" ) case 0 ' 0 of 2 'Currently Disabled cChgNSFFee 'Currently Disabled cnewcustid01 ' Field mask is UUUUUUUUUU serr = SetObjectValue( "ccustid", ImportField(1) ) ' Field mask is UUUUUUUUUU serr = SetObjectValue( "crefnbr", ImportField(2) ) 'Level 0 if of Type C ' OptionSel(0) is an Option Button ' Value is R to select button with caption "Reverse Selected Application" ' OptionSel(1) is an Option Button ' Value is N to select button with caption "Reclassify Application to New Customer" ' OptionSel(2) is an Option Button ' Value is V to select button with caption "Void Selected Application (NSF Check)" serr = SetObjectValue( "OptionSel", ImportField(3) ) ' Field mask is UUUUUUUUUU 'serr = SetObjectValue( "cinvcnbr", ImportField(4) ) ' cbegper is a Period Field 'serr = SetObjectValue( "cbegper", ImportField(5) ) ' cendper is a Period Field 'serr = SetObjectValue( "cendper", ImportField(6) ) case 1 ' 1 of 2 'Level 1 if of Type D ' ccustid01 is a key field for level 1 ' Field mask is UUUUUUUUUU ' NOTE -- This field is a required field serr = SetObjectValue( "ccustid01", ImportField(1) ) ' Field mask is UUUUUUUUUUUUU serr = SetObjectValue( "crefnbr01", ImportField(2) ) 'Currently Disabled cdoctype01 'Currently Disabled cdocdate01 'Currently Disabled corigdocamt01 'Currently Disabled cCpnyid 'Currently Disabled cbankacct01 'Currently Disabled cbanksub01 'Currently Disabled ccustbal ' ccurrdocselected is an Check Box ' Values are 1 for ON and 0 for OFF ' Values are CHECKED for ON and UNCHECKED for OFF serr = SetObjectValue( "ccurrdocselected", ImportField(3) ) 'Currently Disabled crefnbrtran 'Currently Disabled cdoctype 'Currently Disabled ccustidtran 'Currently Disabled corigdocamt 'Currently Disabled cdocdate1 'Currently Disabled cbankacct 'Currently Disabled cbanksub 'Currently Disabled cbatnbr case 2 ' 2 of 2 'Level 2 if of Type D ' ccurrpayselected is an Check Box ' Values are 1 for ON and 0 for OFF ' Values are CHECKED for ON and UNCHECKED for OFF ' serr = SetObjectValue( "ccurrpayselected", ImportField(1) ) serr = SetObjectValue( "OptionSel", ImportField(1) ) ' Button object name cBegProcessing, Caption &Begin Processing (Elaine added this here) serr = SetObjectValue( "cBegProcessing", ImportField(2) ) 'Currently Disabled crefnbrtran01 'Currently Disabled cdoctypetran01 'Currently Disabled SAFDate1 'Currently Disabled capplamt01 'Currently Disabled cadjdiscamt01 'Currently Disabled cCuryRGOLamt01 'Currently Disabled cbatnbr01 case TI_Finish End Select End Sub ********************************** Along with this data. It looks like this is voiding the payment. "Options,change",c315,000001,V "Document,change",c315,000001,1 "Transaction,change",V,PRESS This bug has not been addressed at this time. Bug 5876/7279
↧