Complete Transport Details TDL Code

Guys this is for you, complete transport details TDL, but i have edited several times according to my requirement. I have changed bank details TDl to transport details. you people could do the same.

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 : set as : "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

 

Guys create transporter name under group transporter (current liabilities)

 

not working in talyERP9 rel 1.1

 

THANKS GUYS

 

Buy original tally, working in Tally erp version 4. I will upload screenshot.

 

Hey guys for your confirmation ,see the screenshots of my Transport TDL. It works in original ver of Tally above 4.

 

WHERE WE PROVIDE BANK DETAILS I.E. BANK ACCOUNT, IFSC CODE ETC.

 

This tdl is for transport details.

 

For bank details tally erp has now auto facility

 

Dear admin please add something in this code like if I want to add unloading quantity but only through report, I.e. I don't want to go to purchase sale voucher again.

 

Dear Experts,
Its really not working in Tally.erp9.1 r1 . how can i do it???

Plz help me...!!

 

Buy original tally.
Or you can try it just by changing system date in tdl.

 

Guys give me idea, how to add new field in this report, so that I can save in report voucher.

 

this tcp working in Tally ERP9 rel 1.1

 

Upload screenshot if this Tdl is working in tally erp rel 1.1

 

screen shot rel 1.1

 

screen shot of re l1.1

 

OK thanks

 

Check if this tdl is working in tally 9

 

Good TDL sir, I like it..........

 

Dear All, please help me, how to add new field in report voucher Where can I put and save values directly, ie without going to sales/purchase voucher.

 

Good TDL sir, but i required this type field in stock journal voucher , Shift, Operator

 

Can anybody help me....... How to alter rate/amount from reporting form , i.e. without going to purchase/sales voucher/invoice screen.

 

Can anyone help me

 

Please help.

Guys I'm unable to fetch purchase order number with this string "$BasicPurchaseOrderNo".