Tally Chapter 151 TDL for Salesman Wise Entry Report with Filter By Rajiv Mishra Computer Class

 

Few lines are missing here. Watch the Video to get full Coding.

[#Menu        : Accounts Info.]

Add : Item : Sales man : Menu : Salesman Menu

[Menu: Salesman Menu]

Add : Item : Salesman Master : Alter : Salesman Name

[Report: Salesman Name]

Form : Salesman Name

Object : Company

[Form: Salesman Name]

Part : FormSubTitle, Salesman

;Button : Delete All, Remove Line, Restore Line, Restore All,Report Operations

FullWidth : No

Height : 90% Screen

Background : @@SV_CHEQUE

SpaceRight : 0.5

SpaceLeft : 1.5

Local : Field : Form SubTitle : Info : $$LocaleString:"Salesman Name"

Option : Small Size Form

[Part: Salesman]

Lines : CMP Salesman

Repeat : CMP Salesman:mydbSalesman

Break on: $$IsEmpty:$SalesmanName

Scroll : Vertical

Height : 90% Screen

[Line: CMP Salesman]

Fields : Multi SNo, CMPSalesman Name

Local : Field : Default : Delete : Border

[Field: CMPSalesman Name]

Use : Short Name Field

Storage : Salesman Name

Unique : Yes

[System: UDF]

mydbSalesman : Aggregate: 979

Salesman Name : String : 1003 ;: Yes

[Collection : Salesman NameCollection]

Type : mydbSalesman : Company

Childof : ##SVCurrentCompany

Format : $SalesmanName, 15

Title : Salesman_name

   

;------------------------------- during Purchase voucher

   

[#Part:DBLLINE Narration]

    Option: EI Freightman: $$IsSales:##SVVoucherType

[!Part: EI Freightman]

   Add    : Line: Freightman

  

[Line: Freightman]

    Add: Field: lblTruckno, CommBro, lblStation, fldStation

Border: Thin Box

[System    : UDF]

    CWTRUCKNO   :String    : 58504

    CWSTATION   :String    : 58506

      

      

   

[Field: lblTruckno]

    Info: "Sales Man :"

    color : WHITE

    Width: 9

    Style: normal bold

    Background:BLUE

[Field: CommBro]

    Use : Name Field

    Width: 12

    Set as    : $CWTRUCKNO

    Storage: CWTRUCKNO

    Table : Salesman NameCollection, not applicable

    Show Table: Always

    Color: blue

[Field: lblStation]

    Info: "Remarks :"

    Width: 10

    color : white

Style: normal bold

Background:DARK RED

[Field: fldStation]

       

    Use : Name Field

    Width: 25

        Set as    : $CWSTATION

    Storage: CWSTATION

        Color: DARK RED

;-----------------------

[#Line: DBTitle1]   

Add : Right Field    : At Beginning : BILLCol25

Local : Field    : BILLCol25 : Set as    : "Salesman"

Local : Field : Default : Style : Normal Bold

Local:Field:BILLCol25:Align:Centre

[#Line: DSP VchDetail]   

Add    : Right Field: At Beginning: BILLCol25

   

[Field    : BILLCol25]

   

    Use    : Name Field

    Set as    : $CWTRUCKNO

    Set Always    : Yes   

    Align    : Left

    Width    : 9

    Style    : Small Bold

[#Collection: MethodTable]   

Add:Object : TrackMethodFirm

   

[#Line: DSP VchDybkDetail]

Add: Right Fields: Before: Refnobb :Refnobx

[Field:Refnobx]

                Use :Name Field

                Set As : $CWTRUCKNO

                Width : 9

                Align:right

                color : geranium

                Style : Normal bold

                Border: Thin Left

[#Collection: Daybook Vouchers of Company]

                Fetch: CWTRUCKNO              

[#Collection: Filtered Vouchers of Company]

                Fetch: CWTRUCKNO