Dear All, Here is the code through which you can see full year Indirect and Direct income which is effect only payment, receipt, sales and purchase vouchers only.
I want to add one column in reporting form, like unloading quantity. But i don't want to enter value of unloading quantity at the time of entry of invoice. I want to put unloading quantity from reporting form , like Form C register in Tally. Gateway of Tally----->Display------>Transporter Name [#Part: MSTLED Initial] [#Line: MST Parent] [#Part: MST LED Explode Sundry] Add: Line: At End: Transbank1,Transbank2,Transbank3,Transbank4 ;,Transbank5 [Line:Transbank1] Field: short name field, Transporterbank Local: Field: short name field : Set as: "Bank Name:" Local: Field:short name field : Skip: Yes Local: Field: short name field : Style: small Local: Field: short name field : Alignrompt Invisible: $Parent!="Truck Track" [Line:Transbank2] Field: short name field, Transporterbank1 Local: Field: short name field : Set as: "Bank A/C No.:" Local: Field:short name field : Skip: Yes Local: Field: short name field : Style: small Local: Field: short name field : Alignrompt Invisible: $Parent!="Truck Track" [Line:Transbank3] Field: short name field,Transporterbank2 Local: Field: short name field : Set as: "Branch No.:" Local: Field:short name field : Skip: Yes Local: Field: short name field : Style: small Local: Field: short name field : Alignrompt Invisible: $Parent!="Truck Track" [Line:Transbank4] Field: short name field, Transporterbank3 Local: Field: short name field : Set as: "RTGS No.:" Local: Field:short name field : Skip: Yes Local: Field: short name field : Style: small Local: Field: short name field : Alignrompt Invisible: $Parent!="Truck Track" [Line:Transbank5] Field: short name field, Transporterbank4 Local: Field: short name field : Set as: "Truck No.:" Local: Field:short name field : Skip: Yes Local: Field: short name field : Style: small Local: Field: short name field : Alignrompt Invisible: $Parent!="Truck Track" [Field:Transporterbank] Use: name field Storage: TransBankName Set Always: Yes [Field:Transporterbank1] Use: name field Storage: TransBankac Set Always: Yes [Field:Transporterbank2] Use: name field Storage: TransBankBranch Set Always: Yes [Field:Transporterbank3] Use: name field Storage: TransBankRtgs Set Always: Yes [Field: Transporterbank4] Use: name field Sub Form: TransporterTruckNo [Report:TransporterTruckNo] Form: TransporterTruckNo [Form: TransporterTruckNo] Part: TransporterTruckNo Width: 15% Page Height: 30% Page [Part: TransporterTruckNo] Line:TransporterTruckNo1,TransporterTruckNo2 Repeat: TransporterTruckNo2:TransporterTruckNo Scroll: Vertical Break On: $$IsEmpty:$TransTruckNo [Line:TransporterTruckNo1] Field: Name field Local: Field: name field : Set as: "Truck Number" Local: Field: name field : Align: Center Local : Field: name field : Skip: Yes Border: Flush Totals [Line:TransporterTruckNo2] Field: TransPTruckno [Field: TransPTruckno] Use: name field Storage: TransTruckNo Set Always: Yes [System: udf] TransBankName : String: 200 TransBankac : String: 201 TransBankBranch:String:202 TransBankRtgs : String: 203 EiTransTruckNo : String: 206 TransWeight : Quantity: 207 Transfrom : String: 208 Transto : String: 209 TransAmt: Amount: 210 TransYesno : Logical: 211 ServicetaxPaidby : String: 212 TransRate : Number: 213 Trasnunit : String: 214 [System: udf] TransporterTruckNo:Aggregate:204 TransTruckNo:String:205 [Collection: TruckNocollect] Title:$$LocaleString:"Truck No List" Type:TransporterTruckNo:Ledger Child Of:$EntryBrokarage Format: $TransTruckNo,20 [Collection: TruckNocollectall] Use: TruckNocollect Title:$$LocaleString:"Truck No List" ;Type: Ledger ;;TruckNocollectall Report: TransporterTruckNo Variable: TransporterTruckNo [Variable: TransporterTruckNo] Table: TruckNocollectall [#Part: DBLLINE Narration] add : option : opbrokarage : ($$IsSales:##SVVoucherType or $$IsPurchase:##SVVoucherType) and @@Aspendemo1 [!Part : opbrokarage ] Add : line : before :VCH NarrPrompt :Linebrkgs [Line : Linebrkgs] Field:name field,EiTransYesno,Transsub Local: Field: name field : Set as:"Transporter Details ?" Local: Field: name field : Skip: Yes [Field: EiTransYesno] Use: logical field Storage: TransYesno Set Always: Yes [Field: Transsub] Use: name field Width: 1 inch Sub Form: EivishalTrasn Inactive: Not $TransYesno Set Always: Yes [Report: EivishalTrasn] Form: EivishalTrasn [Form: EivishalTrasn] Part: EivishalTrasn Width: 80% page [Part: EivishalTrasn] Line:EivishalTrasn,EivishalTrasn1,EivishalTrasn2,EivishalTrasn3 [Line: EivishalTrasn] Field: name field Local: Field: name field: Set as:"Transport Details" Local: Field: name field : Skip: Yes Local: Field: name field : Full Width: Yes Local: Field: name field : Align : Centre [Line: EivishalTrasn1] field : Short prompt, name field, Fromtile, Transtot,short name field,EitransrateT, TransamtT ;;EitransUnitT, local : field : short prompt : set as : "Transporter Name " local : field : short prompt : width : 1.5 inch local : field : short prompt elete: Align local : field : entbrokarage : set always : yes local : field : name field : set as : "Truck No " Local: Field: name field : Width: 1.2 inch local : field : short name field : set as : "Weight " local : field : short name field : skip : yes local : field : short name field : width : 1 inch local : field : name field : skip : yes Local: Field: default : Style: small bold Border: Flush totals [Line: EivishalTrasn2] field : entbrokarage, brokarageper, TransFrom, Transto,commAmt,Eitransrate, Transamt ;;EitransUnit, Local: Field: default : Style: small bold [Line: EivishalTrasn3] Field: name field,Servicetaxpaidby,short name field,despatchmoden,medium prompt,billty Local: Field: name field : Set as: "Party Name:" Local: Field: name field : Skip: Yes Local: Field: name field : Width: 1.5 inch Local: Field: short name field : Set as: "Despatch Mode:" Local: Field: medium prompt: Set as:"Consignment No.:" Local: Field: short name field : Skip: Yes Local: Field: short name field : Width: 1.2 inch Border: thin top [Field: Servicetaxpaidby] Use: name field Storage: ServicetaxPaidby Set Always: Yes [Field: despatchmoden] Use: name field Storageespatchmode1 Set Always: Yes Table: Despatchmode Show Table: Always [Field: billty] Use: name field Storage: Billtyno Set Always: Yes [Collection: Despatchmode] Title: $$LocaleString:"Despatch Mode" List Name: $$LocaleString:"Ex-Delivery " List Name: $$LocaleString:"FOR-Delivery" [Field : eitrack1] use : name field style : normal width : .65 inch skip : yes [Field : eitrack2] use : name field style : normal width : .5 inch storage : TruckNo1 set always : yes [Field : eitrack3] use : name field style : normal width : .75 inch skip : yes [Field : eitrack4] use : name field style : normal width : .65 inch storage : Accountno1 set always : yes [Field : eitrack5] use : name field style : normal width : .95 inch skip : yes [Field : eitrack6] use : name field style : normal width : .65 inch storage : RTGSNEFT set always : yes [Field : entbrokarage] Use : name field style : normal Table : transportname ;brokarageparty Show Table : Always width : 1.5 inch storage : EntryBrokarage set always : yes [Collection: transportname] Title: $$LocaleString:"Transporter Name" Type: Ledger Child Of:"Transporter" [Field : brokarageper] Use : Name field style : normal ;Table: TruckNocollect Width: 1.2 inch storage : EiTransTruckNo ;set as :$prtycommision:ledger:#entbrokarage Show Table: Always set always : yes ; Keys : Create PortMr, Alter PortMr ; Table : Scenario12Mr,notapplicable [Field : commAmt] use : Qty Primary field Set as: $$CollQtyTotal:InventoryEntries:$Billedqty storage : TransWeight Width: 1 inch ; format : "no zero,no comma" set always : yes [Field: Fromtile] Use: short name field Width: 1.5 inch Set as: "Item Name " Skip: Yes Style: small [Field:TransFrom] Use: name field Width: 1.5 inch Set as:"." Storage: Transfrom Set Always: Yes [Field: Transtot] Use: short name field Width: 1.5 inch Set as: "From/To " Skip: Yes Style: small [Field: Transto] Use: name field Width: 1.5 inch Set as: "." Storage: Transto Set Always: Yes [Field: TransamtT] Use: short name field Width: 1 inch Set as: "Amount " Skip: Yes Style: small [Field: EitransUnitT] Use: name field Width: .5 inch Style: small bold Set as: "Unit" Skip: Yes [Field: EitransUnit] Use: name field Width: .5 inch Style: small bold Storage: Trasnunit Set Always: Yes [Field: EitransrateT] Use: name field Width: .85 inch Style: small bold Set as: "Rate" Skip: Yes [Field: Eitransrate] Use: number field Width: .85 inch Style: small bold Format:"Nozero,decimal:2" Storage: TransRate Set Always: Yes [Field: Transamt] Use: Amount field Set as: $TransRate* $$Number:$TransWeight Storage: TransAmt Set Always: Yes Format:"Nozero,decimal:2" Width: 1 inch [System: formula] invamtM : $$CollAmtTotal:InventoryEntries:$Amount [collection : brokarageparty] Type: Ledger Child Of:"Truck track" Collection : Not Applicable ;add : filter : filterbrok Align : Right FullHeight : No Title : "List Of Transporter" [system : formula] filterbrok : $IsBrokarage [system : udf] IsBrokarage : logical : 2 ;; IscreatBrokarage : logical : 4 prtycommision : number : 6 EntryBrokarage : string : 100 brokper : number : 10 commAmt : number : 20 TruckNo1 : string : 27 Accountno1 : string : 45 RTGSNEFT :string : 26 Despatchmode1 : String: 30 Billtyno : String: 32 [system : formula] Aspendemo1 : yes ;;$$MachineDate < $$Date:"30/7/14" ;;******************************************Reports*************************************************** [#Menu: Display Menu] Add: Option: vishal@Aspendemo1 [!Menu:vishal] add : Key Item :before@locQuit: @@locStatementsofAgent : S : Menu : Transporter Details :$$IsAccountingOn:$$CurrentCompany [system : formula] locStatementsofAgent : $$LocaleString:"Transporter Details" locAgent :$$LocaleString:"Truck No. Wise" locAgent2 :$$LocaleString:"Transporter Report for Sales" ;salestrasnports : $$LocaleString:"Transporter Detais For Sales" Purchasetrasnports :$$LocaleString:"Transporter Detais For Purchase" locAgent3 : $$LocaleString:"Transporter Report for Purchase" [Menu :Transporter Details] ;Indent: @@salestrasnports ; Key Item : @@locAgent2 : W : Display collection :Scollection Key Item : @@locAgent2 : s : Display :vishalsal Key Item : @@locAgent3 : s : Display :vishalpur ; Key Item : @@locAgent : A : Display Collection : Chassiscollection ;;; : NOT $$IsEmpty:$$SelectedCmps ; Indent: @@Purchasetrasnports ; Key Item : @@locAgent2 : W : Display collection :Scollectionpur ; Key Item : @@locAgent3 : s : Display :vishalpur ; Key Item : @@locAgent : A : Display Collection : Chassiscollectionpur ;;; : NOT $$IsEmpty:$$SelectedCmps [#Menu: Gateway of Tally] ;; add : item : before : @@locQuit :Agent Commission : Display collection :Scollection ;;Agent Commission [Collection:Scollection] use : List of Ledgers ;;List of Ledgers Variable : Ledger Name Report : Transporter Details Trigger : myLedger Analysis Name Filter : IsPartyAccount Fetch : Name [Collection: Scollectionpur] use : List of Ledgers ;;List of Ledgers Variable : Ledger Name Report : Transporter Detailspur Trigger : myLedger Analysis Name Filter : IsPartyAccount Fetch : Name [Report: myLedger Analysis Name] ;; Auto Report Use : Ledger Name Local : Field : Ledger Name : Delete: Table Local : Field : Ledger Name : Table : brokarageparty [Report: myLedger Analysis Name2] ;; Auto Report Use : Ledger Name Local : Field : Ledger Name : Delete: Table Local : Field : Ledger Name : Table : TruckNocollectall [Report :Transporter Details] Use : Dsp template Form : BrokarForm [Report :Transporter Detailstruck] Use : Dsp template Form : BrokarFormTruck [Report :Transporter Detailspur] Use : Dsp template Form : BrokarFormpur [Report :Transporter Detailspurtrk] Use : Dsp template Form : BrokarFormpurTrk [Report :vishalsal] Use : Dsp template Form : all BrokarForm Add: Variable: SelectedHisab Set:SelectedHisab : $$SysName:NotApplicable Title: $$LocaleString:"Transporter Details" [Report: vishalpur] Use : Dsp template Form : all PurBrokarForm Add: Variable: SelectedHisab Set:SelectedHisab : $$SysName:NotApplicable Title: $$LocaleString:"Transporter Details" ;;***************************************** [Button:Invoice Btn] Key:Alt+I Action:Execute:Invoice Rpt Title:Find Invoice [Report:Invoice Rpt] Form:Invoice Frm Title:Find Invoice Filter:$vouchernumber [Form:Invoice Frm] Part:Invoice Prt Add : On : Form Accept : yes :Message Box [Part:Invoice Prt] Line:Invoice Ln [Line:Invoice Ln] Field:Medium Prompt, Invoice Fld Local:Field:Medium Prompt:Set as:"Invoice No" [Field:Invoice Fld] Use:Name Field Width:50 Border:Thin Box [Collection:Cleared] Type : Bills Cleared:Yes [Collection:UnCleard] Type:Bills Cleared:No [Collection:InvoiceBill] Collections:Cleared, Uncleard [Button: Hisab Filtering] Title: $$LocaleString:"Transporter" Key : Alt + S Action : Execute :Hisab Configure ;;Agent Commission [Button: Hisab Filtering2] Title: $$LocaleString:"Truck No." Key : Alt + T Action : Execute :Hisab Configure2 ;;Agent Commission [Report: Hisab Configure] Auto : Yes Title : $$LocaleString:"Configuration" ;Local : Collection : CST DFormType : Delete : Filter : CSTBeforeApr07 [Report: Hisab Configure2] Auto : Yes Title : $$LocaleString:"Configuration" ;Local : Collection : CST DFormType : Delete : Filter : CSTBeforeApr07 [Form: Hisab Configure] No confirm : Yes Full width : No Full height : No Background : @@SV_CMPCONFIG Parts : DSP Configure, hisabConfig Local : Style : Default : Height : @@SmallSize Local : Line : Form SubTitle : SpaceBottom : 0.5 [Form: Hisab Configure2] No confirm : Yes Full width : No Full height : No Background : @@SV_CMPCONFIG Parts : DSP Configure, hisabConfig2 Local : Style : Default : Height : @@SmallSize Local : Line : Form SubTitle : SpaceBottom : 0.5 [Part: hisabConfig] Lines : filterhisab Space Top : 0.5 [Part: hisabConfig2] Lines : filterhisab2 Space Top : 0.5 [Line: filterhisab] Field : Medium Prompt, Name Field Local : Field : Medium Prompt : Set as : $$LocaleString:"Show Vouchers of :" Local : Field : Name Field : Table : transportname, Not Applicable ;;Scenario12Eng, Local : Field : Name Field : Show Table: Always Local : Field : Name Field : Variable : SelectedHisab Local : Field : Name Field : Modifies : SelectedHisab : Yes [Line: filterhisab2] Field : Medium Prompt, Name Field Local : Field : Medium Prompt : Set as : $$LocaleString:"Show Vouchers of :" ;Local : Field : Name Field : Table : transportname, Not Applicable ;;Scenario12Eng, ;Local : Field : Name Field : Show Table: Always Local : Field : Name Field : Variable : SelectedHisab Local : Field : Name Field : Modifies : SelectedHisab : Yes [Variable: SelectedHisab] Type : String [System: Variable] SelectedHisab : "" [System: formula] SelectedHisab : If $$IsSysNameEqual:NotApplicable:##SelectedHisab or $$IsEmpty:##SelectedHisab Then Yes Else ($EntryBrokarage = ##SelectedHisab or $EiTransTruckNo contains ##SelectedHisab) ;;$$IsSysNameEqual:NotApplicable:##SelectedHisab or ;;******************************************* [Form :BrokarForm] Use : Dsp template Height : 100% Page Width : 100% Page Parts : DSP AccTitles,Prttitle,prtBrokarDetails bottom parts : prtbottom Page Break : DSP ClPageBreak, myDSPOpPageBreak [Form: BrokarFormTruck] Use : Dsp template Height : 100% Page Width : 100% Page Parts : DSP AccTitles,Prttitle,prtBrokarDetailstruck bottom parts : prtbottom Page Break : DSP ClPageBreak, myDSPOpPageBreak [Form :BrokarFormpur] Use : Dsp template Height : 100% Page Width : 100% Page Parts : DSP AccTitles,Prttitle,prtBrokarDetailspur bottom parts : prtbottom Page Break : DSP ClPageBreak, myDSPOpPageBreak [Form: BrokarFormpurTrk] Use : Dsp template Height : 100% Page Width : 100% Page Parts : DSP AccTitles,Prttitle,prtBrokarDetailspurtrk bottom parts : prtbottom Page Break : DSP ClPageBreak, myDSPOpPageBreak [Form :all BrokarForm] Use : Dsp template Height : 100% Page Width : 100% Page Parts : DSP AccTitles,AllPrttitle,allprtBrokarDetails bottom parts : prtbottom Deleteage Break addage Break : DSP ClPageBreak, myDSPOpPageBreak Add: Button:Hisab Filtering add : Button:Hisab Filtering2 [Form: all PurBrokarForm] Use : Dsp template Height : 100% Page Width : 100% Page Parts : DSP AccTitles,AllPrttitle,allprtBrokarDetailspur bottom parts : prtbottom Delete: Page Break add : Page Break : DSP ClPageBreak, myDSPOpPageBreak Add: Button:Hisab Filtering add : Button: Hisab Filtering2 [Part : myDSPOpPageBreak] parts SP AccTitles,AllPrttitle vertical : yes [Part : Prttitle] Line : AgentNamefld,lntitle [Part :AllPrttitle] Line : alllntitle [Line : AgentNamefld] field :Short name field,AgentNamefld local : field : short name field : set as : "Transporter Name:" [field :AgentNamefld] use : name field set as : #LedgerName fullwidth : yes [Line : lntitle] fields : Fvchno,Fvchdate ,Fbrokar ,Fvchref,FBrokerper,Servicetaxby,consigno Right fields :Servicedespatc, Finvtot,Transunit,Transrate,Fbrokaramt local : field : default : type : string local : field : default : style : normal bold ; local : field : default : align : centre local : field : Fvchno : setas : "Voucher No." local : field : Fvchref : set as : "Item Name" local : field : Fvchdate : set as : "Date" local : field : Fbrokar : set as : "Truck No." local : field : FBrokerper : set as : "From/To" Local: Field: Servicetaxby : Set as: "Party Name" Local: Field: consigno : Set as: "Consign No." Local: Field:Servicedespatc: Set as:"despstch mode" local : field : Finvtot : set as : "Weight" Local: Field: Transunit : Set as: "Unit" Local: Field: Transrate : Set as: "Rate" local : field : Fbrokaramt : set as : "Amount" Border : Totals [Line : alllntitle] fields : Fvchno,Fvchdate,ReTransportnm,Fbrokar ,Fvchref,FBrokerper,Servicetaxby,consigno Right fields : Servicedespatc,Finvtot,Transunit,Transrate,Fbrokaramt local : field : default : type : string local : field : default : style : normal bold ; local : field : default : align : centre local : field : Fvchno : set as : "Voucher No." local : field : Fvchref : set as : "Item Name" local : field : Fvchdate : set as : "Date" Local: Field: ReTransportnm : Set as: "Transporter Name" local : field : Fbrokar : set as : "Truck No." local : field : FBrokerper : set as : "From/To" Local: Field: Servicetaxby : Set as: "Party name" Local: Field: consigno : Set as: "Consign No." Local: Field: Servicedespatc : Set as: "Despatch Mode" local : field : Finvtot : set as : "Weight" Local: Field: Transunit : Set as: "Unit" Local: Field: Transrate : Set as: "Rate" local : field : Fbrokaramt : set as : "Amount" Border : Totals [Part : prtBrokarDetails] Line : Brokarbodyln repeat :Brokarbodyln : VchBrokarCollct scroll : vertical Total : Finvtot, Fbrokaramt [Part : prtBrokarDetailstruck] Line : BrokarbodylnTrack repeat :BrokarbodylnTrack : VchBrokarCollct scroll : vertical Total : Finvtot, Fbrokaramt [Part : prtBrokarDetailspur] Line : Brokarbodyln repeat :Brokarbodyln : VchBrokarCollctpur scroll : vertical Total : Finvtot, Fbrokaramt [Part: prtBrokarDetailspurtrk] Line : BrokarbodylnTrk repeat :BrokarbodylnTrk : VchBrokarCollctpur scroll : vertical Total : Finvtot, Fbrokaramt [Part :allprtBrokarDetails] Line : AllBrokarbodyln repeat :AllBrokarbodyln : salesVchBrokarCollct scroll : vertical Total : Finvtot, Fbrokaramt [Part: allprtBrokarDetailspur] Line : AllBrokarbodyln repeat :AllBrokarbodyln : VchBrokarCollctpur scroll : vertical Total : Finvtot, Fbrokaramt [Line : Brokarbodyln] fields : Fvchno,Fvchdate ,Fbrokar ,Fvchref,FBrokerper,Servicetaxby,consigno Right fields : Servicedespatc,Finvtot,Transunit,Transrate,Fbrokaramt local : field : Fvchno : set as : $VoucherNumber local : field : Fvchref : set as : $Transfrom local : field : Fvchdate : set as : $Date local : field : Fbrokar : set as : $EiTransTruckNo local : field : FBrokerper : set as :$Transto Local: Field: Servicetaxby : Set as: $ledgername Local: Field: consigno : Set as:$Billtyno Local: Field: Servicedespatc : Set as:$Despatchmode1 Local : field : Finvtot : set as : $TransWeight Local: Field: Transunit : Set as:$Trasnunit Local: Field: Transrate : Set as:$TransRate Local : field : Fbrokaramt : set as :$TransAmt Option : AlterOnEnter : $$IsVoucher ;;empty : $$Isempty:$EntryBrokarage empty : #LedgerName != $EntryBrokarage ;;$Partyledgername Billtyno ;;Trasnunit,TransRate,ServicetaxPaidby,TransAmt,Transto,Transfrom,TransWeight,EiTransTruckNo [Line : BrokarbodylnTrack] fields : Fvchno,Fvchdate ,Fbrokar ,Fvchref,FBrokerper,Servicetaxby,consigno Right fields :Servicedespatc, Finvtot,Transunit,Transrate,Fbrokaramt local : field : Fvchno : set as : $VoucherNumber local : field : Fvchref : set as : $Transfrom local : field : Fvchdate : set as : $Date local : field : Fbrokar : set as : $EiTransTruckNo local : field : FBrokerper : set as :$Transto Local: Field: Servicetaxby : Set as: $ledgername Local: Field: consigno : Set as:$Billtyno Local: Field: Servicedespatc : Set as:$Despatchmode1 Local : field : Finvtot : set as : $TransWeight Local: Field: Transunit : Set as:$Trasnunit Local: Field: Transrate : Set as:$TransRate Local : field : Fbrokaramt : set as :$TransAmt Option : AlterOnEnter : $$IsVoucher ;;empty : $$Isempty:$EntryBrokarage empty : ##SScenario12MR1!=$EiTransTruckNo ;;Trasnunit,TransRate,ServicetaxPaidby,TransAmt,Transto,Transfrom,TransWeight,EiTransTruckNo [Line : BrokarbodylnTrk] fields : Fvchno,Fvchdate ,Fbrokar ,Fvchref,FBrokerper,Servicetaxby,consigno Right fields : Servicedespatc,Finvtot,Transunit,Transrate,Fbrokaramt local : field : Fvchno : set as : $VoucherNumber local : field : Fvchref : set as : $Transfrom local : field : Fvchdate : set as : $Date local : field : Fbrokar : set as : $EiTransTruckNo local : field : FBrokerper : set as :$Transto Local: Field: Servicetaxby : Set as: $ledgername Local: Field: consigno : Set as:$Billtyno Local: Field: Servicedespatc : Set as:$Despatchmode1 Local : field : Finvtot : set as : $TransWeight Local: Field: Transunit : Set as:$Trasnunit Local: Field: Transrate : Set as:$TransRate Local : field : Fbrokaramt : set as :$TransAmt Option : AlterOnEnter : $$IsVoucher ;;empty : $$Isempty:$EntryBrokarage empty : ##SScenario12MR1!=$EiTransTruckNo [Line : allBrokarbodyln] fields : Fvchno,Fvchdate ,ReTransportnm,Fbrokar ,Fvchref,FBrokerper,Servicetaxby,consigno Right fields : Servicedespatc,Finvtot,Transunit,Transrate,Fbrokaramt local : field : Fvchno : set as : $VoucherNumber local : field : Fvchref : set as : $stockItemName local : field : Fvchdate : set as : $Date Local: Field: ReTransportnm : Set as: $EntryBrokarage local : field : Fbrokar : set as : $EiTransTruckNo local : field : FBrokerper : set as :$Transto Local: Field: Servicetaxby : Set as: $ledgername Local: Field: consigno : Set as:$Billtyno Local: Field: Servicedespatc : Set as:$Despatchmode1 Local : field : Finvtot : set as : $TransWeight Local: Field: Transunit : Set as:$Trasnunit Local: Field: Transrate : Set as:$TransRate Local : field : Fbrokaramt : set as :$TransAmt Option : AlterOnEnter : $$IsVoucher empty : $$Isempty:$EntryBrokarage ; [Part : prtbottom] Line :broktot [Line : broktot] fields : Fvchno,Fvchref,Fvchdate, Fbrokar Right fields : FBrokerper,totFinvtot,totFbrokaramt local : field : Fvchno : set as : "Total" local : field : Fvchref : set as : "" local : field : Fvchdate : set as : "" local : field : Fbrokar : set as : "" local : field : FBrokerper : set as :"" Local : field : totFinvtot : set as : $$Total:Finvtot Local : field : totFbrokaramt : set as :$$Total:Fbrokaramt border : Totals [Collection : VchBrokarCollct] Type : Voucher ;;s:Ledger child of : $EntryBrokarage Fetch : EntryBrokarage,Amount,Trasnunit,TransRate,ServicetaxPaidby,TransAmt,Transto,Transfrom,TransWeight,EiTransTruckNo,Despatchmode1,Billtyno Filter: onlysalesvch [Collection : VchBrokarCollctpur] Type : Voucher ;;s:Ledger child of : $EntryBrokarage Fetch :EntryBrokarage, Amount,Trasnunit,TransRate,ServicetaxPaidby,TransAmt,Transto,Transfrom,TransWeight,EiTransTruckNo,Despatchmode1,Billtyno Filter: onlyPurvch filter : SelectedHisab [Collection:salesVchBrokarCollct] Type : Voucher ;;s:Ledger child of : $EntryBrokarage Fetch : EntryBrokarage,Amount,Trasnunit,TransRate,ServicetaxPaidby,TransAmt,Transto,Transfrom,TransWeight,EiTransTruckNo,Despatchmode1,Billtyno Filter: onlysalesvch filter : SelectedHisab [System: formula] onlysalesvch : $$IsSales:$vouchertypename onlyPurvch : $$IsPurchase:$vouchertypename [Field :Fvchref] use : name field width : 1.2 inch style : normal [Field : Fvchdate] use : short date field width : .85 inch style : normal align : left [Field :Fvchno] Use : Name field style : Normal width : .85 Inch [Field : Fbrokar] Use : name field style : Normal Width : 1.2 Inch [Field : FBrokerper] Use : name field style : normal width : 1.2 inch align : Left Format : "No zero,no comma,percentage" [Field : Finvtot] Use : number field width : .8 inch Alter : Voucher Format:"Nozero,Nocomma,decimal:2" [Field: Transunit] Use: name field Width: .6 inch Style: small [Field: Servicetaxby] Use: name field Width: .8 inch Style: small [Field: consigno] Use: name field Width: .8 inch Style: small [Field: Servicedespatc] Use: name field Width: .9 inch Style: small ;9831788962 [Field: ReTransportnm] Use: name field Width: 1.2 inch Style: small [Field: Transrate] Use: number field Width: .8 inch Align: Left Format:"Nozero,decimal:2" [Field : Fbrokaramt] use : Number field width : .8 inch align : right format : "no zero,decimal:2" [Field : totFinvtot] Use : Amount field width : 1.5 inch Alter : Voucher [Field : totFbrokaramt] use : Number field width : 1.5 inch align : right format : "no zero,decimal:2" [#Part: MST LED Explode Sundry] ;add : line : after: LED AffectsStock :Enable Brokarage1,Enable Brokarage3 ;;Enable Brokarage2, [Line :Enable Brokarage1] Field : Long Prompt,Isbrokarage local : field :Long Prompt : set as : "Using as Brokarage ?" /*[Line : Enable Brokarage2] field : Long prompt,creatBrokarage local : field : long prompt : set as : "Brokarage Name :" local : field :Long prompt : indent :2 local : field : Long prompt:inactive : $IsBrokarage */ [Line : Enable Brokarage3] field : Long prompt,commfield local : field : long prompt : set as : "Commision :" local : field :Long prompt : indent :2 local : field : Long prompt:inactive : Not $IsBrokarage [Field : Isbrokarage] use : logical field storage :IsBrokarage Set as: If $$IsEmpty:$$Value then "No" else $$Value set always : yes [Field :commfield] use : number field style : normal width : .5 inch align : right storage : prtycommision format : "nozero,nocomma,percentage" Inactive : Not $IsBrokarage ;;************************************************************************************************************** [Collection:Chassiscollection] use : Scenario12Mr ;;List of Ledgers ; Use : Alias Collection Variable : SScenario12MR1 ;;Ledger Name Report : Transporter Detailstruck ;;Agent Commission Trigger : SScenario12MR1 ;;myLedger Analysis Name ; Filter : IsPartyAccount Fetch : budge2testMr ;;Name [Collection: Chassiscollectionpur] use : Scenario12Mr ;;List of Ledgers ; Use : Alias Collection Variable : SScenario12MR1 ;;Ledger Name Report : Transporter Detailspurtrk ;;Agent Commission Trigger : SScenario12MR1 ;;myLedger Analysis Name ; Filter : IsPartyAccount Fetch : budge2testMr [Collection: VehicleCollection] use : Scenario12Vh ;;List of Ledgers ; Use : Alias Collection Variable : SScenario12Vh1 ;;Ledger Name Report : DRCRLEDGER REPORTVh ;;Agent Commission Trigger : SScenario12Vh1 ;;myLedger Analysis Name ; Filter : IsPartyAccount Fetch : budge2testVh [Collection: EngineCollection] use : Scenario12eng ;;List of Ledgers ; Use : Alias Collection Variable : SScenario12Eng1 ;;Ledger Name Report : DRCRLEDGER REPORTEng ;;Agent Commission Trigger : SScenario12Eng1 ;;myLedger Analysis Name ; Filter : IsPartyAccount Fetch : budge2testEng [Variable: SScenario12MR1] [Variable: SScenario12Vh1] [Variable: SScenario12Eng1] [Report:SScenario12MR1] ;;Auto Report Use : mCollection Variable Local : Line : mCollection Variable : Field : DSP Get Godown Name1 Local : Field: mMV Title : Info : $$Sprintf@NameOfGdwn@GdwnTitle ;[Line: DSPGodownName] ; Fields : DSPGetGodownName1 ;Local : Field : Medium Prompt : Info : $$Sprintf@NameOfGdwn@GdwnTitle [Report:SScenario12Vh1] ;;Auto Report Use : VhCollection Variable Local : Line : VhCollection Variable : Field : DSP Get Godown Namevh Local : Field: mMV Title : Info : $$Sprintf@NameOfGdwn@GdwnTitle ;[Line: DSPGodownName] ; Fields : DSPGetGodownName1 ;Local : Field : Medium Prompt : Info : $$Sprintf@NameOfGdwn@GdwnTitle [Report:SScenario12Eng1] ;;Auto Report Use : EngCollection Variable Local : Line : EngCollection Variable : Field : DSP Get Godown NameEng Local : Field: mMV Title : Info : $$Sprintf@NameOfGdwn@GdwnTitle ;[Line: DSPGodownName] ; Fields : DSPGetGodownName1 ;Local : Field : Medium Prompt : Info : $$Sprintf@NameOfGdwn@GdwnTitle [Field: DSP Get Godown Name1] Use : Name Field Table :Scenario12Mr Show Table : Always ; Key : Scenario12Mr ; Set as : if ##DSPGodownName = "" then $$SysNamerimary else ##DSPGodownName Modifies : SScenario12MR1 CommonTable : No [Field: DSP Get Godown Namevh] Use : Name Field Table :Scenario12Vh Show Table : Always ; Key : Scenario12Mr ; Set as : if ##DSPGodownName = "" then $$SysNamerimary else ##DSPGodownName Modifies : SScenario12Vh1 CommonTable : No [Field: DSP Get Godown NameEng] Use : Name Field Table :Scenario12Eng Show Table : Always ; Key : Scenario12Mr ; Set as : if ##DSPGodownName = "" then $$SysNamerimary else ##DSPGodownName Modifies : SScenario12Eng1 CommonTable : No [Report: mCollection Variable] Use : mModify Variables Title : $$LocaleString:"Select Item" Local : Form : mModify Variables : Vertical Align : Top Local : Part : mModify Variables : Lines : mCollection Variable Local : Collection: Default : Align : Centre [Report:VhCollection Variable] Use : VhModify Variables Title : $$LocaleString:"Select Item" Local : Form : VhModify Variables : Vertical Align : Top Local : Part : VhModify Variables : Lines : vhCollection Variable Local : Collection: Default : Align : Centre [Report:EngCollection Variable] Use : EngModify Variables Title : $$LocaleString:"Select Item" Local : Form : EngModify Variables : Vertical Align : Top Local : Part : EngModify Variables : Lines : EngCollection Variable Local : Collection: Default : Align : Centre [Line: mCollection Variable] [Line: vhCollection Variable] [Line: EngCollection Variable] [Report: mModify Variables] ;; Auto Report Auto : Yes Form : mModify Variables Title : $$LocaleString:"Modify Variables" Variable: SVCurrentCompany [Report: VhModify Variables] ;; Auto Report Auto : Yes Form : VhModify Variables Title : $$LocaleString:"Modify Variables" Variable: SVCurrentCompany [Report: EngModify Variables] ;; Auto Report Auto : Yes Form : EngModify Variables Title : $$LocaleString:"Modify Variables" Variable: SVCurrentCompany [Form: mModify Variables] No Confirm : Yes Space Top : 0.5 Space Left : 1 Space Right : 1 Full Width : No Full Height : No Vertical Align : Centre Parts : mMV Title, mModify Variables Local : Line : Default : Space Bottom : 0.5 Local : Line : SVBudget : Space Bottom : 0 Local : Line : DSPOrderCombo : Space Bottom : 0 [Form: VhModify Variables] No Confirm : Yes Space Top : 0.5 Space Left : 1 Space Right : 1 Full Width : No Full Height : No Vertical Align : Centre Parts : VhMV Title, VhModify Variables Local : Line : Default : Space Bottom : 0.5 Local : Line : SVBudget : Space Bottom : 0 Local : Line : DSPOrderCombo : Space Bottom : 0 [Form: EngModify Variables] No Confirm : Yes Space Top : 0.5 Space Left : 1 Space Right : 1 Full Width : No Full Height : No Vertical Align : Centre Parts : EngMV Title, EngModify Variables Local : Line : Default : Space Bottom : 0.5 Local : Line : SVBudget : Space Bottom : 0 Local : Line : DSPOrderCombo : Space Bottom : 0 [Part:m MV Title] Lines : mMV Title Space Bottom: 0.5 [Part:VhMV Title] Lines : VhMV Title Space Bottom: 0.5 [Part:EngMV Title] Lines : EngMV Title Space Bottom: 0.5 [Part: mModify Variables] HorizontalAlign : Centre [Part: VhModify Variables] HorizontalAlign : Centre [Part: EngModify Variables] HorizontalAlign : Centre [Line : mMV Title] Field : mMV Title [Line : VhMV Title] Field : VhMV Title [Line : EngMV Title] Field : EngMV Title [Field: mMV Title] FullWidth : Yes Align : Centre Case : Title Style : Normal Bold Border : Thin Bottom Skip : Yes Fixed : Yes [Field: VhMV Title] FullWidth : Yes Align : Centre Case : Title Style : Normal Bold Border : Thin Bottom Skip : Yes Fixed : Yes [Field: EngMV Title] FullWidth : Yes Align : Centre Case : Title Style : Normal Bold Border : Thin Bottom Skip : Yes Fixed : Yes [report :Scenario12Mr] use :Agent Commission [system : formula] filterbrok : $IsBrokarage [system : udf] IsBrokarage : logical : 2 [Key: Create Portmr] Key : Alt+C Action : Create : PORT MASTERmr [Key: Alter PortMr] Key : Ctrl+Enter Action : Alter : PORT MASTERMr [Collection: Scenario12Mr] Use : Alias Collection Title : $$LocaleString:"Truck No." Type : budget filter : mrfilter Report : PORT MASTERMr Variable : SScenario12Mr [Variable: SScenario12MR] Table : Scenario12Mr [System: formula] mrfilter : $budge2testMr = "Truck No." [Report: PORT MASTERMr] Family : $$LocaleString:"Accounts Masters" Use : Master Report Object : Budget Local : Collection : Company : Filter : HasBudgets Variable : MVSetSortPosition, UseAliasesInMaster Set : MVSetSortPosition : No Set : UseAliasesInMaster: No Form : Scenario12Mr [Form: Scenario12Mr] Use : Master Accounting Form Normal Color: White, Lily White ;; Output : MSTName12 Top Parts : p2Mr , MST Basic ,ScenarioBasic ;;,p2123 Local : Button : Master Budget : Inactive : Yes Local : Field : MST Name12 : Control : NoActuals : $$Value = @@ActualStr [part2Mr] line:line2p2Mr ;;,line2p2 [line:line2p2Mr] Space bottom:1 field:f2p2mr,f2p3mr [field:f2p2mr] Use : name field Storage : budge2testMr Set as : "Truck No." Skip : yes width:1.2 inch [field:f2p3Mr] Use : name field ;;Storage : budge2test Set as : "MASTER" Skip : yes width:1 inch ;;***************************************************** [Key: Create PortVh] Key : Alt+C Action : Create : PORT MASTERVh [Key: Alter PortVh] Key : Ctrl+Enter Action : Alter : PORT MASTERVh [Collection: Scenario12Vh] Use : Alias Collection Title : $$LocaleString:"Vehicle Regn. No." Type : budget filter : mrfilterVh Report : PORT MASTERVh Variable : SScenario12Vh [Variable: SScenario12Vh] Table : Scenario12Vh [System: formula] mrfilterVh : $budge2testVh = "Vehicle Regn. No." [Report: PORT MASTERVh] Family : $$LocaleString:"Accounts Masters" Use : Master Report Object : Budget Local : Collection : Company : Filter : HasBudgets Variable : MVSetSortPosition, UseAliasesInMaster Set : MVSetSortPosition : No Set : UseAliasesInMaster: No Form : Scenario12Vh [Form: Scenario12Vh] Use : Master Accounting Form Normal Color: White, Lily White ;; Output : MSTName12 Top Parts : p2Vh , MST Basic ,ScenarioBasic ;;,p2123 Local : Button : Master Budget : Inactive : Yes Local : Field : MST Name12 : Control : NoActuals : $$Value = @@ActualStr [part2Vh] line:line2p2Vh ;;,line2p2 [line:line2p2Vh] Space bottom:1 field:f2p2Vh,f2p3Vh [field:f2p2Vh] Use : name field Storage : budge2testVh Set as : "Vehicle Regn. No." Skip : yes width:1.2 inch [field:f2p3Vh] Use : name field ;;Storage : budge2test Set as : "MASTER" Skip : yes width:1 inch ;;************************************************************************************ [Key: Create PortEng] Key : Alt+C Action : Create : PORT MASTEREng [Key: Alter PortEng] Key : Ctrl+Enter Action : Alter : PORT MASTEREng [Collection: Scenario12Eng] Use : Alias Collection Title : $$LocaleString:"Vehicle Regn. No." Type : budget filter : mrfilterEng Report : PORT MASTEREng Variable : SScenario12Eng [Variable: SScenario12Eng] Table : Scenario12Eng [System: formula] mrfilterEng : $budge2testEng = "Engine No." [Report: PORT MASTEREng] Family : $$LocaleString:"Accounts Masters" Use : Master Report Object : Budget Local : Collection : Company : Filter : HasBudgets Variable : MVSetSortPosition, UseAliasesInMaster Set : MVSetSortPosition : No Set : UseAliasesInMaster: No Form : Scenario12Eng [Form: Scenario12Eng] Use : Master Accounting Form Normal Color: White, Lily White ;; Output : MSTName12 Top Parts : p2Eng , MST Basic ,ScenarioBasic ;;,p2123 Local : Button : Master Budget : Inactive : Yes Local : Field : MST Name12 : Control : NoActuals : $$Value = @@ActualStr [part2Eng] line:line2p2Eng ;;,line2p2 [line:line2p2Eng] Space bottom:1 field:f2p2Eng,f2p3Eng [field:f2p2Eng] Use : name field Storage : budge2testEng Set as : "Engine No." Skip : yes width:1.2 inch [field:f2p3Eng] Use : name field ;;Storage : budge2test Set as : "MASTER" Skip : yes width:1 inch [system : udf] budge2testMr :string : 3016 budge2testVh :string : 3017 budge2testEng :string : 3018
Dear All, In Income wise report there is problem in income ledger filter. but problem is solved so find the attached code.
Tally TDE samples has enough for learning purposes. I've done the same and so should you also learn from there...... you do need the above code to learn....