Im Creating one sales order for one memorandum voucher form accepting time. sales order is created but that order is not reflected for sales order outstanding report that report is showing Memorandum Voucher Screen Order Creation Code [Function: LabourQtyFilling] Parameter : vUniqID : String Parameter : vDate : String Parameter : vVchNo : String Parameter : vParty : String ; Parameter : vSales : String Parameter : vNartn : String Variable : Counter : Number: 1 Variable : vDlShtMSTID : String Variable : GetSalsMID : String Variable : GstsalesVch : String Variable : SalUnqID : String Variable : SalesMasterID : String Variable : VchNum : String Variable : ItemName : String Variable : VCHNo : String Variable : VType : String Variable : vQty : String Variable : vDueDate : Due Date Variable : vOrdNo : String Local Formula : vQty : $Qty Local Formula : vAmt : $ItemRT * $Qty Local Formula : LabourVchtype : $ManufctrVchtype:Company:$$CurrentCompany Local Formula : ManVchNumbr : $NumberingMethod:VoucherTypeLabourVchtype=$$SysName:Manual Local Formula : OrdrDays : ($$Date:##vDate - $$Date:##vDate )+1 Local Formula : DusDate : $$Date:##vDate A10 : SET : Counter : $$NumItems:QuotLstCollQty A20 : DO IF : ##Counter > 0 : Start Progress : ##Counter : IMPORTING : @@CmpMailName : Sales Order Vouchers A100 : Set : vDlShtMSTID : $$RetVchId:##vUniqID:##vDate A101 : Set : SalUnqID : $$MakeUniqueID 120 : NEW OBJECT : Voucher 130 : Set : VCHNo : ##vVchNo 135 : Set : VType : @LabourVchtype 137 : Set Value : SOUNIQID : ##SalUnqID 138 : Set Value : QuotationMSTID : ##vDlShtMSTID 140 : SET VALUE : Date : $$Date:##vDate 141 : If : @manVchNumbr 150 : SET VALUE : VoucherNumber : $VoucherNumber 151 : End If 153 : Set : vOrdNo : "L"+##vVchNo 155 : Set Value : REFERENCE : ##vOrdNo 160 : SET VALUE : VoucherTypeName : @LabourVchtype /* 161 : Set Value : BASICSHIPPEDBY : $BASICSHIPPEDBY 163 : Set Value : BASICFINALDESTINATION : $BASICFINALDESTINATION 164 : Set Value : BASICORDERREF : $BASICORDERREF 165 : Set Value : BASICDUEDATEOFPYMT : $BASICDUEDATEOFPYMT */ 170 : Set : SVViewName : $$SysName:InvVchView 180 : Set Value : PERSISTEDVIEW : $$SysName:InvVchView 190 : SET VALUE : IsInvoice : Yes 200 : Set Value : Narration : ##vNartn /* 201 : Insert Collection Object : BASICORDERTERMS 202 : Set Value : BASICORDERTERMS : $BASICORDERTERMS 203 : Set Target : .. */ SO260 : SET VALUE : PartyLedgerName : ##vParty SO261 : Set Value : BasicBuyerName : ##vParty SO262 : Set Value : StateName : $LedgerStateName:Ledger:##vParty B163 : Set Value : PartyGSTIN : $PartyGSTIN:Ledger:##vParty C002 : Set Value : COUNTRYOFRESIDENCE : $CountryName:Ledger:##vParty C003 : Set Value : PARTYNAME : ##vParty C004 : Set Value : PARTYMAILINGNAME : ##vParty C005 : Set Value : CONSIGNEEMAILINGNAME : ##vParty C006 : Set Value : CONSIGNEESTATENAME : $LedgerStateName:Ledger:##vParty C007 : Set Value : BASICBASEPARTYNAME : ##vParty C008 : Set Value : CONSIGNEECOUNTRYNAME : $CountryName:Ledger:##vParty O261 : Walk Collection : LedgerAddressColl O263 : Insert Collection Object : BasicBuyerAddress O264 : SET VALUE : BasicBuyerAddress : $Address O265 : Set Target : .. O266 : End Walk 220 : Insert Collection Object : Ledger Entries 230 : Set Value : Ledger Name : ##vParty 231 : Set Value : ISDEEMEDPOSITIVE : Yes 235 : Set Value : Amount : $$CollAmtTotal:QuotLstCollQty$$AsAmount:$Amt);*-1 236 : Set Target : .. /* Ls000: Log: 0 SAD001: Walk Collection : QuotLstColl SAD002: Log: $Itemname SAD003: End Walk */ 301 : Walk Collection : QuotLstCollQty 305 : SHOW PROGRESS : $$LoopIndex 308 : Set : ItemName : $STKItemName 309 : Set : vQty : $Qty*-1 310 : Insert Collection Object: InventoryEntries ; 020 : Set Target : InventoryEntries[##Counter] 330 : Set Value : CamSlNoInvsble : $SlNo 335 : Set Value : StockItemName : $STKItemName 340 : Set Value : ISDEEMEDPOSITIVE : No 410 : Set Value : ActualQty : $$TgtObject:$$AsQty:##vQty ; *-1 420 : Set Value : BilledQty : $$TgtObject:$$AsQty:##vQty ; *-1 ; 425 : Set Value : INCLVATRATE : $$TgtObject:$$AsAmountvAmt / $$TgtObject:$$AsQtyvQty 430 : Set Value : Rate : $$TgtObject:$$AsAmountvAmt / $$TgtObject:$$AsQtyvQty 440 : Set Value : Amount : $$TgtObject:$$AsAmountvAmt 445 : Set : vDueDate : $$DateRangeOrdrDaysDusDate:True 450 : Insert Collection Object: BatchAllocations ; 455 : Set Target: BatchAllocations[1] 455 : Set Value : Tracking Number : $$SysName:NotApplicablE 460 : Set Value : GODOWNNAME : "Main Location" 470 : Set Value : BATCHNAME : $$SysNamerimary ; 480 : Set Value : DESTINATIONGODOWNNAME : "Main Location" 490 : Set Value : ORDERNO : ##vOrdNo 510 : Set Value : ActualQty : $$TgtObject:$$AsQty:##vQty ;*-1 520 : Set Value : BilledQty : $$TgtObject:$$AsQty:##vQty ;-1 525 : Set Value : INCLVATRATE : $$TgtObject:$$AsAmountvAmt / $$TgtObject:$$AsQtyvQty 530 : Set Value : Rate : $$TgtObject:$$AsAmountvAmt / $$TgtObject:$$AsQtyvQty 540 : Set Value : Amount : $$TgtObject:$$AsAmountvAmt 543 : Set Value : ORDERDUEDATE : ##vDueDate ;$$DateRangeOrdrDaysDusDate;:True 550 : Set Target : .. 610 : INSERT COLLECTION OBJECT : ACCOUNTINGALLOCATIONS 620 : SET VALUE : LEDGERNAME : $SetSalesAc:Company:$$CurrentCompany ;##vSales ;If $$IsLedOfGrp:##vBranchName:$$GroupBranches Then ##CtrlTradingBrSalesLed Else ##CtrlTradingSalesLed 630 : SET VALUE : ISDEEMEDPOSITIVE : No 640 : SET VALUE : AMOUNT : $$AsAmount:$Amt;($$TgtObject:$$AsAmountvAmt) 660 : Set Target : .. 670 : Walk Collection : QuotLstDescCollSrc 675 : Insert Collection Object : BasicUserDescription 680 : Set Value : BasicUserDescription : $vDescription 690 : Set Target : .. 700 : End Walk 950 : Set Target: .. 1000 : End Walk 1013 : Create Target 1013A : Set : SalesMasterID : $$RetSalExcessVchId:##SalUnqID:$Date 34566 : Call : FunGetDlySalesID:##vDlShtMSTID 1120 : DO IF : ##Counter > 0 : End Progress
Post a screenshot to see what error you are getting. Or send an email with the full code and Excel sheet@jayashritdlexpert@gmail.com
Dear Sir... I also getting this Error at the time of importing Excel into Tally... Can Anybody know this Issue Program :- [Function : SOExImportFun] Variable:totent:Number Variable:counter:Number:1 Variable : amt : Amount Variable : VMasterId : Number Variable : UniqueVar : String Variable : Vid : String Variable : counter : Number : 1 Variable : PurLEdgerAmt : Amount : 0 Variable:sqty:String Variable:ItemNameConfig:String Variable:SALESAMT:Amount:0 Variableartyamt:Amount:0 Variable:roundoff:Amount:0 Variable : setexpDt : Date 10 : SET FILE LOG ON 20:Query Box:"Continue with Creating Sales Order Entry":Yes:No 30:If:Not $$LastResult 40:Return 50:End If 60:Set:totent:$$NumItems:SalesExCollMain 70 : START PROGRESS:##totent:"Excel To Tally Sales Order Import":"Please Wait" 80:Walk:SalesExCollMain 100 : NEW OBJECT : Voucher 110 : SET : SVViewName : $$SysName:InvVchview set44:Set Value:Isinvoice:Yes 210:Set Value:VOUCHERTYPENAME:$SOExVchType:Company:##SVCurrentCompany 120:Set Value:VOUCHERNUMBER:$OvSOExDockNo 130:Set ValueATE:$$Date:$$Date:$vSOExBookDate nar:Set Value:Narration:$OvSalesExVchRef ref1:Set Value:Reference:$OvSOExDockNo ; setpl1:Set Value:BillToPlace:$vSalesExState ; set12:Set Value:ShipToPlace:$vSalesExState set0d:SeturLEdgerAmt:"" PurLEdgerAmt:Set : PurLEdgerAmt : $$AsAmount$OvSalesExAmt+$OvSalesExCGSTAmt+$OvSalesExSGSTAmt+$OvSalesExIGSTAmt+$vSOExDockCharge+$vSOExDelExp+$vSOExCollExp) SalesExCrParty:Call:createpartyP:$OvSalesExParty:$vSalesExState:"India":"" 190:Log:$OvSOExDockNo+"-"+$$String:##PurLEdgerAmt ; msgff:Msg Box:$OvSalesExParty:$vSalesExGSTno ;----------------------------Buyer Ledger--------------------------------------------------------------- BuyName : Set Value : PARTYNAME : $OvSalesExParty BuyName2 : Set Value : PARTYMAILINGNAME : $OvSalesExParty BuyPIN : Set Value : PARTYPINCODE : $PinCode:Ledger:$OvSalesExParty BuyGSTtype : Set Value : GSTREGISTRATIONTYPE : if Not $vSalesExGSTno="" then "Regular" Else "Unregistered" BuyState : Set Value : STATENAME : $vSalesExState BuyCountry : Set Value : COUNTRYOFRESIDENCE : "INDIA" BuyGST : Set Value : PARTYGSTIN : $vSalesExGSTno 3190:WalkartyAdd d200 : Insert Collection Object : Address d210 : Set Value : ADDRESS : $Address d220 : Set Target:.. 3250 : End Walk ;----------------------------CONsignee Ledger--------------------------------------------------------------- CONSName : Set Value : BASICBUYERNAME : $OvSalesExParty CONSName2 : Set Value : CONSIGNEEMAILINGNAME : $OvSalesExParty CONSPIN : Set Value : CONSIGNEEPINCODE : $PinCode:Ledger:$OvSalesExParty ; CONSGSTtype : Set Value : GSTREGISTRATIONTYPE : if Not ##DINVOICETYPE="" then "Regular" Else "Unregistered" CONSState : Set Value : CONSIGNEESTATENAME : $vSalesExState CONSCountry : Set Value : COUNTRYOFRESIDENCE : "INDIA" CONSGST : Set Value : CONSIGNEEGSTIN : $vSalesExGSTno 4190:WalkartyAdd CONS2 : Insert Collection Object : BASICBUYERADDRESS CONS3 : SET VALUE : BASICBUYERADDRESS : $ADDRESS CONS4 : Set Target : .. endfff:End Walk ;msg555:Msg Box:$OvSalesExVchNo:##PurLEdgerAmt 2init5 : Insert Collection Object : ledgerentries 2init6 : Set Value : ledgername : $OvSalesExParty 2init7 : Set Value : ISDEEMEDPOSITIVE:Yes 2init8 : Set Value : amount : ##PurLEdgerAmt*-1 2bill1:Insert Collection Object:BILLALLOCATIONS 2bill2:Set Value:name:$OvSOExDockNo 2bill3:Set Value:billtype:"New Ref" 2bill4:Set Value:amount:##PurLEdgerAmt*-1 bill5:Set Target:.. ;--------------inventory--------------- walk33sd:Walk Collection:SalesExAggrSub nset1:Set:sqty:$$String:$vSOExChargWt niSet:Set:ItemNameConfig:$vSOExCat ; 610 : Call : createitemA:##ItemNameConfig:$vSOExGSTPer:"";$MyHSN nSALESAMT2:Set:SALESAMT:$vSOExFrtCharg+##SALESAMT npavna130 : Insert Collection Object : Inventory Entries nisdeem:Set Value:ISDEEMEDPOSITIVE:No n160 : Set Value : StockItemName : ##ItemNameConfig n180 : Set Value : ActualQty : $$TgtObject$$AsQty:##sqty)*-1 n190 : Set Value : BilledQty : $$TgtObject$$AsQty:##sqty)*-1 n220 : Set Value : Amount : $vSOExFrtCharg;*-1 n230 : Set Value : Rate : $$TgtObject:$Amount / $$TgtObject:$BilledQty BasicNumPackages:Set Value:BasicNumPackages:$vSOExNoPack setexpDt: Set:setexpDt : $$Date:$vSOExBookDate n250 : Insert Collection Object : Batch Allocations n260 : Set Value : BatchName : "Primary Batch" n270 : Set Value : GodownName : "Main Location" DUEo : Set Value : OrderDueDate : $$DateRange:##setexpDt:##setexpDt:True;$$Date:"1-4-20";$pDueON n290 : Set Value : ActualQty : $$TgtObject$$AsQty:##sqty)*-1 n300 : Set Value : BilledQty : $$TgtObject$$AsQty:##sqty)*-1 n320 : Set Value : Amount : $vSOExFrtCharg;*-1 n330 : Set Value : Rate : $$TgtObject:$Amount / $$TgtObject:$BilledQty n340 : Set Target : .. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Sales Ledger ACCOUNTINGALLOCATIONS ;;;;;;;;;;;;;;;;;;;;;;;;;;;; acc1:Insert Collection Object:ACCOUNTINGALLOCATIONS acc2:Set Value:ledgername:$SOExSalesLed:company:##svcurrentcompany acc3:Set Value:amount:$vSOExFrtCharg acc4:Set Value:ISDEEMEDPOSITIVE:No acc5:Set Target:.. suben:end walk ;--------------Docket----------------------- dif553:If:$vSOExDockCharge>0 di2init5 : Insert Collection Object : ledgerentries di2init6 : Set Value : ledgername : $SOExDocketChLed:Company:##SVCurrentCompany di2init7 : Set Value : ISDEEMEDPOSITIVE:No di2init8 : Set Value : amount : $vSOExDockCharge dendwe:End If ;--------------Del Exp----------------------- wif553:If:$vSOExDelExp>0 wi2init5 : Insert Collection Object : ledgerentries wi2init6 : Set Value : ledgername : $SOExDelExpLed:Company:##SVCurrentCompany wi2init7 : Set Value : ISDEEMEDPOSITIVE:No wi2init8 : Set Value : amount : $vSOExDelExp wendwe:End If ;--------------Coll Exp----------------------- cif553:If:$vSOExCollExp>0 ci2init5 : Insert Collection Object : ledgerentries ci2init6 : Set Value : ledgername : $SOExCollExpLed:Company:##SVCurrentCompany ci2init7 : Set Value : ISDEEMEDPOSITIVE:No ci2init8 : Set Value : amount : $vSOExCollExp cendwe:End If ;------------------------------------- vif553:If:$OvSalesExCGSTAmt>0 vi2init5 : Insert Collection Object : ledgerentries vi2init6 : Set Value : ledgername : $SOExCGSTLed:Company:##SVCurrentCompany vi2init7 : Set Value : ISDEEMEDPOSITIVE:No vi2init8 : Set Value : amount : $OvSalesExCGSTAmt vendwe:End If ;------------------------------------- sif553:If:$OvSalesExSGSTAmt>0 si2init5 : Insert Collection Object : ledgerentries si2init6 : Set Value : ledgername : $SOExSGSTLed:Company:##SVCurrentCompany si2init7 : Set Value : ISDEEMEDPOSITIVE:No si2init8 : Set Value : amount : $OvSalesExSGSTAmt sendwe:End If ;------------------------------------- iif553:If:$OvSalesExIGSTAmt>0 ii2init5 : Insert Collection Object : ledgerentries ii2init6 : Set Value : ledgername : $SOExIGSTLed:Company:##SVCurrentCompany ii2init7 : Set Value : ISDEEMEDPOSITIVE:No ii2init8 : Set Value : amount : $OvSalesExIGSTAmt iendwe:End If 1900:Increment:counter 1910 : SHOW PROGRESS : ##counter 2140:Create Target 2150:If:Not $$LastResult 2160:Msg Box:$OvSOExDockNo:$$LastError 2170:Return 2180:End If end22:End Walk
Do it like this n180 : Set Value : ActualQty : $$TgtObject:$$AsOutQty:$$AsQty:##sqty)*-1 n190 : Set Value : BilledQty : $$TgtObject:$$AsOutQty:$$AsQty:##sqty)*-1
