Problem on accepting form in create mode

in the following code, when i accept the form to create a narration, it says "Company Name contains no meaningful Characters"

Please let me know where i made a mistake in this code
Thanks


[#Menu: Accounts Info.]

;Add : Item: Before: Narrations : BLANK
Add: Key Item : Before : BLANK : Narrations : N : Create : rptNarrations



[Report: rptNarrations]
Belongs To: ##SVCURRENTCOMPANY
Title: Predefined Narrations List
Form : frmNarrations
Object: Company


[Form: frmNarrations]

Parts : Form Subtitle, prtNarrationsAdd, prtNarrations
Background : Light Sea Green

Local: Field: Form SubTitle: Style: Large Bold
Local: Field: Form SubTitle: Align: Center
Local: Field: Form SubTitle: Set as: "Predefiend Narrations"

Width: 80% Page
Height: 50% Page

[Part: prtNarrationsAdd]
Line: lenTitle,lenNarrationName, lenNarrationVchType
Local: Line: lenTitle : Selectable: No

[Line: lenTitle]
Field: fldTitle

[Field: fldTitle]
Set as: "Create Narration"
Skip: Yes
Style: Small Bold
Border: Thin Bottom

[Line: lenNarrationName]

Fields:Medium Prompt, fldNarrationName
Local : Field : Medium Prompt : Info : "Narration Name"


[Line: lenNarrationVchType ]
Field: Medium Prompt, fldNarVchType
Local: Field: Medium Prompt : Info:"For Voucher"

[Field: fldNarrationName]
Use: Narration Field
;Set as: $NarrationName
Storage: NarrationName


[Field: fldNarVchType]
Table:Voucher Type PSR, Not Applicable
Show Table: Always
Storage: NarrationVchType
Width: 40



[Part: prtNarrations]

Line : linNarration
Repeat : linNarration : Narrations
Scroll : Vertical
CommonBorder: Yes
BreakOn : $$IsEmpty:$NarrationName



[Line: linNarration]

Field : fldNarration, fldVchType
Local : Field : Default : Style : Small Bold


[Field: fldNarration]

Use : Narration Field
Set as: $NarrationName
;Storage : NarrationName
Width: 20 cm
Read Only: Yes
Skip: Yes

[Field: fldVchType]
Set as: $NarrationVchType
Width: 10 cm
Read Only: Yes
Skip: Yes

[System: UDF]

Narrations : Aggregate : 9000
NarrationName : String : 9001
NarrationVchType : String: 9002

[Collection: Narrations]

Type: Narrations : Company
Childof : ##SVCurrentCompany
Format: $NarrationName, 40
Format: $NarrationVchType, 30
Title: "Narrations"

 

Thanks,
Another problem is there

Both the fields which should be blank, are already containing last entered values.