1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

TDL error

Discussion in 'Free Source Codes' started by PRAPTI, Mar 24, 2019.

    
  1. PRAPTI

    PRAPTI Member


    Code:
    [#Menu: Gateway Of Tally]
Add : Item : Contact List : Menu : QuotationMenu

[Menu: QuotationMenu]
Add : Item :Contact List : Alter : Contact Name


[Report: Contact Name]
Form : Contact Name
Object : Company
Variable : vContactName : String
Set : vContactName : ""

[Form: Contact Name]
Part : FormSubTitle, Contactman
;Button : Delete All, Remove Line, Restore Line, Restore All,Report Operations
Width : 95% Screen
Height : 100% Screen
Background : @@SV_CHEQUE
Local : Field : Form SubTitle : Info : $$LocaleString:"CONTACT LIST"
Local    : Field : Form SubTitle        : Color          : LeafGreen
Local: Field:Form SubTitle    : Style    : Large SerIf Bold  
Buttons     : PrintButton, ExportButton
Add: Button: ContactNamefilter

[Part: Contactman]
Lines : PKM Title,PKM Salesman
Repeat : PKM Salesman:mydbcontactperson
Break on: $$IsEmpty:$contactNamedetails
Scroll : Vertical
Height : 90% Screen


[Line: PKMTitle]
    Fields:SrNoFld, ContactNameFld, ContactMobFld,ContactEmailFld
    Border:Thick Bottom

[Field:SrNoFld]
    Use:Name Field
    Set as:"Sr.No."
    Width:5% Screen
    Style:Large Bold
    Color:"Yellow"
    Read Only:Yes
    Skip:Yes
    Align:Center
    Background :"Blue"
    Border:Thin Right  

[Field: ContactNameFld]
    Use:Name Field
    Set as:"Contact Name"
    Width:50% Screen
    Color:"Yellow"
    Read Only:Yes
    Skip:Yes
    Style:Large Bold
    Align:Center
    Background :"Blue"
    Border:Thin Right

[Field: ContactMobFld]
    Use:Name Field
    Set as:"Contact No."
    Width:10% Screen
    Color:"Yellow"
    Read Only:Yes
    Skip:Yes
    Style:Large Bold
    Align:Center
    Background :"Blue"
    Border:Thin Right

[Field: ContactEmailFld]
    Use:Name Field
    Set as:"E - Mail"
    Width:30% Screen
    Color:"Yellow"
    Read Only:Yes
    Skip:Yes
    Style:Large Bold
    Align:Center
    Background :"Blue"
    Border:Thin Right

[Line: PKM Salesman]
Fields : PKMSNo, PKMSalemanName,PKMSalemanMob,PKMSalemanEmail
Border: Thin Box

[Field:PKMSNo]
Use:Number Field
Set as:$$Line
Read Only:Yes
Skip Forward:Yes
Width:5% Screen
Border:Thin Box
Align:Center

[Field: PKMSalemanName]
Use : Short Name Field
Storage : contactNamedetails
Unique : Yes
Width : 50% Screen
Border:Thin Box

[Field: PKMSalemanMob]
Use : Short Name Field
Storage : SalemanMob
Unique : Yes
Width:10% Screen
Style   : Normal Bold
Border:Thin Box

[Field: PKMSalemanEmail]
Use : Short Name Field
Storage : SalemanEmail
Unique : Yes
Width:30% Screen
Style   : Normal
Case : Lower Case
Color:Blue

[System: UDF]
mydbcontactperson : Aggregate: 998
contactNamedetails : String : 1200 ;: Yes
SalemanMob:String: 1300  ;: Yes
SalemanEmail:String: 1301  ;: Yes

[Collection : SalemanMobCollection]
Childof : ##SVCurrentCompany

[Collection : ContactNameCollection]
Type : mydbcontactperson : Company
Childof : ##SVCurrentCompany
Add : SubTitle :$$LocaleString:"Contact Name"
Add : Format : $contactNamedetails, 50
Title : CONTACT LIST(Create New Contact = Alt+C)
FullHeight  : Yes


[Button:ContactNamefilter]
Key : F4
Action : Alter: ContactNamefilter
Title : Contact List

[Report:ContactNamefilter]
Form : ContactNamefilter

[Form:ContactNamefilter]
Part : ContactNamefilter
No Confirmation : Yes

[Part:ContactNamefilter]
Line : ContactNamefilter

[Line:ContactNamefilter]
Field : Medium Prompt,ContactNamefilter
Option : alter on enter
Local : Field : Medium Prompt : Set as : "Select Contact Name: "
Local : Field : Medium Prompt     : Color :Blue
Local : Field : Medium Prompt : Style :Normal Bold

[Field:ContactNamefilter]
Table : ContactNameCollection1,EndOfList
ShowTable : Always
Use : Name Field
Width : 20
Border : Thin Box
Variable : vContactName
Modifies : vContactName

[Collection : ContactNameCollection1]
Type : mydbcontactperson : Company
Childof : ##SVCurrentCompany
Title: "Contact List"
Add : SubTitle :$$LocaleString:"Contact Name"
Add : Format : $contactNamedetails, 50
Title : CONTACT LIST
FullHeight  : Yes
Filter : ContactNamefilter
Fetch : mydbcontactperson,contactNamedetails,SalemanMob,SalemanEmail

[Variable:vContactName]
Type : String

[System:Variable]
vContactName : ""

[System: Formula]
ContactNamefilter : $contactNamedetails = ##vContactName Or $$IsSysName:##vContactName
    Hey, I am not getting filter option's result....
     
    PRAPTI, Mar 24, 2019
    #1


  2. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    ContactNamefilter : $contactNamedetails = #ContactNamefilter Or $$IsSysName:##vContactName
     
    Amit Kamdar, Mar 24, 2019
    #2


  3. PRAPTI

    PRAPTI Member


    Thanks Sir...It's resolved..
     
    PRAPTI, Mar 24, 2019
    #3


  4. Jenny

    Jenny Active Member


    This is my code...............
     
    Jenny, Mar 25, 2019
    #4


  5. PRAPTI

    PRAPTI Member


    And I made some changes in it as per my needs..
     
    PRAPTI, Mar 25, 2019
    #5


  6. PRAPTI

    PRAPTI Member


    Code:
    [#Menu: Gateway Of Tally]
Add : Item : Contact List : Menu : QuotationMenu

[Menu: QuotationMenu]
Add : Item :Contact List : Alter : Contact Name


[Report: Contact Name]
Form : Contact Name
Object : Company
Variable : vContactName : String
Set : vContactName : ""

[Form: Contact Name]
Part : FormSubTitle, Contactman
;Button : Delete All, Remove Line, Restore Line, Restore All,Report Operations
Width : 95% Screen
Height : 100% Screen
Background : @@SV_CHEQUE
Local : Field : Form SubTitle : Info : $$LocaleString:"CONTACT LIST"
Local    : Field : Form SubTitle        : Color          : LeafGreen
Local: Field:Form SubTitle    : Style    : Large SerIf Bold 
Buttons     : PrintButton, ExportButton
Add: Button: ContactNamefilter

[Part: Contactman]
Lines : PKM Title,PKM Salesman
Repeat : PKM Salesman:mydbcontactperson
Break on: $$IsEmpty:$contactNamedetails
Scroll : Vertical
Height : 90% Screen


[Line: PKMTitle]
    Fields:SrNoFld, ContactNameFld, ContactMobFld,ContactEmailFld
    Border:Thick Bottom

[Field:SrNoFld]
    Use:Name Field
    Set as:"Sr.No."
    Width:5% Screen
    Style:Large Bold
    Color:"Yellow"
    Read Only:Yes
    Skip:Yes
    Align:Center
    Background :"Blue"
    Border:Thin Right 

[Field: ContactNameFld]
    Use:Name Field
    Set as:"Contact Name"
    Width:50% Screen
    Color:"Yellow"
    Read Only:Yes
    Skip:Yes
    Style:Large Bold
    Align:Center
    Background :"Blue"
    Border:Thin Right

[Field: ContactMobFld]
    Use:Name Field
    Set as:"Contact No."
    Width:10% Screen
    Color:"Yellow"
    Read Only:Yes
    Skip:Yes
    Style:Large Bold
    Align:Center
    Background :"Blue"
    Border:Thin Right

[Field: ContactEmailFld]
    Use:Name Field
    Set as:"E - Mail"
    Width:30% Screen
    Color:"Yellow"
    Read Only:Yes
    Skip:Yes
    Style:Large Bold
    Align:Center
    Background :"Blue"
    Border:Thin Right

[Line: PKM Salesman]
Fields : PKMSNo, PKMSalemanName,PKMSalemanMob,PKMSalemanEmail
Border: Thin Box

[Field:PKMSNo]
Use:Number Field
Set as:$$Line
Read Only:Yes
Skip Forward:Yes
Width:5% Screen
Border:Thin Box
Align:Center

[Field: PKMSalemanName]
Use : Short Name Field
Storage : contactNamedetails
Unique : Yes
Width : 50% Screen
Border:Thin Box

[Field: PKMSalemanMob]
Use : Short Name Field
Storage : SalemanMob
Unique : Yes
Width:10% Screen
Style   : Normal Bold
Border:Thin Box

[Field: PKMSalemanEmail]
Use : Short Name Field
Storage : SalemanEmail
Unique : Yes
Width:30% Screen
Style   : Normal
Case : Lower Case
Color:Blue

[System: UDF]
mydbcontactperson : Aggregate: 998
contactNamedetails : String : 1200 ;: Yes
SalemanMob:String: 1300  ;: Yes
SalemanEmail:String: 1301  ;: Yes

[Collection : SalemanMobCollection]
Childof : ##SVCurrentCompany

[Collection : ContactNameCollection]
Type : mydbcontactperson : Company
Childof : ##SVCurrentCompany
Add : SubTitle :$$LocaleString:"Contact Name"
Add : Format : $contactNamedetails, 50
Title : CONTACT LIST(Create New Contact = Alt+C)
FullHeight  : Yes


[Button:ContactNamefilter]
Key : F4
Action : Alter: ContactNamefilter
Title : Contact List

[Report:ContactNamefilter]
Form : ContactNamefilter

[Form:ContactNamefilter]
Part : ContactNamefilter
No Confirmation : Yes

[Part:ContactNamefilter]
Line : ContactNamefilter

[Line:ContactNamefilter]
Field : Medium Prompt,ContactNamefilter
Option : alter on enter
Local : Field : Medium Prompt : Set as : "Select Contact Name: "
Local : Field : Medium Prompt     : Color :Blue
Local : Field : Medium Prompt : Style :Normal Bold

[Field:ContactNamefilter]
Table : ContactNameCollection1,EndOfList
ShowTable : Always
Use : Name Field
Width : 20
Border : Thin Box
Variable : vContactName
Modifies : vContactName

[Collection : ContactNameCollection1]
Type : mydbcontactperson : Company
Childof : ##SVCurrentCompany
Title: "Contact List"
Add : SubTitle :$$LocaleString:"Contact Name"
Add : Format : $contactNamedetails, 50
Title : CONTACT LIST
FullHeight  : Yes
Filter : ContactNamefilter
Fetch : mydbcontactperson,contactNamedetails,SalemanMob,SalemanEmail

[Variable:vContactName]
Type : String

[System:Variable]
vContactName : ""

[System: Formula]
ContactNamefilter : $contactNamedetails = #ContactNamefilter Or $$IsSysName:##vContactName
    In this code, how to remove the Email field ??
     
    PRAPTI, Mar 25, 2019
    #6


  7. Jenny

    Jenny Active Member


    Good......keep it up.....:))
     
    Jenny, Mar 26, 2019
    #7


  8. Jenny

    Jenny Active Member


    Code:
    [#Menu: Gateway Of Tally]
Add : Item : Contact List : Menu : QuotationMenu

[Menu: QuotationMenu]
Add : Item :Contact List : Alter : Contact Name


[Report: Contact Name]
Form : Contact Name
Object : Company
Variable : vContactName : String
Set : vContactName : ""

[Form: Contact Name]
Part : FormSubTitle, Contactman
;Button : Delete All, Remove Line, Restore Line, Restore All,Report Operations
Width : 95% Screen
Height : 100% Screen
Background : @@SV_CHEQUE
Local : Field : Form SubTitle : Info : $$LocaleString:"CONTACT LIST"
Local    : Field : Form SubTitle        : Color          : LeafGreen
Local: Field:Form SubTitle    : Style    : Large SerIf Bold
Buttons     : PrintButton, ExportButton
Add: Button: ContactNamefilter

[Part: Contactman]
Lines : PKM Title,PKM Salesman
Repeat : PKM Salesman:mydbcontactperson
Break on: $$IsEmpty:$contactNamedetails
Scroll : Vertical
Height : 90% Screen


[Line: PKMTitle]
    Fields:SrNoFld, ContactNameFld
    Right Fields : ContactMobFld
    Border:Thick Bottom

[Field:SrNoFld]
    Use:Name Field
    Set as:"Sr.No."
    Width:5% Screen
    Style:Large Bold
    Color:"Yellow"
    Read Only:Yes
    Skip:Yes
    Align:Center
    Background :"Blue"
    Border:Thin Right

[Field: ContactNameFld]
    Use:Name Field
    Set as:"Contact Name"
    Width :80% Screen
    Color:"Yellow"
    Read Only:Yes
    Skip:Yes
    Style:Large Bold
    Align:Center
    Background :"Blue"
    Border:Thin Right

[Field: ContactMobFld]
    Use:Name Field
    Set as:"Contact No."
    Full Width :Yes
    Color:"Yellow"
    Read Only:Yes
    Skip:Yes
    Style:Large Bold
    Align:Center
    Background :"Blue"
    Border:Thin Right



[Line: PKM Salesman]
Fields : PKMSNo, PKMSalemanName,PKMSalemanMob
Border: Thin Box

[Field:PKMSNo]
Use:Number Field
Set as:$$Line
Read Only:Yes
Skip Forward:Yes
Width:5% Screen
Border:Thin Box
Align:Center

[Field: PKMSalemanName]
Use : Short Name Field
Storage : contactNamedetails
Unique : Yes
Width :80% Screen
Border:Thin Box

[Field: PKMSalemanMob]
Use : Short Name Field
Storage : SalemanMob
Unique : Yes
Full Width :Yes
Style   : Normal Bold
Border:Thin Box


[System: UDF]
mydbcontactperson : Aggregate: 998
contactNamedetails : String : 1200 ;: Yes
SalemanMob:String: 1300  ;: Yes


[Collection : SalemanMobCollection]
Childof : ##SVCurrentCompany

[Collection : ContactNameCollection]
Type : mydbcontactperson : Company
Childof : ##SVCurrentCompany
Add : SubTitle :$$LocaleString:"Contact Name"
Add : Format : $contactNamedetails, 50
Title : CONTACT LIST(Create New Contact = Alt+C)
FullHeight  : Yes


[Button:ContactNamefilter]
Key : F4
Action : Alter: ContactNamefilter
Title : Contact List

[Report:ContactNamefilter]
Form : ContactNamefilter

[Form:ContactNamefilter]
Part : ContactNamefilter
No Confirmation : Yes

[Part:ContactNamefilter]
Line : ContactNamefilter

[Line:ContactNamefilter]
Field : Medium Prompt,ContactNamefilter
Option : alter on enter
Local : Field : Medium Prompt : Set as : "Select Contact Name: "
Local : Field : Medium Prompt     : Color :Blue
Local : Field : Medium Prompt : Style :Normal Bold

[Field:ContactNamefilter]
Table : ContactNameCollection1,EndOfList
ShowTable : Always
Use : Name Field
Width : 20
Border : Thin Box
Variable : vContactName
Modifies : vContactName

[Collection : ContactNameCollection1]
Type : mydbcontactperson : Company
Childof : ##SVCurrentCompany
Title: "Contact List"
Add : SubTitle :$$LocaleString:"Contact Name"
Add : Format : $contactNamedetails, 50
Title : CONTACT LIST
FullHeight  : Yes
Filter : ContactNamefilter
Fetch : mydbcontactperson,contactNamedetails,SalemanMob

[Variable:vContactName]
Type : String

[System:Variable]
vContactName : ""

[System: Formula]
ContactNamefilter : $contactNamedetails = #ContactNamefilter Or $$IsSysName:##vContactName
     
    Jenny, Mar 26, 2019
    #8


Share This Page