[Report: journalkbMasterExcelImport_report] Form:journalkbMasterExcelImport_form Full Screen : Yes [Form:journalkbMasterExcelImport_form] Part:journalkbMasterExcelImport_part Height:30% page Width :50% page On:Form Accept:Yes:Call:journalkbMasterExcelImport_function ;On:Form Accept:Yes:Call:journalotMasterExcelImport_function [Part:journalkb MasterExcelImport_part] Line : journalkbMasterExcelImport_TittleLine,journalkbMasterExcelImport_PathLine,journalkbMasterExcelImport_SheetLine [Line:journalkbMasterExcelImport_TittleLine] Field :journalkbMasterExcelImport_TittleLineField Space Bottom : 2 Space Top : 1 [Field:journalkbMasterExcelImport_TittleLineField] Space Left : 30 Align : Centre Case : Title Case Style : Large Bold Border : Thin Bottom Skip : Yes Fixed : Yes Set as : "journal Excel Import Report" [Line:journalkbMasterExcelImport_PathLine] Field : journalkbMasterExcelImport_PathLocationNameField,journalkbMasterExcelImport_PathName Space Top : 1 Space Bottom : 1 [Field:journalkbMasterExcelImport_PathLocationNameField] Use : Long Prompt Set as : "Path Name" Space Left : 2 [Field:journalkbMasterExcelImport_PathName] Use : Name Field Width : 30% Page Set as : ##journalkbMasterExcelImport_PathName Modifies : journalkbMasterExcelImport_PathName :Yes Validate : $$StringWordEx:$$Value:".":Last In ("xls","xlsx") Max : @@MaxNarrWidth [Line:journalkbMasterExcelImport_SheetLine] Field : journalkbMasterExcelImport_SheetNameField,journalkbMasterExcelImport_SheetName Space Bottom : 1 [Field:journalkbMasterExcelImport_SheetNameField] Use : Long Prompt Set as : "Sheet Name" Space Left : 2 [Field:journalkbMasterExcelImport_SheetName] Use : namefield Width : 30% Page Set as : ##journalkbMasterExcelImport_SheetName Modifies : journalkbMasterExcelImport_SheetName : Yes [Variable:journalkbMasterExcelImport_PathName] Type : String Default : "" Persistent : Yes [Variable:journalkbMasterExcelImport_SheetName] Type : String Default : "" Persistent : Yes [System:variable] journalkbMasterExcelImport_PathName : "" journalkbMasterExcelImport_SheetName : "" [Variable:journalkbMasterExcelImport_Var] Variable : Si_no : String Variable : costcenter : String Variable : voucherdate : String Variable : Dr : String Variable : Dr_new : String Variable : Cr : String Variable : Cr_new : String Variable : legervalue : String Variable : narration : String [Function : journalkbMasterExcelImport_function] Variable : Si_no_F : String Variable : costcenter_F : String Variable : voucherdate_F : String Variable : Dr_F : String Variable : Dr_new_F : String Variable : Cr_F : String Variable : Cr_new_F : String Variable : legervalue_F : String Variable : narration_F : String Variable : RowCount : Number : 2 Variable : RowCounter : Number Variable : TotalRowCounter : Number Variable : journalkbMasterExcelImport_Stored_File : String Variable : journalkbMasterPathName : String Variable : journalkbMasterExcelImport_PathName : String List Variable : journalkbMasterExcelImport_Var ;100:Msg Box:aaa:bbb ;100:Msg Box:##si_no_F : ##legervalue_F 200 : Set : journalkbMasterPathName : #journalkbMasterExcelImport_PathName 210 : Set Log On 220 : OPEN FILE : ##journalkbMasterPathName : Excel : READ 230 : Set : RowCount : 2 240 : Set Active Sheet : #journalkbMasterExcelImport_SheetName 250 : WHILE: NOT $$IsEmpty$$FileReadCell:##Rowcount:1) 260 : LIST ADD EX : journalkbMasterExcelImport_Var 280 : Set : journalkbMasterExcelImport_Var[$$LOOPINDEX]. Si_no $$FileReadCell:##RowCount:1) 290 : Set : journalkbMasterExcelImport_Var[$$LOOPINDEX]. costcenter $$FileReadCell:##RowCount:2) 300 : Set : journalkbMasterExcelImport_Var[$$LOOPINDEX]. voucherdate $$FileReadCell:##RowCount:3) 301 : Set : journalkbMasterExcelImport_Var[$$LOOPINDEX]. Dr $$FileReadCell:##RowCount:4) 302 : Set : journalkbMasterExcelImport_Var[$$LOOPINDEX]. Dr_new $$FileReadCell:##RowCount:5) 304 : Set : journalkbMasterExcelImport_Var[$$LOOPINDEX]. Cr $$FileReadCell:##RowCount:6) 305 : Set : journalkbMasterExcelImport_Var[$$LOOPINDEX]. Cr_new $$FileReadCell:##RowCount:7) 306 : Set : journalkbMasterExcelImport_Var[$$LOOPINDEX]. legervalue $$FileReadCell:##RowCount:8) 307 : Set : journalkbMasterExcelImport_Var[$$LOOPINDEX]. narration $$FileReadCell:##RowCount:9) 400 : Increment : RowCount 410 : End While 420 : Close File 430 : Set File Log Off 450 : Set : RowCounter : 1 460 : Set : TotalRowCounter : $$NumItems:journalkbMasterExcelImport_SubCollection 470 : Set : journalkbMasterExcelImport_Stored_File : $$LocaleString:"journalkbMasterxlimport.xml" 475 : Delete File :##journalkbMasterExcelImport_Stored_File 490 : Set File Log On 500 : OPEN FILE : ##journalkbMasterExcelImport_Stored_File : Text : Write 510 : Write File Line : "<ENVELOPE>" 520 : Write File Line : "<HEADER>" 530 : Write File Line : "<TALLYREQUEST>Import Data</TALLYREQUEST>" 540 : Write File Line : "</HEADER>" 550 : Write File Line : " <BODY>" 560 : Write File Line : "<IMPORTDATA>" 570 : Write File Line : "<REQUESTDESC>" 580 : Write File Line : "<REPORTNAME>Vouchers</REPORTNAME>" 590 : Write File Line : "<STATICVARIABLES>" 600 : Write File Line : "<SVCURRENTCOMPANY>"+##SvCurrentCompany+"</SVCURRENTCOMPANY>" 610 : Write File Line : "</STATICVARIABLES>" 620 : Write File Line : "</REQUESTDESC>" 630 : Write File Line : "<REQUESTDATA>" ;631:Msg Box:aaa:bbb 635 : Walk Collection :journalkbMasterExcelImport_SubCollection ;636:Msg Box:ccc:ddd 700 : Set : Si_no_F : $$String:$Si_no_1 702 : Set : costcenter_F : $$String:$costcenter_1 704 : Set : voucherdate_F : $$String:$voucherdate_1 706 : Set : Dr_F : $$String:$Dr_1 707 : Set : Dr_new_F : $$String:$Dr_new_1 708 : Set : Cr_F : $$String:$Cr_1 710 : Set : Cr_new_F : $$String:$Cr_new_1 712 : Set : legervalue_F : $$String:$legervalue_1 714 : Set : narration_F : $$String:$narration_1 ;1200:Msg Box:date:##voucherdate_F 1300:Write File Line :" <TALLYMESSAGE xmlns:UDF='TallyUDF'>" ;1300a:Msg Box:"info" :"error" ; 1310:Write File Line :" <VOUCHER VCHTYPE='Journal' ACTION='Create' OBJVIEW='Accounting Voucher View'>" Variables:VoucherNoVar,VoucherTypVar:String Variables:VoucherNoVar11:Number 1301:Set:VoucherNoVar11$$CollectionFieldByKey:$VoucherNumber$$String:##Si_no_F+$$String:"Journal"):CheckVoucherAvailabilities) ;1302:Msg Box:##Si_no_F+"Journal":##VoucherNoVar11 1303 : if:##VoucherNoVar11!=##Si_no_F ;1305:if:##VoucherNoVar11:##Si_no_F ;1304 : Write File Line:"<VOUCHER DATE='"+$$LocaleString:##voucherdate_F+"' TAGNAME='MASTERID' TAGVALUE='"+$$LocaleString:##VoucherNoVar11+"' TAGNAME='Voucher Number' TAGVALUE='"+$$LocaleString:##Si_no_F+"' VCHTYPE='Journal' ACTION='Alter' OBJVIEW='Accounting Voucher View'>" ;1305 : Else 1306: Write File Line:"<VOUCHER VCHTYPE='Journal' ACTION='Create' OBJVIEW='Accounting Voucher View'>" ;1307:Msg Box:"Info2":##VoucherNoVar11 ;1308: End If ;1309:Msg Box:BB:##voucherdate_F 1320:Write File Line :" <OLDAUDITENTRYIDS.LIST TYPE='Number'> " 1330:Write File Line :" <OLDAUDITENTRYIDS>-1</OLDAUDITENTRYIDS> " 1340:Write File Line :" </OLDAUDITENTRYIDS.LIST> " 1350:Write File Line :" <DATE>"+##voucherdate_F +"</DATE> " ;1360:Write File Line :" <GUID>e852c491-e9a8-48a2-b9bc-4663f5eb359f-00000001</GUID> " 1370:Write File Line :" <NARRATION>"+##narration_F+"</NARRATION> " 1380:Write File Line :" <PARTYLEDGERNAME>"+$$StringFindAndReplace:##Dr_F:" ":""+"</PARTYLEDGERNAME> " 1390:Write File Line :" <VOUCHERTYPENAME>Journal</VOUCHERTYPENAME> " ;1390a: If 1400:Write File Line :" <VOUCHERNUMBER>"+##Si_no_F +"</VOUCHERNUMBER> " 1410:Write File Line :" <CSTFORMISSUETYPE/> " 1420:Write File Line :" <CSTFORMRECVTYPE/> " 1430:Write File Line :" <FBTPAYMENTTYPE>Default</FBTPAYMENTTYPE> " 1440:Write File Line :" <PERSISTEDVIEW>Accounting Voucher View</PERSISTEDVIEW> " 1450:Write File Line :" <VCHGSTCLASS/> " 1460:Write File Line :" <COSTCENTRENAME>"+##costcenter_F +"</COSTCENTRENAME> " 1470:Write File Line :" <DIFFACTUALQTY>No</DIFFACTUALQTY> " 1480:Write File Line :" <ISMSTFROMSYNC>No</ISMSTFROMSYNC> " 1490:Write File Line :" <ASORIGINAL>No</ASORIGINAL> " 1500:Write File Line :" <AUDITED>No</AUDITED> " 1510:Write File Line :" <FORJOBCOSTING>No</FORJOBCOSTING> " 1520:Write File Line :" <ISOPTIONAL>No</ISOPTIONAL> " 1530:Write File Line :" <EFFECTIVEDATE>"+##voucherdate_F +"</EFFECTIVEDATE> " 1540:Write File Line :" <USEFOREXCISE>No</USEFOREXCISE> " 1550:Write File Line :" <ISFORJOBWORKIN>No</ISFORJOBWORKIN> " 1560:Write File Line :" <ALLOWCONSUMPTION>No</ALLOWCONSUMPTION> " 1570:Write File Line :" <USEFORINTEREST>No</USEFORINTEREST> " 1580:Write File Line :" <USEFORGAINLOSS>No</USEFORGAINLOSS> " 1590:Write File Line :" <USEFORGODOWNTRANSFER>No</USEFORGODOWNTRANSFER> " 1600:Write File Line :" <USEFORCOMPOUND>No</USEFORCOMPOUND> " 1610:Write File Line :" <USEFORSERVICETAX>No</USEFORSERVICETAX> " 1620:Write File Line :" <ISDELETED>No</ISDELETED> " 1630:Write File Line :" <ISONHOLD>No</ISONHOLD> " 1640:Write File Line :" <ISBOENOTAPPLICABLE>No</ISBOENOTAPPLICABLE> " 1650:Write File Line :" <ISEXCISEVOUCHER>No</ISEXCISEVOUCHER> " 1660:Write File Line :" <EXCISETAXOVERRIDE>No</EXCISETAXOVERRIDE> " 1670:Write File Line :" <USEFORTAXUNITTRANSFER>No</USEFORTAXUNITTRANSFER> " 1680:Write File Line :" <IGNOREPOSVALIDATION>No</IGNOREPOSVALIDATION> " 1690:Write File Line :" <EXCISEOPENING>No</EXCISEOPENING> " 1700:Write File Line :" <USEFORFINALPRODUCTION>No</USEFORFINALPRODUCTION> " 1710:Write File Line :" <ISTDSOVERRIDDEN>No</ISTDSOVERRIDDEN> " 1720:Write File Line :" <ISTCSOVERRIDDEN>No</ISTCSOVERRIDDEN> " 1730:Write File Line :" <ISTDSTCSCASHVCH>No</ISTDSTCSCASHVCH> " 1740:Write File Line :" <INCLUDEADVPYMTVCH>No</INCLUDEADVPYMTVCH> " 1750:Write File Line :" <ISSUBWORKSCONTRACT>No</ISSUBWORKSCONTRACT> " 1760:Write File Line :" <ISVATOVERRIDDEN>No</ISVATOVERRIDDEN> " 1770:Write File Line :" <IGNOREORIGVCHDATE>No</IGNOREORIGVCHDATE> " 1780:Write File Line :" <ISVATPAIDATCUSTOMS>No</ISVATPAIDATCUSTOMS> " 1790:Write File Line :" <ISDECLAREDTOCUSTOMS>No</ISDECLAREDTOCUSTOMS> " 1800:Write File Line :" <ISSERVICETAXOVERRIDDEN>No</ISSERVICETAXOVERRIDDEN> " 1810:Write File Line :" <ISISDVOUCHER>No</ISISDVOUCHER> " 1820:Write File Line :" <ISEXCISEOVERRIDDEN>No</ISEXCISEOVERRIDDEN> " 1830:Write File Line :" <ISEXCISESUPPLYVCH>No</ISEXCISESUPPLYVCH> " 1840:Write File Line :" <ISGSTOVERRIDDEN>No</ISGSTOVERRIDDEN> " 1850:Write File Line :" <GSTNOTEXPORTED>No</GSTNOTEXPORTED> " 1860:Write File Line :" <IGNOREGSTINVALIDATION>No</IGNOREGSTINVALIDATION> " 1870:Write File Line :" <ISGSTREFUND>No</ISGSTREFUND> " 1880:Write File Line :" <ISGSTSECSEVENAPPLICABLE>No</ISGSTSECSEVENAPPLICABLE> " 1890:Write File Line :" <ISVATPRINCIPALACCOUNT>No</ISVATPRINCIPALACCOUNT> " 1900:Write File Line :" <ISSHIPPINGWITHINSTATE>No</ISSHIPPINGWITHINSTATE> " 1910:Write File Line :" <ISOVERSEASTOURISTTRANS>No</ISOVERSEASTOURISTTRANS> " 1920:Write File Line :" <ISDESIGNATEDZONEPARTY>No</ISDESIGNATEDZONEPARTY> " 1930:Write File Line :" <ISCANCELLED>No</ISCANCELLED> " 1940:Write File Line :" <HASCASHFLOW>No</HASCASHFLOW> " 1950:Write File Line :" <ISPOSTDATED>No</ISPOSTDATED> " 1960:Write File Line :" <USETRACKINGNUMBER>No</USETRACKINGNUMBER> " 1970:Write File Line :" <ISINVOICE>No</ISINVOICE> " 1980:Write File Line :" <MFGJOURNAL>No</MFGJOURNAL> " 1990:Write File Line :" <HASDISCOUNTS>No</HASDISCOUNTS> " 2000:Write File Line :" <ASPAYSLIP>No</ASPAYSLIP> " 2010:Write File Line :" <ISCOSTCENTRE>Yes</ISCOSTCENTRE> " 2020:Write File Line :" <ISSTXNONREALIZEDVCH>No</ISSTXNONREALIZEDVCH> " 2030:Write File Line :" <ISEXCISEMANUFACTURERON>No</ISEXCISEMANUFACTURERON> " 2040:Write File Line :" <ISBLANKCHEQUE>No</ISBLANKCHEQUE> " 2050:Write File Line :" <ISVOID>No</ISVOID> " 2060:Write File Line :" <ORDERLINESTATUS>No</ORDERLINESTATUS> " 2070:Write File Line :" <VATISAGNSTCANCSALES>No</VATISAGNSTCANCSALES> " 2080:Write File Line :" <VATISPURCEXEMPTED>No</VATISPURCEXEMPTED> " 2090:Write File Line :" <ISVATRESTAXINVOICE>No</ISVATRESTAXINVOICE> " 2100:Write File Line :" <VATISASSESABLECALCVCH>No</VATISASSESABLECALCVCH> " 2110:Write File Line :" <ISVATDUTYPAID>Yes</ISVATDUTYPAID> " 2120:Write File Line :" <ISDELIVERYSAMEASCONSIGNEE>No</ISDELIVERYSAMEASCONSIGNEE> " 2130:Write File Line :" <ISDISPATCHSAMEASCONSIGNOR>No</ISDISPATCHSAMEASCONSIGNOR> " 2140:Write File Line :" <CHANGEVCHMODE>No</CHANGEVCHMODE> " 2150:Write File Line :" <ALTERID> 1</ALTERID> " 2160:Write File Line :" <MASTERID> 1</MASTERID> " 2170:Write File Line :" <VOUCHERKEY>190206921670664</VOUCHERKEY> " 2180:Write File Line :" <ALLLEDGERENTRIES.LIST> " 2190:Write File Line :" <OLDAUDITENTRYIDS.LIST TYPE='Number'> " 2200:Write File Line :" <OLDAUDITENTRYIDS>-1</OLDAUDITENTRYIDS> " 2210:Write File Line :" </OLDAUDITENTRYIDS.LIST> " 2220:Write File Line :" <NARRATION> </NARRATION> " 2230:Write File Line :" <LEDGERNAME>"+$$StringFindAndReplace:##Dr_F:" ":""+"</LEDGERNAME> " 2240:Write File Line :" <GSTCLASS/> " 2250:Write File Line :" <ISDEEMEDPOSITIVE>Yes</ISDEEMEDPOSITIVE> " 2260:Write File Line :" <LEDGERFROMITEM>No</LEDGERFROMITEM> " 2270:Write File Line :" <REMOVEZEROENTRIES>No</REMOVEZEROENTRIES> " 2280:Write File Line :" <ISPARTYLEDGER>Yes</ISPARTYLEDGER> " 2290:Write File Line :" <ISLASTDEEMEDPOSITIVE>Yes</ISLASTDEEMEDPOSITIVE> " 2300:Write File Line :" <ISCAPVATTAXALTERED>No</ISCAPVATTAXALTERED> " 2310:Write File Line :" <ISCAPVATNOTCLAIMED>No</ISCAPVATNOTCLAIMED> " 2320:Write File Line :" <AMOUNT>-"+##legervalue_F+"</AMOUNT> " 2330:Write File Line :" <VATEXPAMOUNT>-"+##legervalue_F+"</VATEXPAMOUNT> " 2340:Write File Line :" <SERVICETAXDETAILS.LIST> </SERVICETAXDETAILS.LIST> " 2350:Write File Line :" <BANKALLOCATIONS.LIST> </BANKALLOCATIONS.LIST> " 2360:Write File Line :" <BILLALLOCATIONS.LIST> " 2370:Write File Line :" <NAME>"+$$StringFindAndReplace:##CR_F:" ":""+"</NAME> " 2380:Write File Line :" <BILLTYPE>New Ref</BILLTYPE> " 2390:Write File Line :" <TDSDEDUCTEEISSPECIALRATE>No</TDSDEDUCTEEISSPECIALRATE> " 2400:Write File Line :" <AMOUNT>-"+##legervalue_F+"</AMOUNT> " 2410:Write File Line :" <INTERESTCOLLECTION.LIST> </INTERESTCOLLECTION.LIST> " 2420:Write File Line :" <STBILLCATEGORIES.LIST> </STBILLCATEGORIES.LIST> " 2430:Write File Line :" </BILLALLOCATIONS.LIST> " 2440:Write File Line :" </ALLLEDGERENTRIES.LIST> " 2450:Write File Line :" <ALLLEDGERENTRIES.LIST> " 2460:Write File Line :" <OLDAUDITENTRYIDS.LIST TYPE='Number'> " 2470:Write File Line :" <OLDAUDITENTRYIDS>-1</OLDAUDITENTRYIDS> " 2480:Write File Line :" </OLDAUDITENTRYIDS.LIST> " 2490:Write File Line :" <NARRATION>"+##narration_F+"</NARRATION> " 2500:Write File Line :" <LEDGERNAME>"+$$StringFindAndReplace:##CR_F:" ":""+"</LEDGERNAME> " 2510:Write File Line :" <GSTCLASS/> " 2520:Write File Line :" <ISDEEMEDPOSITIVE>No</ISDEEMEDPOSITIVE> " 2530:Write File Line :" <LEDGERFROMITEM>No</LEDGERFROMITEM> " 2540:Write File Line :" <REMOVEZEROENTRIES>No</REMOVEZEROENTRIES> " 2550:Write File Line :" <ISPARTYLEDGER>Yes</ISPARTYLEDGER> " 2560:Write File Line :" <ISLASTDEEMEDPOSITIVE>No</ISLASTDEEMEDPOSITIVE> " 2570:Write File Line :" <ISCAPVATTAXALTERED>No</ISCAPVATTAXALTERED> " 2580:Write File Line :" <ISCAPVATNOTCLAIMED>No</ISCAPVATNOTCLAIMED> " 2590:Write File Line :" <AMOUNT>"+##legervalue_F+"</AMOUNT> " 2600:Write File Line :" <VATEXPAMOUNT>"+##legervalue_F+"</VATEXPAMOUNT> " 2610:Write File Line :" <BILLALLOCATIONS.LIST> " 2620:Write File Line :" <NAME>"+##Cr_new_F+"</NAME> " 2630:Write File Line :" <BILLTYPE>New Ref</BILLTYPE> " 2640:Write File Line :" <TDSDEDUCTEEISSPECIALRATE>No</TDSDEDUCTEEISSPECIALRATE> " 2650:Write File Line :" <AMOUNT>"+##legervalue_F+"</AMOUNT> " 2660:Write File Line :" </BILLALLOCATIONS.LIST> " 2670:Write File Line :" </ALLLEDGERENTRIES.LIST> " 2680:Write File Line :" </VOUCHER> " 2682:End If ;2685:Msg Box:CCC:##legervalue_F 2690:Write File Line :" </TALLYMESSAGE>" 2811 : Increment : RowCounter 2812 : End Walk 2812a:if:##VoucherNoVar11=##Si_no_F 2812b:Msg Box:"Yes":already exists 2812c:Else 2812d:Msg Box:"No":"does not exists" 2820 : Write File Line : " </REQUESTDATA> " 2830 : Write File Line : " </IMPORTDATA> " 2840 : Write File Line : " </BODY> " 2850 : Write File Line : "</ENVELOPE> " 6997 : Close Target File 6998 : Set File Log Off 7000 : Refresh Data 7010 : TriggerKey : Ctrl + A ; 7015 : Msg Box:AAA : ##legervalue_F 7020 : Set : SVIsManualImport : No 7030 : Set : ImportFile @journalkbMasterExcelImport_Stored_File1 7050 : Import : vouchers 7051 : Set : ImportVoucher:"Tally (XML) Format" 7940: If: $$LastResult = "yes" 7950: Msg Box: Success : Import Successfully 7960: Else 7970: Msg Box: Error : File Not Import 7980: End If [System:Formulae] journalkbMasterExcelImport_Stored_File1 : @@journalkbMasterExcelImport_Stock_Main1+"\"+##journalkbMasterExcelImport_Stored_File journalkbMasterExcelImport_Stock_Main1 : $$SysInfo:ApplicationPath [Collection:journalkbMasterExcelImport_MainCollection] Data Source : Variable : journalkbMasterExcelImport_Var [Collection:journalkbMasterExcelImport_SubCollection] Source Collection : journalkbMasterExcelImport_MainCollection Compute : Si_no_1 : $$String:$Si_no Compute : costcenter_1 : $$String:$costcenter Compute : voucherdate_1 : $$String:$voucherdate Compute : Dr_1 : $$String:$Dr Compute : Dr_new_1 : $$String:$Dr_new Compute : Cr_1 : $$String:$Cr Compute : Cr_new_1 : $$String:$Cr_new Compute : legervalue_1 : $$String:$legervalue Compute : narration_1 : $$String:$narration [Collection:CheckVoucherAvailabilities] Parm Var:SVFROMDATE : Date:"01-04-2021";@@DSPFROMDate Parm Var:SVTODATE : Date:"01-04-2022"; @@DSPToDate;"01-01-2050"; Type:Vouchers Native Method:VoucherNumber,VoucherTypeName,MasterID Aggr Method:LastVoucherNumber1 : Last : $VoucherNumber Search Key:$VoucherNumber+"Journal"