help in sending sms

i create i small tdl .in this it's shows sms sent but sms is not going





[#Form: Ledger Vouchers]

;;Add : On : At End : Form :Accept : Yes : CALL :Send SMS
;;Add : On : At End : Form Accept : Yes : CALL : Do U Want To Send SMS for Receipt
;;ButtonartyLedgerhotkey


;;[Collection: Send SMS Coll]

;;"http://www.businesssms.co.in/sms.aspx?ID=ekm.mcc@gmail.com&Pwd=mohan83836&PhNo=91"+$mobileno+"&Text= "+$Linemsg

;;Mobileno : $Ledgerphone:Ledger:#PartyLedgerselect
;;[System: Formula]
;;Action: Browse URL:"http://www.businesssms.co.in/sms.aspx?ID=ekm.mcc@gmail.com&Pwd=mohan83836&PhNo=91"+$mobileno+"&Text= THANKS"+$PartyClosingBalance


;Add : On : At End : Form Accept : Yes : CALL : Do U Want To Send SMS for Receipt

[Function : Do U Want To Send SMS for Receipt]

001 : Query Box : " Do you want to Send \n SMS " : Yes : No
002 : If : $$LastResult
003 : Browse :URL:"http://www.businesssms.co.in/sms.aspx?ID=ekm.mcc@gmail.com&Pwd=mohan83836&PhNo=91"+ @@Getmob +"&Text= Welcome"+"THANKS"
004 : MSGBox : "Status":"Messgae Sent \n Sucessful"
005 : Return
006 : END if

[Function:SendSMSFunctionForReceipt]
00 : Action: Browse Url :URL:"http://www.businesssms.co.in/sms.aspx?ID=ekm.mcc@gmail.com&Pwd=mohan83836&PhNo=919895937995&Text="THANKS""
10 : END WALK
[Collection: SendSMSFunctionForReceipt]

;;[System: Formula]
;;Action: Browse :URL:"http://www.businesssms.co.in/sms.aspx?ID=ekm.mcc@gmail.com&Pwd=mohan83836&PhNo=91"+$mobileno+"&Text= THANKS"








;;00 : WALK COLLECTION : Send SMS Coll
;;10 : END WALK
;;$ClosingBalance:Ledger:<Your Ledger Name>

;then press alt+ L

[#Menu: Gateway OF Tally]
Add: Toolbar Buttons: PartyLedgerhotkey

;;[#Form: Default]
Add: Buttons: PartyLedgerhotkey
Item : Report : AlterartyLedgerclosingbalance
;Add : On : At End : Form Accept : Yes : CALL : Do U Want To Send SMS for Receipt
[Button: PartyLedgerhotkey]
Key: ALT + z


Action: alter : PartyLedgerclosingbalance
;;Action: Browse URL:"http://www.businesssms.co.in/sms.aspx?ID=ekm.mcc@gmail.com&Pwd=mohan83836&PhNo=91"+$mobileno+"&Text= THANKS"+$PartyClosingBalance
Title: " PartyLedger Balance"

[Report: PartyLedgerclosingbalance]
Form: PartyLedgerclosingbalance
Title: "PartyLedger Balance"
;Collection:SendSMSFunctionForReceipt
VariableartyLedgerselect

[Form: PartyLedgerclosingbalance]
ON : Form Accept : Yes : CALL : Do U Want To Send SMS for Receipt

Part: PartyLedgerclosingbalance



[Part: PartyLedgerclosingbalance]
Line: PartyLedgerName, SMSText,PartyLedgerclosingbalance
[Line: PartyLedgerName]
FieldartyLedgerName ,PartyLedgerselect



[FieldartyLedgerName]
Use:Name field
Set as:"Party Name :"
Skip:Yes
[FieldartyClosingBalance]
Use:Name field
Set as:"Party Closing Balance :"
Skip:Yes
[Line:SMSText]
Field:SMSTitle,SMSText
[Field:smstitle]
Use:Name Field
Set as:"SMS Text :"
Skip:Yes
[Field:SMSText]
Use:Name field
Set as:"WE would Like to inform you that your closing Balance Is ...."
Width: 75 mms
Line:5
[Line: PartyLedgerclosingbalance]

Field: PartyClosingBalance,Short Name field
Local: Field: Short name field : Set as:$ClosingBalance:Ledger:#PartyLedgerselect;Set as : $ClosingBalance:Ledger:#LedgerName





[Field: PartyLedgerselect]
Use: short name field
Table: Ledger
;Show Table: Always
Modifies: PartyLedgerselect
;;=========================end code========================

[System : formula]
Getmob : $LedgerMobile:lEDGER:##PartyLedgerselect

[Variable : PartyLedgerselect]
Type : String
Persistent : Yes

[System : Formulae]
PartyLedgerselect : ""

 

please help me i am new in tdl.