Break code in alter mode

help me to stop this function in altermode

[#Form: Sales Color]
On : Form Accept : Yes : Call:SaveAsPDF
Add:Button:InvPDF
[Button : InvPDF]
Title : "Save As PDF"
Key : Alt + F
Action : call : SaveAsPDF
Inactive:NOT $$ISCMPOWNER
[Function : SaveAsPDF]
Variable : PrintFileName : String
Variable: Exportedfilepath :String
Local Formula:Wpinvoicenumber:$$StringFindAndReplace:$VoucherNumber:"/":"-"
Local Formula:Wpinvoicetype:$$StringFindAndReplace:$VoucherTypeName:"\":"-"
Local Formula:Wpinvoiceparty:$$StringFindAndReplace:$PartyLedgerName:"\":"-"
Local Formula:Wpinvoicedate:$$String:$MachineDate
Local Formula:Wpinvoicetime:$$String:$MachineTime
500 : SET : PrintFileName : "H:\PDFS\GK"+"\"+@Wpinvoicenumber+"_"+@Wpinvoiceparty+"_"+@Wpinvoicedate ;
700 : SET : SVExportFormat : $$SysNameDF
800 : SET : VCHPrintJurisdiction : If $$IsEmptyDSPJurisdictionValue Then ##SAJurisdiction Else @@DSPJurisdictionValue
940 : SET : SVPrinterName : "Adobe PDF"
941 : Set: SVBrowserWidth : 210
942 : Set: SVBrowserHeight : 297
1400 : SET : SVPrintFileName : $$MakeExportName:##PrintFileName:##SVExportFormat
1500 : SET : SVOpenFileAfterExport : No
1600 : SET :Exportedfilepath:$$GetFileFullPath:##SVPrintFileName
1700 : EXPORT REPORT :.: TRUE

[System:Formulae]
Msgtitle:"Default Title"
Billno : $$String:$Vouchernumber
Party : $$Stringwordex:$Partyledgername:" ":1'

 

400 : IF:$$CreateMode
1800: end if
add Line

 

Thanks sir working fine