fix errTx do not updte sol transfer

parser.go

@@ -129,7 +129,7 @@ func (tx *Tx) Parser() error {
 			tx.Swaps = swaps
 		}
 		for i, instr := range tx.rawTx.Transaction.Message.Instructions {
-			if p, exists := actionPrograms[programAccount]; exists {
+			if p, exists := actionPrograms[accountList[instr.ProgramIDIndex]]; exists {
 				_, err := p(tx, instr, InnerInstructions{}, [2]uint{uint(i), uint(0)})
 				if err != nil {
 					if errors.Is(err, InstructionIgnoredError) {

system.go

@@ -34,6 +34,7 @@ func TransferParser(result *RawTx, instruction Instruction, offset [2]uint, tx *
 	from := result.accountList[result.Transaction.Message.Instructions[offset[0]].Accounts[0]]
 	to := result.accountList[instruction.Accounts[1]]
 
+	if result.Meta.Err == nil {
 		if offset[1] == 0 {
 			tx.SolTransfer = append(tx.SolTransfer, SolTransfer{
 				From:   from,
@@ -41,6 +42,7 @@ func TransferParser(result *RawTx, instruction Instruction, offset [2]uint, tx *
 				Amount: decimal.NewFromInt(int64(lamports)), // solana decimals
 			})
 		}
+	}
 	// load platform by to address
 	platform, ok := platformFeeAddresses[to]
 	if ok {