Stored Procedure Problems

I have a SQL Script that works. However, when I make it a stored procedure it does nothing.

Here is the working script:

Declare @Balance money /* BALANCE ON CARD*/
Declare @Fee money /* FEE DEPENDS ON TYPE OF TRANSACTION*/
Declare @CustomerNumber int /* CUSTOMER NUMBER THAT CORRESPONDS WITH CARD*/
Declare @TransAmount MONEY /* THE AMOUNT OF THE TRANSACTION IF WITHDRAWAL*/

SELECT DISTINCT
@TransAmount=100,

@Balance=Card.CustomerBalance,
@CustomerNumber=Card.CustomerNumber
From dbo.Card Card
Where Card.CardNumber=1234 /*@CardNumber*/

Select
@Fee=SC.ATMWithdrawalFee
From dbo.ServiceCharge SC
Where SC.CustomerNumber=@CustomerNumber

If @Balance > @TransAmount + @Fee /*@transamount*/ /* MAKE SURE THAT THEY HAVE*/
/* ENOUGH MONEY INCLUDING FEE*/
Update Card
Set CustomerBalance=@Balance - @TransAmount - @Fee
Where Card.CardNumber=1234

-------------------------------------------------------------------

Here is what I have for a stored proc:
It does nothing but return Nulls. The one above updates 2 rows.
Any ideas?

Thanks
- Mike

CREATE PROCEDURE ap_Test
@CardNumber int,
@type int=Null,
@TransAmount money=Null
AS
BEGIN

Declare @Balance money /* BALANCE ON CARD*/
Declare @Fee money /* FEE DEPENDS ON TYPE OF TRANSACTION*/
Declare @CustomerNumber int /* CUSTOMER NUMBER THAT CORRESPONDS WITH CARD*/

Declare @TransType Int /* GET THE TRANSACTION TYPE*/
SELECT @CustomerNumber AS CustomerNumber,
@cardnumber as CardNumber,
@Balance as Balance
SELECT DISTINCT

@Balance=Card.CustomerBalance,
@CustomerNumber=Card.CustomerNumber,
@Fee=SC.ATMWithdrawalFee
From dbo.Card Card,
dbo.ServiceCharge SC
Where Card.CardNumber=@CardNumber
and SC.CustomerNumber=@CustomerNumber

If @Balance > @TransAmount + @Fee /* MAKE SURE THAT THEY HAVE*/
/* ENOUGH MONEY INCLUDING FEE*/
Update Card
Set CustomerBalance=@Balance - @TransAmount - @Fee
Where Card.CardNumber=@CardNumber
End