Excel To Tally Voucher Import With Stock Item

Take a Look at My Code

[Collection: Led Coll From Access2]

ODBC : "Driver={Microsoft Access Driver (*.mdb)};Dbq=D:\1.mdb;Uid=;Pwd=;"

SQL : Select * From LedgerMaster

SQL Object : AccessObj2

[Object: AccessObj2]

LedName : $_1

LedParent : $_2

LedOpBal : $$AsAmount:$_3

[Collection: Led Coll2]
Source Collection : Led coll From Access2
Compute : LEDDATE : $_1
Compute : LEDNAME : $_2
Compute : LEDAMOUNT : $$AsCrAmt:$_3
Compute : LEDAMOUNT2 :$$AsDrAmt:$_3
Compute : IGST :$_4
Compute : CGST :$_5
Compute : SGST :$_6
compute : qty:$$Number:"2"

[#Menu: Gateway of Tally]
Add : Button : Led Import2


[Button: Led Import2]
Key : Alt + F6
Action : Call : Ledger Import2
Title : "Import With Stock"

[Function: Ledger Import2]
Local Formula:MyQty$$Number:"88")


01 : WALK COLLECTION: Led Coll2
02 : If : 1=1
03 : NEW OBJECT: Voucher
04 : Set Value: Date : $$Date($$StringPart:$LEDDATE:8:2) + "-" + +
($$StringPart:$LEDDATE:5:2)+ "-" + +
($$StringPart:$LEDDATE:0:4))
07 : Set Value:VoucherTypeName :"Purchase"
08 : Set Value: Narration :"Working"
09 : Set Value: PARTYNAME : $LEDNAME
12 : Set Value:REFERENCE:"333"
14 : Set Value: PARTYLEDGERNAME : $LEDNAME

16 : Insert Collection Object: LEDGERENTRIES
19 : Set Value: LedgerName : $LEDNAME
20 : SET VALUE : IsDeemedPositive : No
21 : Set Value:ispartyledger:Yes
24 : Set Value: Amount:$$Number:$LEDAMOUNT+$$Number:$IGST+$$Number:$SGST+$$Number:$CGST
25 : Set Target:..

28 : Insert Collection Object: LEDGERENTRIES
34 : Set Value: LedgerName : "pur"
35 : Set Value:IsDeemedPositive:Yes
36 : Set Value:ispartyledger:No
37 : Set Value: Amount:"-"+$$String:$LEDAMOUNT

40 : Insert Collection Object:INVENTORYALLOCATIONS
45 : Set Value :StockItemName:"Sheet"
47 : Set Value:IsDeemedPositive:Yes
49 : Set Value :BilledQTY:$$Number:"-98790"
52 : SET VALUE :Amount :$$AsAmount:"-98790"
53 : Set Target:..

54 : Insert Collection Object:INVENTORYALLOCATIONS
55 : Set Value :StockItemName:"Sheet"
56 : Set Value:IsDeemedPositive:Yes
58 : Set Value :BilledQTY:$$Number:""
59 : SET VALUE :Amount :$$AsAmount:"2"
60 : Set Target:..





61 : If : $$IsEmpty:$CGST and $$IsEmpty:$SGST

63 : Insert Collection Object:LEDGERENTRIES
64 : Set Value:LedgerName:"IGST"
65 : Set Value:IsDeemedPositive:Yes
67 : Set Value:IsPartyLedger:No
69 : Set Value:AMount:"-"+$$String:$IGST
70 : Save Target

71: Else

72 : Insert Collection Object:LEDGERENTRIES
74 : Set Value:LedgerName:"SGST"
76 : Set Value:IsDeemedPositive:Yes
78 : Set Value:IsPartyLedger:No
79 : Set Value:AMount:"-"+$$String:$SGST

80 : Insert Collection Object:LEDGERENTRIES
81 : Set Value:LedgerName:"CGST"
82 : Set Value:IsDeemedPositive:Yes
83 : Set Value:IsPartyLedger:No
84 : Set Value:AMount:"-"+$$String:$CGST


85 : Save Target
87 : End If

90 : End If
95 : End Walk

I Can Import Voucher Easily But if Try to Import Voucher with Stock item . I'm Getting an Error in Tally "Unit of Measure Incorrect for the Item"

And If I Use "Set Value :BilledQTY:$$TgtObject"$$Number:"-98790" i'm Getting error "Function:TgtObject Could not find Description"
Somebody Help me Please

 

PLEASE SHARE

 

PLEASE SHARE

 

Mail me @ ctanishct@gmail.com for the above Code.

 

Mail me @ ctanishct@gmail.com for the above Code.