FUNCTION TO IMPORT FROM EXCEL

Discussion in 'Tally Developer' started by rajendra mithari, Mar 10, 2016.

    

  1. DEAR EXPERTS
    I HAVE IMPORTED VERIOUS VOUCHERS FROM EXCEL TO TALLY BUT AM FAILED IMPORT WITH INVENTORY. FOR EG NOW I AM TRYING TO IMPORT PURCHASE WITH INVENTORY WITH BATCH DETAILS. CAN ANYBODY TELL ME WHAT IS MISTAKE IN THIS FUNCTION?

    [Function: VImportwssale]

    Variable : Counter : Number : 2

    1000 : OPEN FILE : ##EXCLFilePath : Excel : Read
    1010 : WHILE : NOT $$IsEmpty:($$FileReadCell:##Counter:1)
    1011: Set file Log On
    1012: Log:$vouchernumber

    1070 : NEW OBJECT : Voucher ; ok from here
    1080 : SET VALUE : Date : $$Date:(($$StringPart:($$FileReadCell:##Counter:4):0:2 +"/"+ $$StringPart:($$FileReadCell:##Counter:4):2:2 + "/"+$$StringPart:($$FileReadCell:##Counter:4):4:4))
    1090 : SET VALUE : VoucherTypeName : #varvchtyp
    1091 : Set Value:VOUCHERNUMBER:$$FileReadCell:##Counter:5
    ; 1092 : SET : SVViewName : $$SysName:InvVchView
    1193 : SET VALUE : PartyLedgerName :$$String:mad:@partynm


    1110 : INSERT COLLECTION OBJECT : Ledger Entries
    1120 : SET VALUE : Ledger Name : $$String:mad:@partynm; ok to here #varcashgl
    1121 : SET VALUE : IsPartyLedger : Yes
    1130 : SET VALUE : Amount : $$AsAmount:$$FileReadCell:##Counter:7

    1150 : SET VALUE : IsDeemedPositive: No
    1150g: SET TARGET: ..

    1161 : INSERT COLLECTION OBJECT : Ledger Entries
    1162 : SET VALUE : Ledger Name : $$String:mad:@purgl
    1163 : SET VALUE : Amount : $$AsAmount:$$FileReadCell:##Counter:7
    1164 : SET VALUE : IsDeemedPositive: Yes
    1165 : Set Target:..

    375 : INSERT COLLECTION OBJECT: INVENTORYALLOCATIONS

    377 : SET VALUE: STOCKITEMNAME :$$FileReadCell:##Counter:24
    377A : Set Value: IsDeemedPositive: Yes
    377B: Set Value:ISLASTDEEMEDPOSITIVE:Yes

    ; 377C : Set Value:aCTUALQTY:$$TgtObject:$$AsQty:"1 NO."
    ; 378: Set Value:BilledQty:$$TgtObject:$$AsInQty:1
    ; 379: Set Value:RATE:$$AsAmount:$$FileReadCell:##Counter:7
    380 : Set Value:AMOUNT:$$AsAmount:$$FileReadCell:##Counter:7
    380A : Set Target:..


    ;381: Set Target:..
    382: Insert Collection Object:batchallocations
    ;383 : SET VALUE: STOCKITEMNAME :$$FileReadCell:##Counter:24
    384 : SET VALUE: GODOWNNAME :"STOCKYARD"
    384A: Set Value:DESTINATIONGODOWNNAME:"STOCKYARD"
    385 : SET VALUE: BATCHNAME: $$FileReadCell:##Counter:11
    386 : Set Value:AMOUNT:$$AsAmount:$$FileReadCell:##Counter:7
    387: Set Value:aCTUALQTY:$$TgtObject:$$AsInQty:1
    388: Set Value:BilledQty:$$TgtObject:$$AsInQty:1
    ;388A: Set Value: IsDeemedPositive: Yes
    389 : SET TARGET: ..

    390 : INSERT COLLECTION OBJECT : ACCOUNTINGALLOCATIONS
    391 : SET VALUE : LedgerName : $$String:mad:@purgl
    392 : SET VALUE : IsDeemedPositive : Yes
    393 : SET VALUE : Amount : $$AsAmount:$$FileReadCell:##Counter:7
    394 : SET TARGET : ..

    1255 : Set Value : Narration:$$FileReadCell:##Counter:12 ;:$$FileReadCell:##Counter:9 ;+ $$FileReadCell:##Counter:7 +$$FileReadCell:##Counter:8 + $$FileReadCell:##Counter:12+$$FileReadCell:##Counter:29)
    ; 1255A : SET VALUE : PersistedView : ##SVViewName
    1256 : Create Target

    1257 : INCREMENT : Counter
    1257b: Set File Log Off
    1257c: Log:$vouchernumber

    1258 : END WHILE
    1259 : CLOSE FILE


    [System:formula]
    myvchno:($$FileReadCell:##Counter:2) + $$FileReadCell:##Counter:1
    partynm :"Hyundai Motors India LTD "+$$FileReadCell:##Counter:8
    purgl:$$FileReadCell:##Counter:8 + " purchases"
    bilqty:$$AsQty:$$FileReadCell:##Counter:25
     


  2. Ankur Tiwari

    Ankur Tiwari Member


    dear Rajendra Ji Use
    Insert Collection Object : Account Allocations
    For Purchase or Sales and Not USe
    IsDeemedPositive: No Or IsDeemedPositive: Yes
    For Above Collection
     


Share This Page