Tally Chapter 205 TDL for Transporter Details By Rajiv Mishra Computer Class
Few Lines are Missing Here
Pls Watch the video to get full coding.
[#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 : Align:prompt
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 : Align:prompt
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 : Align:prompt
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 : Align:prompt
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 : Align:prompt
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 :Delete: 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
Storage:Despatchmode1
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:mad:@Aspendemo1
[!Menu:vishal]
add : Key Item :before:mad:@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
Delete:page Break
add:page 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 :DSP 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:mad:@NameOfGdwn:mad:@GdwnTitle
;[Line: DSPGodownName]
; Fields : DSPGetGodownName1
;Local : Field : Medium Prompt : Info : $$Sprintf:mad:@NameOfGdwn:mad:@GdwnTitle
[Report:SScenario12Vh1] ;;Auto Report
Use : VhCollection Variable
Local : Line : VhCollection Variable : Field : DSP Get Godown Namevh
Local : Field: mMV Title : Info : $$Sprintf:mad:@NameOfGdwn:mad:@GdwnTitle
;[Line: DSPGodownName]
; Fields : DSPGetGodownName1
;Local : Field : Medium Prompt : Info : $$Sprintf:mad:@NameOfGdwn:mad:@GdwnTitle
[Report:SScenario12Eng1] ;;Auto Report
Use : EngCollection Variable
Local : Line : EngCollection Variable : Field : DSP Get Godown NameEng
Local : Field: mMV Title : Info : $$Sprintf:mad:@NameOfGdwn:mad:@GdwnTitle
;[Line: DSPGodownName]
; Fields : DSPGetGodownName1
;Local : Field : Medium Prompt : Info : $$Sprintf:mad:@NameOfGdwn:mad:@GdwnTitle
[Field: DSP Get Godown Name1]
Use : Name Field
Table :Scenario12Mr
Show Table : Always
; Key : Scenario12Mr
; Set as : if ##DSPGodownName = "" then $$SysName:primary 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 $$SysName:primary 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 $$SysName:primary 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
[part:p2Mr]
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
[part:p2Vh]
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
[part:p2Eng]
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
टिप्पणियाँ
एक टिप्पणी भेजें