BROKER

Discussion in 'Free Source Codes' started by Ejajkhan, Aug 12, 2017.

    
  1. Ejajkhan

    Ejajkhan New Member


    [#Part: MSTLED Initial]
    [#Line: MST Parent]



    [#Part: MST LED Explode Sundry]
    Add: Line: At End: brokerbank1,brokerbank2,brokerbank3,brokerbank4 ;,brokerbank5


    [Line:brokerbank1]
    Field: short name field, brokerbank
    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:brokerbank2]
    Field: short name field, brokerbank1
    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:brokerbank3]
    Field: short name field, brokerbank2
    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:brokerbank4]
    Field: short name field, brokerbank3
    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:brokerbank5]
    Field: short name field, brokerbank4
    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:brokerbank]
    Use: name field
    Storage: brokerBankName
    Set Always: Yes


    [Field:brokerbank1]
    Use: name field
    Storage: brokerBankac
    Set Always: Yes


    [Field:brokerbank2]
    Use: name field
    Storage: brokerBankBranch
    Set Always: Yes


    [Field:brokerbank3]
    Use: name field
    Storage: brokerBankRtgs
    Set Always: Yes

    [Field: brokerbank4]
    Use: name field
    Sub Form: brokerTruckNo

    [Report:brokerTruckNo]
    Form: brokerTruckNo
    [Form: brokerTruckNo]
    Part: brokerTruckNo
    Width: 15% Page
    Height: 30% Page


    [Part: brokerTruckNo]
    Line:brokerTruckNo1,brokerTruckNo2
    Repeat: brokerTruckNo2:brokerTruckNo
    Scroll: Vertical
    Break On: $$IsEmpty:$brokerTruckNo

    [Line:brokerTruckNo1]
    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:brokerTruckNo2]
    Field: brokerPTruckno

    [Field: brokerPTruckno]
    Use: name field
    Storage: brokerTruckNo
    Set Always: Yes




    [System: udf]
    brokerBankName : String: 200
    brokerBankac : String: 201
    brokerBankBranch:String:202
    brokerBankRtgs : String: 203
    EibrokerTruckNo : String: 206
    brokerQUANTIEY : Quantity: 207
    brokerfrom : String: 208
    brokerto : String: 209
    brokerAmt: Amount: 210
    brokerYesno : Logical: 211
    ServicetaxPaidby : String: 212
    brokerRate : Number: 213
    Brokerunit : String: 214



    [System: udf]
    brokerTruckNo:Aggregate:204
    brokerTruckNo:String:205

    [Collection: TruckNocollect]
    Title:$$LocaleString:"Truck No List"
    Type:brokerTruckNo:Ledger
    Child Of:$EntryBrokarage
    Format: $brokerTruckNo,20


    [Collection: TruckNocollectall]
    Use: TruckNocollect
    Title:$$LocaleString:"Truck No List"
    ;Type: Ledger ;;TruckNocollectall
    Report: brokerTruckNo
    Variable: brokerTruckNo

    [Variable: brokerTruckNo]
    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,EibrokerYesno,brokersub

    Local: Field: name field : Set as:"broker Details ?"
    Local: Field: name field : Skip: Yes

    [Field: EibrokerYesno]
    Use: logical field
    Storage: brokerYesno
    Set Always: Yes

    [Field: brokersub]
    Use: name field
    Width: 1 inch
    Sub Form: EivishalBroker
    Inactive: Not $brokerYesno
    Set Always: Yes


    [Report: EivishalBroker]
    Form: EivishalBroker

    [Form: EivishalBroker]
    Part: EivishalBroker
    Width: 80% page

    [Part: EivishalBroker]
    Line:EivishalBroker,EivishalBroker1,EivishalBroker2,EivishalBroker3

    [Line: EivishalBroker]
    Field: name field
    Local: Field: name field: Set as:"brokerport Details"
    Local: Field: name field : Skip: Yes
    Local: Field: name field : Full Width: Yes
    Local: Field: name field : Align : Centre

    [Line: EivishalBroker1]
    field : Short prompt, name field, Fromtile, brokertot,short name field,EibrokerrateT, brokeramtT ;;EibrokerUnitT,
    local : field : short prompt : set as : "broker 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 : "QUANTIEY "
    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: EivishalBroker2]
    field : entbrokarage, brokarageper, brokerFrom, brokerto,commAmt,Eibrokerrate, brokeramt ;;EibrokerUnit,
    Local: Field: default : Style: small bold

    [Line: EivishalBroker3]
    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 : brokerportname ;brokarageparty
    Show Table : Always
    width : 1.5 inch
    storage : EntryBrokarage
    set always : yes

    [Collection: brokerportname]
    Title: $$LocaleString:"broker Name"
    Type: Ledger

    Child Of:"broker"



    [Field : brokarageper]
    Use : Name field
    style : normal
    ;Table: TruckNocollect
    Width: 1.2 inch
    storage : EibrokerTruckNo
    ;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 : brokerQUANTIEY
    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:brokerFrom]
    Use: name field
    Width: 1.5 inch
    Set as:"."
    Storage: brokerfrom
    Set Always: Yes

    [Field: brokertot]
    Use: short name field
    Width: 1.5 inch
    Set as: "From/To "
    Skip: Yes
    Style: small

    [Field: brokerto]
    Use: name field
    Width: 1.5 inch
    Set as: "."
    Storage: brokerto
    Set Always: Yes

    [Field: brokeramtT]
    Use: short name field
    Width: 1 inch
    Set as: "Amount "
    Skip: Yes
    Style: small

    [Field: EibrokerUnitT]
    Use: name field
    Width: .5 inch
    Style: small bold
    Set as: "Unit"
    Skip: Yes

    [Field: EibrokerUnit]
    Use: name field
    Width: .5 inch
    Style: small bold
    Storage: Brokerunit
    Set Always: Yes



    [Field: EibrokerrateT]
    Use: name field
    Width: .85 inch
    Style: small bold
    Set as: "Rate"
    Skip: Yes


    [Field: Eibrokerrate]
    Use: number field
    Width: .85 inch
    Style: small bold
    Format:"Nozero,decimal:2"
    Storage: brokerRate
    Set Always: Yes



    [Field: brokeramt]
    Use: Amount field
    Set as: $brokerRate* $$Number:$brokerQUANTIEY
    Storage: brokerAmt
    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 broker"





    [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 : broker Details : $$IsAccountingOn:$$CurrentCompany


    [system : formula]
    locStatementsofAgent : $$LocaleString:"broker Details"
    locAgent :$$LocaleString:"Truck No. Wise"
    locAgent2 :$$LocaleString:"broker Report for Sales"
    ;salesBrokerports : $$LocaleString:"broker Detais For Sales"
    PurchaseBrokerports :$$LocaleString:"broker Detais For Purchase"
    locAgent3 : $$LocaleString:"broker Report for Purchase"
    [Menu :broker Details]
    ;Indent: @@salesBrokerports
    ; 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: @@PurchaseBrokerports

    ; 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 : broker Details
    Trigger : myLedger Analysis Name
    Filter : IsPartyAccount
    Fetch : Name

    [Collection: Scollectionpur]
    use : List of Ledgers ;;List of Ledgers
    Variable : Ledger Name
    Report : broker 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 :broker Details]
    Use : Dsp template
    Form : BrokarForm


    [Report :broker Detailstruck]
    Use : Dsp template
    Form : BrokarFormTruck


    [Report :broker Detailspur]
    Use : Dsp template
    Form : BrokarFormpur

    [Report :broker Detailspurtrk]
    Use : Dsp template
    Form : BrokarFormpurTrk


    [Report :vishalsal]
    Use : Dsp template
    Form : all BrokarForm
    Add: Variable: SelectedHisab
    Set:SelectedHisab : $$SysName:NotApplicable
    Title: $$LocaleString:"broker Details"

    [Report: vishalpur]
    Use : Dsp template
    Form : all PurBrokarForm
    Add: Variable: SelectedHisab
    Set:SelectedHisab : $$SysName:NotApplicable
    Title: $$LocaleString:"broker 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:"broker"
    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 : brokerportname, 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 : brokerportname, 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 $EibrokerTruckNo 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 : "broker 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,brokerunit,brokerrate,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 : "QUANTIEY"
    Local: Field: brokerunit : Set as: "Unit"
    Local: Field: brokerrate : Set as: "Rate"
    local : field : Fbrokaramt : set as : "Amount"
    Border : Totals

    [Line : alllntitle]
    fields : Fvchno,Fvchdate,Rebrokerportnm,Fbrokar ,Fvchref,FBrokerper,Servicetaxby,consigno
    Right fields : Servicedespatc,Finvtot,brokerunit,brokerrate,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: Rebrokerportnm : Set as: "broker 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 : "QUANTIEY"
    Local: Field: brokerunit : Set as: "Unit"
    Local: Field: brokerrate : 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,brokerunit,brokerrate,Fbrokaramt
    local : field : Fvchno : set as : $VoucherNumber
    local : field : Fvchref : set as : $brokerfrom
    local : field : Fvchdate : set as : $Date
    local : field : Fbrokar : set as : $EibrokerTruckNo
    local : field : FBrokerper : set as :$brokerto
    Local: Field: Servicetaxby : Set as: $ledgername
    Local: Field: consigno : Set as:$Billtyno
    Local: Field: Servicedespatc : Set as:$Despatchmode1
    Local : field : Finvtot : set as : $brokerQUANTIEY
    Local: Field: brokerunit : Set as:$Brokerunit
    Local: Field: brokerrate : Set as:$brokerRate
    Local : field : Fbrokaramt : set as :$brokerAmt
    Option : AlterOnEnter : $$IsVoucher
    ;;empty : $$Isempty:$EntryBrokarage
    empty : #LedgerName != $EntryBrokarage ;;$Partyledgername
    Billtyno
    ;;Brokerunit,brokerRate,ServicetaxPaidby,brokerAmt,brokerto,brokerfrom,brokerQUANTIEY,EibrokerTruckNo

    [Line : BrokarbodylnTrack]
    fields : Fvchno,Fvchdate ,Fbrokar ,Fvchref,FBrokerper,Servicetaxby,consigno
    Right fields :Servicedespatc, Finvtot,brokerunit,brokerrate,Fbrokaramt
    local : field : Fvchno : set as : $VoucherNumber
    local : field : Fvchref : set as : $brokerfrom
    local : field : Fvchdate : set as : $Date
    local : field : Fbrokar : set as : $EibrokerTruckNo
    local : field : FBrokerper : set as :$brokerto
    Local: Field: Servicetaxby : Set as: $ledgername
    Local: Field: consigno : Set as:$Billtyno
    Local: Field: Servicedespatc : Set as:$Despatchmode1
    Local : field : Finvtot : set as : $brokerQUANTIEY
    Local: Field: brokerunit : Set as:$Brokerunit
    Local: Field: brokerrate : Set as:$brokerRate
    Local : field : Fbrokaramt : set as :$brokerAmt
    Option : AlterOnEnter : $$IsVoucher
    ;;empty : $$Isempty:$EntryBrokarage

    empty : ##SScenario12MR1!=$EibrokerTruckNo
    ;;Brokerunit,brokerRate,ServicetaxPaidby,brokerAmt,brokerto,brokerfrom,brokerQUANTIEY,EibrokerTruckNo

    [Line : BrokarbodylnTrk]
    fields : Fvchno,Fvchdate ,Fbrokar ,Fvchref,FBrokerper,Servicetaxby,consigno
    Right fields : Servicedespatc,Finvtot,brokerunit,brokerrate,Fbrokaramt
    local : field : Fvchno : set as : $VoucherNumber
    local : field : Fvchref : set as : $brokerfrom
    local : field : Fvchdate : set as : $Date
    local : field : Fbrokar : set as : $EibrokerTruckNo
    local : field : FBrokerper : set as :$brokerto
    Local: Field: Servicetaxby : Set as: $ledgername
    Local: Field: consigno : Set as:$Billtyno
    Local: Field: Servicedespatc : Set as:$Despatchmode1
    Local : field : Finvtot : set as : $brokerQUANTIEY
    Local: Field: brokerunit : Set as:$Brokerunit
    Local: Field: brokerrate : Set as:$brokerRate
    Local : field : Fbrokaramt : set as :$brokerAmt
    Option : AlterOnEnter : $$IsVoucher
    ;;empty : $$Isempty:$EntryBrokarage

    empty : ##SScenario12MR1!=$EibrokerTruckNo


    [Line : allBrokarbodyln]
    fields : Fvchno,Fvchdate ,Rebrokerportnm,Fbrokar ,Fvchref,FBrokerper,Servicetaxby,consigno
    Right fields : Servicedespatc,Finvtot,brokerunit,brokerrate,Fbrokaramt
    local : field : Fvchno : set as : $VoucherNumber
    local : field : Fvchref : set as : $stockItemName
    local : field : Fvchdate : set as : $Date
    Local: Field: Rebrokerportnm : Set as: $EntryBrokarage
    local : field : Fbrokar : set as : $EibrokerTruckNo
    local : field : FBrokerper : set as :$brokerto
    Local: Field: Servicetaxby : Set as: $ledgername
    Local: Field: consigno : Set as:$Billtyno
    Local: Field: Servicedespatc : Set as:$Despatchmode1
    Local : field : Finvtot : set as : $brokerQUANTIEY
    Local: Field: brokerunit : Set as:$Brokerunit
    Local: Field: brokerrate : Set as:$brokerRate
    Local : field : Fbrokaramt : set as :$brokerAmt
    Option : AlterOnEnter : $$IsVoucher
    empty : $$Isempty:$EntryBrokarage

    ;


    [Part : prtbottom]

    Line :broktot

    [Line : broktot]
    fields : Fvchno,Fvchref,Fvchdate, Fbrokar
    Right fields : FBrokerper,totFinvtot,totFbrokarunit
    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,Brokerunit,brokerRate,ServicetaxPaidby,brokerAmt,brokerto,brokerfrom,brokerQUANTIEY,EibrokerTruckNo,Despatchmode1,Billtyno
    Filter: salesvch

    [Collection : VchBrokarCollctpur]
    Type : Voucher ;;s:Ledger
    child of : $EntryBrokarage
    Fetch :EntryBrokarage, Amount,Brokerunit,brokerRate,ServicetaxPaidby,brokerAmt,brokerto,brokerfrom,brokerQUANTIEY,EibrokerTruckNo,Despatchmode1,Billtyno

    Filter: onlyPurvch
    filter : SelectedHisab

    [Collection:salesVchBrokarCollct]
    Type : Voucher ;;s:Ledger
    child of : $EntryBrokarage
    Fetch : EntryBrokarage,Amount,Brokerunit,brokerRate,ServicetaxPaidby,brokerAmt,brokerto,brokerfrom,brokerQUANTIEY,EibrokerTruckNo,Despatchmode1,Billtyno

    Filter: salesvch
    filter : SelectedHisab

    [System: formula]
    salesvch : $$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: brokerunit]
    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: Rebrokerportnm]
    Use: name field
    Width: 1.2 inch
    Style: small


    [Field: brokerrate]
    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 : unit field
    width : 1.5 inch
    Alter : Voucher


    [Field : totFbrokarunit]
    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 : broker 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 : broker 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










    [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





    [system : udf]
    budge2testMr :string : 3016
    budge2testVh :string : 3017
    budge2testEng :string : 3018
     


  2. mpal2311

    mpal2311 Active Member


    How to use this TDL.
     


  3. Ejajkhan

    Ejajkhan New Member


    THIS TDL IS TRANSPORT
     


  4. Mahesh Agarwal

    Mahesh Agarwal New Member


    Please explain, how to fill broker details?
     


  5. amit g

    amit g New Member


    errors in it
    127/128 broker truck no..
     


  6. itsanurag

    itsanurag New Member


    error 127/128 please give solution
     


  7. ahiq

    ahiq New Member


    how to create broker name pls tell me sir
     


  8. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Open Ledger under GROUP "Truck Track" ..... any ledger opened under this group is a BROKER
     


  9. ahiq

    ahiq New Member


    Good morning Amit sir I triad but its not working sir, please tell me How To create Broker Ledger sir,
     


  10. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    I have already told you............How to...............
     


  11. ahiq

    ahiq New Member


    ok thank you Amit sir
     


  12. udaya

    udaya Active Member


    sir i did not get ?????? pls tell me which group under "Truck Track" group ???????
     


  13. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Sundry Creditors ►► Truck Track ►► <Ledger accounts>
     


  14. udaya

    udaya Active Member


    thanks sir.....
     


  15. PANKAJ CHANDAK

    PANKAJ CHANDAK New Member


    broker field which under group
     


  16. ritesh_cal2

    ritesh_cal2 New Member


    not working opened group Truck track still not working, can you help !
     



  17. This is exact requirement for tdddb data base. Put payment and receipt in tally all non financial data can be put in tdddb.
     


Share This Page